FUNCTION :  ETA[etaCONSTANT] -  constant in eta-quotient term

CALLING SEQUENCE :  etaCONSTANT()                                          
                    etaCONSTANT(epterm)                                          
PARAMETERS : 
   epterm - c*eta(t[1]*tau)^r[1]* ... *eta(t[s]*tau)^r[s]    

GLOBAL VARIABLES : 

SYNOPSIS :   
   For epterm = c*eta(t[1]*tau)^r[1]* ... *eta(t[s]*tau)^r[s]    
   (ie. an eta-quotient times a constant.) returns the constant c. 

EXAMPLES :   

DISCUSSION :

SEE ALSO :