anchor.diff:  C
   C
         DO I=1,M_in
  -         READ(LIN, *) MARK, TEMP(I), CPT(I)
  +         READ(LIN, *, END=9998) MARK, TEMP(I), CPT(I)
            WRITE(9,*) MARK, TEMP(I), CPT(I)
            FLUSH(9)
            CH(I)  = 0.0D0
  
positive.code:       FLUSH(LOUT)
        GOTO 34501
  
  34511 CONTINUE
        CLOSE(9)
  C
        END
  C***********************************************************************
  C
        SUBROUTINE DATAINPUT(M,TEMP,CPT,CH,CS)
  
negative.code:          ENDIF
        ENDDO
  C
   250  CONTINUE
        RETURN
   9998 CONTINUE
        WRITE(LOUT,*) 'INPUT ENDED SOONER THAN EXPECTED!'
        WRITE(0,*) 'INPUT ENDED SOONER THAN EXPECTED!'
        WRITE(9,*) 'INPUT ENDED SOONER THAN EXPECTED!'
        STOP
  C
        END
  