//------------------------------------------------------------------------------
//  ROOT logon macro
//------------------------------------------------------------------------------
{
#include <iomanip.h>
#include <time.h>

  char cmd[200];

  const char* work_dir = gSystem->Getenv("SRT_LOCAL");
  // gInterpreter->LoadMacro(Form("%s/Stntuple/scripts/global_init.C",work_dir));


  gSystem->SetIncludePath("-I./ -I./include -I$CDFSOFT2_DIR/include");

  gSystem->Load("$ROOTSYS/lib/libPhysics.so");
  gSystem->Load("$ROOTSYS/lib/libEG.so");

  TString exec_name (gApplication->Argv(0));
//-----------------------------------------------------------------------------
//  check batch mode
//-----------------------------------------------------------------------------
  int batch_mode = 0;
  const char* opt;
  int nargs = gApplication->Argc();
  for (int i=1; i<nargs; i++) {
    opt = gApplication->Argv(i);
    if (strcmp(opt,"-b") == 0) {
      batch_mode = 1;
      break;
    }
  }

  if (exec_name.Index("stnfit.exe") >= 0) {

    gSystem->Load("libminicern.so");
    gSystem->Load("libpdf.so");

    gSystem->Load("libElectroweak_mrst2003.so");  
    gSystem->Load("libElectroweak_cteq6.so");  
    gSystem->Load("libElectroweak_TCteq6.so");

    gSystem->Load("libElectroweak_pythia.so");  
    gSystem->Load("libElectroweak_TPythia6.so");

    gSystem->Load("libElectroweak_TGeant_gen.so");
  }

  if ((exec_name.Index("root.exe"  ) >= 0) || 
      (exec_name.Index("stnfit.exe") >= 0)   ) {

    //    gSystem->Load("libStntuple_geom.so");
    gSystem->Load("libStntuple_base.so");
    gSystem->Load("libStntuple_obj.so");
    gSystem->Load("libStntuple_loop.so");
    gSystem->Load("libStntuple_alg.so");

    //    gSystem->Load("libStntuple_val.so");
  }

  if ((exec_name.Index("root.exe"  ) >= 0) || 
      (exec_name.Index("stnfit.exe") >= 0)    ) {

    gSystem->Load("libElectroweak_ana.so");

  }

//-----------------------------------------------------------------------------
//  scripts
//-----------------------------------------------------------------------------
  printf(" executable: %s, batch_mode = %i, process ID: %i\n",
	 exec_name.Data(),batch_mode,gSystem->GetPid());

  const char* user = gSystem->Getenv("USER");
  TAuthenticate::SetGlobalUser(user);
}