anchor.diff:  c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   c
   c
  -      subroutine write_props(prop,infmat,infmatmod,numat,npropsz,idout,
  -     & idsk,kw,kp,ofile,pfile,ierr,errstrng)
  +      subroutine write_props(prop,grav,infmat,infmatmod,numat,npropsz,
  +     & idout,idsk,kw,kp,ofile,pfile,ierr,errstrng)
   c
   c...  program to print properties for each material type.
   c
  
positive.code: c
  c...  parameter definitions
  c
        include "materials.inc"
        include "nconsts.inc"
  c
  
negative.code:  1000 format(1x,///,
       & " m a t e r i a l   s e t   d a t a                    ",//,5x,
       & " number of material sets . . . . . . . . . . (numat) =",i5)
   1100 format(//,
       & ' a c c e l e r a t i o n   o f   g r a v i t y         ',//)
   1200 format(5x,
       & a4,'-direction  . . . . . . . . . . . . . . . . =',1pe17.5/)
  c
        end
  c
  c version
  c $Id: write_props.f,v 1.3 2004/07/15 20:22:36 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  