diff options
author | eschnett <eschnett@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-10-30 00:53:23 +0000 |
---|---|---|
committer | eschnett <eschnett@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-10-30 00:53:23 +0000 |
commit | cbb215c627efdce075b87cd4e620d46e9115f293 (patch) | |
tree | 5c42c03edb6f624eb4b1d4ffa65179652c924610 /src/Utils.F90 | |
parent | f497d2aaaf1596abf75a3a4332ad5b4fede846b3 (diff) |
Declare loop variables OpenMP private
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@586 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/Utils.F90')
-rw-r--r-- | src/Utils.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Utils.F90 b/src/Utils.F90 index 902135e..ca33fce 100644 --- a/src/Utils.F90 +++ b/src/Utils.F90 @@ -107,7 +107,7 @@ subroutine GRHydro_SqrtSpatialDeterminant(CCTK_ARGUMENTS) ny = cctk_lsh(2) nz = cctk_lsh(3) - !$OMP PARALLEL DO + !$OMP PARALLEL DO PRIVATE(i,j,k) do k=1,nz do j=1,ny do i=1,nx |