FUNCTION :  getalist2jacprod - convert a getalist to a jacprod
                

CALLING SEQUENCE : getalist2jacprod() 
                   getalist2jacprod(getalist) 
                    

PARAMETERS :      getalist - list has form [[b1,a1,c1], ... }
                             which corresponds to a generalized eta product

GLOBAL VARIABLES : glist, JP, gterm 

SYNOPSIS :   Converts a getalist to a jacprod
   

EXAMPLES :   

>  with(thetaids):

>  getalist2jacprod();
-------------------------------------------------------------
getalistjacprod(getalist)                                   
   Each item [b,a,c] in getalist corresponds to 
   GETA(b,a)^c.  The list is converted into a product
   of jacprods.             
-------------------------------------------------------------

>  JP:=getalist2jacprod([[5,1,-1],[55,22,-1]]);
                      2
                     q  JAC(0, 5, infinity) JAC(0, 55, infinity)
               JP := -------------------------------------------
                      JAC(1, 5, infinity) JAC(22, 55, infinity)

>   GP:=jac2eprod(JP);
                                          1
                         GP := -----------------------
                               GETA(5, 1) GETA(55, 22)

>   GETAP2getalist(GP);
                           [[5, 1, -1], [55, 22, -1]]


DISCUSSION :

SEE ALSO :  

jac2eprod,
 GETAP2getalist