Fix dswapdata

9 years ago · d629e58606
parent 309d47eaee
commit d629e58606
1 changed files with 1 additions and 0 deletions
--- 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(:)