FUNCTION: LieTools/GKdimUgImax
USAGE: GKdimUgImax(infchar);
SYNOPSIS: GKdimUgImax(infchar) yields the Gelfand-Kirillov dimension of U(g)/I 
  where I is the maximal ideal of infinitesimalcharacter infchar.  This routines
  simply applies the "well-known" formula cited 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: 
> LieTools[gSetup](G,2);
Setting up Gtype = G   rnk = 2
> LieTools[GKdimUgImax]([-1/2,-1/2]);

                                  8

SEE ALSO: LieTools[FMultImax], LieTools[fwgtIWeylOrbit]
