From c8cad599221da329e748b85efd1f55eff9d03fd5 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Mon, 19 Jul 2021 09:26:05 +0200
Subject: [PATCH] Added Fortran interfaces

---
 org/qmckl_ao.org | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/org/qmckl_ao.org b/org/qmckl_ao.org
index e9de5ec..647be4a 100644
--- a/org/qmckl_ao.org
+++ b/org/qmckl_ao.org
@@ -1388,6 +1388,36 @@ interface
     integer (c_int64_t) , intent(in)  , value :: context
     real    (c_double)  , intent(in)          :: prim_factor(*)
   end function
+end interface
+interface
+  integer(c_int32_t) function qmckl_set_ao_basis_ao_num(context, num) &
+    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 :: num
+  end function
+end interface
+interface
+  integer(c_int32_t) function qmckl_set_ao_basis_ao_factor(context,ao_factor) &
+    bind(C)
+    use, intrinsic :: iso_c_binding
+    import
+    implicit none
+    integer (c_int64_t) , intent(in)  , value :: context
+    real    (c_double)  , intent(in)          :: ao_factor(*)
+  end function
+end interface
+interface
+  integer(c_int32_t) function qmckl_set_ao_basis_cartesian(context,cartesian) &
+    bind(C)
+    use, intrinsic :: iso_c_binding
+    import
+    implicit none
+    integer (c_int64_t) , intent(in)  , value :: context
+    logical (c_bool)    , intent(in)  , value :: cartesian
+  end function
 end interface
    #+end_src