CKINDX    CKINDX    CKINDX    CKINDX    CKINDX    CKINDX    CKINDX    
          **********************************************
                    **************************
                              ******

SUBROUTINE CKINDX (ICKWRK, RCKWRK, MM, KK, II, NFIT)
Returns a group of indices defining the size of the particular
reaction mechanism

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

OUTPUT
MM        - Integer scalar, mechanism total element count.
KK        - Integer scalar, mechanism total species count.
II        - Integer scalar, mechanism total reaction count.
NFIT      - Integer scalar, number of coefficients in fits to
            thermodynamic data for a temperature range;
            NFIT=number of coefficients in polynomial fits to CP/R
            plus 2.