anchor.diff:  c       
   
   c version
  -c $Id: mat_1.f,v 1.6 2004/07/07 18:55:13 willic3 Exp $
  +c $Id: mat_1.f,v 1.7 2004/07/12 17:53:31 willic3 Exp $
   
   c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
   
  
positive.code: c
        integer nprop,matnum,idout,idsk,kw,kp,ierr
        double precision prop(nprop)
        character ofile*(*),pfile*(*),errstrng*(*)
  c
  c...  parameters
  c
        character labelp(3)*15,modelname*24
        data labelp/"Density",
  
negative.code: c
        integer i
  c
  c...  output plot results
  c
        if(idsk.eq.izero) then
  	write(kp,"(3i7)",err=10) matnum,mattype,nprop
  	write(kp,"(1pe15.8,20(2x,1pe15.8))",err=10) (prop(i),i=1,nprop)
        else if(idsk.eq.ione) then
  	write(kp,err=10) matnum,mattype,nprop
  	write(kp,err=10) prop
        end if
  c
  c...  output ascii results, if desired
  c
        if(idout.gt.izero) then
  	write(kw,700,err=10) matnum,modelname,nprop
  	do i=1,nprop
  	  write(kw,710,err=10) labelp(i),prop(i)
          end do
        end if
  c
        return
  c
  c...  error writing to output file
  c
   10   continue
          ierr=4
          errstrng="mat_prt_1"
          return
  