TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-08-11 15:28:31 +02:00
Code Issues Projects Releases Wiki Activity

Fixed Fortran interface of Jastrow

Browse Source
This commit is contained in:
Anthony Scemama 2022-11-14 15:01:56 +01:00
parent d69e4ca2a5
commit a3a649898f
1 changed files with 93 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

186
org/qmckl_jastrow.org
View File

@ -949,101 +949,101 @@ qmckl_exit_code qmckl_finalize_jastrow(qmckl_context context) {
#+begin_src f90 :tangle (eval fh_func) :comments org
interface
integer(qmckl_exit_code) function qmckl_set_jastrow_rescale_factor_ee (context, &
kappa_ee) bind(C)
use, intrinsic :: iso_c_binding
import
implicit none
integer (qmckl_context) , intent(in) , value :: context
double precision, intent(in), value :: kappa_ee
end function
integer(qmckl_exit_code) function qmckl_set_jastrow_rescale_factor_ee (context, &
kappa_ee) bind(C)
use, intrinsic :: iso_c_binding
import
implicit none
integer (qmckl_context) , intent(in) , value :: context
double precision, intent(in), value :: kappa_ee
end function qmckl_set_jastrow_rescale_factor_ee
integer(qmckl_exit_code) qmckl_set_jastrow_rescale_factor_en (context, &
kappa_en, size_max) bind(C)
use, intrinsic :: iso_c_binding
import
implicit none
integer (qmckl_context) , intent(in) , value :: context
integer, intent(in), value :: size_max
double precision, intent(in) :: kappa_en(size_max)
end function
integer(qmckl_exit_code) qmckl_set_jastrow_aord_num (context, &
aord_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 :: aord_num
end function
integer(qmckl_exit_code) qmckl_set_jastrow_bord_num (context, &
aord_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 :: bord_num
end function
integer(qmckl_exit_code) qmckl_set_jastrow_cord_num (context, &
aord_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 :: cord_num
end function
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_rescale_factor_en (context, &
kappa_en, size_max) bind(C)
use, intrinsic :: iso_c_binding
import
implicit none
integer (qmckl_context) , intent(in) , value :: context
integer, intent(in), value :: size_max
double precision, intent(in) :: kappa_en(size_max)
end function qmckl_set_jastrow_rescale_factor_en
integer(qmckl_exit_code) function qmckl_set_jastrow_aord_num (context, &
aord_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 :: aord_num
end function qmckl_set_jastrow_aord_num
integer(qmckl_exit_code) function qmckl_set_jastrow_bord_num (context, &
aord_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 :: bord_num
end function qmckl_set_jastrow_bord_num
integer(qmckl_exit_code) function qmckl_set_jastrow_cord_num (context, &
aord_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 :: cord_num
end function qmckl_set_jastrow_cord_num
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_src