The Init method of AliITSreconstruction has to be called by the user. This was done...
[u/mrichter/AliRoot.git] / 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