anchor.diff:  c...  subroutine arguments
   c
         integer neq,numnp,numslp,numfn,nstatesz,ndmatsz,numelt,nconsz
  -      integer nprop,matgpt,numrot,ierr
  +      integer nmatel,nstate,nprop,matgpt,numrot,ierr
         integer ien(nconsz),lm(ndof,nconsz),lmx(ndof,nconsz),lmf(nconsz)
  -      integer infiel(6,numelt),infmat(6),infetype(4,netypes)
  +      integer infiel(6,numelt),infetype(4,netypes)
         character errstrng*(*)
         double precision b(neq),x(nsd,numnp),d(ndof,numnp),dx(ndof,numnp)
         double precision tfault(ndof,numfn)
  
positive.code:      & tfault,numfn,                                                    ! fault
       & state,dstate,dmat,ien,lm,lmx,lmf,infiel,nstatesz,ndmatsz,        ! elemnt
       & numelt,nconsz,                                                   ! elemnt
       & prop,infmat,nprop,matgpt,elas_strs,td_strs,                      ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
       & rtimdat,ntimdat,rgiter,                                          ! timdat
       & skew,numrot,                                                     ! skew
  
negative.code: c
  cdebug      write(6,*) "Hello from td_strs_cmp_ss_f!"
  c
        incstate=nstr*nstate
  c
  c...  loop over elements in a material group
  