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

Modified descriptor info printout.

Browse Source
This commit is contained in:
Salvatore Filippone
2018-02-06 10:46:51 +00:00
parent 35da66299a
commit 2030ad13bf
1 changed files with 14 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_cdprt.f90
+14 -12
View File
@@ -83,16 +83,19 @@ subroutine psb_cdprt(iout,desc_p,glob,short, verbosity)
global_halo = local_halo
call psb_sum(ictxt, global_halo)
if (me == psb_root_) then
write(iout,*) ' Communication descriptor detailed info.'
write(iout,*) ' Communication descriptor details '
write(iout,*) ' Descriptor format: ',desc_p%get_fmt()
write(iout,*) ' Global descriptor data: points:',global_points,' halo:',global_halo
write(iout,*)
end if
call psb_barrier(ictxt)
do i=0, np-1
if (me == i) &
& write(iout,*) me,': Local descriptor data: points:',local_points,' halo:',local_halo
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_)
end if
call psb_barrier(ictxt)
end do
@@ -113,11 +116,6 @@ subroutine psb_cdprt(iout,desc_p,glob,short, verbosity)
call psb_barrier(ictxt)
end do
return
contains
@@ -149,9 +147,13 @@ contains
call psb_cd_v_get_list(data_,desc_p,vpnt,totxch,idxr,idxs,info)
select case(verb_)
case (1)
write(iout,*) me,' Total exchanges ',totxch,' Total sends:',idxs,' Total receives:', idxr
write(iout,*) me,': Total exchanges :',totxch
write(iout,*) me,': Total sends :',idxs
write(iout,*) me,': Total receives :', idxr
case (2)
write(iout,*) me,' Total exchanges ',totxch,' Total sends:',idxs,' Total receives:', idxr
write(iout,*) me,': Total exchanges :',totxch
write(iout,*) me,': Total sends :',idxs
write(iout,*) me,': Total receives :', idxr
if (totxch == 0) return
if (.not.associated(vpnt)) return
if (.not.allocated(vpnt%v)) return
@@ -166,7 +168,7 @@ contains
totxch = totxch+1
nerv = idx(ip+psb_n_elem_recv_)
nesd = idx(ip+nerv+psb_n_elem_send_)
write(iout,*) ' ',me,' Exchanging with:',idx(ip),' Sends:',nesd,' Receives:', nerv
write(iout,*) ' ',me,': Exchanging with:',idx(ip),' Sends:',nesd,' Receives:', nerv
idxs = idxs + nesd
idxr = idxr + nerv
ip = ip+nerv+nesd+3