From 309d47eaee1454554169f1a4e5d38342eff567d1 Mon Sep 17 00:00:00 2001 From: Ambra91 Date: Fri, 28 Jul 2017 13:25:45 +0100 Subject: [PATCH] moves sync images from do_send to do_recv --- base/comm/internals/psi_dswapdata.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/base/comm/internals/psi_dswapdata.F90 b/base/comm/internals/psi_dswapdata.F90 index 3826ffa1a..10b1dae2e 100644 --- a/base/comm/internals/psi_dswapdata.F90 +++ b/base/comm/internals/psi_dswapdata.F90 @@ -887,8 +887,6 @@ subroutine psi_dswap_xchg_vect(iictxt,iicomm,flag,beta,y,xchg,info) img = xchg%prcs_xch(ip) + 1 img_list(ip)=img end do - sync images(img_list) - if (allocated(img_list)) deallocate(img_list) endif endif if (do_recv) then @@ -907,6 +905,8 @@ subroutine psi_dswap_xchg_vect(iictxt,iicomm,flag,beta,y,xchg,info) event post(clear[img]) end do else + sync images(img_list) + if (allocated(img_list)) deallocate(img_list) do ip = 1, nxch img = xchg%prcs_xch(ip) + 1 !event wait(ufg(img))