anchor.diff:  c
         include "labeld_dim.inc"
   c
  -c...  defined constants
  +c...  local constants
   c
         character*4 head(8)
         data head/8*'node'/
  
positive.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine prntforc(n,p,ien,nen,ndof,idout,kw)
  c
  c...prints local force vector for debugging
  c
        include "implicit.inc"
  c
  c...  subroutine arguments
  c
        integer n,nen,ndof,idout,kw
        integer ien(nen)
        double precision p(ndof*nen)
  c
  
negative.code:       end
  c
  c version
  c $Id: prntforc.f,v 1.2 2004/07/07 20:34:38 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  