PamCAL/PamVMC/run_g4.C

// $Id: run_g4.C,v 1.0 2007/06/01 
//
// Macro for running G4PAM_VMC with Geant4. 

void run_g4(const TString& configMacro = "g4Config.C") 
{
  // Load basic libraries
  gROOT->LoadMacro("./macro/basiclibs.C");
  basiclibs();

   // Load PAMELA libs
   TString PAMLIB=gSystem->Getenv("PAM_LIB");
   gSystem->Load(PAMLIB+"/libyoda.so");
   gSystem->Load(PAMLIB+"/libDarthVader.so");
   gSystem->Load(PAMLIB+"/libPamLevel2.so");

  // Load Geant4 libraries
  
  gROOT->LoadMacro("./macro/PamG4Libs.C");
  PamG4Libs();

  // Load this example libraries
  TString G4WD=gSystem->Getenv("G4WORKDIR");
  TString PLAT=gSystem->Getenv("PLATFORM");
   gSystem->Load(G4WD+"/lib/tgt_"+PLAT+"/libPam_VMC");

  // MC application
  PamVMCApplication* appl 
    = new PamVMCApplication("PAMG4_VMC", "PAMELA GEANT4 VMC application");
    
   appl->GetPrimaryGenerator()->SetNofPrimaries(1);  
  ///appl->SetVerboseLevel(3);  
  
  // Macro to run with primary = polarized optical photon
  //gROOT->LoadMacro("optPhoton.C");
  //optPhoton();  

  // Initialize MC
      appl->InitMC(configMacro);
  
  // Customise Geant4 setting after initialization:
  // Physics list
  ((TGeant4*)gMC)->ProcessGeantMacro("g4config2.in");
  // Visualization settings
  ((TGeant4*)gMC)->ProcessGeantMacro("g4vis.in");

  // Run MC
  appl->RunMC(1);

  delete appl;
}  
1	nikolas	1.1	// $Id: run_g4.C,v 1.0 2007/06/01
2			//
3			// Macro for running G4PAM_VMC with Geant4.
4
5			void run_g4(const TString& configMacro = "g4Config.C")
6			{
7			// Load basic libraries
8			gROOT->LoadMacro("./macro/basiclibs.C");
9			basiclibs();
10
11			// Load PAMELA libs
12			TString PAMLIB=gSystem->Getenv("PAM_LIB");
13			gSystem->Load(PAMLIB+"/libyoda.so");
14			gSystem->Load(PAMLIB+"/libDarthVader.so");
15			gSystem->Load(PAMLIB+"/libPamLevel2.so");
16
17			// Load Geant4 libraries
18
19			gROOT->LoadMacro("./macro/PamG4Libs.C");
20			PamG4Libs();
21
22			// Load this example libraries
23			TString G4WD=gSystem->Getenv("G4WORKDIR");
24			TString PLAT=gSystem->Getenv("PLATFORM");
25			gSystem->Load(G4WD+"/lib/tgt_"+PLAT+"/libPam_VMC");
26
27			// MC application
28			PamVMCApplication* appl
29			= new PamVMCApplication("PAMG4_VMC", "PAMELA GEANT4 VMC application");
30
31			appl->GetPrimaryGenerator()->SetNofPrimaries(1);
32			///appl->SetVerboseLevel(3);
33
34			// Macro to run with primary = polarized optical photon
35			//gROOT->LoadMacro("optPhoton.C");
36			//optPhoton();
37
38			// Initialize MC
39			appl->InitMC(configMacro);
40
41			// Customise Geant4 setting after initialization:
42			// Physics list
43			((TGeant4*)gMC)->ProcessGeantMacro("g4config2.in");
44			// Visualization settings
45			((TGeant4*)gMC)->ProcessGeantMacro("g4vis.in");
46
47			// Run MC
48			appl->RunMC(1);
49
50			delete appl;
51			}