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