anchor.diff:  c
    20   continue
           ierr=1
  +        errstrng="scan_timdat"
           close(kr)
   cdebug        write(6,*) "Second error code ",ierr
           return
  
positive.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine scan_timdat(lastep,nintg,kr,ierr,time_units,tfile)
  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
  
negative.code:       end
  c
  c version
  c $Id: scan_timdat.f,v 1.2 2004/07/12 20:16:53 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  