Files
phasicFlow/thirdParty/Zoltan/siMPI/pyMPI/siMPI/MPI_Finalize.c
2025-05-15 21:58:43 +03:30

34 lines
992 B
C

/*****************************************************************************
* CVS File Information :
* $RCSfile$
* Author: patmiller $
* Date: 2007/06/11 14:12:50 $
* Revision: 1.2 $
****************************************************************************/
/******************************************************************/
/* FILE *********** MPI_Finalize.c ********************/
/******************************************************************/
/* Author : Lisa Alano June 18 2002 */
/* Copyright (c) 2002 University of California Regents */
/******************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include "mpi.h"
int MPI_Finalize (void)
{
_MPI_COVERAGE();
return PMPI_Finalize();
/*
#ifdef _MPI_DEBUG
if (x == _MPI_NOT_OK)
printf ("\n>>>>ERROR MPI_Finalize\n");
else
printf(">>MPI_Finalize was called.\n");
#endif
*/
}