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
|
//------------------------------------------------------------------------------
// GB_convert_any_to_hyper: convert any matrix to hypersparse
//------------------------------------------------------------------------------
// 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_hyper // convert to hypersparse
(
GrB_Matrix A, // matrix to convert to hypersparse
GB_Context Context
)
{
//--------------------------------------------------------------------------
// check inputs
//--------------------------------------------------------------------------
GrB_Info info ;
ASSERT_MATRIX_OK (A, "A being converted to hyper", GB0) ;
ASSERT (GB_ZOMBIES_OK (A)) ;
ASSERT (GB_JUMBLED_OK (A)) ;
ASSERT (GB_PENDING_OK (A)) ;
//--------------------------------------------------------------------------
// convert A to hypersparse
//--------------------------------------------------------------------------
if (GB_IS_HYPERSPARSE (A))
{
// already hypersparse, nothing to do
;
}
else if (GB_IS_FULL (A))
{
// convert from full to hypersparse
GB_OK (GB_convert_full_to_sparse (A, Context)) ;
GB_OK (GB_convert_sparse_to_hyper (A, Context)) ;
}
else if (GB_IS_BITMAP (A))
{
// convert from bitmap to hypersparse
GB_OK (GB_convert_bitmap_to_sparse (A, Context)) ;
GB_OK (GB_convert_sparse_to_hyper (A, Context)) ;
}
else
{
// convert from sparse to hypersparse
GB_OK (GB_convert_sparse_to_hyper (A, Context)) ;
}
//--------------------------------------------------------------------------
// return result
//--------------------------------------------------------------------------
ASSERT_MATRIX_OK (A, "A to hypersparse", GB0) ;
ASSERT (GB_IS_HYPERSPARSE (A)) ;
ASSERT (GB_ZOMBIES_OK (A)) ;
ASSERT (GB_JUMBLED_OK (A)) ;
ASSERT (GB_PENDING_OK (A)) ;
return (GrB_SUCCESS) ;
}
|