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