Fix leaks in qs_kinetic and qs_overlap (#1642)

cp2k · Sep 13, 2021 · 698770d · 698770d
1 parent ca5cdc8
commit 698770d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/src/qs_kinetic.F b/src/qs_kinetic.F
@@ -234,6 +234,7 @@ SUBROUTINE build_kinetic_matrix_low(ks_env, matrix_t, matrixkp_t, matrix_name, b
                                 sab_nl, do_symmetric)
       END IF
 
+      use_virial = .FALSE.
       IF (do_forces) THEN
          ! if forces -> maybe virial too
          CALL get_ks_env(ks_env=ks_env, force=force, virial=virial)

diff --git a/src/qs_overlap.F b/src/qs_overlap.F
@@ -278,6 +278,7 @@ SUBROUTINE build_overlap_matrix_low(ks_env, matrix_s, matrixkp_s, matrix_name, n
       END IF
       maxs = maxder
 
+      use_virial = .FALSE.
       IF (do_forces) THEN
          CALL get_ks_env(ks_env=ks_env, force=force, virial=virial)
          use_virial = virial%pv_availability .AND. (.NOT. virial%pv_numer)