4 integer :: i
, ia (6), n
, cnt
6 double precision :: d
, da (5)
17 ca
= cmplx (8.5, -3.0)
21 !$omp parallel num_threads (3) private (n) reduction (.or.:v) &
22 !$omp & reduction (+:i, ia, r, ra, d, da, c, ca)
23 !$ if (i .ne. 0 .or. any (ia .ne. 0)) v = .true.
24 !$ if (r .ne. 0 .or. any (ra .ne. 0)) v = .true.
25 !$ if (d .ne. 0 .or. any (da .ne. 0)) v = .true.
26 !$ if (c .ne. cmplx (0) .or. any (ca .ne. cmplx (0))) v = .true.
27 n
= omp_get_thread_num ()
29 cnt
= omp_get_num_threads ()
37 ca(1) = cmplx (4.5, 5)
38 else if (n
.eq
. 1) then
46 ca(2:3) = cmplx (-1, 6)
60 if (i
.ne
. 8 .or
. any (ia
.ne
. (/3, 3, 1, 6, 6, 8/))) STOP 2
61 if (r
.ne
. 8 .or
. any (ra
.ne
. (/9.5, 8.0, 1.5, 1.5/))) STOP 3
62 if (d
.ne
. 12.5 .or
. any (da
.ne
. (/8.0, 16.5, 16.5, 14.0, 5.5/))) STOP 4
63 if (c
.ne
. cmplx (11.5, -5)) STOP 5
64 if (ca(1) .ne
. cmplx (12, 2)) STOP 6
65 if (ca(2) .ne
. cmplx (6.5, 3) .or
. ca(2) .ne
. ca(3)) STOP 7
75 ca
= cmplx (8.5, -3.0)
79 !$omp parallel num_threads (3) private (n) reduction (.or.:v) &
80 !$omp & reduction (-:i, ia, r, ra, d, da, c, ca)
81 !$ if (i .ne. 0 .or. any (ia .ne. 0)) v = .true.
82 !$ if (r .ne. 0 .or. any (ra .ne. 0)) v = .true.
83 !$ if (d .ne. 0 .or. any (da .ne. 0)) v = .true.
84 !$ if (c .ne. cmplx (0) .or. any (ca .ne. cmplx (0))) v = .true.
85 n
= omp_get_thread_num ()
87 cnt
= omp_get_num_threads ()
95 ca(1) = cmplx (4.5, 5)
96 else if (n
.eq
. 1) then
104 ca(2:3) = cmplx (-1, 6)
118 if (i
.ne
. 8 .or
. any (ia
.ne
. (/3, 3, 1, 6, 6, 8/))) STOP 9
119 if (r
.ne
. 8 .or
. any (ra
.ne
. (/9.5, 8.0, 1.5, 1.5/))) STOP 10
120 if (d
.ne
. 12.5 .or
. any (da
.ne
. (/8.0, 16.5, 16.5, 14.0, 5.5/))) STOP 11
121 if (c
.ne
. cmplx (11.5, -5)) STOP 12
122 if (ca(1) .ne
. cmplx (12, 2)) STOP 13
123 if (ca(2) .ne
. cmplx (6.5, 3) .or
. ca(2) .ne
. ca(3)) STOP 14
137 !$omp parallel num_threads (3) private (n) reduction (.or.:v) &
138 !$omp & reduction (*:i, ia, r, ra, d, da, c, ca)
139 !$ if (i .ne. 1 .or. any (ia .ne. 1)) v = .true.
140 !$ if (r .ne. 1 .or. any (ra .ne. 1)) v = .true.
141 !$ if (d .ne. 1 .or. any (da .ne. 1)) v = .true.
142 !$ if (c .ne. cmplx (1) .or. any (ca .ne. cmplx (1))) v = .true.
143 n
= omp_get_thread_num ()
145 cnt
= omp_get_num_threads ()
153 ca(1) = cmplx (-5, 0)
154 else if (n
.eq
. 1) then
161 ca(2:3) = cmplx (0, -1)
174 if (i
.ne
. 6 .or
. any (ia
.ne
. (/4, 4, 8, -16, -16, -8/))) STOP 16
175 if (r
.ne
. 8 .or
. any (ra
.ne
. (/4., -2., -1., -1./))) STOP 17
176 if (d
.ne
. -40 .or
. any (da
.ne
. (/32., -64., -64., 64., -32./))) STOP 18
177 if (c
.ne
. cmplx (0, 15)) STOP 19
178 if (ca(1) .ne
. cmplx (0, 10)) STOP 20
179 if (ca(2) .ne
. cmplx (-2, 0) .or
. ca(2) .ne
. ca(3)) STOP 21