anchor.diff:        double precision tfault(ndof,numfn),s(neemax*neemax)
         double precision stemp(neemax*neemax),state(nstr,nstatesz)
         double precision dstate(nstr,nstatesz),dmat(nddmat,ndmatsz)
  -      double precision prop(npropsz)
  +      double precision prop(npropsz),tminmax
         double precision gauss(nsd+1,ngaussmax,netypes)
         double precision sh(nsd+1,nenmax,ngaussmax,netypes)
         double precision shj(nsd+1,nenmax,ngaussmax,netypes)
  
positive.code:      &     x,d,numnp,                                                   ! global
       &     dx,numslp,numsn,                                             ! slip
       &     tfault,numfn,                                                ! fault
       &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,     ! elemnt
       &     ndmatsz,numelt,nconsz,                                       ! elemnt
       &     ptmp,nmatel,imatvar,nstate,nprop,matgpt,elas_strs_2,         ! materl
       &     td_strs_mat_2,matchg,                                        ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
       &     rtimdat,ntimdat,rgiter,                                      ! timdat
       &     skew,numrot,                                                 ! skew
  
negative.code:      &     x,d,numnp,                                                   ! global
       &     dx,numslp,numsn,                                             ! slip
       &     tfault,numfn,                                                ! fault
       &     s,stemp,                                                     ! stiff
       &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,     ! elemnt
       &     ndmatsz,numelt,nconsz,                                       ! elemnt
       &     ptmp,nmatel,imatvar,nstate,nprop,matgpt,elas_strs_7,         ! materl
       &     td_strs_mat_7,matchg,tminmax,                                ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
       &     rtimdat,ntimdat,rgiter,                                      ! timdat
       &     skew,numrot,                                                 ! skew
  