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

#include "isajet/pilot.h"
      SUBROUTINE ZEROL(Z,N)
C          SET N VALUES OF Z IN LEVEL2 TO ZERO
#include "isajet/itapes.inc"
      DIMENSION Z(N)
#if defined(CERNLIB_LEVEL2)
      LEVEL2,Z
#endif
      DO 1 I=1,N
    1 Z(I)=0
      RETURN
      END
Commit	Line	Data
0795afa3	1	#include "isajet/pilot.h"
	2	SUBROUTINE ZEROL(Z,N)
	3	C SET N VALUES OF Z IN LEVEL2 TO ZERO
	4	#include "isajet/itapes.inc"
	5	DIMENSION Z(N)
	6	#if defined(CERNLIB_LEVEL2)
	7	LEVEL2,Z
	8	#endif
	9	DO 1 I=1,N
	10	1 Z(I)=0
	11	RETURN
	12	END