diff --git a/diagonalization/franza.F90 b/diagonalization/franza.F90 index c5e6db3a38781857b3ca2203e536fbd71295f6dc..41044182e4118eda11f22790c78a9f5b82c6817f 100644 --- a/diagonalization/franza.F90 +++ b/diagonalization/franza.F90 @@ -223,10 +223,9 @@ CONTAINS WRITE(*,*) 'Call to LAPACK routine sspevx/dspevx/chpevx/zhpevx resulted in problem:' WRITE(*,*) 'The library does not report an error but the number of found eigenvalues' WRITE(*,*) 'does not agree with the target number of eigenvalues to be calculated.' - WRITE(*,*) 'The LAPACK library you are linking to seems to be broken. Please link a' - WRITE(*,*) 'different LAPACK library.' + WRITE(*,*) 'This is a bug in either fleur or the linked LAPACK library.' WRITE(*,*) '' - CALL juDFT_error("Broken LAPACK library",calledby="franza") + CALL juDFT_error("sspevx/dspevx/chpevx/zhpevx failed without explicit errorcode.",calledby="franza") END IF IF(addstate) THEN ! cut topmost subspace of degenerate states to avoid symmetry breaking (CF) iu = ne