SKABE     SKABE     SKABE     SKABE     SKABE     SKABE     SKABE     
          **********************************************
                    **************************
                              ******

SUBROUTINE SKABE  (ISKWRK, RSKWRK, RA, RB, RE, ISTFL)
Returns the Arrhenius coefficients or the sticking coefficients
of the surface reactions, and integer flags to indicate the type
of the coefficients.

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

OUTPUT
RA(*)     - Real array, pre-exponential constants for reactions;
            dimension at least IISUR, the total surface reaction
            count.
               cgs units, mole-cm-sec-K
RB(*)     - Real array, temperature dependence exponents for
            reactions;
            dimension at least IISUR, the total surface reaction
            count.
RE(*)     - Real array, activation energies for reactions;
            dimension at least IISUR, the total surface reaction
            count.
               cgs units, K
ISTFL(*)  - Integer array, sticking reaction information;
            dimension at least IISUR, the total surface reaction
            count.
            =1, a reaction uses sticking coefficients.
            =0, a rection does not.