Intermediate commit

While having a quick check to the code status, fixing a minimal typo for the bath_type=general case. Thanks Adriano for taking care of this.
aamaricci · Dec 12, 2024 · 23ce802 · 23ce802
1 parent 56b3488
commit 23ce802
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/ED_BATH/delta_functions/delta_general.f90 b/src/ED_BATH/delta_functions/delta_general.f90
@@ -45,7 +45,7 @@ function delta_bath_array_general(x,dmft_bath_,axis) result(Delta)
      !
      do ibath=1,Nbath
         v  = dmft_bath_%item(ibath)%vg
-        Hk = nn2so_reshape(Hreplica_build(dmft_bath_%item(ibath)%lambda),Nnambu*Nspin,Norb)
+        Hk = nn2so_reshape(Hgeneral_build(dmft_bath_%item(ibath)%lambda),Nnambu*Nspin,Norb)
         Vk = kron( pauli_sigma_z, one*diag(v) )
         do i=1,L
            invH_k   = diag(Z(:,i)) - Hk

diff --git a/src/ED_BATH/delta_functions/fdelta_general.f90 b/src/ED_BATH/delta_functions/fdelta_general.f90
@@ -26,7 +26,7 @@ function fdelta_bath_array_general(x,dmft_bath_,axis) result(Fdelta)
   !
   do ibath=1,Nbath
      V  = dmft_bath_%item(ibath)%vg
-     Hk = nn2so_reshape(Hreplica_build(dmft_bath_%item(ibath)%lambda),Nnambu*Nspin,Norb)
+     Hk = nn2so_reshape(Hgeneral_build(dmft_bath_%item(ibath)%lambda),Nnambu*Nspin,Norb)
      Vk = kron( pauli_sigma_z, one*diag(V) )
      do i=1,L
         invH_k   = diag(Z(:,i)) - Hk