SKKTMP    SKKTMP    SKKTMP    SKKTMP    SKKTMP    SKKTMP    SKKTMP    
          **********************************************
                    **************************
                              ******

SUBROUTINE SKKTMP (ISKWRK, KTFL)
Returns the temperature array indices for the
gas-phase species.

INPUT
ISKWRK(*) - Integer workspace array; dimension at least LENISK.
KTFL(*)   - Integer array, indices into the temperature(s) for
            gas-phase species;
            dimension at least KKGAS, the total gas-phase species
            count.
            Default value stored in ISKWRK is set to 1 in SKINIT.