From 13c9c9f358dde75143386108e28e52f4d2db4b93 Mon Sep 17 00:00:00 2001 From: v1j4y Date: Thu, 7 Oct 2021 00:26:35 +0200 Subject: [PATCH] Added fortran interface for qmckl_invert. #41 --- org/qmckl_blas.org | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/org/qmckl_blas.org b/org/qmckl_blas.org index 04d9840..293af48 100644 --- a/org/qmckl_blas.org +++ b/org/qmckl_blas.org @@ -718,6 +718,28 @@ end end function qmckl_invert #+end_src + #+CALL: generate_f_interface(table=qmckl_invert_args,rettyp="qmckl_exit_code",fname="qmckl_invert") + + #+RESULTS: + #+begin_src f90 :tangle (eval fh_func) :comments org :exports none + interface + integer(c_int32_t) function qmckl_invert & + (context, m, n, lda, A, det_l) & + bind(C) + use, intrinsic :: iso_c_binding + import + implicit none + + integer (c_int64_t) , intent(in) , value :: context + integer (c_int64_t) , intent(in) , value :: m + integer (c_int64_t) , intent(in) , value :: n + integer (c_int64_t) , intent(in) , value :: lda + real (c_double ) , intent(inout) :: A(lda,*) + real (c_double ) , intent(inout) :: det_l + + end function qmckl_invert + end interface + #+end_src *** Test :noexport: