anchor.diff:       &         s,stemp,                                                 ! stiff
        &         state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,npar,     ! elemnt
        &         ielno,iside,ihistry,pres,pdir,                           ! tractn
  -     &         prop,mhist,infmat,infmatmod,                             ! materl
  +     &         prop,mhist,infmat,infmatmod,tminmax,                     ! materl
        &         gauss,sh,shj,infetype,                                   ! eltype
        &         histry,rtimdat,ntimdat,nvisdat,                          ! timdat
        &         rgiter,gcurr,gi,gprev,gtol,rmin,rmult,nsiter,            ! iterate
  
positive.code:      &         s,stemp,                                                 ! stiff
       &         state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,npar,     ! elemnt
       &         ielno,iside,ihistry,pres,pdir,                           ! tractn
       &         prop,mhist,infmat,infmatmod,                             ! materl
       &         gauss,sh,shj,infetype,                                   ! eltype
       &         histry,rtimdat,ntimdat,nvisdat,                          ! timdat
       &         rgiter,gcurr,gi,gprev,gtol,rmin,rmult,nsiter,            ! iterate
  
negative.code:             end if
              reform=reform.or.ltim
              if(reform) ireform=ione
              ntimdat(9)=ireform
              fulout=.false.
              if(ntot.eq.iprint(indexx)) fulout=.true.
  c
  