CKKTFL    CKKTFL    CKKTFL    CKKTFL    CKKTFL    CKKTFL    CKKTFL    
          **********************************************
                    **************************
                              ******

SUBROUTINE CKKTFL (ICKWRK, KTFL)
Allows the user to assign a location in the temperature array
to use for each gas-phase species.

INPUT
ICKWRK(*) - Integer workspace array; dimension at least LENICK.
KTFL(*)   - Integer array, indices into the temperature(s) for
            species;
            dimension at least KK, the total species count.
            Default value stored in ICKWRK is set to 1 in CKINIT.