anchor.diff:  c
   c...  local variables
   c
  -      integer nmatel,nstate,ind,iel,indien,ietype,indstate,inddmat
  +      integer ind,iel,indien,ietype,indstate,inddmat
         integer ngauss,nen,nee,l,indstateg,inddmatg,incstate
         double precision dl(60),xl(60),scur(162),ee(162),p(60),det(27)
   c
  
positive.code: c
  cdebug      write(6,*) "Hello from elas_strs_cmp_ss_f!"
  c
        nmatel=infmat(2)
        nstate=infmat(3)
        incstate=nstr*nstate
  c
  c...  loop over elements in a material group
  
negative.code: c...  subroutine arguments
  c
        integer neq,numnp,numslp,numfn,nstatesz,ndmatsz,numelt,nconsz
        integer nmatel,nstate,nprop,matgpt,numrot,ierr
        integer ien(nconsz),lm(ndof,nconsz),lmx(ndof,nconsz),lmf(nconsz)
        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)
  