7.65. CKILT

CKILT     CKILT     CKILT     CKILT     CKILT     CKILT     CKILT     
          **********************************************
                    **************************
                              ******

SUBROUTINE CKILT (IR, ICKWRK, RCKWRK, ILT, RLT)
Returns an integer flag to indicate whether reaction IR uses
the Landau-Teller rate expression, and if so, returns the array of
Landau-Teller supplemental parameters.

INPUT
IR        - Integer scalar, reaction index.
ICKWRK(*) - Integer workspace array; dimension at least LENICK.
RCKWRK(*) - Real workspace array; dimension at least LENRCK.

OUTPUT
ILT       - Integer scalar,
            1, reaction IR uses the Landau-Teller rate expression.
            0, no.
RLT(*)    - Real array, supplemental Landau-Teller parameters
            for reaction IR.
               Dimension RLT(*) at least NLAR, the
               number of supplemental parameters required
               to calculate a Landau-Teller reaction rate;
               in the current implementation, NLAR=2.