Tpetra_Details_mpiIsInitialized.cpp

// @HEADER
// *****************************************************************************
//          Tpetra: Templated Linear Algebra Services Package
//
// Copyright 2008 NTESS and the Tpetra contributors.
// SPDX-License-Identifier: BSD-3-Clause
// *****************************************************************************
// @HEADER

#include "Tpetra_Details_mpiIsInitialized.hpp"
#ifdef HAVE_TPETRACORE_MPI
#  include "mpi.h"
#  include <iostream>
#endif // HAVE_TPETRACORE_MPI

namespace Tpetra {
  namespace Details {

    bool mpiIsInitialized ()
    {
#ifdef HAVE_TPETRACORE_MPI
      int isInitialized = 0;
      const int errCode = MPI_Initialized (&isInitialized);
      // If the call failed, then assume MPI wasn't implemented
      // correctly and return false.
      return errCode == MPI_SUCCESS && (isInitialized != 0);
#else
      return false; // Tpetra was not built with MPI support
#endif // HAVE_TPETRACORE_MPI
    }

    bool mpiIsFinalized ()
    {
#ifdef HAVE_TPETRACORE_MPI
      int isFinalized = 0;
      const int errCode = MPI_Finalized (&isFinalized);
      // If the call failed, then assume MPI wasn't implemented
      // correctly and return false.
      return errCode == MPI_SUCCESS && (isFinalized != 0);
#else
      return false; // Tpetra was not built with MPI support
#endif // HAVE_TPETRACORE_MPI
    }

  } // namespace Details
} // namespace Tpetra