1
0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-12-23 04:44:03 +01:00

Merge pull request #34 from v1j4y/bug_fix_tools_org

Removed RETURN blocks from lib to avoid dead code.
This commit is contained in:
vijay 2021-09-14 12:10:47 +02:00 committed by GitHub
commit 7664c74ee1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -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