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 / OUTV.FOR < prev    next >
Text File  |  1991-08-16  |  411b  |  17 lines
  1.       SUBROUTINE OUTV(ID,N,X1,X2,X3,X4,X5,X6,X7,X8) 
  2. C 
  3. C  OUTPUT REAL VALUES 
  4.       DIMENSION X(8)
  5.       X(1)=X1 
  6.       IF(N.GT.1)X(2)=X2 
  7.       IF(N.GT.2)X(3)=X3 
  8.       IF(N.GT.3)X(4)=X4 
  9.       IF(N.GT.4)X(5)=X5 
  10.       IF(N.GT.5)X(6)=X6 
  11.       IF(N.GT.6)X(7)=X7 
  12.       IF(N.GT.7)X(8)=X8 
  13.       WRITE(60,500)ID,(I,X(I),I=1,N) 
  14.       RETURN
  15.   500 FORMAT(1X,'ID= ',I2,1X,8(I2,G13.5)) 
  16.       END 
  17.