anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer nstate,nprop,ierr
  +      integer nstate,nstate0,nprop,ierr
         integer iddmat(nstr,nstr)
         character errstrng*(*)
         logical matchg
  -      double precision state(nstr,nstate),dstate(nstr,nstate),ee(nstr)
  +      double precision state(nstr,nstate),dstate(nstr,nstate)
  +      double precision state0(nstate0),ee(nstr)
         double precision dmat(nddmat),prop(nprop),tmax
   c
   c...  included dimension and type statements
  
positive.code:       end
  c
  c
        subroutine elas_strs_1(state,ee,dmat,nstate,ierr,errstrng)
  c
  c...  subroutine to compute stresses for the elastic solution.  For this
  c     material, there are just 2 state variables:  total stress and
  
negative.code: c
  c...  subroutine arguments
  c
        integer nstate,nstate0,nprop,ierr
        integer iddmat(nstr,nstr)
        character errstrng*(*)
        logical matchg
        double precision state(nstr,nstate),dstate(nstr,nstate)
        double precision state0(nstate0),ee(nstr)
        double precision dmat(nddmat),prop(nprop),tmax
  c
  c...  included dimension and type statements
  