function sparse_display_test03 ( )

%*****************************************************************************80
%
%% sparse_display_test03() tests spy_ge().
%
%  Discussion:
%
%    It is not clear to me whether the plot being created is correctly
%    oriented.  I might be seeing the transpose of the matrix.
%    One way to check is to set up a moderate sized, highly asymmetric matrix.
%    In this case, I will create a certain upper triangular matrix.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    16 September 2014
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'sparse_display_test03()\n' );
  fprintf ( 1, '  spy_ge() generates a sparsity plot for a matrix stored\n' );
  fprintf ( 1, '  in general (GE) format.\n' );
  fprintf ( 1, '  Just to orient ourselves, generate an upper triangular matrix.\n' );

  m = 20;
  n = 30;
  a = zeros ( m, n );

  for i = 1 : m
    for j = 1 : n
      if ( i <= j && mod ( i - j, i ) == 0 )
        a(i,j) = 1.0;
      end
    end
  end

  header = '20x30';

  spy_ge ( m, n, a, header );

  return
end
