
      SUBROUTINE VERSION
C
C     VERSION NUMBER SYSTEM - AFTER EACH SERIES OF CHANGES, INCREMENT
C     THE VERSION NUMBER IN THE FOLLOWING STATEMENT AND ADD
C     APPROPRIATE DOCUMENTATION OF THE CHANGES
C
C-----CONSTANTS
C
      DATA NTIM/1/
C     VERSION 1.2 -- FIRST VERSION FOR PUBLIC DISTRIBUTION
      VERNUM = 1.2
C
      CALL SYSTEM('CLS')
      WRITE(*,100)  VERNUM
      WRITE(*,*)' '
      IF(NTIM.EQ.1)THEN
        CALL DISCLAIM
        CALL SYSTEM('CLS')
        WRITE(*,100) VERNUM
        NTIM=0
      ENDIF
      RETURN
 100  FORMAT(//// 15X, 50 ('*'), /
     1 15X,  'HOUSE_II MULTIZONE SIMULATION MODEL - VERSION ', F4.1, /,
     2  15X, 50 ('*'))
      END
