From 348a88de3b720582e16bc58304b8ff112b17c15e Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 31 Jan 2008 16:24:42 +0000 Subject: [PATCH] psblas: internals/psi_desc_index.F90 Cleaned up some warning messages. --- base/internals/psi_desc_index.F90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/base/internals/psi_desc_index.F90 b/base/internals/psi_desc_index.F90 index 4f1cf68c..7c519864 100644 --- a/base/internals/psi_desc_index.F90 +++ b/base/internals/psi_desc_index.F90 @@ -204,7 +204,8 @@ subroutine psi_desc_index(desc,index_in,dep_list,& nrcv = iszs if ((iszs /= idxs).or.(iszr /= idxr)) then - write(0,*) 'strange results?', iszs,idxs,iszr,idxr + write(0,*) me, trim(name),': Warning: strange results?', & + & iszs,idxs,iszr,idxr end if if (debug_level >= psb_debug_inner_) then write(debug_unit,*) me,' ',trim(name),': computed sizes ',iszr,iszs @@ -243,7 +244,7 @@ subroutine psi_desc_index(desc,index_in,dep_list,& i = 1 do if (i > ihinsz) then - write(0,*) me,' did not find index_in end??? ',i,ihinsz +!!$ write(0,*) me,' did not find index_in end??? ',i,ihinsz exit end if if (index_in(i) == -1) exit