MpiWrap.h

Go to the documentation of this file.

//                                                         //
// Copyright (c) 2003-2017 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