From 73942e2fcbeb33cff35fb803522e66cae52fc3d1 Mon Sep 17 00:00:00 2001 From: Matthias Krack Date: Wed, 23 Aug 2023 18:08:20 +0200 Subject: [PATCH] Fix for Intel compiler (suppress OpenMP for loop) --- src/pw/ps_implicit_methods.F | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/pw/ps_implicit_methods.F b/src/pw/ps_implicit_methods.F index e0b9da55cf..f5122280a1 100644 --- a/src/pw/ps_implicit_methods.F +++ b/src/pw/ps_implicit_methods.F @@ -1279,6 +1279,11 @@ CONTAINS ALLOCATE (ps_implicit_env%idx_1dto3d(data_size)) l = 1 + ! Suppress OpenMP (at least the Intel compiler has an issue here) + ! An automatic OpenMP parallelization of this loop might be tricky + ! because of the incrementation of l +!$OMP PARALLEL IF(.FALSE.) +!$OMP DO DO k = lb3, ub3 DO j = lb2, ub2 DO i = lb1, ub1 @@ -1289,6 +1294,8 @@ CONTAINS END DO END DO END DO +!$OMP END DO +!$OMP END PARALLEL n_contacts = SIZE(ps_implicit_env%contacts) n_tiles_tot = 0