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_arrayRemap](@ref pm_arrayRemap).
19 : !>
20 : !> \todo
21 : !> \phigh The following tests should be extended to include allocatable arrays of arbitrary bounds.
22 : !>
23 : !> \author
24 : !> \FatemehBagheri, Wednesday 12:20 AM, October 13, 2021, Dallas, TX
25 :
26 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27 :
28 : module test_pm_arrayRemap
29 :
30 : use pm_arrayRemap
31 : use pm_test, only: test_type, LK
32 : use pm_kind, only: IK, RK
33 : implicit none
34 :
35 : private
36 : public :: setTest
37 : type(test_type) :: test
38 :
39 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40 :
41 : interface
42 :
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 :
45 : #if SK5_ENABLED
46 : module function test_getRemapped_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
47 : #endif
48 : #if SK4_ENABLED
49 : module function test_getRemapped_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
50 : #endif
51 : #if SK3_ENABLED
52 : module function test_getRemapped_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
53 : #endif
54 : #if SK2_ENABLED
55 : module function test_getRemapped_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
56 : #endif
57 : #if SK1_ENABLED
58 : module function test_getRemapped_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
59 : #endif
60 :
61 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
62 :
63 : #if SK5_ENABLED
64 : module function test_getRemapped_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
65 : #endif
66 : #if SK4_ENABLED
67 : module function test_getRemapped_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
68 : #endif
69 : #if SK3_ENABLED
70 : module function test_getRemapped_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
71 : #endif
72 : #if SK2_ENABLED
73 : module function test_getRemapped_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
74 : #endif
75 : #if SK1_ENABLED
76 : module function test_getRemapped_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
77 : #endif
78 :
79 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
80 :
81 : #if IK5_ENABLED
82 : module function test_getRemapped_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
83 : #endif
84 : #if IK4_ENABLED
85 : module function test_getRemapped_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
86 : #endif
87 : #if IK3_ENABLED
88 : module function test_getRemapped_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
89 : #endif
90 : #if IK2_ENABLED
91 : module function test_getRemapped_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
92 : #endif
93 : #if IK1_ENABLED
94 : module function test_getRemapped_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
95 : #endif
96 :
97 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98 :
99 : #if LK5_ENABLED
100 : module function test_getRemapped_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
101 : #endif
102 : #if LK4_ENABLED
103 : module function test_getRemapped_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
104 : #endif
105 : #if LK3_ENABLED
106 : module function test_getRemapped_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
107 : #endif
108 : #if LK2_ENABLED
109 : module function test_getRemapped_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
110 : #endif
111 : #if LK1_ENABLED
112 : module function test_getRemapped_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
113 : #endif
114 :
115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
116 :
117 : #if CK5_ENABLED
118 : module function test_getRemapped_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
119 : #endif
120 : #if CK4_ENABLED
121 : module function test_getRemapped_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
122 : #endif
123 : #if CK3_ENABLED
124 : module function test_getRemapped_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
125 : #endif
126 : #if CK2_ENABLED
127 : module function test_getRemapped_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
128 : #endif
129 : #if CK1_ENABLED
130 : module function test_getRemapped_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
131 : #endif
132 :
133 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
134 :
135 : #if RK5_ENABLED
136 : module function test_getRemapped_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
137 : #endif
138 : #if RK4_ENABLED
139 : module function test_getRemapped_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
140 : #endif
141 : #if RK3_ENABLED
142 : module function test_getRemapped_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
143 : #endif
144 : #if RK2_ENABLED
145 : module function test_getRemapped_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
146 : #endif
147 : #if RK1_ENABLED
148 : module function test_getRemapped_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
149 : #endif
150 :
151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152 :
153 : end interface
154 :
155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 :
157 : interface
158 :
159 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
160 :
161 : #if SK5_ENABLED
162 : module function test_setRemapped_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
163 : #endif
164 : #if SK4_ENABLED
165 : module function test_setRemapped_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
166 : #endif
167 : #if SK3_ENABLED
168 : module function test_setRemapped_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
169 : #endif
170 : #if SK2_ENABLED
171 : module function test_setRemapped_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
172 : #endif
173 : #if SK1_ENABLED
174 : module function test_setRemapped_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
175 : #endif
176 :
177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
178 :
179 : #if SK5_ENABLED
180 : module function test_setRemapped_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
181 : #endif
182 : #if SK4_ENABLED
183 : module function test_setRemapped_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
184 : #endif
185 : #if SK3_ENABLED
186 : module function test_setRemapped_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
187 : #endif
188 : #if SK2_ENABLED
189 : module function test_setRemapped_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
190 : #endif
191 : #if SK1_ENABLED
192 : module function test_setRemapped_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
193 : #endif
194 :
195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
196 :
197 : #if IK5_ENABLED
198 : module function test_setRemapped_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
199 : #endif
200 : #if IK4_ENABLED
201 : module function test_setRemapped_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
202 : #endif
203 : #if IK3_ENABLED
204 : module function test_setRemapped_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
205 : #endif
206 : #if IK2_ENABLED
207 : module function test_setRemapped_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
208 : #endif
209 : #if IK1_ENABLED
210 : module function test_setRemapped_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
211 : #endif
212 :
213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214 :
215 : #if LK5_ENABLED
216 : module function test_setRemapped_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
217 : #endif
218 : #if LK4_ENABLED
219 : module function test_setRemapped_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
220 : #endif
221 : #if LK3_ENABLED
222 : module function test_setRemapped_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
223 : #endif
224 : #if LK2_ENABLED
225 : module function test_setRemapped_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
226 : #endif
227 : #if LK1_ENABLED
228 : module function test_setRemapped_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
229 : #endif
230 :
231 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
232 :
233 : #if CK5_ENABLED
234 : module function test_setRemapped_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
235 : #endif
236 : #if CK4_ENABLED
237 : module function test_setRemapped_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
238 : #endif
239 : #if CK3_ENABLED
240 : module function test_setRemapped_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
241 : #endif
242 : #if CK2_ENABLED
243 : module function test_setRemapped_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
244 : #endif
245 : #if CK1_ENABLED
246 : module function test_setRemapped_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
247 : #endif
248 :
249 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250 :
251 : #if RK5_ENABLED
252 : module function test_setRemapped_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
253 : #endif
254 : #if RK4_ENABLED
255 : module function test_setRemapped_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
256 : #endif
257 : #if RK3_ENABLED
258 : module function test_setRemapped_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
259 : #endif
260 : #if RK2_ENABLED
261 : module function test_setRemapped_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
262 : #endif
263 : #if RK1_ENABLED
264 : module function test_setRemapped_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
265 : #endif
266 :
267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
268 :
269 : end interface
270 :
271 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
272 :
273 : contains
274 :
275 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
276 :
277 1 : subroutine setTest()
278 :
279 1 : test = test_type(MODULE_NAME)
280 :
281 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
282 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284 :
285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
286 :
287 : #if SK5_ENABLED
288 : call test%run(test_getRemapped_D0_SK5_1, SK_"test_getRemapped_D0_SK5_1")
289 : #endif
290 : #if SK4_ENABLED
291 : call test%run(test_getRemapped_D0_SK4_1, SK_"test_getRemapped_D0_SK4_1")
292 : #endif
293 : #if SK3_ENABLED
294 : call test%run(test_getRemapped_D0_SK3_1, SK_"test_getRemapped_D0_SK3_1")
295 : #endif
296 : #if SK2_ENABLED
297 : call test%run(test_getRemapped_D0_SK2_1, SK_"test_getRemapped_D0_SK2_1")
298 : #endif
299 : #if SK1_ENABLED
300 1 : call test%run(test_getRemapped_D0_SK1_1, SK_"test_getRemapped_D0_SK1_1")
301 : #endif
302 :
303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304 :
305 : #if SK5_ENABLED
306 : call test%run(test_getRemapped_D1_SK5_1, SK_"test_getRemapped_D1_SK5_1")
307 : #endif
308 : #if SK4_ENABLED
309 : call test%run(test_getRemapped_D1_SK4_1, SK_"test_getRemapped_D1_SK4_1")
310 : #endif
311 : #if SK3_ENABLED
312 : call test%run(test_getRemapped_D1_SK3_1, SK_"test_getRemapped_D1_SK3_1")
313 : #endif
314 : #if SK2_ENABLED
315 : call test%run(test_getRemapped_D1_SK2_1, SK_"test_getRemapped_D1_SK2_1")
316 : #endif
317 : #if SK1_ENABLED
318 1 : call test%run(test_getRemapped_D1_SK1_1, SK_"test_getRemapped_D1_SK1_1")
319 : #endif
320 :
321 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
322 :
323 : #if IK5_ENABLED
324 1 : call test%run(test_getRemapped_D1_IK5_1, SK_"test_getRemapped_D1_IK5_1")
325 : #endif
326 : #if IK4_ENABLED
327 1 : call test%run(test_getRemapped_D1_IK4_1, SK_"test_getRemapped_D1_IK4_1")
328 : #endif
329 : #if IK3_ENABLED
330 1 : call test%run(test_getRemapped_D1_IK3_1, SK_"test_getRemapped_D1_IK3_1")
331 : #endif
332 : #if IK2_ENABLED
333 1 : call test%run(test_getRemapped_D1_IK2_1, SK_"test_getRemapped_D1_IK2_1")
334 : #endif
335 : #if IK1_ENABLED
336 1 : call test%run(test_getRemapped_D1_IK1_1, SK_"test_getRemapped_D1_IK1_1")
337 : #endif
338 :
339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
340 :
341 : #if LK5_ENABLED
342 1 : call test%run(test_getRemapped_D1_LK5_1, SK_"test_getRemapped_D1_LK5_1")
343 : #endif
344 : #if LK4_ENABLED
345 1 : call test%run(test_getRemapped_D1_LK4_1, SK_"test_getRemapped_D1_LK4_1")
346 : #endif
347 : #if LK3_ENABLED
348 1 : call test%run(test_getRemapped_D1_LK3_1, SK_"test_getRemapped_D1_LK3_1")
349 : #endif
350 : #if LK2_ENABLED
351 1 : call test%run(test_getRemapped_D1_LK2_1, SK_"test_getRemapped_D1_LK2_1")
352 : #endif
353 : #if LK1_ENABLED
354 1 : call test%run(test_getRemapped_D1_LK1_1, SK_"test_getRemapped_D1_LK1_1")
355 : #endif
356 :
357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
358 :
359 : #if CK5_ENABLED
360 : call test%run(test_getRemapped_D1_CK5_1, SK_"test_getRemapped_D1_CK5_1")
361 : #endif
362 : #if CK4_ENABLED
363 1 : call test%run(test_getRemapped_D1_CK4_1, SK_"test_getRemapped_D1_CK4_1")
364 : #endif
365 : #if CK3_ENABLED
366 1 : call test%run(test_getRemapped_D1_CK3_1, SK_"test_getRemapped_D1_CK3_1")
367 : #endif
368 : #if CK2_ENABLED
369 1 : call test%run(test_getRemapped_D1_CK2_1, SK_"test_getRemapped_D1_CK2_1")
370 : #endif
371 : #if CK1_ENABLED
372 1 : call test%run(test_getRemapped_D1_CK1_1, SK_"test_getRemapped_D1_CK1_1")
373 : #endif
374 :
375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
376 :
377 : #if RK5_ENABLED
378 : call test%run(test_getRemapped_D1_RK5_1, SK_"test_getRemapped_D1_RK5_1")
379 : #endif
380 : #if RK4_ENABLED
381 1 : call test%run(test_getRemapped_D1_RK4_1, SK_"test_getRemapped_D1_RK4_1")
382 : #endif
383 : #if RK3_ENABLED
384 1 : call test%run(test_getRemapped_D1_RK3_1, SK_"test_getRemapped_D1_RK3_1")
385 : #endif
386 : #if RK2_ENABLED
387 1 : call test%run(test_getRemapped_D1_RK2_1, SK_"test_getRemapped_D1_RK2_1")
388 : #endif
389 : #if RK1_ENABLED
390 1 : call test%run(test_getRemapped_D1_RK1_1, SK_"test_getRemapped_D1_RK1_1")
391 : #endif
392 :
393 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
394 :
395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
398 :
399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
400 :
401 : #if SK5_ENABLED
402 : call test%run(test_setRemapped_D0_SK5_1, SK_"test_setRemapped_D0_SK5_1")
403 : #endif
404 : #if SK4_ENABLED
405 : call test%run(test_setRemapped_D0_SK4_1, SK_"test_setRemapped_D0_SK4_1")
406 : #endif
407 : #if SK3_ENABLED
408 : call test%run(test_setRemapped_D0_SK3_1, SK_"test_setRemapped_D0_SK3_1")
409 : #endif
410 : #if SK2_ENABLED
411 : call test%run(test_setRemapped_D0_SK2_1, SK_"test_setRemapped_D0_SK2_1")
412 : #endif
413 : #if SK1_ENABLED
414 1 : call test%run(test_setRemapped_D0_SK1_1, SK_"test_setRemapped_D0_SK1_1")
415 : #endif
416 :
417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
418 :
419 : #if SK5_ENABLED
420 : call test%run(test_setRemapped_D1_SK5_1, SK_"test_setRemapped_D1_SK5_1")
421 : #endif
422 : #if SK4_ENABLED
423 : call test%run(test_setRemapped_D1_SK4_1, SK_"test_setRemapped_D1_SK4_1")
424 : #endif
425 : #if SK3_ENABLED
426 : call test%run(test_setRemapped_D1_SK3_1, SK_"test_setRemapped_D1_SK3_1")
427 : #endif
428 : #if SK2_ENABLED
429 : call test%run(test_setRemapped_D1_SK2_1, SK_"test_setRemapped_D1_SK2_1")
430 : #endif
431 : #if SK1_ENABLED
432 1 : call test%run(test_setRemapped_D1_SK1_1, SK_"test_setRemapped_D1_SK1_1")
433 : #endif
434 :
435 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
436 :
437 : #if IK5_ENABLED
438 1 : call test%run(test_setRemapped_D1_IK5_1, SK_"test_setRemapped_D1_IK5_1")
439 : #endif
440 : #if IK4_ENABLED
441 1 : call test%run(test_setRemapped_D1_IK4_1, SK_"test_setRemapped_D1_IK4_1")
442 : #endif
443 : #if IK3_ENABLED
444 1 : call test%run(test_setRemapped_D1_IK3_1, SK_"test_setRemapped_D1_IK3_1")
445 : #endif
446 : #if IK2_ENABLED
447 1 : call test%run(test_setRemapped_D1_IK2_1, SK_"test_setRemapped_D1_IK2_1")
448 : #endif
449 : #if IK1_ENABLED
450 1 : call test%run(test_setRemapped_D1_IK1_1, SK_"test_setRemapped_D1_IK1_1")
451 : #endif
452 :
453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
454 :
455 : #if LK5_ENABLED
456 1 : call test%run(test_setRemapped_D1_LK5_1, SK_"test_setRemapped_D1_LK5_1")
457 : #endif
458 : #if LK4_ENABLED
459 1 : call test%run(test_setRemapped_D1_LK4_1, SK_"test_setRemapped_D1_LK4_1")
460 : #endif
461 : #if LK3_ENABLED
462 1 : call test%run(test_setRemapped_D1_LK3_1, SK_"test_setRemapped_D1_LK3_1")
463 : #endif
464 : #if LK2_ENABLED
465 1 : call test%run(test_setRemapped_D1_LK2_1, SK_"test_setRemapped_D1_LK2_1")
466 : #endif
467 : #if LK1_ENABLED
468 1 : call test%run(test_setRemapped_D1_LK1_1, SK_"test_setRemapped_D1_LK1_1")
469 : #endif
470 :
471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
472 :
473 : #if CK5_ENABLED
474 : call test%run(test_setRemapped_D1_CK5_1, SK_"test_setRemapped_D1_CK5_1")
475 : #endif
476 : #if CK4_ENABLED
477 1 : call test%run(test_setRemapped_D1_CK4_1, SK_"test_setRemapped_D1_CK4_1")
478 : #endif
479 : #if CK3_ENABLED
480 1 : call test%run(test_setRemapped_D1_CK3_1, SK_"test_setRemapped_D1_CK3_1")
481 : #endif
482 : #if CK2_ENABLED
483 1 : call test%run(test_setRemapped_D1_CK2_1, SK_"test_setRemapped_D1_CK2_1")
484 : #endif
485 : #if CK1_ENABLED
486 1 : call test%run(test_setRemapped_D1_CK1_1, SK_"test_setRemapped_D1_CK1_1")
487 : #endif
488 :
489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
490 :
491 : #if RK5_ENABLED
492 : call test%run(test_setRemapped_D1_RK5_1, SK_"test_setRemapped_D1_RK5_1")
493 : #endif
494 : #if RK4_ENABLED
495 1 : call test%run(test_setRemapped_D1_RK4_1, SK_"test_setRemapped_D1_RK4_1")
496 : #endif
497 : #if RK3_ENABLED
498 1 : call test%run(test_setRemapped_D1_RK3_1, SK_"test_setRemapped_D1_RK3_1")
499 : #endif
500 : #if RK2_ENABLED
501 1 : call test%run(test_setRemapped_D1_RK2_1, SK_"test_setRemapped_D1_RK2_1")
502 : #endif
503 : #if RK1_ENABLED
504 1 : call test%run(test_setRemapped_D1_RK1_1, SK_"test_setRemapped_D1_RK1_1")
505 : #endif
506 :
507 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
508 :
509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
510 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
512 1 : call test%summarize()
513 :
514 1 : end subroutine setTest
515 :
516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517 :
518 : end module test_pm_arrayRemap
|
