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
|
function test219
%TEST219 test reduce to scalar
% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
% SPDX-License-Identifier: Apache-2.0
rng ('default') ;
GrB.burble (1) ;
n = 103 ;
A.matrix = sparse (rand (n,n)) ;
A.class = 'double' ;
save = nthreads_get ;
c1 = GB_mex_reduce_to_scalar (0, [ ], 'max', A) ;
c2 = max (max (A.matrix)) ;
assert (c1 == c2) ;
nthreads_set (save) ;
GrB.burble (0) ;
fprintf ('\ntest219: all tests passed\n') ;
|
