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 / VERSION.FOR < prev    next >
Text File  |  1992-05-08  |  704b  |  28 lines
  1.  
  2.       SUBROUTINE VERSION
  3. C
  4. C     VERSION NUMBER SYSTEM - AFTER EACH SERIES OF CHANGES, INCREMENT
  5. C     THE VERSION NUMBER IN THE FOLLOWING STATEMENT AND ADD
  6. C     APPROPRIATE DOCUMENTATION OF THE CHANGES
  7. C
  8. C-----CONSTANTS
  9. C
  10.       DATA NTIM/1/
  11. C     VERSION 1.2 -- FIRST VERSION FOR PUBLIC DISTRIBUTION
  12.       VERNUM = 1.2
  13. C
  14.       CALL SYSTEM('CLS')
  15.       WRITE(*,100)  VERNUM
  16.       WRITE(*,*)' '
  17.       IF(NTIM.EQ.1)THEN
  18.         CALL DISCLAIM
  19.         CALL SYSTEM('CLS')
  20.         WRITE(*,100) VERNUM
  21.         NTIM=0
  22.       ENDIF
  23.       RETURN
  24.  100  FORMAT(//// 15X, 50 ('*'), /
  25.      1 15X,  'HOUSE_II MULTIZONE SIMULATION MODEL - VERSION ', F4.1, /,
  26.      2  15X, 50 ('*'))
  27.       END
  28.