From 8e2674a3b2f9f8062555ed8228848c360b7889bd Mon Sep 17 00:00:00 2001
From: Francois Coppens <francois.coppens@irsamc.ups-tlse.fr>
Date: Thu, 23 Feb 2023 17:16:55 +0100
Subject: [PATCH] reorder

---
 org/qmckl_sherman_morrison_woodbury.org | 52 ++++++++++++-------------
 1 file changed, 26 insertions(+), 26 deletions(-)

diff --git a/org/qmckl_sherman_morrison_woodbury.org b/org/qmckl_sherman_morrison_woodbury.org
index c2d1127..831abda 100644
--- a/org/qmckl_sherman_morrison_woodbury.org
+++ b/org/qmckl_sherman_morrison_woodbury.org
@@ -616,32 +616,6 @@ qmckl_exit_code qmckl_sm_naive(const qmckl_context context,
    :FRetType: qmckl_exit_code
    :END:
 
-#+CALL: generate_f_interface(table=qmckl_sm_naive_args,rettyp=get_value("FRetType"),fname="qmckl_sm_naive_hpc")
-
-#+RESULTS:
-#+begin_src f90 :tangle (eval fh_func) :comments org :exports none
-interface
-  integer(c_int32_t) function qmckl_sm_naive_hpc &
-      (context, LDS, Dim, N_updates, Updates, Updates_index, breakdown, Slater_inv, determinant) &
-      bind(C)
-    use, intrinsic :: iso_c_binding
-    import
-    implicit none
-
-    integer (c_int64_t) , intent(in)  , value :: context
-    integer (c_int64_t) , intent(in)  , value :: LDS
-    integer (c_int64_t) , intent(in)  , value :: Dim
-    integer (c_int64_t) , intent(in)  , value :: N_updates
-    real    (c_double ) , intent(in)          :: Updates(N_updates*LDS)
-    integer (c_int64_t) , intent(in)          :: Updates_index(N_updates)
-    real    (c_double ) , intent(in)  , value :: breakdown
-    real    (c_double ) , intent(inout)        :: Slater_inv(Dim*LDS)
-    real    (c_double ) , intent(inout)        :: determinant
-
-  end function qmckl_sm_naive_hpc
-end interface
-#+end_src
-
 #+CALL: generate_f_interface(table=qmckl_sm_naive_args,rettyp=get_value("FRetType"),fname=get_value("Name"))
 
 #+RESULTS:
@@ -668,6 +642,32 @@ interface
 end interface
 #+end_src
 
+#+CALL: generate_f_interface(table=qmckl_sm_naive_args,rettyp=get_value("FRetType"),fname="qmckl_sm_naive_hpc")
+
+#+RESULTS:
+#+begin_src f90 :tangle (eval fh_func) :comments org :exports none
+interface
+  integer(c_int32_t) function qmckl_sm_naive_hpc &
+      (context, LDS, Dim, N_updates, Updates, Updates_index, breakdown, Slater_inv, determinant) &
+      bind(C)
+    use, intrinsic :: iso_c_binding
+    import
+    implicit none
+
+    integer (c_int64_t) , intent(in)  , value :: context
+    integer (c_int64_t) , intent(in)  , value :: LDS
+    integer (c_int64_t) , intent(in)  , value :: Dim
+    integer (c_int64_t) , intent(in)  , value :: N_updates
+    real    (c_double ) , intent(in)          :: Updates(N_updates*LDS)
+    integer (c_int64_t) , intent(in)          :: Updates_index(N_updates)
+    real    (c_double ) , intent(in)  , value :: breakdown
+    real    (c_double ) , intent(inout)        :: Slater_inv(Dim*LDS)
+    real    (c_double ) , intent(inout)        :: determinant
+
+  end function qmckl_sm_naive_hpc
+end interface
+#+end_src
+
 #+CALL: generate_f_interface(table=qmckl_sm_naive_args,rettyp=get_value("FRetType"),fname="qmckl_sm_naive_doc")
 
 #+RESULTS: