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
|
//------------------------------------------------------------------------------
// GB_convert_any_to_sparse: convert any matrix to sparse
//------------------------------------------------------------------------------
// SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
// SPDX-License-Identifier: Apache-2.0
//------------------------------------------------------------------------------
#include "GB.h"
#define GB_FREE_ALL ;
GrB_Info GB_convert_any_to_sparse // convert to sparse
(
GrB_Matrix A, // matrix to convert to sparse
GB_Context Context
)
{
//--------------------------------------------------------------------------
// check inputs
//--------------------------------------------------------------------------
GrB_Info info ;
ASSERT_MATRIX_OK (A, "A being converted to sparse", GB0) ;
ASSERT (GB_ZOMBIES_OK (A)) ;
ASSERT (GB_JUMBLED_OK (A)) ;
ASSERT (GB_PENDING_OK (A)) ;
//--------------------------------------------------------------------------
// convert A to sparse
//--------------------------------------------------------------------------
if (GB_IS_HYPERSPARSE (A))
{
// convert from hypersparse to sparse
GB_OK (GB_convert_hyper_to_sparse (A, true, Context)) ;
}
else if (GB_IS_FULL (A))
{
// convert from full to sparse
GB_OK (GB_convert_full_to_sparse (A, Context)) ;
}
else if (GB_IS_BITMAP (A))
{
// convert from bitmap to sparse
GB_OK (GB_convert_bitmap_to_sparse (A, Context)) ;
}
else
{
// already sparse; nothing to do
;
}
//--------------------------------------------------------------------------
// return result
//--------------------------------------------------------------------------
ASSERT_MATRIX_OK (A, "A to sparse", GB0) ;
ASSERT (GB_IS_SPARSE (A)) ;
ASSERT (GB_ZOMBIES_OK (A)) ;
ASSERT (GB_JUMBLED_OK (A)) ;
ASSERT (GB_PENDING_OK (A)) ;
return (GrB_SUCCESS) ;
}
|
