[OpenMP 09] Reduction 지시절
Channel: Fortran Tutorial
Date: 2022-09-09

program Reduction
  implicit none
  integer i, prod
  prod = 1
!$omp parallel
!$omp do reduction(*:prod)
  do i=1,10
    prod = prod * i
  end do
!$omp end do
!$omp end parallel
  print *, "Product =", prod
end program

참고사이트
https://www.nag-j.co.jp/openMP/index.html

#NAG_Fortran #fortran #OpenMP #DaumCafe_VFUN