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

Do not use sorting on dependency lists unless dlavg<16

Browse Source
This commit is contained in:
Salvatore Filippone
2020-06-17 11:54:43 +02:00
parent 46736f9d39
commit e3649e1cb6
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_crea_index.f90
+2
View File
@@ -189,7 +189,9 @@ contains
logical :: val
val = .not.(((dlmax>(26*4)).or.((dlavg>=(26*2)).and.(np>=128))))
val = (dlavg<16)
!val = .true.
!val = .false.
end function choose_sorting
end subroutine psi_i_crea_index