anchor.diff:  c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   c
   c
  -      subroutine scan_hist(nhist,kr,ierr,hfile)
  +      subroutine scan_hist(nhist,kr,hfile,ierr,errstrng)
   c
   c...  subroutine to perform an initial scan of the load history
   c     definition file to determine the number of load histories.
  
positive.code: c
  c...  open input file
  c
        ierr=0
        nhist=0
        open(kr,file=hfile,status="old",err=10)
  c
  c... scan the file, counting the number of entries.
  
negative.code: c
   30   continue
          ierr=3
          errstrng="scan_hist"
          close(kr)
          return
  c
        end
  c
  c version
  c $Id: scan_hist.f,v 1.2 2004/07/12 20:00:16 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  