mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-08-17 02:41:43 +02:00
Removed C interface from export
This commit is contained in:
parent
959d4d1110
commit
8df6823f50
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user