FUNCTION: LieTools/SgDegree
USAGE: SgDegree(gpoly);
SYNOPSIS: SgDegree(gpoly) will determine the total degree of a polynomial 
  gpoly in S(g).

EXAMPLE: 
> with(LieTools):
> gpoly := a[1]*g[1]^3 + 2*g[2]*g[3] + c*g[4];

                                3
              gpoly := a[1] g[1]  + 2 g[2] g[3] + c g[4]

> SgDegree(gpoly);

                                  3

SEE ALSO: 
