CKITDE    CKITDE    CKITDE    CKITDE    CKITDE    CKITDE    CKITDE    
          **********************************************
                    **************************
                              ******

SUBROUTINE CKITDE (ICKWRK, RCKWRK, ITDE)
Returns a set of flags indicating whether the reactions are
non-thermal, and if so, returns the index of the species on
which the reaction depends.

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

OUTPUT
ITDE(*)   - Integer array, non-termal flags for reactions;
            dimension at least II, the total reaction count.
            ITDE(I)= -1  reaction I is not a non-thermal reaction
            ITDE(I)=  K  reaction I is a non-thermal reaction with
                      temperature dependence on species # K