SKCONT    SKCONT    SKCONT    SKCONT    SKCONT    SKCONT    SKCONT    
          **********************************************
                    **************************
                              ******

SUBROUTINE SKCONT (KSPEC, ROP, ISKWRK, RSKWRK, CIK)
Returns the contributions of the surface reactions to the molar
production rate of species KSPEC.

INPUT
KSPEC     - Integer scalar, species index.
ROP(*)    - Real array, rates of progress for the surface reactions;
            dimension at least IISUR, the total surface reaction
            count.
               cgs units, moles/(cm**2*sec)
ISKWRK(*) - Integer workspace array; dimension at least LENISK.
RSKWRK(*) - Real    workspace array; dimension at least LENRSK.

OUTPUT
CIK(*)    - Real array, contributions of the surface reactions to the
            production rate of species KSPEC;
            dimension at least IISUR, the total surface reaction
            count.
               cgs units, mole/(cm**2*sec)