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
|
function logstat (testscript, threads)
%LOGSTAT run a GraphBLAS test and log the results to log.txt
% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
% SPDX-License-Identifier: Apache-2.0
[debug, compact, malloc, covered] = GB_mex_debug ;
clast = grb_get_coverage ;
if (nargin < 2)
% by default, use 4 threads and a tiny chunk size of 1
threads {1} = [4 1] ;
else
% only the # of threads is specified; also set the chunk size to 1
if (isscalar (threads) && isnumeric (threads))
threads = max (threads, 1) ;
t {1} = [threads 1] ;
threads = t ;
end
end
ntrials = length (threads) ;
for trial = 1:ntrials
nthreads_and_chunk = threads {trial} ;
nthreads = nthreads_and_chunk (1) ;
chunk = nthreads_and_chunk (2) ;
nthreads_set (nthreads, chunk) ;
if (nargin == 0)
f = fopen ('log.txt', 'a') ;
fprintf (f, '\n----------------------------------------------') ;
if (debug)
fprintf (f, ' [debug]') ;
end
if (compact)
fprintf (f, ' [compact]') ;
end
if (malloc)
fprintf (f, ' [malloc]') ;
end
if (covered)
fprintf (f, ' [cover]') ;
end
fprintf (f, '\n') ;
fclose (f) ;
return
end
fprintf ('\n======== test: %-10s ', testscript) ;
if (debug)
fprintf (' [debug]') ;
end
if (compact)
fprintf (' [compact]') ;
end
if (malloc)
fprintf (' [malloc]') ;
end
if (covered)
fprintf (' [cover]') ;
end
fprintf (' [nthreads: %d chunk: %g]', nthreads, chunk) ;
fprintf ('\n') ;
t1 = tic ;
runtest (testscript)
t = toc (t1) ;
f = fopen ('log.txt', 'a') ;
s = datestr (now) ;
% trim the year from the date
s = s ([1:6 12:end]) ;
fprintf ( '%s %-11s %7.1f sec ', s, testscript, t) ;
fprintf (f, '%s %-11s %7.1f sec ', s, testscript, t) ;
if (~isempty (strfind (pwd, 'Tcov')))
global GraphBLAS_debug GraphBLAS_grbcov
save grbstat GraphBLAS_debug GraphBLAS_grbcov testscript
if (isempty (GraphBLAS_debug))
GraphBLAS_debug = false ;
end
if (~isempty (GraphBLAS_grbcov))
c = sum (GraphBLAS_grbcov > 0) ;
n = length (GraphBLAS_grbcov) ;
if (c == n)
fprintf ( '%5d: all %5d full 100%% %8.2f/s', ...
c - clast, n, (c-clast) / t) ;
fprintf (f, '%5d: all %5d full 100%% %8.2f/s', ...
c - clast, n, (c-clast) / t) ;
else
fprintf ( '%5d: %5d of %5d %5.1f%% %8.2f/s', ...
c - clast, n-c, n, 100 * (c/n), (c-clast) / t) ;
fprintf (f, '%5d: %5d of %5d %5.1f%% %8.2f/s', ...
c - clast, n-c, n, 100 * (c/n), (c-clast) / t) ;
end
if (debug)
fprintf (' [debug]') ;
end
if (compact)
fprintf (' [compact]') ;
end
if (malloc)
fprintf (' [malloc]') ;
end
if (covered)
fprintf (' [cover]') ;
end
end
end
fprintf ( '\n') ;
fprintf (f, '\n') ;
fclose (f) ;
end
|
