anchor.diff:        end
   c
   c version
  -c $Id: stress_mat_drv.f,v 1.2 2004/06/25 15:54:21 willic3 Exp $
  +c $Id: stress_mat_drv.f,v 1.3 2004/07/08 21:40:26 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code:      &     tfault,numfn,                                                ! fault
       &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,     ! elemnt
       &     ndmatsz,numelt,nconsz,                                       ! elemnt
       &     ptmp,infmat(1,imat),nprop,matgpt,elas_strs_5,                ! materl
       &     td_strs_mat_5,matchg,                                        ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
       &     rtimdat,ntimdat,rgiter,                                      ! timdat
  
negative.code:      &     tfault,numfn,                                                ! fault
       &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,     ! elemnt
       &     ndmatsz,numelt,nconsz,                                       ! elemnt
       &     ptmp,nmatel,imatvar,nstate,nprop,matgpt,elas_strs_1,         ! materl
       &     td_strs_mat_1,matchg,                                        ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
       &     rtimdat,ntimdat,rgiter,                                      ! timdat
  