TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-07-11 22:04:04 +02:00
Code Issues Projects Releases Wiki Activity

Removed RETURN blocks from lib to avoid dead code.

Browse Source
This commit is contained in:
v1j4y 2021-09-14 12:05:10 +02:00
parent ec9d5d23a2
commit eeaee39acd
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tools/lib.org
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