TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-11-03 20:54:09 +01:00
Code Issues Projects Releases Wiki Activity

Fix typos in function names

Browse Source
This commit is contained in:
q-posev 2022-05-02 16:37:15 +02:00
parent 5c5c13f5b3
commit 4367d03353
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
org/qmckl_numprec.org
View File

@ -250,19 +250,19 @@ qmckl_exit_code qmckl_set_numprec_range(const qmckl_context context, const int r
# Fortran interface # Fortran interface
#+begin_src f90 :tangle (eval fh_func) #+begin_src f90 :tangle (eval fh_func)
interface interface
integer (qmckl_exit_code) function qmckl_numprec_set_range(context, range) bind(C) integer (qmckl_exit_code) function qmckl_set_numprec_range(context, range) bind(C)
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
import import
integer (qmckl_context), intent(in), value :: context integer (qmckl_context), intent(in), value :: context
integer (c_int32_t), intent(in), value :: range integer (c_int32_t), intent(in), value :: range
end function qmckl_numprec_set_range end function qmckl_set_numprec_range
end interface end interface
#+end_src #+end_src
~qmckl_get_numprec_range~ returns the value of the numerical range in the context. ~qmckl_get_numprec_range~ returns the value of the numerical range in the context.
#+begin_src c :comments org :tangle (eval h_func) :exports none #+begin_src c :comments org :tangle (eval h_func) :exports none
int32_t qmckl_get_numprec_get_range(const qmckl_context context); int32_t qmckl_get_numprec_range(const qmckl_context context);
#+end_src #+end_src
# Source # Source