16710643 |
1 | /************************************************************************** |
2 | * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. * |
3 | * * |
4 | * Author: The ALICE Off-line Project. * |
5 | * Contributors are mentioned in the code where appropriate. * |
6 | * * |
7 | * Permission to use, copy, modify and distribute this software and its * |
8 | * documentation strictly for non-commercial purposes is hereby granted * |
9 | * without fee, provided that the above copyright notice appears in all * |
10 | * copies and that both the copyright notice and this permission notice * |
11 | * appear in the supporting documentation. The authors make no claims * |
12 | * about the suitability of this software for any purpose. It is * |
13 | * provided "as is" without express or implied warranty. * |
14 | **************************************************************************/ |
15 | |
04c6e46a |
16 | // $Id$ |
16710643 |
17 | // |
18 | // Author: I. Hrivnacova |
19 | // |
04c6e46a |
20 | |
21 | #include "TFluka.h" |
22 | #include "FGeometryInit.hh" |
23 | |
24 | #include "AliDetConstructionHelper.h" |
25 | #include "AliRun.h" |
26 | |
27 | #include <TROOT.h> |
28 | |
29 | #define flukam flukam_ |
30 | |
31 | extern "C" void flukam(const G4int & GeoFlag); |
32 | |
33 | int main(int argc, char** argv) |
34 | { |
35 | // ROOT =================== |
36 | TROOT aTROOT("Alice","Alice Flugg prototype Root I/O"); |
37 | |
38 | // AliRun |
39 | AliRun* run |
40 | = new AliRun("gAlice","The Alice run manager"); |
41 | G4cout << "AliRun has been created." << G4endl; |
42 | |
43 | // TFluka |
44 | TFluka* fluka |
45 | = new TFluka("TFluka", "The Fluka Monte Carlo"); |
46 | G4cout << "TFluka has been created." << G4endl; |
47 | |
48 | // Detector construction helper |
49 | AliDetConstructionHelper* detHelper = new AliDetConstructionHelper(); |
50 | G4cout << "Detector construction helper has been created." << G4endl; |
51 | |
52 | // Flugg |
53 | FGeometryInit* theFGeometryInit = FGeometryInit::GetInstance(); |
54 | theFGeometryInit->setDetConstruction(detHelper->DetConstruction()); |
55 | G4cout << "Detector construction has been set to Flugg." << G4endl; |
56 | |
57 | //flag for geometry: |
58 | const G4int flag = 1; |
59 | // 1 for GEANT4 |
60 | // 0 for FLUKA |
61 | // 2 for Rubia |
62 | |
63 | //call fluka |
64 | flukam(flag); |
65 | |
66 | delete run; |
67 | |
68 | return 0; |
69 | } |