anchor.diff:        end
   c
   c version
  -c $Id: update_state.f,v 1.5 2004/08/02 21:32:09 willic3 Exp $
  +c $Id: update_state.f,v 1.6 2004/08/12 02:33:46 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c...  local variables
  c
        integer matgpt,imat,matmodel,nmatel,nstate,ielg,iel
        integer ietype,indstate,indstateg,ngauss,l
        double precision sub
  c
  cdebug      write(6,*) "Hello from update_state_f!"
  c
        matgpt=ione
        sub=-one
  c
  c...  loop over material groups
  c
  
negative.code:             indstateg=indstate
              ngauss=infetype(1,ietype)
              do l=1,ngauss
                call daxpy(nstr2,sub,state(1,indstateg),ione,
       &         dstate(1,indstateg),ione)
                call daxpy(nstr3,one,dstate(1,indstateg),ione,
       &         state(1,indstateg),ione)
                indstateg=indstateg+nstate
              end do
            end do
  