Replace an isendrecv/waitall sequence with the corresponding blocking…

… call
cp2k · Dec 14, 2022 · 85c589e · 85c589e
1 parent a093d8a
commit 85c589e
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/pw/realspace_grid_types.F b/src/pw/realspace_grid_types.F
@@ -27,7 +27,8 @@ MODULE realspace_grid_types
    USE mathlib,                         ONLY: det_3x3
    USE message_passing,                 ONLY: &
         mp_comm_dup, mp_comm_free, mp_comm_null, mp_comm_type, mp_environ, mp_irecv, mp_isend, &
-        mp_isendrecv, mp_max, mp_min, mp_request_null, mp_sum, mp_sync, mp_waitall, mp_waitany
+        mp_isendrecv, mp_max, mp_min, mp_request_null, mp_sendrecv, mp_sum, mp_sync, mp_waitall, &
+        mp_waitany
    USE offload_api,                     ONLY: offload_buffer_type,&
                                               offload_create_buffer,&
                                               offload_free_buffer
@@ -873,9 +874,8 @@ SUBROUTINE rs_pw_transfer_replicated(rs, pw, dir)
                END DO
             END DO
             IF (ip .EQ. np) EXIT
-            CALL mp_isendrecv(sendbuf, dest, recvbuf, source, &
-                              group, req(1), req(2), 13)
-            CALL mp_waitall(req)
+            CALL mp_sendrecv(sendbuf, dest, recvbuf, source, &
+                             group, 13)
             swapptr => sendbuf
             sendbuf => recvbuf
             recvbuf => swapptr