Changeset 1340 for trunk/source/processes/hadronic/models/cascade/cascade/src/nucleiLevelDensity.cc

Timestamp:

Nov 5, 2010, 3:45:55 PM (14 years ago)

Author:

garnier

Message:

update ti head

File:

• trunk/source/processes/hadronic/models/cascade/cascade/src/nucleiLevelDensity.cc (modified) (2 diffs)

trunk/source/processes/hadronic/models/cascade/cascade/src/nucleiLevelDensity.cc

@@ -23 +23 @@
 // * acceptance of all terms of the Geant4 Software license.          *
 // ********************************************************************
+// $Id: nucleiLevelDensity.cc,v 1.8 2010/09/14 17:51:36 mkelsey Exp $
 //
+// 20100914  M. Kelsey -- Migrate to integer A and Z; simplify code
+
 #include "G4InuclSpecialFunctions.hh"
 
-G4double G4InuclSpecialFunctions::nucleiLevelDensity(G4double a) {
-  G4int verboseLevel = 2;
 
-  if (verboseLevel > 3) {
-    G4cout << " >>> G4InuclSpecialFunctions::nucleiLevelDensity" << G4endl;
-  }
-
+G4double G4InuclSpecialFunctions::nucleiLevelDensity(G4int a) {
   const G4double NLD[226] = {
     // 20 - 29
@@ -81 +79 @@
     29.87, 30.25, 30.5, 29.8, 29.17, 28.67};
 
-  G4int ia = G4int(a + 0.1) - 20; 
-
-  if (ia > 0) {
-    return NLD[ia];
-
-  } else {
-    return 0.1 * a;
-  };
+  return (a>=20) ? NLD[a-20] : 0.1*a;
 }