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))
|
||||
#+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
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user