DOUBLE PRECISION TFRAG,RHAD,RPROB
      COMMON /SJKOCO/ TFRAG,RHAD,RPROB
C      INTEGER NCREVT
C      COMMON /CREVT/ NCREVT