CKREEX    CKREEX    CKREEX    CKREEX    CKREEX    CKREEX    CKREEX    
          **********************************************
                    **************************
                              ******

SUBROUTINE CKREEX (I, RCKWRK, RE)
Get/put the activation energy of the Ith reaction

INPUT
I         - Integer scalar, reaction index;
            I > 0 gets RE(I) from RCKWRK
            I < 0 puts RE(I) into RCKWRK
RCKWRK(*) - Real    workspace array; dimension at least LENRCK.

If I < 1:
RE        - Real scalar, activation energy for reaction I.
               cgs units, K

OUTPUT
If I > 1:
RE        - Real scalar, activation energy for reaction I.
               cgs units, K