home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / h / house_ii.zip / FOR / ZERVI.FOR < prev   
Text File  |  1992-03-26  |  161b  |  10 lines
  1.       SUBROUTINE ZERVI(N,IV)
  2. C
  3. C  ZERO N INTEGER VALUES IN IV ARRAY
  4.       DIMENSION IV(N)
  5.       DO 10 I=1,N
  6.    10 IV(I)=0
  7.       RETURN
  8.       END
  9.       
  10.