*                                                                      *
*=== cmphnu ===========================================================*
*                                                                      *
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     Created on 05 October 1992   by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*      Included in the following routines:                             *
*                                                                      *
*                FLUKA                                                 *
*                DEFLTS                                                *
*                EVXTES                                                *
*                PHNCEV                                                *
*                PHNCVR                                                *
*                PHNVEV                                                *
*                SIGTAB                                                *
*                ZEROIN                                                *
*                DSPHDV                                                *
*                DSPHIV                                                *
*                DSPHJV                                                *
*                DSPVL1                                                *
*                DSPVL2                                                *
*                DSPVT1                                                *
*                DSPVT2                                                *
*                DVSPHV                                                *
*                SGAPN                                                 *
*                                                                      *
*----------------------------------------------------------------------*
*                                                                      *
      PARAMETER ( ANGEPP = 1.2D-04 )
*
      LOGICAL LPHNCL
      COMMON / CMPHNU / AMPPHN, AMTPHN, EPRPHN, PPRPHN, QPH2MN, QPH2MX,
     &                  VVPHMN, VVPHMX, RHOPHN, CSTPHN, GXSHDW, AMNPHN,
     &                  A13PHN, AMPHN1, AMPHN2, ASQPH1, ASQPH2, EPSPH1,
     &                  EPSPH2, FR1PHN, FR2PHN, SGPHUB, XLNPHN, AOCPHN,
     &                  ZPHNMN, ZPHNMX, WPHNMN, WPHNMX, EOUPHN, POUPHN,
     &                  AMPHSQ, ENHPHN, QU2PHN, CSTPHV, ARSQP1, ARSQP2,
     &                  AMRPHE, T1MVOV, PHNORD, PHNEXO, PHNSTR, PHNEXS,
     &                  AMRP1N, VSQ44V, VVSQRD, EPSSQ1, EPSSQ2, RRPHN1,
     &                  RRSQR1, RRPHN2, RRSQR2, YESS1T, YESS2T, YESS1L,
     &                  YESS2L, AFACTZ, ALOGA1, DIFZPH, PHOZP1, ALOGB1,
     &                  DPHNSQ, DENPHN, ZMTPHN, MATPHN, IPPHNU,
     &                  JFLPHN (MXXMDF), LPHNCL
      SAVE / CMPHNU /