From bd9df0d01b2307a9fcb7e6399f875a2dd810ead5 Mon Sep 17 00:00:00 2001 From: Seung-Ju Hong Date: Sat, 15 Jun 2024 22:36:02 +0900 Subject: [PATCH] Fixed Bug --- src/wannierise.F90 | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/src/wannierise.F90 b/src/wannierise.F90 index e53f51f3..50e2acf4 100644 --- a/src/wannierise.F90 +++ b/src/wannierise.F90 @@ -2546,20 +2546,6 @@ subroutine wann_domega(dist_k, csheet, sheet, rave, num_wann, kmesh_info, num_kp enddo enddo - sum_mnn = 0.0_dp - do n = 1, num_wann - do nn = 1, kmesh_info%nntot - do nkp_loc = 1, nkrank - nkp = global_k(nkp_loc) - ! Note that this ln_tmp is defined differently wrt the one in wann_domega - sum_mnn(n, nn) = sum_mnn(n, nn) + m_matrix_loc(n, n, nn, nkp_loc) - enddo - enddo - enddo - - call comms_allreduce(sum_mnn(1, 1), num_wann*kmesh_info%nntot, 'SUM', error, comm) - if (allocated(error)) return - cdodq_loc = cmplx_0 do nkp_loc = 1, nkrank do n = 1, num_wann