CKCONT    CKCONT    CKCONT    CKCONT    CKCONT    CKCONT    CKCONT    
          **********************************************
                    **************************
                              ******

SUBROUTINE CKCONT (K, Q, ICKWRK, RCKWRK, CIK)
Returns the contributions of the reactions to the molar production
rate of a species.

INPUT
K         - Integer scalar; species index number.
Q(*)      - Real array, rates of progress for reactions;
            dimension at least II, the total reaction count.
               cgs units, moles/(cm**3*sec)
ICKWRK(*) - Integer workspace array; dimension at least LENICK.
RCKWRK(*) - Real    workspace array; dimension at least LENRCK.

OUTPUT
CIK(*)    - Real array, contributions of the reactions to the
            production rate of species K;
            dimension least II, the total reaction count.
               cgs units, mole/(cm**3*sec)