mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-08-19 03:41:44 +02: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:
commit
7664c74ee1
@ -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