fm: Fix uninitialized info in choose_eigv_solver

cp2k · Jul 14, 2023 · b8a1131 · b8a1131
1 parent 35c8065
commit b8a1131
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/fm/cp_fm_diag.F b/src/fm/cp_fm_diag.F
@@ -189,6 +189,8 @@ SUBROUTINE choose_eigv_solver(matrix, eigenvectors, eigenvalues, info)
       ! Sample peak memory
       CALL m_memory()
 
+      IF (PRESENT(info)) info = 0 ! Default for solvers that do not return an info.
+
       IF (diag_type == FM_DIAG_TYPE_SCALAPACK) THEN
          CALL cp_fm_syevd(matrix, eigenvectors, eigenvalues, info)