*                                                                      *
*=== cmpreq ===========================================================*
*                                                                      *
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     CoMmon for PReEQuilibrium:                                       *
*     (split out of Prepre on 3-Apr-12)                                *
*                                                                      *
*     Note the numbering of Edncfm, Ednccn, Edkfnc, Bnddnc (inside     *
*     CLSCCM), Uudenc, Flxmde is the Jemiss one, 1=neutron, 2=proton   *
*     The numbering of Sgmapd, Sgmand, Sgmprd, Sgmnud is the Iemiss    *
*     one, 1=proton, 2=neutron                                         *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / CMPREQ / ERNCM  (6), EPSMX  (6), AMMAFT (6), AMNAFT (6),
     &                  AAFTR  (6), ZAFTR  (6), EEXMNM (6), EEXDLT (6),
     &                  EEXANW (6), EPSEEX (6), EPSDLT (6), EPSANY (6),
     &                  EFRGPA (6), EFRGPB (6), EDNCFM (2), EDNCCN (2),
     &                  UUDENC (2), FLMXDE (2), RHONUC (2), SGNUNU (2),
     &                  SGMAPD (2), SGMAND (2), EDKFNC (2),
     &                  SGMPRD (6,2), SGMNUD (6,2),
     &                  PEFREF, AEFREF, AEFRAV, AEFRES, AEFRAS, BNDUSE,
     &                  TAUTAU, TAUPRJ, TAUTRG, TAUPMX, RDCLOR, CENBAR,
     &                  PRIDNC, PRNCID, DETTAU, EPSCOU, EKPRMX, RHOHRD,
     &                  RHOCMP, EPSCTF, HRDCOR, DETFMN, HARCSG, PZITA ,
     &                  ZITA  , PZITNP, PZITNN, CLAMDI, EKDHOL, EDHOLE,
     &                  EDEUCN, PDEUCN,
     &                  NPART  (2), NPRFIX (2), NEMSSD (2), JEMSSD (2),
     &                  IAAFT  (6), IZAFT  (6), JNUCTS, IGREYH, NEXTOT,
     &                  LSPLVL (6), LIDNUC, LTAPRJ, LNUCTS
      LOGICAL LSPLVL, LHLLVL, LIDNUC, LTAPRJ, LNUCTS
      SAVE / CMPREQ /