FUNCTION: LieTools/RtWgtOrder
USAGE: RtWgtOrder(w1,w2)
SYNOPSIS: RtWgtOrder(w1,w2) defines a total ordering '<' of weights that maintains the
  order of the roots of our Cartan Weyl basis (when the roots are expressed in terms
  of the components with respect to the basis of simple roots). The ordering used
  is, effectively, a graded-reverse-lexicographic ordering of the components. 

EXAMPLE: 
> with(LieTools):
> RtWgtOrder([1,0,0],[0,1,0]);

                                  1

> RtWgtOrder([0,1,0],[0,1,0]);

                                  0

> RtWgtOrder([0,1,0],[1,0,0]);

                                  -1

> RtWgtOrder([0,1,0],[1,0,1]);

                                  1

SEE ALSO: LieTools[RtOrderTest] 
