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 // Modified: 29 // 30 //------------------------------------------------------------------------ 31 // 32 #include "G4HadronPhysicsFTFP_BERT_HP.hh" 33 #include "G4NeutronPHPBuilder.hh" 34 35 #include <iomanip> 36 #include "globals.hh" 37 #include "G4ios.hh" 38 #include "G4SystemOfUnits.hh" 39 40 #include "G4ProcessManager.hh" 41 #include "G4NeutronRadCapture.hh" 42 #include "G4NeutronCaptureXS.hh" 43 #include "G4ParticleHPCaptureData.hh" 44 #include "G4LFission.hh" 45 #include "G4NeutronBuilder.hh" 46 #include "G4FTFPNeutronBuilder.hh" 47 #include "G4BertiniNeutronBuilder.hh" 48 49 #include "G4CrossSectionDataSetRegistry.hh" 50 51 #include "G4PhysListUtil.hh" 52 53 #include "G4HadronicParameters.hh" 54 55 // factory 56 #include "G4PhysicsConstructorFactory.hh" 57 // 58 G4_DECLARE_PHYSCONSTR_FACTORY(G4HadronPhysicsFTFP_BERT_HP); 59 60 61 G4HadronPhysicsFTFP_BERT_HP::G4HadronPhysicsFTFP_BERT_HP(G4int verb) 62 : G4HadronPhysicsFTFP_BERT_HP("hInelastic FTFP_BERT_HP",false) 63 { 64 G4HadronicParameters::Instance()->SetVerboseLevel(verb); 65 } 66 67 G4HadronPhysicsFTFP_BERT_HP::G4HadronPhysicsFTFP_BERT_HP(const G4String& name, G4bool quasiElastic) 68 : G4HadronPhysicsFTFP_BERT(name,quasiElastic) 69 { 70 minBERT_neutron = 19.9*CLHEP::MeV; 71 } 72 73 G4HadronPhysicsFTFP_BERT_HP::~G4HadronPhysicsFTFP_BERT_HP() 74 {} 75 76 void G4HadronPhysicsFTFP_BERT_HP::Neutron() 77 { 78 G4HadronicParameters* param = G4HadronicParameters::Instance(); 79 G4bool useFactorXS = param->ApplyFactorXS(); 80 81 auto neu = new G4NeutronBuilder( true ); // Fission on 82 AddBuilder(neu); 83 auto ftfpneu = new G4FTFPNeutronBuilder(QuasiElastic); 84 AddBuilder(ftfpneu); 85 ftfpneu->SetMinEnergy(minFTFP_neutron); 86 neu->RegisterMe(ftfpneu); 87 auto bertneu = new G4BertiniNeutronBuilder; 88 AddBuilder(bertneu); 89 bertneu->SetMaxEnergy(maxBERT_neutron); 90 bertneu->SetMinEnergy(minBERT_neutron); 91 neu->RegisterMe(bertneu); 92 auto hpneu = new G4NeutronPHPBuilder; 93 AddBuilder(hpneu); 94 neu->RegisterMe(hpneu); 95 neu->Build(); 96 97 const G4ParticleDefinition* neutron = G4Neutron::Neutron(); 98 G4HadronicProcess* inel = G4PhysListUtil::FindInelasticProcess(neutron); 99 if(nullptr != inel) { 100 if( useFactorXS ) inel->MultiplyCrossSectionBy( param->XSFactorNucleonInelastic() ); 101 } 102 103 G4HadronicProcess* capture = G4PhysListUtil::FindCaptureProcess(neutron); 104 if (nullptr != capture) { 105 G4NeutronRadCapture* theNeutronRadCapture = new G4NeutronRadCapture(); 106 theNeutronRadCapture->SetMinEnergy( minBERT_neutron ); 107 capture->RegisterMe( theNeutronRadCapture ); 108 } 109 G4HadronicProcess* fission = G4PhysListUtil::FindFissionProcess(neutron); 110 if (nullptr != fission) { 111 G4LFission* theNeutronLEPFission = new G4LFission(); 112 theNeutronLEPFission->SetMinEnergy( minBERT_neutron ); 113 theNeutronLEPFission->SetMaxEnergy( G4HadronicParameters::Instance()->GetMaxEnergy() ); 114 fission->RegisterMe( theNeutronLEPFission ); 115 } 116 } 117