From e3649e1cb6ebe7ae9ac0ab5ae2db22718c515a98 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Wed, 17 Jun 2020 11:54:43 +0200
Subject: [PATCH] Do not use sorting on dependency lists unless dlavg<16

---
 base/internals/psi_crea_index.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/base/internals/psi_crea_index.f90 b/base/internals/psi_crea_index.f90
index 2b0a8321..69b58ac1 100644
--- a/base/internals/psi_crea_index.f90
+++ b/base/internals/psi_crea_index.f90
@@ -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