Import Geant4 9.2.0 source tree
This commit is contained in:
Gabriele Cosmo
@@ -23,7 +23,7 @@
|
||||
// * acceptance of all terms of the Geant4 Software license. *
|
||||
// ********************************************************************
|
||||
//
|
||||
// $Id: G4Abla.hh,v 1.7 2007/12/03 19:36:05 miheikki Exp $
|
||||
// $Id: G4Abla.hh,v 1.11 2008/06/25 17:20:03 kaitanie Exp $
|
||||
// Translation of INCL4.2/ABLA V3
|
||||
// Pekka Kaitaniemi, HIP (translation)
|
||||
// Christelle Schmidt, IPNL (fission code)
|
||||
@@ -32,8 +32,13 @@
|
||||
|
||||
#include "globals.hh"
|
||||
|
||||
#include "G4InclRandomNumbers.hh"
|
||||
#include "G4AblaDataDefs.hh"
|
||||
#include "G4InclDataDefs.hh"
|
||||
#include "G4AblaFissionBase.hh"
|
||||
|
||||
#ifndef G4Abla_hh
|
||||
#define G4Abla_hh 1
|
||||
|
||||
/**
|
||||
* Class containing ABLA de-excitation code.
|
||||
@@ -43,14 +48,7 @@ class G4Abla {
|
||||
|
||||
public:
|
||||
/**
|
||||
*
|
||||
* We support Doxygen with JavaDoc style.
|
||||
*
|
||||
* \author{pekka.kaitaniemi@helsinki.fi}
|
||||
*/
|
||||
|
||||
/**
|
||||
* A constructor.
|
||||
* Basic constructor.
|
||||
*/
|
||||
G4Abla();
|
||||
|
||||
@@ -64,20 +62,30 @@ public:
|
||||
G4Abla(G4Hazard *aHazard, G4Volant *aVolant, G4VarNtp *aVarntp);
|
||||
|
||||
/**
|
||||
*
|
||||
* Constructor that is to be used only for testing purposes.
|
||||
* @param aHazard random seeds
|
||||
* @param aVolant data structure for ABLA output
|
||||
*/
|
||||
G4Abla(G4Hazard *hazard, G4Volant *volant);
|
||||
|
||||
/**
|
||||
* A destructor.
|
||||
* A more elaborate description of the destructor.
|
||||
* Basic destructor.
|
||||
*/
|
||||
~G4Abla();
|
||||
|
||||
/**
|
||||
*
|
||||
* Set verbosity level.
|
||||
*/
|
||||
void setVerboseLevel(G4int level);
|
||||
void setVerboseLevel(G4int level) {
|
||||
verboseLevel = level;
|
||||
}
|
||||
|
||||
/**
|
||||
* Get the internal output data structure pointer.
|
||||
*/
|
||||
G4Volant* getVolant() {
|
||||
return volant;
|
||||
}
|
||||
|
||||
/**
|
||||
* Main interface to the de-excitation code.
|
||||
@@ -101,14 +109,21 @@ public:
|
||||
public:
|
||||
/**
|
||||
* Initialize ABLA evaporation code.
|
||||
*
|
||||
*/
|
||||
void initEvapora();
|
||||
|
||||
/**
|
||||
* qrot including damping
|
||||
* Coefficient of collective enhancement including damping
|
||||
* Input: z,a,bet,sig,u
|
||||
* Output: qr - collective enhancement factor
|
||||
* See junghans et al., nucl. phys. a 629 (1998) 635
|
||||
* @param z charge number
|
||||
* @param a mass number
|
||||
* @param bet beta deformation
|
||||
* @param sig perpendicular spin cut-off factor
|
||||
* @param u Energy
|
||||
* @return Coefficient of collective enhancement
|
||||
*/
|
||||
void qrot(G4double z, G4double a, G4double bet, G4double sig, G4double u, G4double *qr);
|
||||
|
||||
@@ -126,12 +141,12 @@ public:
|
||||
/**
|
||||
*
|
||||
*/
|
||||
// G4double spdef(G4int a, G4int z, G4int optxfis);
|
||||
G4double spdef(G4int a, G4int z, G4int optxfis);
|
||||
|
||||
/**
|
||||
* Calculation of fissility parameter
|
||||
*/
|
||||
// G4double fissility(int a,int z, int optxfis);
|
||||
G4double fissility(int a,int z, int optxfis);
|
||||
|
||||
/**
|
||||
* Main evaporation routine.
|
||||
@@ -222,6 +237,12 @@ public:
|
||||
*/
|
||||
void barfit(G4int iz, G4int ia, G4int il, G4double *sbfis, G4double *segs, G4double *selmax);
|
||||
|
||||
/**
|
||||
* Random numbers.
|
||||
*/
|
||||
G4double haz(G4int k);
|
||||
void standardRandom(G4double *rndm, G4long *seed);
|
||||
|
||||
/**
|
||||
* TIRAGE ALEATOIRE DANS UNE EXPONENTIELLLE : Y=EXP(-X/T)
|
||||
*/
|
||||
@@ -251,38 +272,6 @@ public:
|
||||
*
|
||||
*/
|
||||
void guet(G4double *x_par, G4double *z_par, G4double *find_par);
|
||||
|
||||
// Fission
|
||||
public:
|
||||
/**
|
||||
*
|
||||
*/
|
||||
G4double spdef(G4int a, G4int z, G4int optxfis);
|
||||
|
||||
/**
|
||||
*
|
||||
*/
|
||||
G4double fissility(G4int a, G4int z, G4int optxfis);
|
||||
|
||||
// void evapora(G4double zprf, G4double aprf, G4double ee, G4double jprf,
|
||||
// G4double *zf_par, G4double *af_par, G4double *mtota_par,
|
||||
// G4double *pleva_par, G4double *pxeva_par);
|
||||
// G4double bfms67(G4double zms, G4double ams);
|
||||
// void lpoly(G4double x, G4int n, G4double pl[]);
|
||||
// G4double expohaz(G4int k, G4double T);
|
||||
// G4double fd(G4double E);
|
||||
// G4double f(G4double E);
|
||||
// G4double fmaxhaz(G4double k, G4double T);
|
||||
void even_odd(G4double r_origin,G4double r_even_odd,G4int &i_out);
|
||||
G4double umass(G4double z,G4double n,G4double beta);
|
||||
G4double ecoul(G4double z1,G4double n1,G4double beta1,G4double z2,G4double n2,G4double beta2,G4double d);
|
||||
void fissionDistri(G4double &a,G4double &z,G4double &e,
|
||||
G4double &a1,G4double &z1,G4double &e1,G4double &v1,
|
||||
G4double &a2,G4double &z2,G4double &e2,G4double &v2);
|
||||
void standardRandom(G4double *rndm, G4long *seed);
|
||||
G4double haz(G4int k);
|
||||
G4double gausshaz(int k, double xmoy, double sig);
|
||||
|
||||
|
||||
public:
|
||||
// Coordinate system transformations:
|
||||
@@ -311,15 +300,19 @@ public:
|
||||
G4int idnint(G4double value);
|
||||
G4double utilabs(G4double a);
|
||||
G4double dmin1(G4double a, G4double b, G4double c);
|
||||
G4Ec2sub* getFrldmTable() {
|
||||
return ec2sub;
|
||||
}
|
||||
|
||||
private:
|
||||
G4int verboseLevel;
|
||||
G4int ilast;
|
||||
|
||||
G4AblaFissionBase *fissionModel;
|
||||
G4InclRandomInterface *randomGenerator;
|
||||
G4Pace *pace;
|
||||
G4Hazard *hazard;
|
||||
G4Ald *ald;
|
||||
G4Ablamain *ablamain;
|
||||
G4Emdpar *emdpar;
|
||||
G4Eenuc *eenuc;
|
||||
G4Ec2sub *ec2sub;
|
||||
G4Ecld *ecld;
|
||||
@@ -329,3 +322,5 @@ private:
|
||||
G4Volant *volant;
|
||||
G4VarNtp *varntp;
|
||||
};
|
||||
|
||||
#endif
|
||||
|
||||
Reference in New Issue
Block a user