diff --git a/src/ED_BATH/ED_BATH_DMFT.f90 b/src/ED_BATH/ED_BATH_DMFT.f90
index 3e61cc5d..acdbe91d 100644
--- a/src/ED_BATH/ED_BATH_DMFT.f90
+++ b/src/ED_BATH/ED_BATH_DMFT.f90
@@ -462,7 +462,7 @@ subroutine write_dmft_bath(dmft_bath_,unit)
                "Vbk_l"//reg(str(iorb))//"_s"//reg(str(ispin)),&
                iorb=1,Norb), ispin=1,Nspin)
           do i=1,Nbath
-             write(unit,"(90(ES21.12,1X))")((&
+             write(unit_,"(90(ES21.12,1X))")((&
                   dmft_bath_%e(ispin,iorb,i),&
                   dmft_bath_%v(ispin,iorb,i),&
                   dmft_bath_%u(ispin,iorb,i),&