FUNCTION :  rmcofnotqjac - Remove constant coefficient of a jacterm

CALLING SEQUENCE :  rmcofnotqjac()
                    rmcofnotqjac(jacterm)                                            
                    

PARAMETERS :      jacterm - jacprod quotient


SYNOPSIS :   Uses JACCOF function to remove constant coefficient of jacterm
             In other words,                                           
             c*q^r*JAC(a1,b1)*JAC(a2,b2)*.. --> q^r*JAC(a1,b1)*JAC(a2,b2)*..   
             Used by jacbase and jcombobase.
   
EXAMPLES :   

>  with(thetaids):

>  rmcofnotqjac();
-------------------------------------------------------------
rmcofnotqjac(jacterm)                                         
   Removes only constant coefficient of a jacterm and leave   
   power of q intact.                                          
   jacterm is a quotient of JAC(a,b,infinity)s               
   In other words,                                           
   c*q^d*JAC(a1,b1)*JAC(a2,b2)*..-->q^d*JAC(a1,b1)*JAC(a2,b2)*..
-------------------------------------------------------------

>  jterm:=2*JAC(1,40,infinity)*q;
                       jterm := 2 JAC(1, 40, infinity) q

>  rmcofjac(jterm);
                              JAC(1, 40, infinity)

>  rmcofnotqjac(jterm);
                             JAC(1, 40, infinity) q

DISCUSSION :

SEE ALSO :  rmcofnotqjac, jacbase, jcombobase