mirror of
https://github.com/PhasicFlow/phasicFlow.git
synced 2025-07-08 03:07:03 +00:00
34 lines
992 B
C
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
|
|
*/
|
|
}
|
|
|
|
|