Fix communication in GPW-MP2 method

cp2k · Jul 14, 2021 · 69b8c2e · 69b8c2e
1 parent 5eaf864
commit 69b8c2e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/mp2_gpw_method.F b/src/mp2_gpw_method.F
@@ -548,7 +548,7 @@ SUBROUTINE mp2_gpw_compute(Emp2, Emp2_Cou, Emp2_EX, qs_env, para_env, para_env_s
                ALLOCATE (BIb_EX(my_B_size, my_I_batch_size, size_EX))
                BIb_EX = 0.0_dp
 
-               CALL get_group_dist(gd_exchange, proc_receive, EX_start_send, EX_end_send, size_EX_send)
+               CALL get_group_dist(gd_exchange, proc_send, EX_start_send, EX_end_send, size_EX_send)
 
                ALLOCATE (BIb_send(my_B_size, size_EX_send, my_I_batch_size))
                BIb_send(1:my_B_size, 1:size_EX_send, 1:my_I_batch_size) = &