diff --git a/org/qmckl_numprec.org b/org/qmckl_numprec.org index 3b73dc3..7c5f26f 100644 --- a/org/qmckl_numprec.org +++ b/org/qmckl_numprec.org @@ -250,19 +250,19 @@ qmckl_exit_code qmckl_set_numprec_range(const qmckl_context context, const int r # Fortran interface #+begin_src f90 :tangle (eval fh_func) 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 import integer (qmckl_context), intent(in), value :: context integer (c_int32_t), intent(in), value :: range - end function qmckl_numprec_set_range + end function qmckl_set_numprec_range end interface #+end_src ~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 -int32_t qmckl_get_numprec_get_range(const qmckl_context context); +int32_t qmckl_get_numprec_range(const qmckl_context context); #+end_src # Source