mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-07 23:22:11 +01:00
69 lines
1.7 KiB
Fortran
69 lines
1.7 KiB
Fortran
! @@name: taskloop_simd_reduction.1f90
|
|
! @@type: F-free
|
|
! @@compilable: yes
|
|
! @@requires: preprocessing
|
|
! @@linkable: no
|
|
! @@expect: success
|
|
! @@version: omp_5.1
|
|
#if _OPENMP < 202011
|
|
#define masked master
|
|
#endif
|
|
|
|
program main
|
|
|
|
use omp_lib
|
|
integer, parameter :: N=100
|
|
integer :: i, a(N), asum=0
|
|
|
|
a = [( i, i=1,N )] !! initialize
|
|
|
|
!! taskloop reductions
|
|
|
|
!$omp parallel masked
|
|
!$omp taskloop reduction(+:asum) !! taskloop 1
|
|
do i=1,N; asum = asum + a(i); enddo
|
|
!$omp end taskloop
|
|
!$omp end parallel masked
|
|
|
|
|
|
!$omp parallel reduction(task, +:asum) !! parallel reduction a
|
|
|
|
!$omp masked
|
|
!$omp task in_reduction(+:asum) !! task 2
|
|
do i=1,N; asum = asum + a(i); enddo
|
|
!$omp end task
|
|
!$omp end masked
|
|
|
|
!$omp masked taskloop in_reduction(+:asum) !! taskloop 2
|
|
do i=1,N; asum = asum + a(i); enddo
|
|
!$omp end masked taskloop
|
|
|
|
!$omp end parallel
|
|
|
|
!! taskloop simd reductions
|
|
|
|
!$omp parallel masked
|
|
!$omp taskloop simd reduction(+:asum) !! taskloop simd 3
|
|
do i=1,N; asum = asum + a(i); enddo
|
|
!$omp end taskloop simd
|
|
!$omp end parallel masked
|
|
|
|
|
|
!$omp parallel reduction(task, +:asum) !! parallel reduction b
|
|
|
|
!$omp masked
|
|
!$omp task in_reduction(+:asum) !! task 4
|
|
do i=1,N; asum = asum + a(i); enddo
|
|
!$omp end task
|
|
!$omp end masked
|
|
|
|
!$omp masked taskloop simd in_reduction(+:asum) !! taskloop simd 4
|
|
do i=1,N; asum = asum + a(i); enddo
|
|
!$omp end masked taskloop simd
|
|
|
|
!$omp end parallel
|
|
|
|
print*,"asum=",asum !! output: asum=30300
|
|
|
|
end program
|