]>
Commit | Line | Data |
---|---|---|
b1c2e580 | 1 | |
2 | #ifndef HYJETCOMMON | |
3 | #define HYJETCOMMON | |
4 | ||
5 | extern "C" { | |
6 | ||
7 | #define f2cFortran | |
8 | #include "cfortran.h" | |
9 | ||
10 | ||
11 | //---------------------------------------------------------------- | |
12 | // common /hyipar/ bminh,bmaxh,AW,RA,npar0,nbco0,Apb,Rpb,np,init,ipr | |
13 | typedef struct //HYIPAR | |
14 | { | |
15 | Double_t bminh; | |
16 | Double_t bmaxh; | |
17 | Double_t AW; | |
18 | Double_t RA; | |
19 | Double_t npar0; | |
20 | Double_t nbco0; | |
21 | Double_t Apb; | |
22 | Double_t Rpb; | |
23 | Double_t np; | |
24 | Int_t init; | |
25 | Int_t ipr; | |
26 | }HYIPARCommon; | |
27 | ||
28 | #define HYIPAR COMMON_BLOCK(HYIPAR,hyipar) | |
29 | COMMON_BLOCK_DEF(HYIPARCommon, HYIPAR); | |
30 | //---------------------------------------------------------------- | |
31 | ||
32 | // common/service/iseed_fromC,iPythDecay,parPYTH(100) | |
33 | typedef struct //SERVICE | |
34 | { | |
35 | Int_t iseed_fromC; | |
36 | Int_t iPythDecay; | |
37 | Double_t parPYTH[100]; | |
38 | }SERVICECommon; | |
39 | ||
40 | #define SERVICE COMMON_BLOCK(SERVICE,service) | |
41 | COMMON_BLOCK_DEF(SERVICECommon, SERVICE); | |
42 | //---------------------------------------------------------------- | |
43 | ||
44 | // common/SERVICEEV/ipdg,delta | |
45 | ||
46 | typedef struct //SERVICEEV | |
47 | { | |
48 | Float_t delta; | |
49 | Int_t KC; | |
50 | Int_t ipdg; | |
51 | }SERVICEEVCommon; | |
52 | ||
53 | #define SERVICEEV COMMON_BLOCK(SERVICEEV,serviceev) | |
54 | COMMON_BLOCK_DEF(SERVICEEVCommon, SERVICEEV); | |
55 | ||
56 | //---------------------------------------------------------------- | |
57 | ||
58 | // common /hyjpar/ ptmin,sigin,sigjet,nhsel,ishad,njet | |
59 | typedef struct //HYJPAR | |
60 | { | |
61 | Double_t ptmin; | |
62 | Double_t sigin; | |
63 | Double_t sigjet; | |
64 | Int_t nhsel; | |
65 | Int_t ishad; | |
66 | Int_t njet; | |
67 | }HYJPARCommon; | |
68 | ||
69 | #define HYJPAR COMMON_BLOCK(HYJPAR,hyjpar) | |
70 | COMMON_BLOCK_DEF(HYJPARCommon, HYJPAR); | |
71 | //---------------------------------------------------------------- | |
72 | ||
73 | ||
74 | // common /hypyin/ ene,rzta,rnta,bfix,ifb,nh | |
75 | typedef struct //HYPYIN | |
76 | { | |
77 | Double_t ene; | |
78 | Double_t rzta; | |
79 | Double_t rnta; | |
80 | Double_t bfix; | |
81 | Int_t ifb; | |
82 | Int_t nh; | |
83 | }HYPYINCommon; | |
84 | ||
85 | #define HYPYIN COMMON_BLOCK(HYPYIN,hypyin) | |
86 | COMMON_BLOCK_DEF(HYPYINCommon, HYPYIN); | |
87 | ||
88 | ||
89 | //---------------------------------------------------------------- | |
90 | // common /hyfpar/ bgen,nbcol,npart,npyt,nhyd,npart0 | |
91 | typedef struct //HYFPAR | |
92 | { | |
93 | Double_t bgen; | |
94 | Double_t nbcol; | |
95 | Double_t npart; | |
96 | Double_t npart0; | |
97 | Int_t npyt; | |
98 | Int_t nhyd; | |
99 | }HYFPARCommon; | |
100 | ||
101 | #define HYFPAR COMMON_BLOCK(HYFPAR,hyfpar) | |
102 | COMMON_BLOCK_DEF(HYFPARCommon, HYFPAR); | |
103 | ||
104 | //---------------------------------------------------------------- | |
105 | typedef struct //HYPART | |
106 | { | |
107 | Double_t ppart[50000][10]; | |
108 | Double_t bmin; | |
109 | Double_t bmax; | |
110 | Int_t njp; | |
111 | }HYPARTCommon; | |
112 | ||
113 | #define HYPART COMMON_BLOCK(HYPART,hypart) | |
114 | COMMON_BLOCK_DEF(HYPARTCommon, HYPART); | |
115 | //---------------------------------------------------------------- | |
116 | ||
117 | // common /pyqpar/ T0,tau0,nf,ienglu,ianglu | |
118 | ||
119 | typedef struct //PYQPAR | |
120 | { | |
121 | Double_t T0; | |
122 | Double_t tau0; | |
123 | Int_t nf; | |
124 | Int_t ienglu; | |
125 | Int_t ianglu; | |
126 | }PYQPARCommon; | |
127 | ||
128 | #define PYQPAR COMMON_BLOCK(PYQPAR,pyqpar) | |
129 | COMMON_BLOCK_DEF(PYQPARCommon, PYQPAR); | |
130 | ||
131 | } | |
132 | #endif |