anchor.diff:  c
         i1=nnblnk(ucdroot)
         i2=nchar(ucdroot)
  -      write(cstep,"(i5.5)") nstep
  +      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
  
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
  c...  subroutine arguments
  c
        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)
  