From 4dd397f630e0c3b9368b04fdb7d34d4a1810b1d1 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 11 Oct 2022 09:49:34 +0200
Subject: [PATCH] Test 5 in AO

---
 org/qmckl_ao.org     |  2 +-
 org/qmckl_trexio.org | 10 ++++++++--
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/org/qmckl_ao.org b/org/qmckl_ao.org
index 6187827..f9c716f 100644
--- a/org/qmckl_ao.org
+++ b/org/qmckl_ao.org
@@ -6612,7 +6612,7 @@ qmckl_compute_ao_vgl_hpc_gaussian (
 
 
         /* --- */
-        switch (8) {
+        switch (5) {
         case(8):
 
           for (int i=0 ; i<nucleus_shell_num[inucl] ; ++i) {
diff --git a/org/qmckl_trexio.org b/org/qmckl_trexio.org
index 4490957..7fe56d8 100644
--- a/org/qmckl_trexio.org
+++ b/org/qmckl_trexio.org
@@ -85,7 +85,7 @@ int main() {
 #ifdef HAVE_TREXIO
 trexio_t* qmckl_trexio_open_X(const char* file_name, qmckl_exit_code* rc)
 {
-  *rc = QMCKL_SUCCESS;
+  ,*rc = QMCKL_SUCCESS;
   trexio_t* file = NULL;
 
   file = trexio_open(file_name, 'r', TREXIO_TEXT, rc);
@@ -94,7 +94,13 @@ trexio_t* qmckl_trexio_open_X(const char* file_name, qmckl_exit_code* rc)
   file = trexio_open(file_name, 'r', TREXIO_HDF5, rc);
   if (file != NULL) return file;
 
-  *rc = QMCKL_FAILURE;
+  ,*rc = failwith QMCKL_FAILURE;
+  /* TODO
+    return qmckl_failwith( context,
+                           QMCKL_FAILURE,
+                           "trexio_read_electron_up_num",
+                           trexio_string_of_error(rcio));
+                           */
   return NULL;
 }
 #endif