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

mpime not used in several places, minor updates. I also removed the "!" 

in "no symmetry" because it makes unnecessary confusion with the "!"
marking the converged scf energy


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@5992 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2009-10-01 19:31:20 +00:00
parent f7338bd482
commit bc5f8817c9
6 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PW/cdiaghg.f90
View File

@ -219,7 +219,7 @@ SUBROUTINE pcdiaghg( n, h, s, ldh, e, v, desc )
! !
USE kinds, ONLY : DP USE kinds, ONLY : DP
USE mp, ONLY : mp_bcast USE mp, ONLY : mp_bcast
USE mp_global, ONLY : root_pool, intra_pool_comm, mpime USE mp_global, ONLY : root_pool, intra_pool_comm
USE zhpev_module, ONLY : pzhpev_drv, zhpev_drv USE zhpev_module, ONLY : pzhpev_drv, zhpev_drv
USE descriptors, ONLY : descla_siz_ , lambda_node_ , nlax_ , la_nrl_ , la_nrlx_ , & USE descriptors, ONLY : descla_siz_ , lambda_node_ , nlax_ , la_nrl_ , la_nrlx_ , &
la_npc_ , la_npr_ , la_me_ , la_comm_ , la_myc_ , la_myr_ , & la_npc_ , la_npr_ , la_me_ , la_comm_ , la_myc_ , la_myr_ , &

1
PW/diropn.f90
View File

@ -27,7 +27,6 @@ subroutine diropn (unit, extension, recl, exst)
! !
USE kinds USE kinds
use io_files, only: prefix, tmp_dir, nd_nmbr use io_files, only: prefix, tmp_dir, nd_nmbr
use mp_global, only: mpime
implicit none implicit none
! !
! first the input variables ! first the input variables

2
PW/exx.f90
View File

@ -674,7 +674,7 @@ CONTAINS
USE gvect, ONLY : g, nl USE gvect, ONLY : g, nl
USE parallel_include USE parallel_include
USE mp_global, ONLY : nproc, inter_image_comm, me_image, mpime, my_image_id, nimage, nproc_image USE mp_global, ONLY : nproc, inter_image_comm, me_image, my_image_id, nimage, nproc_image
USE mp, ONLY : mp_sum USE mp, ONLY : mp_sum

1
PW/make.depend
View File

@ -339,7 +339,6 @@ deriv_drhoc.o : ../Modules/constants.o
deriv_drhoc.o : ../Modules/kind.o deriv_drhoc.o : ../Modules/kind.o
diropn.o : ../Modules/io_files.o diropn.o : ../Modules/io_files.o
diropn.o : ../Modules/kind.o diropn.o : ../Modules/kind.o
diropn.o : ../Modules/mp_global.o
divide.o : ../Modules/mp_global.o divide.o : ../Modules/mp_global.o
divide_class.o : ../Modules/kind.o divide_class.o : ../Modules/kind.o
divide_class_so.o : ../Modules/constants.o divide_class_so.o : ../Modules/constants.o

2
PW/summary.f90
View File

@ -226,7 +226,7 @@ SUBROUTINE summary()
! description of symmetries ! description of symmetries
! !
IF (nsym.LE.1) THEN IF (nsym.LE.1) THEN
WRITE( stdout, '(/5x,"No symmetry!")') WRITE( stdout, '(/5x,"No symmetry found")')
ELSE ELSE
IF (invsym) THEN IF (invsym) THEN
WRITE( stdout, '(/5x,i2," Sym.Ops. (with inversion)",/)') nsym WRITE( stdout, '(/5x,i2," Sym.Ops. (with inversion)",/)') nsym

2
PW/update_pot.f90
View File

@ -472,7 +472,7 @@ SUBROUTINE extrapolate_wfcs( wfc_extr )
USE control_flags, ONLY : gamma_only USE control_flags, ONLY : gamma_only
USE becmod, ONLY : allocate_bec_type, deallocate_bec_type, & USE becmod, ONLY : allocate_bec_type, deallocate_bec_type, &
bec_type, becp, calbec bec_type, becp, calbec
USE mp_global, ONLY : intra_image_comm, mpime USE mp_global, ONLY : intra_image_comm
USE mp, ONLY : mp_barrier USE mp, ONLY : mp_barrier
! !
IMPLICIT NONE IMPLICIT NONE