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:          ENDIF
        ENDDO
  C
   250    CONTINUE
        RETURN
  C
        END
  
negative.code: C     WRITE(*,*) STRUC_MOL
        READ (LIN, *) ATOMS
  C     WRITE(*,*) 'NO. OF ATOMS', ATOMS
        READ (LIN, *, END=9999) ROTORS
  C     WRITE(*,*) 'NO. OF ROTORS', ROTORS
   104  FORMAT(F8.1)
        WRITE(9,*) 'Read up to and including the No. of Rotors: ', ROTORS
  C
        CLOSE(9)
  