SKUMS     SKUMS     SKUMS     SKUMS     SKUMS     SKUMS     SKUMS     
          **********************************************
                    **************************
                              ******

SUBROUTINE SKUMS  (T, ISKWRK, RSKWRK, UMS)
Returns an array of the internal energies in mass units. Does not account for dependence on surface coverage (HFCOV). To include that effect, use subroutine SKCUMS.

INPUT
T(*)      - Real array, temperature(s); dimension is determined by
            the application program to be the total number of
            species temperatures, nominally 1.
               cgs units, K
ISKWRK(*) - Integer workspace array; dimension at least LENISK.
RSKWRK(*) - Real    workspace array; dimension at least LENRSK.

OUTPUT
UMS(*)    - Real array, internal energies of the species;
            dimension at least KKTOT, the total species count.
               cgs units, ergs/gm