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 / ZERV.FOR < prev    next >
Text File  |  1991-08-16  |  491b  |  21 lines
  1.       SUBROUTINE ZERV(N,X1,X2,X3,X4,X5,X6,X7,X8,X9,X10) 
  2. C 
  3. C  ZERO N REAL VALUES 
  4.       IF(N.GT.10)THEN 
  5.           N=10
  6.           WRITE(60,500)
  7.           ENDIF 
  8.       X1=0. 
  9.       IF(N.GT.1)X2=0. 
  10.       IF(N.GT.2)X3=0. 
  11.       IF(N.GT.3)X4=0. 
  12.       IF(N.GT.4)X5=0. 
  13.       IF(N.GT.5)X6=0. 
  14.       IF(N.GT.6)X7=0. 
  15.       IF(N.GT.7)X8=0. 
  16.       IF(N.GT.8)X9=0. 
  17.       IF(N.GT.9)X10=0.
  18.       RETURN
  19.   500 FORMAT(1H1,'OOPS----------N GT 10 IN ZERV, SO SET TO 10') 
  20.       END 
  21.