This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (TMPNUC)
1 *$ CREATE TMPNUC.ADD
2 *COPY TMPNUC
3 *
4 *=== tmpnuc ===========================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     TeMPorary storage for NUClear interaction secondaries:           *
9 *                                                                      *
10 *     Created on   25 june 1995    by    Alfredo Ferrari & Paola Sala  *
11 *                                                   Infn - Milan       *
12 *                                                                      *
13 *     Last change on 08-sep-00     by    Alfredo Ferrari               *
14 *                                                                      *
15 *     This is just a mirror copy of parnuc common, to temporarily save *
16 *     secondaries coming out from interactions while waiting for       *
17 *     formation time checks                                            *
18 *                                                                      *
19 *               Nsavin = number of the stored interaction (=nuscin)    *
20 *               Icycsv = Icycl                                         *
21 *               Nholsv = Nhole                                         *
22 *               Iabcsv = Iabcou                                        *
23 *               Ininsv = Inindx                                        *
24 *               Nhlxsv = Nhlexp                                        *
25 *               Rhexsv = Rhoexp                                        *
26 *               Hlexsv = Holexp                                        *
27 *               Ekexsv = Ekfexp                                        *
28 *               Amcrsv = Amcrea                                        *
29 *               Rhmesv = Rhomem                                        *
30 *               Ekmesv = Ekfmem                                        *
31 *               Bimesv = Bimmem                                        *
32 *               Llacsv = Lllact                                        *
33 *               Nprnsv = Nprnuc                                        *
34 *               Iprnsv = Iprnuc                                        *
35 *               Jprnsv = Jprnuc                                        *
36 *               Nlvlsv = Nlevel                                        *
37 *               Nmshsv = Nmshll                                        *
38 *               Rdscsv = Radscb                                        *
39 *                                                                      *
40 *               Agtrgt = "age" for materialization of the currently    *
41 *                        saved interaction                             *
42 *               Crrftp = proton  correlation variable for the currently*
43 *                        saved interaction                             *
44 *               Crrftn = neutron correlation variable for the currently*
45 *                        saved interaction                             *
46 *               Pafrft = hard core radius for the currently saved      *
47 *                        interaction                                   *
48 *               Rhexft = Rhoexi for hard core radius for the currently *
49 *                        saved interaction                             *
50 *               Rhcmft = Rhocmp for hard core radius for the currently *
51 *                        saved interaction                             *
52 *               Rhmnft = Rhomin for hard core radius for the currently *
53 *                        saved interaction                             *
54 *                                                                      *
55 *----------------------------------------------------------------------*
56 *
57       LOGICAL LATATM
58       PARAMETER ( NCTMX = 25 )
59       COMMON / TMPNUC / ENCTM  (NCTMX), PNCTM  (NCTMX), EKFNTM (NCTMX),
60      &                  XSTNTM (NCTMX), YSTNTM (NCTMX), ZSTNTM (NCTMX),
61      &                  PXNCTM (NCTMX), PYNCTM (NCTMX), PZNCTM (NCTMX),
62      &                  RSTNTM (NCTMX), FRPNTM (NCTMX), CRNNTM (NCTMX),
63      &                  CRPNTM (NCTMX), BSTNTM (NCTMX), AGNCTM (NCTMX),
64      &                  TFPNTM (NCTMX), RHNCTM(NCTMX,2),    RHEXSV (2),
65      &                  RDSCSV (3),     HLEXSV, EKEXSV, AMCRSV, RHMESV,
66      &                  EKMESV, BIMESV, AGTRGT, CRRFTP, CRRFTN, PAFRFT,
67      &                  RHCMFT, RHEXFT, RHMNFT,
68      &                  KPNCTM (NCTMX), KRFNTM (NCTMX), ILINTM (NCTMX),
69      &                  INTNTM (NCTMX), ISFNTM (NCTMX), LATATM (NCTMX),
70      &                  KRSNTM (NCTMX), NPNTM , NSAVIN, ICYCSV, NHOLSV,
71      &                  IABCSV, NHLXSV, LLACSV, NPRNSV, NLVLSV, ININSV,
72      &                  JPRNSV (3), IPRNSV (3), NMSHSV (3)
73       COMMON / TMPLEV / RADSCB (3), NMSHLL (3), NLEVEL
74