+int Win::shared_query(int rank, MPI_Aint* size, int* disp_unit, void* baseptr){
+
+ if(rank!=MPI_PROC_NULL){
+ MPI_Win target_win = connected_wins_[rank];
+ *size=target_win->size_;
+ *disp_unit=target_win->disp_unit_;
+ *static_cast<void**>(baseptr)=target_win->base_;
+ }else{
+ for(int i=0; i<comm_->size();i++){
+ MPI_Win target_win = connected_wins_[i];
+ if(target_win->size_>0){
+ *size=target_win->size_;
+ *disp_unit=target_win->disp_unit_;
+ *static_cast<void**>(baseptr)=target_win->base_;
+ return MPI_SUCCESS;
+ }
+ }
+ *size=0;
+ *static_cast<void**>(baseptr)=xbt_malloc(0);
+ }
+ return MPI_SUCCESS;
+ }