%% HB_FILE_READ reads an HBSMC file.
%
%  Modified: 07 February 2004
%  Maya N.
%
%  Load a matrix and a rhs vector /Harwell-Boeing Least Squares collection
%  input file - character

function [A,b] = hb_file_read ( input_file )

eval(['load ' input_file '.mtx'])
eval(['A = sparse(' input_file '(:,1),' input_file '(:,2),' ...
                    input_file '(:,3));'])

input_file_rhs = [input_file,'_rhs1'];
eval(['load ' input_file_rhs '.mtx'])
eval(['b=' input_file_rhs ';'])  
%  
