From f005f587e73be830b69429bc2d48f5d4bc84344a Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Fri, 25 Jun 2021 17:37:45 +0200
Subject: [PATCH] Error in FOrtran interface fixed

---
 org/qmckl_ao.org | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/org/qmckl_ao.org b/org/qmckl_ao.org
index 4e7f97c..3fe9afd 100644
--- a/org/qmckl_ao.org
+++ b/org/qmckl_ao.org
@@ -1087,7 +1087,7 @@ interface
   end function
 end interface
 interface
-  integer(c_int32_t) function qmckl_set_ao_basis_nucleus_shell_ang_mom(context,shell_ang_mom) &
+  integer(c_int32_t) function qmckl_set_ao_basis_shell_ang_mom(context,shell_ang_mom) &
     bind(C)
     use, intrinsic :: iso_c_binding
     import
@@ -1097,7 +1097,7 @@ interface
   end function
 end interface
 interface
-  integer(c_int32_t) function qmckl_set_ao_basis_nucleus_shell_prim_num(context,shell_prim_num) &
+  integer(c_int32_t) function qmckl_set_ao_basis_shell_prim_num(context,shell_prim_num) &
     bind(C)
     use, intrinsic :: iso_c_binding
     import
@@ -1107,7 +1107,7 @@ interface
   end function
 end interface
 interface
-  integer(c_int32_t) function qmckl_set_ao_basis_nucleus_shell_prim_index(context,shell_prim_index) &
+  integer(c_int32_t) function qmckl_set_ao_basis_shell_prim_index(context,shell_prim_index) &
     bind(C)
     use, intrinsic :: iso_c_binding
     import
@@ -1117,7 +1117,7 @@ interface
   end function
 end interface
 interface
-  integer(c_int32_t) function qmckl_set_ao_basis_nucleus_shell_factor(context,shell_factor) &
+  integer(c_int32_t) function qmckl_set_ao_basis_shell_factor(context,shell_factor) &
     bind(C)
     use, intrinsic :: iso_c_binding
     import
@@ -1127,7 +1127,7 @@ interface
   end function
 end interface
 interface
-  integer(c_int32_t) function qmckl_set_ao_basis_nucleus_exponent(context,exponent) &
+  integer(c_int32_t) function qmckl_set_ao_basis_exponent(context,exponent) &
     bind(C)
     use, intrinsic :: iso_c_binding
     import
@@ -1137,7 +1137,7 @@ interface
   end function
 end interface
 interface
-  integer(c_int32_t) function qmckl_set_ao_basis_nucleus_coefficient(context,coefficient) &
+  integer(c_int32_t) function qmckl_set_ao_basis_coefficient(context,coefficient) &
     bind(C)
     use, intrinsic :: iso_c_binding
     import
@@ -1147,7 +1147,7 @@ interface
   end function
 end interface
 interface
-  integer(c_int32_t) function qmckl_set_ao_basis_nucleus_prim_factor(context,prim_factor) &
+  integer(c_int32_t) function qmckl_set_ao_basis_prim_factor(context,prim_factor) &
     bind(C)
     use, intrinsic :: iso_c_binding
     import