fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Defined a threshold for enacting simplified exchange list build

Browse Source
new-context
Salvatore Filippone 5 years ago
parent 2b295de9e7
commit d2f8d87204
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File

5
base/internals/psi_crea_index.f90
Unescape Escape 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(:)) dlmax = maxval(length_dl(:))
dlavg = (sum(length_dl(:))+np-1)/np dlavg = (sum(length_dl(:))+np-1)/np
!!$ if ((dlmax>0).and.(me==0)) write(0,*) 'Dependency list : max:',dlmax,& !!$ 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 if (choose_sorting(dlmax,dlavg,np)) then
@ -226,8 +226,7 @@ contains
integer(psb_ipk_), intent(in) :: dlmax,dlavg,np integer(psb_ipk_), intent(in) :: dlmax,dlavg,np
logical :: val logical :: val
val = .not.(((dlmax>(27*4)).or.((dlavg>=(27*2)).and.(np>128)))) val = .not.(((dlmax>(26*4)).or.((dlavg>=(26*2)).and.(np>=128))))
val = .false.
end function choose_sorting end function choose_sorting
end subroutine psi_i_crea_index end subroutine psi_i_crea_index

Write Preview
Loading…
Cancel
Save