TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2025-01-03 10:06:09 +01:00
Code Issues Projects Releases Wiki Activity

Fixed Fortran interface of Jastrow (2)

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

12
org/qmckl_jastrow.org
View File

@ -978,7 +978,7 @@ interface
end function qmckl_set_jastrow_aord_num end function qmckl_set_jastrow_aord_num
integer(qmckl_exit_code) function qmckl_set_jastrow_bord_num (context, & integer(qmckl_exit_code) function qmckl_set_jastrow_bord_num (context, &
aord_num) bind(C) bord_num) bind(C)
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
import import
implicit none implicit none
@ -987,7 +987,7 @@ interface
end function qmckl_set_jastrow_bord_num end function qmckl_set_jastrow_bord_num
integer(qmckl_exit_code) function qmckl_set_jastrow_cord_num (context, & integer(qmckl_exit_code) function qmckl_set_jastrow_cord_num (context, &
aord_num) bind(C) cord_num) bind(C)
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
import import
implicit none implicit none
@ -1010,8 +1010,8 @@ interface
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) :: type_nucl_vector(size_max)
integer(c_int64_t), intent(in), value :: size_max integer(c_int64_t), intent(in), value :: size_max
integer(c_int64_t), intent(in) :: type_nucl_vector(size_max)
end function qmckl_set_jastrow_type_nucl_vector end function qmckl_set_jastrow_type_nucl_vector
integer(qmckl_exit_code) function qmckl_set_jastrow_aord_vector(context, & integer(qmckl_exit_code) function qmckl_set_jastrow_aord_vector(context, &
@ -1020,8 +1020,8 @@ interface
import import
implicit none implicit none
integer (qmckl_context) , intent(in) , value :: context integer (qmckl_context) , intent(in) , value :: context
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
double precision, intent(in) :: aord_vector(size_max)
end function qmckl_set_jastrow_aord_vector end function qmckl_set_jastrow_aord_vector
integer(qmckl_exit_code) function qmckl_set_jastrow_bord_vector(context, & integer(qmckl_exit_code) function qmckl_set_jastrow_bord_vector(context, &
@ -1030,8 +1030,8 @@ interface
import import
implicit none implicit none
integer (qmckl_context) , intent(in) , value :: context integer (qmckl_context) , intent(in) , value :: context
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
double precision, intent(in) :: bord_vector(size_max)
end function qmckl_set_jastrow_bord_vector end function qmckl_set_jastrow_bord_vector
integer(qmckl_exit_code) function qmckl_set_jastrow_cord_vector(context, & integer(qmckl_exit_code) function qmckl_set_jastrow_cord_vector(context, &
@ -1040,8 +1040,8 @@ interface
import import
implicit none implicit none
integer (qmckl_context) , intent(in) , value :: context integer (qmckl_context) , intent(in) , value :: context
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
double precision, intent(in) :: cord_vector(size_max)
end function qmckl_set_jastrow_cord_vector end function qmckl_set_jastrow_cord_vector
end interface end interface