Pwcond does not work with pools. Added a check to stop this case.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4497 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2007-12-04 14:00:08 +00:00
parent ef824789a1
commit 152827096e
1 changed files with 5 additions and 0 deletions

View File

@ -19,6 +19,7 @@ SUBROUTINE do_cond(nodenumber)
USE io_files
USE noncollin_module, ONLY : noncolin, i_cons
USE io_global, ONLY : stdout, ionode, ionode_id
USE mp_global, ONLY : npool
USE paw_onecenter, ONLY : PAW_potential
USE paw_variables, ONLY : okpaw
@ -130,6 +131,10 @@ SUBROUTINE do_cond(nodenumber)
!
END IF
#ifdef __PARA
IF ( npool > 1 ) CALL errore('pwcond','pools not implemented',npool)
#endif
!
! ... Broadcast variables
!