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

#include "isajet/pilot.h"
      SUBROUTINE ISAWEV
C
C          WRITE OUT MONTECARLO DATA IF EDIT IS TRUE
C
      LOGICAL EDIT
C
C        keep entry point WRTAPE for backward compatibility
      ENTRY WRTAPE
      IF(.NOT.EDIT(I)) RETURN
      CALL WGENS
      RETURN
      END
Commit	Line	Data
0795afa3	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