mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-10 08:22:11 +01:00
30 lines
561 B
Fortran
30 lines
561 B
Fortran
! @@name: ordered.1
|
|
! @@type: F-fixed
|
|
! @@operation: run
|
|
! @@expect: success
|
|
! @@version: pre_omp_3.0
|
|
SUBROUTINE WORK(K)
|
|
INTEGER k
|
|
|
|
!$OMP ORDERED
|
|
WRITE(*,*) K
|
|
!$OMP END ORDERED
|
|
|
|
END SUBROUTINE WORK
|
|
|
|
SUBROUTINE SUB(LB, UB, STRIDE)
|
|
INTEGER LB, UB, STRIDE
|
|
INTEGER I
|
|
|
|
!$OMP PARALLEL DO ORDERED SCHEDULE(DYNAMIC)
|
|
DO I=LB,UB,STRIDE
|
|
CALL WORK(I)
|
|
END DO
|
|
!$OMP END PARALLEL DO
|
|
|
|
END SUBROUTINE SUB
|
|
|
|
PROGRAM ORDERED_EXAMPLE
|
|
CALL SUB(1,100,5)
|
|
END PROGRAM ORDERED_EXAMPLE
|