OpenMP：並行區域內的條件循環

Question

我有一套severak for-loops，其中一個只在滿足某個條件時纔會執行。

如何確保只有一個線程（可能使用SINGLE）執行if語句，但所有線程都可用於DO。

!$omp parallel 
!$omp do 
do i=0,512 
    something to do 
end do 
!$omp end do nowait 

if (condition_var) then 
    !$omp do 
    do i=0,512 
     only do sometimes 
    end do 
    !$omp end do 
fi 
!$omp end parallel 

Answer 1

你不必以保證只有一個線程計算if條件，只要條件給出了球隊的線程之間相同的結果。更明確地說：

!$omp parallel 
!$omp do 
do i=0,512 
    something to do 
end do 
!$omp end do 
! Synchronize here to ensure shared variables 
! will not be changed while evaluating the if condition 

if (condition_var) then 
! All threads evaluate the if condition and either enter 
! the block or skip it 
    !$omp do 
    do i=0,512 
     only do sometimes 
    end do 
    !$omp end do 
fi 
!$omp end parallel