FUNCTION: LieTools/DimRLA
USAGE: DimRLA(Gt); DimRLA(Gtype,rnk);
SYNOPSIS: DimRLA(Gt) yields the dimension of a reductive
  Lie Algebra Gt. If its argument is a pair of the form 
  Gtype,rnk, then it yield the dimension of
  simple Lie algebra of that Cartan type.
  We also allow for abelian factors, e.g.
       DimRLA(A1*T1*T1) = Dim(A1*T2) = 5
  (the `T2` here is to indicate the 2-dimensional abelian
  Lie algebra.)
EXAMPLE: 
> LieTools[DimRLA](E6);
                                  78

> LieTools[DimRLA](E,6);

                                  78

SEE ALSO: LieTools[DimSLA]
