From eca09293bbf8d746845abad68d284f02e46573e4 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 16 Feb 2007 13:18:31 +0000 Subject: [PATCH] Take out call flush which is only GNU fortran --- psb_dasmatbld.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/psb_dasmatbld.f90 b/psb_dasmatbld.f90 index 63c1a38e..0fafcf68 100644 --- a/psb_dasmatbld.f90 +++ b/psb_dasmatbld.f90 @@ -192,7 +192,6 @@ Subroutine psb_dasmatbld(ptype,novr,a,blk,desc_data,upd,desc_p,info,outfmt) t2 = psb_wtime() !!$ open(60+me) !!$ call psb_cdprt(60+me,desc_p,short=.false.) -!!$ call flush(60+me) !!$ close(60+me) !!$ call psb_barrier(ictxt) if (debug) write(0,*) 'Before sphalo ',blk%fida,blk%m,psb_nnz_,blk%infoa(psb_nnz_)