anchor.diff:        end
   c
   c version
  -c $Id: residu.f,v 1.2 2004/07/02 20:44:54 willic3 Exp $
  +c $Id: residu.f,v 1.3 2005/01/05 22:33:11 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code:      &   acc(1),acc(2),acc(3)
        end if
  cdebug      write(6,*) "From end of residu_f!"
  cdebug      write(6,*) "btot:",(btot(idb),idb=1,neq)
  cdebug      write(6,*) "b:",(b(idb),idb=1,neq)
  cdebug      write(6,*) "bres:",(bres(idb),idb=1,neq)
  cdebug      write(6,*) "deld:",(deld(idb),idb=1,neq)
  800   format(/,
       & '   WARNING!  Apparent divergence in iteration #',i5,'!',//)
  810   format(/,
  
negative.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine residu(bextern,bintern,bresid,dispvec,gtol,gi,gprev,
       & gcurr,id,idx,neq,nextflag,numnp,iter,itmaxp,idebug,idout,kto,kw,
       & converge)
  c
  c...computes the deviation from overall force and energy balance
  c
  