From e3135949a3287a8e747543ac06d57e3cbef931a2 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 28 Feb 2007 10:46:16 +0000 Subject: [PATCH] Take out debug write. --- psb_dbjac_bld.f90 | 1 - psb_zbjac_bld.f90 | 1 - 2 files changed, 2 deletions(-) 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.)