41 : particle(part), theCoulombBarrierPtr(aCoulombBarrier),
42 theRestNucleusA(0),theRestNucleusZ(0),theBindingEnergy(0.0),
43 theMaximalKineticEnergy(-
MeV),theRestNucleusMass(0.0),
44 theReducedMass(0.0),theMomentum(0.,0.,0.,0.),
45 theEmissionProbability(0.0),theCoulombBarrier(0.0),
46 OPTxs(3),useSICB(false)
53 theRestNucleusA13 = 0;
70 <<
"PreCompoundModel Emitted Fragment: Z= " << theFragment->
GetZ()
71 <<
" A= " << theFragment->
GetA()
79 theRestNucleusA = aFragment.
GetA_asInt() - theA;
80 theRestNucleusZ = aFragment.
GetZ_asInt() - theZ;
82 if ((theRestNucleusA < theRestNucleusZ) ||
83 (theRestNucleusA < theA) ||
84 (theRestNucleusZ < theZ))
87 theMaximalKineticEnergy = 0.0;
91 theRestNucleusA13 =
g4pow->
Z13(theRestNucleusA);
101 theReducedMass = theRestNucleusMass*theMass/(theRestNucleusMass + theMass);
111 theMaximalKineticEnergy =
112 ((Ecm-theRestNucleusMass)*(Ecm+theRestNucleusMass) + theMass*theMass)/(2.0*Ecm)-theMass;