      SUBROUTINE ZERVI(N,IV)
C
C  ZERO N INTEGER VALUES IN IV ARRAY
      DIMENSION IV(N)
      DO 10 I=1,N
   10 IV(I)=0
      RETURN
      END
      
