mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-21 21:31:23 +01:00
38 lines
989 B
Fortran
38 lines
989 B
Fortran
! @@name: masked.1f
|
|
! @@type: F-fixed
|
|
! @@compilable: yes
|
|
! @@linkable: no
|
|
! @@expect: success
|
|
! @@version: omp_5.1
|
|
SUBROUTINE MASKED_EXAMPLE( X, XOLD, N, TOL )
|
|
REAL X(*), XOLD(*), TOL
|
|
INTEGER N
|
|
INTEGER C, I, TOOBIG
|
|
REAL ERROR, Y, AVERAGE
|
|
EXTERNAL AVERAGE
|
|
C = 0
|
|
TOOBIG = 1
|
|
!$OMP PARALLEL
|
|
DO WHILE( TOOBIG > 0 )
|
|
!$OMP DO PRIVATE(I)
|
|
DO I = 2, N-1
|
|
XOLD(I) = X(I)
|
|
ENDDO
|
|
!$OMP SINGLE
|
|
TOOBIG = 0
|
|
!$OMP END SINGLE
|
|
!$OMP DO PRIVATE(I,Y,ERROR), REDUCTION(+:TOOBIG)
|
|
DO I = 2, N-1
|
|
Y = X(I)
|
|
X(I) = AVERAGE( XOLD(I-1), X(I), XOLD(I+1) )
|
|
ERROR = Y-X(I)
|
|
IF( ERROR > TOL .OR. ERROR < -TOL ) TOOBIG = TOOBIG+1
|
|
ENDDO
|
|
!$OMP MASKED
|
|
C = C + 1
|
|
PRINT *, 'Iteration ', C, 'TOOBIG=', TOOBIG
|
|
!$OMP END MASKED
|
|
ENDDO
|
|
!$OMP END PARALLEL
|
|
END SUBROUTINE MASKED_EXAMPLE
|