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
|
||||
|
||||
@@ -23,7 +23,7 @@
|
||||
// * acceptance of all terms of the Geant4 Software license. *
|
||||
// ********************************************************************
|
||||
//
|
||||
// $Id: G4AblaDataDefs.hh,v 1.6 2007/12/03 19:36:06 miheikki Exp $
|
||||
// $Id: G4AblaDataDefs.hh,v 1.9 2008/06/25 17:20:04 kaitanie Exp $
|
||||
// Translation of INCL4.2/ABLA V3
|
||||
// Pekka Kaitaniemi, HIP (translation)
|
||||
// Christelle Schmidt, IPNL (fission code)
|
||||
@@ -75,6 +75,18 @@ public:
|
||||
~G4Ec2sub() {};
|
||||
|
||||
G4double ecnz[EC2SUBROWS][EC2SUBCOLS];
|
||||
|
||||
/**
|
||||
* Dump the contents of the ecnz data table.
|
||||
*/
|
||||
void dump() {
|
||||
for(G4int i = 0; i < EC2SUBROWS; i++) {
|
||||
for(G4int j = 0; j < EC2SUBCOLS; j++) {
|
||||
G4cout << ecnz[i][j] << " ";
|
||||
}
|
||||
G4cout << G4endl;
|
||||
}
|
||||
}
|
||||
};
|
||||
|
||||
class G4Ald {
|
||||
@@ -88,15 +100,6 @@ public:
|
||||
G4double av,as,ak,optafan;
|
||||
};
|
||||
|
||||
class G4Ablamain {
|
||||
public:
|
||||
G4Ablamain() {};
|
||||
~G4Ablamain() {};
|
||||
|
||||
G4double ap,zp,at,zt,eap,beta,bmaxnuc,crtot,crnuc,r_0, r_p,r_t,pi,bfpro,snpro,sppro,shell;
|
||||
G4int imax, inum;
|
||||
};
|
||||
|
||||
#define ECLDROWS 154
|
||||
#define ECLDCOLS 99
|
||||
/**
|
||||
@@ -184,23 +187,6 @@ public:
|
||||
G4double she[EENUCSIZE],xhe[XHESIZE][EENUCSIZE];
|
||||
};
|
||||
|
||||
#define EMDPARSIZE 1000
|
||||
/**
|
||||
* Energies widths and cross sections for em excitation.
|
||||
*/
|
||||
|
||||
class G4Emdpar {
|
||||
|
||||
public:
|
||||
G4Emdpar() {};
|
||||
~G4Emdpar() {};
|
||||
|
||||
G4double egdr,egqr,fwhmgdr,fwhmgqr,cremde1,cremde2;
|
||||
G4double ae1[EMDPARSIZE],be1[EMDPARSIZE],ce1[EMDPARSIZE],ae2[EMDPARSIZE];
|
||||
G4double be2[EMDPARSIZE],ce2[EMDPARSIZE],sre1[EMDPARSIZE],sre2[EMDPARSIZE];
|
||||
G4double xre1[EMDPARSIZE],xre2[EMDPARSIZE],ds1,ds2;
|
||||
};
|
||||
|
||||
//#define VOLANTSIZE 200
|
||||
#define VOLANTSIZE 2000
|
||||
/**
|
||||
@@ -210,19 +196,56 @@ public:
|
||||
class G4Volant {
|
||||
|
||||
public:
|
||||
G4Volant() {};
|
||||
G4Volant()
|
||||
{
|
||||
clear();
|
||||
}
|
||||
|
||||
~G4Volant() {};
|
||||
|
||||
void clear()
|
||||
{
|
||||
for(G4int i = 0; i < VOLANTSIZE; i++) {
|
||||
copied[i] = false;
|
||||
acv[i] = 0;
|
||||
zpcv[i] = 0;
|
||||
pcv[i] = 0;
|
||||
xcv[i] = 0;
|
||||
ycv[i] = 0;
|
||||
zcv[i] = 0;
|
||||
iv = 0;
|
||||
}
|
||||
}
|
||||
|
||||
G4double getTotalMass()
|
||||
{
|
||||
G4double total = 0.0;
|
||||
for(G4int i = 0; i <= iv; i++) {
|
||||
total += acv[i];
|
||||
}
|
||||
return total;
|
||||
}
|
||||
|
||||
void dump()
|
||||
{
|
||||
G4double totA = 0.0, totZ = 0.0, totP = 0.0;
|
||||
G4cout <<"i \t ACV \t ZPCV \t PCV" << G4endl;
|
||||
for(G4int i = 0; i <= iv; i++) {
|
||||
if(i == 0 && acv[i] != 0) {
|
||||
G4cout <<"G4Volant: Particle stored at index " << i << G4endl;
|
||||
}
|
||||
totA += acv[i];
|
||||
totZ += zpcv[i];
|
||||
totP += pcv[i];
|
||||
G4cout << "volant" << i << "\t" << acv[i] << " \t " << zpcv[i] << " \t " << pcv[i] << G4endl;
|
||||
}
|
||||
G4cout <<"Particle count index (iv) = " << iv << G4endl;
|
||||
G4cout <<"ABLA Total: A = " << totA << " Z = " << totZ << " momentum = " << totP << G4endl;
|
||||
}
|
||||
|
||||
G4double acv[VOLANTSIZE],zpcv[VOLANTSIZE],pcv[VOLANTSIZE],xcv[VOLANTSIZE];
|
||||
G4double ycv[VOLANTSIZE],zcv[VOLANTSIZE];
|
||||
G4bool copied[VOLANTSIZE];
|
||||
G4int iv;
|
||||
};
|
||||
|
||||
|
||||
@@ -0,0 +1,106 @@
|
||||
//
|
||||
// ********************************************************************
|
||||
// * License and Disclaimer *
|
||||
// * *
|
||||
// * The Geant4 software is copyright of the Copyright Holders of *
|
||||
// * the Geant4 Collaboration. It is provided under the terms and *
|
||||
// * conditions of the Geant4 Software License, included in the file *
|
||||
// * LICENSE and available at http://cern.ch/geant4/license . These *
|
||||
// * include a list of copyright holders. *
|
||||
// * *
|
||||
// * Neither the authors of this software system, nor their employing *
|
||||
// * institutes,nor the agencies providing financial support for this *
|
||||
// * work make any representation or warranty, express or implied, *
|
||||
// * regarding this software system or assume any liability for its *
|
||||
// * use. Please see the license in the file LICENSE and URL above *
|
||||
// * for the full disclaimer and the limitation of liability. *
|
||||
// * *
|
||||
// * This code implementation is the result of the scientific and *
|
||||
// * technical work of the GEANT4 collaboration. *
|
||||
// * By using, copying, modifying or distributing the software (or *
|
||||
// * any work based on the software) you agree to acknowledge its *
|
||||
// * use in resulting scientific publications, and indicate your *
|
||||
// * acceptance of all terms of the Geant4 Software license. *
|
||||
// ********************************************************************
|
||||
//
|
||||
// $Id: G4AblaFission.hh,v 1.2 2008/06/25 17:20:04 kaitanie Exp $
|
||||
// Translation of INCL4.2/ABLA V3
|
||||
// Pekka Kaitaniemi, HIP (translation)
|
||||
// Christelle Schmidt, IPNL (fission code)
|
||||
// Alain Boudard, CEA (contact person INCL/ABLA)
|
||||
// Aatos Heikkinen, HIP (project coordination)
|
||||
|
||||
#ifndef G4AblaFission_hh
|
||||
#define G4AblaFission_hh 1
|
||||
|
||||
#include "G4AblaFissionBase.hh"
|
||||
#include "G4InclDataDefs.hh"
|
||||
#include "G4InclRandomNumbers.hh"
|
||||
|
||||
class G4AblaFission : public G4AblaFissionBase {
|
||||
|
||||
public:
|
||||
G4AblaFission();
|
||||
G4AblaFission(G4Hazard *hzr, G4InclRandomInterface *rndm);
|
||||
|
||||
~G4AblaFission();
|
||||
|
||||
void doFission(G4double &A, G4double &Z, G4double &E,
|
||||
G4double &A1, G4double &Z1, G4double &E1, G4double &K1,
|
||||
G4double &A2, G4double &Z2, G4double &E2, G4double &K2);
|
||||
|
||||
/**
|
||||
*
|
||||
*/
|
||||
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);
|
||||
|
||||
|
||||
|
||||
G4int min(G4int a, G4int b);
|
||||
G4double min(G4double a, G4double b);
|
||||
G4int max(G4int a, G4int b);
|
||||
G4double max(G4double a, G4double b);
|
||||
|
||||
G4int nint(G4double number);
|
||||
G4int secnds(G4int x);
|
||||
G4int mod(G4int a, G4int b);
|
||||
G4double dmod(G4double a, G4double b);
|
||||
G4double dint(G4double a);
|
||||
G4int idint(G4double a);
|
||||
G4int idnint(G4double value);
|
||||
G4double utilabs(G4double a);
|
||||
G4double dmin1(G4double a, G4double b, G4double c);
|
||||
void p(G4int a, G4int b);
|
||||
void p(G4double a, G4double b);
|
||||
void p(G4String msg, G4double a, G4double b);
|
||||
|
||||
private:
|
||||
G4InclRandomInterface *randomGenerator;
|
||||
G4Hazard *hazard;
|
||||
};
|
||||
|
||||
#endif
|
||||
@@ -0,0 +1,64 @@
|
||||
//
|
||||
// ********************************************************************
|
||||
// * License and Disclaimer *
|
||||
// * *
|
||||
// * The Geant4 software is copyright of the Copyright Holders of *
|
||||
// * the Geant4 Collaboration. It is provided under the terms and *
|
||||
// * conditions of the Geant4 Software License, included in the file *
|
||||
// * LICENSE and available at http://cern.ch/geant4/license . These *
|
||||
// * include a list of copyright holders. *
|
||||
// * *
|
||||
// * Neither the authors of this software system, nor their employing *
|
||||
// * institutes,nor the agencies providing financial support for this *
|
||||
// * work make any representation or warranty, express or implied, *
|
||||
// * regarding this software system or assume any liability for its *
|
||||
// * use. Please see the license in the file LICENSE and URL above *
|
||||
// * for the full disclaimer and the limitation of liability. *
|
||||
// * *
|
||||
// * This code implementation is the result of the scientific and *
|
||||
// * technical work of the GEANT4 collaboration. *
|
||||
// * By using, copying, modifying or distributing the software (or *
|
||||
// * any work based on the software) you agree to acknowledge its *
|
||||
// * use in resulting scientific publications, and indicate your *
|
||||
// * acceptance of all terms of the Geant4 Software license. *
|
||||
// ********************************************************************
|
||||
//
|
||||
// $Id: G4AblaFissionBase.hh,v 1.2 2008/06/25 17:20:04 kaitanie Exp $
|
||||
// Translation of INCL4.2/ABLA V3
|
||||
// Pekka Kaitaniemi, HIP (translation)
|
||||
// Christelle Schmidt, IPNL (fission code)
|
||||
// Alain Boudard, CEA (contact person INCL/ABLA)
|
||||
// Aatos Heikkinen, HIP (project coordination)
|
||||
|
||||
#ifndef G4AblaFissionBase_hh
|
||||
#define G4AblaFissionBase_hh 1
|
||||
|
||||
#include "globals.hh"
|
||||
|
||||
/*
|
||||
* Abstract interface to fission models.
|
||||
*/
|
||||
|
||||
class G4AblaFissionBase {
|
||||
|
||||
public:
|
||||
G4AblaFissionBase() {}
|
||||
~G4AblaFissionBase() {}
|
||||
|
||||
virtual void doFission(G4double &A, G4double &Z, G4double &E,
|
||||
G4double &A1, G4double &Z1, G4double &E1, G4double &K1,
|
||||
G4double &A2, G4double &Z2, G4double &E2, G4double &K2) = 0;
|
||||
|
||||
void about() {
|
||||
G4cout << aboutModel << G4endl;
|
||||
}
|
||||
|
||||
void setAboutString(G4String about) {
|
||||
aboutModel = about;
|
||||
}
|
||||
|
||||
private:
|
||||
G4String aboutModel;
|
||||
};
|
||||
|
||||
#endif
|
||||
@@ -0,0 +1,103 @@
|
||||
//
|
||||
// ********************************************************************
|
||||
// * License and Disclaimer *
|
||||
// * *
|
||||
// * The Geant4 software is copyright of the Copyright Holders of *
|
||||
// * the Geant4 Collaboration. It is provided under the terms and *
|
||||
// * conditions of the Geant4 Software License, included in the file *
|
||||
// * LICENSE and available at http://cern.ch/geant4/license . These *
|
||||
// * include a list of copyright holders. *
|
||||
// * *
|
||||
// * Neither the authors of this software system, nor their employing *
|
||||
// * institutes,nor the agencies providing financial support for this *
|
||||
// * work make any representation or warranty, express or implied, *
|
||||
// * regarding this software system or assume any liability for its *
|
||||
// * use. Please see the license in the file LICENSE and URL above *
|
||||
// * for the full disclaimer and the limitation of liability. *
|
||||
// * *
|
||||
// * This code implementation is the result of the scientific and *
|
||||
// * technical work of the GEANT4 collaboration. *
|
||||
// * By using, copying, modifying or distributing the software (or *
|
||||
// * any work based on the software) you agree to acknowledge its *
|
||||
// * use in resulting scientific publications, and indicate your *
|
||||
// * acceptance of all terms of the Geant4 Software license. *
|
||||
// ********************************************************************
|
||||
//
|
||||
// $Id: G4AblaFissionSimfis18.hh,v 1.2 2008/06/25 17:20:04 kaitanie Exp $
|
||||
// Translation of INCL4.2/ABLA V3
|
||||
// Pekka Kaitaniemi, HIP (translation)
|
||||
// Christelle Schmidt, IPNL (fission code)
|
||||
// Alain Boudard, CEA (contact person INCL/ABLA)
|
||||
// Aatos Heikkinen, HIP (project coordination)
|
||||
|
||||
#ifndef G4AblaFissionSimfis18_hh
|
||||
#define G4AblaFissionSimfis18_hh 1
|
||||
|
||||
#include "G4AblaFissionBase.hh"
|
||||
#include "G4InclDataDefs.hh"
|
||||
#include "G4InclRandomNumbers.hh"
|
||||
|
||||
class G4AblaFissionSimfis18 : public G4AblaFissionBase {
|
||||
|
||||
public:
|
||||
G4AblaFissionSimfis18();
|
||||
G4AblaFissionSimfis18(G4Hazard *hzr, G4InclRandomInterface *rndm);
|
||||
|
||||
~G4AblaFissionSimfis18();
|
||||
|
||||
void doFission(G4double &A, G4double &Z, G4double &E,
|
||||
G4double &A1, G4double &Z1, G4double &E1, G4double &K1,
|
||||
G4double &A2, G4double &Z2, G4double &E2, G4double &K2);
|
||||
|
||||
/**
|
||||
*
|
||||
*/
|
||||
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);
|
||||
|
||||
|
||||
|
||||
G4int min(G4int a, G4int b);
|
||||
G4double min(G4double a, G4double b);
|
||||
G4int max(G4int a, G4int b);
|
||||
G4double max(G4double a, G4double b);
|
||||
|
||||
G4int nint(G4double number);
|
||||
G4int secnds(G4int x);
|
||||
G4int mod(G4int a, G4int b);
|
||||
G4double dmod(G4double a, G4double b);
|
||||
G4double dint(G4double a);
|
||||
G4int idint(G4double a);
|
||||
G4int idnint(G4double value);
|
||||
G4double utilabs(G4double a);
|
||||
G4double dmin1(G4double a, G4double b, G4double c);
|
||||
|
||||
private:
|
||||
G4InclRandomInterface *randomGenerator;
|
||||
G4Hazard *hazard;
|
||||
};
|
||||
|
||||
#endif
|
||||
@@ -23,7 +23,7 @@
|
||||
// * acceptance of all terms of the Geant4 Software license. *
|
||||
// ********************************************************************
|
||||
//
|
||||
// $Id: G4Incl.hh,v 1.10 2007/12/03 19:36:06 miheikki Exp $
|
||||
// $Id: G4Incl.hh,v 1.13 2008/06/25 17:20:04 kaitanie Exp $
|
||||
// Translation of INCL4.2/ABLA V3
|
||||
// Pekka Kaitaniemi, HIP (translation)
|
||||
// Christelle Schmidt, IPNL (fission code)
|
||||
@@ -34,6 +34,7 @@
|
||||
#define G4Incl_hh 1
|
||||
|
||||
#include "globals.hh"
|
||||
#include "G4InclRandomNumbers.hh"
|
||||
#include "G4InclDataDefs.hh"
|
||||
#include "G4Abla.hh"
|
||||
#include <fstream>
|
||||
@@ -815,6 +816,7 @@ public: // Utilities
|
||||
|
||||
G4Volant *volant;
|
||||
G4Abla *abla;
|
||||
G4InclRandomInterface *randomGenerator;
|
||||
};
|
||||
|
||||
#endif
|
||||
|
||||
@@ -23,7 +23,7 @@
|
||||
// * acceptance of all terms of the Geant4 Software license. *
|
||||
// ********************************************************************
|
||||
//
|
||||
// $Id: G4InclAblaVirtualData.hh,v 1.3 2007/12/03 19:36:06 miheikki Exp $
|
||||
// $Id: G4InclAblaVirtualData.hh,v 1.5 2008/06/25 17:20:04 kaitanie Exp $
|
||||
// Translation of INCL4.2/ABLA V3
|
||||
// Pekka Kaitaniemi, HIP (translation)
|
||||
// Christelle Schmidt, IPNL (fission code)
|
||||
@@ -98,8 +98,8 @@ public:
|
||||
|
||||
private:
|
||||
|
||||
static const G4int alphaRows = 155;
|
||||
static const G4int alphaCols = 100;
|
||||
static const G4int alphaRows = 154;
|
||||
static const G4int alphaCols = 99;
|
||||
|
||||
static const G4int paceRows = 500;
|
||||
static const G4int paceCols = 500;
|
||||
|
||||
@@ -23,7 +23,7 @@
|
||||
// * acceptance of all terms of the Geant4 Software license. *
|
||||
// ********************************************************************
|
||||
//
|
||||
// $Id: G4InclDataDefs.hh,v 1.2 2007/09/11 13:18:43 miheikki Exp $
|
||||
// $Id: G4InclDataDefs.hh,v 1.5 2008/06/25 17:20:04 kaitanie Exp $
|
||||
// Translation of INCL4.2/ABLA V3
|
||||
// Pekka Kaitaniemi, HIP (translation)
|
||||
// Christelle Schmidt, IPNL (fission code)
|
||||
@@ -562,6 +562,184 @@ public:
|
||||
G4VarNtp() {};
|
||||
~G4VarNtp() {};
|
||||
|
||||
/**
|
||||
* Clear and initialize all variables and arrays.
|
||||
*/
|
||||
void clear() {
|
||||
particleIndex = 0;
|
||||
projType = 0;
|
||||
projEnergy = 0.0;
|
||||
targetA = 0;
|
||||
targetZ = 0;
|
||||
massini = 0;
|
||||
mzini = 0;
|
||||
exini = 0;
|
||||
pcorem = 0;
|
||||
mcorem = 0;
|
||||
pxrem = 0;
|
||||
pyrem = 0;
|
||||
pzrem = 0;
|
||||
mulncasc = 0;
|
||||
mulnevap = 0;
|
||||
mulntot = 0;
|
||||
bimpact = 0.0;
|
||||
jremn = 0;
|
||||
kfis = 0;
|
||||
estfis = 0;
|
||||
izfis = 0;
|
||||
iafis = 0;
|
||||
ntrack = 0;
|
||||
for(G4int i = 0; i < VARNTPSIZE; i++) {
|
||||
itypcasc[i] = 0;
|
||||
avv[i] = 0;
|
||||
zvv[i] = 0;
|
||||
enerj[i] = 0.0;
|
||||
plab[i] = 0.0;
|
||||
tetlab[i] = 0.0;
|
||||
philab[i] = 0.0;
|
||||
full[i] = false;
|
||||
}
|
||||
}
|
||||
|
||||
void addParticle(G4double A, G4double Z, G4double E, G4double P, G4double theta, G4double phi) {
|
||||
if(full[particleIndex]) {
|
||||
G4cout <<"G4VarNtp: Error. Index i = " << particleIndex << " is already occupied by particle:" << G4endl;
|
||||
G4cout <<"A = " << avv[particleIndex] << " Z = " << zvv[particleIndex] << G4endl;
|
||||
G4cout <<"Tried to replace it with:" << G4endl;
|
||||
G4cout <<"A = " << Z << " Z = " << Z << G4endl;
|
||||
} else {
|
||||
avv[particleIndex] = (int) A;
|
||||
zvv[particleIndex] = (int) Z;
|
||||
enerj[particleIndex] = E;
|
||||
plab[particleIndex] = P;
|
||||
tetlab[particleIndex] = theta;
|
||||
philab[particleIndex] = phi;
|
||||
full[particleIndex] = true;
|
||||
ntrack = particleIndex + 1;
|
||||
particleIndex++;
|
||||
}
|
||||
}
|
||||
|
||||
/**
|
||||
* Baryon number conservation check.
|
||||
*/
|
||||
G4int getTotalBaryonNumber() {
|
||||
G4int baryonNumber = 0;
|
||||
for(G4int i = 0; i < ntrack; i++) {
|
||||
if(avv[i] > 0) {
|
||||
baryonNumber += avv[i];
|
||||
}
|
||||
}
|
||||
return baryonNumber;
|
||||
}
|
||||
|
||||
/**
|
||||
* Return total energy.
|
||||
*/
|
||||
G4double getTotalEnergy() {
|
||||
G4double energy = 0.0;
|
||||
for(G4int i = 0; i < ntrack; i++) {
|
||||
energy += std::sqrt(std::pow(plab[i], 2) + std::pow(getMass(i), 2)); // E^2 = p^2 + m^2
|
||||
}
|
||||
|
||||
return energy;
|
||||
}
|
||||
|
||||
/**
|
||||
* Return total three momentum.
|
||||
*/
|
||||
G4double getTotalThreeMomentum() {
|
||||
G4double momentum = 0;
|
||||
for(G4int i = 0; i < ntrack; i++) {
|
||||
momentum += plab[i];
|
||||
}
|
||||
return momentum;
|
||||
}
|
||||
|
||||
G4double getMomentumSum() {
|
||||
G4double momentum = 0;
|
||||
for(G4int i = 0; i < ntrack; i++) {
|
||||
momentum += plab[i];
|
||||
}
|
||||
return momentum;
|
||||
}
|
||||
|
||||
G4double getMass(G4int particle) {
|
||||
const G4double protonMass = 938.272;
|
||||
const G4double neutronMass = 939.565;
|
||||
const G4double pionMass = 139.57;
|
||||
|
||||
G4double mass = 0.0;
|
||||
if(avv[particle] == 1 && zvv[particle] == 1) mass = protonMass;
|
||||
if(avv[particle] == 1 && zvv[particle] == 0) mass = neutronMass;
|
||||
if(avv[particle] == -1) mass = pionMass;
|
||||
if(avv[particle] > 1)
|
||||
mass = avv[particle] * protonMass + zvv[particle] * neutronMass;
|
||||
return mass;
|
||||
}
|
||||
|
||||
/**
|
||||
* Dump debugging output.
|
||||
*/
|
||||
void dump() {
|
||||
G4int nProton = 0, nNeutron = 0;
|
||||
G4int nPiPlus = 0, nPiZero = 0, nPiMinus = 0;
|
||||
G4int nH2 = 0, nHe3 = 0, nAlpha = 0;
|
||||
G4int nFragments = 0;
|
||||
G4int nParticles = 0;
|
||||
G4cout <<"Particles produced in the event (" << ntrack << "):" << G4endl;
|
||||
G4cout <<"A \t Z \t Ekin \t Ptot \t Theta \t Phi" << G4endl;
|
||||
for(G4int i = 0; i < ntrack; i++) {
|
||||
nParticles++;
|
||||
if(avv[i] == 1 && zvv[i] == 1) nProton++; // Count multiplicities
|
||||
if(avv[i] == 1 && zvv[i] == 0) nNeutron++;
|
||||
if(avv[i] == -1 && zvv[i] == 1) nPiPlus++;
|
||||
if(avv[i] == -1 && zvv[i] == 0) nPiZero++;
|
||||
if(avv[i] == -1 && zvv[i] == -1) nPiMinus++;
|
||||
if(avv[i] == 2 && zvv[i] == 1) nH2++;
|
||||
if(avv[i] == 3 && zvv[i] == 2) nHe3++;
|
||||
if(avv[i] == 4 && zvv[i] == 2) nAlpha++;
|
||||
if( zvv[i] > 2) nFragments++;
|
||||
|
||||
G4cout << i << " \t " << avv[i] << " \t " << zvv[i] << " \t " << enerj[i] << " \t "
|
||||
<< plab[i] << " \t " << tetlab[i] << " \t " << philab[i] << G4endl;
|
||||
}
|
||||
|
||||
G4cout <<"Summary of event: " << G4endl;
|
||||
G4cout <<"Projectile type: " << projType <<" Energy: " << projEnergy << G4endl;
|
||||
G4cout <<"Target A = " << targetA << " Z = " << targetZ << G4endl;
|
||||
G4cout <<"Remnant from cascade: " << G4endl;
|
||||
G4cout <<"A = " << massini << " Z = " << mzini << " excitation E = " << exini << G4endl;
|
||||
G4cout <<"Particle multiplicities:" << G4endl;
|
||||
G4cout <<"Protons: " << nProton << " Neutrons: " << nNeutron << G4endl;
|
||||
G4cout <<"pi+: " << nPiPlus << " pi0: " << nPiZero << " pi-: " << nPiMinus << G4endl;
|
||||
G4cout <<"H2: " << nH2 << " He3: " << nHe3 << " Alpha: " << nAlpha << G4endl;
|
||||
G4cout <<"Nucleus fragments = " << nFragments << G4endl;
|
||||
G4cout <<"Conservation laws:" << G4endl;
|
||||
G4cout <<"Baryon number = " << getTotalBaryonNumber() << G4endl;
|
||||
G4cout <<"Number of particles = " << nParticles << G4endl;
|
||||
}
|
||||
|
||||
/**
|
||||
* Projectile type.
|
||||
*/
|
||||
G4int projType;
|
||||
|
||||
/**
|
||||
* Projectile energy.
|
||||
*/
|
||||
G4double projEnergy;
|
||||
|
||||
/**
|
||||
* Target mass number.
|
||||
*/
|
||||
G4int targetA;
|
||||
|
||||
/**
|
||||
* Target charge number.
|
||||
*/
|
||||
G4int targetZ;
|
||||
|
||||
/**
|
||||
* A of the remnant.
|
||||
*/
|
||||
@@ -577,6 +755,8 @@ public:
|
||||
*/
|
||||
G4double exini;
|
||||
|
||||
G4double pcorem, mcorem, pxrem, pyrem, pzrem;
|
||||
|
||||
/**
|
||||
* Cascade n multip.
|
||||
*/
|
||||
@@ -627,6 +807,13 @@ public:
|
||||
*/
|
||||
G4int ntrack;
|
||||
|
||||
/**
|
||||
* The state of the index:
|
||||
* true = reserved
|
||||
* false = free
|
||||
*/
|
||||
G4bool full[VARNTPSIZE];
|
||||
|
||||
/**
|
||||
* emitted in cascade (0) or evaporation (1).
|
||||
*/
|
||||
@@ -662,6 +849,9 @@ public:
|
||||
* Phi angle.
|
||||
*/
|
||||
G4double philab[VARNTPSIZE];
|
||||
|
||||
private:
|
||||
G4int particleIndex;
|
||||
};
|
||||
|
||||
/**
|
||||
|
||||
@@ -0,0 +1,100 @@
|
||||
//
|
||||
// ********************************************************************
|
||||
// * License and Disclaimer *
|
||||
// * *
|
||||
// * The Geant4 software is copyright of the Copyright Holders of *
|
||||
// * the Geant4 Collaboration. It is provided under the terms and *
|
||||
// * conditions of the Geant4 Software License, included in the file *
|
||||
// * LICENSE and available at http://cern.ch/geant4/license . These *
|
||||
// * include a list of copyright holders. *
|
||||
// * *
|
||||
// * Neither the authors of this software system, nor their employing *
|
||||
// * institutes,nor the agencies providing financial support for this *
|
||||
// * work make any representation or warranty, express or implied, *
|
||||
// * regarding this software system or assume any liability for its *
|
||||
// * use. Please see the license in the file LICENSE and URL above *
|
||||
// * for the full disclaimer and the limitation of liability. *
|
||||
// * *
|
||||
// * This code implementation is the result of the scientific and *
|
||||
// * technical work of the GEANT4 collaboration. *
|
||||
// * By using, copying, modifying or distributing the software (or *
|
||||
// * any work based on the software) you agree to acknowledge its *
|
||||
// * use in resulting scientific publications, and indicate your *
|
||||
// * acceptance of all terms of the Geant4 Software license. *
|
||||
// ********************************************************************
|
||||
//
|
||||
// $Id: G4InclRandomNumbers.hh,v 1.3 2008/06/25 17:20:04 kaitanie Exp $
|
||||
// Translation of INCL4.2/ABLA V3
|
||||
// Pekka Kaitaniemi, HIP (translation)
|
||||
// Christelle Schmidt, IPNL (fission code)
|
||||
// Alain Boudard, CEA (contact person INCL/ABLA)
|
||||
// Aatos Heikkinen, HIP (project coordination)
|
||||
|
||||
#include "globals.hh"
|
||||
#include "Randomize.hh"
|
||||
|
||||
#ifndef G4InclRandomNumbers_hh
|
||||
#define G4InclRandomNumbers_hh 1
|
||||
|
||||
/**
|
||||
* Interface for the random number services.
|
||||
*/
|
||||
class G4InclRandomInterface {
|
||||
|
||||
public:
|
||||
G4InclRandomInterface() { }
|
||||
G4InclRandomInterface(G4long seed) {
|
||||
this->seed = seed;
|
||||
}
|
||||
|
||||
~G4InclRandomInterface() { }
|
||||
|
||||
/**
|
||||
* Provide evenly distributed random numbers.
|
||||
*/
|
||||
virtual G4double getRandom() = 0;
|
||||
|
||||
private:
|
||||
G4long seed;
|
||||
};
|
||||
|
||||
/**
|
||||
* Provides dummy random number generator that always produces one
|
||||
* number.
|
||||
*/
|
||||
class G4InclDummyRandom : public G4InclRandomInterface {
|
||||
|
||||
public:
|
||||
G4InclDummyRandom() { }
|
||||
|
||||
~G4InclDummyRandom() { }
|
||||
|
||||
/**
|
||||
* Always return one "random" number. This interface is intended as
|
||||
* a debugging tool in order to produce some specific event.
|
||||
*/
|
||||
G4double getRandom() {
|
||||
return 0.5;
|
||||
}
|
||||
};
|
||||
|
||||
/**
|
||||
* Interface to the Geant4 random number services.
|
||||
*/
|
||||
class G4InclGeant4Random : public G4InclRandomInterface {
|
||||
|
||||
public:
|
||||
G4InclGeant4Random() { }
|
||||
|
||||
~G4InclGeant4Random() { }
|
||||
|
||||
/**
|
||||
* Always return one "random" number. This interface is intended as
|
||||
* a debugging tool in order to produce some specific event.
|
||||
*/
|
||||
G4double getRandom() {
|
||||
return G4UniformRand();
|
||||
}
|
||||
};
|
||||
|
||||
#endif
|
||||
@@ -0,0 +1,44 @@
|
||||
//
|
||||
// ********************************************************************
|
||||
// * License and Disclaimer *
|
||||
// * *
|
||||
// * The Geant4 software is copyright of the Copyright Holders of *
|
||||
// * the Geant4 Collaboration. It is provided under the terms and *
|
||||
// * conditions of the Geant4 Software License, included in the file *
|
||||
// * LICENSE and available at http://cern.ch/geant4/license . These *
|
||||
// * include a list of copyright holders. *
|
||||
// * *
|
||||
// * Neither the authors of this software system, nor their employing *
|
||||
// * institutes,nor the agencies providing financial support for this *
|
||||
// * work make any representation or warranty, express or implied, *
|
||||
// * regarding this software system or assume any liability for its *
|
||||
// * use. Please see the license in the file LICENSE and URL above *
|
||||
// * for the full disclaimer and the limitation of liability. *
|
||||
// * *
|
||||
// * This code implementation is the result of the scientific and *
|
||||
// * technical work of the GEANT4 collaboration. *
|
||||
// * By using, copying, modifying or distributing the software (or *
|
||||
// * any work based on the software) you agree to acknowledge its *
|
||||
// * use in resulting scientific publications, and indicate your *
|
||||
// * acceptance of all terms of the Geant4 Software license. *
|
||||
// ********************************************************************
|
||||
//
|
||||
// $Id: G4Ranecu.hh,v 1.3 2008/06/25 17:20:04 kaitanie Exp $
|
||||
// Translation of INCL4.2/ABLA V3
|
||||
// Pekka Kaitaniemi, HIP (translation)
|
||||
// Christelle Schmidt, IPNL (fission code)
|
||||
// Alain Boudard, CEA (contact person INCL/ABLA)
|
||||
// Aatos Heikkinen, HIP (project coordination)
|
||||
|
||||
#include "G4InclRandomNumbers.hh"
|
||||
|
||||
class G4Ranecu : public G4InclRandomInterface {
|
||||
public:
|
||||
G4Ranecu();
|
||||
~G4Ranecu();
|
||||
|
||||
G4double getRandom();
|
||||
|
||||
private:
|
||||
G4long iseed1, iseed2;
|
||||
};
|
||||
Reference in New Issue
Block a user