Commit 8b4e32ec authored by Matthias Redies's avatar Matthias Redies

fix for intel

parent b538cd77
......@@ -57,7 +57,7 @@ CONTAINS
call timestart("olap_pw_real")
!$OMP PARALLEL DO default(none) schedule(guided) &
!$OMP private(i,j,dg,g,itype, icent, r, fgr)&
!$OMP shared(olap, gpt, cell, atoms)
!$OMP shared(olap, gpt, cell, atoms, ngpt)
DO i = 1, ngpt
DO j = 1, i
olap%data_r(i,j) = 0.0
......@@ -106,7 +106,7 @@ CONTAINS
call timestart("olap_pw_cmplx")
!$OMP PARALLEL DO default(none) schedule(guided) &
!$OMP private(i,j,dg,g,itype, icent, r, fgr)&
!$OMP shared(olap, gpt, cell, atoms)
!$OMP shared(olap, gpt, cell, atoms, ngpt)
DO i = 1, ngpt
DO j = 1, i
olap%data_c(i,j) = cmplx_0
......
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