add one binding

diff --git a/src/smpi/private.h b/src/smpi/private.h
index 0a63808..864cb33 100644 (file)
--- a/src/smpi/private.h
+++ b/src/smpi/private.h
@@ -458,6 +458,7 @@ void mpi_errhandler_free_ (void* errhandler, int* ierr) ;
 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_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) ;
 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) ;

diff --git a/src/smpi/smpi_f77.c b/src/smpi/smpi_f77.c
index dbd1895..61d4b46 100644 (file)
--- a/src/smpi/smpi_f77.c
+++ b/src/smpi/smpi_f77.c
@@ -1117,6 +1117,10 @@ void mpi_comm_set_errhandler_ (int* comm, void* errhandler, int* ierr) {
  *ierr = MPI_Errhandler_set(get_comm(*comm), *(MPI_Errhandler*)errhandler);
 }
 
  *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);
 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);

diff --git a/src/smpi/smpi_mpi.c b/src/smpi/smpi_mpi.c
index c3dd85e..433668d 100644 (file)
--- a/src/smpi/smpi_mpi.c
+++ b/src/smpi/smpi_mpi.c
@@ -615,6 +615,10 @@ int MPI_Comm_set_errhandler(MPI_Comm comm, MPI_Errhandler errhandler) {
   return PMPI_Errhandler_set(comm, errhandler);
 }
 
   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);
 }
 int MPI_Type_contiguous(int count, MPI_Datatype old_type, MPI_Datatype* newtype) {
   return PMPI_Type_contiguous(count, old_type, newtype);
 }

diff --git a/src/smpi/smpi_pmpi.c b/src/smpi/smpi_pmpi.c
index 59083e6..345e128 100644 (file)
--- a/src/smpi/smpi_pmpi.c
+++ b/src/smpi/smpi_pmpi.c
@@ -2563,6 +2563,10 @@ int PMPI_Comm_set_errhandler(MPI_Comm comm, MPI_Errhandler errhandler) {
    NOT_YET_IMPLEMENTED
 }
 
    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
 }
 int PMPI_Cancel(MPI_Request* request) {
    NOT_YET_IMPLEMENTED
 }