source: issm/trunk/src/c/analyses/EnvironmentFinalize.cpp@ 16137

Last change on this file since 16137 was 16137, checked in by Mathieu Morlighem, 12 years ago

merged trunk-jpl and trunk for revision 16135
File size: 556 bytes
RevLine 
[13534]1/*!\file: EnvironmentFinalize.cpp
2 * \brief: finalize Petsc, MPI, you name it
3 */
4#ifdef HAVE_CONFIG_H
5 #include <config.h>
6#else
7#error "Cannot compile with HAVE_CONFIG_H symbol! run configure first!"
8#endif
9#include "../toolkits/toolkits.h"
10#include "../shared/shared.h"
11
12void EnvironmentFinalize(void){
13
[16137]14 int my_rank;
[13797]15
16 /*Make sure we are all here*/
[16137]17 ISSM_MPI_Barrier(ISSM_MPI_COMM_WORLD);
[14822]18
[13797]19 /*Print closing statement*/
[16137]20 ISSM_MPI_Comm_rank(ISSM_MPI_COMM_WORLD,&my_rank);
[13736]21 if(!my_rank) printf("closing MPI\n");
22
23 /*Finalize: */
[16137]24 ISSM_MPI_Finalize();
[13534]25}
Note: See TracBrowser for help on using the repository browser.