anchor.diff:  c...  normal return
   c
    10   continue
  -        if(nintg.eq.0) ierr=3
  +        if(nintg.eq.izero) then
  +          ierr=3
  +          errstrng="scan_timdat"
  +        end if
           close(kr)
   cdebug        write(6,*) "First error code ",ierr
           return
  
positive.code:  40   continue
          read(kr,*,end=10,err=30) n,maxstp,delt,alfa,maxit,maxitc,lgdef,
       &   ibbar,utol,ftol,etol,itmax
          nintg=nintg+1
          if(nintg.gt.1) lastep=lastep+maxstp
  cdebug        write(6,*) n,maxstp,delt,alfa,maxit,maxitc,lgdef,ibbar,utol,
  cdebug     &   ftol,etol,itmax,nintg,lastep
          go to 40
  
negative.code: c
  cdebug      write(6,*) "Hello from scan_timdat_f!"
  c
        ierr=izero
        nintg=izero
        lastep=izero
        nget=ione
        open(kr,file=tfile,status="old",err=20)
  c
  c...  get units, returning error 2 if they aren't found.
  c
        call get_units(kr,nget,units_defined,units,def,ierr,errstrng)
        if(ierr.ne.izero) return
        time_units=units(1)
  c
  c... scan the file, counting the number of entries.
  