SKRP      SKRP      SKRP      SKRP      SKRP      SKRP      SKRP      
          **********************************************
                    **************************
                              ******

SUBROUTINE SKRP   (ISKWRK, RSKWRK, RU, RUC, PATM)
Returns universal gas constants and the pressure of one standard
atmosphere.

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

OUTPUT
RU        - Real scalar, universal gas constant.
               cgs units, 8.314510E7 ergs/(mole*K)
RUC       - Real scalar, universal gas constant used only in
            conjuction with activation energy.
               preferred units, RU / 4.184 cal/(mole*K)
PA        - Real scalar, pressure of one standard atmosphere.
               cgs units, 1.01325E6 dynes/cm**2