      SUBROUTINE VZOUT(NVAL,FRMT,ZV1,ZV2,ZV3,ZV4,ZV5,ZV6, 
     +              ZV7,ZV8,ZV9,ZV10) 
      DIMENSION ZV(10)
      CHARACTER*125 FRMT
C 
C  WRITE OUTPUT FROM HOUS_II SUBPROGRAMS 
      ZV(1)=ZV1 
      IF(NVAL.GE.2)ZV(2)=ZV2
      IF(NVAL.GE.3)ZV(3)=ZV3
      IF(NVAL.GE.4)ZV(4)=ZV4
      IF(NVAL.GE.5)ZV(5)=ZV5
      IF(NVAL.GE.6)ZV(6)=ZV6
      IF(NVAL.GE.7)ZV(7)=ZV7
      IF(NVAL.GE.8)ZV(8)=ZV8
      IF(NVAL.GE.9)ZV(9)=ZV9
      IF(NVAL.GE.10)ZV(10)=ZV10 
      WRITE(60,FRMT)(ZV(I),I=1,NVAL) 
      RETURN
      END 
