From 1ccffbfc31dceab7765b1650375890d742d183ac Mon Sep 17 00:00:00 2001 From: Michele Martone Date: Tue, 19 Apr 2011 17:51:31 +0000 Subject: [PATCH] psblas3-trunk: mitigating the psb/rsb module verbosity. --- opt/psb_d_rsb_mat_mod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/opt/psb_d_rsb_mat_mod.F90 b/opt/psb_d_rsb_mat_mod.F90 index 30ba5931..cbf44f4b 100644 --- a/opt/psb_d_rsb_mat_mod.F90 +++ b/opt/psb_d_rsb_mat_mod.F90 @@ -16,7 +16,7 @@ module psb_d_rsb_mat_mod #ifdef HAVE_LIBRSB use iso_c_binding #endif -#if 1 +#if 0 #define PSBRSB_DEBUG(MSG) write(*,*) __FILE__,':',__LINE__,':',MSG #define PSBRSB_ERROR(MSG) write(*,*) __FILE__,':',__LINE__,':'," ERROR: ",MSG #define PSBRSB_WARNING(MSG) write(*,*) __FILE__,':',__LINE__,':'," WARNING: ",MSG @@ -710,7 +710,7 @@ subroutine psb_d_rsb_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (nz /= nzrsb) then info=c_psbrsb_err_ PSBRSB_ERROR("Mismatch in output from rsb_getblk") - write(*,*) 'Mismatch in output from rsb_getblk: ',nz,nzrsb + !write(*,*) 'Mismatch in output from rsb_getblk: ',nz,nzrsb end if if (rscale_) then