anchor.diff:        double precision bextern(nextflag*neq),btraction(ntractflag*neq)
         double precision bgravity(ngravflag*neq),bconcforce(nconcflag*neq)
         double precision bintern(neq),bresid(neq)
  +c
  +c...  local constants
  +c
  +      double precision alpha
  +      data alpha/-1.0d0/
   c
   cdebug      integer idb
   c
  
positive.code: c
        include "nconsts.inc"
        include "rconsts.inc"
        double precision alpha
        parameter(alpha=-1.0d0)
  c
  c...  subroutine arguments
  c
  
negative.code:       end
  c
  c version
  c $Id: bsum.f,v 1.3 2005/04/08 00:30:36 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  