anchor.diff:  c     solution.
   c     Note that only the upper triangle is used (or available), as
   c     dmat is assumed to always be symmetric.
  -c     Note also that
   c
         include "implicit.inc"
   c
  
positive.code: c       
  
  c version
  c $Id: mat_1.f,v 1.5 2004/07/02 19:14:20 willic3 Exp $
  
  c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
  
  
negative.code: c                                          Young's modulus
  c                                          Poisson's ratio
  c
        subroutine mat_prt_1(prop,nprop,matnum,idout,idsk,kw,kp,
       & ofile,pfile,ierr,errstrng)
  c
  c...  subroutine to output material properties for material model 1.
  c
  c     Error codes:
  c         2:  Error opening output file
  c         4:  Write error
  c
        include "implicit.inc"
  c
  c...  parameter definitions
  c
        include "nconsts.inc"
  c
  c...  subroutine arguments
  c
        integer nprop,matnum,idout,idsk,kw,kp,ierr
        double precision prop(nprop)
        character ofile*(*),pfile*(*),errstrng*(*)
  c
  c...  parameters
  c
  