From 8df6823f508333d99952c26ddbfaf9b2092e687f Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sun, 25 Oct 2020 15:25:15 +0100 Subject: [PATCH] Removed C interface from export --- src/qmckl_ao.org | 11 ++++++++--- src/qmckl_distance.org | 4 +++- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/src/qmckl_ao.org b/src/qmckl_ao.org index f080e77..96d1677 100644 --- a/src/qmckl_ao.org +++ b/src/qmckl_ao.org @@ -111,8 +111,10 @@ integer function qmckl_ao_powers_f(context, n, X, LMAX, P, ldp) result(info) end do end function qmckl_ao_powers_f + #+END_SRC - +*** C interface :noexport: + #+BEGIN_SRC f90 :comments link :tangle qmckl_ao.f90 integer(c_int32_t) function qmckl_ao_powers(context, n, X, LMAX, P, ldp) & bind(C) result(info) use, intrinsic :: iso_c_binding @@ -166,7 +168,8 @@ end function qmckl_ao_powers ** =qmckl_ao_polynomial_vgl= - Computes the value, gradient and Laplacian of a Polynomial. + Computes the values, gradients and Laplacians at a given point of + all polynomials with an angular momentum up to =lmax=. *** Arguments @@ -287,8 +290,10 @@ integer function qmckl_ao_polynomial_vgl_f(context, X, R, lmax, n, L, ldl, VGL, end do end function qmckl_ao_polynomial_vgl_f + #+END_SRC -! C interface +*** C interface :noexport: + #+BEGIN_SRC f90 :comments link :tangle qmckl_ao.f90 integer(c_int32_t) function qmckl_ao_polynomial_vgl(context, X, R, lmax, n, L, ldl, VGL, ldv) & bind(C) result(info) use, intrinsic :: iso_c_binding diff --git a/src/qmckl_distance.org b/src/qmckl_distance.org index 1ea2856..40ee574 100644 --- a/src/qmckl_distance.org +++ b/src/qmckl_distance.org @@ -166,8 +166,10 @@ integer function qmckl_distance_sq_f(context, m, n, A, LDA, B, LDB, C, LDC) resu end do end function qmckl_distance_sq_f + #+END_SRC -! C interface +*** C interface :noexport: + #+BEGIN_SRC f90 :comments link :tangle qmckl_distance.f90 integer(c_int32_t) function qmckl_distance_sq(context, m, n, A, LDA, B, LDB, C, LDC) & bind(C) result(info) use, intrinsic :: iso_c_binding