ISAJET/isatape/isawev.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE ISAWEV
   3 C
   4 C          WRITE OUT MONTECARLO DATA IF EDIT IS TRUE
   5 C
   6       LOGICAL EDIT
   7 C
   8 C        keep entry point WRTAPE for backward compatibility
   9       ENTRY WRTAPE
  10       IF(.NOT.EDIT(I)) RETURN
  11       CALL WGENS
  12       RETURN
  13       END