]>
Commit | Line | Data |
---|---|---|
a879d0cc | 1 | #ifndef FSOURCM_H |
2 | #define FSOURCM_H 1 | |
b9d0a01d | 3 | |
4 | #include "Rtypes.h" | |
5 | #include "cfortran.h" | |
6 | extern "C" { | |
a879d0cc | 7 | //*$ create sourcm.add |
8 | //*copy sourcm | |
b9d0a01d | 9 | //* |
a879d0cc | 10 | //*=== Sourcm ===========================================================* |
b9d0a01d | 11 | //* |
12 | //*----------------------------------------------------------------------* | |
13 | //* * | |
a879d0cc | 14 | //* Include file: sourcm * |
b9d0a01d | 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 * | |
a879d0cc | 23 | //* FLKEND * |
b9d0a01d | 24 | //* EVTDAT * |
25 | //* FEEDER * | |
26 | //* FLUKAM * | |
27 | //* MGDRAW * | |
28 | //* SOURCE * | |
29 | //* * | |
b9d0a01d | 30 | //* * |
31 | //* Whasou(1-18) = user variables * | |
32 | //* Tkesum = total kinetic energy of the primaries of the * | |
33 | //* user written source * | |
34 | //* Lussrc = flag to inform that the user written source was * | |
35 | //* used * | |
36 | //* Sdusou = user character variable * | |
37 | //* Lsouit = source is called iteratively until it is .true. * | |
38 | //* * | |
39 | //*----------------------------------------------------------------------* | |
40 | //* | |
41 | ||
42 | typedef struct { | |
43 | Double_t whasou[18]; | |
44 | Double_t tkesum; | |
45 | Int_t lussrc; | |
46 | Int_t lsouit; | |
a879d0cc | 47 | } sourcmCommon; |
48 | #define SOURCM COMMON_BLOCK(SOURCM,sourcm) | |
49 | COMMON_BLOCK_DEF(sourcmCommon,SOURCM); | |
b9d0a01d | 50 | |
51 | typedef struct { | |
52 | Char_t sdusou[8]; | |
a879d0cc | 53 | } chsocmCommon; |
54 | #define CHSOCM COMMON_BLOCK(CHSOCM,chsocm) | |
55 | COMMON_BLOCK_DEF(chsocmCommon,CHSOCM); | |
641fc77f | 56 | |
57 | typedef struct { | |
58 | Double_t xn[3]; | |
59 | Double_t wn[3]; | |
60 | Double_t distn; | |
61 | Int_t irltno; | |
62 | Int_t irrnor; | |
63 | } norlatCommon; | |
64 | #define NORLAT COMMON_BLOCK(NORLAT,norlat) | |
65 | COMMON_BLOCK_DEF(norlatCommon,NORLAT); | |
a879d0cc | 66 | |
67 | typedef struct { | |
68 | Double_t xb[3]; | |
69 | Double_t wb[3]; | |
70 | Double_t wp[3]; | |
71 | Double_t xp[3]; | |
72 | Double_t rin; | |
73 | Double_t rout; | |
74 | Double_t pinf; | |
75 | Double_t dist; | |
76 | Int_t ir; | |
77 | Int_t idbg; | |
78 | Int_t irprim; | |
79 | Int_t nasc; | |
80 | Int_t lsurf; | |
81 | Int_t nbo; | |
82 | Int_t lri; | |
83 | Int_t lro; | |
84 | Int_t kloop; | |
85 | Int_t loop; | |
86 | Int_t itype; | |
87 | Int_t n0a; | |
88 | } paremCommon; | |
89 | #define PAREM COMMON_BLOCK(PAREM,parem) | |
90 | COMMON_BLOCK_DEF(paremCommon,PAREM); | |
b9d0a01d | 91 | } |
92 | ||
93 | #endif |