function decmat_print_test ( )

%*****************************************************************************80
%
%% decmat_print_test() tests decmat_print().
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    02 June 2015
%
%  Author:
%
%    John Burkardt
%
  m = 4;
  n = 3;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'decmat_print_test():\n' );
  fprintf ( 1, '  decmat_print() prints a decimal matrix.\n' );

  dec_digit = 7;
  amat = zeros ( m, n );
  bmat = zeros ( m, n );

  for i = 1 : m
    for j = 1 : n
      r = 1.0 / ( i + j );
      [ a, b ] = r8_to_dec ( r, dec_digit );
      amat(i,j) = a;
      bmat(i,j) = b;
    end
  end
 
  decmat_print ( m, n, amat, bmat, '  The Hilbert matrix:' );
 
  return
end
