anchor.diff:  c
   c                             Charles A. Williams
   c                       Rensselaer Polytechnic Institute
  -c                        (C) 2004  All Rights Reserved
  +c                        (C) 2005  All Rights Reserved
   c
  -c  Copyright 2004 Rensselaer Polytechnic Institute.
   c  All worldwide rights reserved.  A license to use, copy, modify and
   c  distribute this software for non-commercial research purposes only
   c  is hereby granted, provided that this copyright notice and
  
positive.code:       end
  c
  c version
  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
  
negative.code:         write(kto,900) gcurr(1),gcurr(2),gcurr(3),gi(1),gi(2),gi(3),
       &   acc(1),acc(2),acc(3)
        end if
  800   format(/,
       & '   WARNING!  Apparent divergence in iteration #',i5,'!',//)
  810   format(/,
  