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(TOL=1.1D10, VALLMID=4.99D-2, VALHMID=5.01D-2)
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.101) THEN
            IF (KSTEP.EQ.1 .AND. ARRAY(4).LT.VALLMID) LOVRWRT=1
            IF (KSTEP.EQ.2 .AND. (ARRAY(4).GT.VALHMID.OR.
     1             KINC.EQ.10)) LOVRWRT=1
         ELSE IF (KEY.EQ.11) THEN
            IF (KSTEP.EQ.3 .AND. ARRAY(3).GT.TOL) LSTOP=1
         END IF
  100 CONTINUE
  110 CONTINUE
C
      RETURN
      END