mirror of https://gitlab.com/QEF/q-e.git
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:
parent
f7338bd482
commit
bc5f8817c9
|
@ -219,7 +219,7 @@ SUBROUTINE pcdiaghg( n, h, s, ldh, e, v, desc )
|
|||
!
|
||||
USE kinds, ONLY : DP
|
||||
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 descriptors, ONLY : descla_siz_ , lambda_node_ , nlax_ , la_nrl_ , la_nrlx_ , &
|
||||
la_npc_ , la_npr_ , la_me_ , la_comm_ , la_myc_ , la_myr_ , &
|
||||
|
|
|
@ -27,7 +27,6 @@ subroutine diropn (unit, extension, recl, exst)
|
|||
!
|
||||
USE kinds
|
||||
use io_files, only: prefix, tmp_dir, nd_nmbr
|
||||
use mp_global, only: mpime
|
||||
implicit none
|
||||
!
|
||||
! first the input variables
|
||||
|
|
|
@ -674,7 +674,7 @@ CONTAINS
|
|||
USE gvect, ONLY : g, nl
|
||||
|
||||
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
|
||||
|
||||
|
||||
|
|
|
@ -339,7 +339,6 @@ deriv_drhoc.o : ../Modules/constants.o
|
|||
deriv_drhoc.o : ../Modules/kind.o
|
||||
diropn.o : ../Modules/io_files.o
|
||||
diropn.o : ../Modules/kind.o
|
||||
diropn.o : ../Modules/mp_global.o
|
||||
divide.o : ../Modules/mp_global.o
|
||||
divide_class.o : ../Modules/kind.o
|
||||
divide_class_so.o : ../Modules/constants.o
|
||||
|
|
|
@ -226,7 +226,7 @@ SUBROUTINE summary()
|
|||
! description of symmetries
|
||||
!
|
||||
IF (nsym.LE.1) THEN
|
||||
WRITE( stdout, '(/5x,"No symmetry!")')
|
||||
WRITE( stdout, '(/5x,"No symmetry found")')
|
||||
ELSE
|
||||
IF (invsym) THEN
|
||||
WRITE( stdout, '(/5x,i2," Sym.Ops. (with inversion)",/)') nsym
|
||||
|
|
|
@ -472,7 +472,7 @@ SUBROUTINE extrapolate_wfcs( wfc_extr )
|
|||
USE control_flags, ONLY : gamma_only
|
||||
USE becmod, ONLY : allocate_bec_type, deallocate_bec_type, &
|
||||
bec_type, becp, calbec
|
||||
USE mp_global, ONLY : intra_image_comm, mpime
|
||||
USE mp_global, ONLY : intra_image_comm
|
||||
USE mp, ONLY : mp_barrier
|
||||
!
|
||||
IMPLICIT NONE
|
||||
|
|
Loading…
Reference in New Issue