Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief
18 : !> This module contains tests of the module [pm_arraySplit](@ref pm_arraySplit).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 11:35 PM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : module test_pm_arraySplit
28 :
29 : use pm_arraySplit
30 : use pm_err, only: err_type
31 : use pm_test, only: test_type, LK
32 : implicit none
33 :
34 : private
35 : public :: setTest
36 : type(test_type) :: test
37 :
38 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39 :
40 : interface
41 :
42 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 :
48 : #if SK5_ENABLED
49 : module function test_setSplit_D0_D0_SK5 () result(assertion); logical(LK) :: assertion; end function
50 : #endif
51 : #if SK4_ENABLED
52 : module function test_setSplit_D0_D0_SK4 () result(assertion); logical(LK) :: assertion; end function
53 : #endif
54 : #if SK3_ENABLED
55 : module function test_setSplit_D0_D0_SK3 () result(assertion); logical(LK) :: assertion; end function
56 : #endif
57 : #if SK2_ENABLED
58 : module function test_setSplit_D0_D0_SK2 () result(assertion); logical(LK) :: assertion; end function
59 : #endif
60 : #if SK1_ENABLED
61 : module function test_setSplit_D0_D0_SK1 () result(assertion); logical(LK) :: assertion; end function
62 : #endif
63 : module function test_setSplit_D0_D0_SK () result(assertion); logical(LK) :: assertion; end function
64 :
65 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
66 :
67 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
68 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
69 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
70 :
71 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
72 :
73 : #if SK5_ENABLED
74 : module function test_setSplit_D1_D0_SK5 () result(assertion); logical(LK) :: assertion; end function
75 : #endif
76 : #if SK4_ENABLED
77 : module function test_setSplit_D1_D0_SK4 () result(assertion); logical(LK) :: assertion; end function
78 : #endif
79 : #if SK3_ENABLED
80 : module function test_setSplit_D1_D0_SK3 () result(assertion); logical(LK) :: assertion; end function
81 : #endif
82 : #if SK2_ENABLED
83 : module function test_setSplit_D1_D0_SK2 () result(assertion); logical(LK) :: assertion; end function
84 : #endif
85 : #if SK1_ENABLED
86 : module function test_setSplit_D1_D0_SK1 () result(assertion); logical(LK) :: assertion; end function
87 : #endif
88 : module function test_setSplit_D1_D0_SK () result(assertion); logical(LK) :: assertion; end function
89 :
90 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
91 :
92 : #if IK5_ENABLED
93 : module function test_setSplit_D1_D0_IK5 () result(assertion); logical(LK) :: assertion; end function
94 : #endif
95 : #if IK4_ENABLED
96 : module function test_setSplit_D1_D0_IK4 () result(assertion); logical(LK) :: assertion; end function
97 : #endif
98 : #if IK3_ENABLED
99 : module function test_setSplit_D1_D0_IK3 () result(assertion); logical(LK) :: assertion; end function
100 : #endif
101 : #if IK2_ENABLED
102 : module function test_setSplit_D1_D0_IK2 () result(assertion); logical(LK) :: assertion; end function
103 : #endif
104 : #if IK1_ENABLED
105 : module function test_setSplit_D1_D0_IK1 () result(assertion); logical(LK) :: assertion; end function
106 : #endif
107 : module function test_setSplit_D1_D0_IK () result(assertion); logical(LK) :: assertion; end function
108 :
109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
110 :
111 : #if LK5_ENABLED
112 : module function test_setSplit_D1_D0_LK5 () result(assertion); logical(LK) :: assertion; end function
113 : #endif
114 : #if LK4_ENABLED
115 : module function test_setSplit_D1_D0_LK4 () result(assertion); logical(LK) :: assertion; end function
116 : #endif
117 : #if LK3_ENABLED
118 : module function test_setSplit_D1_D0_LK3 () result(assertion); logical(LK) :: assertion; end function
119 : #endif
120 : #if LK2_ENABLED
121 : module function test_setSplit_D1_D0_LK2 () result(assertion); logical(LK) :: assertion; end function
122 : #endif
123 : #if LK1_ENABLED
124 : module function test_setSplit_D1_D0_LK1 () result(assertion); logical(LK) :: assertion; end function
125 : #endif
126 : module function test_setSplit_D1_D0_LK () result(assertion); logical(LK) :: assertion; end function
127 :
128 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
129 :
130 : #if CK5_ENABLED
131 : module function test_setSplit_D1_D0_CK5 () result(assertion); logical(LK) :: assertion; end function
132 : #endif
133 : #if CK4_ENABLED
134 : module function test_setSplit_D1_D0_CK4 () result(assertion); logical(LK) :: assertion; end function
135 : #endif
136 : #if CK3_ENABLED
137 : module function test_setSplit_D1_D0_CK3 () result(assertion); logical(LK) :: assertion; end function
138 : #endif
139 : #if CK2_ENABLED
140 : module function test_setSplit_D1_D0_CK2 () result(assertion); logical(LK) :: assertion; end function
141 : #endif
142 : #if CK1_ENABLED
143 : module function test_setSplit_D1_D0_CK1 () result(assertion); logical(LK) :: assertion; end function
144 : #endif
145 : module function test_setSplit_D1_D0_CK () result(assertion); logical(LK) :: assertion; end function
146 :
147 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
148 :
149 : #if RK5_ENABLED
150 : module function test_setSplit_D1_D0_RK5 () result(assertion); logical(LK) :: assertion; end function
151 : #endif
152 : #if RK4_ENABLED
153 : module function test_setSplit_D1_D0_RK4 () result(assertion); logical(LK) :: assertion; end function
154 : #endif
155 : #if RK3_ENABLED
156 : module function test_setSplit_D1_D0_RK3 () result(assertion); logical(LK) :: assertion; end function
157 : #endif
158 : #if RK2_ENABLED
159 : module function test_setSplit_D1_D0_RK2 () result(assertion); logical(LK) :: assertion; end function
160 : #endif
161 : #if RK1_ENABLED
162 : module function test_setSplit_D1_D0_RK1 () result(assertion); logical(LK) :: assertion; end function
163 : #endif
164 : module function test_setSplit_D1_D0_RK () result(assertion); logical(LK) :: assertion; end function
165 :
166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167 :
168 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
171 :
172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
173 :
174 : #if SK5_ENABLED
175 : module function test_setSplit_D1_D1_SK5 () result(assertion); logical(LK) :: assertion; end function
176 : #endif
177 : #if SK4_ENABLED
178 : module function test_setSplit_D1_D1_SK4 () result(assertion); logical(LK) :: assertion; end function
179 : #endif
180 : #if SK3_ENABLED
181 : module function test_setSplit_D1_D1_SK3 () result(assertion); logical(LK) :: assertion; end function
182 : #endif
183 : #if SK2_ENABLED
184 : module function test_setSplit_D1_D1_SK2 () result(assertion); logical(LK) :: assertion; end function
185 : #endif
186 : #if SK1_ENABLED
187 : module function test_setSplit_D1_D1_SK1 () result(assertion); logical(LK) :: assertion; end function
188 : #endif
189 : module function test_setSplit_D1_D1_SK () result(assertion); logical(LK) :: assertion; end function
190 :
191 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
192 :
193 : #if IK5_ENABLED
194 : module function test_setSplit_D1_D1_IK5 () result(assertion); logical(LK) :: assertion; end function
195 : #endif
196 : #if IK4_ENABLED
197 : module function test_setSplit_D1_D1_IK4 () result(assertion); logical(LK) :: assertion; end function
198 : #endif
199 : #if IK3_ENABLED
200 : module function test_setSplit_D1_D1_IK3 () result(assertion); logical(LK) :: assertion; end function
201 : #endif
202 : #if IK2_ENABLED
203 : module function test_setSplit_D1_D1_IK2 () result(assertion); logical(LK) :: assertion; end function
204 : #endif
205 : #if IK1_ENABLED
206 : module function test_setSplit_D1_D1_IK1 () result(assertion); logical(LK) :: assertion; end function
207 : #endif
208 : module function test_setSplit_D1_D1_IK () result(assertion); logical(LK) :: assertion; end function
209 :
210 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
211 :
212 : #if LK5_ENABLED
213 : module function test_setSplit_D1_D1_LK5 () result(assertion); logical(LK) :: assertion; end function
214 : #endif
215 : #if LK4_ENABLED
216 : module function test_setSplit_D1_D1_LK4 () result(assertion); logical(LK) :: assertion; end function
217 : #endif
218 : #if LK3_ENABLED
219 : module function test_setSplit_D1_D1_LK3 () result(assertion); logical(LK) :: assertion; end function
220 : #endif
221 : #if LK2_ENABLED
222 : module function test_setSplit_D1_D1_LK2 () result(assertion); logical(LK) :: assertion; end function
223 : #endif
224 : #if LK1_ENABLED
225 : module function test_setSplit_D1_D1_LK1 () result(assertion); logical(LK) :: assertion; end function
226 : #endif
227 : module function test_setSplit_D1_D1_LK () result(assertion); logical(LK) :: assertion; end function
228 :
229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
230 :
231 : #if CK5_ENABLED
232 : module function test_setSplit_D1_D1_CK5 () result(assertion); logical(LK) :: assertion; end function
233 : #endif
234 : #if CK4_ENABLED
235 : module function test_setSplit_D1_D1_CK4 () result(assertion); logical(LK) :: assertion; end function
236 : #endif
237 : #if CK3_ENABLED
238 : module function test_setSplit_D1_D1_CK3 () result(assertion); logical(LK) :: assertion; end function
239 : #endif
240 : #if CK2_ENABLED
241 : module function test_setSplit_D1_D1_CK2 () result(assertion); logical(LK) :: assertion; end function
242 : #endif
243 : #if CK1_ENABLED
244 : module function test_setSplit_D1_D1_CK1 () result(assertion); logical(LK) :: assertion; end function
245 : #endif
246 : module function test_setSplit_D1_D1_CK () result(assertion); logical(LK) :: assertion; end function
247 :
248 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
249 :
250 : #if RK5_ENABLED
251 : module function test_setSplit_D1_D1_RK5 () result(assertion); logical(LK) :: assertion; end function
252 : #endif
253 : #if RK4_ENABLED
254 : module function test_setSplit_D1_D1_RK4 () result(assertion); logical(LK) :: assertion; end function
255 : #endif
256 : #if RK3_ENABLED
257 : module function test_setSplit_D1_D1_RK3 () result(assertion); logical(LK) :: assertion; end function
258 : #endif
259 : #if RK2_ENABLED
260 : module function test_setSplit_D1_D1_RK2 () result(assertion); logical(LK) :: assertion; end function
261 : #endif
262 : #if RK1_ENABLED
263 : module function test_setSplit_D1_D1_RK1 () result(assertion); logical(LK) :: assertion; end function
264 : #endif
265 : module function test_setSplit_D1_D1_RK () result(assertion); logical(LK) :: assertion; end function
266 :
267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
268 :
269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
272 :
273 : end interface
274 :
275 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
276 :
277 : contains
278 :
279 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
280 :
281 1 : subroutine setTest()
282 :
283 : implicit none
284 :
285 1 : test = test_type(MODULE_NAME)
286 :
287 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
288 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
290 :
291 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
292 :
293 1 : call test%run(test_setSplit_D0_D0_SK, SK_"test_setSplit_D0_D0_SK")
294 :
295 1 : call test%run(test_setSplit_D1_D0_SK, SK_"test_setSplit_D1_D0_SK")
296 1 : call test%run(test_setSplit_D1_D0_IK, SK_"test_setSplit_D1_D0_IK")
297 1 : call test%run(test_setSplit_D1_D0_LK, SK_"test_setSplit_D1_D0_LK")
298 1 : call test%run(test_setSplit_D1_D0_CK, SK_"test_setSplit_D1_D0_CK")
299 1 : call test%run(test_setSplit_D1_D0_RK, SK_"test_setSplit_D1_D0_RK")
300 :
301 1 : call test%run(test_setSplit_D1_D1_SK, SK_"test_setSplit_D1_D1_SK")
302 1 : call test%run(test_setSplit_D1_D1_IK, SK_"test_setSplit_D1_D1_IK")
303 1 : call test%run(test_setSplit_D1_D1_LK, SK_"test_setSplit_D1_D1_LK")
304 1 : call test%run(test_setSplit_D1_D1_CK, SK_"test_setSplit_D1_D1_CK")
305 1 : call test%run(test_setSplit_D1_D1_RK, SK_"test_setSplit_D1_D1_RK")
306 :
307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308 :
309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 :
313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314 :
315 : #if SK5_ENABLED
316 : call test%run(test_setSplit_D0_D0_SK5, SK_"test_setSplit_D0_D0_SK5")
317 : #endif
318 : #if SK4_ENABLED
319 : call test%run(test_setSplit_D0_D0_SK4, SK_"test_setSplit_D0_D0_SK4")
320 : #endif
321 : #if SK3_ENABLED
322 : call test%run(test_setSplit_D0_D0_SK3, SK_"test_setSplit_D0_D0_SK3")
323 : #endif
324 : #if SK2_ENABLED
325 : call test%run(test_setSplit_D0_D0_SK2, SK_"test_setSplit_D0_D0_SK2")
326 : #endif
327 : #if SK1_ENABLED
328 1 : call test%run(test_setSplit_D0_D0_SK1, SK_"test_setSplit_D0_D0_SK1")
329 : #endif
330 :
331 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
332 :
333 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
336 :
337 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
338 :
339 : #if SK5_ENABLED
340 : call test%run(test_setSplit_D1_D0_SK5, SK_"test_setSplit_D1_D0_SK5")
341 : #endif
342 : #if SK4_ENABLED
343 : call test%run(test_setSplit_D1_D0_SK4, SK_"test_setSplit_D1_D0_SK4")
344 : #endif
345 : #if SK3_ENABLED
346 : call test%run(test_setSplit_D1_D0_SK3, SK_"test_setSplit_D1_D0_SK3")
347 : #endif
348 : #if SK2_ENABLED
349 : call test%run(test_setSplit_D1_D0_SK2, SK_"test_setSplit_D1_D1_SK2")
350 : #endif
351 : #if SK1_ENABLED
352 1 : call test%run(test_setSplit_D1_D0_SK1, SK_"test_setSplit_D1_D0_SK1")
353 : #endif
354 :
355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
356 :
357 : #if IK5_ENABLED
358 1 : call test%run(test_setSplit_D1_D0_IK5, SK_"test_setSplit_D1_D0_IK5")
359 : #endif
360 : #if IK4_ENABLED
361 1 : call test%run(test_setSplit_D1_D0_IK4, SK_"test_setSplit_D1_D0_IK4")
362 : #endif
363 : #if IK3_ENABLED
364 1 : call test%run(test_setSplit_D1_D0_IK3, SK_"test_setSplit_D1_D0_IK3")
365 : #endif
366 : #if IK2_ENABLED
367 1 : call test%run(test_setSplit_D1_D0_IK2, SK_"test_setSplit_D1_D1_IK2")
368 : #endif
369 : #if IK1_ENABLED
370 1 : call test%run(test_setSplit_D1_D0_IK1, SK_"test_setSplit_D1_D0_IK1")
371 : #endif
372 :
373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
374 :
375 : #if LK5_ENABLED
376 1 : call test%run(test_setSplit_D1_D0_LK5, SK_"test_setSplit_D1_D0_LK5")
377 : #endif
378 : #if LK4_ENABLED
379 1 : call test%run(test_setSplit_D1_D0_LK4, SK_"test_setSplit_D1_D0_LK4")
380 : #endif
381 : #if LK3_ENABLED
382 1 : call test%run(test_setSplit_D1_D0_LK3, SK_"test_setSplit_D1_D0_LK3")
383 : #endif
384 : #if LK2_ENABLED
385 1 : call test%run(test_setSplit_D1_D0_LK2, SK_"test_setSplit_D1_D1_LK2")
386 : #endif
387 : #if LK1_ENABLED
388 1 : call test%run(test_setSplit_D1_D0_LK1, SK_"test_setSplit_D1_D0_LK1")
389 : #endif
390 :
391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392 :
393 : #if CK5_ENABLED
394 : call test%run(test_setSplit_D1_D0_CK5, SK_"test_setSplit_D1_D0_CK5")
395 : #endif
396 : #if CK4_ENABLED
397 1 : call test%run(test_setSplit_D1_D0_CK4, SK_"test_setSplit_D1_D0_CK4")
398 : #endif
399 : #if CK3_ENABLED
400 1 : call test%run(test_setSplit_D1_D0_CK3, SK_"test_setSplit_D1_D0_CK3")
401 : #endif
402 : #if CK2_ENABLED
403 1 : call test%run(test_setSplit_D1_D0_CK2, SK_"test_setSplit_D1_D1_CK2")
404 : #endif
405 : #if CK1_ENABLED
406 1 : call test%run(test_setSplit_D1_D0_CK1, SK_"test_setSplit_D1_D0_CK1")
407 : #endif
408 :
409 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
410 :
411 : #if RK5_ENABLED
412 : call test%run(test_setSplit_D1_D0_RK5, SK_"test_setSplit_D1_D0_RK5")
413 : #endif
414 : #if RK4_ENABLED
415 1 : call test%run(test_setSplit_D1_D0_RK4, SK_"test_setSplit_D1_D0_RK4")
416 : #endif
417 : #if RK3_ENABLED
418 1 : call test%run(test_setSplit_D1_D0_RK3, SK_"test_setSplit_D1_D0_RK3")
419 : #endif
420 : #if RK2_ENABLED
421 1 : call test%run(test_setSplit_D1_D0_RK2, SK_"test_setSplit_D1_D1_RK2")
422 : #endif
423 : #if RK1_ENABLED
424 1 : call test%run(test_setSplit_D1_D0_RK1, SK_"test_setSplit_D1_D0_RK1")
425 : #endif
426 :
427 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
428 :
429 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
431 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
432 :
433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
434 :
435 : #if SK5_ENABLED
436 : call test%run(test_setSplit_D1_D1_SK5, SK_"test_setSplit_D1_D1_SK5")
437 : #endif
438 : #if SK4_ENABLED
439 : call test%run(test_setSplit_D1_D1_SK4, SK_"test_setSplit_D1_D1_SK4")
440 : #endif
441 : #if SK3_ENABLED
442 : call test%run(test_setSplit_D1_D1_SK3, SK_"test_setSplit_D1_D1_SK3")
443 : #endif
444 : #if SK2_ENABLED
445 : call test%run(test_setSplit_D1_D1_SK2, SK_"test_setSplit_D1_D1_SK2")
446 : #endif
447 : #if SK1_ENABLED
448 1 : call test%run(test_setSplit_D1_D1_SK1, SK_"test_setSplit_D1_D1_SK1")
449 : #endif
450 :
451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
452 :
453 : #if IK5_ENABLED
454 1 : call test%run(test_setSplit_D1_D1_IK5, SK_"test_setSplit_D1_D1_IK5")
455 : #endif
456 : #if IK4_ENABLED
457 1 : call test%run(test_setSplit_D1_D1_IK4, SK_"test_setSplit_D1_D1_IK4")
458 : #endif
459 : #if IK3_ENABLED
460 1 : call test%run(test_setSplit_D1_D1_IK3, SK_"test_setSplit_D1_D1_IK3")
461 : #endif
462 : #if IK2_ENABLED
463 1 : call test%run(test_setSplit_D1_D1_IK2, SK_"test_setSplit_D1_D1_IK2")
464 : #endif
465 : #if IK1_ENABLED
466 1 : call test%run(test_setSplit_D1_D1_IK1, SK_"test_setSplit_D1_D1_IK1")
467 : #endif
468 :
469 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
470 :
471 : #if LK5_ENABLED
472 1 : call test%run(test_setSplit_D1_D1_LK5, SK_"test_setSplit_D1_D1_LK5")
473 : #endif
474 : #if LK4_ENABLED
475 1 : call test%run(test_setSplit_D1_D1_LK4, SK_"test_setSplit_D1_D1_LK4")
476 : #endif
477 : #if LK3_ENABLED
478 1 : call test%run(test_setSplit_D1_D1_LK3, SK_"test_setSplit_D1_D1_LK3")
479 : #endif
480 : #if LK2_ENABLED
481 1 : call test%run(test_setSplit_D1_D1_LK2, SK_"test_setSplit_D1_D1_LK2")
482 : #endif
483 : #if LK1_ENABLED
484 1 : call test%run(test_setSplit_D1_D1_LK1, SK_"test_setSplit_D1_D1_LK1")
485 : #endif
486 :
487 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
488 :
489 : #if CK5_ENABLED
490 : call test%run(test_setSplit_D1_D1_CK5, SK_"test_setSplit_D1_D1_CK5")
491 : #endif
492 : #if CK4_ENABLED
493 1 : call test%run(test_setSplit_D1_D1_CK4, SK_"test_setSplit_D1_D1_CK4")
494 : #endif
495 : #if CK3_ENABLED
496 1 : call test%run(test_setSplit_D1_D1_CK3, SK_"test_setSplit_D1_D1_CK3")
497 : #endif
498 : #if CK2_ENABLED
499 1 : call test%run(test_setSplit_D1_D1_CK2, SK_"test_setSplit_D1_D1_CK2")
500 : #endif
501 : #if CK1_ENABLED
502 1 : call test%run(test_setSplit_D1_D1_CK1, SK_"test_setSplit_D1_D1_CK1")
503 : #endif
504 :
505 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
506 :
507 : #if RK5_ENABLED
508 : call test%run(test_setSplit_D1_D1_RK5, SK_"test_setSplit_D1_D1_RK5")
509 : #endif
510 : #if RK4_ENABLED
511 1 : call test%run(test_setSplit_D1_D1_RK4, SK_"test_setSplit_D1_D1_RK4")
512 : #endif
513 : #if RK3_ENABLED
514 1 : call test%run(test_setSplit_D1_D1_RK3, SK_"test_setSplit_D1_D1_RK3")
515 : #endif
516 : #if RK2_ENABLED
517 1 : call test%run(test_setSplit_D1_D1_RK2, SK_"test_setSplit_D1_D1_RK2")
518 : #endif
519 : #if RK1_ENABLED
520 1 : call test%run(test_setSplit_D1_D1_RK1, SK_"test_setSplit_D1_D1_RK1")
521 : #endif
522 :
523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
524 :
525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528 :
529 1 : call test%summarize()
530 :
531 1 : end subroutine setTest
532 :
533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
534 :
535 : end module test_pm_arraySplit ! LCOV_EXCL_LINE
|
