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

CALLING SEQUENCE :  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 :   

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

DISCUSSION :

SEE ALSO :