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 / OTVI.FOR < prev    next >
Text File  |  1991-08-16  |  439b  |  18 lines
  1.       SUBROUTINE OTVI(ID,N,I1,I2,I3,I4,I5,I6,I7,I8) 
  2. C 
  3. C  OUTPUT INTEGER VALUES
  4.       DIMENSION L(8)
  5.       IF(N.GT.8)N=8 
  6.       L(1)=I1 
  7.       IF(N.GT.1)L(2)=I2 
  8.       IF(N.GT.2)L(3)=I3 
  9.       IF(N.GT.3)L(4)=I4 
  10.       IF(N.GT.4)L(5)=I5 
  11.       IF(N.GT.5)L(6)=I6 
  12.       IF(N.GT.6)L(7)=I7 
  13.       IF(N.GT.7)L(8)=I8 
  14.       WRITE(60,500)ID,(I,L(I),I=1,N) 
  15.       RETURN
  16.   500 FORMAT(1X,'ID= ',I2,1X,8('I=',I2,I6,3X))
  17.       END 
  18.