anchor.diff:       &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,nstatesz,ndmatsz,    ! elemnt
        &     numelt,nconsz,                                               ! elemnt
        &     ptmp,nmatel,nstate,nprop,matgpt,elas_strs_20,td_strs_20,     ! materl
  +     &     matchg,tminmax,                                              ! materl
        &     gauss,sh,shj,infetype,                                       ! eltype
        &     rtimdat,ntimdat,rgiter,                                      ! timdat
        &     skew,numrot,                                                 ! skew
  
positive.code: c
        call fill(b,zero,neq)
        matgpt=1
  c
  c...  loop over material groups and then select appropriate material model
  c     routine
  
negative.code:       end
  c
  c version
  c $Id: stress_drv.f,v 1.5 2004/07/21 19:01:32 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  