* provided "as is" without express or implied warranty. *
**************************************************************************/
-/*
-$Log$
-Revision 1.3 1999/09/29 09:24:07 fca
-Introduction of the Copyright and cvs Log
-
-*/
+/* $Id$ */
//////////////////////////////////////////////////////////////////////////
// //
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)
{
// in the run is stored in the same file in the tree TreeE, containing the
// run and event number, the number of vertices, tracks and primary tracks
// in the event.
- //
- new AliRun("gAlice","The ALICE Off-line Simulation Framework");
+ // Create new configuration
+
+ 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();
return(0);
}
-