Amesos Package Browser (Single Doxygen Collection) Development
amesos_klu_free_symbolic.c
Go to the documentation of this file.
00001 /* ========================================================================== */
00002 /* === KLU_free_symbolic ==================================================== */
00003 /* ========================================================================== */
00004 
00005 /* Free the KLU Symbolic object. */
00006 
00007 #include "amesos_klu_internal.h"
00008 
00009 Int KLU_free_symbolic
00010 (
00011     KLU_symbolic **SymbolicHandle,
00012     KLU_common   *Common
00013 )
00014 {
00015     KLU_symbolic *Symbolic ;
00016     Int n ;
00017     if (Common == NULL)
00018     {
00019   return (FALSE) ;
00020     }
00021     if (SymbolicHandle == NULL || *SymbolicHandle == NULL)
00022     {
00023   return (TRUE) ;
00024     }
00025     Symbolic = *SymbolicHandle ;
00026     n = Symbolic->n ;
00027     KLU_free (Symbolic->P, n, sizeof (Int), Common) ;
00028     KLU_free (Symbolic->Q, n, sizeof (Int), Common) ;
00029     KLU_free (Symbolic->R, n+1, sizeof (Int), Common) ;
00030     KLU_free (Symbolic->Lnz, n, sizeof (double), Common) ;
00031     KLU_free (Symbolic, 1, sizeof (KLU_symbolic), Common) ;
00032     *SymbolicHandle = NULL ;
00033     return (TRUE) ;
00034 }
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines