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

fix for intel

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