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

Travis was complaning about some MPI symbols, aborting before running test-suite. Now should go until the end. (verified with Intel 16, PGI 16.10, GNU 4.8, Intel MPI 5.1, Open MPI 1.10). 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13306 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
spigafi 2017-02-12 20:48:07 +00:00
parent 52dfdaeb56
commit 7cc424f5e6
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
PW/src/exx.f90
View File

@ -4197,7 +4197,7 @@ END SUBROUTINE compute_becpsi
nproc_egrp, me_egrp, negrp, my_egrp_id, nibands, ibands, &
max_ibands, all_start, all_end
#if defined(__MPI)
USE parallel_include, ONLY : MPI_STATUS_SIZE, MPI_DOUBLE_COMPLEX
USE parallel_include
#endif
USE klist, ONLY : xk, wk, nkstot, nks, qnorm
!
@ -4737,7 +4737,7 @@ END SUBROUTINE compute_becpsi
intra_egrp_comm, my_egrp_id, negrp, &
max_pairs, egrp_pairs
#if defined(__MPI)
USE parallel_include, ONLY : MPI_STATUS_SIZE, MPI_DOUBLE_COMPLEX
USE parallel_include
#endif
USE io_global, ONLY : stdout
INTEGER, intent(in) :: ipair
@ -4793,7 +4793,7 @@ END SUBROUTINE compute_becpsi
contributed_bands, all_end, &
iexx_istart, iexx_iend, band_roots
#if defined(__MPI)
USE parallel_include, ONLY : MPI_STATUS_SIZE, MPI_DOUBLE_COMPLEX
USE parallel_include
#endif
USE io_global, ONLY : stdout
USE mp, ONLY : mp_sum, mp_bcast
@ -4891,7 +4891,7 @@ END SUBROUTINE compute_becpsi
USE mp_exx, ONLY : intra_egrp_comm, inter_egrp_comm, &
nproc_egrp, me_egrp, negrp, my_egrp_id, iexx_istart, iexx_iend
#if defined(__MPI)
USE parallel_include, ONLY : MPI_STATUS_SIZE, MPI_DOUBLE_COMPLEX
USE parallel_include
#endif
USE klist, ONLY : xk, wk, nkstot, nks, qnorm
USE wvfct, ONLY : current_k
@ -5037,7 +5037,7 @@ END SUBROUTINE compute_becpsi
all_end, negrp
USE mp, ONLY : mp_bcast
#if defined(__MPI)
USE parallel_include, ONLY : MPI_STATUS_SIZE, MPI_DOUBLE_COMPLEX
USE parallel_include
#endif
COMPLEX(DP), intent(inout) :: exxtemp(lda,jend-jstart+1)
INTEGER, intent(in) :: ikq, lda, jstart, jend
@ -5085,7 +5085,7 @@ END SUBROUTINE compute_becpsi
all_end, negrp
USE mp, ONLY : mp_bcast
#if defined(__MPI)
USE parallel_include, ONLY : MPI_STATUS_SIZE, MPI_DOUBLE
USE parallel_include
#endif
COMPLEX(DP), intent(inout) :: exxtemp(lda*npol,jlength)
INTEGER, intent(in) :: ikq, lda, jstart, jend, jlength