anchor.diff:  c                                          Young's modulus
   c                                          Poisson's ratio
   c
  -      subroutine mat_prt_1(prop,nprop,matnum,idout,idsk,kw,kp,ierr,
  -     & ofile,pfile)
  +      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         0:  No error
  -c         1:  Error opening output file
  -c         2:  Not used
  -c         3:  Write error
  -c
  -      include "implicit.inc"
  +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*(*)
  +      character ofile*(*),pfile*(*),errstrng*(*)
   c
   c...  parameters
   c
  
positive.code: 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
  
negative.code: c       
  
  c version
  c $Id: mat_1.f,v 1.6 2004/07/07 18:55:13 willic3 Exp $
  
  c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
  
  