anchor.diff:  c
   c...  local variables
   c
  -      integer i,imat,matgpt,nmatel,nprop,indprop
  +      integer i,imat,matgpt,matmodel,nmatel,nprop,indprop
         logical matchg
         double precision gsum,dens,dif
         double precision ptmp(100)
  
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:      & dx,numslp,                                                       ! slip
       & tfault,numfn,                                                    ! fault
       & ien,lm,lmx,lmf,infiel,numelt,nconsz,                             ! elemnt
       & prop,mhist,infmat,infmatmod,numat,npropsz,                       ! materl
       & gauss,shj,infetype,                                              ! eltype
       & histry,rtimdat,ntimdat,nhist,lastep,gload_cmp,                   ! timdat
       & skew,numrot,                                                     ! skew
  