FUNCTION :  rmcofjac - Remove constant coefficient of a jacterm

CALLING SEQUENCE :  rmcofjac(jacterm)                                            
                    

PARAMETERS :      jacterm - jacprod quotient


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

>  with(thetaids):

>  rmcofjac();
-------------------------------------------------------------
rmcofjac(jacterm)                                            
   Removes constant coefficient of a jacterm.                
   jacterm is a quotient of JAC(a,b,infinity)s               
   In other words,                                           
   c*JAC(a1,b1)*JAC(a2,b2)*.. --> 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