diff --git a/psb_dbjac_bld.f90 b/psb_dbjac_bld.f90 index 0edc2951..c560ad57 100644 --- 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.) diff --git a/psb_zbjac_bld.f90 b/psb_zbjac_bld.f90 index c164d02c..0fbf7775 100644 --- 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.)