Amesos Package Browser (Single Doxygen Collection)
Development
src
SuiteSparse
KLU
Source
amesos_klu_l_free_symbolic.c
Go to the documentation of this file.
1
/* ========================================================================== */
2
/* === KLU_free_symbolic ==================================================== */
3
/* ========================================================================== */
4
5
/* Free the KLU Symbolic object. */
6
7
/* This file should make the long int version of KLU */
8
#define DLONG 1
9
10
#include "
amesos_klu_internal.h
"
11
12
Int
KLU_free_symbolic
13
(
14
KLU_symbolic
**SymbolicHandle,
15
KLU_common
*
Common
16
)
17
{
18
KLU_symbolic
*Symbolic ;
19
Int
n
;
20
if
(
Common
==
NULL
)
21
{
22
return
(
FALSE
) ;
23
}
24
if
(SymbolicHandle ==
NULL
|| *SymbolicHandle ==
NULL
)
25
{
26
return
(
TRUE
) ;
27
}
28
Symbolic = *SymbolicHandle ;
29
n
= Symbolic->n ;
30
KLU_free
(Symbolic->P,
n
, sizeof (
Int
),
Common
) ;
31
KLU_free
(Symbolic->Q,
n
, sizeof (
Int
),
Common
) ;
32
KLU_free
(Symbolic->R,
n
+1, sizeof (
Int
),
Common
) ;
33
KLU_free
(Symbolic->Lnz,
n
, sizeof (
double
),
Common
) ;
34
KLU_free
(Symbolic, 1,
sizeof
(
KLU_symbolic
),
Common
) ;
35
*SymbolicHandle =
NULL
;
36
return
(
TRUE
) ;
37
}
Common
KLU_symbolic
#define KLU_symbolic
Definition:
amesos_klu_version.h:180
Int
#define Int
Definition:
amesos_amd_internal.h:190
FALSE
#define FALSE
Definition:
amesos_amd_internal.h:141
amesos_klu_internal.h
NULL
#define NULL
Definition:
amesos_amd_internal.h:153
KLU_free_symbolic
Int KLU_free_symbolic(KLU_symbolic **SymbolicHandle, KLU_common *Common)
Definition:
amesos_klu_l_free_symbolic.c:13
KLU_common
#define KLU_common
Definition:
amesos_klu_version.h:182
n
int n
TRUE
#define TRUE
Definition:
amesos_amd_internal.h:140
KLU_free
#define KLU_free
Definition:
amesos_klu_version.h:174
Generated by
1.8.14