TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-12-22 20:36:01 +01:00
Code Issues Projects Releases Wiki Activity

Added Fortran interfaces

Browse Source
This commit is contained in:
Anthony Scemama 2021-07-19 09:26:05 +02:00
parent cdf92e2464
commit c8cad59922
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
org/qmckl_ao.org
View File

@ -1388,6 +1388,36 @@ interface
integer (c_int64_t) , intent(in) , value :: context integer (c_int64_t) , intent(in) , value :: context
real (c_double) , intent(in) :: prim_factor(*) real (c_double) , intent(in) :: prim_factor(*)
end function end function
end interface
interface
integer(c_int32_t) function qmckl_set_ao_basis_ao_num(context, num) &
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 :: num
end function
end interface
interface
integer(c_int32_t) function qmckl_set_ao_basis_ao_factor(context,ao_factor) &
bind(C)
use, intrinsic :: iso_c_binding
import
implicit none
integer (c_int64_t) , intent(in) , value :: context
real (c_double) , intent(in) :: ao_factor(*)
end function
end interface
interface
integer(c_int32_t) function qmckl_set_ao_basis_cartesian(context,cartesian) &
bind(C)
use, intrinsic :: iso_c_binding
import
implicit none
integer (c_int64_t) , intent(in) , value :: context
logical (c_bool) , intent(in) , value :: cartesian
end function
end interface end interface
#+end_src #+end_src