anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer nstate,nprop,ierr
  +      integer nstate,nstate0,nprop,ierr
         integer iddmat(nstr,nstr)
         character errstrng*(*)
         logical matchg
  -      double precision state(nstr,nstate),dstate(nstr,nstate),ee(nstr)
  +      double precision state(nstr,nstate),dstate(nstr,nstate)
  +      double precision state0(nstate0),ee(nstr)
         double precision dmat(nddmat),prop(nprop),tmax
   c
   c...  included dimension and type statements
  
positive.code: c       
  
  c version
  c $Id: mat_1.f,v 1.14 2005/01/18 19:32:56 willic3 Exp $
  
  c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
  
  
negative.code:       include "ntimdat_def.inc"
  c
        if(matchg) call elas_mat_1(dmat,prop,iddmat,nprop,ierr,errstrng)
        call td_strs_1(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_1(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
  