Back to home page

EIC code displayed by LXR

 
 

    


File indexing completed on 2026-09-05 09:08:20

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 
0038 #include <cmath>
0039 #include <vector>
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     ~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 {
0068   public:
0069     G4Ec2sub() {};
0070 
0071     ~G4Ec2sub() = default;
0072 
0073     G4double ecnz[nrows][zcols] = {{0.}};
0074 };
0075 
0076 class G4Ald
0077 {
0078   public:
0079     G4Ald() : av(0.0), as(0.0), ak(0.0), optafan(0.0) {};
0080 
0081     ~G4Ald() = default;
0082 
0083     G4double av, as, ak, optafan = 0.;
0084 };
0085 
0086 /**
0087  * Shell corrections and deformations.
0088  **/
0089 
0090 class G4Ecld
0091 {
0092   public:
0093     G4Ecld() {};
0094     ~G4Ecld() = default;
0095 
0096     /**
0097      * Ground state shell correction frldm for a spherical ground state.
0098      */
0099     G4double ecgnz[nrows][zcols] = {{0.}};
0100 
0101     /**
0102      * Shell correction for the saddle point (now: == 0).
0103      */
0104     G4double ecfnz[nrows][zcols] = {{0.}};
0105 
0106     /**
0107      * Difference between deformed ground state and ldm value.
0108      */
0109     G4double vgsld[nrows][zcols] = {{0.}};
0110 
0111     /**
0112      * Alpha ground state deformation (this is not beta2!)
0113      * beta2 = std::sqrt(5/(4pi)) * alpha
0114      */
0115     G4double alpha[nrows][zcols] = {{0.}};
0116 
0117     /**
0118      * RMS function for lcp emission barriers
0119      */
0120     G4double rms[nrows][zcols] = {{0.}};
0121 
0122     /**
0123      * Beta2 deformations
0124      */
0125     G4double beta2[nrowsbeta][zcolsbeta] = {{0.}};
0126 
0127     /**
0128      * Beta4 deformations
0129      */
0130     G4double beta4[nrowsbeta][zcolsbeta] = {{0.}};
0131 };
0132 
0133 class G4Fiss
0134 {
0135     /**
0136      * Options and parameters for fission channel.
0137      */
0138 
0139   public:
0140     G4Fiss()
0141       : bet(0.0),
0142         bethyp(0.0),
0143         ifis(0.0),
0144         ucr(0.0),
0145         dcr(0.0),
0146         optshp(0),
0147         optxfis(0),
0148         optct(0),
0149         optcol(0),
0150         at(0),
0151         zt(0) {};
0152 
0153     ~G4Fiss() = default;
0154 
0155     G4double bet, bethyp, ifis, ucr, dcr;
0156     G4int optshp, optxfis, optct, optcol, at, zt;
0157 };
0158 
0159 /**
0160  * Fission barriers.
0161  */
0162 
0163 class G4Fb
0164 {
0165   public:
0166     G4Fb() {};
0167     ~G4Fb() = default;
0168 
0169     G4double efa[nrows][zcols] = {{0.}};
0170 };
0171 
0172 /**
0173  * Options
0174  */
0175 
0176 class G4Opt
0177 {
0178   public:
0179     G4Opt() : optemd(0), optcha(0), optshpimf(0), optimfallowed(0), nblan0(0) {};
0180 
0181     ~G4Opt() = default;
0182 
0183     G4int optemd, optcha, optshpimf, optimfallowed, nblan0;
0184 };
0185 
0186 class G4VarNtp
0187 {
0188   public:
0189     G4VarNtp() { clear(); };
0190 
0191     ~G4VarNtp() = default;
0192 
0193     void clear()
0194     {
0195       ntrack = 0;
0196       kfis = 0;
0197       itypcasc.clear();
0198       avv.clear();
0199       zvv.clear();
0200       svv.clear();
0201       enerj.clear();
0202       pxlab.clear();
0203       pylab.clear();
0204       pzlab.clear();
0205     }
0206 
0207     /**
0208      * Fission 1/0=Y/N.
0209      */
0210     G4int kfis;
0211 
0212     /**
0213      * Excit energy at fis.
0214      */
0215     G4double estfis = 0.;
0216 
0217     /**
0218      * Z of fiss nucleus.
0219      */
0220     G4int izfis = 0;
0221 
0222     /**
0223      * A of fiss nucleus.
0224      */
0225     G4int iafis = 0;
0226 
0227     /**
0228      * Number of particles.
0229      */
0230     G4int ntrack;
0231 
0232     /**
0233      * Does this nucleus require Fermi break-up treatment? Only
0234      * applicable when used together with Geant4.
0235      * true = do fermi break-up (and skip ABLA part)
0236      * false = use ABLA
0237      */
0238     G4bool needsFermiBreakup = false;
0239 
0240     /**
0241      * emitted in cascade (0) or evaporation (1).
0242      */
0243     std::vector<G4int> itypcasc;
0244 
0245     /**
0246      * A (-1 for pions).
0247      */
0248     std::vector<G4int> avv;
0249 
0250     /**
0251      * Z
0252      */
0253     std::vector<G4int> zvv;
0254 
0255     /**
0256      * S (-1 for lambda_0).
0257      */
0258     std::vector<G4int> svv;
0259 
0260     /**
0261      * Kinetic energy.
0262      */
0263     std::vector<G4double> enerj;
0264 
0265     /**
0266      * Momentum.
0267      */
0268     std::vector<G4double> plab;
0269     std::vector<G4double> pxlab;
0270     std::vector<G4double> pylab;
0271     std::vector<G4double> pzlab;
0272 
0273     /**
0274      * Theta angle.
0275      */
0276     std::vector<G4double> tetlab;
0277 
0278     /**
0279      * Phi angle.
0280      */
0281     std::vector<G4double> philab;
0282 };