FUNCTION :  ETA[cuspORDSnotoo] -  Computes the order at each cusp<> oo
                 (GAMMA_0(N))
		# of the given etaproduct and return result as a list.
		#
====
ETA[cuspORDSnotoo]:=proc()
====
  if nargs=0 then
     elif nargs = 3 then
        etaprod:=args[1]:
        CUSPS:=args[2]:
        N:=args[3]:
     printf("nargs=%a\n",nargs);
     ERROR(`nargs must be 0 or 3`);
====
                

CALLING SEQUENCE :  cuspORDSnotoo()
                    cuspORDSnotoo(etaprod,CUSPS,N)

PARAMETERS :   
   etaprod - eta-quotient                                    
   CUSPS -  list of cusps of GAMMA0(N) excluding oo ~ 1/N    
   N     -  postive integer                                  

GLOBAL VARIABLES : 

SYNOPSIS :   
   Computes the order at each cusp z with respect to the group
   G= GAMMA_0(N) of the given etaproduct f.                 
   A list [[cusp1, ORD1], [cusp2, ORD2], ...] is returned.  

EXAMPLES :   

DISCUSSION :

SEE ALSO :