scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

More mp_global cleanup: PHonon, GWW

This commit is contained in:
Paolo Giannozzi 2019-01-31 22:09:24 +01:00
parent 649ff5de85
commit 00ff840eed
33 changed files with 56 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
EPW/src/make.depend
View File

@ -290,7 +290,6 @@ epw_init.o : ../../UtilXlib/mp.o
epw_init.o : constants_epw.o epw_init.o : constants_epw.o
epw_init.o : elph2.o epw_init.o : elph2.o
epw_readin.o : ../../LR_Modules/lrcom.o epw_readin.o : ../../LR_Modules/lrcom.o
epw_readin.o : ../../Modules/check_stop.o
epw_readin.o : ../../Modules/constants.o epw_readin.o : ../../Modules/constants.o
epw_readin.o : ../../Modules/control_flags.o epw_readin.o : ../../Modules/control_flags.o
epw_readin.o : ../../Modules/io_files.o epw_readin.o : ../../Modules/io_files.o
@ -305,6 +304,7 @@ epw_readin.o : ../../UtilXlib/mp.o
epw_readin.o : constants_epw.o epw_readin.o : constants_epw.o
epw_readin.o : elph2.o epw_readin.o : elph2.o
epw_readin.o : epwcom.o epw_readin.o : epwcom.o
epw_readin.o : io_epw.o
epw_setup.o : ../../LR_Modules/lrcom.o epw_setup.o : ../../LR_Modules/lrcom.o
epw_setup.o : ../../Modules/cell_base.o epw_setup.o : ../../Modules/cell_base.o
epw_setup.o : ../../Modules/control_flags.o epw_setup.o : ../../Modules/control_flags.o

1
GWW/head/bcast_ph_input.f90
View File

@ -20,7 +20,6 @@ subroutine bcast_ph_input ( )
use mp, only: mp_bcast use mp, only: mp_bcast
use mp_world, only: world_comm use mp_world, only: world_comm
USE mp_global, only : intra_image_comm
USE control_ph, ONLY : start_irr, last_irr, start_q, last_q, nmix_ph, & USE control_ph, ONLY : start_irr, last_irr, start_q, last_q, nmix_ph, &
niter_ph, lnoloc, alpha_mix, tr2_ph, recover, & niter_ph, lnoloc, alpha_mix, tr2_ph, recover, &
ldisp, reduce_io, zue, zeu, epsil, trans ldisp, reduce_io, zue, zeu, epsil, trans

1
GWW/head/close_phq.f90
View File

@ -16,7 +16,6 @@ SUBROUTINE close_phq( flag )
! ... Called at the end of the run with flag=.TRUE. (removes 'recover') ! ... Called at the end of the run with flag=.TRUE. (removes 'recover')
! ... or during execution with flag=.FALSE. (does not remove 'recover') ! ... or during execution with flag=.FALSE. (does not remove 'recover')
! !
USE mp_global, ONLY : me_pool
USE io_global, ONLY : ionode, stdout USE io_global, ONLY : ionode, stdout
USE uspp, ONLY : okvan USE uspp, ONLY : okvan
USE units_ph, ONLY : iudwf, iubar, iudrhous, iuebar, iudrho, & USE units_ph, ONLY : iudwf, iubar, iudrhous, iuebar, iudrho, &

2
GWW/head/head.f90
View File

@ -49,7 +49,7 @@ PROGRAM head
USE check_stop, ONLY : check_stop_init USE check_stop, ONLY : check_stop_init
USE ph_restart, ONLY : ph_writefile, destroy_status_run USE ph_restart, ONLY : ph_writefile, destroy_status_run
USE save_ph, ONLY : clean_input_variables USE save_ph, ONLY : clean_input_variables
USE mp_global, ONLY: mp_startup, nimage USE mp_global, ONLY: mp_startup !, nimage
!USE path_io_routines, ONLY : io_path_start !USE path_io_routines, ONLY : io_path_start
USE environment, ONLY: environment_start USE environment, ONLY: environment_start
USE wannier_gw, ONLY : l_head USE wannier_gw, ONLY : l_head

4
GWW/head/make.depend
View File

@ -4,7 +4,6 @@ bcast_ph_input.o : ../../Modules/control_flags.o
bcast_ph_input.o : ../../Modules/io_files.o bcast_ph_input.o : ../../Modules/io_files.o
bcast_ph_input.o : ../../Modules/io_global.o bcast_ph_input.o : ../../Modules/io_global.o
bcast_ph_input.o : ../../Modules/ions_base.o bcast_ph_input.o : ../../Modules/ions_base.o
bcast_ph_input.o : ../../Modules/mp_global.o
bcast_ph_input.o : ../../Modules/mp_world.o bcast_ph_input.o : ../../Modules/mp_world.o
bcast_ph_input.o : ../../Modules/run_info.o bcast_ph_input.o : ../../Modules/run_info.o
bcast_ph_input.o : ../../Modules/wannier_gw.o bcast_ph_input.o : ../../Modules/wannier_gw.o
@ -13,7 +12,6 @@ bcast_ph_input.o : ../../PHonon/PH/ramanm.o
bcast_ph_input.o : ../../UtilXlib/mp.o bcast_ph_input.o : ../../UtilXlib/mp.o
close_phq.o : ../../LR_Modules/lrcom.o close_phq.o : ../../LR_Modules/lrcom.o
close_phq.o : ../../Modules/io_global.o close_phq.o : ../../Modules/io_global.o
close_phq.o : ../../Modules/mp_global.o
close_phq.o : ../../Modules/uspp.o close_phq.o : ../../Modules/uspp.o
close_phq.o : ../../Modules/wannier_gw.o close_phq.o : ../../Modules/wannier_gw.o
close_phq.o : ../../PHonon/PH/phcom.o close_phq.o : ../../PHonon/PH/phcom.o
@ -49,7 +47,7 @@ openfilq.o : ../../Modules/fft_base.o
openfilq.o : ../../Modules/io_files.o openfilq.o : ../../Modules/io_files.o
openfilq.o : ../../Modules/io_global.o openfilq.o : ../../Modules/io_global.o
openfilq.o : ../../Modules/kind.o openfilq.o : ../../Modules/kind.o
openfilq.o : ../../Modules/mp_global.o openfilq.o : ../../Modules/mp_pools.o
openfilq.o : ../../Modules/noncol.o openfilq.o : ../../Modules/noncol.o
openfilq.o : ../../Modules/uspp.o openfilq.o : ../../Modules/uspp.o
openfilq.o : ../../Modules/wannier_gw.o openfilq.o : ../../Modules/wannier_gw.o

