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
|
//------------------------------------------------------------------------------
// gb_by_col: ensure a matrix is stored by column
//------------------------------------------------------------------------------
// SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
// SPDX-License-Identifier: Apache-2.0
//------------------------------------------------------------------------------
// The return value A is set to either the input matrix A_input, or the A_copy
// matrix.
#include "gb_interface.h"
GrB_Matrix gb_by_col // return the matrix by column
(
GrB_Matrix *A_copy_handle, // copy made of A, stored by column, or NULL
GrB_Matrix A_input // input matrix, by row or column
)
{
// get the format of A_input
GxB_Format_Value fmt ;
OK (GxB_Matrix_Option_get (A_input, GxB_FORMAT, &fmt)) ;
GrB_Matrix A_copy = NULL, A ;
if (fmt == GxB_BY_ROW)
{
// make a deep copy of A_input and change it to be stored by column
OK (GrB_Matrix_dup (&A_copy, A_input)) ;
OK1 (A_copy, GxB_Matrix_Option_set (A_copy, GxB_FORMAT, GxB_BY_COL)) ;
OK1 (A_copy, GrB_Matrix_wait (A_copy, GrB_MATERIALIZE)) ;
A = A_copy ;
}
else
{
// A is just A_input, with no change
A = A_input ;
}
// return results
(*A_copy_handle) = A_copy ;
return (A) ;
}
|
