From 0715f56eafefdc127bd1c26f2d4b712ee6949a5d Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Thu, 22 Mar 2018 00:51:34 +0100
Subject: [PATCH] Corrected ordering

---
 Basis/ContractedShellPair.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Basis/ContractedShellPair.ml b/Basis/ContractedShellPair.ml
index e9dbd4b..16392da 100644
--- a/Basis/ContractedShellPair.ml
+++ b/Basis/ContractedShellPair.ml
@@ -121,13 +121,13 @@ let cmp a b =
 *)
 let of_contracted_shell_array ?(cutoff=Constants.epsilon) basis =
   let rec loop accu = function
-  | [] -> List.rev accu
+  | [] -> accu
   | (s_a :: rest) as l ->
     let new_accu = 
       (List.map (fun s_b -> make ~cutoff s_a s_b) l) :: accu
     in loop new_accu rest
   in
-  loop [] (Array.to_list basis)
+  loop [] (List.rev (Array.to_list basis))
   |> List.concat
   |> list_some