2
GWW/head/openfilq.f90
View File

@ -32,7 +32,7 @@ SUBROUTINE openfilq()
USE uspp, ONLY : nkb, okvan USE uspp, ONLY : nkb, okvan
USE io_files, ONLY : prefix,tmp_dir, diropn,seqopn USE io_files, ONLY : prefix,tmp_dir, diropn,seqopn
USE noncollin_module, ONLY : npol, nspin_mag USE noncollin_module, ONLY : npol, nspin_mag
USE mp_global, ONLY : me_pool USE mp_pools, ONLY : me_pool
USE io_global, ONLY : ionode USE io_global, ONLY : ionode
USE ramanm, ONLY: lraman, elop, iuchf, iud2w, iuba2, lrchf, lrd2w, lrba2 USE ramanm, ONLY: lraman, elop, iuchf, iud2w, iuba2, lrchf, lrd2w, lrba2
USE wannier_gw, ONLY : l_head USE wannier_gw, ONLY : l_head

2
GWW/pw4gww/calculate_wing.f90
View File

@ -20,7 +20,7 @@ subroutine calculate_wing(n_set, orthonorm)
USE gvect, ONLY : mill, ngm, gstart,g,ngm_g, ig_l2g USE gvect, ONLY : mill, ngm, gstart,g,ngm_g, ig_l2g
USE cell_base, ONLY : tpiba USE cell_base, ONLY : tpiba
USE mp_wave, ONLY : mergewf,splitwf USE mp_wave, ONLY : mergewf,splitwf
USE mp_global, ONLY : intra_pool_comm USE mp_pools, ONLY : intra_pool_comm
USE mp_world, ONLY : mpime, nproc, world_comm USE mp_world, ONLY : mpime, nproc, world_comm
USE wvfct, ONLY : npwx, npw USE wvfct, ONLY : npwx, npw
USE cell_base, ONLY : at,bg USE cell_base, ONLY : at,bg

2
GWW/pw4gww/cgsolve_all_gamma.f90
View File

