From 26f913518a39f65fc85be368d31fac70d7ec22d4 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sat, 14 Dec 2024 15:23:05 +0100 Subject: [PATCH] Context is value --- org/qmckl_jastrow_champ.org | 44 ++++++++++++++++++------------------- 1 file changed, 22 insertions(+), 22 deletions(-) diff --git a/org/qmckl_jastrow_champ.org b/org/qmckl_jastrow_champ.org index dbad2ca..0bc74df 100644 --- a/org/qmckl_jastrow_champ.org +++ b/org/qmckl_jastrow_champ.org @@ -4411,15 +4411,15 @@ assert(qmckl_jastrow_champ_provided(context)); #+begin_src c :comments org :tangle (eval h_func) :noweb yes qmckl_exit_code qmckl_get_jastrow_champ_asymp_jasa(qmckl_context context, - double* const asymp_jasa, - const int64_t size_max); + double* const asymp_jasa, + const int64_t size_max); #+end_src #+begin_src c :comments org :tangle (eval c) :noweb yes :exports none qmckl_exit_code qmckl_get_jastrow_champ_asymp_jasa(qmckl_context context, - double* const asymp_jasa, - const int64_t size_max) + double* const asymp_jasa, + const int64_t size_max) { if (qmckl_context_check(context) == QMCKL_NULL_CONTEXT) { return qmckl_failwith( context, @@ -4565,7 +4565,7 @@ function qmckl_compute_jastrow_champ_asymp_jasa(context, aord_num, type_nucl_num use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: aord_num integer (c_int64_t) , intent(in) , value :: type_nucl_num real (c_double ) , intent(in) :: a_vector(aord_num+1,type_nucl_num) @@ -6871,7 +6871,7 @@ function qmckl_compute_een_rescaled_e_doc( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: walk_num integer (c_int64_t) , intent(in) , value :: elec_num integer (c_int64_t) , intent(in) , value :: cord_num @@ -7428,7 +7428,7 @@ function qmckl_compute_jastrow_champ_factor_een_rescaled_e_gl_doc( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer(c_int64_t) , intent(in), value :: walk_num integer(c_int64_t) , intent(in), value :: elec_num integer(c_int64_t) , intent(in), value :: cord_num @@ -8152,7 +8152,7 @@ function qmckl_compute_een_rescaled_n( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: walk_num integer (c_int64_t) , intent(in) , value :: elec_num integer (c_int64_t) , intent(in) , value :: nucl_num @@ -8539,7 +8539,7 @@ function qmckl_compute_jastrow_champ_factor_een_rescaled_n_gl( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: walk_num integer (c_int64_t) , intent(in) , value :: elec_num integer (c_int64_t) , intent(in) , value :: nucl_num @@ -8796,7 +8796,7 @@ function qmckl_compute_dim_c_vector_doc( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: cord_num integer (c_int64_t) , intent(out) :: dim_c_vector integer(qmckl_exit_code) :: info @@ -9295,7 +9295,7 @@ function qmckl_compute_c_vector_full_doc( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: nucl_num integer (c_int64_t) , intent(in) , value :: dim_c_vector integer (c_int64_t) , intent(in) , value :: type_nucl_num @@ -9427,7 +9427,7 @@ function qmckl_compute_lkpm_combined_index_doc( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: cord_num integer (c_int64_t) , intent(in) , value :: dim_c_vector integer (c_int64_t) , intent(out) :: lkpm_combined_index(dim_c_vector,4) @@ -9630,7 +9630,7 @@ function qmckl_compute_tmp_c_doc( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: cord_num integer (c_int64_t) , intent(in) , value :: elec_num integer (c_int64_t) , intent(in) , value :: nucl_num @@ -9855,7 +9855,7 @@ function qmckl_compute_dtmp_c_doc( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: cord_num integer (c_int64_t) , intent(in) , value :: elec_num integer (c_int64_t) , intent(in) , value :: nucl_num @@ -10269,7 +10269,7 @@ function qmckl_compute_jastrow_champ_factor_een_naive( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: walk_num integer (c_int64_t) , intent(in) , value :: elec_num integer (c_int64_t) , intent(in) , value :: nucl_num @@ -10371,7 +10371,7 @@ function qmckl_compute_jastrow_champ_factor_een_doc( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: walk_num integer (c_int64_t) , intent(in) , value :: elec_num integer (c_int64_t) , intent(in) , value :: nucl_num @@ -10917,7 +10917,7 @@ function qmckl_compute_jastrow_champ_factor_een_gl_naive( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: walk_num integer (c_int64_t) , intent(in) , value :: elec_num integer (c_int64_t) , intent(in) , value :: nucl_num @@ -11045,7 +11045,7 @@ function qmckl_compute_jastrow_champ_factor_een_gl_doc( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: walk_num integer (c_int64_t) , intent(in) , value :: elec_num integer (c_int64_t) , intent(in) , value :: nucl_num @@ -11584,7 +11584,7 @@ function qmckl_compute_jastrow_champ_factor_een_grad_doc( & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: walk_num integer (c_int64_t) , intent(in) , value :: elec_num integer (c_int64_t) , intent(in) , value :: nucl_num @@ -12072,7 +12072,7 @@ function qmckl_compute_jastrow_champ_value_doc(context, & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: walk_num real (c_double ) , intent(in) :: f_ee(walk_num) real (c_double ) , intent(in) :: f_en(walk_num) @@ -12564,7 +12564,7 @@ function qmckl_compute_jastrow_champ_gl_doc(context, & use qmckl use, intrinsic :: iso_c_binding implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: walk_num integer (c_int64_t) , intent(in) , value :: elec_num real (c_double ) , intent(in) :: value(walk_num) @@ -12804,7 +12804,7 @@ function qmckl_compute_jastrow_champ_grad_doc(context, & use, intrinsic :: iso_c_binding use qmckl implicit none - integer(qmckl_context), intent(in) :: context + integer(qmckl_context), intent(in), value :: context integer (c_int64_t) , intent(in) , value :: walk_num integer (c_int64_t) , intent(in) , value :: elec_num real (c_double ) , intent(in) :: value(walk_num)