FUNCTION :  GetaEXP - initial q-exponent in generalized eta function
                

CALLING SEQUENCE : GetaEXP(g,d,n)
                    

PARAMETERS :    g,d,n - positive integers

SYNOPSIS :   
   Returns n*QP2(g/d)*d/2 which is the initial q-exponent in 
   then generalized eta function eta[d,g](n*tau)
   

EXAMPLES :   

> with(ramarobinsids):
> with(thetaids): with(qseries):
> GetaEXP(1,5,1);
                               1 
                               --
                               60


DISCUSSION :
    eta[5,1](tau) = q^(1/60) + ...

SEE ALSO :