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

Context is value

Browse Source
This commit is contained in:
Anthony Scemama 2024-12-14 15:23:05 +01:00
parent 6ad40e0cf2
commit 26f913518a
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
org/qmckl_jastrow_champ.org
View File

@ -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)