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
|
function [m, n] = gb_parse_dimensions (arg1, arg2)
%GB_GET_DIMENSIONS parse arguments for dimensions
% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
% SPDX-License-Identifier: Apache-2.0
switch (nargin)
case { 0 }
% C = GrB.eye
m = 1 ;
n = 1 ;
case { 1 }
if (length (arg1) == 1)
% C = ones (n)
m = gb_get_scalar (arg1) ;
n = m ;
elseif (length (arg1) == 2)
% C = ones ([m n])
[m, n] = gb_get_2scalars (arg1) ;
else
error ('GrB:error', 'invalid dimensions') ;
end
otherwise
% C = ones (m, n)
m = gb_get_scalar (arg1) ;
n = gb_get_scalar (arg2) ;
end
|
