mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-08-24 22:21:46 +02:00
Added Fortran interfaces
This commit is contained in:
parent
cdf92e2464
commit
c8cad59922
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user