moves sync images from do_send to do_recv

9 years ago · 309d47eaee
parent 362e0c1368
commit 309d47eaee
1 changed files with 2 additions and 2 deletions
--- 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))