Commit 9f04505f authored by sponce's avatar sponce

Seq. compilation case with etf_mem=2 handled.



git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13649 c92efa57-630b-4861-b058-cf58834340f0
parent 0fa45ab6
......@@ -767,7 +767,16 @@
! the electron-phonon wannier interpolation
!
IF(etf_mem == 0 .OR. etf_mem == 1 ) CALL ephwann_shuffle ( nqc, xqc )
IF(etf_mem == 2 ) CALL ephwann_shuffle_mem ( nqc, xqc )
IF(etf_mem == 2 ) THEN
#if defined(__MPI)
CALL ephwann_shuffle_mem ( nqc, xqc )
#else
WRITE(stdout,'(/5x,a') 'WARNING: etf_mem==2 only works with MPI'
WRITE(stdout,'(5x,a') ' Changing to etf_mem ==1 and continue ...'
etf_mem = 1
CALL ephwann_shuffle ( nqc, xqc )
#endif
ENDIF
!
5 format (8x,"q(",i5," ) = (",3f12.7," )")
!
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment