Commit 60c83589 authored by Daniel Wortmann's avatar Daniel Wortmann

Small bugfix for eig66_hdf

parent 67243b2f
...@@ -474,7 +474,6 @@ CONTAINS ...@@ -474,7 +474,6 @@ CONTAINS
IF (PRESENT(nmat)) CALL io_write_integer0(& IF (PRESENT(nmat)) CALL io_write_integer0(&
& d%nmatsetid,(/nk,jspin/),(/1,1/),nmat) & d%nmatsetid,(/nk,jspin/),(/1,1/),nmat)
ENDIF
! !
!write eigenvalues !write eigenvalues
! !
...@@ -608,11 +607,8 @@ CONTAINS ...@@ -608,11 +607,8 @@ CONTAINS
ENDIF ENDIF
IF (PRESENT(nv)) nv=n1 IF (PRESENT(nv)) CALL io_read_integer0(d%nvsetid,(/nk,jspin/),(/1,1/),nv)
ELSE
IF (PRESENT(nv)) CALL io_read_integer0(d%nvsetid,(/nk,jspin/),(/1,1/),nv)
ENDIF
IF (PRESENT(nmat)) & IF (PRESENT(nmat)) &
& CALL io_read_integer0(d%nmatsetid,(/nk,jspin/),(/1,1/),nmat) & CALL io_read_integer0(d%nmatsetid,(/nk,jspin/),(/1,1/),nmat)
IF (PRESENT(el)) CALL io_read_real2(d%esetid,(/1,1,nk,jspin/),& IF (PRESENT(el)) CALL io_read_real2(d%esetid,(/1,1,nk,jspin/),&
......
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