anchor.diff:  c...  subroutine arguments
   c
         integer nnz,neq,numnp,numslp,numsn,numfn,nstatesz,ndmatsz,numelt
  -      integer nconsz,nprop,matgpt,imatvar,nmatel,numrot,ierr
  +      integer nconsz,nprop,nstate,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)
  
positive.code:       ng=ngauss
        if(imatvar.eq.izero) ng=ngaussmax
        inddmatg=inddmat0
        do l=2,ng
          inddmatg=inddmatg+ione
          call dcopy(nddmat,dmat(1,inddmat0),ione,dmat(1,inddmatg),ione)
  
negative.code:       end
  c
  c version
  c $Id: elas_matinit_cmp_ss.f,v 1.5 2004/08/12 01:17:34 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  