CKWT      CKWT      CKWT      CKWT      CKWT      CKWT      CKWT      
          **********************************************
                    **************************
                              ******

SUBROUTINE CKWT   (ICKWRK, RCKWRK, WT)
Returns the molecular weights of the species

INPUT
ICKWRK(*) - Integer workspace array; dimension at least LENICK.
RCKWRK(*) - Real    workspace array; dimension at least LENRCK.

OUTPUT
WT(*)     - Real array, molecular weights of the species;
            dimension at least KK, the total species count.
               cgs units, gm/mole