FUNCTION :  GETAP2getalist - Convert a quotient of generalized
                        eta-products into a (geta)-list
                
CALLING SEQUENCE :  GETAP2getalist(geprod)                                   

PARAMETERS :      geprod - Quotient of quotient of generalized 
                           eta-functions encoded in terms of GETA(b,a).

SYNOPSIS :   Converts a quotient of generalized eta-products 
             written in terms of GETA(b,a) into a (geta)-list.
             Each term GETA(b,a)^c in the quotient is converted to an
             tem [b,a,c] in the list.

EXAMPLES :   

> JJ := JAC(1,40,infinity)/JAC(0,40,infinity)^12*JAC(2,40,infinity)
        /JAC(4,40,infinity)*JAC(5,40,infinity)^2*JAC(6,40,infinity)^2
        *JAC(9,40,infinity)*JAC(11,40,infinity)*JAC(14,40,infinity)^2
        *JAC(15,40,infinity)^2*JAC(18,40,infinity)*JAC(19,40,infinity)
        /JAC(20,40,infinity):

> geprod:=jac2eprod(JJ);
                                   2            2
GETA(40, 1) GETA(40, 2) GETA(40, 5)  GETA(40, 6)  GETA(40, 9)

                             2             2
    GETA(40, 11) GETA(40, 14)  GETA(40, 15)  GETA(40, 18)

    GETA(40, 19)/(GETA(40, 4) GETA(40, 20))

> GETAP2getalist(geprod);
[[40, 1, 1], [40, 2, 1], [40, 4, -1], [40, 5, 2], [40, 6, 2],

    [40, 9, 1], [40, 11, 1], [40, 14, 2], [40, 15, 2], [40, 18, 1],

    [40, 19, 1], [40, 20, -1]]



DISCUSSION :

SEE ALSO :  jac2eprod