Take out call flush which is only GNU fortran

18 years ago · eca09293bb
parent 6ddc626b96
commit eca09293bb
1 changed files with 0 additions and 1 deletions
--- 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_)