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
|
//------------------------------------------------------------------------------
// GB_vector_load: load C array into a dense GrB_Vector
//------------------------------------------------------------------------------
// SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2025, All Rights Reserved.
// SPDX-License-Identifier: Apache-2.0
//------------------------------------------------------------------------------
#include "GB_container.h"
void GB_vector_load
(
// input/output:
GrB_Vector V, // vector to load from the C array X
void **X, // numerical array to load into V
// input:
GrB_Type type, // type of X
uint64_t n, // # of entries in X
uint64_t X_size, // size of X in bytes (at least n*(sizeof the type))
bool readonly // if true, X is treated as readonly
)
{
//--------------------------------------------------------------------------
// clear prior content of V and load X, making V a dense GrB_Vector
//--------------------------------------------------------------------------
// V->user_name is preserved; all other content is freed. get/set controls
// (hyper_switch, bitmap_switch, [pji]_control, etc) are preserved, except
// that V->sparsity_control is revised to allow V to become a full vector.
GB_phybix_free ((GrB_Matrix) V) ;
V->type = type ;
V->plen = -1 ;
V->vlen = n ;
V->vdim = 1 ;
V->nvec = 1 ;
// V->nvec_nonempty = (n == 0) ? 0 : 1 ;
GB_nvec_nonempty_set ((GrB_Matrix) V, (n == 0) ? 0 : 1) ;
V->nvals = n ;
V->sparsity_control = V->sparsity_control | GxB_FULL ;
V->is_csc = true ;
V->jumbled = false ;
V->iso = false ;
V->p_is_32 = false ;
V->j_is_32 = false ;
V->i_is_32 = false ;
//--------------------------------------------------------------------------
// load the content into V
//--------------------------------------------------------------------------
V->x = (*X) ;
V->x_shallow = readonly ;
V->x_size = X_size ;
if (!readonly)
{
// tell the caller that X has been moved into V
(*X) = NULL ;
}
// V is now a valid GrB_Vector of length n, in the full format
V->magic = GB_MAGIC ;
}
|
