anchor.diff:        end
   c
   c version
  -c $Id: read_fuldat.f,v 1.1 2004/04/14 21:18:30 willic3 Exp $
  +c $Id: read_fuldat.f,v 1.2 2004/07/12 14:35:37 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c
   20   continue
          ierr=1
          close(kr)
          return
  c
  
negative.code: c
   30   continue
          ierr=3
          errstrng="read_fuldat"
          close(kr)
          return
  c
  c...  error opening output file
  c
   40   continue
          ierr=2
          errstrng="read_fuldat"
          close(kw)
          close(kp)
          return
  c
  c...  error writing to output file
  c
   50   continue
          ierr=4
          errstrng="read_fuldat"
          close(kw)
          close(kp)
          return
  c
  1000  format(//5x,
  