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
|
function [nthreads chunk] = nthreads_set (nthreads, chunk)
%NTHREADS_SET set # of threads and chunk to use in GraphBLAS
%
% [nthreads chunk] = nthreads_set (nthreads, chunk)
%
% If nthreads is empty, or if no input arguments, nthreads is set to 1.
% If chunk is empty, or if no input arguments, chunk is not modified.
% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2020, All Rights Reserved.
% http://suitesparse.com See GraphBLAS/Doc/License.txt for license.
global GraphBLAS_nthreads
if (nargin < 1)
nthreads = [ ] ;
end
if (isempty (nthreads))
nthreads = int32 (1) ;
end
nthreads = int32 (nthreads) ;
GraphBLAS_nthreads = nthreads ;
if (nargin > 1 || nargout > 1)
global GraphBLAS_chunk
if (nargin > 1)
GraphBLAS_chunk = chunk ;
elseif (isempty (GraphBLAS_chunk))
GraphBLAS_chunk = 4096 ;
end
if (nargout > 1)
chunk = GraphBLAS_chunk ;
end
end
|
