diff --git a/tools/lib.org b/tools/lib.org index b7c6fc5..3ec8505 100644 --- a/tools/lib.org +++ b/tools/lib.org @@ -15,7 +15,6 @@ (org-entry-get nil key t)) #+end_src - #+RESULTS: get_value ** Table of function arguments @@ -188,23 +187,6 @@ results='\n'.join(results) return results #+END_SRC - #+RESULTS: generate_c_interface - #+begin_src f90 :tangle (eval f) :comments org :exports none - integer(c_int32_t) function [] & - () & - bind(C) result(info) - - use, intrinsic :: iso_c_binding - implicit none - - - integer(c_int32_t), external :: []_f - info = []_f & - () - - end function [] - #+end_src - *** Generates a Fortran interface to the C function #+NAME: generate_f_interface @@ -256,8 +238,5 @@ results='\n'.join(results) return results #+END_SRC - #+RESULTS: generate_f_interface - #+begin_src f90 :tangle (eval fh_func) :comments org :exports none - #+end_src