100 std::vector<G4double*>::iterator
pos;
101 for (pos=
CST.begin(); pos<
CST.end(); pos++)
104 for (pos=
PAR.begin(); pos<
PAR.end(); pos++)
107 for (pos=
SST.begin(); pos<
SST.end(); pos++)
110 for (pos=
S1T.begin(); pos<
S1T.end(); pos++)
113 for (pos=
B1T.begin(); pos<
B1T.end(); pos++)
116 for (pos=
S2T.begin(); pos<
S2T.end(); pos++)
119 for (pos=
B2T.begin(); pos<
B2T.end(); pos++)
122 for (pos=
S3T.begin(); pos<
S3T.end(); pos++)
125 for (pos=
B3T.begin(); pos<
B3T.end(); pos++)
128 for (pos=
S4T.begin(); pos<
S4T.end(); pos++)
131 for (pos=
B4T.begin(); pos<
B4T.end(); pos++)
163 static G4ThreadLocal std::vector <G4int> *colN_G4MT_TLS_ = 0 ;
if (!colN_G4MT_TLS_) colN_G4MT_TLS_ =
new std::vector <G4int> ; std::vector <G4int> &colN = *colN_G4MT_TLS_;
164 static G4ThreadLocal std::vector <G4int> *colZ_G4MT_TLS_ = 0 ;
if (!colZ_G4MT_TLS_) colZ_G4MT_TLS_ =
new std::vector <G4int> ; std::vector <G4int> &colZ = *colZ_G4MT_TLS_;
165 static G4ThreadLocal std::vector <G4double> *colP_G4MT_TLS_ = 0 ;
if (!colP_G4MT_TLS_) colP_G4MT_TLS_ =
new std::vector <G4double> ; std::vector <G4double> &colP = *colP_G4MT_TLS_;
166 static G4ThreadLocal std::vector <G4double> *colTH_G4MT_TLS_ = 0 ;
if (!colTH_G4MT_TLS_) colTH_G4MT_TLS_ =
new std::vector <G4double> ; std::vector <G4double> &colTH = *colTH_G4MT_TLS_;
167 static G4ThreadLocal std::vector <G4double> *colCS_G4MT_TLS_ = 0 ;
if (!colCS_G4MT_TLS_) colCS_G4MT_TLS_ =
new std::vector <G4double> ; std::vector <G4double> &colCS = *colCS_G4MT_TLS_;
180 if(colN[i]==tgN && colZ[i]==tgZ)
198 if(lastCS<=0. && pEn>
lastTH)
219 colP.push_back(pMom);
238 static G4ThreadLocal std::vector <G4double> *PIN_G4MT_TLS_ = 0 ;
if (!PIN_G4MT_TLS_) PIN_G4MT_TLS_ =
new std::vector <G4double> ; std::vector <G4double> &PIN = *PIN_G4MT_TLS_;
305 G4int blast=
static_cast<int>(shift);
324 G4int blast=
static_cast<int>(shift);
365 const G4int n_npel=24;
366 const G4int n_ppel=32;
368 G4double np_el[n_npel]={12.,.05,.0001,5.,.35,6.75,.14,19.,.6,6.75,.14,13.,.14,.6,.00013,
369 75.,.001,7.2,4.32,.012,2.5,0.0,12.,.34};
372 G4double pp_el[n_ppel]={2.865,18.9,.6461,3.,9.,.425,.4276,.0022,5.,74.,3.,3.4,.2,.17,
373 .001,8.,.055,3.64,5.e-5,4000.,1500.,.46,1.2e6,3.5e6,5.e-5,1.e10,
374 8.5e8,1.e10,1.1,3.4e6,6.8e6,0.};
392 if ( tgZ == 0 && tgN == 1 )
394 for (
G4int ip=0; ip<n_npel; ip++)
lastPAR[ip]=np_el[ip];
397 else if ( tgZ == 1 && tgN == 0 )
399 for (
G4int ip=0; ip<n_ppel; ip++)
lastPAR[ip]=pp_el[ip];
424 lastPAR[1]=4.8*std::pow(a,1.14)/(1.+3.6/
a3);
425 lastPAR[2]=1./(1.+4.E-3*
a4)+2.E-6*a3/(1.+1.3E-6*a3);
429 lastPAR[6]=(3.+3.E-16*a20)/(1.+a20*(2.E-16/a+3.E-19*a));
430 lastPAR[7]=(5.E-9*a4*sa+.27/
a)/(1.+5.E16/a20)/(1.+6.E-9*
a4)+.015/a2;
431 lastPAR[8]=(.001*a+.07/
a)/(1.+5.E13/a16+5.E-7*a3)+.0003/sa;
439 lastPAR[11]=.7/(1.+4.e-12*a16);
440 lastPAR[12]=2.5/a8/(a4+1.e-16*a32);
448 lastPAR[19]=(42.+2.7e-11*a16)/(1.+.14*a);
452 lastPAR[22]=2.4e-3*a8/(1.+2.6e-4*a7);
453 lastPAR[23]=3.5e-36*a32*a8/(1.+5.e-15*a32/
a);
455 lastPAR[24]=1.e5/(a8+2.5e12/a16);
456 lastPAR[25]=8.e7/(a12+1.e-27*a28*a28);
465 lastPAR[32]=1.5e-4/(1.+5.e-6*a12);
473 lastPAR[38]=1.e8*std::exp(.32*asa);
474 lastPAR[39]=20.*std::exp(.45*asa);
476 lastPAR[41]=2.5e5*std::exp(.085*a3);
490 lastPAR[ 9]=4.5*std::pow(a,1.15);
491 lastPAR[10]=.06*std::pow(a,.6);
492 lastPAR[11]=.6*a/(1.+2.e15/a16);
493 lastPAR[12]=.17/(a+9.e5/a3+1.5e33/a32);
494 lastPAR[13]=(.001+7.e-11*
a5)/(1.+4.4e-11*a5);
495 lastPAR[14]=(p1a10*p1a10+2.e-29)/(1.+2.e-22*a12);
497 lastPAR[15]=400./a12+2.e-22*a9;
498 lastPAR[16]=1.e-32*a12/(1.+5.e22/a14);
499 lastPAR[17]=1000./a2+9.5*sa*ssa;
500 lastPAR[18]=4.e-6*a*asa+1.e11/a16;
501 lastPAR[19]=(120./a+.002*
a2)/(1.+2.e14/a16);
509 lastPAR[25]=1.e-5*a2+2.e14/a16;
510 lastPAR[26]=1.2e-11*a2/(1.+1.5e19/a12);
511 lastPAR[27]=.016*asa/(1.+5.e16/a16);
513 lastPAR[28]=.002*a4/(1.+7.e7/std::pow(a-6.83,14));
514 lastPAR[29]=2.e6/a6+7.2/std::pow(a,.11);
515 lastPAR[30]=11.*a3/(1.+7.e23/a16/a8);
519 lastPAR[33]=3.5e-4*a2/(1.+1.e8/a8);
522 lastPAR[36]=1.e-9/a+s4a16*s4a16;
542 lastPAR[51]=1.e15+2.e27/a4/(1.+2.e-18*a16);
572 for(
G4int ip=ini; ip<=fin; ip++)
591 else G4cout<<
"*Warning*G4ChipsProtonElasticXS::GetPTables: PDG="<<PDG<<
", Z="
592 <<tgZ<<
", N="<<tgN<<
", i="<<ini<<
" > fin="<<fin<<
", LP="<<LP<<
" > ILP="
593 <<ILP<<
" nothing is done!"<<
G4endl;
595 else G4cout<<
"*Warning*G4ChipsProtonElasticXS::GetPTables: PDG="<<PDG<<
", Z="
596 <<tgZ<<
", N="<<tgN<<
", i="<<ini<<
">= max="<<
nPoints<<
", LP="<<LP
597 <<
" > ILP="<<ILP<<
", lPMax="<<
lPMax<<
" nothing is done!"<<
G4endl;
606 ed <<
"PDG = " << PDG <<
", Z = " << tgZ <<
", N = " << tgN
607 <<
", while it is defined only for PDG=2212 (p)" <<
G4endl;
608 G4Exception(
"G4ChipsProtonElasticXS::GetPTables()",
"HAD_CHPS_0000",
621 if(PDG!=2212)
G4cout<<
"**Warning*G4ChipsProtonElasticXS::GetExT:PDG="<<PDG<<
G4endl;
630 G4double R2=(1.-std::exp(-E2*E2*E2));
642 q2=-std::log(1.-ran)/
theB1;
648 q2=-std::log(1.-ran);
650 q2=std::pow(q2,third)/
theB2;
656 q2=-std::log(1.-ran)/
theB3;
670 if(a>6.5)E3*=tm2*tm2*tm2;
685 q2=-std::log(1.-ran)/
theB1;
686 if(std::fabs(tss)>1.e-7) q2=(std::sqrt(
theB1*(
theB1+(tss+tss)*q2))-
theB1)/tss;
692 q2=-std::log(1.-ran)/
theB2;
694 if(a<6.5) q2=std::pow(q2,third);
695 else q2=std::pow(q2,fifth);
701 q2=-std::log(1.-ran)/
theB3;
703 if(a>6.5) q2=std::pow(q2,sevth);
709 q2=-std::log(1.-ran)/
theB4;
710 if(a<6.5) q2=lastTM-q2;
714 if(!(q2>=-1.||q2<=1.))
G4cout<<
"*NAN*G4QElasticCrossSect::GetExchangeT: -t="<<q2<<
G4endl;
727 if(
lastLP<-4.3)
return 0.;
734 ed <<
"PDG = " << PDG <<
", Z = " << tgZ <<
", N = " << tgN
735 <<
", while it is defined only for PDG=2212 (p)" <<
G4endl;
736 G4Exception(
"G4ChipsProtonElasticXS::GetSlope()",
"HAD_CHPS_0000",
755 if(PDG!=2212)
G4cout<<
"*Warning*G4ChipsProtonElasticXS::GetTabV:PDG="<<PDG<<
G4endl;
758 G4cout<<
"*Warning*G4QProtonElCS::GetTabValue: (1-92) No isotopes for Z="<<tgZ<<
G4endl;
773 if ( tgZ == 1 && tgN == 0 )
778 theS1=(lastPAR[9]+lastPAR[10]*dl2*dl2)/(1.+lastPAR[11]/p4/p)+
779 (lastPAR[12]/p2+lastPAR[13]*p)/(p4+lastPAR[14]*sp);
780 theB1=lastPAR[15]*std::pow(p,lastPAR[16])/(1.+lastPAR[17]/p3);
781 theS2=lastPAR[18]+lastPAR[19]/(p4+lastPAR[20]*p);
782 theB2=lastPAR[21]+lastPAR[22]/(p4+lastPAR[23]/
sp);
783 theS3=lastPAR[24]+lastPAR[25]/(p4*p4+lastPAR[26]*p2+lastPAR[27]);
784 theB3=lastPAR[28]+lastPAR[29]/(p4+lastPAR[30]);
789 return lastPAR[0]/p2s/(1.+lastPAR[7]/p2s)+(lastPAR[1]+lastPAR[2]*dl1*dl1+lastPAR[4]/p)
790 /(1.+lastPAR[5]*lp)/(1.+lastPAR[6]/p4);
817 lastPAR[40]/(1.+lastPAR[41]*std::pow(p,lastPAR[42])));
818 theB4=lastPAR[43]*pa/p2/(1.+pa*lastPAR[44]);
850 static const G4double mProt2= mProt*mProt;
855 G4double tMid=std::sqrt(pP2+mProt2)*mProt-mProt2;
862 G4double mds=dmt*std::sqrt(pP2+mProt2)+mProt2+mt*mt;
863 return dmt*dmt*pP2/mds;
871 ed <<
"PDG = " << PDG <<
", Z = " << tgZ <<
", N = " << tgN
872 <<
", while it is defined only for p projectiles & Z_target>0" <<
G4endl;
873 G4Exception(
"G4ChipsProtonElasticXS::GetQ2max()",
"HAD_CHPS_0000",
G4double GetSlope(G4int tZ, G4int tN, G4int pPDG)
std::vector< G4double * > B1T
std::ostringstream G4ExceptionDescription
G4ParticleDefinition * GetIon(G4int Z, G4int A, G4int lvl=0)
std::vector< G4double * > S4T
G4ParticleDefinition * GetDefinition() const
G4double GetTotalMomentum() const
G4IonTable * GetIonTable() const
G4GLOB_DLL std::ostream G4cout
std::vector< G4double * > S3T
~G4ChipsProtonElasticXS()
G4double GetExchangeT(G4int tZ, G4int tN, G4int pPDG)
static G4Proton * Proton()
std::vector< G4double * > B4T
virtual G4double GetIsoCrossSection(const G4DynamicParticle *, G4int tgZ, G4int A, const G4Isotope *iso=0, const G4Element *elm=0, const G4Material *mat=0)
std::vector< G4double * > S2T
static const G4double A[nN]
void G4Exception(const char *originOfException, const char *exceptionCode, G4ExceptionSeverity severity, const char *comments)
G4double GetPDGMass() const
static G4ParticleTable * GetParticleTable()
virtual G4bool IsIsoApplicable(const G4DynamicParticle *Pt, G4int Z, G4int A, const G4Element *elm, const G4Material *mat)
std::vector< G4double * > SST
G4double GetQ2max(G4int pPDG, G4int tgZ, G4int tgN, G4double pP)
static const double gigaelectronvolt
std::vector< G4double * > PAR
static const double millibarn
std::vector< G4double * > CST
std::vector< G4double * > S1T
G4double CalculateCrossSection(G4bool CS, G4int F, G4int I, G4int pPDG, G4int Z, G4int N, G4double pP)
std::vector< G4double * > B2T
G4double GetPTables(G4double lpP, G4double lPm, G4int PDG, G4int tZ, G4int tN)
static const G4double pos
G4_DECLARE_XS_FACTORY(G4ChipsProtonElasticXS)
virtual G4double GetChipsCrossSection(G4double momentum, G4int Z, G4int N, G4int pdg)
G4double GetTabValues(G4double lp, G4int pPDG, G4int tgZ, G4int tgN)
std::vector< G4double * > B3T