From 307942d59e6afb974203811bf8342f2281f0c1cb Mon Sep 17 00:00:00 2001 From: QuanSheng Wu Date: Wed, 8 May 2024 11:13:45 +0800 Subject: [PATCH] fixed a bug about ndegen in landau_level_sparse.f90 reported by Yan Zhang --- src/landau_level_sparse.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/landau_level_sparse.f90 b/src/landau_level_sparse.f90 index 16ab28c6..0e9330a7 100644 --- a/src/landau_level_sparse.f90 +++ b/src/landau_level_sparse.f90 @@ -438,7 +438,7 @@ subroutine ham_3Dlandau_sparseHR(nnz, Ndimq, Nq, k, acoo,jcoo,icoo) phase=phase2(Ri,Rj) fac= cos(phase)+ zi*sin(phase) - tmp=hacoo(ims)*ratio/ndegen(iR)* fac + tmp=hacoo(ims)*ratio* fac if(abs(tmp)/eV2Hartree > 1e-6) then ncoo=ncoo+1 icoo(ncoo)=hicoo(ims)+(i1-1)*Num_wann @@ -500,7 +500,7 @@ subroutine ham_3Dlandau_sparseHR(nnz, Ndimq, Nq, k, acoo,jcoo,icoo) phase=phase2(Ri,Rj) fac= cos(phase)+ zi*sin(phase) - tmp=hacoo(ims)*ratio/ndegen(iR)* fac + tmp=hacoo(ims)*ratio* fac if(abs(tmp)/eV2Hartree > 1e-6) then ncoo=ncoo+1 icoo(ncoo)=hicoo(ims)+(i1-1)*Num_wann