diff options
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 |