FUNCTION :  GetaL - product of Geta-functions in JAC-form
                

CALLING SEQUENCE : GetaL(L,d,n)
                    

PARAMETERS :    L -  list of residues mod d
               d,n-  positive integers

SYNOPSIS :   
     eta[d,g[1]](n*tau) .  eta[d,g[2]](n*tau) ...  eta[d,g[m]](n*tau)
     where L = [g[1],g[2],...,g[m]]
   

EXAMPLES :   

> with(thetaids):
> with(ramarobinsids):
> qr(13);
                           [1, 3, 4]
> GetaL(qr(13),13,1);
           1           / (1/4)                                 
 --------------------- \q      JAC(1, 13, infinity) JAC(3, 13, 
                     3                                         
 JAC(0, 13, infinity)                                          

                                 \
   infinity) JAC(4, 13, infinity)/


DISCUSSION :

SEE ALSO :  

Geta