From 574cde88e53d6350a473ce5373686ee9beb58356 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sat, 24 Feb 2024 00:58:11 +0200 Subject: [PATCH] Removed redundant iso_c_binding --- autogen.sh | 2 +- org/qmckl_jastrow_champ.org | 11 ----------- 2 files changed, 1 insertion(+), 12 deletions(-) diff --git a/autogen.sh b/autogen.sh index a7923f2..8a22607 100755 --- a/autogen.sh +++ b/autogen.sh @@ -2,4 +2,4 @@ export srcdir="." python3 ${srcdir}/tools/build_makefile.py -autoreconf -i -Wall --no-recursive +autoreconf -vi -Wall --no-recursive diff --git a/org/qmckl_jastrow_champ.org b/org/qmckl_jastrow_champ.org index 8b22a20..508f7ff 100644 --- a/org/qmckl_jastrow_champ.org +++ b/org/qmckl_jastrow_champ.org @@ -1903,8 +1903,6 @@ qmckl_exit_code qmckl_provide_jastrow_champ_asymp_jasb(qmckl_context context) function qmckl_compute_jastrow_champ_asymp_jasb_doc(context, & bord_num, b_vector, rescale_factor_ee, spin_independent, asymp_jasb) & bind(C) result(info) - use, intrinsic :: iso_c_binding - use qmckl implicit none @@ -2347,8 +2345,6 @@ function qmckl_compute_jastrow_champ_factor_ee_doc(context, & walk_num, elec_num, up_num, bord_num, b_vector, & ee_distance_rescaled, asymp_jasb, spin_independent, factor_ee) & bind(C) result(info) - use, intrinsic :: iso_c_binding - use qmckl implicit none @@ -2824,8 +2820,6 @@ function qmckl_compute_jastrow_champ_factor_ee_gl_doc( & b_vector, ee_distance_rescaled, ee_distance_rescaled_gl, & spin_independent, factor_ee_gl) & bind(C) result(info) - use, intrinsic :: iso_c_binding - use qmckl implicit none @@ -3383,7 +3377,6 @@ function qmckl_compute_ee_distance_rescaled_doc(context, & elec_num, rescale_factor_ee, walk_num, & coord, ee_distance_rescaled) & bind(C) result(info) - use, intrinsic :: iso_c_binding use qmckl implicit none @@ -3709,7 +3702,6 @@ qmckl_exit_code qmckl_provide_ee_distance_rescaled_gl(qmckl_context context) function qmckl_compute_ee_distance_rescaled_gl_doc(context, & elec_num, rescale_factor_ee, walk_num, coord, ee_distance_rescaled_gl) & bind(C) result(info) - use, intrinsic :: iso_c_binding use qmckl implicit none @@ -4325,7 +4317,6 @@ function qmckl_compute_jastrow_champ_factor_en_doc( & type_nucl_vector, aord_num, a_vector, & en_distance_rescaled, asymp_jasa, factor_en) & bind(C) result(info) - use, intrinsic :: iso_c_binding use qmckl implicit none @@ -4746,7 +4737,6 @@ function qmckl_compute_jastrow_champ_factor_en_gl_doc( & type_nucl_vector, aord_num, a_vector, & en_distance_rescaled, en_distance_rescaled_gl, factor_en_gl) & bind(C) result(info) - use, intrinsic :: iso_c_binding use qmckl implicit none @@ -5270,7 +5260,6 @@ function qmckl_compute_en_distance_rescaled_doc(context, & type_nucl_vector, rescale_factor_en, walk_num, elec_coord, & nucl_coord, en_distance_rescaled) & bind(C) result(info) - use, intrinsic :: iso_c_binding use qmckl implicit none integer (qmckl_context), intent(in), value :: context