ISAJET/isatape/zerol.F

   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