10 //*$ CREATE OPPHST.ADD
13 //*=== Opphst ===========================================================//*
15 //*----------------------------------------------------------------------//*
17 //* OPtical PHoton STack: //*
19 //* Created on 19 september 1997 by Alfredo Ferrari & Paola Sala //*
22 //* Last change on 13-oct-98 by Alfredo Ferrari //*
24 //* wtopph = weight of the photon //*
25 //* poptph = laboratory momentum of the photon in GeV/c //*
26 //* xoptph = x-coordinate of the photon //*
27 //* yoptph = y-coordinate of the photon //*
28 //* zoptph = z-coordinate of the photon //*
29 //* txopph = direction cosine of the photon //*
30 //* with respect to x-axis //*
31 //* tyopph = direction cosine of the photon //*
32 //* with respect to y-axis //*
33 //* tzopph = direction cosine of the photon //*
34 //* with respect to z-axis //*
35 //* txpopp = direction cosine of the photon polarization //*
36 //* typopp = direction cosine of the photon polarization //*
37 //* tzpopp = direction cosine of the photon polarization //*
38 //* donear = distance to the nearest boundary //*
39 //* agopph = age of the photon (seconds) //*
40 //* cmpopp = total path length of the photon (cm) //*
41 //* loopph = generation of the photon //*
42 //* louopp = user flag //*
43 //* nregop = number of the region of the photon //*
44 //* nlatop = number of the lattice cell of the photon //*
45 //* tpropp = kinetic energy of parent particle of the photon //*
46 //* apropp = age of the parent particle of the photon (seconds) //*
47 //* ipropp = id (paprop) of the parent particle of the photon //*
48 //* lpropp = generation of the parent particle of the photon //*
49 //* npropp = # of the primary track which generated the photon //*
50 //* (not used for the moment) //*
51 //* lstopp = stack pointer //*
52 //* lmxopp = highest value of the stack pointer encountered //*
55 //*----------------------------------------------------------------------//*
58 Double_t wtopph [mostck];
59 Double_t poptph [mostck];
60 Double_t xoptph [mostck];
61 Double_t yoptph [mostck];
62 Double_t zoptph [mostck];
63 Double_t txopph [mostck];
64 Double_t tyopph [mostck];
65 Double_t tzopph [mostck];
66 Double_t txpopp [mostck];
67 Double_t typopp [mostck];
68 Double_t tzpopp [mostck];
69 Double_t donear [mostck];
70 Double_t agopph [mostck];
71 Double_t tpropp [mostck];
72 Double_t apropp [mostck];
73 Double_t cmpopp [mostck];
74 Double_t sparok [mostck][mkbmx1];
75 Int_t ispork [mostck][mkbmx2];
76 Int_t loopph [mostck];
77 Int_t louopp [mostck];
78 Int_t nregop [mostck];
79 Int_t nlatop [mostck];
80 Int_t ipropp [mostck];
81 Int_t lpropp [mostck];
82 Int_t npropp [mostck];
87 #define OPPHST COMMON_BLOCK(OPPHST,opphst)
88 COMMON_BLOCK_DEF(opphstCommon, OPPHST);