FUNCTION: LieTools/swgtIP
USAGE: swgtIP(sw1,sw2,Gt); swgtIP(sw1,sw2); swgtIP(sw1,sw2,Gtype,rnk);
SYNOPSIS: swgtIP(sw1,sw2,Gt) computes the inner product of two weights
  of Gt specified by their components w.r.t. a basis of simple 
  roots. When called with just two arguments sw1 and sw2, it is necessary
  to first initialize a global Lie algebra environment (see LieTools[gSetup]).
EXAMPLE: 
> swgtIP([1,0],[0,1],G2);

                                  -3

SEE ALSO: LieTools[fwgtIP]
