mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2025-01-03 10:06:09 +01:00
Fixed Fortran interface of Jastrow
This commit is contained in:
parent
d69e4ca2a5
commit
a3a649898f
@ -949,101 +949,101 @@ qmckl_exit_code qmckl_finalize_jastrow(qmckl_context context) {
|
|||||||
|
|
||||||
#+begin_src f90 :tangle (eval fh_func) :comments org
|
#+begin_src f90 :tangle (eval fh_func) :comments org
|
||||||
interface
|
interface
|
||||||
integer(qmckl_exit_code) function qmckl_set_jastrow_rescale_factor_ee (context, &
|
integer(qmckl_exit_code) function qmckl_set_jastrow_rescale_factor_ee (context, &
|
||||||
kappa_ee) bind(C)
|
kappa_ee) bind(C)
|
||||||
use, intrinsic :: iso_c_binding
|
use, intrinsic :: iso_c_binding
|
||||||
import
|
import
|
||||||
implicit none
|
implicit none
|
||||||
integer (qmckl_context) , intent(in) , value :: context
|
integer (qmckl_context) , intent(in) , value :: context
|
||||||
double precision, intent(in), value :: kappa_ee
|
double precision, intent(in), value :: kappa_ee
|
||||||
end function
|
end function qmckl_set_jastrow_rescale_factor_ee
|
||||||
|
|
||||||
integer(qmckl_exit_code) qmckl_set_jastrow_rescale_factor_en (context, &
|
integer(qmckl_exit_code) function qmckl_set_jastrow_rescale_factor_en (context, &
|
||||||
kappa_en, size_max) bind(C)
|
kappa_en, size_max) bind(C)
|
||||||
use, intrinsic :: iso_c_binding
|
use, intrinsic :: iso_c_binding
|
||||||
import
|
import
|
||||||
implicit none
|
implicit none
|
||||||
integer (qmckl_context) , intent(in) , value :: context
|
integer (qmckl_context) , intent(in) , value :: context
|
||||||
integer, intent(in), value :: size_max
|
integer, intent(in), value :: size_max
|
||||||
double precision, intent(in) :: kappa_en(size_max)
|
double precision, intent(in) :: kappa_en(size_max)
|
||||||
end function
|
end function qmckl_set_jastrow_rescale_factor_en
|
||||||
|
|
||||||
integer(qmckl_exit_code) qmckl_set_jastrow_aord_num (context, &
|
integer(qmckl_exit_code) function qmckl_set_jastrow_aord_num (context, &
|
||||||
aord_num) bind(C)
|
aord_num) bind(C)
|
||||||
use, intrinsic :: iso_c_binding
|
use, intrinsic :: iso_c_binding
|
||||||
import
|
import
|
||||||
implicit none
|
implicit none
|
||||||
integer (qmckl_context) , intent(in) , value :: context
|
integer (qmckl_context) , intent(in) , value :: context
|
||||||
integer(c_int64_t), intent(in), value :: aord_num
|
integer(c_int64_t), intent(in), value :: aord_num
|
||||||
end function
|
end function qmckl_set_jastrow_aord_num
|
||||||
|
|
||||||
integer(qmckl_exit_code) qmckl_set_jastrow_bord_num (context, &
|
integer(qmckl_exit_code) function qmckl_set_jastrow_bord_num (context, &
|
||||||
aord_num) bind(C)
|
aord_num) bind(C)
|
||||||
use, intrinsic :: iso_c_binding
|
use, intrinsic :: iso_c_binding
|
||||||
import
|
import
|
||||||
implicit none
|
implicit none
|
||||||
integer (qmckl_context) , intent(in) , value :: context
|
integer (qmckl_context) , intent(in) , value :: context
|
||||||
integer(c_int64_t), intent(in), value :: bord_num
|
integer(c_int64_t), intent(in), value :: bord_num
|
||||||
end function
|
end function qmckl_set_jastrow_bord_num
|
||||||
|
|
||||||
integer(qmckl_exit_code) qmckl_set_jastrow_cord_num (context, &
|
integer(qmckl_exit_code) function qmckl_set_jastrow_cord_num (context, &
|
||||||
aord_num) bind(C)
|
aord_num) bind(C)
|
||||||
use, intrinsic :: iso_c_binding
|
use, intrinsic :: iso_c_binding
|
||||||
import
|
import
|
||||||
implicit none
|
implicit none
|
||||||
integer (qmckl_context) , intent(in) , value :: context
|
integer (qmckl_context) , intent(in) , value :: context
|
||||||
integer(c_int64_t), intent(in), value :: cord_num
|
integer(c_int64_t), intent(in), value :: cord_num
|
||||||
end function
|
end function qmckl_set_jastrow_cord_num
|
||||||
|
|
||||||
integer(qmckl_exit_code) qmckl_set_jastrow_type_nucl_num (context, &
|
|
||||||
type_nucl_num) bind(C)
|
|
||||||
use, intrinsic :: iso_c_binding
|
|
||||||
import
|
|
||||||
implicit none
|
|
||||||
integer (qmckl_context) , intent(in) , value :: context
|
|
||||||
integer(c_int64_t), intent(in), value :: type_nucl_num
|
|
||||||
end function
|
|
||||||
|
|
||||||
integer(qmckl_exit_code) qmckl_set_jastrow_type_nucl_vector (context, &
|
|
||||||
type_nucl_vector, size_max) bind(C)
|
|
||||||
use, intrinsic :: iso_c_binding
|
|
||||||
import
|
|
||||||
implicit none
|
|
||||||
integer (qmckl_context) , intent(in) , value :: context
|
|
||||||
integer(c_int64_t), intent(in) :: type_nucl_vector(size_max)
|
|
||||||
integer(c_int64_t), intent(in), value :: size_max
|
|
||||||
end function
|
|
||||||
|
|
||||||
integer(qmckl_exit_code) qmckl_set_jastrow_aord_vector(context, &
|
|
||||||
aord_vector, size_max) bind(C)
|
|
||||||
use, intrinsic :: iso_c_binding
|
|
||||||
import
|
|
||||||
implicit none
|
|
||||||
integer (qmckl_context) , intent(in) , value :: context
|
|
||||||
double precision, intent(in) :: aord_vector(size_max)
|
|
||||||
integer(c_int64_t), intent(in), value :: size_max
|
|
||||||
end function
|
|
||||||
|
|
||||||
integer(qmckl_exit_code) qmckl_set_jastrow_bord_vector(context, &
|
|
||||||
bord_vector, size_max) bind(C)
|
|
||||||
use, intrinsic :: iso_c_binding
|
|
||||||
import
|
|
||||||
implicit none
|
|
||||||
integer (qmckl_context) , intent(in) , value :: context
|
|
||||||
double precision, intent(in) :: bord_vector(size_max)
|
|
||||||
integer(c_int64_t), intent(in), value :: size_max
|
|
||||||
end function
|
|
||||||
|
|
||||||
integer(qmckl_exit_code) qmckl_set_jastrow_cord_vector(context, &
|
|
||||||
cord_vector, size_max) bind(C)
|
|
||||||
use, intrinsic :: iso_c_binding
|
|
||||||
import
|
|
||||||
implicit none
|
|
||||||
integer (qmckl_context) , intent(in) , value :: context
|
|
||||||
double precision, intent(in) :: cord_vector(size_max)
|
|
||||||
integer(c_int64_t), intent(in), value :: size_max
|
|
||||||
end function
|
|
||||||
|
|
||||||
|
integer(qmckl_exit_code) function qmckl_set_jastrow_type_nucl_num (context, &
|
||||||
|
type_nucl_num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
import
|
||||||
|
implicit none
|
||||||
|
integer (qmckl_context) , intent(in) , value :: context
|
||||||
|
integer(c_int64_t), intent(in), value :: type_nucl_num
|
||||||
|
end function qmckl_set_jastrow_type_nucl_num
|
||||||
|
|
||||||
|
integer(qmckl_exit_code) function qmckl_set_jastrow_type_nucl_vector (context, &
|
||||||
|
type_nucl_vector, size_max) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
import
|
||||||
|
implicit none
|
||||||
|
integer (qmckl_context) , intent(in) , value :: context
|
||||||
|
integer(c_int64_t), intent(in) :: type_nucl_vector(size_max)
|
||||||
|
integer(c_int64_t), intent(in), value :: size_max
|
||||||
|
end function qmckl_set_jastrow_type_nucl_vector
|
||||||
|
|
||||||
|
integer(qmckl_exit_code) function qmckl_set_jastrow_aord_vector(context, &
|
||||||
|
aord_vector, size_max) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
import
|
||||||
|
implicit none
|
||||||
|
integer (qmckl_context) , intent(in) , value :: context
|
||||||
|
double precision, intent(in) :: aord_vector(size_max)
|
||||||
|
integer(c_int64_t), intent(in), value :: size_max
|
||||||
|
end function qmckl_set_jastrow_aord_vector
|
||||||
|
|
||||||
|
integer(qmckl_exit_code) function qmckl_set_jastrow_bord_vector(context, &
|
||||||
|
bord_vector, size_max) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
import
|
||||||
|
implicit none
|
||||||
|
integer (qmckl_context) , intent(in) , value :: context
|
||||||
|
double precision, intent(in) :: bord_vector(size_max)
|
||||||
|
integer(c_int64_t), intent(in), value :: size_max
|
||||||
|
end function qmckl_set_jastrow_bord_vector
|
||||||
|
|
||||||
|
integer(qmckl_exit_code) function qmckl_set_jastrow_cord_vector(context, &
|
||||||
|
cord_vector, size_max) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
import
|
||||||
|
implicit none
|
||||||
|
integer (qmckl_context) , intent(in) , value :: context
|
||||||
|
double precision, intent(in) :: cord_vector(size_max)
|
||||||
|
integer(c_int64_t), intent(in), value :: size_max
|
||||||
|
end function qmckl_set_jastrow_cord_vector
|
||||||
|
|
||||||
end interface
|
end interface
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user