]>
Commit | Line | Data |
---|---|---|
b9d0a01d | 1 | #ifndef FEPISOR_H |
2 | #define FEPISOR_H 1 | |
3 | ||
4 | #include "Rtypes.h" | |
5 | #include "cfortran.h" | |
6 | extern "C" { | |
7 | //*$ create episor.add | |
8 | //*copy episor | |
9 | //* | |
10 | //*=== episor ===========================================================* | |
11 | //* | |
12 | //*----------------------------------------------------------------------* | |
13 | //* * | |
14 | //* Include file: episor * | |
15 | //* * | |
16 | //* version march 1996 by Alfredo Ferrari, INFN - Milan * | |
17 | //* * | |
18 | //* Last change on 09-mar-02 by Alfredo Ferrari * | |
19 | //* * | |
20 | //* Included in the following subroutines or functions: * | |
21 | //* * | |
22 | //* BDNOPT * | |
23 | //* EPILOG * | |
24 | //* EVTDAT * | |
25 | //* FEEDER * | |
26 | //* FLUKAM * | |
27 | //* MGDRAW * | |
28 | //* SOURCE * | |
29 | //* * | |
30 | //* Description of the common block(s) and variable(s) * | |
31 | //* * | |
32 | //* Whasou(1-18) = user variables * | |
33 | //* Tkesum = total kinetic energy of the primaries of the * | |
34 | //* user written source * | |
35 | //* Lussrc = flag to inform that the user written source was * | |
36 | //* used * | |
37 | //* Sdusou = user character variable * | |
38 | //* Lsouit = source is called iteratively until it is .true. * | |
39 | //* * | |
40 | //*----------------------------------------------------------------------* | |
41 | //* | |
42 | ||
43 | typedef struct { | |
44 | Double_t whasou[18]; | |
45 | Double_t tkesum; | |
46 | Int_t lussrc; | |
47 | Int_t lsouit; | |
48 | } episorCommon; | |
49 | #define EPISOR COMMON_BLOCK(EPISOR,episor) | |
50 | COMMON_BLOCK_DEF(episorCommon,EPISOR); | |
51 | ||
52 | typedef struct { | |
53 | Char_t sdusou[8]; | |
54 | } chepsrCommon; | |
55 | #define CHEPSR COMMON_BLOCK(CHEPSR,chepsr) | |
56 | COMMON_BLOCK_DEF(chepsrCommon,CHEPSR); | |
641fc77f | 57 | |
58 | typedef struct { | |
59 | Double_t xn[3]; | |
60 | Double_t wn[3]; | |
61 | Double_t distn; | |
62 | Int_t irltno; | |
63 | Int_t irrnor; | |
64 | } norlatCommon; | |
65 | #define NORLAT COMMON_BLOCK(NORLAT,norlat) | |
66 | COMMON_BLOCK_DEF(norlatCommon,NORLAT); | |
b9d0a01d | 67 | } |
68 | ||
69 | #endif |