mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-10 08:22:11 +01:00
30 lines
498 B
Fortran
30 lines
498 B
Fortran
! @@name: nowait.1
|
|
! @@type: F-fixed
|
|
! @@operation: compile
|
|
! @@expect: success
|
|
! @@version: pre_omp_3.0
|
|
SUBROUTINE NOWAIT_EXAMPLE(N, M, A, B, Y, Z)
|
|
|
|
INTEGER N, M
|
|
REAL A(*), B(*), Y(*), Z(*)
|
|
|
|
INTEGER I
|
|
|
|
!$OMP PARALLEL
|
|
|
|
!$OMP DO
|
|
DO I=2,N
|
|
B(I) = (A(I) + A(I-1)) / 2.0
|
|
ENDDO
|
|
!$OMP END DO NOWAIT
|
|
|
|
!$OMP DO
|
|
DO I=1,M
|
|
Y(I) = SQRT(Z(I))
|
|
ENDDO
|
|
!$OMP END DO NOWAIT
|
|
|
|
!$OMP END PARALLEL
|
|
|
|
END SUBROUTINE NOWAIT_EXAMPLE
|