anchor.diff:  c...  subroutine arguments
   c
         integer nnz,neq,numnp,numslp,numsn,numfn,nstatesz,ndmatsz,numelt
  -      integer nconsz,nprop,matgpt,numrot,ierr
  +      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),infmat(6)
  +      integer lmf(nconsz),infiel(6,numelt),iddmat(nstr,nstr)
         integer infetype(4,netypes)
         character errstrng*(*)
         double precision alnz(nnz),x(nsd,numnp),d(ndof,numnp)
  
positive.code:      & s,stemp,                                                         ! stiff
       & state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,         ! elemnt
       & ndmatsz,numelt,nconsz,                                           ! elemnt
       & prop,infmat,nprop,matgpt,elas_matinit,td_matinit,matchg,tminmax, ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
       & rtimdat,ntimdat,                                                 ! timdat
       & skew,numrot,                                                     ! skew
  
negative.code:       end
  c
  c version
  c $Id: td_matinit_cmp_ss.f,v 1.2 2004/07/09 01:29:45 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  