1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
% ********************************************************************
% Copyright (C) 2023 Advanced Micro Devices, Inc. All rights reserved.
% ********************************************************************
function[A] = read_csr( file_ptrA, file_indA, file_valA, dir_in )
%
% [A] = read_csr( file_ptrA, file_indA, file_valA [, dir_in] )
%
% read in matrix in Compressed Sparse Row (CSR) storage
% encoded in 3 files e.g. 'ptrA', 'indA', 'valA'
%
% returns matlab sparse matrix
%
dir = './';
if (nargin >= 4),
dir = dir_in;
end;
has_slash = (dir(numel(dir)) == '/');
if (~has_slash),
dir = strcat(dir,'/');
end;
ptrA = read_vec(strcat(dir,file_ptrA) );
indA = read_vec(strcat(dir,file_indA));
valA = read_vec(strcat(dir,file_valA) );
A = csr2sparse( ptrA, indA, valA );
end
|
