anchor.diff:  c
    20   continue
           ierr=1
  +        errstrng="read_wink"
           close(kr)
           return
   c
  
positive.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine read_wink(wink,wscal,iwink,id,numnp,ndof,nwink,nwinke,
       & kr,kw,idout,ierr,wfile,ofile)
  c
  c....program for reading and printing data on winkler restoring forces
  c
  
negative.code: c
   30   continue
          ierr=3
          errstrng="read_wink"
          close(kr)
          return
  c
  c...  error opening output file
  c
   40   continue
          ierr=2
          errstrng="read_wink"
          close(kw)
          return
  c
  c...  error reading input file
  c
   50   continue
          ierr=4
          errstrng="read_wink"
          close(kw)
          return
  c
   2005 format(/)
  