From f0d82cd88bc776a34a304cf97788c2d28979dde6 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 5 Feb 2018 14:30:10 +0000 Subject: [PATCH] Add flush statements. --- base/tools/psb_cdprt.f90 | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/base/tools/psb_cdprt.f90 b/base/tools/psb_cdprt.f90 index 05f88050..ccbfb573 100644 --- a/base/tools/psb_cdprt.f90 +++ b/base/tools/psb_cdprt.f90 @@ -90,9 +90,11 @@ subroutine psb_cdprt(iout,desc_p,glob,short, verbosity) end if call psb_barrier(ictxt) do i=0, np-1 - if (me == i) & - & write(iout,*) me,': Local descriptor data: points:',local_points,' halo:',local_halo - + if (me == i) then + write(iout,*) me,': Local descriptor data: points:',local_points,' halo:',local_halo + flush(iout) + end if + call psb_barrier(ictxt) end do @@ -175,7 +177,7 @@ contains case default ! Do nothing end select - + flush(iout) end subroutine print_my_xchg end subroutine psb_cdprt