anchor.diff:        include "rgiter_def.inc"
         include "ntimdat_def.inc"
   c
  -      call td_matinit_5(state,dstate,dmat,prop,rtimdat,
  -     & rgiter,ntimdat,iddmat,tmax,nstate,nprop,matchg,ierr,errstrng)
  -      call td_strs_5(state,dstate,ee,dmat,prop,rtimdat,rgiter,ntimdat,
  -     & iddmat,tmax,nstate,nprop,matchg,ierr,errstrng)
  -c
  -      return
  -      end
  -c
  -c
  -      subroutine prestr_mat_5(dmat,prop,autofac,iddmat,nprop,ierr,
  -     & errstrng)
  +      call td_matinit_5(state,dstate,state0,dmat,prop,rtimdat,rgiter,
  +     & ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,ierr,errstrng)
  +      call td_strs_5(state,dstate,state0,ee,dmat,prop,rtimdat,rgiter,
  +     & ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,ierr,errstrng)
  +c
  +      return
  +      end
  +c
  +c
  +      subroutine prestr_mat_5(dmat,prop,tpois,tyoungs,iddmat,ipauto,
  +     & nprop,ierr,errstrng)
   c
   c...  subroutine to form the material matrix for an integration point
   c     for prestress computation.  The material matrix is assumed to be
  
positive.code: c
  c...  subroutine arguments
  c
        integer nstate,nprop,ierr
        integer iddmat(nstr,nstr)
        character errstrng*(*)
        logical matchg
        double precision state(nstr,nstate),dstate(nstr,nstate),ee(nstr)
        double precision dmat(nddmat),prop(nprop),tmax
  c
  c...  included dimension and type statements
  
negative.code: c
  c...  subroutine arguments
  c
        integer ipauto,nprop,ierr
        integer iddmat(nstr,nstr)
        character errstrng*(*)
        double precision tpois,tyoungs,dmat(nddmat),prop(nprop)
  c
  c...  local variables
  c
        double precision ptmp(10)
  c
        call dcopy(nprop,prop,ione,ptmp,ione)
        if(ipauto.eq.ione) then
          ptmp(2)=tyoungs
          ptmp(3)=tpois
        end if
        call elas_mat_5(dmat,ptmp,iddmat,nprop,ierr,errstrng)
        return
        end
  c       
  
  c version
  c $Id: mat_5.f,v 1.7 2005/02/24 00:14:45 willic3 Exp $
  
  c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
  
  