- if (intra_rank == 0) {
-
- mask = 1;
- while (mask < inter_comm_size) {
- if ((mask & inter_rank) == 0) {
- src = (inter_rank | mask) * num_core;
- if (src < comm_size) {
- smpi_mpi_recv(tmp_buf, count, dtype, src, tag, comm, &status);
- (* uop) (tmp_buf, recv_buf, &count, &dtype);
+// if (intra_rank == 0) {
+//
+// mask = 1;
+// while (mask < inter_comm_size) {
+// if ((mask & inter_rank) == 0) {
+// src = (inter_rank | mask) * num_core;
+// if (src < comm_size) {
+// smpi_mpi_recv(tmp_buf, count, dtype, src, tag, comm, &status);
+// (* uop) (tmp_buf, recv_buf, &count, &dtype);