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,