From 99574d054d7afdcb7d93c75532cf23e38dcd7e17 Mon Sep 17 00:00:00 2001 From: Augustin Bussy Date: Thu, 25 Sep 2025 14:19:04 +0200 Subject: [PATCH] Fix HFX initialization perf issue --- src/hfx_pair_list_methods.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/hfx_pair_list_methods.F b/src/hfx_pair_list_methods.F index 0efbc65c8a..533dd3847a 100644 --- a/src/hfx_pair_list_methods.F +++ b/src/hfx_pair_list_methods.F @@ -463,7 +463,7 @@ CONTAINS pmax_blocks, atomic_pair_list) INTEGER, INTENT(IN) :: natom - TYPE(pair_list_type), INTENT(OUT) :: list + TYPE(pair_list_type), INTENT(INOUT) :: list TYPE(pair_set_list_type), DIMENSION(:), & INTENT(OUT) :: set_list INTEGER, INTENT(IN) :: i_start, i_end, j_start, j_end, & @@ -644,7 +644,7 @@ CONTAINS pmax_blocks, atomic_pair_list, skip_atom_symmetry) INTEGER, INTENT(IN) :: natom - TYPE(pair_list_type_mp2) :: list + TYPE(pair_list_type_mp2), INTENT(INOUT) :: list TYPE(pair_set_list_type), DIMENSION(:), & INTENT(OUT) :: set_list INTEGER, INTENT(IN) :: i_start, i_end, j_start, j_end, &