1
0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-12-22 20:36:01 +01:00

Removed C interface from export

This commit is contained in:
Anthony Scemama 2020-10-25 15:25:15 +01:00
parent 959d4d1110
commit 8df6823f50
2 changed files with 11 additions and 4 deletions

View File

@ -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

View File

@ -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