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

Added error trap to turbo_tddfpt to catch a change in the number of band groups between pw.x and turbo_lanczos.x . 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9499 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sbinnie 2012-10-09 15:31:38 +00:00
parent 8c42e3db5c
commit 097f3f1e62
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
TDDFPT/src/lr_readin.f90
View File

@ -43,7 +43,8 @@ SUBROUTINE lr_readin
USE mp_global, ONLY : my_pool_id, intra_image_comm, &
& intra_pool_comm, nproc_image, &
& nproc_pool, nproc_pool_file, &
& nproc_image_file
& nproc_image_file, nproc_bgrp, &
& nproc_bgrp_file
USE io_global, ONLY : ionode, ionode_id
USE DFUNCT, ONLY : newd
USE vlocal, ONLY : strf
@ -303,7 +304,10 @@ CONTAINS
CALL errore('lr_readin',&
& 'pw.x run with a different number of pools. &
& Use wf_collect=.true.',1)
IF (nproc_bgrp /= nproc_bgrp_file .AND. .NOT. twfcollect) &
CALL errore('lr_readin',&
& 'pw.x run with a different number of band groups. &
& Use wf_collect=.true.',1)
!
END SUBROUTINE input_sanity