2 ! Don't cycle by default through all options, just test -O0 and -O2,
3 ! as this is quite large test.
4 ! { dg-skip-if "" { ! run_expensive_tests } { "*" } { "-O0" "-O2" } }
5 ! { dg-timeout-factor 2.0 { target hppa*-*-* } }
10 integer, allocatable
:: c(:,:)
12 integer, allocatable
:: f
16 type (dl
), allocatable
:: h(:)
19 type (dl
), allocatable
:: k
22 subroutine ver_dl (obj
, val
, c
, cl1
, cu1
, cl2
, cu2
, f
)
23 type (dl
), intent (in
) :: obj
24 integer, intent (in
) :: val
, cl1
, cu1
, cl2
, cu2
25 logical, intent (in
) :: c
, f
26 if ((c
.neqv
. allocated (obj
%c
)) .or
. (f
.neqv
. allocated (obj
%f
))) stop 1
28 if (lbound (obj
%c
, 1) /= cl1
.or
. ubound (obj
%c
, 1) /= cu1
) stop 2
29 if (lbound (obj
%c
, 2) /= cl2
.or
. ubound (obj
%c
, 2) /= cu2
) stop 3
32 if (obj
%a
/= val
.or
. obj
%b
/= val
) stop 4
33 if (obj
%d
/= val
.or
. obj
%e
/= val
) stop 5
35 if (any (obj
%c
/= val
)) stop 6
38 if (obj
%f
/= val
) stop 7
42 subroutine ver_dt (obj
, val
, h
, hl
, hu
, k
, c
, cl1
, cu1
, cl2
, cu2
, f
)
43 type (dt
), intent (in
) :: obj
44 integer, intent (in
) :: val
, hl
, hu
, cl1
, cu1
, cl2
, cu2
45 logical, intent (in
) :: h
, k
, c
, f
47 if ((h
.neqv
. allocated (obj
%h
)) .or
. (k
.neqv
. allocated (obj
%k
))) stop 8
49 if (lbound (obj
%h
, 1) /= hl
.or
. ubound (obj
%h
, 1) /= hu
) stop 9
51 call ver_dl (obj
%h(i
), val
, c
, cl1
, cu1
, cl2
, cu2
, f
)
56 call ver_dl (obj
%j(i
, j
), val
, c
, cl1
, cu1
, cl2
, cu2
, f
)
59 if (k
) call ver_dl (obj
%k
, val
, c
, cl1
, cu1
, cl2
, cu2
, f
)
61 if (obj
%g
/= val
.or
. obj
%i
/= val
) stop 10
64 subroutine alloc_dl (obj
, val
, c
, cl1
, cu1
, cl2
, cu2
, f
)
65 type (dl
), intent (inout
) :: obj
66 integer, intent (in
) :: val
, cl1
, cu1
, cl2
, cu2
67 logical, intent (in
) :: c
, f
74 if (allocated (obj
%c
)) deallocate (obj
%c
)
76 allocate (obj
%c(cl1
:cu1
, cl2
:cu2
))
77 if (val
/= 0) obj
%c
= val
80 if (.not
.allocated (obj
%f
)) allocate (obj
%f
)
81 if (val
/= 0) obj
%f
= val
83 if (allocated (obj
%f
)) deallocate (obj
%f
)
85 end subroutine alloc_dl
86 subroutine alloc_dt (obj
, val
, h
, hl
, hu
, k
, c
, cl1
, cu1
, cl2
, cu2
, f
)
87 type (dt
), intent (inout
) :: obj
88 integer, intent (in
) :: val
, hl
, hu
, cl1
, cu1
, cl2
, cu2
89 logical, intent (in
) :: h
, k
, c
, f
95 if (allocated (obj
%h
)) deallocate (obj
%h
)
97 allocate (obj
%h(hl
:hu
))
99 call alloc_dl (obj
%h(i
), val
, c
, cl1
, cu1
, cl2
, cu2
, f
)
104 call alloc_dl (obj
%j(i
, j
), val
, c
, cl1
, cu1
, cl2
, cu2
, f
)
108 if (.not
.allocated (obj
%k
)) allocate (obj
%k
)
109 call alloc_dl (obj
%k
, val
, c
, cl1
, cu1
, cl2
, cu2
, f
)
111 if (allocated (obj
%k
)) deallocate (obj
%k
)
113 end subroutine alloc_dt
116 type (dt
), allocatable
:: z(:,:)
120 subroutine foo (y
, z
, n
)
123 type (dt
) :: x(2:n
), y(3:)
124 type (dt
), allocatable
:: z(:,:)
125 logical, parameter :: F
= .false
.
126 logical, parameter :: T
= .true
.
128 if (lbound (x
, 1) /= 2 .or
. ubound (x
, 1) /= 4) stop 11
129 if (lbound (y
, 1) /= 3 .or
. ubound (y
, 1) /= 4) stop 12
130 call ver_dt (x(2), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
131 call ver_dt (x(n
), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
132 call ver_dt (y(3), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
133 call ver_dt (y(4), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
134 !$omp parallel private (z)
135 if (allocated (z
)) stop 13
137 !$omp parallel firstprivate (z)
138 if (allocated (z
)) stop 14
141 !$omp parallel sections lastprivate (z) firstprivate (l)
144 if (allocated (z
)) stop 15
148 if (allocated (z
)) stop 16
150 allocate (z(-3:-3,2:3))
151 call alloc_dt (z(-3,2), 5, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
152 call ver_dt (z(-3,2), 5, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
153 call alloc_dt (z(-3,3), 23, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
154 call ver_dt (z(-3,3), 23, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
156 !$omp end parallel sections
157 if (.not
.allocated (z
)) stop 17
158 if (lbound (z
, 1) /= -3 .or
. ubound (z
, 1) /= -3) stop 18
159 if (lbound (z
, 2) /= 2 .or
. ubound (z
, 2) /= 3) stop 19
160 call ver_dt (z(-3,2), 5, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
161 call ver_dt (z(-3,3), 23, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
162 call ver_dt (x(n
- 1), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
163 call ver_dt (y(4), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
164 call alloc_dt (z(-3,2), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
165 call ver_dt (z(-3,2), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
166 call alloc_dt (z(-3,3), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
167 call ver_dt (z(-3,3), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
168 !$omp parallel private (x, y, z)
169 call ver_dt (x(n
- 1), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
170 call alloc_dt (x(n
- 1), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
171 call ver_dt (x(n
- 1), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
172 call ver_dt (y(4), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
173 call alloc_dt (y(4), 14, T
, 3, 4, F
, T
, 1, 1, 2, 4, T
)
174 call ver_dt (y(4), 14, T
, 3, 4, F
, T
, 1, 1, 2, 4, T
)
175 call ver_dt (z(-3,2), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
176 call alloc_dt (z(-3,2), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
177 call ver_dt (z(-3,2), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
178 call ver_dt (z(-3,3), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
179 call alloc_dt (z(-3,3), 14, T
, 3, 4, F
, T
, 1, 1, 2, 4, T
)
180 call ver_dt (z(-3,3), 14, T
, 3, 4, F
, T
, 1, 1, 2, 4, T
)
182 call ver_dt (x(n
- 1), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
183 call alloc_dt (x(n
- 1), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
184 call ver_dt (y(4), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
185 call alloc_dt (y(4), 14, T
, 3, 4, F
, T
, 1, 1, 2, 4, T
)
186 call ver_dt (z(-3,2), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
187 call alloc_dt (z(-3,2), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
188 call ver_dt (z(-3,3), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
189 call alloc_dt (z(-3,3), 14, T
, 3, 4, F
, T
, 1, 1, 2, 4, T
)
190 !$omp parallel private (x, y, z)
191 call ver_dt (x(n
- 1), 0, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
192 call ver_dt (y(4), 0, T
, 3, 4, F
, T
, 1, 1, 2, 4, T
)
193 deallocate (x(n
- 1)%h
, x(n
- 1)%k
)
196 call ver_dt (z(-3,2), 0, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
197 call ver_dt (z(-3,3), 0, T
, 3, 4, F
, T
, 1, 1, 2, 4, T
)
198 deallocate (z(-3,2)%h
, z(-3,2)%k
)
199 deallocate (z(-3,3)%h
)
202 call alloc_dt (x(n
- 1), 5, T
, 1, 2, F
, T
, 2, 3, -2, -2, F
)
203 call alloc_dt (y(4), 15, F
, 0, 0, T
, T
, 2, 2, 2, 2, T
)
204 call alloc_dt (z(-3,2), 5, T
, 1, 2, F
, T
, 2, 3, -2, -2, F
)
205 call alloc_dt (z(-3,3), 15, F
, 0, 0, T
, T
, 2, 2, 2, 2, T
)
206 !$omp parallel firstprivate (x, y, z)
207 if (lbound (x
, 1) /= 2 .or
. ubound (x
, 1) /= 4) stop 20
208 if (lbound (y
, 1) /= 3 .or
. ubound (y
, 1) /= 4) stop 21
209 call ver_dt (x(n
- 1), 5, T
, 1, 2, F
, T
, 2, 3, -2, -2, F
)
210 call alloc_dt (x(n
- 1), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
211 call ver_dt (x(n
- 1), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
212 call ver_dt (y(4), 15, F
, 0, 0, T
, T
, 2, 2, 2, 2, T
)
213 call alloc_dt (y(4), 4, T
, 3, 4, T
, T
, 1, 1, 2, 4, T
)
214 call ver_dt (y(4), 4, T
, 3, 4, T
, T
, 1, 1, 2, 4, T
)
215 call ver_dt (z(-3,2), 5, T
, 1, 2, F
, T
, 2, 3, -2, -2, F
)
216 call alloc_dt (z(-3,2), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
217 call ver_dt (z(-3,2), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
218 call ver_dt (z(-3,3), 15, F
, 0, 0, T
, T
, 2, 2, 2, 2, T
)
219 call alloc_dt (z(-3,3), 4, T
, 3, 4, T
, T
, 1, 1, 2, 4, T
)
220 call ver_dt (z(-3,3), 4, T
, 3, 4, T
, T
, 1, 1, 2, 4, T
)
222 call ver_dt (x(n
- 1), 5, T
, 1, 2, F
, T
, 2, 3, -2, -2, F
)
223 call alloc_dt (x(n
- 1), 4, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
224 call ver_dt (y(4), 15, F
, 0, 0, T
, T
, 2, 2, 2, 2, T
)
225 call alloc_dt (y(4), 16, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
226 call ver_dt (z(-3,2), 5, T
, 1, 2, F
, T
, 2, 3, -2, -2, F
)
227 call alloc_dt (z(-3,2), 4, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
228 call ver_dt (z(-3,3), 15, F
, 0, 0, T
, T
, 2, 2, 2, 2, T
)
229 call alloc_dt (z(-3,3), 16, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
230 !$omp parallel firstprivate (x, y, z)
231 call ver_dt (x(n
- 1), 4, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
232 call alloc_dt (x(n
- 1), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
233 call ver_dt (x(n
- 1), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
234 call ver_dt (y(4), 16, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
235 call alloc_dt (y(4), 17, T
, 1, 2, F
, T
, 2, 2, 3, 3, F
)
236 call ver_dt (y(4), 17, T
, 1, 2, F
, T
, 2, 2, 3, 3, F
)
237 call ver_dt (z(-3,2), 4, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
238 call alloc_dt (z(-3,2), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
239 call ver_dt (z(-3,2), 4, T
, -3, -1, T
, T
, -1, -1, 2, 3, T
)
240 call ver_dt (z(-3,3), 16, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
241 call alloc_dt (z(-3,3), 17, T
, 1, 2, F
, T
, 2, 2, 3, 3, F
)
242 call ver_dt (z(-3,3), 17, T
, 1, 2, F
, T
, 2, 2, 3, 3, F
)
244 call ver_dt (x(n
- 1), 4, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
245 call ver_dt (y(4), 16, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
246 call alloc_dt (y(4), 18, T
, 0, 1, T
, T
, 0, 1, 0, 1, T
)
247 call ver_dt (z(-3,2), 4, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
248 call ver_dt (z(-3,3), 16, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
249 call alloc_dt (z(-3,3), 18, T
, 0, 1, T
, T
, 0, 1, 0, 1, T
)
251 !$omp parallel sections lastprivate (x, y, z) firstprivate (l)
254 call ver_dt (x(n
- 1), 9, T
, 1, 1, F
, F
, 0, 0, 0, 0, T
)
255 call ver_dt (y(4), 21, F
, 0, 0, T
, T
, 1, 2, 3, 4, T
)
256 call ver_dt (z(-3,2), 9, T
, 1, 1, F
, F
, 0, 0, 0, 0, T
)
257 call ver_dt (z(-3,3), 21, F
, 0, 0, T
, T
, 1, 2, 3, 4, T
)
259 call ver_dt (x(n
- 1), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
260 call ver_dt (y(4), 0, T
, 0, 1, T
, T
, 0, 1, 0, 1, T
)
261 call ver_dt (z(-3,2), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
262 call ver_dt (z(-3,3), 0, T
, 0, 1, T
, T
, 0, 1, 0, 1, T
)
265 call alloc_dt (x(n
- 1), 7, T
, 1, 1, T
, T
, 1, 2, 3, 3, T
)
266 call ver_dt (x(n
- 1), 7, T
, 1, 1, T
, T
, 1, 2, 3, 3, T
)
267 call alloc_dt (y(4), 20, T
, 0, 0, F
, T
, 2, 2, 3, 4, F
)
268 call ver_dt (y(4), 20, T
, 0, 0, F
, T
, 2, 2, 3, 4, F
)
269 call alloc_dt (z(-3,2), 7, T
, 1, 1, T
, T
, 1, 2, 3, 3, T
)
270 call ver_dt (z(-3,2), 7, T
, 1, 1, T
, T
, 1, 2, 3, 3, T
)
271 call alloc_dt (z(-3,3), 20, T
, 0, 0, F
, T
, 2, 2, 3, 4, F
)
272 call ver_dt (z(-3,3), 20, T
, 0, 0, F
, T
, 2, 2, 3, 4, F
)
275 call ver_dt (x(n
- 1), 7, T
, 1, 1, T
, T
, 1, 2, 3, 3, T
)
276 call ver_dt (y(4), 20, T
, 0, 0, F
, T
, 2, 2, 3, 4, F
)
277 call ver_dt (z(-3,2), 7, T
, 1, 1, T
, T
, 1, 2, 3, 3, T
)
278 call ver_dt (z(-3,3), 20, T
, 0, 0, F
, T
, 2, 2, 3, 4, F
)
280 call ver_dt (x(n
- 1), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
281 call ver_dt (y(4), 0, T
, 0, 1, T
, T
, 0, 1, 0, 1, T
)
282 call ver_dt (z(-3,2), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
283 call ver_dt (z(-3,3), 0, T
, 0, 1, T
, T
, 0, 1, 0, 1, T
)
286 call alloc_dt (x(n
- 1), 9, T
, 1, 1, F
, F
, 0, 0, 0, 0, T
)
287 call ver_dt (x(n
- 1), 9, T
, 1, 1, F
, F
, 0, 0, 0, 0, T
)
288 call alloc_dt (y(4), 21, F
, 0, 0, T
, T
, 1, 2, 3, 4, T
)
289 call ver_dt (y(4), 21, F
, 0, 0, T
, T
, 1, 2, 3, 4, T
)
290 call alloc_dt (z(-3,2), 9, T
, 1, 1, F
, F
, 0, 0, 0, 0, T
)
291 call ver_dt (z(-3,2), 9, T
, 1, 1, F
, F
, 0, 0, 0, 0, T
)
292 call alloc_dt (z(-3,3), 21, F
, 0, 0, T
, T
, 1, 2, 3, 4, T
)
293 call ver_dt (z(-3,3), 21, F
, 0, 0, T
, T
, 1, 2, 3, 4, T
)
295 !$omp end parallel sections
296 call ver_dt (x(n
- 1), 9, T
, 1, 1, F
, F
, 0, 0, 0, 0, T
)
297 call ver_dt (y(4), 21, F
, 0, 0, T
, T
, 1, 2, 3, 4, T
)
298 call ver_dt (z(-3,2), 9, T
, 1, 1, F
, F
, 0, 0, 0, 0, T
)
299 call ver_dt (z(-3,3), 21, F
, 0, 0, T
, T
, 1, 2, 3, 4, T
)
300 !$omp parallel sections lastprivate (x, y, z) firstprivate (l)
303 call ver_dt (x(n
- 1), 5, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
304 call ver_dt (y(4), 23, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
305 call ver_dt (z(-3,2), 5, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
306 call ver_dt (z(-3,3), 23, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
308 call ver_dt (x(n
- 1), 0, T
, 1, 1, F
, F
, 0, 0, 0, 0, T
)
309 call ver_dt (y(4), 0, F
, 0, 0, T
, T
, 1, 2, 3, 4, T
)
310 call ver_dt (z(-3,2), 0, T
, 1, 1, F
, F
, 0, 0, 0, 0, T
)
311 call ver_dt (z(-3,3), 0, F
, 0, 0, T
, T
, 1, 2, 3, 4, T
)
314 call alloc_dt (x(n
- 1), 3, F
, 0, 0, T
, T
, 0, 1, 0, 1, F
)
315 call ver_dt (x(n
- 1), 3, F
, 0, 0, T
, T
, 0, 1, 0, 1, F
)
316 call alloc_dt (y(4), 22, T
, 5, 5, F
, T
, 2, 3, 2, 2, T
)
317 call ver_dt (y(4), 22, T
, 5, 5, F
, T
, 2, 3, 2, 2, T
)
318 call alloc_dt (z(-3,2), 3, F
, 0, 0, T
, T
, 0, 1, 0, 1, F
)
319 call ver_dt (z(-3,2), 3, F
, 0, 0, T
, T
, 0, 1, 0, 1, F
)
320 call alloc_dt (z(-3,3), 22, T
, 5, 5, F
, T
, 2, 3, 2, 2, T
)
321 call ver_dt (z(-3,3), 22, T
, 5, 5, F
, T
, 2, 3, 2, 2, T
)
324 call ver_dt (x(n
- 1), 3, F
, 0, 0, T
, T
, 0, 1, 0, 1, F
)
325 call ver_dt (y(4), 22, T
, 5, 5, F
, T
, 2, 3, 2, 2, T
)
326 call ver_dt (z(-3,2), 3, F
, 0, 0, T
, T
, 0, 1, 0, 1, F
)
327 call ver_dt (z(-3,3), 22, T
, 5, 5, F
, T
, 2, 3, 2, 2, T
)
329 call ver_dt (x(n
- 1), 0, T
, 1, 1, F
, F
, 0, 0, 0, 0, T
)
330 call ver_dt (y(4), 0, F
, 0, 0, T
, T
, 1, 2, 3, 4, T
)
331 call ver_dt (z(-3,2), 0, T
, 1, 1, F
, F
, 0, 0, 0, 0, T
)
332 call ver_dt (z(-3,3), 0, F
, 0, 0, T
, T
, 1, 2, 3, 4, T
)
335 call alloc_dt (x(n
- 1), 5, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
336 call ver_dt (x(n
- 1), 5, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
337 call alloc_dt (y(4), 23, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
338 call ver_dt (y(4), 23, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
339 call alloc_dt (z(-3,2), 5, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
340 call ver_dt (z(-3,2), 5, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
341 call alloc_dt (z(-3,3), 23, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
342 call ver_dt (z(-3,3), 23, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
344 !$omp end parallel sections
345 call ver_dt (x(n
- 1), 5, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
346 call ver_dt (y(4), 23, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
347 call ver_dt (z(-3,2), 5, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
348 call ver_dt (z(-3,3), 23, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
349 !$omp parallel private (x, y, z)
350 call ver_dt (x(n
- 1), 0, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
351 call ver_dt (y(4), 0, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
352 call ver_dt (z(-3,2), 0, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
353 call ver_dt (z(-3,3), 0, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
355 call alloc_dt (x(n
- 1), 3, F
, 0, 0, T
, T
, 0, 1, 0, 1, F
)
356 call alloc_dt (y(4), 22, T
, 5, 5, F
, T
, 2, 3, 2, 2, T
)
357 call alloc_dt (z(-3,2), 3, F
, 0, 0, T
, T
, 0, 1, 0, 1, F
)
358 call alloc_dt (z(-3,3), 22, T
, 5, 5, F
, T
, 2, 3, 2, 2, T
)
359 !$omp end single copyprivate (x, y, z)
360 call ver_dt (x(n
- 1), 3, F
, 0, 0, T
, T
, 0, 1, 0, 1, F
)
361 call ver_dt (y(4), 22, T
, 5, 5, F
, T
, 2, 3, 2, 2, T
)
362 call ver_dt (z(-3,2), 3, F
, 0, 0, T
, T
, 0, 1, 0, 1, F
)
363 call ver_dt (z(-3,3), 22, T
, 5, 5, F
, T
, 2, 3, 2, 2, T
)
365 call ver_dt (x(n
- 1), 5, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
366 call ver_dt (y(4), 23, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
367 call ver_dt (z(-3,2), 5, F
, 0, 0, T
, T
, -1, -1, -1, -1, T
)
368 call ver_dt (z(-3,3), 23, T
, 0, 1, T
, T
, 2, 2, 2, 2, F
)
369 call ver_dt (x(2), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
370 call ver_dt (x(n
), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)
371 call ver_dt (y(3), 0, F
, 0, 0, F
, F
, 0, 0, 0, 0, F
)