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