* * $Id: isaoer.F,v 1.8 2000/01/12 11:04:36 mclareni Exp $ * * $Log: isaoer.F,v $ * Revision 1.8 2000/01/12 11:04:36 mclareni * Version 7.48 from author, plus modified Imakefiles * * #include "sys/CERNLIB_machine.h" #include "_isajet/pilot.h" FUNCTION ISAOER() C---------------------------------------------------------------------- C- C- Purpose and Methods : C- Print out to USER.OUT end-of-run record C- C- Created 6-NOV-1988 Serban D. Protopopescu C- C---------------------------------------------------------------------- #if defined(CERNLIB_IMPNONE) IMPLICIT NONE #endif LOGICAL ISAOER INTEGER USUNIT,PRUNIT C---------------------------------------------------------------------- C ISAOER=.TRUE. PRUNIT=USUNIT() CALL PRISAF(PRUNIT,0,0,0,0) 999 RETURN END