anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer nstatesz,numelt,numat,nstep,kucd
  +      integer nstatesz,numelt,numat,nstep,kucd,iprestress
         integer infiel(6,numelt),infmat(3,numat),infmatmod(5,nmatmodmax)
         integer ismatmod(nstatesmax,nmatmodmax),infetype(4,netypes)
         integer istatout(2,nstatesmax)
  
positive.code:      & infetype,                                                        ! eltype
       & delt,nstep,                                                      ! timdat
       & istatout,                                                        ! ioopts
       & kucd,ucdroot)                                                    ! ioinfo
  c
  c...  Specialized routine to output element info for SCEC benchmarks.
  c     This routine creates the nodal value portion of the UCD file for
  
negative.code: c
        i1=nnblnk(ucdroot)
        i2=nchar(ucdroot)
        if(iprestress.eq.izero) then
          write(cstep,"(i5.5)") nstep
        else
          cstep="prest"
        end if
  c
  c...  determine how many values will be written
  c
  