anchor.diff:       & dx,numslp,                                                       ! slip
        & tfault,numfn,                                                    ! fault
        & ien,lm,lmx,lmf,infiel,numelt,nconsz,                             ! elemnt
  -     & prop,mhist,infmat,numat,npropsz,                                 ! materl
  +     & prop,mhist,infmat,infmatmod,numat,npropsz,                       ! materl
        & gauss,shj,infetype,                                              ! eltype
        & histry,rtimdat,ntimdat,nhist,lastep,gload_cmp,                   ! timdat
        & skew,numrot,                                                     ! skew
  
positive.code:       end
  c
  c version
  c $Id: gload_drv.f,v 1.1 2004/07/01 20:17:23 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c
  c...  local variables
  c
        integer i,imat,matgpt,matmodel,nmatel,nprop,indprop
        logical matchg
        double precision gsum,dens,dif
        double precision ptmp(100)
  