diff options
author | Erik Schnetter <schnetter@gmail.com> | 2012-05-05 07:52:56 -0400 |
---|---|---|
committer | Barry Wardell <barry.wardell@gmail.com> | 2012-09-11 18:23:19 +0100 |
commit | 9063dd2373225196b85f61833b8caa4b1ef40c56 (patch) | |
tree | f1cb83239cf3f74ca7f5fc5962d3b1780eea4a3a /Carpet/CarpetLib/src/prolongate_3d_dgfe_rf2.cc | |
parent | 81625743e4ff136795f98b76d95ddd526469f886 (diff) |
CarpetLib: Disable OpenMP collapse statements
These do not work on all systems, and we don't autoconf them yet.
Diffstat (limited to 'Carpet/CarpetLib/src/prolongate_3d_dgfe_rf2.cc')
-rw-r--r-- | Carpet/CarpetLib/src/prolongate_3d_dgfe_rf2.cc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Carpet/CarpetLib/src/prolongate_3d_dgfe_rf2.cc b/Carpet/CarpetLib/src/prolongate_3d_dgfe_rf2.cc index 3bcd3f10c..6d8ead898 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_dgfe_rf2.cc +++ b/Carpet/CarpetLib/src/prolongate_3d_dgfe_rf2.cc @@ -140,7 +140,7 @@ namespace CarpetLib { // Loop over fine region #ifdef HRSCC_HH ptrdiff_t const i=0; -#pragma omp parallel for collapse(2) +#pragma omp parallel for //collapse(2) for (ptrdiff_t k=0; k<regkext; k+=2*(ORDER+1)) { for (ptrdiff_t j=0; j<regjext; j+=2*(ORDER+1)) { GLLElement<ORDER>::prolongate_2D @@ -179,7 +179,7 @@ namespace CarpetLib { // Loop over fine region #ifdef HRSCC_HH ptrdiff_t const j=0; -#pragma omp parallel for collapse(2) +#pragma omp parallel for //collapse(2) for (ptrdiff_t k=0; k<regkext; k+=2*(ORDER+1)) { for (ptrdiff_t i=0; i<regiext; i+=2*(ORDER+1)) { GLLElement<ORDER>::prolongate_2D @@ -218,7 +218,7 @@ namespace CarpetLib { // Loop over fine region #ifdef HRSCC_HH ptrdiff_t const k=0; -#pragma omp parallel for collapse(2) +#pragma omp parallel for //collapse(2) for (ptrdiff_t j=0; j<regjext; j+=2*(ORDER+1)) { for (ptrdiff_t i=0; i<regiext; i+=2*(ORDER+1)) { GLLElement<ORDER>::prolongate_2D @@ -254,7 +254,7 @@ namespace CarpetLib { // Loop over fine region #ifdef HRSCC_HH -#pragma omp parallel for collapse(3) +#pragma omp parallel for //collapse(3) for (ptrdiff_t k=0; k<regkext; k+=2*(ORDER+1)) { for (ptrdiff_t j=0; j<regjext; j+=2*(ORDER+1)) { for (ptrdiff_t i=0; i<regiext; i+=2*(ORDER+1)) { |