diff --git a/base/tools/psb_cdprt.f90 b/base/tools/psb_cdprt.f90
index edd820dd..7185f520 100644
--- a/base/tools/psb_cdprt.f90
+++ b/base/tools/psb_cdprt.f90
@@ -177,7 +177,7 @@ contains
     case default
       ! Do nothing
     end select
-    
+    flush(iout)
   end subroutine print_my_xchg
 
 end subroutine psb_cdprt