void mpi_errhandler_get_ (int* comm, void* errhandler, int* ierr) ;
void mpi_errhandler_set_ (int* comm, void* errhandler, int* ierr) ;
void mpi_comm_set_errhandler_ (int* comm, void* errhandler, int* ierr) ;
+void mpi_comm_get_errhandler_ (int* comm, void* errhandler, int* ierr) ;
void mpi_type_contiguous_ (int* count, int* old_type, int* newtype, int* ierr) ;
void mpi_cancel_ (int* request, int* ierr) ;
void mpi_buffer_attach_ (void* buffer, int* size, int* ierr) ;
*ierr = MPI_Errhandler_set(get_comm(*comm), *(MPI_Errhandler*)errhandler);
}
+void mpi_comm_get_errhandler_ (int* comm, void* errhandler, int* ierr) {
+ *ierr = MPI_Errhandler_set(get_comm(*comm), (MPI_Errhandler*)errhandler);
+}
+
void mpi_type_contiguous_ (int* count, int* old_type, int* newtype, int* ierr) {
MPI_Datatype tmp;
*ierr = MPI_Type_contiguous(*count, get_datatype(*old_type), &tmp);
return PMPI_Errhandler_set(comm, errhandler);
}
+int MPI_Comm_get_errhandler(MPI_Comm comm, MPI_Errhandler* errhandler) {
+ return PMPI_Errhandler_set(comm, errhandler);
+}
+
int MPI_Type_contiguous(int count, MPI_Datatype old_type, MPI_Datatype* newtype) {
return PMPI_Type_contiguous(count, old_type, newtype);
}
NOT_YET_IMPLEMENTED
}
+int PMPI_Comm_get_errhandler(MPI_Comm comm, MPI_Errhandler* errhandler) {
+ NOT_YET_IMPLEMENTED
+}
+
int PMPI_Cancel(MPI_Request* request) {
NOT_YET_IMPLEMENTED
}