This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (OPPHST)
CommitLineData
d30b8254 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