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
             In other words,                                           
             c*JAC(a1,b1)*JAC(a2,b2)*.. --> JAC(a1,b1)*JAC(a2,b2)*..   
   
EXAMPLES :   

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

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

DISCUSSION :

SEE ALSO :