*$ CREATE MULHD.ADD
*COPY MULHD
*
*=== mulhd ============================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1989-2017      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*   Common mulhd for the new multiple scattering in Fluka              *
*                  created by A. Ferrari & P. Sala on 23-Oct-1989      *
*                                                                      *
*   Last change   on  27-Aug-17  by  Alfredo Ferrari, INFN-Milan       *
*          included in:                                                *
*                        bdnopt                                        *
*                        deflts                                        *
*                        enion                                         *
*                        epilog                                        *
*                        fiprou                                        *
*                        flukam                                        *
*                        formfh                                        *
*                        hmsnsc                                        *
*                        hmulrt                                        *
*                        kaskad                                        *
*                        mulhad                                        *
*                        mulmix                                        *
*                        omegah                                        *
*                        stepop                                        *
*                        thnszh                                        *
*                        zeroin                                        *
*                                                                      *
*                        Mxxmdf = maximum number of media              *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( MXXPT1 = 2 )
*     PARAMETER ( TIMESS = 3.00D+00 )
      PARAMETER ( TIMESS = 2.00D+00 )
*  Tmsrlx: times "relaxed" if the nuclear finite size correction must
*  not be taken into account
*     PARAMETER ( TMSRLX = 2.00D+00 )
      PARAMETER ( TMSRLX = 1.50D+00 )
*     PARAMETER ( EPSINS = 0.10D+00 )
      PARAMETER ( EPSINS = 0.15D+00 )
*  Epsrlx: epsins "relaxed" if the nuclear finite size correction must
*  not be taken into account
*     PARAMETER ( EPSRLX = 0.15D+00 )
      PARAMETER ( EPSRLX = 0.50D+00 )
*  Sqepsn = sqrt (epsins)
*     PARAMETER ( SQEPSN = 0.3162277660168379 D+00 )
      PARAMETER ( SQEPSN = 0.3872983346207417 D+00 )
*  Sqepsr = sqrt (epsrlx)
*     PARAMETER ( SQEPSR = 0.3872983346207417 D+00 )
      PARAMETER ( SQEPSR = 0.7071067811865475 D+00 )
      PARAMETER ( PARNSI = 1.732050807568877 D+00 * SQEPSN )
      PARAMETER ( PRNSR0 = 1.732050807568877 D+00 * SQEPSR )
*     PARAMETER ( R0NCMS = 1.12 D+00 )
      PARAMETER ( R0NCMS = 1.20 D+00 )
      LOGICAL LTOPT , LSRCRH, LNSCRH, LNSCEH, LHFANO, LMLRGH, LMCSPR,
     &        LMCSSC
*
      COMMON / MULHD / BLCC   ( MXXMDF ), BLCCRA ( MXXMDF ),
     &                 FANOLC ( MXXMDF ), ZDFANO ( MXXMDF ),
     &                 XCC    ( MXXMDF ), ZTILDE ( MXXMDF, 0:MXXPT1 ),
     &                 ALPZTL ( MXXMDF, 0:MXXPT1 ), RLDFLU ( MXXMDF ),
     &                 ALPZT2 ( MXXMDF, 0:MXXPT1 ), TFFLU0 ( MXXMDF ),
     &                 XR0FLU ( MXXMDF ), ECUTM  ( MXXMDF, -6:NALLWP,2),
     &                 ESTEPF ( MXXMDF ), HTHNSZ ( MXXMDF, -6:NALLWP ),
     &                 AE1O3  ( MXXMDF ), PARNSR ( MXXMDF ),
     &                 HEESLI ( MXXMDF ), ELMCSF ( MXXMDF, 2 ),
     &                 THMSPR, THMSSC, HMSAMP, HMREJE, HMSNGL (0:5),
     &                 LSRCRH ( MXXMDF ), LNSCRH ( MXXMDF ),
     &                 LNSCEH ( MXXMDF ), LTOPT  ( MXXMDF ),
     &                 LHFANO ( MXXMDF ), IHOREL ( -6:NALLWP ),
     &                 NFSCAT, NFLLDA, IHMSNG, LMLRGH, LMCSPR, LMCSSC
      SAVE / MULHD /