FUNCTION :  ETA[cuspord] -  Computes the invariant order at a cusp of (GAMMA_0(N))
		            of the given etaproduct

CALLING SEQUENCE :  cuspord()                                      
                    cuspord(etaprod,N,cusp)                                      
   etaprod = eta-quotient                                    
   N     =  postive integer                                  
   cusp  =  rational                                          
   Computes the invariant order at a cusp of (GAMMA_0(N))     
   of the given etaproduct.

                    

PARAMETERS :
   etaprod - eta-quotient                                    
   N       -  postive integer                                  
   cusp    -  rational                                          
                  -            

GLOBAL VARIABLES : 

SYNOPSIS :   
   Computes the invariant order at a cusp of (GAMMA_0(N))     
   of the given etaproduct.
   

EXAMPLES :   

DISCUSSION :

SEE ALSO :