| Geant4 Cross Reference |
1 // 1 //
2 // ******************************************* 2 // ********************************************************************
3 // * License and Disclaimer 3 // * License and Disclaimer *
4 // * 4 // * *
5 // * The Geant4 software is copyright of th 5 // * The Geant4 software is copyright of the Copyright Holders of *
6 // * the Geant4 Collaboration. It is provided 6 // * the Geant4 Collaboration. It is provided under the terms and *
7 // * conditions of the Geant4 Software License 7 // * conditions of the Geant4 Software License, included in the file *
8 // * LICENSE and available at http://cern.ch/ 8 // * LICENSE and available at http://cern.ch/geant4/license . These *
9 // * include a list of copyright holders. 9 // * include a list of copyright holders. *
10 // * 10 // * *
11 // * Neither the authors of this software syst 11 // * Neither the authors of this software system, nor their employing *
12 // * institutes,nor the agencies providing fin 12 // * institutes,nor the agencies providing financial support for this *
13 // * work make any representation or warran 13 // * work make any representation or warranty, express or implied, *
14 // * regarding this software system or assum 14 // * regarding this software system or assume any liability for its *
15 // * use. Please see the license in the file 15 // * use. Please see the license in the file LICENSE and URL above *
16 // * for the full disclaimer and the limitatio 16 // * for the full disclaimer and the limitation of liability. *
17 // * 17 // * *
18 // * This code implementation is the result 18 // * This code implementation is the result of the scientific and *
19 // * technical work of the GEANT4 collaboratio 19 // * technical work of the GEANT4 collaboration. *
20 // * 20 // * *
21 // * Parts of this code which have been devel 21 // * Parts of this code which have been developed by Abdel-Waged *
22 // * et al under contract (31-465) to the King 22 // * et al under contract (31-465) to the King Abdul-Aziz City for *
23 // * Science and Technology (KACST), the Natio 23 // * Science and Technology (KACST), the National Centre of *
24 // * Mathematics and Physics (NCMP), Saudi Ara 24 // * Mathematics and Physics (NCMP), Saudi Arabia. *
25 // * 25 // * *
26 // * By using, copying, modifying or distri 26 // * By using, copying, modifying or distributing the software (or *
27 // * any work based on the software) you ag 27 // * any work based on the software) you agree to acknowledge its *
28 // * use in resulting scientific publicati 28 // * use in resulting scientific publications, and indicate your *
29 // * acceptance of all terms of the Geant4 Sof 29 // * acceptance of all terms of the Geant4 Software license. *
30 // ******************************************* 30 // ********************************************************************
31 // 31 //
32 /// \file hadronic/Hadr02/include/G4UrQMD1_3In 32 /// \file hadronic/Hadr02/include/G4UrQMD1_3Interface.hh
33 /// \brief Definition of the G4UrQMD1_3Interfa 33 /// \brief Definition of the G4UrQMD1_3Interface class
34 // 34 //
>> 35 // $Id: G4UrQMD1_3Interface.hh 77519 2013-11-25 10:54:57Z gcosmo $
35 // 36 //
36 37
37 #ifndef G4UrQMD1_3Interface_hh 38 #ifndef G4UrQMD1_3Interface_hh
38 #define G4UrQMD1_3Interface_hh 39 #define G4UrQMD1_3Interface_hh
39 40
40 // %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 41 // %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41 // 42 //
42 // MODULE: G4UrQMD1_3Model.hh 43 // MODULE: G4UrQMD1_3Model.hh
43 // 44 //
44 // Version: 0.B 45 // Version: 0.B
45 // Date: 20/12/12 46 // Date: 20/12/12
46 // Author: Kh. Abdel-Waged and Nuha 47 // Author: Kh. Abdel-Waged and Nuha Felemban
47 // Revised by: V.V. Uzhinskii 48 // Revised by: V.V. Uzhinskii
48 // SPONSERED BY 49 // SPONSERED BY
49 // Customer: KAUST/NCMP 50 // Customer: KAUST/NCMP
50 // Contract: 31-465 51 // Contract: 31-465
51 // 52 //
52 // %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 53 // %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 // 54 //
54 // 55 //
55 // Class Description 56 // Class Description
56 // 57 //
57 // 58 //
58 // Class Description - End 59 // Class Description - End
59 // 60 //
60 // %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 61 // %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61 ////////////////////////////////////////////// 62 ///////////////////////////////////////////////////////////////////////////////
62 63
63 #include "G4SystemOfUnits.hh" <<
64 #include "globals.hh" 64 #include "globals.hh"
>> 65 #include "G4SystemOfUnits.hh"
65 66
66 // coms 67 // coms
67 // 68 //
68 const G4int nmax = 500; << 69 const G4int nmax = 500;
69 const G4int nspl = 500; << 70 const G4int nspl = 500;
70 const G4int smax = 500; << 71 const G4int smax = 500;
71 // comres 72 // comres
72 const G4int minnuc = 1; << 73 const G4int minnuc=1;
73 const G4int minmes = 100; << 74 const G4int minmes=100;
74 const G4int maxmes = 132; << 75 const G4int maxmes=132;
75 const G4int numnuc = 16; << 76 const G4int numnuc=16;
76 const G4int numdel = 10; << 77 const G4int numdel=10;
77 const G4int maxnuc = minnuc + numnuc - 1; << 78 const G4int maxnuc=minnuc+numnuc-1;
78 const G4int mindel = minnuc + maxnuc; << 79 const G4int mindel=minnuc+maxnuc;
79 const G4int maxdel = mindel + numdel - 1; << 80 const G4int maxdel=mindel+numdel-1;
80 const G4int minres = minnuc + 1; << 81 const G4int minres=minnuc+1;
81 const G4int maxres = maxdel; << 82 const G4int maxres=maxdel;
82 const G4int numlam = 13; << 83 const G4int numlam=13;
83 const G4int numsig = 9; << 84 const G4int numsig=9;
84 const G4int numcas = 6; << 85 const G4int numcas=6;
85 const G4int numome = 1; << 86 const G4int numome=1;
86 const G4int minlam = mindel + numdel; << 87 const G4int minlam=mindel+numdel;
87 const G4int maxlam = minlam + numlam - 1; << 88 const G4int maxlam=minlam+numlam-1;
88 const G4int minsig = minlam + numlam; << 89 const G4int minsig=minlam+numlam;
89 const G4int maxsig = minsig + numsig - 1; << 90 const G4int maxsig=minsig+numsig-1;
90 const G4int mincas = minsig + numsig; << 91 const G4int mincas=minsig+numsig;
91 const G4int maxcas = mincas + numcas - 1; << 92 const G4int maxcas=mincas+numcas-1;
92 const G4int minome = mincas + numcas; << 93 const G4int minome=mincas+numcas;
93 const G4int maxome = minome + numome - 1; << 94 const G4int maxome=minome+numome-1;
94 const G4int minbar = minnuc; << 95 const G4int minbar=minnuc;
95 const G4int maxbar = maxome; << 96 const G4int maxbar=maxome;
96 const G4int offmeson = minmes; << 97 const G4int offmeson=minmes;
97 const G4int maxmeson = maxmes; << 98 const G4int maxmeson=maxmes;
98 const G4int maxbra = 11; << 99 const G4int maxbra=11;
99 const G4int maxbrm = 25; << 100 const G4int maxbrm=25;
100 const G4int maxbrs1 = 10; << 101 const G4int maxbrs1=10;
101 const G4int maxbrs2 = 3; << 102 const G4int maxbrs2=3;
102 const G4int nsigs = 10; << 103 const G4int nsigs = 10;
103 const G4int itblsz = 100; << 104 const G4int itblsz= 100;
104 const G4int maxreac = 13; << 105 const G4int maxreac = 13;
105 const G4int maxpsig = 12; << 106 const G4int maxpsig = 12;
106 // << 107 //
107 // comwid << 108 //comwid
108 // << 109 //
109 const G4int widnsp = 120; << 110 const G4int widnsp=120;
110 const G4double mintab = 0.10; << 111 const G4double mintab=0.10;
111 const G4double maxtab1 = 5.0; << 112 const G4double maxtab1=5.0;
112 const G4double maxtab2 = 50.0; << 113 const G4double maxtab2=50.0;
113 const G4int tabver = 9; << 114 const G4int tabver=9;
114 // 115 //
115 // options 116 // options
116 // 117 //
117 const G4int numcto = 400; << 118 const G4int numcto=400;
118 const G4int numctp = 400; << 119 const G4int numctp=400;
119 const G4int maxstables = 20; << 120 const G4int maxstables=20;
120 // 121 //
121 // colltab (collision tables) 122 // colltab (collision tables)
122 // 123 //
123 const G4int ncollmax = 100; 124 const G4int ncollmax = 100;
124 // << 125 //
125 // inputs 126 // inputs
126 // 127 //
127 const G4int aamax = 300; << 128 const G4int aamax=300;
128 // 129 //
129 // newpart (new created particles) 130 // newpart (new created particles)
130 // 131 //
131 const G4int mprt = 200; << 132 const G4int mprt=200;
132 const G4int oprt = 2; << 133 const G4int oprt=2;
133 // 134 //
134 // boxinc 135 // boxinc
135 // 136 //
136 const G4int bptmax = 20; << 137 const G4int bptmax=20;
137 // 138 //
138 139
139 // This next line is required as the default v 140 // This next line is required as the default version of FORTRAN LOGICAL is
140 // four bytes long, whereas storage for G4bool 141 // four bytes long, whereas storage for G4bool is one byte.
141 // 142 //
142 // comnorm 143 // comnorm
143 const G4int n = 400; 144 const G4int n = 400;
144 // 145 //
145 // comstr 146 // comstr
146 const G4int njspin = 8; << 147 const G4int njspin=8;
147 // 148 //
148 // iso << 149 //iso
149 const G4int jmax = 7; << 150 const G4int jmax=7;
150 151
151 // This next line is required as the default v 152 // This next line is required as the default version of FORTRAN LOGICAL is
152 // four bytes long, whereas storage for G4bool 153 // four bytes long, whereas storage for G4bool is one byte.
153 // 154 //
154 155
155 typedef G4int ftnlogical; 156 typedef G4int ftnlogical;
156 157
157 //....oooOO0OOooo........oooOO0OOooo........oo 158 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
158 // 159 //
159 // Standard common block for UrQMD 160 // Standard common block for UrQMD
160 // Common options for coms.f 161 // Common options for coms.f
161 // 20 commons 162 // 20 commons
162 // 163 //
163 // 164 //
164 struct ccurqmd13urqmdparams 165 struct ccurqmd13urqmdparams
165 { 166 {
166 G4int u_at, u_zt, u_ap, u_zp; << 167 G4int u_at,u_zt,u_ap,u_zp;
167 G4double u_elab, u_imp; << 168 G4double u_elab,u_imp;
168 G4int u_sptar, u_spproj; << 169 G4int u_sptar,u_spproj;
169 }; 170 };
170 171
171 //....oooOO0OOooo........oooOO0OOooo........oo 172 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
172 173
173 struct ccurqmd13sys 174 struct ccurqmd13sys
174 { << 175 {
175 G4int npart, nbar, nmes, ctag, nsteps, uid << 176 G4int npart, nbar, nmes, ctag,nsteps,uid_cnt,
176 nhardres, nsoftres, ndecres, nelcoll, nb << 177 ranseed,event,ap,at,zp,zt,eos,dectag,
>> 178 nhardres, nsoftres, ndecres, nelcoll, nblcoll;
177 }; 179 };
178 180
179 //....oooOO0OOooo........oooOO0OOooo........oo 181 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
180 182
181 struct ccurqmd13rsys 183 struct ccurqmd13rsys
182 { 184 {
183 G4double time, acttime, bdist, bimp, bmin, << 185 G4double time,acttime,bdist,bimp,bmin,ebeam,ecm;
184 }; 186 };
185 187
186 struct ccurqmd13comseed 188 struct ccurqmd13comseed
187 { 189 {
188 ftnlogical firstseed; << 190 ftnlogical firstseed;
189 }; 191 };
190 192
191 //....oooOO0OOooo........oooOO0OOooo........oo 193 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
192 194
193 struct ccurqmd13logic 195 struct ccurqmd13logic
194 { 196 {
195 ftnlogical lsct[nmax], logSky, logYuk, log << 197 ftnlogical lsct[nmax], logSky, logYuk, logCb, logPau;
196 }; 198 };
197 199
198 //....oooOO0OOooo........oooOO0OOooo........oo 200 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
199 201
200 struct ccurqmd13mdprop 202 struct ccurqmd13mdprop
201 { 203 {
202 G4double r0_t[nmax], rx_t[nmax], ry_t[nmax << 204 G4double r0_t[nmax], rx_t[nmax], ry_t[nmax], rz_t[nmax];
203 }; 205 };
204 206
205 //....oooOO0OOooo........oooOO0OOooo........oo 207 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
206 208
207 struct ccurqmd13cuts 209 struct ccurqmd13cuts
208 { 210 {
209 G4double cutmax, cutPau, cutCb, cutYuk, cu << 211 G4double cutmax, cutPau, cutCb, cutYuk, cutSky, cutdww;
210 }; 212 };
211 213
212 //....oooOO0OOooo........oooOO0OOooo........oo 214 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
213 215
214 struct ccurqmd13spdata 216 struct ccurqmd13spdata
215 { 217 {
216 G4double spx[nspl], spPauy[nspl], outPau[n << 218 G4double spx[nspl], spPauy[nspl], outPau[nspl],
217 outYuk[nspl], spSkyy[nspl], outSky[nspl] << 219 spCby[nspl], outCb[nspl],
>> 220 spYuky[nspl], outYuk[nspl],
>> 221 spSkyy[nspl], outSky[nspl],
>> 222 spdwwy[nspl], outdww[nspl];
218 }; 223 };
219 224
220 //....oooOO0OOooo........oooOO0OOooo........oo 225 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
221 226
222 struct ccurqmd13isys 227 struct ccurqmd13isys
223 { 228 {
224 G4int spin[nmax], ncoll[nmax], charge[nmax << 229
225 origin[nmax], strid[nmax], uid[nmax]; << 230 G4int spin[nmax],ncoll[nmax],charge[nmax],ityp[nmax],
>> 231 lstcoll[nmax],
>> 232 iso3[nmax],origin[nmax],strid[nmax],uid[nmax];
226 }; 233 };
227 234
228 //....oooOO0OOooo........oooOO0OOooo........oo 235 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
229 236
230 struct ccurqmd13coor 237 struct ccurqmd13coor
231 { 238 {
232 G4double r0[nmax], rx[nmax], ry[nmax], rz[ << 239 G4double r0[nmax], rx[nmax], ry[nmax], rz[nmax],
233 fmass[nmax], rww[nmax], dectime[nmax]; << 240 p0[nmax], px[nmax], py[nmax], pz[nmax],
>> 241 fmass[nmax], rww[nmax],dectime[nmax];
234 }; 242 };
235 243
236 //....oooOO0OOooo........oooOO0OOooo........oo 244 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
237 245
238 struct ccurqmd13frag 246 struct ccurqmd13frag
239 { 247 {
240 G4double tform[nmax], xtotfac[nmax]; << 248 G4double tform[nmax], xtotfac[nmax];
241 }; 249 };
242 250
243 //....oooOO0OOooo........oooOO0OOooo........oo 251 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
244 252
245 struct ccurqmd13aios 253 struct ccurqmd13aios
246 { 254 {
247 G4double airx[nmax], airy[nmax], airz[nmax << 255 G4double airx[nmax], airy[nmax], airz[nmax],
248 aory[4][nmax], aorz[4][nmax], aopx[4][nm << 256 aipx[nmax], aipy[nmax], aipz[nmax],
>> 257 aorx [4][nmax], aory[4][nmax], aorz[4][nmax],
>> 258 aopx[4][nmax], aopy[4][nmax], aopz[4][nmax];
249 }; 259 };
250 260
251 //....oooOO0OOooo........oooOO0OOooo........oo 261 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
252 262
253 struct ccurqmd13pots 263 struct ccurqmd13pots
254 { 264 {
255 G4double Cb0, Yuk0, Pau0, Sky20, Sky30, ga << 265 G4double Cb0, Yuk0, Pau0, Sky20, Sky30, gamSky,
256 da, db, dtimestep; << 266 gamYuk, drPau, dpPau, gw, sgw, delr, fdel,
>> 267 dt,da, db,dtimestep;
257 }; 268 };
258 269
259 //....oooOO0OOooo........oooOO0OOooo........oo 270 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
260 271
261 struct ccurqmd13scoor 272 struct ccurqmd13scoor
262 { 273 {
263 G4double r0s[smax], rxs[smax], rys[smax], << 274 G4double r0s[smax], rxs[smax], rys[smax], rzs[smax],
264 sfmass[smax]; << 275 p0s[smax], pxs[smax], pys[smax], pzs[smax],
>> 276 sfmass[smax];
265 }; 277 };
266 278
267 //....oooOO0OOooo........oooOO0OOooo........oo 279 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
268 280
269 struct ccurqmd13sisys 281 struct ccurqmd13sisys
270 { 282 {
271 G4int sspin[smax], scharge[smax], sityp[sm << 283 G4int sspin[smax], scharge[smax], sityp[smax], siso3[smax],
>> 284 suid[smax];
272 }; 285 };
273 286
274 //....oooOO0OOooo........oooOO0OOooo........oo 287 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
275 288
276 struct ccurqmd13ssys 289 struct ccurqmd13ssys
277 { 290 {
278 G4int nspec; << 291 G4int nspec;
279 }; 292 };
280 293
281 //....oooOO0OOooo........oooOO0OOooo........oo 294 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
282 295
283 struct ccurqmd13rtdelay 296 struct ccurqmd13rtdelay
284 { 297 {
285 G4double p0td[nmax][2], pxtd[nmax][2], pyt << 298 G4double p0td[nmax][2],pxtd[nmax][2],pytd[nmax][2],pztd[nmax][2],
>> 299 fmasstd[nmax][2];
286 }; 300 };
287 301
288 //....oooOO0OOooo........oooOO0OOooo........oo 302 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
289 303
290 struct ccurqmd13itdelay 304 struct ccurqmd13itdelay
291 { 305 {
292 G4int ityptd[nmax][2], iso3td[nmax][2]; << 306 G4int ityptd[nmax][2],iso3td[nmax][2];
293 }; 307 };
294 308
295 //....oooOO0OOooo........oooOO0OOooo........oo 309 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
296 310
297 struct ccurqmd13svinfo 311 struct ccurqmd13svinfo
298 { 312 {
299 G4int itypt[2], uidt[2], origint[2], iso3t << 313 G4int itypt[2],uidt[2],origint[2],iso3t[2];
300 }; 314 };
301 315
302 //....oooOO0OOooo........oooOO0OOooo........oo 316 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
303 317
304 struct ccurqmd13ffermi 318 struct ccurqmd13ffermi
305 { 319 {
306 G4double ffermpx[nmax], ffermpy[nmax], ffe << 320 G4double ffermpx[nmax], ffermpy[nmax], ffermpz[nmax];
307 }; 321 };
308 322
309 //....oooOO0OOooo........oooOO0OOooo........oo 323 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
310 324
311 struct ccurqmd13peq 325 struct ccurqmd13peq
312 { 326 {
313 G4double peq1, peq2; << 327 G4double peq1, peq2;
314 }; 328 };
315 329
316 //....oooOO0OOooo........oooOO0OOooo........oo 330 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
317 // 331 //
318 // Definition for Collision Term 332 // Definition for Collision Term
319 // Commons comres 333 // Commons comres
320 // 4 commons 334 // 4 commons
321 // 335 //
322 336
323 struct ccurqmd13versioning 337 struct ccurqmd13versioning
324 { 338 {
325 char versiontag[45]; << 339 char versiontag[45];
326 }; 340 };
327 341
328 //....oooOO0OOooo........oooOO0OOooo........oo 342 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
329 343
330 struct ccurqmd13resonances 344 struct ccurqmd13resonances
331 { 345 {
332 G4double massres[maxbar - minbar + 1], wid << 346
333 G4double massmes[maxmes - minmes + 1]; << 347 G4double massres[maxbar-minbar+1],widres[maxbar-minbar+1];
334 G4double widmes[maxmes - minmes + 1]; << 348 G4double massmes[maxmes-minmes+1];
335 G4double mmesmn[maxmes - minmes + 1]; << 349 G4double widmes[maxmes-minmes+1];
336 G4double branres[maxdel - minnuc][maxbra + << 350 G4double mmesmn[maxmes-minmes+1];
337 G4double branmes[maxmes - minmes][maxbrm + << 351 G4double branres[maxdel-minnuc][maxbra+1];
338 << 352 G4double branmes[maxmes-minmes][maxbrm+1];
339 G4double branbs1[maxsig - minlam][maxbrs1 << 353
340 G4double branbs2[maxcas - mincas][maxbrs2 << 354 G4double branbs1[maxsig-minlam][maxbrs1+1];
341 << 355 G4double branbs2[maxcas-mincas][maxbrs2+1];
342 G4int bs1type[maxbrs1 + 1][4], bs2type[max << 356
343 G4int lbs1[maxsig - minlam][maxbrs1 + 1]; << 357 G4int bs1type[maxbrs1+1][4],bs2type[maxbrs2+1][4];
344 G4int lbs2[maxcas - mincas][maxbrs2 + 1]; << 358 G4int lbs1[maxsig-minlam][maxbrs1+1];
345 G4int lbm[maxmes - minmes][maxbrm + 1]; << 359 G4int lbs2[maxcas-mincas][maxbrs2+1];
346 << 360 G4int lbm[maxmes-minmes][maxbrm+1];
347 G4int jres[maxbar - minbar + 1]; << 361
348 G4int jmes[maxmes - minmes + 1]; << 362 G4int jres[maxbar-minbar+1];
349 G4int lbr[maxdel - minnuc][maxbra + 1]; << 363 G4int jmes[maxmes-minmes+1];
350 G4int brtype[maxbra + 1][4]; << 364 G4int lbr[maxdel-minnuc][maxbra+1];
351 G4int pares[maxbar - minbar + 1], pames[ma << 365 G4int brtype[maxbra+1][4];
352 G4int bmtype[maxbrm + 1][4]; << 366 G4int pares[maxbar-minbar+1],pames[maxmes-minmes+1];
353 G4int isores[maxbar - minbar + 1], isomes[ << 367 G4int bmtype[maxbrm+1][4];
354 G4int strres[maxbar - minbar + 1], strmes[ << 368 G4int isores[maxbar-minbar+1], isomes[maxmes-minmes+1];
355 G4int mlt2it[maxmes - minmes]; << 369 G4int strres[maxbar-minbar+1],strmes[maxmes-minmes+1];
>> 370 G4int mlt2it[maxmes-minmes];
356 }; 371 };
357 372
358 //....oooOO0OOooo........oooOO0OOooo........oo 373 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
359 374
360 struct ccurqmd13sigtabi 375 struct ccurqmd13sigtabi
361 { 376 {
362 G4int sigmaln[maxreac][2][maxpsig]; << 377 G4int sigmaln[maxreac][2][maxpsig];
363 G4int sigmainf[20][nsigs]; << 378 G4int sigmainf[20][nsigs];
364 }; 379 };
365 380
366 //....oooOO0OOooo........oooOO0OOooo........oo 381 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
367 382
368 struct ccurqmd13sigtabr << 383 struct ccurqmd13sigtabr
369 { 384 {
370 G4double sigmas[itblsz][nsigs], sigmascal[ << 385 G4double sigmas[itblsz][nsigs],sigmascal[5][nsigs];
371 }; 386 };
372 387
373 //....oooOO0OOooo........oooOO0OOooo........oo 388 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
374 389
375 // comwid << 390 //comwid
376 struct ccurqmd13decaywidth 391 struct ccurqmd13decaywidth
377 { 392 {
378 G4double tabx[widnsp]; << 393 G4double tabx [widnsp];
379 G4double fbtaby[2][maxbar - minbar + 1][wi << 394 G4double fbtaby [2][maxbar-minbar+1][widnsp];
380 G4double pbtaby[maxbra + 1][maxbar - minba << 395 G4double pbtaby[maxbra+1][maxbar-minbar+1][2][widnsp];
381 G4double fmtaby[2][maxmes - minmes + 1][wi << 396 G4double fmtaby [2][maxmes-minmes+1][widnsp];
382 G4double pmtaby[maxbrm + 1][maxmes - minme << 397 G4double pmtaby [maxbrm+1][maxmes-minmes+1][2][widnsp];
383 G4int wtabflg; << 398 G4int wtabflg;
>> 399
384 }; 400 };
385 401
386 //....oooOO0OOooo........oooOO0OOooo........oo 402 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
387 403
388 struct ccurqmd13brwignorm 404 struct ccurqmd13brwignorm
389 { 405 {
390 G4double bwbarnorm[maxbar - minbar + 1]; << 406 G4double bwbarnorm[maxbar-minbar+1];
391 G4double bwmesnorm[maxmes - minmes + 1]; << 407 G4double bwmesnorm[maxmes-minmes+1];
392 }; 408 };
393 409
394 //....oooOO0OOooo........oooOO0OOooo........oo 410 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
395 411
396 struct ccurqmd13xsections 412 struct ccurqmd13xsections
397 { 413 {
398 G4double tabxnd[widnsp]; << 414 G4double tabxnd [widnsp];
399 G4double frrtaby[maxdel - 1][2][2][widnsp] << 415 G4double frrtaby[maxdel-1][2][2][widnsp];
400 }; 416 };
401 417
402 //....oooOO0OOooo........oooOO0OOooo........oo 418 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
403 419
404 struct ccurqmd13tabnames 420 struct ccurqmd13tabnames
405 { 421 {
406 char tabname[77]; << 422 char tabname[77];
407 }; 423 };
408 424
409 //....oooOO0OOooo........oooOO0OOooo........oo 425 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
410 // 426 //
411 // options 427 // options
412 // 428 //
413 struct ccurqmd13options 429 struct ccurqmd13options
414 { 430 {
415 G4int CTOption[numcto]; << 431 G4int CTOption[numcto];
416 G4double CTParam[numctp]; << 432 G4double CTParam[numctp];
417 }; 433 };
418 434
419 //....oooOO0OOooo........oooOO0OOooo........oo 435 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
420 436
421 struct ccurqmd13optstrings 437 struct ccurqmd13optstrings
422 { 438 {
423 char ctodc[numcto][2]; << 439 char ctodc[numcto][2];
424 char ctpdc[numctp][2]; << 440 char ctpdc[numctp][2];
425 }; 441 };
426 442
427 //....oooOO0OOooo........oooOO0OOooo........oo 443 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
428 444
429 struct ccurqmd13loptions 445 struct ccurqmd13loptions
430 { 446 {
431 ftnlogical fixedseed, bf13, bf14, bf15, bf << 447 ftnlogical fixedseed,bf13,bf14,bf15,bf16,bf17,bf18,bf19,
>> 448 bf20;
432 }; 449 };
433 450
434 //....oooOO0OOooo........oooOO0OOooo........oo 451 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
435 452
436 struct ccurqmd13stables 453 struct ccurqmd13stables
437 { 454 {
438 G4int nstable; << 455 G4int nstable;
439 G4int stabvec[maxstables]; << 456 G4int stabvec[maxstables];
440 }; 457 };
441 458
442 //....oooOO0OOooo........oooOO0OOooo........oo 459 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
443 // 460 //
444 // colltab << 461 //colltab
445 // 462 //
446 struct ccurqmd13colltab 463 struct ccurqmd13colltab
447 { 464 {
448 G4double cttime[ncollmax + 1], ctsqrts[nco << 465 G4double cttime[ncollmax+1],ctsqrts[ncollmax],
449 G4int cti1[ncollmax], cti2[ncollmax]; << 466 ctsigtot[ncollmax],tmin;
450 G4int nct, actcol; << 467 G4int cti1[ncollmax],cti2[ncollmax];
451 ftnlogical ctvalid[ncollmax]; << 468 G4int nct,actcol;
452 G4int ctsav[ncollmax]; << 469 ftnlogical ctvalid[ncollmax];
453 G4int nsav, apt; << 470 G4int ctsav[ncollmax];
454 G4double ctcolfluc[ncollmax]; << 471 G4int nsav,apt;
>> 472 G4double ctcolfluc[ncollmax];
455 }; 473 };
456 474
457 //....oooOO0OOooo........oooOO0OOooo........oo 475 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
458 // 476 //
459 // inputs 477 // inputs
460 // 478 //
461 struct ccurqmd13inputs 479 struct ccurqmd13inputs
462 { 480 {
463 G4int nevents, spityp[2], prspflg; << 481 G4int nevents,spityp[2],prspflg;
464 G4int trspflg, spiso3[2], outsteps, bflag, << 482 G4int trspflg,spiso3[2],outsteps,bflag,srtflag,efuncflag;
465 G4int nsrt, firstev, npb; << 483 G4int nsrt,firstev,npb;
466 }; 484 };
467 485
468 //....oooOO0OOooo........oooOO0OOooo........oo 486 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
469 487
470 struct ccurqmd13input2 488 struct ccurqmd13input2
471 { 489 {
472 G4double srtmin, srtmax, pbeam, betann, be << 490 G4double srtmin,srtmax,pbeam,betann,betatar,betapro;
473 G4double pbmin, pbmax; << 491 G4double pbmin,pbmax;
474 }; 492 };
475 493
476 //....oooOO0OOooo........oooOO0OOooo........oo 494 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
477 495
478 struct ccurqmd13protarints 496 struct ccurqmd13protarints
479 { 497 {
480 G4int pt_iso3[2][aamax], pt_ityp[2][aamax] << 498 G4int pt_iso3[2][aamax],pt_ityp[2][aamax],pt_spin[2][aamax];
481 G4int pt_charge[2][aamax], pt_aa[2], pt_ui << 499 G4int pt_charge[2][aamax],pt_aa[2],pt_uid[2][aamax];
482 }; 500 };
483 501
484 //....oooOO0OOooo........oooOO0OOooo........oo 502 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
485 503
486 struct ccurqmd13protarreals 504 struct ccurqmd13protarreals
487 { 505 {
488 G4double pt_r0[2][aamax], pt_rx[2][aamax], << 506 G4double pt_r0[2][aamax],pt_rx[2][aamax],pt_ry[2][aamax],
489 pt_dectime[2][aamax]; << 507 pt_rz[2][aamax],pt_fmass[2][aamax],pt_dectime[2][aamax];
490 G4double pt_p0[2][aamax], pt_px[2][aamax], << 508 G4double pt_p0[2][aamax],pt_px[2][aamax],pt_py[2][aamax],
491 G4double pt_rho[2][aamax]; << 509 pt_pz[2][aamax];
492 G4double pt_pmax[2][aamax]; << 510 G4double pt_rho[2][aamax];
>> 511 G4double pt_pmax[2][aamax];
493 }; 512 };
494 513
495 //....oooOO0OOooo........oooOO0OOooo........oo 514 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
496 515
497 // newpart 516 // newpart
498 struct ccurqmd13inewpart 517 struct ccurqmd13inewpart
499 { 518 {
500 G4int itypnew[mprt], i3new[mprt], itot[mpr << 519 G4int itypnew[mprt],i3new[mprt],itot[mprt],inew[mprt],nexit;
501 G4int iline, strcount, pslot[oprt], nstrin << 520 G4int iline,strcount,pslot[oprt],nstring1, nstring2,
502 iso3old[oprt]; << 521 sidnew[mprt],itypold[oprt],iso3old[oprt];
503 }; 522 };
504 523
505 //....oooOO0OOooo........oooOO0OOooo........oo 524 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
506 525
507 struct ccurqmd13rnewpart 526 struct ccurqmd13rnewpart
508 { 527 {
509 G4double pnew[mprt][5], xnew[mprt][4], bet << 528 G4double pnew[mprt][5],xnew[mprt][4],betax,betay,betaz,
510 pznn, pnn, mstring[2], pnnout, xtotfacol << 529 pold[oprt][5],p0nn,pxnn,pynn,pznn,pnn, mstring[2],
>> 530 pnnout,xtotfacold[oprt];
511 }; 531 };
512 532
513 //....oooOO0OOooo........oooOO0OOooo........oo 533 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
514 534
515 struct ccurqmd13fnewpart 535 struct ccurqmd13fnewpart
516 { 536 {
517 G4double leadfac[mprt]; << 537 G4double leadfac[mprt];
518 }; 538 };
519 539
520 //....oooOO0OOooo........oooOO0OOooo........oo 540 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
521 // 541 //
522 // boxinc 542 // boxinc
523 // 543 //
524 struct ccurqmd13boxic 544 struct ccurqmd13boxic
525 { 545 {
526 G4int cbox; << 546 G4int cbox;
527 G4int boxflag; << 547 G4int boxflag;
528 G4int mbox; << 548 G4int mbox;
529 G4int bptityp[bptmax], bptiso3[bptmax], bp << 549 G4int bptityp[bptmax],bptiso3[bptmax],bptpart[bptmax];
530 G4int edensflag, para, solid, mbflag, mtes << 550 G4int edensflag,para,solid, mbflag,mtest;
531 }; 551 };
532 552
533 //....oooOO0OOooo........oooOO0OOooo........oo 553 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
534 554
535 struct ccurqmd13boxrc 555 struct ccurqmd13boxrc
536 { 556 {
537 G4double bptpmax[bptmax]; << 557 G4double bptpmax[bptmax];
538 G4double edens; << 558 G4double edens;
539 G4double lbox; << 559 G4double lbox;
540 G4double lboxhalbe; << 560 G4double lboxhalbe;
541 G4double lboxd; << 561 G4double lboxd;
542 G4double mbp0, mbpx, mbpy, mbpz; << 562 G4double mbp0, mbpx, mbpy, mbpz;
543 }; 563 };
544 564
545 //....oooOO0OOooo........oooOO0OOooo........oo 565 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
546 // comnorm 566 // comnorm
547 struct ccurqmd13normsplin 567 struct ccurqmd13normsplin
548 { 568 {
549 G4double x_norm[n][4], y_norm[n][4]; << 569 G4double x_norm[n][4],y_norm[n][4];
550 G4double y2a[n][4], y2b[n][4], dx; << 570 G4double y2a[n][4],y2b[n][4], dx;
551 }; 571 };
552 572
553 //....oooOO0OOooo........oooOO0OOooo........oo 573 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
554 // comstr 574 // comstr
555 struct ccurqmd13FRGSPA 575 struct ccurqmd13FRGSPA
556 { 576 {
557 G4double pjspns, pmix1s[njspin][3], pmix2s << 577 G4double pjspns, pmix1s[njspin][3], pmix2s[njspin][3], pbars, parqls, parrs;
558 }; 578 };
559 579
560 //....oooOO0OOooo........oooOO0OOooo........oo 580 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
561 581
562 struct ccurqmd13FRGCPA 582 struct ccurqmd13FRGCPA
563 { 583 {
564 G4double pjspnc, pmix1c[njspin][3], pmix2c << 584 G4double pjspnc, pmix1c[njspin][3], pmix2c[njspin][3], pbarc;
565 }; 585 };
566 586
567 //....oooOO0OOooo........oooOO0OOooo........oo 587 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
568 588
569 struct ccurqmd13coparm 589 struct ccurqmd13coparm
570 { 590 {
571 G4double parm[njspin]; << 591 G4double parm[njspin];
572 }; 592 };
573 593
574 //....oooOO0OOooo........oooOO0OOooo........oo 594 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
575 595
576 struct ccurqmd13const 596 struct ccurqmd13const
577 { 597 {
578 G4double pi; << 598 G4double pi;
579 }; 599 };
580 600
581 //....oooOO0OOooo........oooOO0OOooo........oo 601 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
582 //// freezeout 602 //// freezeout
583 // 603 //
584 struct ccurqmd13frcoor 604 struct ccurqmd13frcoor
585 { 605 {
586 G4double frr0[nmax], frrx[nmax], frry[nmax << 606 G4double frr0[nmax], frrx[nmax], frry[nmax], frrz[nmax],
587 frpz[nmax]; << 607 frp0[nmax], frpx[nmax], frpy[nmax], frpz[nmax];
588 }; 608 };
589 609
590 //....oooOO0OOooo........oooOO0OOooo........oo 610 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
591 // input 611 // input
592 struct ccurqmd13values 612 struct ccurqmd13values
593 { 613 {
594 G4double valint[1]; << 614 G4double valint[1];
595 }; 615 };
596 616
597 //....oooOO0OOooo........oooOO0OOooo........oo 617 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
598 // cascinit 618 // cascinit
599 struct ccurqmd13ini 619 struct ccurqmd13ini
600 { 620 {
601 ftnlogical bcorr; << 621 ftnlogical bcorr;
602 }; 622 };
603 623
604 //....oooOO0OOooo........oooOO0OOooo........oo 624 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
605 // iso 625 // iso
606 struct ccurqmd13factorials 626 struct ccurqmd13factorials
607 { 627 {
608 G4double logfak[101]; << 628 G4double logfak[101];
609 }; 629 };
610 630
611 //....oooOO0OOooo........oooOO0OOooo........oo 631 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
612 struct ccurqmd13cgks 632 struct ccurqmd13cgks
613 { 633 {
614 G4double cgktab[jmax + 1][2 * jmax + 1][2 << 634 G4double cgktab[jmax+1][2*jmax+1][2*jmax+1][jmax+1][jmax+1];
615 }; 635 };
616 636
617 //....oooOO0OOooo........oooOO0OOooo........oo 637 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
618 // UrQMD 638 // UrQMD
619 // 639 //
620 struct ccurqmd13energies 640 struct ccurqmd13energies
621 { 641 {
622 G4double ekinbar, ekinmes, esky2, esky3, e << 642 G4double ekinbar, ekinmes, esky2, esky3, eyuk, ecb, epau;
623 }; 643 };
624 644
625 //....oooOO0OOooo........oooOO0OOooo........oo 645 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
626 // urqmd 646 // urqmd
627 extern "C" 647 extern "C"
628 { 648 {
629 extern int time_(); << 649 extern int time_ ();
630 extern void loginit_(); << 650 extern void loginit_();
631 extern void sseed_(int*); << 651 extern void sseed_ (int*);
632 extern void uinit_(int*); << 652 extern void uinit_ (int*);
633 extern void urqmd_(); << 653 extern void urqmd_ ();
634 extern int pdgid_(int*, int*); // ityp << 654 extern int pdgid_ (int*, int*); //ityp
635 << 655
636 extern void g4urqmdblockdata_(); << 656 extern void g4urqmdblockdata_ ();
637 << 657
638 // urqmdparams << 658 // urqmdparams
639 extern struct ccurqmd13urqmdparams urqmdpara << 659 extern struct ccurqmd13urqmdparams urqmdparams_;
640 // coms << 660 //coms
641 extern struct ccurqmd13sys sys_; << 661 extern struct ccurqmd13sys sys_;
642 extern struct ccurqmd13rsys rsys_; << 662 extern struct ccurqmd13rsys rsys_;
643 extern struct ccurqmd13comseed comseed_; << 663 extern struct ccurqmd13comseed comseed_;
644 extern struct ccurqmd13logic logic_; << 664 extern struct ccurqmd13logic logic_;
645 extern struct ccurqmd13mdprop mdprop_; << 665 extern struct ccurqmd13mdprop mdprop_;
646 extern struct ccurqmd13cuts cuts_; << 666 extern struct ccurqmd13cuts cuts_;
647 extern struct ccurqmd13spdata spdata_; << 667 extern struct ccurqmd13spdata spdata_;
648 extern struct ccurqmd13isys isys_; << 668 extern struct ccurqmd13isys isys_;
649 extern struct ccurqmd13coor coor_; << 669 extern struct ccurqmd13coor coor_;
650 extern struct ccurqmd13frag frag_; << 670 extern struct ccurqmd13frag frag_;
651 extern struct ccurqmd13aios aios_; << 671 extern struct ccurqmd13aios aios_;
652 extern struct ccurqmd13pots pots_; << 672 extern struct ccurqmd13pots pots_;
653 extern struct ccurqmd13scoor scoor_; << 673 extern struct ccurqmd13scoor scoor_;
654 extern struct ccurqmd13sisys sisys_; << 674 extern struct ccurqmd13sisys sisys_;
655 extern struct ccurqmd13ssys ssys_; << 675 extern struct ccurqmd13ssys ssys_;
656 extern struct ccurqmd13rtdelay rtdelay_; << 676 extern struct ccurqmd13rtdelay rtdelay_;
657 extern struct ccurqmd13itdelay itdelay_; << 677 extern struct ccurqmd13itdelay itdelay_;
658 extern struct ccurqmd13svinfo svinfo_; << 678 extern struct ccurqmd13svinfo svinfo_;
659 extern struct ccurqmd13ffermi ffermi_; << 679 extern struct ccurqmd13ffermi ffermi_;
660 extern struct ccurqmd13peq peq_; << 680 extern struct ccurqmd13peq peq_;
661 // comres << 681 //comres
662 extern struct ccurqmd13versioning versioning << 682 extern struct ccurqmd13versioning versioning_;
663 extern struct ccurqmd13resonances resonances << 683 extern struct ccurqmd13resonances resonances_;
664 extern struct ccurqmd13sigtabi sigtabi_; << 684 extern struct ccurqmd13sigtabi sigtabi_;
665 extern struct ccurqmd13sigtabr sigtabr_; << 685 extern struct ccurqmd13sigtabr sigtabr_;
666 << 686
667 // comwid << 687 //comwid
668 extern struct ccurqmd13decaywidth decaywidth << 688 extern struct ccurqmd13decaywidth decaywidth_;
669 extern struct ccurqmd13brwignorm brwignorm_; << 689 extern struct ccurqmd13brwignorm brwignorm_;
670 extern struct ccurqmd13xsections xsections_; << 690 extern struct ccurqmd13xsections xsections_;
671 extern struct ccurqmd13tabnames tabnames_; << 691 extern struct ccurqmd13tabnames tabnames_;
672 // options << 692 //options
673 extern struct ccurqmd13options options_; << 693 extern struct ccurqmd13options options_;
674 extern struct ccurqmd13optstrings optstrings << 694 extern struct ccurqmd13optstrings optstrings_;
675 extern struct ccurqmd13loptions loptions_; << 695 extern struct ccurqmd13loptions loptions_;
676 extern struct ccurqmd13stables stables_; << 696 extern struct ccurqmd13stables stables_;
677 // colltab << 697 //colltab
678 extern struct ccurqmd13colltab colltab_; << 698 extern struct ccurqmd13colltab colltab_;
679 // inputs << 699 //inputs
680 extern struct ccurqmd13inputs inputs_; << 700 extern struct ccurqmd13inputs inputs_;
681 extern struct ccurqmd13input2 input2_; << 701 extern struct ccurqmd13input2 input2_;
682 extern struct ccurqmd13protarints protarints << 702 extern struct ccurqmd13protarints protarints_;
683 extern struct ccurqmd13protarreals protarrea << 703 extern struct ccurqmd13protarreals protarreals_;
684 // newpart << 704 //newpart
685 extern struct ccurqmd13inewpart inewpart_; << 705 extern struct ccurqmd13inewpart inewpart_;
686 extern struct ccurqmd13rnewpart rnewpart_; << 706 extern struct ccurqmd13rnewpart rnewpart_;
687 extern struct ccurqmd13fnewpart fnewpart_; << 707 extern struct ccurqmd13fnewpart fnewpart_;
688 // bocinc << 708 //bocinc
689 extern struct ccurqmd13boxic boxic_; << 709 extern struct ccurqmd13boxic boxic_;
690 extern struct ccurqmd13boxrc boxrc_; << 710 extern struct ccurqmd13boxrc boxrc_;
691 // comnorm << 711 // comnorm
692 struct ccurqmd13normsplin normsplin_; << 712 struct ccurqmd13normsplin normsplin_;
693 // comstr << 713 //comstr
694 struct ccurqmd13FRGSPA FRGSPA_; << 714 struct ccurqmd13FRGSPA FRGSPA_;
695 struct ccurqmd13FRGCPA FRGCPA_; << 715 struct ccurqmd13FRGCPA FRGCPA_;
696 struct ccurqmd13coparm coparm_; << 716 struct ccurqmd13coparm coparm_;
697 struct ccurqmd13const const_; << 717 struct ccurqmd13const const_;
698 // freezeout << 718 // freezeout
699 struct ccurqmd13frcoor frcoor_; << 719 struct ccurqmd13frcoor frcoor_;
700 // urqmd << 720 //urqmd
701 extern struct ccurqmd13energies energies_; << 721 extern struct ccurqmd13energies energies_;
702 // input << 722 //input
703 extern struct ccurqmd13values values_; << 723 extern struct ccurqmd13values values_;
704 // cascinit << 724 // cascinit
705 extern struct ccurqmd13ini ini_; << 725 extern struct ccurqmd13ini ini_;
706 // iso << 726 //iso
707 extern struct ccurqmd13factorials factorials << 727 extern struct ccurqmd13factorials factorials_;
708 extern struct ccurqmd13cgks cgks_; << 728 extern struct ccurqmd13cgks cgks_;
>> 729
709 } 730 }
710 731
711 //....oooOO0OOooo........oooOO0OOooo........oo << 732 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
712 #endif 733 #endif
713 734