anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer nstatesz,numelt,numat,idout,idsk,kw,kp
  +      integer nstatesz,numelt,numat,nstep,idout,idsk,kw,kp
         integer infiel(6,numelt),infmat(3,numat),infmatmod(5,nmatmodmax)
         integer ismatmod(nstatesmax,nmatmodmax),infetype(4,netypes)
  -      integer istatout(2,nstatesmax)
  +      integer istatout(2,nstatesmax,2)
         double precision delt
         double precision state(nstr,nstatesz),dstate(nstr,nstatesz)
   c
  
positive.code: c
        integer matmodpt(nstatesmax,nmatmodmax)
        integer m50,i,iel,imat,ietype,ngauss,matmodel,nstate,indstate,l
        integer indstateg,nout,j,incgauss
        double precision stmp(6),tmult
  c
  c...  included variable definitions
  
negative.code: cdebug      write(6,*) "Hello from write_state_f!"
  c
        m50=50
        iout=ione
        if(nstep.gt.izero) iout=itwo
  c
  c...  define pointer array for location of state variables for each
  c     material model.
  