This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (OPPHST)
1 *$ CREATE OPPHST.ADD
2 *COPY OPPHST
3 *
4 *=== Opphst ===========================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     OPtical PHoton STack:                                            *
9 *                                                                      *
10 *     Created on 19 september 1997 by    Alfredo Ferrari & Paola Sala  *
11 *                                                   Infn - Milan       *
12 *                                                                      *
13 *     Last change on 13-oct-98     by    Alfredo Ferrari               *
14 *                                                                      *
15 *        wtopph = weight of the photon                                 *
16 *        poptph = laboratory momentum of the photon in GeV/c           *
17 *        xoptph = x-coordinate of the photon                           *
18 *        yoptph = y-coordinate of the photon                           *
19 *        zoptph = z-coordinate of the photon                           *
20 *        txopph = direction cosine of the photon                       *
21 *                 with respect to x-axis                               *
22 *        tyopph = direction cosine of the photon                       *
23 *                 with respect to y-axis                               *
24 *        tzopph = direction cosine of the photon                       *
25 *                 with respect to z-axis                               *
26 *        txpopp = direction cosine of the photon polarization          *
27 *        typopp = direction cosine of the photon polarization          *
28 *        tzpopp = direction cosine of the photon polarization          *
29 *        donear = distance to the nearest boundary                     *
30 *        agopph = age of the photon (seconds)                          *
31 *        loopph = generation of the photon                             *
32 *        louopp = user flag                                            *
33 *        nregop = number of the region of the photon                   *
34 *        nlatop = number of the lattice cell of the photon             *
35 *        tpropp = kinetic energy of parent particle of the photon      *
36 *        apropp = age of the parent particle of the photon (seconds)   *
37 *        ipropp = id (paprop) of the parent particle of the photon     *
38 *        lpropp = generation of the parent particle of the photon      *
39 *        npropp = # of the primary track which generated the photon    *
40 *                 (not used for the moment)                            *
41 *        lstopp = stack pointer                                        *
42 *        lmxopp = highest value of the stack pointer encountered       *
43 *                 in the run                                           *
44 *                                                                      *
45 *----------------------------------------------------------------------*
46 *
47       COMMON / OPPHST /               WTOPPH (MOSTCK), POPTPH (MOSTCK),
48      &               XOPTPH (MOSTCK), YOPTPH (MOSTCK), ZOPTPH (MOSTCK),
49      &               TXOPPH (MOSTCK), TYOPPH (MOSTCK), TZOPPH (MOSTCK),
50      &               TXPOPP (MOSTCK), TYPOPP (MOSTCK), TZPOPP (MOSTCK),
51      &               DONEAR (MOSTCK), AGOPPH (MOSTCK), TPROPP (MOSTCK),
52      &               APROPP (MOSTCK),           SPAROK (MKBMX1,MOSTCK),
53      &               ISPORK (MKBMX2,MOSTCK),           LOOPPH (MOSTCK),
54      &               LOUOPP (MOSTCK), NREGOP (MOSTCK), NLATOP (MOSTCK),
55      &               IPROPP (MOSTCK), LPROPP (MOSTCK), NPROPP (MOSTCK),
56      &               LSTOPP, LMXOPP
57