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

Fixed eig66_hdf

parent 3cd43cb6
...@@ -629,7 +629,7 @@ CONTAINS ...@@ -629,7 +629,7 @@ CONTAINS
& eig(:neig)) & eig(:neig))
ENDIF ENDIF
IF (PRESENT(w_iks)) THEN IF (PRESENT(w_iks)) THEN
CALL io_read_real1(d%wikssetid,(/1,nk,jspin/),(/size(w_iks),1,1/),w_iks,(/1,1,1/)) CALL io_read_real1(d%wikssetid,(/1,nk,jspin/),(/size(w_iks),1,1/),w_iks)
ENDIF ENDIF
ENDIF ENDIF
......
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