mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-07-12 06:13:58 +02:00
Removed RETURN blocks from lib to avoid dead code.
This commit is contained in:
parent
ec9d5d23a2
commit
eeaee39acd
|
@ -15,7 +15,6 @@
|
||||||
(org-entry-get nil key t))
|
(org-entry-get nil key t))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
#+RESULTS: get_value
|
|
||||||
|
|
||||||
** Table of function arguments
|
** Table of function arguments
|
||||||
|
|
||||||
|
@ -188,23 +187,6 @@ results='\n'.join(results)
|
||||||
return results
|
return results
|
||||||
#+END_SRC
|
#+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
|
*** Generates a Fortran interface to the C function
|
||||||
|
|
||||||
#+NAME: generate_f_interface
|
#+NAME: generate_f_interface
|
||||||
|
@ -256,8 +238,5 @@ results='\n'.join(results)
|
||||||
return results
|
return results
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
#+RESULTS: generate_f_interface
|
|
||||||
#+begin_src f90 :tangle (eval fh_func) :comments org :exports none
|
|
||||||
#+end_src
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user