if(allocated_ !=0)
xbt_free(base_);
- F2C::free_f(this->c2f());
+ F2C::free_f(this->f2c_id());
cleanup_attr<Win>();
}
return rank_;
}
+MPI_Comm Win::comm() const
+{
+ return comm_;
+}
+
MPI_Aint Win::size() const
{
return size_;
}
int Win::complete(){
- if(opened_==0)
- xbt_die("Complete called on already opened MPI_Win");
+ xbt_assert(opened_ != 0, "Complete called on already opened MPI_Win");
XBT_DEBUG("Entering MPI_Win_Complete");
int i = 0;