anchor.diff:  c
         include "ndimens.inc"
         include "nconsts.inc"
  +      include "rconsts.inc"
   c
   c...  subroutine arguments
   c
  -      integer neq,numnp,nhist,nstep,lastep,ierr
  +      integer neq,nconcflag,numnp,nhist,nstep,lastep,ierr
         integer idx(ndof,numnp),idhist(numnp)
         character errstrng*(*)
  -      double precision b(neq),diforc(ndof,numnp),histry(nhist,lastep+1)
  +      double precision bconcforce(neq*nconcflag),diforc(ndof,numnp)
  +      double precision histry(nhist,lastep+1)
   c
   c...  local variables
   c
         integer j,i,k,ihist
  -      double precision diff
  +      double precision fac
   c
   cdebug      write(6,*) "Hello from loadx_f!"
   c
  
positive.code:       end
  c
  c version
  c $Id: loadx.f,v 1.2 2004/07/07 17:57:13 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine loadx(bconcforce,diforc,histry,idx,idhist,neq,
       & nconcflag,numnp,nhist,nstep,lastep,ierr,errstrng)
  c
  c...program to transfer differential forces into global load vector
  c
  