diff options
| author | rhaas <rhaas@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-10-13 01:25:24 +0000 |
|---|---|---|
| committer | rhaas <rhaas@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-10-13 01:25:24 +0000 |
| commit | 55e95e4557524afce0caf9fd5a015c9c8fdf051b (patch) | |
| tree | 100432f323d8c4b31d22f11faf3672c2e4f9d6ee /src/boost.F77 | |
| parent | bdf875745ae407bf4f8ffbfdccfaf803e0e64101 (diff) | |
use OmpenMP threadprivate variable attribute for SAVE variables in pointwise
routines
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@278 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src/boost.F77')
| -rw-r--r-- | src/boost.F77 | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/boost.F77 b/src/boost.F77 index babe398..6b993ea 100644 --- a/src/boost.F77 +++ b/src/boost.F77 @@ -70,6 +70,8 @@ c static local variables describing Lorentz transformation save partial_Mx_wrt_Cx save partial_Cx_wrt_Mx save R +c$omp threadprivate (firstcall, gamma, vv, parallel, perp, +c$omp+ partial_Mx_wrt_Cx,partial_Cx_wrt_Mx, R) c coordinates and 4-metric CCTK_REAL Cx(0:3) @@ -141,8 +143,6 @@ c c compute Lorentz transformation information on first call c if (firstcall) then -c$omp critical - if (firstcall) then c boost velocity vv(1) = boost_vx @@ -294,8 +294,6 @@ c Mbetax(i) + R(j,i) Nbetax(j) [correct] firstcall = .false. end if -c$omp end critical - end if cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc |