fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix problem in logical recv

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-23 10:09:37 +01:00
parent b3bcb762c5
commit db9bb6ca77
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/penv/psi_p2p_mod.F90
+3 -2
View File
@@ -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