deallocate dbcsr matrix

cp2k · Feb 10, 2020 · 3e3db28 · 3e3db28
1 parent 95af3ad
commit 3e3db28
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/rpa_gw.F b/src/rpa_gw.F
@@ -4904,11 +4904,11 @@ SUBROUTINE compute_self_energy_cubic_gw(num_integ_points, num_integ_points_freq,
          vec_Sigma_c_gw(:, 1:num_fit_points, 1) = vec_Sigma_c_gw_cos_omega(:, 1:num_fit_points) + &
                                                   im_unit*vec_Sigma_c_gw_sin_omega(:, 1:num_fit_points)
 
-         CALL dbcsr_release_P(mat_greens_fct_occ)
-         CALL dbcsr_release_P(mat_greens_fct_virt)
-
       END IF
 
+      CALL dbcsr_release_P(mat_greens_fct_occ)
+      CALL dbcsr_release_P(mat_greens_fct_virt)
+
       IF (do_ri_Sigma_x .AND. count_ev_sc_GW == 1) THEN
 
          CALL timeset(routineN//"_RI_HFX_operation_1", handle3)