anchor.diff:  c
   c...  local variables
   c
  -      integer i,j,n,nwtot,nnz
  -      integer iwtmp(3)
  -      double precision wtmp(3)
  -c
  -c...  included variable definitions
  -c
  -c
  -c...  open output file
  +      integer i,j
   c
         ierr=izero
  +      call ifill(iwinkid,izero,nwinke)
  +      call ifill(iwinkdef,izero,ndof*nwinke)
  +      call fill(winkdef,zero,ndof*nwinke)
   c
   c...  open input file
   c
  
positive.code: c
        include "ndimens.inc"
        include "nconsts.inc"
  c
  c...  subroutine arguments
  c
        integer numnp,nwink,nwinke,kr,ierr
        integer iwink(2,nwink),id(ndof,numnp)
        double precision wink(nwink),wscal(3)
        character wfile*(*),errstrng*(*)
  c
  c...  included dimension and type statements
  
negative.code:       end
  c
  c version
  c $Id: read_wink.f,v 1.5 2005/04/16 00:45:25 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  