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(:)