anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer nnz,neq,numnp,numslp,numsn,numfn,nstatesz,ndmatsz,numelt
  -      integer nconsz,nprop,nstate,matgpt,imatvar,nmatel,numrot,ierr
  +      integer nnz,neq,numnp,numslp,numsn,numfn,nstatesz,nstatesz0
  +      integer ndmatsz,numelt,nconsz,nprestrflag,ipstrs,ipauto,nprop
  +      integer nstate0,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)
  +      integer lmf(nconsz),infiel(7,numelt),iddmat(nstr,nstr)
         integer infetype(4,netypes)
         character errstrng*(*)
         double precision alnz(nnz),x(nsd,numnp),d(ndof,numnp)
         double precision dx(ndof,numnp),tfault(ndof,numfn)
         double precision s(neemax*neemax),stemp(neemax*neemax)
         double precision state(nstr,nstatesz),dstate(nstr,nstatesz)
  +      double precision state0(nstate0,nstatesz0)
         double precision dmat(nddmat,ndmatsz),prop(nprop),tminmax
         double precision gauss(nsd+1,ngaussmax,netypes)
         double precision sh(nsd+1,nenmax,ngaussmax,netypes)
  
positive.code:       iel=infiel(4,matgpt)
        inddmat0=infiel(6,iel)
        ietype=infiel(3,iel)
        call prestr_matinit(dmat(1,inddmat0),prop,autofac,iddmat,nprop,
       & ierr,errstrng)
        if(ierr.ne.izero) return
        ngauss=infetype(1,ietype)
        ng=ngauss
  
negative.code:       end
  c
  c version
  c $Id: prestr_matinit_cmp_ss.f,v 1.2 2005/02/24 00:16:41 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  