This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (THRESH)
1 *$ CREATE THRESH.ADD
2 *COPY THRESH
3 *
4 *=== Thresh ===========================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     Last change on 15-may-99     by    Alfredo Ferrari               *
9 *                                                                      *
10 *     Common Thresh for EMF                                            *
11 *      Mxxmde = Maximum number of media in Emf                         *
12 *      Ecutm  = Minimum energy to perform Moliere's scattering         *
13 *      Ethnsz = Minimum energy to apply the nuclear size correction    *
14 *               to the Moliere's scattering Moliere's scattering       *
15 *  Please note that the following arrays use the Fluka material index  *
16 *  rather than the EMF one                                             *
17 *      Upcmpt = Minimum photon energy to perform Compton scattering    *
18 *      Upphel = Minimum photon energy to perform photoelectric         *
19 *      Uppair = Minimum photon energy to perform pair production       *
20 *      Uprlgh = Minimum photon energy to perform Rayleigh scattering   *
21 *      Upphnc = Minimum photon energy to perform photonucl. interac.   *
22 *      Uebrms = Minimum e+/e-  energy to perform bremsstrahlung        *
23 *      Uebhml = Minimum e+/e-  energy to perform Bhabha/Moller         *
24 *      Ueannh = Minimum e+     energy to perform annihilation          *
25 *      Uephnc = Minimum e+/e-  energy to perform photonucl. interac.   *
26 *                                                                      *
27 *----------------------------------------------------------------------*
28 *
29       COMMON / THRESH / RMT2  , RMSQ  , ESCD2 ,
30      &                  AP     (MXXMDE), AE     (MXXMDE),
31      &                  UP     (MXXMDE), UE     (MXXMDE),
32      &                  TE     (MXXMDE), THMOLL (MXXMDE),
33      &                  ECUTM  (MXXMDE), ETHNSZ (MXXMDE),
34      &                  UPCMPT (MXXMDF), UPPHEL (MXXMDF),
35      &                  UPPAIR (MXXMDF), UPRLGH (MXXMDF),
36      &                  UPPHNC (MXXMDF), UEBRMS (MXXMDF),
37      &                  UEBHML (MXXMDF), UEANNH (MXXMDF),
38      &                  UEPHNC (MXXMDF)
39