| Geant4 Cross Reference |
1 //
2 // ********************************************************************
3 // * License and Disclaimer *
4 // * *
5 // * The Geant4 software is copyright of the Copyright Holders of *
6 // * the Geant4 Collaboration. It is provided under the terms and *
7 // * conditions of the Geant4 Software License, included in the file *
8 // * LICENSE and available at http://cern.ch/geant4/license . These *
9 // * include a list of copyright holders. *
10 // * *
11 // * Neither the authors of this software system, nor their employing *
12 // * institutes,nor the agencies providing financial support for this *
13 // * work make any representation or warranty, express or implied, *
14 // * regarding this software system or assume any liability for its *
15 // * use. Please see the license in the file LICENSE and URL above *
16 // * for the full disclaimer and the limitation of liability. *
17 // * *
18 // * This code implementation is the result of the scientific and *
19 // * technical work of the GEANT4 collaboration. *
20 // * By using, copying, modifying or distributing the software (or *
21 // * any work based on the software) you agree to acknowledge its *
22 // * use in resulting scientific publications, and indicate your *
23 // * acceptance of all terms of the Geant4 Software license. *
24 // ********************************************************************
25 //
26 //
27 //---------------------------------------------------------------------------
28 //
29 // ClassName: G4HadronPhysicsQGSP_BERT_HP
30 //
31 // Author: 2002 J.P. Wellisch
32 //
33 // Modified:
34 // 15.12.2005 G.Folger: migration to non static particles
35 // 08.06.2006 V.Ivanchenko: remove stopping
36 // 20.06.2006 G.Folger: Bertini applies to Kaons, i.e. use SetMinEnergy
37 // instead of SetMinPionEnergy
38 // 25.04.2007 G.Folger: Add code for quasielastic
39 // 31.10.2012 A.Ribon: Use G4MiscBuilder
40 // 19.03.2013 A.Ribon: Replace LEP with FTFP
41 // 12.10.2023 V.Ivanchenko added usage of alternative neutron
42 // HP model and cross section
43 //
44 //----------------------------------------------------------------------------
45 //
46 #include <iomanip>
47
48 #include "G4HadronPhysicsQGSP_BERT_HP.hh"
49
50 #include "globals.hh"
51 #include "G4ios.hh"
52 #include "G4SystemOfUnits.hh"
53 #include "G4ParticleDefinition.hh"
54 #include "G4ParticleTable.hh"
55
56 #include "G4NeutronBuilder.hh"
57 #include "G4FTFPNeutronBuilder.hh"
58 #include "G4QGSPNeutronBuilder.hh"
59 #include "G4BertiniNeutronBuilder.hh"
60 #include "G4NeutronPHPBuilder.hh"
61
62 #include "G4HadronInelasticProcess.hh"
63 #include "G4NeutronCaptureProcess.hh"
64 #include "G4NeutronFissionProcess.hh"
65
66 #include "G4NeutronRadCaptureHP.hh"
67 #include "G4NeutronHPCaptureXS.hh"
68 #include "G4NeutronHPFissionXS.hh"
69 #include "G4NeutronHPInelasticXS.hh"
70 #include "G4NeutronHPInelasticVI.hh"
71 #include "G4NeutronInelasticXS.hh"
72 #include "G4ParticleHPInelastic.hh"
73 #include "G4NeutronFissionVI.hh"
74 #include "G4ProcessVector.hh"
75 #include "G4ProcessManager.hh"
76 #include "G4NuDEXNeutronCaptureModel.hh"
77
78 #include "G4HadronicParameters.hh"
79
80 // factory
81 #include "G4PhysicsConstructorFactory.hh"
82 //
83 G4_DECLARE_PHYSCONSTR_FACTORY(G4HadronPhysicsQGSP_BERT_HP);
84
85 G4HadronPhysicsQGSP_BERT_HP::G4HadronPhysicsQGSP_BERT_HP(G4int verb)
86 : G4HadronPhysicsQGSP_BERT_HP("hInelastic QGSP_BERT_HP")
87 {
88 G4HadronicParameters::Instance()->SetVerboseLevel(verb);
89 }
90
91 G4HadronPhysicsQGSP_BERT_HP::G4HadronPhysicsQGSP_BERT_HP(const G4String& name, G4bool /*quasiElastic */ )
92 : G4HadronPhysicsQGSP_BERT(name)
93 {
94 minBERT_neutron = 19.9*MeV;
95 auto param = G4HadronicParameters::Instance();
96 // HP is inconsistent with the neutron general process
97 param->SetEnableNeutronGeneralProcess(false);
98 }
99
100 void G4HadronPhysicsQGSP_BERT_HP::Neutron()
101 {
102 G4HadronicParameters* param = G4HadronicParameters::Instance();
103 G4bool useFactorXS = param->ApplyFactorXS();
104
105 const G4ParticleDefinition* neutron = G4Neutron::Neutron();
106 auto inel = new G4HadronInelasticProcess( "neutronInelastic", neutron );
107 neutron->GetProcessManager()->AddDiscreteProcess(inel);
108
109 G4QGSPNeutronBuilder qgs(QuasiElasticQGS);
110 qgs.SetMinEnergy(minQGSP_neutron);
111 qgs.Build(inel);
112
113 G4FTFPNeutronBuilder ftf(QuasiElasticFTF);
114 ftf.SetMinEnergy(minFTFP_neutron);
115 ftf.SetMaxEnergy(maxFTFP_neutron);
116 ftf.Build(inel);
117
118 G4BertiniNeutronBuilder bert;
119 bert.SetMinEnergy(minBERT_neutron);
120 bert.SetMaxEnergy(maxBERT_neutron);
121 bert.Build(inel);
122
123 auto xsinel = new G4NeutronInelasticXS();
124 inel->AddDataSet( xsinel );
125 inel->AddDataSet( new G4NeutronHPInelasticXS() );
126 auto mod = new G4NeutronHPInelasticVI();
127 mod->SetMaxEnergy( 20*CLHEP::MeV );
128 inel->RegisterMe( mod );
129 if ( useFactorXS )
130 inel->MultiplyCrossSectionBy( param->XSFactorNucleonInelastic() );
131
132 auto capture = new G4NeutronCaptureProcess( "nCaptureHP" );
133 neutron->GetProcessManager()->AddDiscreteProcess(capture);
134 capture->AddDataSet( new G4NeutronHPCaptureXS() );
135 if (param->EnableNUDEX()) {
136 capture->RegisterMe( new G4NuDEXNeutronCaptureModel() );
137 } else {
138 capture->RegisterMe( new G4NeutronRadCaptureHP() );
139 }
140
141 auto fission = new G4NeutronFissionProcess( "nFissionHP" );
142 neutron->GetProcessManager()->AddDiscreteProcess(fission);
143 fission->AddDataSet( new G4NeutronHPFissionXS() );
144 fission->RegisterMe( new G4NeutronFissionVI() );
145 }
146