FUNCTION: LieTools/swgt2fwgt
USAGE: swgt2fwgt(fwgt,Gt); swgt2fwgt(fwgt); swgt2fwgt(fwgt,Gtype,rnk);
SYNOPSIS: A routine to convert a weight specified via its its components with
  respect to a basis of simple roots to its specification in terms of a basis
  of fundamental weights. When called with a single argument fwgt, it is 
  necessary to first initialize a global Lie algebra environment (see 
  LieTools[gSetup]).
EXAMPLE: 
> with(LieTools):
> swgt2fwgt([3,2],G2);

                                [0, 1]

SEE ALSO: LieTools[fwgt2swgt]
