* * $Id: isedit.F,v 1.9 2000/01/12 11:04:43 mclareni Exp $ * * $Log: isedit.F,v $ * Revision 1.9 2000/01/12 11:04:43 mclareni * Version 7.48 from author, plus modified Imakefiles * * #include "sys/CERNLIB_machine.h" #include "_isajet/pilot.h" FUNCTION ISEDIT() C- C---------------------------------------------------------------------- C- C- Purpose and Methods : C- dummy hook for editing events written to output stream C- C- Created 7-NOV-1988 Serban D. Protopopescu C- C---------------------------------------------------------------------- C- #if defined(CERNLIB_IMPNONE) IMPLICIT NONE #endif LOGICAL ISEDIT #include "zebcom.inc" C------------------------------------------------------- ISEDIT=.TRUE. RETURN END