Intermediate commit:

minor bugfix in bath write function in the case normal bath, nonsu2 diagonalization
aamaricci · Mar 21, 2024 · 5b658ad · 5b658ad
1 parent 341561c
commit 5b658ad
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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),&