[u/mrichter/AliRoot.git] / ISAJET / isatape / edit.F

#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
Commit	Line	Data
0795afa3	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