call mpi_comm_group( comm, group1, ierr )
call mpi_win_get_group( win, group2, ierr )
call mpi_group_compare( group1, group2, result, ierr )
call mpi_comm_group( comm, group1, ierr )
call mpi_win_get_group( win, group2, ierr )
call mpi_group_compare( group1, group2, result, ierr )