anchor.diff:        include "gi_dim.inc"
         include "gprev_dim.inc"
         include "gcurr_dim.inc"
  -c
  -c...  defined constants
  -c
  -      include "nconsts.inc"
  -      include "rconsts.inc"
  -c
  -      integer iout
  -      parameter(iout=1)
   c
   c...  intrinsic functions
   c
  
positive.code: c
        tmp(3)=zero
        debug=(idebug.eq.1).and.(idout.gt.1)
        if(debug) call printv(b,btot,id,idx,neq,ndof,numnp,iout,idout,kw)
        ftmp=dnrm2(neq,bres,ione)
        do i=1,neq
          en=deld(i)*bres(i)
  
negative.code:       end
  c
  c version
  c $Id: residu.f,v 1.2 2004/07/02 20:44:54 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  