trieste/pamVMC/run_fluka.C

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

void run_fluka(const TString& configMacro = "flukaConfig.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 TFluka libraries
  gSystem->Load("/home/nikolas/francesco/vmc/fluka_vmc/lib/tgt_linux/libfluka");  
  // Load this example libraries
  TString G4WD=gSystem->Getenv("G4WORKDIR");
  TString PLAT=gSystem->Getenv("PLATFORM");
  gSystem->Load(G4WD+"/lib/tgt_"+PLAT+"/libPamVMC_fc");

  // MC application
  PamVMCApplication* appl 
    = new PamVMCApplication("PAMFLUKA_VMC", "PAMELA GEANT4 VMC application");
    

    appl->SetVerboseLevel(1);  
 
  
  // Initialize MC
  
  appl->InitMC(configMacro);
  // appl->SetVerboseLevel(1);  
  
  // Run MC
  appl->RunMC(25000);
  appl->FinishRun();
    delete appl;
  
  // return 
  
}  
1	// $Id: run_g4.C,v 1.0 2007/06/01
2	//
3	// Macro for running G4PAM_VMC with
4	class TFluka;
5
6	void run_fluka(const TString& configMacro = "flukaConfig.C")
7	{
8	// Load basic libraries
9	gROOT->LoadMacro("./macro/basiclibs.C");
10	basiclibs();
11
12	// Load PAMELA libs
13	TString PAMLIB=gSystem->Getenv("PAM_LIB");
14	gSystem->Load(PAMLIB+"/libyoda.so");
15	gSystem->Load(PAMLIB+"/libDarthVader.so");
16	gSystem->Load(PAMLIB+"/libPamLevel2.so");
17
18
19	// Load TFluka libraries
20	gSystem->Load("/home/nikolas/francesco/vmc/fluka_vmc/lib/tgt_linux/libfluka");
21	// Load this example libraries
22	TString G4WD=gSystem->Getenv("G4WORKDIR");
23	TString PLAT=gSystem->Getenv("PLATFORM");
24	gSystem->Load(G4WD+"/lib/tgt_"+PLAT+"/libPamVMC_fc");
25
26	// MC application
27	PamVMCApplication* appl
28	= new PamVMCApplication("PAMFLUKA_VMC", "PAMELA GEANT4 VMC application");
29
30
31	appl->SetVerboseLevel(1);
32
33
34	// Initialize MC
35
36	appl->InitMC(configMacro);
37	// appl->SetVerboseLevel(1);
38
39	// Run MC
40	appl->RunMC(25000);
41	appl->FinishRun();
42	delete appl;
43
44	// return
45
46	}