@ -59,7 +59,7 @@ subroutine cgsolve_all_gamma (h_psi, cg_psi, e, d0psi, dpsi, h_diag, &
! revised (to reduce memory) 29 May 2004 by S. de Gironcoli ! revised (to reduce memory) 29 May 2004 by S. de Gironcoli
! !
USE kinds, ONLY : DP USE kinds, ONLY : DP
USE mp_global, ONLY : intra_pool_comm USE mp_pools, ONLY : intra_pool_comm
USE mp, ONLY : mp_sum USE mp, ONLY : mp_sum
USE control_flags, ONLY : gamma_only USE control_flags, ONLY : gamma_only
USE gvect, ONLY : gstart USE gvect, ONLY : gstart

1
GWW/pw4gww/dft_exchange.f90
View File

@ -15,7 +15,6 @@ subroutine dft_exchange(nbnd_v,nbnd_s,n_set, e_x,ks_wfcs)
USE io_global, ONLY : stdout, ionode, ionode_id USE io_global, ONLY : stdout, ionode, ionode_id
USE io_files, ONLY : prefix, tmp_dir, iunwfc, nwordwfc USE io_files, ONLY : prefix, tmp_dir, iunwfc, nwordwfc
USE mp_global, ONLY : nproc_pool, me_pool
USE kinds, ONLY : DP USE kinds, ONLY : DP
USE basis USE basis
USE klist USE klist

8
GWW/pw4gww/exchange_custom.f90
View File

@ -62,12 +62,12 @@ MODULE exchange_custom
!experimental version work just with factor 1/2 !experimental version work just with factor 1/2
USE io_global, ONLY : stdout, ionode,ionode_id USE io_global, ONLY : stdout, ionode,ionode_id
USE mp_global, ONLY : me_pool,intra_pool_comm USE mp_pools, ONLY : me_pool,intra_pool_comm
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2,bg USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2,bg
USE constants, ONLY : e2, pi, tpi, fpi, RYTOEV USE constants, ONLY : e2, pi, tpi, fpi, RYTOEV
USE wavefunctions, ONLY : psic USE wavefunctions, ONLY : psic
USE mp, ONLY : mp_sum USE mp, ONLY : mp_sum
USE mp_world, ONLY : world_comm, nproc USE mp_world, ONLY : nproc
USE wvfct, ONLY : npwx, npw, wg USE wvfct, ONLY : npwx, npw, wg
USE gvect USE gvect
USE mp_wave, ONLY : mergewf,splitwf USE mp_wave, ONLY : mergewf,splitwf
@ -793,7 +793,7 @@ MODULE exchange_custom
!experimental version work just with factor 1/2 !experimental version work just with factor 1/2
USE io_global, ONLY : stdout, ionode,ionode_id USE io_global, ONLY : stdout, ionode,ionode_id
USE mp_global, ONLY : me_pool,intra_pool_comm USE mp_pools, ONLY : me_pool,intra_pool_comm
USE cell_base, ONLY : at, alat, tpiba, omega, tpiba2,bg USE cell_base, ONLY : at, alat, tpiba, omega, tpiba2,bg
USE constants, ONLY : e2, pi, tpi, fpi, RYTOEV USE constants, ONLY : e2, pi, tpi, fpi, RYTOEV
USE wavefunctions, ONLY : psic USE wavefunctions, ONLY : psic
@ -1133,7 +1133,7 @@ MODULE exchange_custom
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2,bg USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2,bg
USE constants, ONLY : e2, pi, tpi, fpi, RYTOEV USE constants, ONLY : e2, pi, tpi, fpi, RYTOEV
USE wavefunctions, ONLY : psic USE wavefunctions, ONLY : psic
USE mp_global, ONLY : intra_pool_comm, me_pool USE mp_pools, ONLY : intra_pool_comm, me_pool
USE gvect USE gvect
USE mp_wave, ONLY : mergewf,splitwf USE mp_wave, ONLY : mergewf,splitwf
USE mp, ONLY : mp_barrier, mp_sum USE mp, ONLY : mp_barrier, mp_sum

9
GWW/pw4gww/fft_custom.f90
View File

@ -173,10 +173,9 @@ CONTAINS
! ngm, ngm_l, ngm_g, gcutm, ecutwfc ! ngm, ngm_l, ngm_g, gcutm, ecutwfc
! USE gsmooth, ONLY : nr1s, nr2s, nr3s, nrx1s, nrx2s, nrx3s, nrxxs, & ! USE gsmooth, ONLY : nr1s, nr2s, nr3s, nrx1s, nrx2s, nrx3s, nrxxs, &
! ngms, ngms_l, ngms_g, gcutms ! ngms, ngms_l, ngms_g, gcutms
USE mp, ONLY : mp_sum, mp_max,mp_barrier USE mp, ONLY : mp_sum, mp_max
USE mp_global, ONLY : intra_pool_comm, nproc_pool, me_pool, my_image_id, & USE mp_pools, ONLY : intra_pool_comm, nproc_pool, me_pool, &
inter_pool_comm,root_pool inter_pool_comm,root_pool
USE mp_world, ONLY : world_comm, nproc
USE stick_base USE stick_base
USE fft_support, ONLY : good_fft_dimension USE fft_support, ONLY : good_fft_dimension
USE fft_types, ONLY : fft_type_init USE fft_types, ONLY : fft_type_init
@ -371,8 +370,6 @@ SUBROUTINE initialize_fft_custom(fc)
USE cell_base, ONLY : at, bg,tpiba2,tpiba,omega,alat USE cell_base, ONLY : at, bg,tpiba2,tpiba,omega,alat
USE io_global, ONLY : stdout USE io_global, ONLY : stdout
use control_flags, ONLY : gamma_only use control_flags, ONLY : gamma_only
USE mp, ONLY : mp_barrier
USE mp_world, ONLY : world_comm
implicit none implicit none
@ -415,8 +412,6 @@ SUBROUTINE initialize_fft_custom_cell(fc)
USE cell_base, ONLY : at, bg,tpiba2,tpiba,omega,alat USE cell_base, ONLY : at, bg,tpiba2,tpiba,omega,alat
USE io_global, ONLY : stdout USE io_global, ONLY : stdout
use control_flags, ONLY : gamma_only use control_flags, ONLY : gamma_only
USE mp, ONLY : mp_barrier
USE mp_world, ONLY : world_comm
implicit none implicit none

14
GWW/pw4gww/make.depend
View File

@ -7,7 +7,7 @@ calculate_wing.o : ../../Modules/fft_base.o
calculate_wing.o : ../../Modules/io_files.o calculate_wing.o : ../../Modules/io_files.o
calculate_wing.o : ../../Modules/io_global.o calculate_wing.o : ../../Modules/io_global.o
calculate_wing.o : ../../Modules/kind.o calculate_wing.o : ../../Modules/kind.o
calculate_wing.o : ../../Modules/mp_global.o calculate_wing.o : ../../Modules/mp_pools.o
calculate_wing.o : ../../Modules/mp_wave.o calculate_wing.o : ../../Modules/mp_wave.o
calculate_wing.o : ../../Modules/mp_world.o calculate_wing.o : ../../Modules/mp_world.o
calculate_wing.o : ../../Modules/recvec.o calculate_wing.o : ../../Modules/recvec.o
@ -16,7 +16,7 @@ calculate_wing.o : ../../PW/src/pwcom.o
calculate_wing.o : ../../UtilXlib/mp.o calculate_wing.o : ../../UtilXlib/mp.o
cgsolve_all_gamma.o : ../../Modules/control_flags.o cgsolve_all_gamma.o : ../../Modules/control_flags.o
cgsolve_all_gamma.o : ../../Modules/kind.o cgsolve_all_gamma.o : ../../Modules/kind.o
cgsolve_all_gamma.o : ../../Modules/mp_global.o cgsolve_all_gamma.o : ../../Modules/mp_pools.o
cgsolve_all_gamma.o : ../../Modules/recvec.o cgsolve_all_gamma.o : ../../Modules/recvec.o
cgsolve_all_gamma.o : ../../UtilXlib/mp.o cgsolve_all_gamma.o : ../../UtilXlib/mp.o
contour_terms.o : ../../Modules/io_files.o contour_terms.o : ../../Modules/io_files.o
@ -38,7 +38,6 @@ dft_exchange.o : ../../Modules/io_files.o
dft_exchange.o : ../../Modules/io_global.o dft_exchange.o : ../../Modules/io_global.o
dft_exchange.o : ../../Modules/ions_base.o dft_exchange.o : ../../Modules/ions_base.o
dft_exchange.o : ../../Modules/kind.o dft_exchange.o : ../../Modules/kind.o
dft_exchange.o : ../../Modules/mp_global.o
dft_exchange.o : ../../Modules/mp_world.o dft_exchange.o : ../../Modules/mp_world.o
dft_exchange.o : ../../Modules/recvec.o dft_exchange.o : ../../Modules/recvec.o
dft_exchange.o : ../../Modules/uspp.o dft_exchange.o : ../../Modules/uspp.o
@ -86,7 +85,6 @@ exchange_custom.o : ../../Modules/gvecw.o
exchange_custom.o : ../../Modules/io_files.o exchange_custom.o : ../../Modules/io_files.o
exchange_custom.o : ../../Modules/io_global.o exchange_custom.o : ../../Modules/io_global.o
exchange_custom.o : ../../Modules/kind.o exchange_custom.o : ../../Modules/kind.o
exchange_custom.o : ../../Modules/mp_global.o
exchange_custom.o : ../../Modules/mp_pools.o exchange_custom.o : ../../Modules/mp_pools.o
exchange_custom.o : ../../Modules/mp_wave.o exchange_custom.o : ../../Modules/mp_wave.o
exchange_custom.o : ../../Modules/mp_world.o exchange_custom.o : ../../Modules/mp_world.o
@ -128,8 +126,7 @@ fft_custom.o : ../../Modules/control_flags.o
fft_custom.o : ../../Modules/fft_base.o fft_custom.o : ../../Modules/fft_base.o
fft_custom.o : ../../Modules/io_global.o fft_custom.o : ../../Modules/io_global.o
fft_custom.o : ../../Modules/kind.o fft_custom.o : ../../Modules/kind.o
fft_custom.o : ../../Modules/mp_global.o fft_custom.o : ../../Modules/mp_pools.o
fft_custom.o : ../../Modules/mp_world.o
fft_custom.o : ../../Modules/recvec.o fft_custom.o : ../../Modules/recvec.o
fft_custom.o : ../../PW/src/pwcom.o fft_custom.o : ../../PW/src/pwcom.o
fft_custom.o : ../../UtilXlib/mp.o fft_custom.o : ../../UtilXlib/mp.o
@ -160,7 +157,7 @@ matrix_wannier_gamma.o : ../../Modules/io_files.o
matrix_wannier_gamma.o : ../../Modules/io_global.o matrix_wannier_gamma.o : ../../Modules/io_global.o
matrix_wannier_gamma.o : ../../Modules/ions_base.o matrix_wannier_gamma.o : ../../Modules/ions_base.o
matrix_wannier_gamma.o : ../../Modules/kind.o matrix_wannier_gamma.o : ../../Modules/kind.o
matrix_wannier_gamma.o : ../../Modules/mp_global.o matrix_wannier_gamma.o : ../../Modules/mp_pools.o
matrix_wannier_gamma.o : ../../Modules/mp_world.o matrix_wannier_gamma.o : ../../Modules/mp_world.o
matrix_wannier_gamma.o : ../../Modules/recvec.o matrix_wannier_gamma.o : ../../Modules/recvec.o
matrix_wannier_gamma.o : ../../Modules/uspp.o matrix_wannier_gamma.o : ../../Modules/uspp.o
@ -178,7 +175,6 @@ o_1psi.o : ../../Modules/fft_base.o
o_1psi.o : ../../Modules/io_files.o o_1psi.o : ../../Modules/io_files.o
o_1psi.o : ../../Modules/io_global.o o_1psi.o : ../../Modules/io_global.o
o_1psi.o : ../../Modules/kind.o o_1psi.o : ../../Modules/kind.o
o_1psi.o : ../../Modules/mp_global.o
o_1psi.o : ../../Modules/mp_world.o o_1psi.o : ../../Modules/mp_world.o
o_1psi.o : ../../Modules/random_numbers.o o_1psi.o : ../../Modules/random_numbers.o
o_1psi.o : ../../Modules/recvec.o o_1psi.o : ../../Modules/recvec.o
@ -363,7 +359,7 @@ semicore_read.o : ../../Modules/fft_base.o
semicore_read.o : ../../Modules/io_files.o semicore_read.o : ../../Modules/io_files.o
semicore_read.o : ../../Modules/io_global.o semicore_read.o : ../../Modules/io_global.o
semicore_read.o : ../../Modules/kind.o semicore_read.o : ../../Modules/kind.o
semicore_read.o : ../../Modules/mp_global.o semicore_read.o : ../../Modules/mp_pools.o
semicore_read.o : ../../Modules/mp_wave.o semicore_read.o : ../../Modules/mp_wave.o
semicore_read.o : ../../Modules/mp_world.o semicore_read.o : ../../Modules/mp_world.o
semicore_read.o : ../../Modules/recvec.o semicore_read.o : ../../Modules/recvec.o

2
GWW/pw4gww/matrix_wannier_gamma.f90
View File

@ -93,7 +93,7 @@ subroutine matrix_wannier_gamma_big( matsincos, ispin, n_set, itask )
USE ions_base, ONLY : nat, ntyp =>nsp, ityp USE ions_base, ONLY : nat, ntyp =>nsp, ityp
USE uspp_param, ONLY : lmaxq,upf,nh, nhm USE uspp_param, ONLY : lmaxq,upf,nh, nhm
USE lsda_mod, ONLY : nspin USE lsda_mod, ONLY : nspin
USE mp_global, ONLY : intra_image_comm, me_pool USE mp_pools, ONLY : me_pool
USE mp, ONLY : mp_bcast,mp_barrier,mp_sum USE mp, ONLY : mp_bcast,mp_barrier,mp_sum
USE mp_world, ONLY : world_comm USE mp_world, ONLY : world_comm
USE fft_base, ONLY : dffts,dfftp USE fft_base, ONLY : dffts,dfftp

1
GWW/pw4gww/o_1psi.f90
View File

@ -22,7 +22,6 @@ SUBROUTINE o_rcgdiagg( npwx, npw, nbnd, psi, e, precondition, &
USE constants, ONLY : pi USE constants, ONLY : pi
USE kinds, ONLY : DP USE kinds, ONLY : DP
USE gvect, ONLY : gstart USE gvect, ONLY : gstart
USE mp_global, ONLY : intra_bgrp_comm
USE mp, ONLY : mp_sum USE mp, ONLY : mp_sum
USE mp_world, ONLY : world_comm USE mp_world, ONLY : world_comm
USE fft_base, ONLY : dffts USE fft_base, ONLY : dffts

2
GWW/pw4gww/semicore_read.f90
View File

@ -19,7 +19,7 @@
USE kinds, ONLY : DP USE kinds, ONLY : DP
USE gvect, ONLY : g, ig_l2g, gstart USE gvect, ONLY : g, ig_l2g, gstart
USE mp, ONLY : mp_sum, mp_barrier, mp_bcast USE mp, ONLY : mp_sum, mp_barrier, mp_bcast
USE mp_global, ONLY : inter_pool_comm, intra_pool_comm USE mp_pools, ONLY : inter_pool_comm, intra_pool_comm
USE mp_wave, ONLY : mergewf,splitwf USE mp_wave, ONLY : mergewf,splitwf
USE mp_world, ONLY : mpime, nproc, world_comm USE mp_world, ONLY : mpime, nproc, world_comm
USE fft_base, ONLY : dfftp, dffts USE fft_base, ONLY : dfftp, dffts

3
GWW/simple/make.depend
View File

@ -95,7 +95,7 @@ read_export.o : ../../Modules/io_files.o
read_export.o : ../../Modules/io_global.o read_export.o : ../../Modules/io_global.o
read_export.o : ../../Modules/ions_base.o read_export.o : ../../Modules/ions_base.o
read_export.o : ../../Modules/kind.o read_export.o : ../../Modules/kind.o
read_export.o : ../../Modules/mp_global.o read_export.o : ../../Modules/mp_pools.o
read_export.o : ../../Modules/mp_world.o read_export.o : ../../Modules/mp_world.o
read_export.o : ../../Modules/recvec.o read_export.o : ../../Modules/recvec.o
read_export.o : ../../Modules/uspp.o read_export.o : ../../Modules/uspp.o
@ -110,6 +110,7 @@ simple.o : ../../Modules/fft_base.o
simple.o : ../../Modules/io_files.o simple.o : ../../Modules/io_files.o
simple.o : ../../Modules/io_global.o simple.o : ../../Modules/io_global.o
simple.o : ../../Modules/mp_global.o simple.o : ../../Modules/mp_global.o
simple.o : ../../Modules/mp_pools.o
simple.o : ../../Modules/mp_world.o simple.o : ../../Modules/mp_world.o
simple.o : ../../Modules/recvec.o simple.o : ../../Modules/recvec.o
simple.o : ../../Modules/uspp.o simple.o : ../../Modules/uspp.o

5
GWW/simple/read_export.f90
View File

@ -17,9 +17,8 @@ subroutine read_export (pp_file,kunit,uspp_spsi, ascii, single_file, raw)
use io_files, ONLY : pseudo_dir, psfile use io_files, ONLY : pseudo_dir, psfile
use io_global, ONLY : ionode, stdout use io_global, ONLY : ionode, stdout
USE ions_base, ONLY : atm, nat, ityp, tau, nsp USE ions_base, ONLY : atm, nat, ityp, tau, nsp
use mp_global, ONLY : nproc_pool use mp_pools, ONLY : nproc_pool, my_pool_id, intra_pool_comm, inter_pool_comm
use mp_global, ONLY : my_pool_id, intra_pool_comm, inter_pool_comm USE mp_world, ONLY : world_comm, nproc
USE mp_world, ONLY : world_comm, mpime,nproc
use mp, ONLY : mp_sum, mp_max use mp, ONLY : mp_sum, mp_max
use ldaU, ONLY : lda_plus_u use ldaU, ONLY : lda_plus_u
USE gvecw, ONLY : ecutwfc USE gvecw, ONLY : ecutwfc

3
GWW/simple/simple.f90
View File

@ -9,7 +9,8 @@ program simple
use io_files, ONLY : prefix, tmp_dir use io_files, ONLY : prefix, tmp_dir
use io_files, ONLY : psfile, pseudo_dir use io_files, ONLY : psfile, pseudo_dir
use io_global, ONLY : stdout, ionode, ionode_id use io_global, ONLY : stdout, ionode, ionode_id
USE mp_global, ONLY: mp_startup,kunit USE mp_global, ONLY: mp_startup
USE mp_pools, ONLY : kunit
use mp_world, ONLY: mpime, world_comm use mp_world, ONLY: mpime, world_comm
USE environment, ONLY: environment_start USE environment, ONLY: environment_start
USE mp, ONLY : mp_bcast USE mp, ONLY : mp_bcast

3
PHonon/Gamma/cg_setup.f90
View File

@ -16,7 +16,6 @@ SUBROUTINE cg_setup
USE scf, ONLY: rho, rho_core, v, vltot, vrs, kedtau USE scf, ONLY: rho, rho_core, v, vltot, vrs, kedtau
USE uspp, ONLY: vkb, nlcc_any USE uspp, ONLY: vkb, nlcc_any
USE uspp_param, ONLY: upf USE uspp_param, ONLY: upf
USE mp_global, ONLY: kunit
USE wavefunctions, ONLY: evc USE wavefunctions, ONLY: evc
USE io_files, ONLY: prefix, iunpun, iunres, diropn USE io_files, ONLY: prefix, iunpun, iunres, diropn
USE funct, ONLY: dft_is_gradient, dmxc USE funct, ONLY: dft_is_gradient, dmxc
@ -37,7 +36,7 @@ SUBROUTINE cg_setup
LOGICAL :: exst LOGICAL :: exst
CHARACTER (len=256) :: filint CHARACTER (len=256) :: filint
REAL(DP) :: rhotot REAL(DP) :: rhotot
INTEGER :: ndr, kunittmp, ierr INTEGER :: ndr, ierr
REAL(DP) :: edum(1,1), wdum(1,1) REAL(DP) :: edum(1,1), wdum(1,1)
! !
CALL start_clock('cg_setup') CALL start_clock('cg_setup')

2
PHonon/Gamma/d2ion.f90
View File

@ -17,7 +17,7 @@ SUBROUTINE d2ion (nat,ntyp,ityp,zv,tau,alat,omega, &
USE kinds, ONLY : DP USE kinds, ONLY : DP
USE constants, ONLY : tpi, fpi, e2 USE constants, ONLY : tpi, fpi, e2
USE io_global, ONLY : stdout USE io_global, ONLY : stdout
USE mp_global, ONLY : intra_pool_comm USE mp_pools, ONLY : intra_pool_comm
USE mp, ONLY : mp_sum USE mp, ONLY : mp_sum
IMPLICIT NONE IMPLICIT NONE
INTEGER :: nat, ntyp, ngm, ityp(nat), nmodes, has_equivalent(nat) INTEGER :: nat, ntyp, ngm, ityp(nat), nmodes, has_equivalent(nat)

2
PHonon/Gamma/dielec.f90
View File

@ -15,7 +15,7 @@ SUBROUTINE dielec(do_zstar)
USE constants, ONLY : fpi USE constants, ONLY : fpi
USE cell_base, ONLY : omega USE cell_base, ONLY : omega
USE ions_base, ONLY : nat, zv, ityp USE ions_base, ONLY : nat, zv, ityp
USE mp_global, ONLY : intra_pool_comm USE mp_pools, ONLY : intra_pool_comm
USE mp, ONLY : mp_sum USE mp, ONLY : mp_sum
USE io_files, ONLY : seqopn USE io_files, ONLY : seqopn
USE klist, ONLY : wk, ngk USE klist, ONLY : wk, ngk

2
PHonon/Gamma/drhodv.f90
View File

@ -12,7 +12,7 @@ SUBROUTINE drhodv(nu_i)
! !
! calculate the electronic term <psi|dv|dpsi> of the dynamical matrix ! calculate the electronic term <psi|dv|dpsi> of the dynamical matrix
! !
USE mp_global, ONLY : intra_pool_comm USE mp_pools, ONLY : intra_pool_comm
USE mp, ONLY : mp_sum USE mp, ONLY : mp_sum
USE klist, ONLY : wk, ngk USE klist, ONLY : wk, ngk
USE wvfct, ONLY : nbnd, npwx USE wvfct, ONLY : nbnd, npwx

2
PHonon/Gamma/dynmatcc.f90
View File

@ -23,7 +23,7 @@ SUBROUTINE dynmatcc(dyncc)
USE scf, ONLY : rho, rho_core, rhog_core USE scf, ONLY : rho, rho_core, rhog_core
USE wavefunctions, ONLY: psic USE wavefunctions, ONLY: psic
USE cgcom USE cgcom
USE mp_global, ONLY : intra_pool_comm USE mp_pools, ONLY : intra_pool_comm
USE mp, ONLY : mp_sum USE mp, ONLY : mp_sum
IMPLICIT NONE IMPLICIT NONE

11
PHonon/Gamma/make.depend
View File

@ -33,7 +33,6 @@ cg_setup.o : ../../Modules/gvecw.o
cg_setup.o : ../../Modules/io_files.o cg_setup.o : ../../Modules/io_files.o
cg_setup.o : ../../Modules/ions_base.o cg_setup.o : ../../Modules/ions_base.o
cg_setup.o : ../../Modules/kind.o cg_setup.o : ../../Modules/kind.o
cg_setup.o : ../../Modules/mp_global.o
cg_setup.o : ../../Modules/recvec.o cg_setup.o : ../../Modules/recvec.o
cg_setup.o : ../../Modules/uspp.o cg_setup.o : ../../Modules/uspp.o
cg_setup.o : ../../Modules/wavefunctions.o cg_setup.o : ../../Modules/wavefunctions.o
@ -57,7 +56,7 @@ cgsolve.o : ../../Modules/kind.o
d2ion.o : ../../Modules/constants.o d2ion.o : ../../Modules/constants.o
d2ion.o : ../../Modules/io_global.o d2ion.o : ../../Modules/io_global.o
d2ion.o : ../../Modules/kind.o d2ion.o : ../../Modules/kind.o
d2ion.o : ../../Modules/mp_global.o d2ion.o : ../../Modules/mp_pools.o
d2ion.o : ../../UtilXlib/mp.o d2ion.o : ../../UtilXlib/mp.o
dgradcorr.o : ../../FFTXlib/fft_types.o dgradcorr.o : ../../FFTXlib/fft_types.o
dgradcorr.o : ../../Modules/kind.o dgradcorr.o : ../../Modules/kind.o
@ -65,11 +64,11 @@ dielec.o : ../../Modules/cell_base.o
dielec.o : ../../Modules/constants.o dielec.o : ../../Modules/constants.o
dielec.o : ../../Modules/io_files.o dielec.o : ../../Modules/io_files.o
dielec.o : ../../Modules/ions_base.o dielec.o : ../../Modules/ions_base.o
dielec.o : ../../Modules/mp_global.o dielec.o : ../../Modules/mp_pools.o
dielec.o : ../../PW/src/pwcom.o dielec.o : ../../PW/src/pwcom.o
dielec.o : ../../UtilXlib/mp.o dielec.o : ../../UtilXlib/mp.o
dielec.o : cgcom.o dielec.o : cgcom.o
drhodv.o : ../../Modules/mp_global.o drhodv.o : ../../Modules/mp_pools.o
drhodv.o : ../../PW/src/pwcom.o drhodv.o : ../../PW/src/pwcom.o
drhodv.o : ../../UtilXlib/mp.o drhodv.o : ../../UtilXlib/mp.o
drhodv.o : cgcom.o drhodv.o : cgcom.o
@ -112,7 +111,7 @@ dynmatcc.o : ../../Modules/constants.o
dynmatcc.o : ../../Modules/fft_base.o dynmatcc.o : ../../Modules/fft_base.o
dynmatcc.o : ../../Modules/ions_base.o dynmatcc.o : ../../Modules/ions_base.o
dynmatcc.o : ../../Modules/kind.o dynmatcc.o : ../../Modules/kind.o
dynmatcc.o : ../../Modules/mp_global.o dynmatcc.o : ../../Modules/mp_pools.o
dynmatcc.o : ../../Modules/recvec.o dynmatcc.o : ../../Modules/recvec.o
dynmatcc.o : ../../Modules/uspp.o dynmatcc.o : ../../Modules/uspp.o
dynmatcc.o : ../../Modules/wavefunctions.o dynmatcc.o : ../../Modules/wavefunctions.o
@ -164,7 +163,7 @@ rhod2vkb.o : ../../Modules/fft_base.o
rhod2vkb.o : ../../Modules/gvecw.o rhod2vkb.o : ../../Modules/gvecw.o
rhod2vkb.o : ../../Modules/ions_base.o rhod2vkb.o : ../../Modules/ions_base.o
rhod2vkb.o : ../../Modules/kind.o rhod2vkb.o : ../../Modules/kind.o
rhod2vkb.o : ../../Modules/mp_global.o rhod2vkb.o : ../../Modules/mp_pools.o
rhod2vkb.o : ../../Modules/recvec.o rhod2vkb.o : ../../Modules/recvec.o
rhod2vkb.o : ../../Modules/uspp.o rhod2vkb.o : ../../Modules/uspp.o
rhod2vkb.o : ../../Modules/wavefunctions.o rhod2vkb.o : ../../Modules/wavefunctions.o

2
PHonon/Gamma/rhod2vkb.f90
View File

@ -28,7 +28,7 @@ SUBROUTINE rhod2vkb(dyn0)
USE uspp_param, ONLY: nh USE uspp_param, ONLY: nh
USE becmod, ONLY: calbec USE becmod, ONLY: calbec
USE cgcom USE cgcom
USE mp_global, ONLY : intra_pool_comm USE mp_pools, ONLY : intra_pool_comm
USE mp, ONLY : mp_sum USE mp, ONLY : mp_sum
USE fft_base, ONLY : dffts, dfftp USE fft_base, ONLY : dffts, dfftp
USE fft_interfaces, ONLY : fwfft, invfft USE fft_interfaces, ONLY : fwfft, invfft

8
PHonon/PH/d2nsq_bare.f90
View File

@ -24,7 +24,7 @@ SUBROUTINE doubleprojqq (na, vec1, vec2, vec3, vec4, npw1, npw2, dpqq)
USE ions_base, ONLY : ityp USE ions_base, ONLY : ityp
USE uspp, ONLY : qq_nt USE uspp, ONLY : qq_nt
USE wvfct, ONLY : npwx, nbnd USE wvfct, ONLY : npwx, nbnd
USE mp_global, ONLY : intra_pool_comm USE mp_pools, ONLY : intra_pool_comm
USE mp, ONLY : mp_sum USE mp, ONLY : mp_sum
USE control_lr, ONLY : ofsbeta USE control_lr, ONLY : ofsbeta
! !
@ -114,7 +114,7 @@ SUBROUTINE doubleprojqq2 (na, proj, vec3, vec4, npw2, dpqq)
USE ions_base, ONLY : ityp USE ions_base, ONLY : ityp
USE uspp, ONLY : qq_nt USE uspp, ONLY : qq_nt
USE wvfct, ONLY : npwx, nbnd USE wvfct, ONLY : npwx, nbnd
USE mp_global, ONLY : intra_pool_comm USE mp_pools, ONLY : intra_pool_comm
USE mp, ONLY : mp_sum USE mp, ONLY : mp_sum
USE control_lr, ONLY : ofsbeta USE control_lr, ONLY : ofsbeta
! !
@ -184,7 +184,7 @@ END MODULE doubleprojqq_module
!-------------------------------------------------------- !--------------------------------------------------------
MODULE term_one_1_module MODULE term_one_1_module
!-------------------------------------------------------- !--------------------------------------------------------
USE mp_global, ONLY : intra_pool_comm USE mp_pools, ONLY : intra_pool_comm
USE mp, ONLY: mp_sum USE mp, ONLY: mp_sum
! !
CONTAINS CONTAINS
@ -687,7 +687,7 @@ END MODULE term_one_module
!------------------------------------------------------------------------- !-------------------------------------------------------------------------
MODULE term_three_module MODULE term_three_module
!------------------------------------------------------------------------- !-------------------------------------------------------------------------
USE mp_global, ONLY : intra_pool_comm USE mp_pools, ONLY : intra_pool_comm
USE mp, ONLY : mp_sum USE mp, ONLY : mp_sum
! !
CONTAINS CONTAINS

2
PHonon/PH/delta_sphi.f90
View File

@ -41,7 +41,7 @@ SUBROUTINE delta_sphi (ikk, ikq, na, icart, nah, ihubst, wfcatomk_, wfcatomkpq_,
USE uspp, ONLY : nkb, qq_nt, okvan USE uspp, ONLY : nkb, qq_nt, okvan
USE ldaU, ONLY : nwfcU USE ldaU, ONLY : nwfcU
USE wvfct, ONLY : npwx USE wvfct, ONLY : npwx
USE mp_global, ONLY : intra_pool_comm USE mp_pools, ONLY : intra_pool_comm
USE mp, ONLY : mp_sum USE mp, ONLY : mp_sum
USE klist, ONLY : ngk USE klist, ONLY : ngk
USE io_global, ONLY : stdout USE io_global, ONLY : stdout

9
PHonon/PH/dnsq_orth.f90
View File

@ -44,12 +44,11 @@ SUBROUTINE dnsq_orth()
USE eqv, ONLY : evq USE eqv, ONLY : evq
USE uspp, ONLY : okvan, nkb, vkb USE uspp, ONLY : okvan, nkb, vkb
USE control_flags, ONLY : iverbosity USE control_flags, ONLY : iverbosity
USE mp_global, ONLY : intra_pool_comm, inter_pool_comm
USE mp, ONLY : mp_sum, mp_bcast USE mp, ONLY : mp_sum, mp_bcast
USE mp_pools, ONLY : intra_pool_comm, inter_pool_comm
USE mp_world, ONLY : world_comm
USE io_files, ONLY : seqopn USE io_files, ONLY : seqopn
USE buffers, ONLY : get_buffer USE buffers, ONLY : get_buffer
USE mp_world, ONLY : world_comm
USE mp_images, ONLY : intra_image_comm
USE doubleprojqq_module USE doubleprojqq_module
! !
IMPLICIT NONE IMPLICIT NONE
@ -117,10 +116,6 @@ SUBROUTINE dnsq_orth()
CALL mp_bcast(ios, ionode_id, world_comm) CALL mp_bcast(ios, ionode_id, world_comm)
IF (exst.and.ios==0) CALL mp_bcast(dnsorth_cart, ionode_id, world_comm) IF (exst.and.ios==0) CALL mp_bcast(dnsorth_cart, ionode_id, world_comm)
! !
! IT: Is it needed to broadcast for intra_image_comm?
CALL mp_bcast(ios, ionode_id, intra_image_comm)
IF (exst .AND. ios==0) CALL mp_bcast(dnsorth_cart, ionode_id, intra_image_comm)
!
ENDIF ENDIF
! !
! Compute dnsorth_cart (if it was not already done) ! Compute dnsorth_cart (if it was not already done)

2
PHonon/PH/dynmat_hub_bare.f90
View File

@ -50,8 +50,8 @@ SUBROUTINE dynmat_hub_bare
USE control_flags, ONLY : iverbosity USE control_flags, ONLY : iverbosity
USE d2nsq_bare_module USE d2nsq_bare_module
USE scf, ONLY : rho USE scf, ONLY : rho
USE mp_global, ONLY : intra_pool_comm, inter_pool_comm
USE mp, ONLY : mp_sum, mp_bcast USE mp, ONLY : mp_sum, mp_bcast
USE mp_pools, ONLY : intra_pool_comm, inter_pool_comm
USE mp_world, ONLY : world_comm USE mp_world, ONLY : world_comm
USE io_files, ONLY : seqopn USE io_files, ONLY : seqopn
USE buffers, ONLY : get_buffer USE buffers, ONLY : get_buffer

13
PHonon/PH/make.depend
View File

@ -307,7 +307,7 @@ d2nsq_bare.o : ../../LR_Modules/lrcom.o
d2nsq_bare.o : ../../Modules/io_global.o d2nsq_bare.o : ../../Modules/io_global.o
d2nsq_bare.o : ../../Modules/ions_base.o d2nsq_bare.o : ../../Modules/ions_base.o
d2nsq_bare.o : ../../Modules/kind.o d2nsq_bare.o : ../../Modules/kind.o
d2nsq_bare.o : ../../Modules/mp_global.o d2nsq_bare.o : ../../Modules/mp_pools.o
d2nsq_bare.o : ../../Modules/uspp.o d2nsq_bare.o : ../../Modules/uspp.o
d2nsq_bare.o : ../../Modules/wavefunctions.o d2nsq_bare.o : ../../Modules/wavefunctions.o
d2nsq_bare.o : ../../PW/src/ldaU.o d2nsq_bare.o : ../../PW/src/ldaU.o
@ -336,7 +336,7 @@ delta_sphi.o : ../../LR_Modules/lrcom.o
delta_sphi.o : ../../Modules/io_global.o delta_sphi.o : ../../Modules/io_global.o
delta_sphi.o : ../../Modules/ions_base.o delta_sphi.o : ../../Modules/ions_base.o
delta_sphi.o : ../../Modules/kind.o delta_sphi.o : ../../Modules/kind.o
delta_sphi.o : ../../Modules/mp_global.o delta_sphi.o : ../../Modules/mp_pools.o
delta_sphi.o : ../../Modules/uspp.o delta_sphi.o : ../../Modules/uspp.o
delta_sphi.o : ../../PW/src/ldaU.o delta_sphi.o : ../../PW/src/ldaU.o
delta_sphi.o : ../../PW/src/pwcom.o delta_sphi.o : ../../PW/src/pwcom.o
@ -423,8 +423,7 @@ dnsq_orth.o : ../../Modules/io_files.o
dnsq_orth.o : ../../Modules/io_global.o dnsq_orth.o : ../../Modules/io_global.o
dnsq_orth.o : ../../Modules/ions_base.o dnsq_orth.o : ../../Modules/ions_base.o
dnsq_orth.o : ../../Modules/kind.o dnsq_orth.o : ../../Modules/kind.o
dnsq_orth.o : ../../Modules/mp_global.o dnsq_orth.o : ../../Modules/mp_pools.o
dnsq_orth.o : ../../Modules/mp_images.o
dnsq_orth.o : ../../Modules/mp_world.o dnsq_orth.o : ../../Modules/mp_world.o
dnsq_orth.o : ../../Modules/uspp.o dnsq_orth.o : ../../Modules/uspp.o
dnsq_orth.o : ../../Modules/wavefunctions.o dnsq_orth.o : ../../Modules/wavefunctions.o
@ -685,7 +684,7 @@ dynmat_hub_bare.o : ../../Modules/io_files.o
dynmat_hub_bare.o : ../../Modules/io_global.o dynmat_hub_bare.o : ../../Modules/io_global.o
dynmat_hub_bare.o : ../../Modules/ions_base.o dynmat_hub_bare.o : ../../Modules/ions_base.o
dynmat_hub_bare.o : ../../Modules/kind.o dynmat_hub_bare.o : ../../Modules/kind.o
dynmat_hub_bare.o : ../../Modules/mp_global.o dynmat_hub_bare.o : ../../Modules/mp_pools.o
dynmat_hub_bare.o : ../../Modules/mp_world.o dynmat_hub_bare.o : ../../Modules/mp_world.o
dynmat_hub_bare.o : ../../Modules/uspp.o dynmat_hub_bare.o : ../../Modules/uspp.o
dynmat_hub_bare.o : ../../Modules/wavefunctions.o dynmat_hub_bare.o : ../../Modules/wavefunctions.o
@ -1008,7 +1007,7 @@ obsolete.o : ../../Modules/control_flags.o
obsolete.o : ../../Modules/io_global.o obsolete.o : ../../Modules/io_global.o
obsolete.o : ../../Modules/ions_base.o obsolete.o : ../../Modules/ions_base.o
obsolete.o : ../../Modules/kind.o obsolete.o : ../../Modules/kind.o
obsolete.o : ../../Modules/mp_global.o obsolete.o : ../../Modules/mp_images.o
obsolete.o : ../../Modules/noncol.o obsolete.o : ../../Modules/noncol.o
obsolete.o : ../../Modules/random_numbers.o obsolete.o : ../../Modules/random_numbers.o
obsolete.o : ../../Modules/recvec.o obsolete.o : ../../Modules/recvec.o
@ -1124,8 +1123,6 @@ phq_readin.o : ../../Modules/io_files.o
phq_readin.o : ../../Modules/io_global.o phq_readin.o : ../../Modules/io_global.o
phq_readin.o : ../../Modules/ions_base.o phq_readin.o : ../../Modules/ions_base.o
phq_readin.o : ../../Modules/kind.o phq_readin.o : ../../Modules/kind.o
phq_readin.o : ../../Modules/mp_bands.o
phq_readin.o : ../../Modules/mp_global.o
phq_readin.o : ../../Modules/mp_images.o phq_readin.o : ../../Modules/mp_images.o
phq_readin.o : ../../Modules/mp_pools.o phq_readin.o : ../../Modules/mp_pools.o
phq_readin.o : ../../Modules/mp_world.o phq_readin.o : ../../Modules/mp_world.o

10
PHonon/PH/obsolete.f90
View File

@ -158,14 +158,14 @@ subroutine set_irr (nat, at, bg, xq, s, sr, tau, ntyp, ityp, ftau, invs, nsym, &
! April 1997: parallel stuff added (SdG) ! April 1997: parallel stuff added (SdG)
! !
USE io_global, ONLY : stdout USE io_global, ONLY : stdout
USE kinds, only : DP USE kinds, ONLY : DP
USE constants, ONLY: tpi USE constants, ONLY: tpi
USE random_numbers, ONLY : randy USE random_numbers, ONLY : randy
USE rap_point_group, ONLY : name_rap USE rap_point_group, ONLY : name_rap
#if defined(__MPI) #if defined(__MPI)
use mp, only: mp_bcast USE mp, ONLY: mp_bcast
use io_global, only : ionode_id USE io_global, ONLY : ionode_id
use mp_global, only : intra_image_comm USE mp_images, ONLY : intra_image_comm
#endif #endif
implicit none implicit none
! !
@ -761,7 +761,7 @@ subroutine set_irr_sym (nat, at, bg, xq, s, rtau, irt, &
USE constants, ONLY: tpi USE constants, ONLY: tpi
USE mp, ONLY: mp_bcast USE mp, ONLY: mp_bcast
USE mp_global, ONLY : intra_image_comm USE mp_images, ONLY : intra_image_comm
USE io_global, ONLY : ionode_id USE io_global, ONLY : ionode_id
implicit none implicit none
! !

5
PHonon/PH/phq_readin.f90
View File

@ -57,10 +57,7 @@ SUBROUTINE phq_readin()
USE io_global, ONLY : meta_ionode, meta_ionode_id, ionode, ionode_id, stdout USE io_global, ONLY : meta_ionode, meta_ionode_id, ionode, ionode_id, stdout
USE mp_images, ONLY : nimage, my_image_id, intra_image_comm, & USE mp_images, ONLY : nimage, my_image_id, intra_image_comm, &
me_image, nproc_image me_image, nproc_image
USE mp_global, ONLY : nproc_pool_file, & USE mp_pools, ONLY : npool
nproc_bgrp_file, nproc_image_file
USE mp_pools, ONLY : nproc_pool, npool
USE mp_bands, ONLY : nproc_bgrp, ntask_groups
USE paw_variables, ONLY : okpaw USE paw_variables, ONLY : okpaw
USE ramanm, ONLY : eth_rps, eth_ns, lraman, elop, dek USE ramanm, ONLY : eth_rps, eth_ns, lraman, elop, dek
USE freq_ph, ONLY : fpol, fiu, nfs USE freq_ph, ONLY : fpol, fiu, nfs

2
PHonon/PH/q2trans_fd.f90
View File

@ -61,7 +61,7 @@ USE iotk_module
USE kinds, ONLY : DP USE kinds, ONLY : DP
USE mp, ONLY : mp_bcast USE mp, ONLY : mp_bcast
USE mp_global, ONLY : mp_startup, mp_global_end USE mp_global, ONLY : mp_startup, mp_global_end
USE mp_world, ONLY : nproc, mpime, world_comm USE mp_world, ONLY : world_comm
USE dynamicalq, ONLY : phiq, tau, ityp, zeu USE dynamicalq, ONLY : phiq, tau, ityp, zeu
USE io_global, ONLY : ionode_id, ionode, stdout USE io_global, ONLY : ionode_id, ionode, stdout
USE io_dyn_mat, ONLY : read_dyn_mat_param, read_dyn_mat_header, & USE io_dyn_mat, ONLY : read_dyn_mat_param, read_dyn_mat_header, &