From 60c8358968ecee9ddf1fb3c4a2d09d5e47330df7 Mon Sep 17 00:00:00 2001
From: Daniel Wortmann <d.wortmann@fz-juelich.de>
Date: Wed, 7 Mar 2018 17:41:45 +0100
Subject: [PATCH] Small bugfix for eig66_hdf

---
 io/eig66_hdf.F90 | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/io/eig66_hdf.F90 b/io/eig66_hdf.F90
index 8f84c040..45aae412 100644
--- a/io/eig66_hdf.F90
+++ b/io/eig66_hdf.F90
@@ -474,7 +474,6 @@ CONTAINS
        IF (PRESENT(nmat)) CALL io_write_integer0(&
             &                       d%nmatsetid,(/nk,jspin/),(/1,1/),nmat)
 
-       ENDIF
        !
        !write eigenvalues
        !
@@ -608,11 +607,8 @@ CONTAINS
        ENDIF
 
      
-          IF (PRESENT(nv)) nv=n1
-       ELSE
-          IF (PRESENT(nv)) CALL io_read_integer0(d%nvsetid,(/nk,jspin/),(/1,1/),nv)
+       IF (PRESENT(nv)) CALL io_read_integer0(d%nvsetid,(/nk,jspin/),(/1,1/),nv)
 
-       ENDIF
        IF (PRESENT(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/),&
-- 
GitLab