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: c
  c...  subroutine arguments
  c
        integer nstatesz,numelt,numat,nstep,kucd
        integer infiel(6,numelt),infmat(3,numat),infmatmod(5,nmatmodmax)
        integer ismatmod(nstatesmax,nmatmodmax),infetype(4,netypes)
        integer istatout(2,nstatesmax)
  
negative.code:       end
  c
  c version
  c $Id: write_ucd_gauss_vals.f,v 1.3 2005/01/19 20:34:25 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  