[Commits] [svn:einsteintoolkit] Exact/trunk/src/ (Rev. 269)

[schnetter at cct.lsu.edu]

User: eschnett
Date: 2011/08/13 05:11 PM

Modified:
 /trunk/src/
  gauge.F77, initialize.F77

Log:
 OpenMP: make loop indices thread-private

File Changes:

Directory: /trunk/src/
======================

File [modified]: gauge.F77
Delta lines: +1 -0
===================================================================
--- trunk/src/gauge.F77	2011-04-21 04:46:46 UTC (rev 268)
+++ trunk/src/gauge.F77	2011-08-13 22:11:24 UTC (rev 269)
@@ -89,6 +89,7 @@
       if ( set_lapse .or. set_shift .or. set_dtlapse .or. set_dtshift) then
 
 C$omp    parallel do private (
+C$omp$     i, j, k,
 C$omp$     tt, xx, yy, zz,
 C$omp$     alptmp, dtalptmp, axtmp, aytmp, aztmp, 
 C$omp$     betaxtmp, betaytmp, betaztmp,

File [modified]: initialize.F77
Delta lines: +1 -0
===================================================================
--- trunk/src/initialize.F77	2011-04-21 04:46:46 UTC (rev 268)
+++ trunk/src/initialize.F77	2011-08-13 22:11:24 UTC (rev 269)
@@ -61,6 +61,7 @@
       nz = cctk_lsh(3)
 
 C$omp parallel do private(
+C$omp$     i, j, k,
 C$omp$     tt, xx, yy, zz,
 C$omp$     alpjunk, dtalpjunk, axjunk, ayjunk, azjunk, 
 C$omp$     betaxjunk, betayjunk, betazjunk,