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

Fixed eig66_hdf

parent 3cd43cb6
......@@ -629,7 +629,7 @@ CONTAINS
& eig(:neig))
ENDIF
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
......
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