Скачать или смотреть [OpenMP 10] Single 지시 구문

[OpenMP 10] Single 지시 구문

NAG_FortranfortranOpenMPDaumCafe_VFUN

Скачать [OpenMP 10] Single 지시 구문 бесплатно в качестве 4к (2к / 1080p)

У нас вы можете скачать бесплатно [OpenMP 10] Single 지시 구문 или посмотреть видео с ютуба в максимальном доступном качестве.

Для скачивания выберите вариант из формы ниже:

Информация по загрузке:

Cкачать музыку [OpenMP 10] Single 지시 구문 бесплатно в формате MP3:

Если иконки загрузки не отобразились, ПОЖАЛУЙСТА, НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если у вас возникли трудности с загрузкой, пожалуйста, свяжитесь с нами по контактам, указанным в нижней части страницы.
Спасибо за использование сервиса video2dn.com

Описание к видео [OpenMP 10] Single 지시 구문

program Single
implicit none
integer,parameter :: N = 1000*1000
integer i
double precision total
double precision,allocatable :: a(:)
allocate( a(N) )
print *, "Starting..."
!$omp parallel
!$omp do
do i=1, N
a(i) = i
end do
!$omp end do
!$omp single
total = sum(a)
print *, "1st phase done..."
!$omp end single
!$omp do
do i=1,N
a(i) = a(i)/total
end do
!$omp end do
!$omp end parallel
print *, "All done... Check value =", sum(a)
end program

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

#NAG_Fortran #fortran #OpenMP #DaumCafe_VFUN

Комментарии

Информация по комментариям в разработке