function r8col_find_test ( )

%*****************************************************************************80
%
%% r8col_find_test() tests r8col_find().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    19 April 2009
%
%  Author:
%
%    John Burkardt
%
  n = 4;
  m = 3;

  k = 1;
  for i = 1 : m
    for j = 1 : n

      dtab(i,j) = k;

      if ( j == 3 )
        dvec(i) = k;
      end

      k = k + 1;

    end
  end

  icol = r8col_find ( m, n, dtab, dvec );

  fprintf ( 1, '\n' );
  fprintf ( 1, 'r8col_find_test():\n' );
  fprintf ( 1, '  r8col_find() finds a column in a table matching\n' );
  fprintf ( 1, '  a given set of data.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  R8COL_FIND returns ICOL = %d\n', icol );

  return
end
