BUGFIX:

Hreplica instead of Hgeneral in Hgeneral function caused segfault
aamaricci · Apr 12, 2024 · 6fe7e93 · 6fe7e93
1 parent 5b658ad
commit 6fe7e93
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ED_BATH/ED_BATH_AUX.f90 b/src/ED_BATH/ED_BATH_AUX.f90
@@ -131,7 +131,7 @@ function Hgeneral_build(lambdavec) result(H)
  complex(8),dimension(Nnambu*Nspin,Nnambu*Nspin,Norb,Norb) :: H
  !
  if(.not.Hgeneral_status)STOP "ERROR Hgeneral_build: Hgeneral_basis is not setup"
- allocate(lambda(size(Hreplica_basis)));lambda=1d0
+ allocate(lambda(size(Hgeneral_basis)));lambda=1d0
  if(present(lambdavec))then
  if(size(lambdavec)/=size(Hgeneral_basis)) STOP "ERROR Hgeneral_build: Wrong coefficient vector size"
  lambda = lambdavec