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

Fixed two bugs in new I/O, introduced yesterday 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@12844 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2016-08-26 06:33:18 +00:00
parent 45a9c121aa
commit 1ce909f974
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Modules/io_base.f90
View File

@ -139,7 +139,6 @@ MODULE io_base
!
igwx = MAXVAL( igl(1:ngwl) )
CALL mp_max( igwx, intra_group_comm )
ALLOCATE( wtmp( MAX( igwx, 1 ) ) )
!
ierr = 0
!

4
PW/src/pw_restart_new.f90
View File

@ -431,7 +431,7 @@ MODULE pw_restart_new
USE fft_base, ONLY : dfftp
USE basis, ONLY : natomwfc
USE gvecs, ONLY : ngms_g, dual
USE wvfct, ONLY : npw, npwx, et, wg, nbnd
USE wvfct, ONLY : npwx, et, wg, nbnd
USE lsda_mod, ONLY : nspin, isk, lsda
USE mp_pools, ONLY : nproc_pool, me_pool, root_pool, &
intra_pool_comm, inter_pool_comm
@ -2100,7 +2100,7 @@ MODULE pw_restart_new
igk_l2g = 0
!
DO ik = 1, nks
DO ig = 1, npw
DO ig = 1, ngk(ik)
igk_l2g(ig,ik) = ig_l2g(igk_k(ig,ik))
END DO
!