diff --git a/org/qmckl_electron.org b/org/qmckl_electron.org
index b4b6624..6587f4a 100644
--- a/org/qmckl_electron.org
+++ b/org/qmckl_electron.org
@@ -860,6 +860,20 @@ for (int64_t i=0 ; i<3*elec_num ; ++i) {
 qmckl_exit_code qmckl_get_electron_ee_distance(qmckl_context context, double* const distance);
     #+end_src
 
+    #+begin_src f90 :tangle (eval fh_func) :comments org :exports none
+interface
+  integer(c_int32_t) function qmckl_get_electron_ee_distance(context, distance) &
+    bind(C)
+    use, intrinsic :: iso_c_binding
+    import
+    implicit none
+    integer (c_int64_t) , intent(in)  , value :: context
+    real    (c_double ) , intent(out)         :: distance(*)
+  end function
+end interface
+    #+end_src
+
+
     #+begin_src c :comments org :tangle (eval c) :noweb yes  :exports none
 qmckl_exit_code qmckl_get_electron_ee_distance(qmckl_context context, double* const distance)
 {
@@ -1561,6 +1575,19 @@ rc = qmckl_get_electron_ee_distance_rescaled_deriv_e(context, ee_distance_rescal
 qmckl_exit_code qmckl_get_electron_en_distance(qmckl_context context, double* distance);
     #+end_src
 
+    #+begin_src f90 :tangle (eval fh_func) :comments org :exports none
+interface
+  integer(c_int32_t) function qmckl_get_electron_en_distance(context, distance) &
+    bind(C)
+    use, intrinsic :: iso_c_binding
+    import
+    implicit none
+    integer (c_int64_t) , intent(in)  , value :: context
+    real    (c_double ) , intent(out)         :: distance(*)
+  end function
+end interface
+    #+end_src
+
     #+begin_src c :comments org :tangle (eval c) :noweb yes  :exports none
 qmckl_exit_code qmckl_get_electron_en_distance(qmckl_context context, double* distance)
 {