SKHMS     SKHMS     SKHMS     SKHMS     SKHMS     SKHMS     SKHMS     
          **********************************************
                    **************************
                              ******

SUBROUTINE SKHMS  (T, ISKWRK, RSKWRK, HMS)
Returns an array of the enthalpies in mass units. Does not account for dependence on surface coverage (HFCOV). To include that effect, use subroutine SKCHMS.

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
HMS(*)    - Real array, enthalpies for the species;
            dimension at least KKTOT, the total species count.
               cgs units, ergs/gm