HERWIG/src/hwvzri.f

   1
   2 CDECK  ID>, HWVZRI.
   3
   4 *CMZ :-        -05/02/98  11.11.56  by  Bryan Webber
   5
   6 *-- Author :    Bryan Webber
   7
   8 C-----------------------------------------------------------------------
   9
  10       SUBROUTINE HWVZRI(N,IP)
  11
  12 C-----------------------------------------------------------------------
  13
  14 C     ZERO INTEGER VECTOR
  15
  16 C-----------------------------------------------------------------------
  17
  18       INTEGER N,IP(N),I
  19
  20       DO 10 I=1,N
  21
  22    10 IP(I)=0
  23
  24       END