anchor.diff:       &     x,d,numnp,                                                   ! global
        &     dx,numslp,numsn,                                             ! slip
        &     tfault,numfn,                                                ! fault
  -     &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,nstatesz,ndmatsz,    ! elemnt
  -     &     numelt,nconsz,                                               ! elemnt
  +     &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,     ! elemnt
  +     &     ndmatsz,numelt,nconsz,                                       ! elemnt
        &     ptmp,infmat(1,imat),nprop,matgpt,elas_strs_3,                ! materl
        &     td_strs_mat_3,matchg,                                        ! materl
        &     gauss,sh,shj,infetype,                                       ! eltype
  
positive.code:      &     x,d,numnp,                                                   ! global
       &     dx,numslp,numsn,                                             ! slip
       &     tfault,numfn,                                                ! fault
       &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,nstatesz,ndmatsz,    ! elemnt
       &     numelt,nconsz,                                               ! elemnt
       &     ptmp,infmat(1,imat),nprop,matgpt,elas_strs_15,               ! materl
       &     td_strs_mat_15,matchg,                                       ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
  
negative.code:       end
  c
  c version
  c $Id: stress_mat_drv.f,v 1.2 2004/06/25 15:54:21 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  