anchor.diff:        end
   c
   c version
  -c $Id: elas_matinit_cmp_ss.f,v 1.2 2004/07/01 17:19:50 willic3 Exp $
  +c $Id: elas_matinit_cmp_ss.f,v 1.3 2004/07/08 20:32:25 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c
  cdebug      write(6,*) "Hello from elas_matinit_cmp_ss_f!"
  c
        nmatel=infmat(2)
        imatvar=infmat(4)
        tminmax=big
  c
  c...  compute d-matrix for first element in the group.  If imatvar is
  
negative.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)
        integer infetype(4,netypes)
        character errstrng*(*)
        double precision alnz(nnz),x(nsd,numnp),d(ndof,numnp)
  