int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, -1, __FUNCTION__, nullptr);
retval = win->lock(lock_type,rank,assert);
int myrank = smpi_process()->index();
TRACE_smpi_collective_in(myrank, -1, __FUNCTION__, nullptr);
retval = win->lock(lock_type,rank,assert);