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: c
        include "ndimens.inc"
        include "nshape.inc"
        include "nconsts.inc"
        include "rconsts.inc"
  c
  
negative.code:       end
  c
  c version
  c $Id: gload_drv.f,v 1.2 2004/07/08 21:25:16 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  