From 225afd19e6072b1760d55454403bd1240c7f71bd Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 19 Apr 2017 16:38:05 +0200
Subject: [PATCH] Tuning

---
 src/Utils/sort.irp.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Utils/sort.irp.f b/src/Utils/sort.irp.f
index e7b40a04..bb93d44f 100644
--- a/src/Utils/sort.irp.f
+++ b/src/Utils/sort.irp.f
@@ -206,7 +206,7 @@ BEGIN_TEMPLATE
   if (isize == n) then
     return
   endif
-  if ( isize < 64+n) then
+  if ( isize < 32+n) then
     call insertion_$Xsort(x,iorder,isize)
   else
     call heap_$Xsort(x,iorder,isize)