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

setting private some variables in omp do loops 

(use "git reset HEAD <file>..." to unstage)

	modified:   dmxc_drivers.f90
This commit is contained in:
Pietro Delugas 2019-12-06 14:00:12 +01:00
parent 061628cf66
commit 3912e1ad94
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Modules/dmxc_drivers.f90
View File

@ -220,7 +220,7 @@ SUBROUTINE dmxc_lda( length, rho_in, dmuxc )
IF (iexch == 1 .AND. icorr == 1) THEN IF (iexch == 1 .AND. icorr == 1) THEN
! !
!$omp parallel if(ntids==1) !$omp parallel if(ntids==1)
!$omp do private( rs, rho, ex_s, vx_s ) !$omp do private( rs, rho, ex_s, vx_s , iflg)
DO ir = 1, length DO ir = 1, length
! !
rho = rho_in(ir) rho = rho_in(ir)
@ -345,7 +345,7 @@ SUBROUTINE dmxc_lsda( length, rho_in, dmuxc )
! !
! ... first case: analytical derivative available ! ... first case: analytical derivative available
! !
!$omp parallel do private( rs, ex_s, vx_s, ecu, vcu, ecp, vcp, dmcu, dmcp, aa, bb, cc ) !$omp parallel do default(private) shared(rhotot, rho_in, dmuxc )
DO ir = 1, length DO ir = 1, length
! !
IF (rhotot(ir) < small) CYCLE IF (rhotot(ir) < small) CYCLE