Commit 0bb96857 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix in hdf version

parent e50a56e3
...@@ -517,7 +517,7 @@ CONTAINS ...@@ -517,7 +517,7 @@ CONTAINS
ELSE ELSE
IF (PRESENT(eig)) CALL juDFT_error("BUG in calling write_eig") IF (PRESENT(eig)) CALL juDFT_error("BUG in calling write_eig")
ENDIF ENDIF
IF (PRESENT(z).AND..NOT.PRESENT(neig))& IF (PRESENT(zmat).AND..NOT.PRESENT(neig))&
& CALL juDFT_error("BUG in calling write_eig with eigenvector") & CALL juDFT_error("BUG in calling write_eig with eigenvector")
n1=1;n2=0 n1=1;n2=0
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment