Bug fix - T0 form AliRelKamna in microseconds

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

diff --git a/ALIROOT/aliroot.cxx b/ALIROOT/aliroot.cxx
index d3d8f5275460b8064b8a2557153e7042832e31cd..c41e6dc7ba35f9bab9eb61fab13615c663a32631 100644 (file)
--- a/ALIROOT/aliroot.cxx
+++ b/ALIROOT/aliroot.cxx
@@ -37,6 +37,8 @@
 #include <TRint.h>
 #include <TFile.h>
 #include <AliRun.h>
+#include "Riostream.h"
+#include "ARVersion.h"
 
 #if defined __linux
 //On linux Fortran wants this, so we give to it!
@@ -44,6 +46,10 @@ 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; 
@@ -66,6 +72,17 @@ int main(int argc, char **argv)
   // run and event number, the number of vertices, tracks and primary tracks
   // in the event.
   
+  for ( int i = 1; i < argc; ++i ) 
+  {
+    TString argument(argv[i]);
+    
+    if (argument=="--version")
+    {      
+      cout << "aliroot " << ALIROOT_SVN_REVISION << " " << ALIROOT_SVN_BRANCH << endl;
+      return 0;
+    }    
+  }
+  
   // Create new configuration 
   
   new AliRun("gAlice","The ALICE Off-line Simulation Framework");
@@ -73,20 +90,13 @@ int main(int argc, char **argv)
   // Start interactive geant
   
   TRint *theApp = new TRint("aliroot", &argc, argv);
+#ifdef FORTRAN_G95
+  g95_runtime_start();
+#endif
   
   // --- Start the event loop ---
   theApp->Run();
   
   return(0);
 }
-#define ffinit ffinit_
-#define ffkey ffkey_
-#define ffgo ffgo_
-
-extern "C" {
-
-void ffinit_() {}
-void ffkey_() {}
-void ffgo_() {}
-}