low-scaling RPA/GW: fix uninitialized value

cp2k · Feb 24, 2020 · 8784d52 · 8784d52
1 parent 6ca3058
commit 8784d52
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/rpa_util.F b/src/rpa_util.F
@@ -1062,7 +1062,7 @@ SUBROUTINE dealloc_im_time(do_ri_sos_laplace_mp2, fm_mo_coeff_occ, fm_mo_coeff_v
       TYPE(cp_fm_type), POINTER                          :: fm_mo_coeff_occ, fm_mo_coeff_virt, &
                                                             fm_scaled_dm_occ_tau, &
                                                             fm_scaled_dm_virt_tau
-      INTEGER, DIMENSION(:), INTENT(IN)                  :: ikp_local
+      INTEGER, ALLOCATABLE, DIMENSION(:), INTENT(IN)     :: ikp_local
       INTEGER, ALLOCATABLE, DIMENSION(:, :), &
          INTENT(INOUT)                                   :: index_to_cell_3c
       INTEGER, ALLOCATABLE, DIMENSION(:, :, :), &