anchor.diff:          do i=1,ndof
             k=idx(i,j)
             if(k.ne.izero) then
  -            if((ihist.eq.izero).and.(nstep.eq.izero)) 
  -     &       b(k)=b(k)+diforc(i,j)
  -            if(ihist.gt.izero) then
  -              diff=histry(ihist,nstep+1)
  -              if(nstep.gt.izero) diff=diff-histry(ihist,nstep)
  -              b(k)=b(k)+diforc(i,j)*diff
  -            end if
  +            fac=one
  +            if(ihist.gt.izero) fac=histry(ihist,nstep+1)
  +            bconcforce(k)=bconcforce(k)+diforc(i,j)*fac
             end if
           end do
         end do
  
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
        include "ndimens.inc"
        include "nconsts.inc"
        include "rconsts.inc"
  c
  c...  subroutine arguments
  c
        integer neq,nconcflag,numnp,nhist,nstep,lastep,ierr
        integer idx(ndof,numnp),idhist(numnp)
        character errstrng*(*)
        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 fac
  c
  cdebug      write(6,*) "Hello from loadx_f!"
  c
  