anchor.diff:  cdebug      write(6,*) "Hello from write_props_f!"
   c
         ierr=izero
  +      numat=nvfamilies
   c
   c...  open output files and output number of materials
   c
  
positive.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
  
negative.code: c
  c...  subroutine arguments
  c
        integer nvfamilies,npropsz,idout,idsk,kw,kp,ierr
        integer ivfamily(5,nvfamilies),infmatmod(6,nmatmodmax)
        double precision prop(npropsz),grav(ndof)
        character ofile*(*),pfile*(*),errstrng*(*)
  c
  