Помогите определить, на какой версии Фортрана написана программа

      REAL  KEQ,KF,KP,KQ
      DIMENSION NM(9),H(5),iH(5)
      INTEGER DT
      character*30 DAT,RIVE
      character*100 NAMEP,NAMEQ,NAME
      open(1,file='con')
      open(4,file='con')
      write(4,'(a)') ' НАЗВIТЬ БАСЕЙН:1-УЖ,2-ЛАТОРИЦЯ,3-БОРЖАВА',
     *'4-ТЕРЕСВА,5-ВЕРХ.ТИСА '
         read(1,*)note
         IF(note.EQ.1) open(6,file='TS5bUH.TXT')
         IF(note.EQ.2) open(6,file='TS5bLA.TXT')
         IF(note.EQ.3) open(6,file='TS5bBO.TXT')
         iF(note.EQ.4) open(6,file='TS5bTER.TXT')
         IF(note.EQ.5) open(6,file='TS5bRAH.TXT')
      IF(Note.EQ.1)open(5,file='TS5bUH.D1',status='old')
      IF(Note.EQ.2)open(5,file='TS5bLA.D1',status='old')
      IF(Note.EQ.3)open(5,file='TS5bBO.D1',status='old')
      IF(Note.EQ.4)open(5,file='TS5bTER.D1',status='old')
      IF(Note.EQ.5)open(5,file='TS5bRAH.D1',status='old') 
      WRITE(6,3)
         read(5,10) name
      READ(5,4)RIVE
      READ(5,*)DT
      READ(5,*)KPP
      READ(5,*)KPQ
      KQH=2
      IF(NOTE.EQ.1.or.note.eq.5)KQH=3
      READ(5,*)(NM(i),i=1,KQH)
      CALL QHINPUT (KQH,NM)
      READ(5,10)NAMEP
      READ(5,10)NAMEQ
      READ(5,*)(KEQ(1,j),j=1,20)
      READ(5,*)(KEQ(2,j),j=1,20)
      DO 5i=1,2
    5 READ(5,*)(QP0(i,j),j=1,20)
      READ(5,*)(KP(i),i=1,KPP)
      READ(5,*)(KQ(i),i=1,KPQ)
      READ(5,*)RM
      READ(5,*)KF
      CLOSE(5)
      IF(NOTE.EQ.1) open(8,file='TS5bUH.D2',status='old')
      IF(NOTE.EQ.2) open(8,file='TS5bLA.D2',status='old')
      IF(NOTE.EQ.3) open(8,file='TS5bBO.D2',status='old')
      IF(NOTE.EQ.4) open(8,file='TS5bTER.D2',status='old')
      IF(NOTE.EQ.5) open(8,file='TS5bRAH.D2',status='old')
        read(8,10) name
      read (8,10) nameP
      read (8,10) nameQ
      READ(8,*)KTASK
      READ(8,*)NTASK
      K1K=2
      KONT=1