Amesos Package Browser (Single Doxygen Collection) Development
amesos_paraklete_finish.c
Go to the documentation of this file.
00001 /* ========================================================================== */
00002 /* === paraklete_finish ===================================================== */
00003 /* ========================================================================== */
00004 
00005 #include "amesos_paraklete_decl.h"
00006 
00007 /* paraklete_finish (Common) must be called by all processes after
00008  * using any PARAKLETE and/or CHOLMOD functions.
00009  *
00010  * PARAKLETE version 0.3: parallel sparse LU factorization.  Nov 13, 2007
00011  * Copyright (C) 2007, Univ. of Florida.  Author: Timothy A. Davis
00012  * See License.txt for the Version 2.1 of the GNU Lesser General Public License
00013  * http://www.cise.ufl.edu/research/sparse
00014  */
00015 
00016 void amesos_paraklete_finish (paraklete_common *Common)
00017 {
00018     cholmod_common *cm ;
00019     cm = &(Common->cm) ;
00020     CHOLMOD (finish) (cm) ;
00021     if (cm->malloc_count != 0 || cm->memory_inuse != 0)
00022     {
00023   printf ("%% proc "ID" finish: "ID" "ID"\n", Common->myid,
00024             (Int) (cm->malloc_count), (Int) (cm->memory_inuse)) ;
00025     }
00026     ASSERT (cm->malloc_count == 0 && cm->memory_inuse == 0) ;
00027     if (Common->file != NULL)
00028     {
00029         fclose (Common->file) ;
00030     }
00031     Common->file = NULL ;
00032 }
00033 
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines