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

Defined a threshold for enacting simplified exchange list build

Browse Source
This commit is contained in:
Salvatore Filippone
2020-05-21 13:54:18 +02:00
parent 2b295de9e7
commit d2f8d87204
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_crea_index.f90
+2 -3
View File
@@ -151,7 +151,7 @@ subroutine psi_i_crea_index(desc_a,index_in,index_out,nxch,nsnd,nrcv,info)
dlmax = maxval(length_dl(:))
dlavg = (sum(length_dl(:))+np-1)/np
!!$ if ((dlmax>0).and.(me==0)) write(0,*) 'Dependency list : max:',dlmax,&
!!$ & ' avg:',dlavg, ((dlmax>np/3).or.((dlavg>=np/4).and.(np>128)))
!!$ & ' avg:',dlavg, choose_sorting(dlmax,dlavg,np)
if (choose_sorting(dlmax,dlavg,np)) then
@@ -226,8 +226,7 @@ contains
integer(psb_ipk_), intent(in) :: dlmax,dlavg,np
logical :: val
val = .not.(((dlmax>(27*4)).or.((dlavg>=(27*2)).and.(np>128))))
val = .false.
val = .not.(((dlmax>(26*4)).or.((dlavg>=(26*2)).and.(np>=128))))
end function choose_sorting
end subroutine psi_i_crea_index