function five_by_three_test ( )

%*****************************************************************************80
%
%% five_by_three_test() tests gpl_grid() on the FIVE_BY_THREE.GPL file.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    25 January 2019
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'FIVE_BY_THREE_TEST:\n' );
  fprintf ( 1, '  Read a GPL file that describes a 3D surface using\n' );
  fprintf ( 1, '  a rectangular grid, and display it using surf().\n' );

  filename = 'five_by_three.gpl';
%
%  I should be able to determine M and N from the file...
%
  m = 5;
  n = 3;

  [ x, y, z ] = gpl_grid ( filename, m, n );

  surf ( x, y, z, 'FaceColor', 'interp' );
  xlabel ( '<---X--->', 'Fontsize', 16 );
  ylabel ( '<---Y--->', 'Fontsize', 16 );
  zlabel ( '<---Z(X,Y)--->', 'Fontsize', 16 );
  grid on
  title ( filename, 'Fontsize', 24 )

  png_filename = 'five_by_three.png';
  print ( '-dpng', png_filename );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Saving PNG snapshot as "%s"\n', png_filename );

  return
end
