FUNCTION :  GetaLB - product of Geta-functions in JAC-form
                     without initial power of q
                

CALLING SEQUENCE : GetaLB(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]]
     without initial power of q in each term in product
   

EXAMPLES :   

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


DISCUSSION :

SEE ALSO :  

Geta, GetaL