anchor.diff:        ng=ngauss
         if(imatvar.eq.izero) ng=ngaussmax
         inddmatg=inddmat0
  +cdebug      write(6,*) "iel,inddmat0,ietype,ngauss,ng,ngaussmax,inddmatg:",
  +cdebug     & iel,inddmat0,ietype,ngauss,ng,ngaussmax,inddmatg
         do l=2,ng
           inddmatg=inddmatg+ione
           call dcopy(nddmat,dmat(1,inddmat0),ione,dmat(1,inddmatg),ione)
  
positive.code:       end
  c
  c version
  c $Id: elas_matinit_cmp_ss.f,v 1.4 2004/08/02 21:08:57 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code:      & 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
       & matchg,tminmax,                                                  ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
       & rtimdat,ntimdat,rgiter,                                          ! timdat
       & skew,numrot,                                                     ! skew
       & getshape,bmatrix,                                                ! bbar
       & ierr,errstrng)                                                   ! errcode
  