From 8db79dff80f81ad8de2c3f0c6c126c095faeb587 Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Fri, 22 Nov 2024 17:27:45 -0500 Subject: [PATCH] fix(example):specify thread-sharing;collapse loops --- example/concurrent-inferences.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/example/concurrent-inferences.f90 b/example/concurrent-inferences.f90 index ba52905c5..fb2362191 100644 --- a/example/concurrent-inferences.f90 +++ b/example/concurrent-inferences.f90 @@ -55,7 +55,7 @@ program concurrent_inferences print *,"Performing",lat*lev*lon," inferences inside `omp parallel do`." call system_clock(t_start, clock_rate) - !$omp parallel do shared(inputs,outputs) + !$omp parallel do default(none) shared(neural_network,inputs,outputs) collapse(3) do j=1,lon do k=1,lev do i=1,lat @@ -63,7 +63,6 @@ program concurrent_inferences end do end do end do - !$omp end parallel do call system_clock(t_finish) print *,"Elapsed system clock: ", real(t_finish - t_start, real64)/real(clock_rate, real64)