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