FUNCTION: LieTools/IsDominant
USAGE: IsDominant(fwgt);
SYNOPSIS: IsDominant(fwgt) returns 1 if the weight fwgt (expressed
  in terms of a basis of fundamental weights is dominant, and 0 otherwise.
CAVEATS: requires a previously initialized global Lie algebra environment.
  (See LieTools[gSetup].)
EXAMPLE: 
> IsDominant([0,0,2,0]);

                                  1

> IsDominant([0,1,-1,0]);

                                  0
SEE ALSO: 
