fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 03:42:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3-trunk:

Browse Source 
mitigating the psb/rsb module verbosity.
This commit is contained in:
Michele Martone
2011-04-19 17:51:31 +00:00
parent 1240acd3e6
commit 1ccffbfc31
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
opt/psb_d_rsb_mat_mod.F90
+2 -2
View File
@@ -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