mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-10 16:32:11 +01:00
20 lines
394 B
Fortran
20 lines
394 B
Fortran
! @@name: fort_loopvar.1
|
|
! @@type: F-free
|
|
! @@operation: compile
|
|
! @@expect: success
|
|
! @@version: pre_omp_3.0
|
|
SUBROUTINE PLOOP_1(A,N)
|
|
INCLUDE "omp_lib.h" ! or USE OMP_LIB
|
|
|
|
REAL A(*)
|
|
INTEGER I, MYOFFSET, N
|
|
|
|
!$OMP PARALLEL PRIVATE(MYOFFSET)
|
|
MYOFFSET = OMP_GET_THREAD_NUM()*N
|
|
DO I = 1, N
|
|
A(MYOFFSET+I) = FLOAT(I)
|
|
ENDDO
|
|
!$OMP END PARALLEL
|
|
|
|
END SUBROUTINE PLOOP_1
|