subroutine usrprestart(run_number, run_type) * * $Log: usrprestart.f,v $ * Revision 1.1 1994/06/14 20:42:13 cdaq * Initial revision * * implicit none save * character*11 here parameter (here='usrprestart') * integer*4 run_number, run_type * * This common block also used in usrprestart.f. Should probably * move these two lines to an include file. character*80 g_config_environmental_var common /ENVVAR/ g_config_environmental_var * logical ABORT character*800 err * * Every new run we may change the filenames * ABORT = .false. err = ' ' * call g_init_filenames(ABORT,err,g_config_environmental_var) if(ABORT .or. err.ne.' ') then call g_add_path(here,err) call dalogmsg(err) endif * ABORT = .false. err = ' ' call g_initialize(ABORT,err) if(ABORT .or. err.ne.' ') then call g_add_path(here,err) call dalogmsg(err) endif * ABORT = .false. err = ' ' call g_reset_event(ABORT,err) if(ABORT .or. err.ne.' ') then call g_add_path(here,err) call dalogmsg(err) endif * return end