lars/geant4
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import Geant4 1.1.0 source tree

Browse Source
This commit is contained in:
Gabriele Cosmo
2016-06-08 15:34:16 +02:00
parent ca1c8cb059
commit 103bda00c8
2654 changed files with 29719 additions and 20203 deletions
Download Patch File Download Diff File Expand all files Collapse all files
source/processes/hadronic/util/src/G4Nucleus.cc
+11 -11
View File
@@ -5,8 +5,8 @@
// based on the Program) you indicate your acceptance of this statement,
// and all its terms.
//
// $Id: G4Nucleus.cc,v 1.3.8.1 1999/12/07 20:52:44 gunter Exp $
// GEANT4 tag $Name: geant4-01-00 $
// $Id: G4Nucleus.cc,v 1.3.8.1.2.1 1999/12/10 15:42:18 gunter Exp $
// GEANT4 tag $Name: geant4-01-01 $
//
// original by H.P. Wellisch
// modified by J.L. Chuma, TRIUMF, 19-Nov-1996
@@ -173,17 +173,17 @@
return 0.0;
}
G4double ek = kineticEnergy/GeV;
G4float ekin = min( 4.0, max( 0.1, ek ) );
const G4float atno = min( 120., aEff );
G4float ekin = G4std::min( 4.0, G4std::max( 0.1, ek ) );
const G4float atno = G4std::min( 120., aEff );
const G4float gfa = 2.0*((aEff-1.0)/70.)*exp(-(aEff-1.0)/70.);
//
// 0.35 value at 1 GeV
// 0.05 value at 0.1 GeV
//
G4float cfa = max( 0.15, 0.35 + ((0.35-0.05)/2.3)*log(ekin) );
G4float cfa = G4std::max( 0.15, 0.35 + ((0.35-0.05)/2.3)*log(ekin) );
G4float exnu = 7.716 * cfa * exp(-cfa)
* ((atno-1.0)/120.)*exp(-(atno-1.0)/120.);
G4float fpdiv = max( 0.5, 1.0-0.25*ekin*ekin );
G4float fpdiv = G4std::max( 0.5, 1.0-0.25*ekin*ekin );
//
// pnBlackTrackEnergy is the kinetic energy (in GeV) available for
// proton/neutron black track particles
@@ -207,8 +207,8 @@
pnBlackTrackEnergy *= 1.0 + ran1*gfa;
dtaBlackTrackEnergy *= 1.0 + ran2*gfa;
}
pnBlackTrackEnergy = max( 0.0, pnBlackTrackEnergy );
dtaBlackTrackEnergy = max( 0.0, dtaBlackTrackEnergy );
pnBlackTrackEnergy = G4std::max( 0.0, pnBlackTrackEnergy );
dtaBlackTrackEnergy = G4std::max( 0.0, dtaBlackTrackEnergy );
while( pnBlackTrackEnergy+dtaBlackTrackEnergy >= ek )
{
pnBlackTrackEnergy *= 1.0 - 0.5*G4UniformRand();
@@ -231,9 +231,9 @@
G4double ek = kineticEnergy/GeV;
G4double ekLog = log( ek );
G4double aLog = log( aEff );
G4double em = min( 1.0, 0.2390 + 0.0408*aLog*aLog );
G4double temp1 = -ek * min( 0.15, 0.0019*aLog*aLog*aLog );
G4double temp2 = exp( max( expxl, min( expxu, -(ekLog-em)*(ekLog-em)*2.0 ) ) );
G4double em = G4std::min( 1.0, 0.2390 + 0.0408*aLog*aLog );
G4double temp1 = -ek * G4std::min( 0.15, 0.0019*aLog*aLog*aLog );
G4double temp2 = exp( G4std::max( expxl, G4std::min( expxu, -(ekLog-em)*(ekLog-em)*2.0 ) ) );
G4double result = 0.0;
if( abs( temp1 ) < 1.0 )
{