anchor.diff:  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(/)
  
positive.code:             wink(nwtot)=wtmp(j)
            end if
          end do
          if(idout.gt.0.and.nnz.ne.0) then
            if(mod(nlines,npage).eq.0) then
              write(kw,1000)
              write(kw,3000) (labeld(iline),iline=1,ndof)
              write(kw,2005)
            end if
            nlines=nlines+1
            write(kw,2020) n,(wtmp(iline),iwtmp(iline),iline=1,ndof)
          end if 
        end do
        close(kr)
        if(idout.gt.0) close(kw)
  c
  c...  normal return
  c
  
negative.code: c
   20   continue
          ierr=1
          errstrng="read_wink"
          close(kr)
          return
  c
  