diff --git a/org/qmckl_jastrow.org b/org/qmckl_jastrow.org index 768086d..33c0a76 100644 --- a/org/qmckl_jastrow.org +++ b/org/qmckl_jastrow.org @@ -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