Server : Apache/2.4.41 (Ubuntu) System : Linux absol.cf 5.4.0-198-generic #218-Ubuntu SMP Fri Sep 27 20:18:53 UTC 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.33 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, Directory :  /etc/alternatives/mpi/openmpi/ompi/mpi/cxx/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

// -*- c++ -*-
//
// Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
//                         University Research and Technology
//                         Corporation.  All rights reserved.
// Copyright (c) 2004-2005 The University of Tennessee and The University
//                         of Tennessee Research Foundation.  All rights
//                         reserved.
// Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
//                         University of Stuttgart.  All rights reserved.
// Copyright (c) 2004-2005 The Regents of the University of California.
//                         All rights reserved.
// Copyright (c) 2006      Cisco Systems, Inc.  All rights reserved.
// $COPYRIGHT$
//
// Additional copyrights may follow
//
// $HEADER$
//

//
// Point-to-Point Communication
//

inline int
MPI::Status::Get_count(const MPI::Datatype& datatype) const
{
  int count;
  (void)MPI_Get_count(const_cast<MPI_Status*>(&mpi_status), datatype, &count);
  return count;
}

inline bool
MPI::Status::Is_cancelled() const
{
  int t;
  (void)MPI_Test_cancelled(const_cast<MPI_Status*>(&mpi_status), &t);
  return OPAL_INT_TO_BOOL(t);
}

inline int
MPI::Status::Get_elements(const MPI::Datatype& datatype) const
{
  int count;
  (void)MPI_Get_elements(const_cast<MPI_Status*>(&mpi_status), datatype, &count);
  return count;
}

//
// Status Access
//
inline int
MPI::Status::Get_source() const
{
  int source;
  source = mpi_status.MPI_SOURCE;
  return source;
}

inline void
MPI::Status::Set_source(int source)
{
  mpi_status.MPI_SOURCE = source;
}

inline int
MPI::Status::Get_tag() const
{
  int tag;
  tag = mpi_status.MPI_TAG;
  return tag;
}

inline void
MPI::Status::Set_tag(int tag)
{
  mpi_status.MPI_TAG = tag;
}

inline int
MPI::Status::Get_error() const
{
  int error;
  error = mpi_status.MPI_ERROR;
  return error;
}

inline void
MPI::Status::Set_error(int error)
{
  mpi_status.MPI_ERROR = error;
}

inline void
MPI::Status::Set_elements(const MPI::Datatype& datatype, int count)
{
    MPI_Status_set_elements(&mpi_status, datatype, count);
}

inline void
MPI::Status::Set_cancelled(bool flag)
{
    MPI_Status_set_cancelled(&mpi_status, (int) flag);
}