FUNCTION :  getacuspord - order of generalized eta-product at a cusp

CALLING SEQUENCE :  getacuspord()                                         
                    getacuspord(n,r,a,c)                                         

PARAMETERS :      n,r,a,c - nonnegative integers where (a,c)=1
                            and n does not divide r

SYNOPSIS :   Calculates order of generalized eta-product         
             eta[n,r](tau) at the cusp a/c. When r=0,
             eta[n,0](tau) = eta(n*tau).
   
EXAMPLES :   

> with(thetaids):

> getacuspord();
-------------------------------------------------------------
getacuspord(n,r,a,c)                                         
   Calculates order of generalized eta-product         
   eta[n,r](tau) at the cusp a/c.
   Assumptions: (a,c)=1 and n does not divide r.
-------------------------------------------------------------

> getacuspord(50,1,4,29);
                                             1/600

DISCUSSION :

SEE ALSO :