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                                          Poisson's ratio
  c
        subroutine mat_prt_1(prop,nprop,matnum,idout,idsk,kw,kp,
       & ierr,errstrng)
  c
  c...  subroutine to output material properties for material model 1.
  c
  c     Error codes:
  c         4:  Write error
  c
        include "implicit.inc"
  