trilinos_utilities.h

Go to the documentation of this file.

// ------------------------------------------------------------------------
//
// SPDX-License-Identifier: LGPL-2.1-or-later
// Copyright (C) 2022 - 2024 by the deal.II authors
//
// This file is part of the deal.II library.
//
// Part of the source code is dual licensed under Apache-2.0 WITH
// LLVM-exception OR LGPL-2.1-or-later. Detailed license information
// governing the source code and code contributions can be found in
// LICENSE.md and CONTRIBUTING.md at the top level directory of deal.II.
//
// ------------------------------------------------------------------------
 
#ifndef dealii_trilinos_utilities_h
#define dealii_trilinos_utilities_h
 
#include <deal.II/base/config.h>
 
#include <deal.II/base/exceptions.h>
 
#ifdef DEAL_II_WITH_TRILINOS
 
DEAL_II_DISABLE_EXTRA_DIAGNOSTICS
#  include <Epetra_Comm.h>
#  include <Epetra_Map.h>
#  include <Teuchos_Comm.hpp>
#  include <Teuchos_RCP.hpp>
 
#  ifdef DEAL_II_WITH_MPI
#    include <Epetra_MpiComm.h>
#  else
#    include <Epetra_SerialComm.h>
#  endif
 
#  ifdef DEAL_II_TRILINOS_WITH_TPETRA
#    include <Teuchos_RCPDecl.hpp>
#  endif // DEAL_II_TRILINOS_WITH_TPETRA
DEAL_II_ENABLE_EXTRA_DIAGNOSTICS
#endif
 
 
DEAL_II_NAMESPACE_OPEN

namespace Utilities
{
#ifdef DEAL_II_WITH_TRILINOS
  namespace Trilinos
  {
    const Epetra_Comm &
    comm_world();

    const Epetra_Comm &
    comm_self();

    const Teuchos::RCP<const Teuchos::Comm<int>> &
    tpetra_comm_self();

    Epetra_Comm *
    duplicate_communicator(const Epetra_Comm &communicator);

    void
    destroy_communicator(Epetra_Comm &communicator);

    unsigned int
    get_n_mpi_processes(const Epetra_Comm &mpi_communicator);

    unsigned int
    get_this_mpi_process(const Epetra_Comm &mpi_communicator);

    Epetra_Map
    duplicate_map(const Epetra_BlockMap &map, const Epetra_Comm &comm);
  } // namespace Trilinos
#endif
 
 
#ifdef DEAL_II_TRILINOS_WITH_TPETRA
  namespace Trilinos
  {
    MPI_Comm
    teuchos_comm_to_mpi_comm(
      const Teuchos::RCP<const Teuchos::Comm<int>> &teuchos_comm);
 
    namespace internal
    {
#  if defined(DOXYGEN) || !DEAL_II_TRILINOS_VERSION_GTE(14, 0, 0)
      template <class T, class... Args>
      Teuchos::RCP<T>
      make_rcp(Args &&...args);
#  else
      using Teuchos::make_rcp;
#  endif // defined DOXYGEN || !DEAL_II_TRILINOS_VERSION_GTE(14, 0, 0)
    }    // namespace internal
 
 
 
    /* ------------------------- Inline functions ---------------------- */
    namespace internal
    {
#  if !DEAL_II_TRILINOS_VERSION_GTE(14, 0, 0)
      template <class T, class... Args>
      inline Teuchos::RCP<T>
      make_rcp(Args &&...args)
      {
        return Teuchos::RCP<T>(new T(std::forward<Args>(args)...));
      }
#  endif // !DEAL_II_TRILINOS_VERSION_GTE(14, 0, 0)
    }    // namespace internal
 
  }    // namespace Trilinos
#endif // DEAL_II_TRILINOS_WITH_TPETRA
 
} // namespace Utilities
 
DEAL_II_NAMESPACE_CLOSE
 
#endif