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

psblas:

Browse Source 
internals/psi_desc_index.F90

Cleaned up some warning messages.
This commit is contained in:
Salvatore Filippone
2008-01-31 16:24:42 +00:00
parent 33f439b0f8
commit 348a88de3b
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_desc_index.F90
+3 -2
View File
@@ -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