psblas:

internals/psi_desc_index.F90

Cleaned up some warning messages.

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