anchor.diff:  c
         integer numat,npropsz,idout,idsk,kw,kp,ierr
         integer infmat(3,numat),infmatmod(5,nmatmodmax)
  -      double precision prop(npropsz)
  +      double precision prop(npropsz),grav(ndof)
         character ofile*(*),pfile*(*),errstrng*(*)
   c
  +c...  included dimension and type statements
  +c
  +      include "labeld_dim.inc"
  +c
   c...  external routines
   c
         include "mat_prt_ext.inc"
   c
   c...  local variables
   c
  -      integer imat,matmodel,indprop,nprop
  +      integer imat,matmodel,indprop,nprop,i
  +c
  +c...  included variable definitions
  +c
  +      include "labeld_def.inc"
   c
   cdebug      write(6,*) "Hello from write_props_f!"
   c
  
positive.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)
  c
        end
  c
  c version
  c $Id: write_props.f,v 1.2 2004/07/13 16:26:48 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        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
  