ISAJET/isatape/edit.F

   1 #include "isajet/pilot.h"
   2       LOGICAL FUNCTION EDIT(I)
   3 C          DUMMY ROUTINE FOR USER DEFINED LOGICAL FUNCTION
   4 C          EDIT=.TRUE. TO WRITE EVENT ON TAPE
   5 C          EDIT=.FALSE. TO SUPPRESS WRITING
   6       EDIT=.TRUE.
   7       RETURN
   8       END