anchor.diff:  c
    30   continue
           ierr=3
  +        errstrng="scan_timdat"
           close(kr)
   cdebug        write(6,*) "Third error code ",ierr
           return
  
positive.code: c     Error codes:
  c         0:  No error
  c         1:  Error opening input file
  c         2:  Units not specified
  c         3:  Read error
  c
        include "implicit.inc"
  c
  c...  subroutine arguments
  c
        integer lastep,nintg,kr,ierr
        character time_units*(*),tfile*(*)
  c
  c...  defined constants
  c
        character def(1)*18
        data def/"time_units"/
  
negative.code: c
   20   continue
          ierr=1
          errstrng="scan_timdat"
          close(kr)
  cdebug        write(6,*) "Second error code ",ierr
          return
  