CKHRX     CKHRX     CKHRX     CKHRX     CKHRX     CKHRX     CKHRX     
          **********************************************
                    **************************
                              ******

SUBROUTINE CKHRX  (I, HML, ICKWRK, RCKWRK, HRXI)
Returns the molar heat of reaction I.

INPUT
I          - Integer scalar, reaction index.
HML(*)     - Real array, molar enthalpies for species;
             dimension at lest KK, the total species count.
                cgs units, ergs/mole
ICKWRK(*) - Integer workspace array; dimension at least LENICK.
RCKWRK(*) - Real    workspace array; dimension at least LENRCK.

OUTPUT
HRXI      - Real scalar, molar heat of reaction I.
               cgs units, ergs/mole