anchor.diff:  c
   c
         subroutine write_ucd_node_vals(d,deld,tfault,dfault,nfault,numfn,
  -     & dx,deldx,idslp,numsn,deltp,nstep,numnp,kucd,ucdroot,iprestress)
  +     & dx,deldx,idslp,numsn,deltp,nstep,numnp,kucd,iucd,ucdroot,
  +     & iprestress)
   c
   c...  Specialized routine to output displacement info for SCEC
   c     benchmarks.
  
positive.code: c...  local variables
  c
        integer i,j,i1,i2,inode
        double precision rmult
        character filenm*200,cstep*5
  c
  cdebug      write(6,*) "Hello from write_ucd_node_vals!"
  c
        if(deltp.ne.zero) then
          rmult=one/deltp
  
negative.code: c     velocities.
  c     Note also that the split node output is not really a UCD file,
  c     since it contains both node and element information.
  c     Either binary or ascii UCD files are written, depending on the
  c     value of the iucd parameter.
  c
        include "implicit.inc"
  c
  