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

Avoid divide by zero for desc printout.

Browse Source
This commit is contained in:
Salvatore Filippone
2018-05-30 14:42:05 +01:00
parent 64fdf563fc
commit ee6992e938
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_cdprt.f90
+5 -1
View File
@@ -93,7 +93,11 @@ subroutine psb_cdprt(iout,desc_p,glob,short, verbosity)
if (me == i) then
write(iout,*) me,': Local descriptor data: points:',local_points,&
& ' halo:',local_halo
write(iout,*) me,': Volume to surface ratio:',real(local_points,psb_dpk_)/real(local_halo,psb_dpk_)
if (local_halo>0) then
write(iout,*) me,': Volume to surface ratio:',real(local_points,psb_dpk_)/real(local_halo,psb_dpk_)
else
write(iout,*) me,': Volume to surface ratio:',0.0_psb_dpk_
end if
end if
call psb_barrier(ictxt)
end do