Changing fabs into TMath::Abs

[u/mrichter/AliRoot.git] / ALIROOT / aliroot.cxx

diff --git a/ALIROOT/aliroot.cxx b/ALIROOT/aliroot.cxx
index 5417e70629881346494797ac0d39c9411fd2b6e9..f07c2cc1c37fdc46807ee9614372cf558dcb4e42 100644 (file)
--- a/ALIROOT/aliroot.cxx
+++ b/ALIROOT/aliroot.cxx
@@ -13,21 +13,7 @@
  * provided "as is" without express or implied warranty.                  *
  **************************************************************************/
 
-/*
-$Log$
-Revision 1.6  2001/05/21 17:22:50  buncic
-Fixed problem with missing AliConfig while reading galice.root
-
-Revision 1.5  2001/05/16 14:57:07  alibrary
-New files for folders and Stack
-
-Revision 1.4  2000/12/20 08:39:37  fca
-Support for Cerenkov and process list in Virtual MC
-
-Revision 1.3  1999/09/29 09:24:07  fca
-Introduction of the Copyright and cvs Log
-
-*/
+/* $Id$ */
 
 //////////////////////////////////////////////////////////////////////////
 //                                                                      //
@@ -51,7 +37,6 @@ Introduction of the Copyright and cvs Log
 #include <TRint.h>
 #include <TFile.h>
 #include <AliRun.h>
-#include <AliConfig.h>
 
 #if defined __linux
 //On linux Fortran wants this, so we give to it!
@@ -59,19 +44,16 @@ int xargv=0;
 int xargc=0;
 #endif
 
+#ifdef FORTRAN_G95
+extern "C" void g95_runtime_start();
+#endif
+
 #if defined WIN32 
   extern "C" int __fastflag=0; 
   extern "C" int _pctype=0; 
   extern "C" int __mb_cur_max=0; 
 #endif 
 
-int gcbank_[3000000];
-
-//Initialise the Root environment
- extern void InitGui();
- VoidFuncPtr_t initfuncs[] = { InitGui, 0 };
- TROOT root("galice","The Alice/ROOT Interface", initfuncs);
-
 //_____________________________________________________________________________
 int main(int argc, char **argv)
 {
@@ -89,13 +71,15 @@ int main(int argc, char **argv)
   // in the event.
   
   // Create new configuration 
-  new AliConfig ("Folders","Alice data exchange");
   
   new AliRun("gAlice","The ALICE Off-line Simulation Framework");
     
   // Start interactive geant
   
-  TRint *theApp = new TRint("aliroot", &argc, argv, 0, 0);
+  TRint *theApp = new TRint("aliroot", &argc, argv);
+#ifdef FORTRAN_G95
+  g95_runtime_start();
+#endif
   
   // --- Start the event loop ---
   theApp->Run();
@@ -103,4 +87,3 @@ int main(int argc, char **argv)
   return(0);
 }
 
-