anchor.diff:  c
   c...  local variables
   c
  -      integer iel,indstate0,inddmat0,ietype,nstate,ng
  +      integer iel,indstate0,inddmat0,ietype,ng
         integer inddmatg,l,ind,indstate,inddmat,ngauss,indstateg
         integer indien,nen,nee,ngtest,ngaussdim
         double precision tmax
  
positive.code: c...  subroutine arguments
  c
        integer nnz,neq,numnp,numslp,numsn,numfn,nstatesz,ndmatsz,numelt
        integer nconsz,nprop,matgpt,imatvar,nmatel,numrot,ierr
        logical matchg
        integer ja(nnz),ien(nconsz),lm(ndof,nconsz),lmx(ndof,nconsz)
        integer lmf(nconsz),infiel(6,numelt),iddmat(nstr,nstr)
  
negative.code:           end do
          end do
        end if
  cdebug      write(6,*) "tminmax:",tminmax
  c
  c...  loop over elements in group and add element stiffness to global
  c     stiffness.
  