anchor.diff:       &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,     ! elemnt
        &     ndmatsz,numelt,nconsz,                                       ! elemnt
        &     ptmp,infmat(1,imat),nprop,matgpt,elas_mat_7,                 ! materl
  -     &     td_matinit_7,matchg,                                         ! materl
  +     &     td_matinit_7,matchg,tminmax,                                 ! materl
        &     gauss,sh,shj,infetype,                                       ! eltype
        &     rtimdat,ntimdat,                                             ! timdat
        &     skew,numrot,                                                 ! skew
  
positive.code:       call fill(alnz,zero,nnz)
        call fill(dmat,zero,nddmat*ndmatsz)
        matgpt=1
  c
  c...  loop over material groups and then select appropriate material
  c     model routine
  
negative.code:      &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,     ! elemnt
       &     ndmatsz,numelt,nconsz,                                       ! elemnt
       &     ptmp,infmat(1,imat),nprop,matgpt,elas_mat_10,                ! materl
       &     td_matinit_10,matchg,tminmax,                                ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
       &     rtimdat,ntimdat,                                             ! timdat
       &     skew,numrot,                                                 ! skew
  