      SUBROUTINE OUTV(ID,N,X1,X2,X3,X4,X5,X6,X7,X8) 
C 
C  OUTPUT REAL VALUES 
      DIMENSION X(8)
      X(1)=X1 
      IF(N.GT.1)X(2)=X2 
      IF(N.GT.2)X(3)=X3 
      IF(N.GT.3)X(4)=X4 
      IF(N.GT.4)X(5)=X5 
      IF(N.GT.5)X(6)=X6 
      IF(N.GT.6)X(7)=X7 
      IF(N.GT.7)X(8)=X8 
      WRITE(60,500)ID,(I,X(I),I=1,N) 
      RETURN
  500 FORMAT(1X,'ID= ',I2,1X,8(I2,G13.5)) 
      END 
