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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
% ********************************************************************
% Copyright (C) 2023 Advanced Micro Devices, Inc. All rights reserved.
% ********************************************************************
function isok = print_mat(matname,A)
%{
-----------------------------------------------------------
This function prints into files ptr, ind and val the
arrays corresponding to the sparse matrix A.
isok = print_mat(matname, A)
Inputs:
matname The common suffix added to the generated files names
A Sparse matrix to be printed
Outputs:
isok This will be -1 if any of the file operations failed
The resulting files
ptr{matname}
ind{matname}
val{matname}
are created in the working directory.
(This script is for internal use only. It is not part of
rocSOLVER library interface and could change or be removed
without any notice)
-----------------------------------------------------------
%}
% -----------------------
% open files
% -----------------------
[ptr,msg] = fopen(strcat("ptr",matname),'w');
isok = (ptr >= 0);
if (!isok),
error(sprintf('print_mat: fopen returns %s', msg));
return;
end
[ind,msg] = fopen(strcat("ind",matname),'w');
isok = (ind >= 0);
if (!isok),
error( sprintf('print_mat: fopen returns %s', msg));
return;
end
[val,msg] = fopen( strcat("val",matname) , 'w');
isok = (val >= 0);
if (!isok),
error( sprintf('print_mat: fopen returns %s', msg));
return;
end
nrows = size(A,1);
ncols = size(A,2);
nnzA = nnz(A);
[ii,jj,aij] = find(A);
% -----------------------
% sort sparse matrix by rows and colums
% -----------------------
ipos = ii * ncols + jj;
[dummy, idx ] = sort( ipos);
clear dummy
ii = ii(idx);
jj = jj(idx);
aij = aij(idx);
% ----------------------
% print ptr
% ----------------------
cc = 0;
istat = fprintf(ptr,'%d ',cc);
isok = (istat >= 0);
if (!isok),
error(sprintf('print_mat: fprintf returns istat=%d',istat));
return;
end
for i=1:nrows-1,
cc = cc + sum(ii == i);
istat = fprintf(ptr,'%d ',cc);
isok = (istat >= 0);
if (!isok),
error(sprintf('print_mat: fprintf returns istat=%d',istat));
return;
end;
end;
cc = cc + sum(ii == nrows);
if (cc != nnzA),
sprintf('error calculating ptr');
end;
istat = fprintf(ptr,'%d',cc);
isok = (istat >= 0);
if (!isok),
error(sprintf('print_mat: fprintf returns istat=%d',istat));
return;
end;
istat = fclose(ptr);
isok = (istat == 0);
if (!isok),
error(sprintf('print_mat: fclose returns istat=%d',istat));
return;
end;
% ----------------------
% print ind and val
% ----------------------
for i=1:nnzA-1,
istat = fprintf(ind,'%d ',jj(i)-1);
isok = (istat >= 0);
if (!isok),
error(sprintf('print_mat: fprintf returns istat=%d',istat));
return;
end;
istat = fprintf(val,'%1.17g ',aij(i));
isok = (istat >= 0);
if (!isok),
error(sprintf('print_mat: fprintf returns istat=%d',istat));
return;
end;
end;
istat = fprintf(ind,'%d',jj(nnzA)-1);
isok = (istat >= 0);
if (!isok),
error(sprintf('print_mat: fprintf returns istat=%d',istat));
return;
end;
istat = fprintf(val,'%1.17g',aij(nnzA));
isok = (istat >= 0);
if (!isok),
error(sprintf('print_mat: fprintf returns istat=%d',istat));
return;
end;
istat = fclose(ind);
isok = (istat == 0);
if (!isok),
error(sprintf('print_mat: fclose returns istat=%d',istat));
return;
end;
istat = fclose(val);
isok = (istat == 0);
if (!isok),
error(sprintf('print_mat: fclose returns istat=%d',istat));
return;
end;
end
|
