Back to home page

EIC code displayed by LXR

 
 

    


File indexing completed on 2025-10-25 08:44:33

0001 //
0002 // ********************************************************************
0003 // * License and Disclaimer                                           *
0004 // *                                                                  *
0005 // * The  Geant4 software  is  copyright of the Copyright Holders  of *
0006 // * the Geant4 Collaboration.  It is provided  under  the terms  and *
0007 // * conditions of the Geant4 Software License,  included in the file *
0008 // * LICENSE and available at  http://cern.ch/geant4/license .  These *
0009 // * include a list of copyright holders.                             *
0010 // *                                                                  *
0011 // * Neither the authors of this software system, nor their employing *
0012 // * institutes,nor the agencies providing financial support for this *
0013 // * work  make  any representation or  warranty, express or implied, *
0014 // * regarding  this  software system or assume any liability for its *
0015 // * use.  Please see the license in the file  LICENSE  and URL above *
0016 // * for the full disclaimer and the limitation of liability.         *
0017 // *                                                                  *
0018 // * This  code  implementation is the result of  the  scientific and *
0019 // * technical work of the GEANT4 collaboration.                      *
0020 // * By using,  copying,  modifying or  distributing the software (or *
0021 // * any work based  on the software)  you  agree  to acknowledge its *
0022 // * use  in  resulting  scientific  publications,  and indicate your *
0023 // * acceptance of all terms of the Geant4 Software license.          *
0024 // ********************************************************************
0025 //
0026 // ABLAXX statistical de-excitation model
0027 // Jose Luis Rodriguez, UDC (translation from ABLA07 and contact person)
0028 // Pekka Kaitaniemi, HIP (initial translation of ablav3p)
0029 // Aleksandra Kelic, GSI (ABLA07 code)
0030 // Davide Mancusi, CEA (contact person INCL)
0031 // Aatos Heikkinen, HIP (project coordination)
0032 //
0033 
0034 #pragma once
0035 
0036 #include "globals.hh"
0037 #include <cmath>
0038 #include <vector>
0039 
0040 
0041 constexpr const G4int nrows = 180;
0042 constexpr const G4int zcols = 122;
0043 
0044 constexpr const G4int lpcols = 13;
0045 constexpr const G4int lprows = 154;
0046 
0047 constexpr const G4int nrowsbeta = 251;
0048 constexpr const G4int zcolsbeta = 137;
0049 
0050 constexpr const G4int indexpart = 300;
0051 
0052 // Data structures needed by ABLA evaporation code
0053 
0054 class G4Mexp {
0055 
0056 public:
0057   G4Mexp(){};
0058 
0059   virtual ~G4Mexp() = default;
0060 
0061   G4double massexp[lprows][lpcols] = {{0.}};
0062   G4double bind[lprows][lpcols] = {{0.}};
0063   G4int mexpiop[lprows][lpcols] = {{0}};
0064 };
0065 
0066 class G4Ec2sub {
0067 public:
0068   G4Ec2sub(){};
0069 
0070   virtual ~G4Ec2sub() = default;
0071 
0072   G4double ecnz[nrows][zcols] = {{0.}};
0073 };
0074 
0075 class G4Ald {
0076 public:
0077   G4Ald() : av(0.0), as(0.0), ak(0.0), optafan(0.0){};
0078 
0079   virtual ~G4Ald() = default;
0080 
0081   G4double av, as, ak, optafan = 0.;
0082 };
0083 
0084 /**
0085  * Shell corrections and deformations.
0086  **/
0087 
0088 class G4Ecld {
0089 
0090 public:
0091   G4Ecld(){};
0092   virtual ~G4Ecld() = default;
0093 
0094   /**
0095    * Ground state shell correction frldm for a spherical ground state.
0096    */
0097   G4double ecgnz[nrows][zcols] = {{0.}};
0098 
0099   /**
0100    * Shell correction for the saddle point (now: == 0).
0101    */
0102   G4double ecfnz[nrows][zcols] = {{0.}};
0103 
0104   /**
0105    * Difference between deformed ground state and ldm value.
0106    */
0107   G4double vgsld[nrows][zcols] = {{0.}};
0108 
0109   /**
0110    * Alpha ground state deformation (this is not beta2!)
0111    * beta2 = std::sqrt(5/(4pi)) * alpha
0112    */
0113   G4double alpha[nrows][zcols] = {{0.}};
0114 
0115   /**
0116    * RMS function for lcp emission barriers
0117    */
0118   G4double rms[nrows][zcols] = {{0.}};
0119 
0120   /**
0121    * Beta2 deformations
0122    */
0123   G4double beta2[nrowsbeta][zcolsbeta] = {{0.}};
0124 
0125   /**
0126    * Beta4 deformations
0127    */
0128   G4double beta4[nrowsbeta][zcolsbeta] = {{0.}};
0129 };
0130 
0131 class G4Fiss {
0132   /**
0133    * Options and parameters for fission channel.
0134    */
0135 
0136 public:
0137   G4Fiss()
0138       : bet(0.0), bethyp(0.0), ifis(0.0), ucr(0.0), dcr(0.0), optshp(0), optxfis(0),
0139         optct(0), optcol(0), at(0), zt(0){};
0140 
0141   virtual ~G4Fiss() = default;
0142 
0143   G4double bet, bethyp, ifis, ucr, dcr;
0144   G4int optshp, optxfis, optct, optcol, at, zt;
0145 };
0146 
0147 /**
0148  * Fission barriers.
0149  */
0150 
0151 class G4Fb {
0152 
0153 public:
0154   G4Fb(){};
0155   virtual ~G4Fb() = default;
0156 
0157   G4double efa[nrows][zcols] = {{0.}};
0158 };
0159 
0160 /**
0161  * Options
0162  */
0163 
0164 class G4Opt {
0165 
0166 public:
0167   G4Opt() : optemd(0), optcha(0), optshpimf(0), optimfallowed(0), nblan0(0){};
0168   
0169   virtual ~G4Opt() = default;
0170 
0171   G4int optemd, optcha, optshpimf, optimfallowed, nblan0;
0172 };
0173 
0174 class G4VarNtp {
0175 public:
0176   G4VarNtp() { clear(); };
0177 
0178   virtual ~G4VarNtp() = default;
0179 
0180   void clear() {
0181     ntrack = 0;
0182     kfis = 0;
0183     itypcasc.clear();
0184     avv.clear();
0185     zvv.clear();
0186     svv.clear();
0187     enerj.clear();
0188     pxlab.clear();
0189     pylab.clear();
0190     pzlab.clear();
0191   }
0192 
0193   /**
0194    * Fission 1/0=Y/N.
0195    */
0196   G4int kfis;
0197 
0198   /**
0199    * Excit energy at fis.
0200    */
0201   G4double estfis = 0.;
0202 
0203   /**
0204    * Z of fiss nucleus.
0205    */
0206   G4int izfis = 0;
0207 
0208   /**
0209    * A of fiss nucleus.
0210    */
0211   G4int iafis = 0;
0212 
0213   /**
0214    * Number of particles.
0215    */
0216   G4int ntrack;
0217 
0218   /**
0219    * Does this nucleus require Fermi break-up treatment? Only
0220    * applicable when used together with Geant4.
0221    * true = do fermi break-up (and skip ABLA part)
0222    * false = use ABLA
0223    */
0224   G4bool needsFermiBreakup = false;
0225 
0226   /**
0227    * emitted in cascade (0) or evaporation (1).
0228    */
0229   std::vector<G4int> itypcasc;
0230 
0231   /**
0232    * A (-1 for pions).
0233    */
0234   std::vector<G4int> avv;
0235 
0236   /**
0237    * Z
0238    */
0239   std::vector<G4int> zvv;
0240 
0241   /**
0242    * S (-1 for lambda_0).
0243    */
0244   std::vector<G4int> svv;
0245 
0246   /**
0247    * Kinetic energy.
0248    */
0249   std::vector<G4double> enerj;
0250 
0251   /**
0252    * Momentum.
0253    */
0254   std::vector<G4double> plab;
0255   std::vector<G4double> pxlab;
0256   std::vector<G4double> pylab;
0257   std::vector<G4double> pzlab;
0258 
0259   /**
0260    * Theta angle.
0261    */
0262   std::vector<G4double> tetlab;
0263 
0264   /**
0265    * Phi angle.
0266    */
0267   std::vector<G4double> philab;
0268 
0269 };