function scip_solution_read_test ( )

%*****************************************************************************80
%
%% scip_solution_read_test() tests scip_solution_read().
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    11 March 2019
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'scip_solution_read_test():\n' );
  fprintf ( 1, '  scip_solution_read() extracts the solution vector\n' );
  fprintf ( 1, '  X returned by SCIP for a particular polyomino tiling problem.\n' );

  filename = 'reid_scip.sol';
  nx = 10;
  x = scip_solution_read ( filename, nx );

  disp ( '' );
  disp ( '  Solution_data:' );
  disp ( '' );
  disp ( x );
%
%  Save X as a text file.
%
  filename2 = 'reid_scip.txt';

  output = fopen ( filename2, 'wt' );
  for i = 1 : nx
    fprintf ( output, '  %g\n', x(i) );
  end
  fclose ( output );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Wrote the ASCII file "%s"\n', filename2 );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'scip_solution_read_test():\n' );
  fprintf ( 1, '  Normal end of execution.\n' );
  fprintf ( 1, '\n' );

  return
end


