Amesos Package Browser (Single Doxygen Collection) Development
amesos_klu_l_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 /* This file should make the long int version of KLU */
00008 #define DLONG 1
00009 
00010 #include "amesos_klu_internal.h"
00011 
00012 Int KLU_free_symbolic
00013 (
00014     KLU_symbolic **SymbolicHandle,
00015     KLU_common   *Common
00016 )
00017 {
00018     KLU_symbolic *Symbolic ;
00019     Int n ;
00020     if (Common == NULL)
00021     {
00022   return (FALSE) ;
00023     }
00024     if (SymbolicHandle == NULL || *SymbolicHandle == NULL)
00025     {
00026   return (TRUE) ;
00027     }
00028     Symbolic = *SymbolicHandle ;
00029     n = Symbolic->n ;
00030     KLU_free (Symbolic->P, n, sizeof (Int), Common) ;
00031     KLU_free (Symbolic->Q, n, sizeof (Int), Common) ;
00032     KLU_free (Symbolic->R, n+1, sizeof (Int), Common) ;
00033     KLU_free (Symbolic->Lnz, n, sizeof (double), Common) ;
00034     KLU_free (Symbolic, 1, sizeof (KLU_symbolic), Common) ;
00035     *SymbolicHandle = NULL ;
00036     return (TRUE) ;
00037 }
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines