4ab17f019b
This commit was SVN r6269.
91 строка
1.7 KiB
C++
91 строка
1.7 KiB
C++
// -*- c++ -*-
|
|
//
|
|
// Copyright (c) 2004-2005 The Trustees of Indiana University.
|
|
// All rights reserved.
|
|
// Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
|
|
// 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$
|
|
//
|
|
// Additional copyrights may follow
|
|
//
|
|
// $HEADER$
|
|
//
|
|
|
|
//
|
|
// Point-to-Point Communication
|
|
//
|
|
|
|
inline int
|
|
MPI::Status::Get_count(const MPI::Datatype& datatype) const
|
|
{
|
|
int count;
|
|
//(MPI_Status*) is to cast away the const
|
|
(void)MPI_Get_count((MPI_Status*)&mpi_status, datatype, &count);
|
|
return count;
|
|
}
|
|
|
|
inline bool
|
|
MPI::Status::Is_cancelled() const
|
|
{
|
|
int t;
|
|
(void)MPI_Test_cancelled((MPI_Status*)&mpi_status, &t);
|
|
return (bool) t;
|
|
}
|
|
|
|
inline int
|
|
MPI::Status::Get_elements(const MPI::Datatype& datatype) const
|
|
{
|
|
int count;
|
|
(void)MPI_Get_elements((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;
|
|
}
|