This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (MEDIA)
1 *$ CREATE MEDIA.ADD
2 *COPY MEDIA
3 *
4 *=== media ============================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     Last change  on  24-apr-97   by  Alfredo Ferrari, INFN-Milan     *
9 *                                                                      *
10 *     Commons Fxtmx, Media and Mediac for EMF                          *
11 *     Common Fxtmx is used for the fractional fixed step option        *
12 *     Any change in common Fxtmx must be done also in the module Fxtmx *
13 *     of Egsadd!!!!!!!!!!!!!!!!                                        *
14 *      Mxxmde = maximum number of media in Emf                         *
15 *         Estepe = maximum fractional energy loss allowed for the gi-  *
16 *                  ven medium                                          *
17 *         Ltmin  = logical array to flag whether or not has the step   *
18 *                  to be larger or equal than the minimum allowed      *
19 *                  by Moliere's theory, regardless of the energy loss: *
20 *                  default is .true.                                   *
21 *                                                                      *
22 *----------------------------------------------------------------------*
23 *
24 *  Fix to 7% the maximum energy loss in a (single) Landau/Vavilov step
25       PARAMETER ( ESTLEM = 0.07D+00 )
26       LOGICAL LTMIN, LFXTMX, LPEMDT, LXFLUO, LEMFLA
27       COMMON /FXTMX/ ESTEPE (MXXMDE), ISTPE  (MXXMDE), LTMIN  (MXXMDE),
28      &               LPEMDT (MXXMDE), LFXTMX
29       COMMON /MEDIA/ RLC    (MXXMDE), RLDU   (MXXMDE), RHO    (MXXMDE),
30      &               AIPEMF (MXXMDE), D0DEMF (MXXMDE),
31      &               MSGE   (MXXMDE), MGE    (MXXMDE), MSEKE  (MXXMDE),
32      &               MEKE   (MXXMDE), MLEKE  (MXXMDE), MCMFP  (MXXMDE),
33      &               MRANGE (MXXMDE), IRAYLM (MXXMDE), LXFLUO (MXXMDE),
34      &               IEKEDG (MXXMDE), LEMFLA (MXXMDE), NMED  , ILVLEM ,
35      &               NEREMF, NKDGEM
36       COMMON /MEDIAC/ MEDIA(24,MXXMDE)
37       CHARACTER*4 MEDIA
38