From eeaee39acd177b2810840f6390f2f9198fefec9b Mon Sep 17 00:00:00 2001
From: v1j4y <vijay.gopal.c@gmail.com>
Date: Tue, 14 Sep 2021 12:05:10 +0200
Subject: [PATCH] Removed RETURN blocks from lib to avoid dead code.

---
 tools/lib.org | 21 ---------------------
 1 file changed, 21 deletions(-)

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