00001 // 00002 // ******************************************************************** 00003 // * License and Disclaimer * 00004 // * * 00005 // * The Geant4 software is copyright of the Copyright Holders of * 00006 // * the Geant4 Collaboration. It is provided under the terms and * 00007 // * conditions of the Geant4 Software License, included in the file * 00008 // * LICENSE and available at http://cern.ch/geant4/license . These * 00009 // * include a list of copyright holders. * 00010 // * * 00011 // * Neither the authors of this software system, nor their employing * 00012 // * institutes,nor the agencies providing financial support for this * 00013 // * work make any representation or warranty, express or implied, * 00014 // * regarding this software system or assume any liability for its * 00015 // * use. Please see the license in the file LICENSE and URL above * 00016 // * for the full disclaimer and the limitation of liability. * 00017 // * * 00018 // * This code implementation is the result of the scientific and * 00019 // * technical work of the GEANT4 collaboration. * 00020 // * By using, copying, modifying or distributing the software (or * 00021 // * any work based on the software) you agree to acknowledge its * 00022 // * use in resulting scientific publications, and indicate your * 00023 // * acceptance of all terms of the Geant4 Software license. * 00024 // ******************************************************************** 00025 // 00026 // INCL++ intra-nuclear cascade model 00027 // Pekka Kaitaniemi, CEA and Helsinki Institute of Physics 00028 // Davide Mancusi, CEA 00029 // Alain Boudard, CEA 00030 // Sylvie Leray, CEA 00031 // Joseph Cugnon, University of Liege 00032 // 00033 #define INCLXX_IN_GEANT4_MODE 1 00034 00035 #include "globals.hh" 00036 00044 #include "G4INCLXXInterfaceMessenger.hh" 00045 #include <sstream> 00046 00047 const G4String G4INCLXXInterfaceMessenger::theUIDirectory = "/process/had/inclxx/"; 00048 00049 G4INCLXXInterfaceMessenger::G4INCLXXInterfaceMessenger(G4INCLXXInterfaceStore *anInterfaceStore) : 00050 theINCLXXInterfaceStore(anInterfaceStore) 00051 { 00052 // Create a directory for the INCL++ commands 00053 theINCLXXDirectory = new G4UIdirectory(theUIDirectory); 00054 theINCLXXDirectory->SetGuidance("Parameters for the INCL++ model"); 00055 00056 // This command controls whether nucleus-nucleus reactions should accurately 00057 // describe the projectile or the target nucleus (default: projectile) 00058 accurateNucleusCmd = new G4UIcmdWithAString((theUIDirectory + "accurateNucleus").data(),this); 00059 accurateNucleusCmd->SetGuidance("Set which nucleus will be accurately described in nucleus-nucleus reactions."); 00060 accurateNucleusCmd->SetGuidance(" projectile: accurate description of projectile-related quantities"); 00061 accurateNucleusCmd->SetGuidance(" target: accurate description of target-related quantities"); 00062 accurateNucleusCmd->SetGuidance(" Default: projectile"); 00063 accurateNucleusCmd->SetParameterName("AccurateNucleus",true); 00064 accurateNucleusCmd->SetDefaultValue("projectile"); 00065 00066 // This command selects the maximum mass number of clusters to be produced in 00067 // the INCL++ cascade 00068 maxClusterMassCmd = new G4UIcmdWithAnInteger((theUIDirectory + "maxClusterMass").data(),this); 00069 maxClusterMassCmd->SetGuidance("Set the maximum cluster mass."); 00070 maxClusterMassCmd->SetGuidance(" The INCL++ cascade stage will produce clusters with mass up to the value of this parameter (included)"); 00071 maxClusterMassCmd->SetGuidance(" Allowed range: [2,12]"); 00072 maxClusterMassCmd->SetParameterName("MaxClusterMass",true); 00073 maxClusterMassCmd->SetDefaultValue(8); 00074 maxClusterMassCmd->SetRange("MaxClusterMass>=2 && MaxClusterMass<=12"); 00075 00076 } 00077 00078 G4INCLXXInterfaceMessenger::~G4INCLXXInterfaceMessenger() { 00079 delete theINCLXXDirectory; 00080 delete accurateNucleusCmd; 00081 delete maxClusterMassCmd; 00082 } 00083 00084 void G4INCLXXInterfaceMessenger::SetNewValue(G4UIcommand *command, G4String newValues) { 00085 if(command==accurateNucleusCmd) { 00086 newValues.toLower(); 00087 if(newValues=="projectile") { 00088 theINCLXXInterfaceStore->SetAccurateProjectile(true); 00089 } else if(newValues=="target") { 00090 theINCLXXInterfaceStore->SetAccurateProjectile(false); 00091 } 00092 } else if(command==maxClusterMassCmd) { 00093 const G4int parameter = maxClusterMassCmd->GetNewIntValue(newValues); 00094 theINCLXXInterfaceStore->SetMaxClusterMass(parameter); 00095 } 00096 }