Commit 484dd478 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix for HDF5 IO of eigenvalues/vectors

parent 03cbb3f7
......@@ -115,9 +115,13 @@ CONTAINS
CALL h5dcreate_f(d%fid, "neig", H5T_NATIVE_INTEGER, spaceid, d%neigsetid, hdferr)
CALL h5sclose_f(spaceid,hdferr)
! ew
dims(:3)=(/neig,nkpts,jspins/)
CALL h5screate_simple_f(3,dims(:3),spaceid,hdferr)
CALL h5dcreate_f(d%fid, "energy", H5T_NATIVE_DOUBLE, spaceid, d%energysetid, hdferr)
CALL h5sclose_f(spaceid,hdferr)
! w_iks
dims(:3)=(/neig,nkpts,jspins/)
CALL h5screate_simple_f(3,dims(:3),spaceid,hdferr)
CALL h5dcreate_f(d%fid, "w_iks", H5T_NATIVE_DOUBLE, spaceid, d%wikssetid, hdferr)
CALL h5sclose_f(spaceid,hdferr)
! ev
......
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