FUNCTION: LieTools/CharSWProduct
USAGE: CharSWProduct(k,chi);
SYNOPSIS: CharSWProduct(k,chi) multiplies arguments of each term of
  a character xc by the scalar factor k (i.e. it carries out scalar
  multiplication of the corresponding weights.).
EXAMPLE: 
> with(LieTools):
> chi := Char([1,0],G2);

  chi := X[1, 0] + X[-1, 1] + X[2, -1] + X[-2, 1] + X[1, -1]

         + X[-1, 0] + X[0, 0]

> CharSWProduct(3,chi);

  X[3, 0] + X[-3, 3] + X[6, -3] + X[-6, 3] + X[3, -3] + X[-3, 0]

         + X[0, 0]

SEE ALSO: 
