]>
Commit | Line | Data |
---|---|---|
f827183d | 1 | #ifndef FEMFSTK |
2 | #define FEMFSTK_H 1 | |
3 | ||
4 | #include "Rtypes.h" | |
5 | #include "cfortran.h" | |
6 | ||
7 | #include "Fdimpar.h" | |
8 | extern "C" { | |
9 | //*$ create emfstk.add | |
10 | //*copy emfstk | |
11 | //* | |
12 | //*=== emfstk ===========================================================* | |
13 | //* | |
14 | //*----------------------------------------------------------------------* | |
15 | //* * | |
16 | //* common emfstk (emf stack) for emf * | |
17 | //* * | |
18 | //* last change on 08-oct-97 by alfredo ferrari * | |
19 | //* * | |
20 | //*----------------------------------------------------------------------* | |
21 | //* | |
f827183d | 22 | |
23 | typedef struct { | |
cd4c194d | 24 | Double_t etemf[mestck]; // total energy in MeV |
25 | Double_t pmemf[mestck]; | |
71dd9297 | 26 | Double_t xemf[mestck]; // particle x-coordinate |
27 | Double_t yemf[mestck]; // particle y-coordinate | |
28 | Double_t zemf[mestck]; // particle z-coordinate | |
29 | Double_t uemf[mestck]; // x direction cosine | |
30 | Double_t vemf[mestck]; // y direction cosine | |
31 | Double_t wemf[mestck]; // z direction cosine | |
cd4c194d | 32 | Double_t dnear[mestck]; // equivalent to GEANT "safety" |
33 | Double_t upol[mestck]; // polarisation in x direction | |
34 | Double_t vpol[mestck]; // polarisation in y direction | |
35 | Double_t wpol[mestck]; // polarisation in z direction | |
36 | Double_t usnrml[mestck]; | |
37 | Double_t vsnrml[mestck]; | |
38 | Double_t wsnrml[mestck]; | |
39 | Double_t wtemf[mestck]; // weight | |
40 | Double_t agemf[mestck]; // age | |
5929ad29 | 41 | Double_t cmpemf[mestck]; |
cd4c194d | 42 | Double_t espark[mestck][mkbmx1]; |
71dd9297 | 43 | Double_t rdlyem[mestck]; |
cd4c194d | 44 | Int_t iespak[mestck][mkbmx2]; |
45 | Int_t ichemf[mestck]; // charge | |
46 | Int_t iremf[mestck]; // region | |
47 | Int_t irlatt[mestck]; // lattice cell | |
48 | Int_t nhpemf[mestck]; | |
49 | Int_t lloemf[mestck]; // generation number | |
50 | Int_t louemf[mestck]; | |
71dd9297 | 51 | Int_t lrdemf[mestck]; |
cd4c194d | 52 | Int_t npemf; // number of particles in stack |
f827183d | 53 | Int_t npstrt; // EMF stack index before the interaction (since |
54 | // the projectile disappears it is also the starting | |
55 | // index of secondaries) | |
cd4c194d | 56 | //*d === obsolete variable names === * |
57 | //*d parameter ( idmemf = mestck ) | |
58 | //*d dimension e (idmemf), wt (idmemf), iq (idmemf), ir (idmemf) | |
59 | //*d equivalence ( e (1), etemf (1) ) | |
60 | //*d equivalence ( wt (1), wtemf (1) ) | |
61 | //*d equivalence ( ir (1), iremf (1) ) | |
62 | //*d equivalence ( iq (1), ichemf (1) ) | |
63 | //*d equivalence ( np, npemf ) | |
f827183d | 64 | } emfstkCommon; |
65 | #define EMFSTK COMMON_BLOCK(EMFSTK,emfstk) | |
66 | COMMON_BLOCK_DEF(emfstkCommon,EMFSTK); | |
67 | } | |
68 | #endif |