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

Better formatting of OMP directive 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13337 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
spigafi 2017-02-23 07:59:38 +00:00
parent ab7e8d62a7
commit 8845a6e8ee
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PW/src/exx.f90
View File

@ -2897,7 +2897,9 @@ MODULE exx
nblock=2048
nrt = nrxxs / nblock
if (mod(nrxxs, nblock) .ne. 0) nrt = nrt + 1
!$omp parallel do collapse(2) default(shared) firstprivate(ibnd_inner_start,ibnd_inner_end,nblock,nrxxs,omega_inv) private(ir,irt,ir_start,ir_end,ibnd)
!$omp parallel do collapse(2) default(shared) &
!$omp& firstprivate(ibnd_inner_start,ibnd_inner_end,nblock,nrxxs,omega_inv) &
!$omp& private(ir,irt,ir_start,ir_end,ibnd)
DO irt = 1, nrt
DO ibnd=ibnd_inner_start, ibnd_inner_end
ir_start = (irt - 1) * nblock + 1