CKIUQ     CKIUQ     CKIUQ     CKIUQ     CKIUQ     CKIUQ     CKIUQ     
          **********************************************
                    **************************
                              ******

SUBROUTINE CKIUQ (ICKWRK, RCKWRK, 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
ICKWRK(*) - Integer workspace array; dimension at least LENICK.
OUTPUT
IQUSR(*)  - Integer array, user rate-modify flags for reactions;
            dimension at least II, the total reaction count.
            IQUSR(I)= 0  reaction I is not a user rate-modify reaction
            IQUSR(I)= N  reaction I is a user rate-modify reaction,
                         with rate-modify type N