anchor.diff:              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)
  +        if(idout.gt.izero.and.nnz.ne.izero) then
  +          if(mod(nlines,npage).eq.izero) then
  +            write(kw,1000,err=50)
  +            write(kw,3000,err=50) (labeld(iline),iline=1,ndof)
  +            write(kw,2005,err=50)
             end if
             nlines=nlines+1
  -          write(kw,2020) n,(wtmp(iline),iwtmp(iline),iline=1,ndof)
  +          write(kw,2020,err=50) n,(wtmp(iline),iwtmp(iline),
  +     &     iline=1,ndof)
           end if 
         end do
         close(kr)
  -      if(idout.gt.0) close(kw)
  +      if(idout.gt.izero) close(kw)
   c
   c...  normal return
   c
  
positive.code: c                               iwink = 1, applied throuthout computatin
  c                               iwink = -n, uses load history factor n
  c
  c
        include "implicit.inc"
  c
  c...  subroutine arguments
  c
        integer numnp,ndof,nwink,nwinke,kr,kw,idout,ierr
        integer iwink(2,nwink),id(ndof,numnp)
        double precision wink(nwink),wscal(3)
        character wfile*(*),ofile*(*)
  c
  c...  included dimension and type statements
  c
  
negative.code:       end
  c
  c version
  c $Id: read_wink.f,v 1.2 2004/07/12 19:23:29 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  