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 / VZOUT.FOR < prev    next >
Text File  |  1992-04-13  |  554b  |  20 lines
  1.       SUBROUTINE VZOUT(NVAL,FRMT,ZV1,ZV2,ZV3,ZV4,ZV5,ZV6, 
  2.      +              ZV7,ZV8,ZV9,ZV10) 
  3.       DIMENSION ZV(10)
  4.       CHARACTER*125 FRMT
  5. C 
  6. C  WRITE OUTPUT FROM HOUS_II SUBPROGRAMS 
  7.       ZV(1)=ZV1 
  8.       IF(NVAL.GE.2)ZV(2)=ZV2
  9.       IF(NVAL.GE.3)ZV(3)=ZV3
  10.       IF(NVAL.GE.4)ZV(4)=ZV4
  11.       IF(NVAL.GE.5)ZV(5)=ZV5
  12.       IF(NVAL.GE.6)ZV(6)=ZV6
  13.       IF(NVAL.GE.7)ZV(7)=ZV7
  14.       IF(NVAL.GE.8)ZV(8)=ZV8
  15.       IF(NVAL.GE.9)ZV(9)=ZV9
  16.       IF(NVAL.GE.10)ZV(10)=ZV10 
  17.       WRITE(60,FRMT)(ZV(I),I=1,NVAL) 
  18.       RETURN
  19.       END 
  20.