anchor.diff:  c
   c...  output increments/rates, if desired.
   c
  -        if(istatout(2,i).ne.izero) then
  +        if(istatout(2,i,iout).ne.izero) then
             tmult=one
  -          if(istatout(2,i).eq.ione.and.delt.gt.zero) tmult=one/delt
  +          if(istatout(2,i,iout).eq.ione.and.delt.gt.zero) tmult=one/delt
             nout=izero
             do iel=1,numelt
               imat=infiel(2,iel)
  
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:       end
  c
  c version
  c $Id: write_state.f,v 1.4 2004/07/13 16:12:40 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  