function i4st_sort_a_test ( )

%*****************************************************************************80
%
%% i4st_sort_a_test() tests i4st_sort_a().
%
%  Discussion:
%
%    The matrix is:
%
%      11  12   0   0  15
%      21  22   0   0   0
%       0   0  33   0  35
%       0   0   0  44   0
%      51   0  53   0  55
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    27 September 2018
%
%  Author:
%
%    John Burkardt
%
  m = 5;
  n = 5;
  nst = 11;
  ast = [ 51, 12, 11, 33, 15, 53, 55, 22, 35, 44, 21 ];
  ist = [ 5, 1, 1, 3, 1, 5, 5, 2, 3, 4, 2 ];
  jst = [ 1, 2, 1, 3, 5, 3, 5, 2, 5, 4, 1 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'i4st_sort_a_test():\n' );
  fprintf ( 1, '  i4st_sort_a() sorts an I4ST matrix by columns.\n' );

  i_min = min ( ist );
  i_max = max ( ist );
  j_min = min ( jst );
  j_max = max ( jst );

  i4st_header_print ( i_min, i_max, j_min, j_max, m, n, nst );

  i4st_print ( m, n, nst, ist, jst, ast, '  Matrix data before sorting:' );

  [ ist, jst, ast ] = i4st_sort_a ( m, n, nst, ist, jst, ast );

  i4st_print ( m, n, nst, ist, jst, ast, '  Matrix data after sorting:' );

  return
end
 
