This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (EVAPRD)
1 *$ CREATE EVAPRD.ADD
2 *COPY EVAPRD
3 *                                                                      *
4 *=== evaprd ===========================================================*
5 *                                                                      *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     New version of evaporation product common:                       *
9 *                                                                      *
10 *     Created on 04 november 1996  by    Alfredo Ferrari & Paola Sala  *
11 *                                                   Infn - Milan       *
12 *                                                                      *
13 *     Last change on  24-mar-97    by    Alfredo Ferrari               *
14 *                                                                      *
15 *     Included in the following routines:                              *
16 *                                                                      *
17 *                 BDEVAP                                               *
18 *                 BERTTP                                               *
19 *                 DRES                                                 *
20 *                 ERUP                                                 *
21 *                 EVEVAP                                               *
22 *                 EVPRTN                                               *
23 *                 FPROB                                                *
24 *                 FRMBRK                                               *
25 *                                                                      *
26 *     Evaporation products:                                            *
27 *                                                                      *
28 *                 0 = photon                                           *
29 *                 1 = neutron                                          *
30 *                 2 = proton                                           *
31 *                 3 = deuteron                                         *
32 *                 4 = triton                                           *
33 *                 5 = 3-He                                             *
34 *                 6 = alpha                                            *
35 *                                                                      *
36 *     Variables:                                                       *
37 *                                                                      *
38 *           Flaevp(k) = mass   number of the k_th type particle        *
39 *           Flzevp(k) = atomic number of the k_th type particle        *
40 *           Iaevpr(k) = mass   number of the k_th type particle        *
41 *           Izevpr(k) = atomic number of the k_th type particle        *
42 *           Exmsev(k) = excess mass (MeV) (atomic or nuclear, depend-  *
43 *                       ing on Lncmss flag in common Frbkcm) of the    *
44 *                       k_th type particle                             *
45 *           Rhoevp(k) = Coulomb barrier radius factors of the k_th     *
46 *                       type particle                                  *
47 *         Eprtev(i,k) = (kinetic) energy (MeV) of the i_th evaporated  *
48 *                       particle of the k_th type                      *
49 *         Pprtev(i,k) = Momentum (MeV/c) of the i_th evaporated        *
50 *                       particle of the k_th type                      *
51 *       Cosevp(j,i,k) = j_th (j=1,2,3) cosine of the i_th evaporated   *
52 *                       particle of the k_th type                      *
53 *              Hevsum = Total (kinetic) energy of evaporated heavies   *
54 *                       (heavies=Z>1)                                  *
55 *           Nprtev(k) = number of evaporated particles of k_th type    *
56 *           Ioprev(l) = id of the l_th evaporated particle of the      *
57 *                       present event (including fission etc)          *
58 *              Npevap = Total number of evaporated particles for the   *
59 *                       present event (including fission etc)          *
60 *                                                                      *
61 *----------------------------------------------------------------------*
62 *
63       PARAMETER ( NEVPRD = 6 )
64       COMMON / EVAPRD / FLAEVP (0:NEVPRD), FLZEVP (0:NEVPRD),
65      &                  EXMSEV (0:NEVPRD), RHOEVP (0:NEVPRD),
66      &                  EPRTEV (100,0:NEVPRD), PPRTEV (100,0:NEVPRD),
67      &                  COSEVP (3,100,0:NEVPRD), HEVSUM,
68      &                  IAEVPR (0:NEVPRD), IZEVPR (0:NEVPRD),
69      &                  NPRTEV (0:NEVPRD), IOPREV (250), NPEVAP
70