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:       end
  c
  c version
  c $Id: td_matinit_cmp_ss.f,v 1.1 2004/06/25 21:37:15 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c
  cdebug      write(6,*) "Hello from td_matinit_cmp_ss_f!"
  c
  c
  c...  compute d-matrix for first element in the group.  If imatvar is
  c     zero, there is only one d-matrix for the group, and that is all
  