3 SUBROUTINE A31_1(A
, B
, X
, Y
, N
)
6 !$OMP PARALLEL DO PRIVATE(I) SHARED(X, N) REDUCTION(+:A) &
7 !$OMP& REDUCTION(MIN:B)
11 ! Note that some reductions can be expressed in
12 ! other forms. For example, the MIN could be expressed as
13 ! IF (B > Y(I)) B = Y(I)