SUBROUTINE URDFIL(LSTOP,LOVRWRT,KSTEP,KINC,DTIME,TIME)
C
      INCLUDE 'ABA_PARAM.INC'
C 
      DIMENSION ARRAY(513),JRRAY(NPRECD,513),TIME(2)
      EQUIVALENCE (ARRAY(1),JRRAY(1,1))
      PARAMETER(TOLH=5.01D0, TOLL=4.99D0)
C
C READ ONLY CURRENT INCREMENT FOR THIRD STEP.
C
      JRCD=0
      IF (KSTEP.NE.1) THEN
         CALL POSFIL(KSTEP,KINC,JRRAY,JRCD)
      END IF
C
      DO 100 K1=1,999999
         CALL DBFILE(0,JRRAY,JRCD)
         IF (JRCD.NE.0) GO TO 110
         KEY=JRRAY(1,2)
         IF (KEY.EQ.201) THEN
            IF (KSTEP.EQ.1 .AND. ARRAY(4).LT.TOLL) LOVRWRT=1
            IF (KSTEP.EQ.2 .AND. ARRAY(4).GT.TOLH) LOVRWRT=1
            IF (KSTEP.EQ.3 .AND. ARRAY(4).GT.TOLH) LSTOP=1
         END IF
  100 CONTINUE
  110 CONTINUE
C
      RETURN
      END