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)