Initialise g95 on the Mac
[u/mrichter/AliRoot.git] / ALIROOT / aliroot.cxx
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
16 /* $Id$ */
17
18 //////////////////////////////////////////////////////////////////////////
19 //                                                                      //
20 // aliroot                                                              //
21 //                                                                      //
22 // Main program used to create aliroot application.                     //
23 //                                                                      //
24 //                                                                      //
25 // To be able to communicate between the FORTRAN code of GEANT and the  //
26 // ROOT data structure, a number of interface routines have been        //
27 // developed.                                                           //
28 //Begin_Html
29 /*
30 <img src="picts/newg.gif">
31 */
32 //End_Html
33 //////////////////////////////////////////////////////////////////////////
34
35 //Standard Root includes
36 #include <TROOT.h>
37 #include <TRint.h>
38 #include <TFile.h>
39 #include <AliRun.h>
40
41 #if defined __linux
42 //On linux Fortran wants this, so we give to it!
43 int xargv=0;
44 int xargc=0;
45 #endif
46
47 #ifdef FORTRAN_G95
48 extern "C" void g95_runtime_start();
49 #endif
50
51 #if defined WIN32 
52   extern "C" int __fastflag=0; 
53   extern "C" int _pctype=0; 
54   extern "C" int __mb_cur_max=0; 
55 #endif 
56
57 //_____________________________________________________________________________
58 int main(int argc, char **argv)
59 {
60   //
61   // gAlice main program.
62   // It creates the main Geant3 and AliRun objects.
63   //
64   // The Hits are written out after each track in a ROOT Tree structure TreeH,
65   // of the file galice.root. There is one such tree per event. The kinematics
66   // of all the particles that produce hits, together with their genealogy up
67   // to the primary tracks is stared in the galice.root file in an other tree
68   // TreeK of which exists one per event. Finally the information of the events
69   // in the run is stored in the same file in the tree TreeE, containing the
70   // run and event number, the number of vertices, tracks and primary tracks
71   // in the event.
72   
73   // Create new configuration 
74   
75   new AliRun("gAlice","The ALICE Off-line Simulation Framework");
76     
77   // Start interactive geant
78   
79   TRint *theApp = new TRint("aliroot", &argc, argv);
80 #ifdef FORTRAN_G95
81   g95_runtime_start();
82 #endif
83   
84   // --- Start the event loop ---
85   theApp->Run();
86   
87   return(0);
88 }
89