diff options
author | Erik Schnetter <schnetter@cct.lsu.edu> | 2007-08-21 18:52:00 +0000 |
---|---|---|
committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2007-08-21 18:52:00 +0000 |
commit | 28eaf1591b3673641eaa3c7046e8b937edfb221b (patch) | |
tree | 8717378af9c6ee7f885484376887a6781e2ed784 /Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 | |
parent | b13e77bac146afa79d7855f62bd0433e0b4bb4ed (diff) |
CarpetLib: Add support for OpenMP
Add #pragma omp statements for loops in reduction and prolongation
operators. Change loop control variables to signed types.
Add functions to determine the number of active threads.
Add a parameter to set the number of threads if desired.
darcs-hash:20070821185237-dae7b-56827b72a69b5fa1b3d1316379a0f155696b4cb2.gz
Diffstat (limited to 'Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90')
-rw-r--r-- | Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 index 52bca8fa5..c86f773fc 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 @@ -190,6 +190,7 @@ subroutine prolongate_3d_real8_eno (src, srciext, srcjext, & !!$ Loop over fine region +!$omp parallel do private (k0, fk, j0, fj, i0, fi) do k = 0, regkext-1 k0 = (srckoff + k) / dstkfac fk = mod(srckoff + k, dstkfac) |