function mod_bar3d ( )

%*****************************************************************************80
%
%% mod_bar3d makes a 3D bar plot of mod(I,J).
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    01 May 2019
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'mod_bar3d:\n' );
  fprintf ( 1, '  MATLAB version\n' );
  fprintf ( 1, '  Make a 3D bar plot of mod(1:10,1:10).\n' );

  ten = 1 : 10;
  I = repmat ( ten, 10, 1 );
  Z = mod ( I', I );
%
%  Make a bar plot.
%
  bar3 ( Z )
  grid ( 'on' )
  xlabel ( '<-- I -->', 'FontSize', 16 )
  ylabel ( '<-- J -->', 'FontSize', 16 )
  title ( 'Mod(I,J)', 'FontSize', 24 )
%
%  Save a snapshot of the plot.
%
  filename = 'mod_bar3d.png';
  print ( '-dpng', filename )
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Graphics saved as "%s"\n', filename );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'mod_bar3d:\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  return
end
