SKNCON    SKNCON    SKNCON    SKNCON    SKNCON    SKNCON    SKNCON    
          **********************************************
                    **************************
                              ******

SUBROUTINE SKNCON (ISKWRK, RSKWRK, NCON)
Returns the total number of surface reactions which do not conserve
sites of the phases.

INPUT
ISKWRK(*) - Integer workspace array; dimension at least LENISK.

OUTPUT
NCON(*)   - Integer array, count of surface reactions which do not
            conserve sites in the phases;
            dimension at least NPHASE, the total phase count.