anchor.diff:  c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   c
   c
  -      subroutine scan_timdat(lastep,nintg,kr,ierr,time_units,tfile)
  +      subroutine scan_timdat(lastep,nintg,kr,time_units,tfile,ierr,
  +     & errstrng)
   c
   c...  subroutine to perform an initial scan of the timestep groups
   c     input file to determine the number of time step groups, the total
  
positive.code:       end
  c
  c version
  c $Id: scan_timdat.f,v 1.1 2004/04/14 21:18:30 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code:  40   continue
          read(kr,*,end=10,err=30) n,maxstp,delt,alfa,maxit,maxitc,lgdef,
       &   ibbar,utol,ftol,etol,itmax
          nintg=nintg+ione
          if(nintg.gt.ione) lastep=lastep+maxstp
  cdebug        write(6,*) n,maxstp,delt,alfa,maxit,maxitc,lgdef,ibbar,utol,
  cdebug     &   ftol,etol,itmax,nintg,lastep
          go to 40
  