anchor.diff:  C
         DO I=1,M_in
            READ(LIN, *, END=9998) MARK, TEMP(I), CPT(I)
  -         WRITE(9,*) MARK, TEMP(I), CPT(I)
  -         FLUSH(9)
            CH(I)  = 0.0D0
            CS(I)  = 0.0D0
            IF (MARK .NE. 'TECP') THEN
  -            WRITE(*,*) 'Error. Need more TECP'
  -            WRITE(9,*) 'Error. Not enough TECP, instead have ', MARK
  +              write(*,*) 'Error. Need more TECP'
               GOTO 250
            ENDIF
         ENDDO
  
positive.code:         CALL DATAFIND(THERM1,TEMF(I),CPF(I),CHF(I),CSF(I))
          CHF(I) = CHF(I)/1.D3
        ENDDO
        WRITE (9,*) CHF(10)
  C
        DO I=12,101
  C     90 points between 298 and 6000
  
negative.code:  250  CONTINUE
        RETURN
   9998 CONTINUE
        WRITE(*,*) 'Error. Input ended sooner than expected!'
        STOP
  C
        END
  