FUNCTION :  JACCOF - constant 1

CALLING SEQUENCE :  JACCOF(a,b,c)                                              
                    

PARAMETERS :      a,b,c - usually args of a JAC function

SYNOPSIS :  JACCOF(a,b,c) returns 1
            Used to find coefficient of a jac-term.

EXAMPLES :   


> with(thetaids):
> jacterm:= -5*q^(1/60)*JAC(1,5,infinity)/JAC(0,5,infinity);
                                   1/60
                                5 q     JAC(1, 5, infinity)
                   jacterm := - ---------------------------
                                    JAC(0, 5, infinity)

> cc:=eval(subs({JAC=JACCOF,q=1},jacterm));
                                   cc := -5

> jac2eprod(jacterm);
                                -5 GETA(5, 1)

> jac2getaprod(jacterm);
                              -5 eta[5, 1](tau)

> rmcofjac(jacterm);
                             JAC(1, 5, infinity)
                             -------------------
                             JAC(0, 5, infinity)



SEE ALSO :  

jac2eprod,
 jac2getaprod,
 rmcofjac