bar_ = new s4u::Barrier(comm_size);
}
mode_=0;
-
+ errhandler_=MPI_ERRORS_ARE_FATAL;
comm->add_rma_win(this);
comm->ref();
}
return MPI_SUCCESS;
}
+
+MPI_Errhandler Win::errhandler(){
+ return errhandler_;
+}
+
+void Win::set_errhandler(MPI_Errhandler errhandler){
+ errhandler_=errhandler;
+ if(errhandler_!= MPI_ERRHANDLER_NULL)
+ errhandler->ref();
+}
+
}
}