Take out call flush which is only GNU fortran

2026-10-06 22:55:12 +00:00 · 2007-02-16 13:18:31 +00:00
parent 6ddc626b96
commit eca09293bb
1 changed files with 0 additions and 1 deletions
@@ -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_)