anchor.diff:  c...  loop over number of state variables
   c
         do i=1,nstatesmax
  -        if(istatout(1,i).ne.izero) then
  +        if(istatout(1,i,iout).ne.izero) then
             nout=izero
             do iel=1,numelt
               imat=infiel(2,iel)
  
positive.code:      & state,dstate,infiel,nstatesz,numelt,                             ! elemnt
       & infmat,infmatmod,ismatmod,numat,                                 ! materl
       & infetype,                                                        ! eltype
       & delt,                                                            ! timdat
       & istatout,                                                        ! ioopts
       & idout,idsk,kw,kp)                                                ! ioinfo
  c
  
negative.code: c
  c...  subroutine arguments
  c
        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,2)
        double precision delt
        double precision state(nstr,nstatesz),dstate(nstr,nstatesz)
  c
  