Commit 7c7b7853 authored by giannozz's avatar giannozz

Coommunicators in mix_pot reverted to previous value; mix_pot is

actually used only in phonon so it can stay there. Makefiles and 
make.depend update


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8706 c92efa57-630b-4861-b058-cf58834340f0
parent 617bca4e
New in 5.0 version
* More ways of calculating electron-phonon coefficients
* Full DFT+U scheme (with J and additinal parameters) implemented.
* Full DFT+U scheme (with J and additional parameters) implemented.
Should work also for fully-relativistic calculations
Incompatible changes in 5.0 version:
......
......@@ -94,6 +94,7 @@ init_representations.o \
io_dyn_mat.o \
io_pattern.o \
localdos.o \
mix_pot.o \
mode_group.o \
newdq.o \
openfilq.o \
......
......@@ -798,6 +798,10 @@ matdyn.o : ../../Modules/parameters.o
matdyn.o : ../../PW/src/pwcom.o
matdyn.o : ../../PW/src/symm_base.o
matdyn.o : io_dyn_mat.o
mix_pot.o : ../../Modules/io_files.o
mix_pot.o : ../../Modules/kind.o
mix_pot.o : ../../Modules/mp.o
mix_pot.o : ../../Modules/mp_global.o
mode_group.o : ../../Modules/constants.o
mode_group.o : ../../Modules/kind.o
newdq.o : ../../Modules/cell_base.o
......
!
! Copyright (C) 2001 PWSCF group
! Copyright (C) 2001-2012 Quantum ESPRESSO group
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
! in the root directory of the present distribution,
! or http://www.gnu.org/copyleft/gpl.txt .
!
!
!-----------------------------------------------------------------------
subroutine mix_potential (ndim, vout, vin, alphamix, dr2, tr2, &
iter, n_iter, file_extension, conv)
......@@ -30,7 +29,7 @@ subroutine mix_potential (ndim, vout, vin, alphamix, dr2, tr2, &
! vout vout-vin
! conv true if dr2.le.tr2
USE kinds, only : DP
USE mp_global, ONLY : intra_bgrp_comm
USE mp_global, ONLY : intra_pool_comm
USE mp, ONLY : mp_sum
USE io_files, ONLY : diropn
implicit none
......@@ -75,10 +74,10 @@ subroutine mix_potential (ndim, vout, vin, alphamix, dr2, tr2, &
enddo
dr2 = dnrm2 (ndim, vout, 1) **2
ndimtot = ndim
#ifdef __MPI
call mp_sum (dr2, intra_bgrp_comm)
call mp_sum (ndimtot, intra_bgrp_comm)
#endif
!
call mp_sum (dr2, intra_pool_comm)
call mp_sum (ndimtot, intra_pool_comm)
!
dr2 = (sqrt (dr2) / ndimtot) **2
conv = dr2.lt.tr2
......@@ -138,9 +137,7 @@ subroutine mix_potential (ndim, vout, vin, alphamix, dr2, tr2, &
dv (n, ipos) = vin (n) - dv (n, ipos)
enddo
norm = (dnrm2 (ndim, df (1, ipos), 1) ) **2
#ifdef __MPI
call mp_sum (norm, intra_bgrp_comm)
#endif
call mp_sum (norm, intra_pool_comm)
norm = sqrt (norm)
call dscal (ndim, 1.d0 / norm, df (1, ipos), 1)
call dscal (ndim, 1.d0 / norm, dv (1, ipos), 1)
......@@ -166,9 +163,7 @@ subroutine mix_potential (ndim, vout, vin, alphamix, dr2, tr2, &
do i = 1, iter_used
do j = i + 1, iter_used
beta (i, j) = w (i) * w (j) * ddot (ndim, df (1, j), 1, df (1, i), 1)
#ifdef __MPI
call mp_sum ( beta (i, j), intra_bgrp_comm )
#endif
call mp_sum ( beta (i, j), intra_pool_comm )
enddo
beta (i, i) = w0**2 + w (i) **2
enddo
......@@ -187,9 +182,7 @@ subroutine mix_potential (ndim, vout, vin, alphamix, dr2, tr2, &
do i = 1, iter_used
work (i) = ddot (ndim, df (1, i), 1, vout, 1)
enddo
#ifdef __MPI
call mp_sum ( work(1:iter_used), intra_bgrp_comm )
#endif
call mp_sum ( work(1:iter_used), intra_pool_comm )
!
do n = 1, ndim
vin (n) = vin (n) + alphamix * vout (n)
......
......@@ -114,7 +114,6 @@ make_pointlists.o \
makov_payne.o \
martyna_tuckerman.o \
memory_report.o \
mix_pot.o \
mix_rho.o \
move_ions.o \
ms2.o \
......
......@@ -689,6 +689,7 @@ init_at_1.o : pwcom.o
init_ns.o : ../../Modules/ions_base.o
init_ns.o : ../../Modules/kind.o
init_ns.o : ../../Modules/uspp.o
init_ns.o : noncol.o
init_ns.o : pwcom.o
init_ns.o : scf_mod.o
init_run.o : ../../Modules/cell_base.o
......@@ -784,6 +785,7 @@ io_rho_xml.o : ../../Modules/mp.o
io_rho_xml.o : ../../Modules/mp_global.o
io_rho_xml.o : ../../Modules/paw_variables.o
io_rho_xml.o : ../../Modules/xml_io_base.o
io_rho_xml.o : noncol.o
io_rho_xml.o : pwcom.o
io_rho_xml.o : scf_mod.o
irrek.o : ../../Modules/kind.o
......@@ -836,10 +838,6 @@ memory_report.o : ../../Modules/recvec.o
memory_report.o : ../../Modules/uspp.o
memory_report.o : noncol.o
memory_report.o : pwcom.o
mix_pot.o : ../../Modules/io_files.o
mix_pot.o : ../../Modules/kind.o
mix_pot.o : ../../Modules/mp.o
mix_pot.o : ../../Modules/mp_global.o
mix_rho.o : ../../Modules/cell_base.o
mix_rho.o : ../../Modules/constants.o
mix_rho.o : ../../Modules/control_flags.o
......@@ -885,9 +883,11 @@ new_ns.o : ../../Modules/ions_base.o
new_ns.o : ../../Modules/kind.o
new_ns.o : ../../Modules/mp.o
new_ns.o : ../../Modules/mp_global.o
new_ns.o : ../../Modules/recvec.o
new_ns.o : ../../Modules/wavefunctions.o
new_ns.o : becmod.o
new_ns.o : buffers.o
new_ns.o : noncol.o
new_ns.o : pwcom.o
new_ns.o : symm_base.o
new_occ.o : ../../Modules/constants.o
......@@ -940,6 +940,7 @@ nonloccorr.o : pwcom.o
ns_adj.o : ../../Modules/io_global.o
ns_adj.o : ../../Modules/ions_base.o
ns_adj.o : ../../Modules/kind.o
ns_adj.o : noncol.o
ns_adj.o : pwcom.o
ns_adj.o : scf_mod.o
offset_atom_wfc.o : ../../Modules/ions_base.o
......@@ -1032,6 +1033,16 @@ plugin_initialization.o : ../../Modules/io_files.o
plugin_initialization.o : ../../Modules/io_global.o
plugin_initialization.o : ../../Modules/kind.o
plugin_initialization.o : ../../Modules/plugin_flags.o
plus_u_full.o : ../../Modules/cell_base.o
plus_u_full.o : ../../Modules/constants.o
plus_u_full.o : ../../Modules/ions_base.o
plus_u_full.o : ../../Modules/kind.o
plus_u_full.o : ../../Modules/random_numbers.o
plus_u_full.o : ../../Modules/recvec.o
plus_u_full.o : ../../Modules/uspp.o
plus_u_full.o : noncol.o
plus_u_full.o : pwcom.o
plus_u_full.o : symm_base.o
potinit.o : ../../Modules/cell_base.o
potinit.o : ../../Modules/constants.o
potinit.o : ../../Modules/control_flags.o
......@@ -1672,8 +1683,8 @@ vhpsi.o : ../../Modules/ions_base.o
vhpsi.o : ../../Modules/kind.o
vhpsi.o : ../../Modules/mp.o
vhpsi.o : ../../Modules/mp_global.o
vhpsi.o : ../../Modules/recvec.o
vhpsi.o : becmod.o
vhpsi.o : noncol.o
vhpsi.o : pwcom.o
vhpsi.o : scf_mod.o
vloc_of_g.o : ../../Modules/constants.o
......@@ -1758,6 +1769,7 @@ write_ns.o : ../../Modules/constants.o
write_ns.o : ../../Modules/io_global.o
write_ns.o : ../../Modules/ions_base.o
write_ns.o : ../../Modules/kind.o
write_ns.o : noncol.o
write_ns.o : pwcom.o
write_ns.o : scf_mod.o
wsweight.o : ../../Modules/kind.o
......
......@@ -160,6 +160,7 @@ scat_states_plot.o : condcom.o
scat_states_plot.o : realus_scatt.o
scatter_forw.o : ../../Modules/cell_base.o
scatter_forw.o : ../../Modules/constants.o
scatter_forw.o : ../../Modules/mp_global.o
scatter_forw.o : ../../Modules/parameters.o
scatter_forw.o : ../../Modules/radial_grids.o
scatter_forw.o : ../../PW/src/noncol.o
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment