CKRP      CKRP      CKRP      CKRP      CKRP      CKRP      CKRP      
          **********************************************
                    **************************
                              ******

SUBROUTINE CKRP   (ICKWRK, RCKWRK, RU, RUC, PA)
Returns universal gas constants and the pressure of one standard
atmosphere

INPUT
ICKWRK(*) - Integer workspace array; dimension at least LENICK.
RCKWRK(*) - Real    workspace array; dimension at least LENRCK.

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