Minor changes to comply with the new version of AliAltroRawStream (C.Cheshkov)
[u/mrichter/AliRoot.git] / TFluka / Fopphst.h
1 #ifndef OPPHST
2 #define OPPHST_H 1
3
4 #include "Rtypes.h"
5 #include "cfortran.h"
6 #include "Fdimpar.h"
7
8 extern "C" {
9
10 //*$ CREATE OPPHST.ADD
11 //*COPY OPPHST
12 //*
13 //*=== Opphst ===========================================================//*
14 //*
15 //*----------------------------------------------------------------------//*
16 //*                                                                      //*
17 //*     OPtical PHoton STack:                                            //*
18 //*                                                                      //*
19 //*     Created on 19 september 1997 by    Alfredo Ferrari & Paola Sala  //*
20 //*                                                   Infn - Milan       //*
21 //*                                                                      //*
22 //*     Last change on 13-oct-98     by    Alfredo Ferrari               //*
23 //*                                                                      //*
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       //*
53 //*                 in the run                                           //*
54 //*                                                                      //*
55 //*----------------------------------------------------------------------//*
56 //*
57 typedef struct {
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];
83     Int_t    lstopp;
84     Int_t    lmxopp;
85 } opphstCommon;
86
87 #define OPPHST COMMON_BLOCK(OPPHST,opphst)
88 COMMON_BLOCK_DEF(opphstCommon, OPPHST);
89
90 }
91 #endif
92