* * $Id: edit.F,v 1.8 2000/01/12 11:04:20 mclareni Exp $ * * $Log: edit.F,v $ * Revision 1.8 2000/01/12 11:04:20 mclareni * Version 7.48 from author, plus modified Imakefiles * * #include "sys/CERNLIB_machine.h" #include "_isajet/pilot.h" LOGICAL FUNCTION EDIT(I) C DUMMY ROUTINE FOR USER DEFINED LOGICAL FUNCTION C EDIT=.TRUE. TO WRITE EVENT ON TAPE C EDIT=.FALSE. TO SUPPRESS WRITING EDIT=.TRUE. RETURN END