anchor.diff:  c...  subroutine arguments
   c
         integer nnz,neq,numnp,numslp,numsn,numfn,nstatesz,ndmatsz,numelt
  -      integer nconsz,nprop,matgpt,numrot,ierr
  +      integer nconsz,nmatel,imatvar,nstate,nprop,matgpt,numrot,ierr
         integer ja(nnz),ien(nconsz),lm(ndof,nconsz),lmx(ndof,nconsz)
  -      integer lmf(nconsz),infiel(6,numelt),iddmat(nstr,nstr),infmat(6)
  +      integer lmf(nconsz),infiel(6,numelt),iddmat(nstr,nstr)
         integer infetype(4,netypes)
         character errstrng*(*)
         logical matchg
  
positive.code: c
  c...  local variables
  c
        integer nmatel,nstate,ind,iel,indien,ietype,indstate,inddmat
        integer ngauss,nen,nee,l,indstateg,inddmatg,imatvar,ngtest
        integer ngaussdim,incstate
        double precision dl(60),xl(60),scur(162),ee(162),p(60),det(27)
  c
  
negative.code:      & s,stemp,                                                         ! stiff
       & state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,ndmatsz, ! elemnt
       & numelt,nconsz,                                                   ! elemnt
       & prop,nmatel,imatvar,nstate,nprop,matgpt,elas_strs_mat,           ! materl
       & td_strs_mat,matchg,                                              ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
       & rtimdat,ntimdat,rgiter,                                          ! timdat
       & skew,numrot,                                                     ! skew
  