anchor.diff:  C     WRITE(*,*) STRUC_MOL
         READ (LIN, *) ATOMS
   C     WRITE(*,*) 'NO. OF ATOMS', ATOMS
  -      READ (LIN, *) ROTORS
  +      READ (LIN, *, END=9999) ROTORS
   C     WRITE(*,*) 'NO. OF ROTORS', ROTORS
    104  FORMAT(F8.1)
  -C      CLOSE(LIN)
  -C     PAUSE
         WRITE(9,*) 'Read up to and including the No. of Rotors: ', ROTORS
   C
         CLOSE(9)
  
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
  