anchor.diff:        end
   c
   c version
  -c $Id: prestr_matinit_cmp_ss.f,v 1.1 2005/01/17 22:14:46 willic3 Exp $
  +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
  
positive.code:      & dx,numslp,numsn,                                                 ! slip
       & tfault,numfn,                                                    ! fault
       & s,stemp,                                                         ! stiff
       & state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,         ! elemnt
       & ndmatsz,numelt,nconsz,                                           ! elemnt
       & prop,nstate,nprop,matgpt,imatvar,nmatel,elas_matinit,td_matinit, ! materl
       & prestr_matinit,matchg,tminmax,                                   ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
  
negative.code:       iel=infiel(4,matgpt)
        inddmat0=infiel(6,iel)
        ietype=infiel(3,iel)
        call prestr_matinit(dmat(1,inddmat0),prop,tpois,tyoungs,iddmat,
       & ipauto,nprop,ierr,errstrng)
        if(ierr.ne.izero) return
        ngauss=infetype(1,ietype)
        ng=ngauss
  