From 8ecadc11677549d4410e68962b4cc64416d17f29 Mon Sep 17 00:00:00 2001
From: Manuel Zingl <manuel.zingl@student.tugraz.at>
Date: Tue, 7 Jul 2015 16:00:06 +0200
Subject: [PATCH] Writing of .oubwin removed for dmftproj -band

---
 fortran/dmftproj/dmftproj.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fortran/dmftproj/dmftproj.f b/fortran/dmftproj/dmftproj.f
index a9488709..8413c4ec 100644
--- a/fortran/dmftproj/dmftproj.f
+++ b/fortran/dmftproj/dmftproj.f
@@ -745,10 +745,10 @@ C Writing the output files for DMFT computations :
 C ------------------------------------------------ 
          IF(.NOT.ifBAND) THEN
           CALL outqmc(elecn,qtot)
+          CALL outbwin
          ELSE
           CALL outband
          ENDIF
-         CALL outbwin
         ENDIF
 C End of the prgm
         CALL printout(0)