SKIUQ     SKIUQ     SKIUQ     SKIUQ     SKIUQ     SKIUQ     SKIUQ     
          **********************************************
                    **************************
                              ******

SUBROUTINE SKIUQ (ISKWRK, IQUSR)
Returns a set of flags indicating whether the reactions are
user-modify rate-of-progress reactions, and if so,
the user-modify type.

INPUT
ISKWRK(*) - Integer workspace array; dimension at least LENISK.
OUTPUT
IQUSR(*)  - Integer array, user rate-modify flags for reactions;
            dimension at least IISUR, the total surface reaction count.
            IQUSR(IS)= 0  reaction IS is not a user rate-modify reaction
            IQUSR(IS)= N  reaction IS is a user rate-modify reaction,
                         with rate-modify type N