CKIJAN    CKIJAN    CKIJAN    CKIJAN    CKIJAN    CKIJAN    CKIJAN    
          **********************************************
                    **************************
                              ******

SUBROUTINE CKIJAN (IR, ICKWRK, RCKWRK, IJAN, RJAN)
Returns an integer flag to indicate whether reaction IR uses
the Janev rate expression, and if so, returns the array of
Janev 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
IJAN      - Integer scalar,
            1, reaction IR uses the Janev et al. rate expression.
            0, no.
RJAN(*)    - Real array, supplemental Janev parameters
            for reaction IR.
               Dimension RJAN(*) at least NJAR, the
               number of supplemental parameters required
               to calculate a Janev reaction rate;
               in the current implementation, NJAR=9.