FUNCTION: LieTools/UgImaxMult
USAGE: UgImaxMult(fhwt,infchar);
SYNOPSIS: UgImaxMult(fhwt,infchar) returns the multiplicity of the irreducible
  finite dimensional representation of G2 with highest weight fwgt in U(g)/I 
  where I is the unique maximal ideal with infinitesimal character infchar
  (which should be expressed in terms of a basis of fundamental weights).  This
  comes from a "well-known" formula given by Vogan in "Primitive Ideals 
  for SemiSimple Lie Algebras". Its validity requires infchar to be regular.
CAVEATS: requires a previously initialized global Lie algebra environment.
  (See LieTools[gSetup].)
EXAMPLE: 
> with(LieTools):
> gSetup(G,2);
> UgImaxMult([1,0],[1/2,1/2]);
  integral roots = {3, 5}
  Worbit1 = [[0, 0], [-2, -2], [-3, -1], [-5, -3]]

                                  1
SEE ALSO: 
