Take out debug write.

20 years ago · e3135949a3
parent 6d85387748
commit e3135949a3
2 changed files with 0 additions and 2 deletions
--- a/psb_dbjac_bld.f90
+++ b/psb_dbjac_bld.f90
@ -396,7 +396,6 @@ subroutine psb_dbjac_bld(a,desc_a,p,upd,info)
        !------------------------------------------------------------------
        ! Split AC=M+N  N off-diagonal part
        ! Output in COO format. 
-        write(0,*) size(p%av),ap_nd_
        call psb_sp_clip(atmp,p%av(ap_nd_),info,&
             & jmin=atmp%m+1,rscale=.false.,cscale=.false.)

--- a/psb_zbjac_bld.f90
+++ b/psb_zbjac_bld.f90
@ -397,7 +397,6 @@ subroutine psb_zbjac_bld(a,desc_a,p,upd,info)
        !------------------------------------------------------------------
        ! Split AC=M+N  N off-diagonal part
        ! Output in COO format. 
-        write(0,*) size(p%av),ap_nd_
        call psb_sp_clip(atmp,p%av(ap_nd_),info,&
             & jmin=atmp%m+1,rscale=.false.,cscale=.false.)