mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-07 23:22:11 +01:00
30 lines
556 B
Fortran
30 lines
556 B
Fortran
! @@name: ordered.1f
|
|
! @@type: F-fixed
|
|
! @@compilable: yes
|
|
! @@linkable: yes
|
|
! @@expect: success
|
|
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
|