SUBROUTINE g_write_event(ABORT,err) *------------------------------------------------------------ * prototype C analysis routine * * purpose and methods : write the event in buffer to a file * * output : abort: sucess or fail * err: reason for failure * * created apr-30-1996 Dave Meekins * * $Log: g_write_event.f,v $ * Revision 1.1 1996/06/10 17:47:32 saw * Initial revision * *------------------------------------------------------------ * DECLARATIONS IMPLICIT NONE SAVE character*20 here parameter (here='g_write_event') logical ABORT character*(*) err INCLUDE 'gen_data_structures.cmn' INCLUDE 'gen_craw.cmn' INCLUDE 'gen_filenames.cmn' integer*4 status integer*4 evwrite ! coda routine to write event *------------------------------------------------------------ * START OF CODE err=' ' ABORT=.NOT.g_preproc_opened if(g_preproc_in_hndl.ne.0)then status=evwrite(g_preproc_in_hndl,craw) if(status.ne.0)then ABORT=.true. call cemsg(status,0,err) endif else err='no preprocessor output file opened' endif if(ABORT)then call G_add_path(here) endif RETURN END