Function GB_conform_hyper

deps/GraphBLAS/Source/GB_conform_hyper.c:20–73

#define GB_FREE_ALL ;

GrB_Info GB_conform_hyper       // conform a matrix to sparse/hypersparse
(
    GrB_Matrix A,               // matrix to conform
    GB_Context Context
)
{

    //--------------------------------------------------------------------------
    // check inputs
    //--------------------------------------------------------------------------

    GrB_Info info = GrB_SUCCESS ;
    ASSERT_MATRIX_OK (A, "A to conform_hyper", GB0) ;
    ASSERT (!GB_IS_FULL (A)) ;
    ASSERT (!GB_IS_BITMAP (A)) ;
    ASSERT (GB_ZOMBIES_OK (A)) ;
    ASSERT (GB_JUMBLED_OK (A)) ;
    ASSERT (GB_PENDING_OK (A)) ;

    //--------------------------------------------------------------------------
    // convert to sparse or hypersparse
    //--------------------------------------------------------------------------

    if (A->nvec_nonempty < 0)
    { 
        // A->nvec_nonempty is used to select sparse vs hypersparse
        A->nvec_nonempty = GB_nvec_nonempty (A, Context) ;
    }

    if (A->h == NULL && GB_convert_sparse_to_hyper_test (A->hyper_switch,
        A->nvec_nonempty, A->vdim)) // A->nvec_nonempty used here
    { 
        // A is sparse but should be converted to hypersparse
        GB_OK (GB_convert_sparse_to_hyper (A, Context)) ;
    }
    else if (A->h != NULL && GB_convert_hyper_to_sparse_test (A->hyper_switch,
        A->nvec_nonempty, A->vdim)) // A->nvec_nonempty used here
    { 
        // A is hypersparse but should be converted to sparse
        GB_OK (GB_convert_hyper_to_sparse (A, true, Context)) ;
    }
    else
    { 
        // leave the matrix as-is
        ;
    }

    //--------------------------------------------------------------------------
    // return result
    //--------------------------------------------------------------------------

    ASSERT_MATRIX_OK (A, "A conform_hyper result", GB0) ;
    return (GrB_SUCCESS) ;
}