From 65974c50aae518b99444ce4d89e1c5008162f8b1 Mon Sep 17 00:00:00 2001 From: Francois Coppens Date: Tue, 26 Oct 2021 14:55:26 +0200 Subject: [PATCH] Added determinant to Fortran interface --- org/qmckl_sherman_morrison_woodbury.org | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/org/qmckl_sherman_morrison_woodbury.org b/org/qmckl_sherman_morrison_woodbury.org index 9b4de48..8d7d753 100644 --- a/org/qmckl_sherman_morrison_woodbury.org +++ b/org/qmckl_sherman_morrison_woodbury.org @@ -1019,7 +1019,7 @@ qmckl_exit_code qmckl_sherman_morrison_smw32s(const qmckl_context context, #+begin_src f90 :tangle (eval fh_func) :comments org :exports none interface integer(c_int32_t) function qmckl_sherman_morrison_smw32s & - (context, Dim, N_updates, Updates, Updates_index, breakdown, Slater_inv) & + (context, Dim, N_updates, Updates, Updates_index, breakdown, Slater_inv, determinant) & bind(C) use, intrinsic :: iso_c_binding import @@ -1032,6 +1032,7 @@ qmckl_exit_code qmckl_sherman_morrison_smw32s(const qmckl_context context, integer (c_int64_t) , intent(in) :: Updates_index(N_updates) real (c_double ) , intent(in) , value :: breakdown real (c_double ) , intent(inout) :: Slater_inv(Dim*Dim) + real (c_double ) , intent(inout) :: determinant end function qmckl_sherman_morrison_smw32s end interface