TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2025-01-05 11:00:36 +01: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

38
org/qmckl_jastrow.org
View File

@ -956,9 +956,9 @@ interface
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
@ -966,45 +966,45 @@ interface
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, & integer(qmckl_exit_code) function qmckl_set_jastrow_type_nucl_num (context, &
type_nucl_num) bind(C) type_nucl_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 :: type_nucl_num integer(c_int64_t), intent(in), value :: type_nucl_num
end function end function qmckl_set_jastrow_type_nucl_num
integer(qmckl_exit_code) qmckl_set_jastrow_type_nucl_vector (context, & integer(qmckl_exit_code) function qmckl_set_jastrow_type_nucl_vector (context, &
type_nucl_vector, size_max) bind(C) type_nucl_vector, size_max) bind(C)
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
import import
@ -1012,9 +1012,9 @@ interface
integer (qmckl_context) , intent(in) , value :: context integer (qmckl_context) , intent(in) , value :: context
integer(c_int64_t), intent(in) :: type_nucl_vector(size_max) integer(c_int64_t), intent(in) :: type_nucl_vector(size_max)
integer(c_int64_t), intent(in), value :: size_max integer(c_int64_t), intent(in), value :: size_max
end function end function qmckl_set_jastrow_type_nucl_vector
integer(qmckl_exit_code) qmckl_set_jastrow_aord_vector(context, & integer(qmckl_exit_code) function qmckl_set_jastrow_aord_vector(context, &
aord_vector, size_max) bind(C) aord_vector, size_max) bind(C)
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
import import
@ -1022,9 +1022,9 @@ interface
integer (qmckl_context) , intent(in) , value :: context integer (qmckl_context) , intent(in) , value :: context
double precision, intent(in) :: aord_vector(size_max) double precision, intent(in) :: aord_vector(size_max)
integer(c_int64_t), intent(in), value :: size_max integer(c_int64_t), intent(in), value :: size_max
end function end function qmckl_set_jastrow_aord_vector
integer(qmckl_exit_code) qmckl_set_jastrow_bord_vector(context, & integer(qmckl_exit_code) function qmckl_set_jastrow_bord_vector(context, &
bord_vector, size_max) bind(C) bord_vector, size_max) bind(C)
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
import import
@ -1032,9 +1032,9 @@ interface
integer (qmckl_context) , intent(in) , value :: context integer (qmckl_context) , intent(in) , value :: context
double precision, intent(in) :: bord_vector(size_max) double precision, intent(in) :: bord_vector(size_max)
integer(c_int64_t), intent(in), value :: size_max integer(c_int64_t), intent(in), value :: size_max
end function end function qmckl_set_jastrow_bord_vector
integer(qmckl_exit_code) qmckl_set_jastrow_cord_vector(context, & integer(qmckl_exit_code) function qmckl_set_jastrow_cord_vector(context, &
cord_vector, size_max) bind(C) cord_vector, size_max) bind(C)
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
import import
@ -1042,7 +1042,7 @@ interface
integer (qmckl_context) , intent(in) , value :: context integer (qmckl_context) , intent(in) , value :: context
double precision, intent(in) :: cord_vector(size_max) double precision, intent(in) :: cord_vector(size_max)
integer(c_int64_t), intent(in), value :: size_max integer(c_int64_t), intent(in), value :: size_max
end function end function qmckl_set_jastrow_cord_vector
end interface end interface
#+end_src #+end_src