From db9bb6ca778c1d04999d4520d12bae9fd220524c Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Mon, 23 Nov 2020 10:09:37 +0100
Subject: [PATCH] Fix problem in logical recv

---
 base/modules/penv/psi_p2p_mod.F90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/base/modules/penv/psi_p2p_mod.F90 b/base/modules/penv/psi_p2p_mod.F90
index 84438f96..f7262378 100644
--- a/base/modules/penv/psi_p2p_mod.F90
+++ b/base/modules/penv/psi_p2p_mod.F90
@@ -216,10 +216,11 @@ contains
     logical, intent(out)  :: dat(:)
     integer(psb_mpk_), intent(in)  :: src
     integer(psb_mpk_) :: info 
-    integer(psb_mpk_) :: status(mpi_status_size)
+    integer(psb_mpk_) :: status(mpi_status_size), icomm
 #if defined(SERIAL_MPI) 
 #else
-    call mpi_recv(dat,size(dat),mpi_logical,src,psb_logical_tag,ctxt,status,info)
+    icomm = psb_get_mpi_comm(ctxt)
+    call mpi_recv(dat,size(dat),mpi_logical,src,psb_logical_tag,icomm,status,info)
     call psb_test_nodes(psb_mesg_queue)
 #endif