fm: Fix error message when DSYEVD failes

cp2k · May 10, 2021 · 167df3c · 167df3c
1 parent 3bb007a
commit 167df3c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fm/cp_fm_diag.F b/src/fm/cp_fm_diag.F
@@ -417,8 +417,8 @@ SUBROUTINE cp_fm_syevd(matrix, eigenvectors, eigenvalues, info)
       CALL dsyevd('V', 'U', n, m(1, 1), nl, eig(1), work(1), lwork, iwork(1), liwork, myinfo)
 
       IF (myinfo /= 0) THEN
+         WRITE (message, "(A,I0,A)") "ERROR in DSYEVD: Matrix diagonalization failed (INFO = ", myinfo, ")"
          IF (PRESENT(info)) THEN
-            WRITE (message, "(A,I0,A)") "ERROR in DSYEVD: Matrix diagonalization failed (INFO = ", myinfo, ")"
             CPWARN(TRIM(message))
          ELSE
             CPABORT(TRIM(message))