FUNCTION :  v0 - ord(G,0)                            
                
CALLING SEQUENCE :  v0(L,N)                                                

PARAMETERS :      L - (geta)-list produced by GETAP2getalist 
                      and corresponds to a generalized eta-quotient
                      on Gamma[1](N).
                  N - positive integer

SYNOPSIS :   Returns ord(G,0) where G is the generalized eta-quotient
             corresponding to the (geta)-list L.

EXAMPLES :   

> JJ0:= -q/JAC(1,40,infinity)*JAC(2,40,infinity)^2/JAC(4,40,infinity)^3
       *JAC(5,40,infinity)^2*JAC(8,40,infinity)^2/JAC(9,40,infinity)
       /JAC(11,40,infinity)*JAC(15,40,infinity)^2/JAC(16,40,infinity)^2
       *JAC(18,40,infinity)^2/JAC(19,40,infinity)/JAC(20,40,infinity);

> JJ1:=rmcofjac(JJ0);

> GEP1:=jac2eprod(JJ1);
                   2            2            2             2
GEP1 := GETA(40, 2)  GETA(40, 5)  GETA(40, 8)  GETA(40, 15)
                2   /                         3
    GETA(40, 18)   /  (GETA(40, 1) GETA(40, 4)  GETA(40, 9)
                  /
                             2
    GETA(40, 11) GETA(40, 16)  GETA(40, 19) GETA(40, 20))

> L1:=GETAP2getalist(GEP1);
L1 := [[40, 1, -1], [40, 2, 2], [40, 4, -3], [40, 5, 2], [40, 8, 2],
    [40, 9, -1], [40, 11, -1], [40, 15, 2], [40, 16, -2],
    [40, 18, 2], [40, 19, -1], [40, 20, -1]]

> v0(L1,40);
                                  0

DISCUSSION : We see that v0(JJ0,40) = 0

SEE ALSO :  jac2eprod, GETAPgetalist, rmcofjac, vinf