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, &