1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
/////////////////////////////////////////////////////////////
// //
// Copyright (c) 2003-2014 by The University of Queensland //
// Centre for Geoscience Computing //
// http://earth.uq.edu.au/centre-geoscience-computing //
// //
// Primary Business: Brisbane, Queensland, Australia //
// Licensed under the Open Software License version 3.0 //
// http://www.apache.org/licenses/LICENSE-2.0 //
// //
/////////////////////////////////////////////////////////////
#ifndef MPIWRAP_H
#include <mpi.h>
#if HAVE_CONFIG_H
#include "config.h"
#endif
#if HAVE_MPI_COMM_DISCONNECT
#else
inline int MPI_Comm_disconnect(MPI_Comm *comm)
{
return MPI_Comm_free(comm);
}
#endif
#endif
|
