From 8ca35011992e6cf4514ce0a590caf6f09fd127ac Mon Sep 17 00:00:00 2001
From: Frank Freimuth <f.freimuth@fz-juelich.de>
Date: Fri, 20 Sep 2019 18:39:50 +0200
Subject: [PATCH] Update wann_write_uHu.F

---
 wannier/uhu/wann_write_uHu.F | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/wannier/uhu/wann_write_uHu.F b/wannier/uhu/wann_write_uHu.F
index 579024b7..1af55d2f 100644
--- a/wannier/uhu/wann_write_uHu.F
+++ b/wannier/uhu/wann_write_uHu.F
@@ -62,6 +62,8 @@ c      uHu = uHu_in
 #endif
       endif
 
+      header='Elements uHu at k+b1 and k+b2'
+
 c******************************************************
 c     Write mmnk matrix to file.
 c******************************************************
@@ -137,10 +139,12 @@ c******************************************************
 !        write (305) conjg(uHu_in)
              write (305) uHu_in(:,:,ikpt_b2,ikpt_b,ikpt)
            endif
-           close (305)
+           
           enddo
          enddo
         enddo
+        
+        close(305)
        endif
        
 
-- 
GitLab