From d629e5860652c740391b45833240b41e8d6ed1fb Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 28 Jul 2017 14:49:23 +0100 Subject: [PATCH] Fix dswapdata --- base/comm/internals/psi_dswapdata.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/base/comm/internals/psi_dswapdata.F90 b/base/comm/internals/psi_dswapdata.F90 index 10b1dae2..f357abd5 100644 --- a/base/comm/internals/psi_dswapdata.F90 +++ b/base/comm/internals/psi_dswapdata.F90 @@ -735,6 +735,7 @@ subroutine psi_dswap_xchg_vect(iictxt,iicomm,flag,beta,y,xchg,info) integer, save :: last_clear_count = 0 logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv + logical, parameter :: do_events=.false. integer(psb_ipk_) :: ierr(5) character(len=20) :: name integer, allocatable :: img_list(:)