Import Geant4 1.0.0 source tree

2016-06-08 15:28:20 +02:00
parent aaa409b6ee
commit ca1c8cb059
2995 changed files with 106830 additions and 299600 deletions
@@ -0,0 +1,91 @@
+// This code implementation is the intellectual property of
+// the GEANT4 collaboration.
+//
+// By copying, distributing or modifying the Program (or any work
+// based on the Program) you indicate your acceptance of this statement,
+// and all its terms.
+//
+// $Id: Em1PhysicsListMessenger.cc,v 1.1.4.1 1999/12/07 20:46:55 gunter Exp $
+// GEANT4 tag $Name: geant4-01-00 $
+//
+// 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "Em1PhysicsListMessenger.hh"
+
+#include "Em1PhysicsList.hh"
+#include "G4UIcmdWithADoubleAndUnit.hh"
+#include "globals.hh"
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+Em1PhysicsListMessenger::Em1PhysicsListMessenger(Em1PhysicsList* EvAct)
+:physList(EvAct)
+{ 
+  cutGCmd = new G4UIcmdWithADoubleAndUnit("/calor/cutG",this);
+  cutGCmd->SetGuidance("Set cut values by RANGE for Gamma.");
+  cutGCmd->SetParameterName("range",false);
+  cutGCmd->SetRange("range>0.");
+  cutGCmd->SetUnitCategory("Length");
+  cutGCmd->AvailableForStates(Idle);
+  
+  cutECmd = new G4UIcmdWithADoubleAndUnit("/calor/cutE",this);
+  cutECmd->SetGuidance("Set cut values by RANGE for e- e+.");
+  cutECmd->SetParameterName("range",false);
+  cutECmd->SetRange("range>0.");
+  cutECmd->SetUnitCategory("Length");   
+  cutECmd->AvailableForStates(Idle);
+  
+  cutPCmd = new G4UIcmdWithADoubleAndUnit("/calor/cutP",this);
+  cutPCmd->SetGuidance("Set cut values by RANGE for proton and others.");
+  cutPCmd->SetParameterName("range",false);
+  cutPCmd->SetRange("range>0.");
+  cutPCmd->SetUnitCategory("Length");      
+  cutPCmd->AvailableForStates(Idle);
+     
+  eCmd = new G4UIcmdWithADoubleAndUnit("/calor/cutEnergy",this);
+  eCmd->SetGuidance("Set cut values by ENERGY for charged particles.");
+  eCmd->SetParameterName("energy",false); 
+  eCmd->SetRange("energy>0.");
+  eCmd->SetUnitCategory("Energy");
+  eCmd->AvailableForStates(Idle);
+  
+  rCmd = new G4UIcmdWithADoubleAndUnit("/calor/range",this);
+  rCmd->SetGuidance("Display the RANGE of Electron for the current material.");
+  rCmd->SetParameterName("energy",false);
+  rCmd->SetRange("energy>0.");
+  rCmd->SetUnitCategory("Energy");  
+  rCmd->AvailableForStates(Idle);
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+Em1PhysicsListMessenger::~Em1PhysicsListMessenger()
+{
+  delete cutGCmd;
+  delete cutECmd;
+  delete cutPCmd;
+  delete rCmd;
+  delete eCmd;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void Em1PhysicsListMessenger::SetNewValue(G4UIcommand * command,G4String newValue)
+{ 
+  if(command == cutGCmd)
+    {physList->SetGammaCut(cutGCmd->GetNewDoubleValue(newValue));}
+  if(command == cutECmd)
+    {physList->SetElectronCut(eCmd->GetNewDoubleValue(newValue));}
+  if(command == cutPCmd)
+    {physList->SetProtonCut(eCmd->GetNewDoubleValue(newValue));}        
+  if(command == eCmd)
+    {physList->SetCutsByEnergy(cutECmd->GetNewDoubleValue(newValue));}
+  if(command == rCmd)
+    {physList->GetRange(rCmd->GetNewDoubleValue(newValue));}
+   
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....