anchor.diff:  c
   c...  parameter definitions
   c
  +      include "ndimens.inc"
         include "materials.inc"
         include "nconsts.inc"
   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
        integer numat,npropsz,idout,idsk,kw,kp,ierr
        integer infmat(3,numat),infmatmod(5,nmatmodmax)
        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,i
  c
  c...  included variable definitions
  c
        include "labeld_def.inc"
  c
  cdebug      write(6,*) "Hello from write_props_f!"
  c
  