FUNCTION :  qjacdegree - q-degree of a jacterm
                

CALLING SEQUENCE :  qjacdegree()
                    qjacdegree(jacterm)
                    
PARAMETERS :      jacterm - jacprod quotient

SYNOPSIS :   
   Computes degree of jacterm with respect to q.             
   jacterm is a quotient of JAC(a,b,infinity)s               
   In other words,                                           
   c*q^r*JAC(a1,b1)*JAC(a2,b2)*.. --> r    
   Here r is a rational number.          
   This function is used by jacnormalid.
   
EXAMPLES :   

>  with(thetaids):

>  qjacdegree();
-------------------------------------------------------------
qjacdegree(jacterm)                                            
   Computes degree of jacterm with respect to q.             
   jacterm is a quotient of JAC(a,b,infinity)s               
   In other words,                                           
   c*q^r*JAC(a1,b1)*JAC(a2,b2)*.. --> r    
   Here r is a rational number.            
-------------------------------------------------------------

>  jacterm:=q^(749/24)*JAC(0, 10, infinity)*JAC(0, 120, infinity)^3;
                     /749\
                     |---|
                     \24 /                                           3
         jacterm := q      JAC(0, 10, infinity) JAC(0, 120, infinity)

>  qjacdegree(jacterm);
                                      749
                                      ---
                                      24

DISCUSSION :
  Observe that in this example qjacdegree is a rational number.

SEE ALSO :  jacnormalid