PROGRAM GetTSIV1
      CHARACTER Line*80, Name*12, Form*45
      PARAMETER (NTe = 21)
      DIMENSION T(Nte), G(NTe)
      REAL H, F, Temp
      INTEGER i, j

      DO i = 1, NTe
        T(i) = 1600. + 200.*(i-1)
      END DO

      OPEN (1, 'tsiv.cht')
      OPEN (2, 'tsiv.dat')
      WRITE (2, '(12X, 100F10.0)') T

      DO
        DO WHILE (Line(55:61) .NE. '’ ¡«¨æ ')
          READ (1, '(A)', END=10) Line
        END DO
        READ (1, '(57X, A)') Name
        READ (1, '(A)')
        READ (1, '(A)')
        READ (1, '(51X, F11.0)') H
        DO i = 1, 8
          READ (1, '(A)')
        END DO
        i = 0
        READ (1, '(A)') Line
        DO WHILE (Line(1:10) .NE. ' ÀÄÄÄÄÄÄÄÄ')
          i = i + 1
          READ (Line(1:11), '(F11.0)') Temp
          IF (Temp .NE. T(i)) THEN
            PRINT, 'Wrong temperature ', Temp, ' for ', Name
            GO TO 10
          END IF
          READ (Line(27:34), '(F8.0)') F
c          G(i) = H - T(i)*F/1000.
          G(i) = H - T(i)*(F + 8.31441*log(2.))/1000.
          READ (1, '(A)') Line
        END DO
        IF (i .EQ. NTe) THEN
          WRITE (2, '(A, 100F10.3)') Name, G
        ELSE
          WRITE (Form, '(3H(A,,I2,6HF10.3,,I2,15H(''   MISSING'')))')
     *     i, NTe - i
          WRITE (2, Form) Name, (G(j), j = 1, i)
        END IF
      END DO

10    CLOSE (1)
      CLOSE (2)
      END