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_arrayCenter](@ref pm_arrayCenter).
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_arrayCenter
28 :
29 : use pm_arrayCenter
30 : use pm_err, only: err_type
31 : use pm_test, only: test_type, LK
32 :
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_getCentered_D0_SK5_1() result(assertion); logical(LK) :: assertion; end function
47 : #endif
48 : #if SK4_ENABLED
49 : module function test_getCentered_D0_SK4_1() result(assertion); logical(LK) :: assertion; end function
50 : #endif
51 : #if SK3_ENABLED
52 : module function test_getCentered_D0_SK3_1() result(assertion); logical(LK) :: assertion; end function
53 : #endif
54 : #if SK2_ENABLED
55 : module function test_getCentered_D0_SK2_1() result(assertion); logical(LK) :: assertion; end function
56 : #endif
57 : #if SK1_ENABLED
58 : module function test_getCentered_D0_SK1_1() result(assertion); logical(LK) :: assertion; end function
59 : #endif
60 :
61 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
62 :
63 : #if SK5_ENABLED
64 : module function test_getCentered_D1_SK5_1() result(assertion); logical(LK) :: assertion; end function
65 : #endif
66 : #if SK4_ENABLED
67 : module function test_getCentered_D1_SK4_1() result(assertion); logical(LK) :: assertion; end function
68 : #endif
69 : #if SK3_ENABLED
70 : module function test_getCentered_D1_SK3_1() result(assertion); logical(LK) :: assertion; end function
71 : #endif
72 : #if SK2_ENABLED
73 : module function test_getCentered_D1_SK2_1() result(assertion); logical(LK) :: assertion; end function
74 : #endif
75 : #if SK1_ENABLED
76 : module function test_getCentered_D1_SK1_1() result(assertion); logical(LK) :: assertion; end function
77 : #endif
78 :
79 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
80 :
81 : #if IK5_ENABLED
82 : module function test_getCentered_D1_IK5_1() result(assertion); logical(LK) :: assertion; end function
83 : #endif
84 : #if IK4_ENABLED
85 : module function test_getCentered_D1_IK4_1() result(assertion); logical(LK) :: assertion; end function
86 : #endif
87 : #if IK3_ENABLED
88 : module function test_getCentered_D1_IK3_1() result(assertion); logical(LK) :: assertion; end function
89 : #endif
90 : #if IK2_ENABLED
91 : module function test_getCentered_D1_IK2_1() result(assertion); logical(LK) :: assertion; end function
92 : #endif
93 : #if IK1_ENABLED
94 : module function test_getCentered_D1_IK1_1() result(assertion); logical(LK) :: assertion; end function
95 : #endif
96 :
97 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98 :
99 : #if LK5_ENABLED
100 : module function test_getCentered_D1_LK5_1() result(assertion); logical(LK) :: assertion; end function
101 : #endif
102 : #if LK4_ENABLED
103 : module function test_getCentered_D1_LK4_1() result(assertion); logical(LK) :: assertion; end function
104 : #endif
105 : #if LK3_ENABLED
106 : module function test_getCentered_D1_LK3_1() result(assertion); logical(LK) :: assertion; end function
107 : #endif
108 : #if LK2_ENABLED
109 : module function test_getCentered_D1_LK2_1() result(assertion); logical(LK) :: assertion; end function
110 : #endif
111 : #if LK1_ENABLED
112 : module function test_getCentered_D1_LK1_1() result(assertion); logical(LK) :: assertion; end function
113 : #endif
114 :
115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
116 :
117 : #if CK5_ENABLED
118 : module function test_getCentered_D1_CK5_1() result(assertion); logical(LK) :: assertion; end function
119 : #endif
120 : #if CK4_ENABLED
121 : module function test_getCentered_D1_CK4_1() result(assertion); logical(LK) :: assertion; end function
122 : #endif
123 : #if CK3_ENABLED
124 : module function test_getCentered_D1_CK3_1() result(assertion); logical(LK) :: assertion; end function
125 : #endif
126 : #if CK2_ENABLED
127 : module function test_getCentered_D1_CK2_1() result(assertion); logical(LK) :: assertion; end function
128 : #endif
129 : #if CK1_ENABLED
130 : module function test_getCentered_D1_CK1_1() result(assertion); logical(LK) :: assertion; end function
131 : #endif
132 :
133 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
134 :
135 : #if RK5_ENABLED
136 : module function test_getCentered_D1_RK5_1() result(assertion); logical(LK) :: assertion; end function
137 : #endif
138 : #if RK4_ENABLED
139 : module function test_getCentered_D1_RK4_1() result(assertion); logical(LK) :: assertion; end function
140 : #endif
141 : #if RK3_ENABLED
142 : module function test_getCentered_D1_RK3_1() result(assertion); logical(LK) :: assertion; end function
143 : #endif
144 : #if RK2_ENABLED
145 : module function test_getCentered_D1_RK2_1() result(assertion); logical(LK) :: assertion; end function
146 : #endif
147 : #if RK1_ENABLED
148 : module function test_getCentered_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_setCentered_D0_SK5_1() result(assertion); logical(LK) :: assertion; end function
163 : #endif
164 : #if SK4_ENABLED
165 : module function test_setCentered_D0_SK4_1() result(assertion); logical(LK) :: assertion; end function
166 : #endif
167 : #if SK3_ENABLED
168 : module function test_setCentered_D0_SK3_1() result(assertion); logical(LK) :: assertion; end function
169 : #endif
170 : #if SK2_ENABLED
171 : module function test_setCentered_D0_SK2_1() result(assertion); logical(LK) :: assertion; end function
172 : #endif
173 : #if SK1_ENABLED
174 : module function test_setCentered_D0_SK1_1() result(assertion); logical(LK) :: assertion; end function
175 : #endif
176 :
177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
178 :
179 : #if SK5_ENABLED
180 : module function test_setCentered_D1_SK5_1() result(assertion); logical(LK) :: assertion; end function
181 : #endif
182 : #if SK4_ENABLED
183 : module function test_setCentered_D1_SK4_1() result(assertion); logical(LK) :: assertion; end function
184 : #endif
185 : #if SK3_ENABLED
186 : module function test_setCentered_D1_SK3_1() result(assertion); logical(LK) :: assertion; end function
187 : #endif
188 : #if SK2_ENABLED
189 : module function test_setCentered_D1_SK2_1() result(assertion); logical(LK) :: assertion; end function
190 : #endif
191 : #if SK1_ENABLED
192 : module function test_setCentered_D1_SK1_1() result(assertion); logical(LK) :: assertion; end function
193 : #endif
194 :
195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
196 :
197 : #if IK5_ENABLED
198 : module function test_setCentered_D1_IK5_1() result(assertion); logical(LK) :: assertion; end function
199 : #endif
200 : #if IK4_ENABLED
201 : module function test_setCentered_D1_IK4_1() result(assertion); logical(LK) :: assertion; end function
202 : #endif
203 : #if IK3_ENABLED
204 : module function test_setCentered_D1_IK3_1() result(assertion); logical(LK) :: assertion; end function
205 : #endif
206 : #if IK2_ENABLED
207 : module function test_setCentered_D1_IK2_1() result(assertion); logical(LK) :: assertion; end function
208 : #endif
209 : #if IK1_ENABLED
210 : module function test_setCentered_D1_IK1_1() result(assertion); logical(LK) :: assertion; end function
211 : #endif
212 :
213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214 :
215 : #if LK5_ENABLED
216 : module function test_setCentered_D1_LK5_1() result(assertion); logical(LK) :: assertion; end function
217 : #endif
218 : #if LK4_ENABLED
219 : module function test_setCentered_D1_LK4_1() result(assertion); logical(LK) :: assertion; end function
220 : #endif
221 : #if LK3_ENABLED
222 : module function test_setCentered_D1_LK3_1() result(assertion); logical(LK) :: assertion; end function
223 : #endif
224 : #if LK2_ENABLED
225 : module function test_setCentered_D1_LK2_1() result(assertion); logical(LK) :: assertion; end function
226 : #endif
227 : #if LK1_ENABLED
228 : module function test_setCentered_D1_LK1_1() result(assertion); logical(LK) :: assertion; end function
229 : #endif
230 :
231 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
232 :
233 : #if CK5_ENABLED
234 : module function test_setCentered_D1_CK5_1() result(assertion); logical(LK) :: assertion; end function
235 : #endif
236 : #if CK4_ENABLED
237 : module function test_setCentered_D1_CK4_1() result(assertion); logical(LK) :: assertion; end function
238 : #endif
239 : #if CK3_ENABLED
240 : module function test_setCentered_D1_CK3_1() result(assertion); logical(LK) :: assertion; end function
241 : #endif
242 : #if CK2_ENABLED
243 : module function test_setCentered_D1_CK2_1() result(assertion); logical(LK) :: assertion; end function
244 : #endif
245 : #if CK1_ENABLED
246 : module function test_setCentered_D1_CK1_1() result(assertion); logical(LK) :: assertion; end function
247 : #endif
248 :
249 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250 :
251 : #if RK5_ENABLED
252 : module function test_setCentered_D1_RK5_1() result(assertion); logical(LK) :: assertion; end function
253 : #endif
254 : #if RK4_ENABLED
255 : module function test_setCentered_D1_RK4_1() result(assertion); logical(LK) :: assertion; end function
256 : #endif
257 : #if RK3_ENABLED
258 : module function test_setCentered_D1_RK3_1() result(assertion); logical(LK) :: assertion; end function
259 : #endif
260 : #if RK2_ENABLED
261 : module function test_setCentered_D1_RK2_1() result(assertion); logical(LK) :: assertion; end function
262 : #endif
263 : #if RK1_ENABLED
264 : module function test_setCentered_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 : implicit none
280 :
281 1 : test = test_type(MODULE_NAME)
282 :
283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
286 :
287 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
288 :
289 : #if SK5_ENABLED
290 : call test%run(test_getCentered_D0_SK5_1, SK_"test_getCentered_D0_SK5_1")
291 : #endif
292 : #if SK4_ENABLED
293 : call test%run(test_getCentered_D0_SK4_1, SK_"test_getCentered_D0_SK4_1")
294 : #endif
295 : #if SK3_ENABLED
296 : call test%run(test_getCentered_D0_SK3_1, SK_"test_getCentered_D0_SK3_1")
297 : #endif
298 : #if SK2_ENABLED
299 : call test%run(test_getCentered_D0_SK2_1, SK_"test_getCentered_D0_SK2_1")
300 : #endif
301 : #if SK1_ENABLED
302 1 : call test%run(test_getCentered_D0_SK1_1, SK_"test_getCentered_D0_SK1_1")
303 : #endif
304 :
305 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
306 :
307 : #if SK5_ENABLED
308 : call test%run(test_getCentered_D1_SK5_1, SK_"test_getCentered_D1_SK5_1")
309 : #endif
310 : #if SK4_ENABLED
311 : call test%run(test_getCentered_D1_SK4_1, SK_"test_getCentered_D1_SK4_1")
312 : #endif
313 : #if SK3_ENABLED
314 : call test%run(test_getCentered_D1_SK3_1, SK_"test_getCentered_D1_SK3_1")
315 : #endif
316 : #if SK2_ENABLED
317 : call test%run(test_getCentered_D1_SK2_1, SK_"test_getCentered_D1_SK2_1")
318 : #endif
319 : #if SK1_ENABLED
320 1 : call test%run(test_getCentered_D1_SK1_1, SK_"test_getCentered_D1_SK1_1")
321 : #endif
322 :
323 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
324 :
325 : #if IK5_ENABLED
326 1 : call test%run(test_getCentered_D1_IK5_1, SK_"test_getCentered_D1_IK5_1")
327 : #endif
328 : #if IK4_ENABLED
329 1 : call test%run(test_getCentered_D1_IK4_1, SK_"test_getCentered_D1_IK4_1")
330 : #endif
331 : #if IK3_ENABLED
332 1 : call test%run(test_getCentered_D1_IK3_1, SK_"test_getCentered_D1_IK3_1")
333 : #endif
334 : #if IK2_ENABLED
335 1 : call test%run(test_getCentered_D1_IK2_1, SK_"test_getCentered_D1_IK2_1")
336 : #endif
337 : #if IK1_ENABLED
338 1 : call test%run(test_getCentered_D1_IK1_1, SK_"test_getCentered_D1_IK1_1")
339 : #endif
340 :
341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
342 :
343 : #if LK5_ENABLED
344 1 : call test%run(test_getCentered_D1_LK5_1, SK_"test_getCentered_D1_LK5_1")
345 : #endif
346 : #if LK4_ENABLED
347 1 : call test%run(test_getCentered_D1_LK4_1, SK_"test_getCentered_D1_LK4_1")
348 : #endif
349 : #if LK3_ENABLED
350 1 : call test%run(test_getCentered_D1_LK3_1, SK_"test_getCentered_D1_LK3_1")
351 : #endif
352 : #if LK2_ENABLED
353 1 : call test%run(test_getCentered_D1_LK2_1, SK_"test_getCentered_D1_LK2_1")
354 : #endif
355 : #if LK1_ENABLED
356 1 : call test%run(test_getCentered_D1_LK1_1, SK_"test_getCentered_D1_LK1_1")
357 : #endif
358 :
359 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
360 :
361 : #if CK5_ENABLED
362 : call test%run(test_getCentered_D1_CK5_1, SK_"test_getCentered_D1_CK5_1")
363 : #endif
364 : #if CK4_ENABLED
365 1 : call test%run(test_getCentered_D1_CK4_1, SK_"test_getCentered_D1_CK4_1")
366 : #endif
367 : #if CK3_ENABLED
368 1 : call test%run(test_getCentered_D1_CK3_1, SK_"test_getCentered_D1_CK3_1")
369 : #endif
370 : #if CK2_ENABLED
371 1 : call test%run(test_getCentered_D1_CK2_1, SK_"test_getCentered_D1_CK2_1")
372 : #endif
373 : #if CK1_ENABLED
374 1 : call test%run(test_getCentered_D1_CK1_1, SK_"test_getCentered_D1_CK1_1")
375 : #endif
376 :
377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
378 :
379 : #if RK5_ENABLED
380 : call test%run(test_getCentered_D1_RK5_1, SK_"test_getCentered_D1_RK5_1")
381 : #endif
382 : #if RK4_ENABLED
383 1 : call test%run(test_getCentered_D1_RK4_1, SK_"test_getCentered_D1_RK4_1")
384 : #endif
385 : #if RK3_ENABLED
386 1 : call test%run(test_getCentered_D1_RK3_1, SK_"test_getCentered_D1_RK3_1")
387 : #endif
388 : #if RK2_ENABLED
389 1 : call test%run(test_getCentered_D1_RK2_1, SK_"test_getCentered_D1_RK2_1")
390 : #endif
391 : #if RK1_ENABLED
392 1 : call test%run(test_getCentered_D1_RK1_1, SK_"test_getCentered_D1_RK1_1")
393 : #endif
394 :
395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396 :
397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
400 :
401 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
402 :
403 : #if SK5_ENABLED
404 : call test%run(test_setCentered_D0_SK5_1, SK_"test_setCentered_D0_SK5_1")
405 : #endif
406 : #if SK4_ENABLED
407 : call test%run(test_setCentered_D0_SK4_1, SK_"test_setCentered_D0_SK4_1")
408 : #endif
409 : #if SK3_ENABLED
410 : call test%run(test_setCentered_D0_SK3_1, SK_"test_setCentered_D0_SK3_1")
411 : #endif
412 : #if SK2_ENABLED
413 : call test%run(test_setCentered_D0_SK2_1, SK_"test_setCentered_D0_SK2_1")
414 : #endif
415 : #if SK1_ENABLED
416 1 : call test%run(test_setCentered_D0_SK1_1, SK_"test_setCentered_D0_SK1_1")
417 : #endif
418 :
419 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
420 :
421 : #if SK5_ENABLED
422 : call test%run(test_setCentered_D1_SK5_1, SK_"test_setCentered_D1_SK5_1")
423 : #endif
424 : #if SK4_ENABLED
425 : call test%run(test_setCentered_D1_SK4_1, SK_"test_setCentered_D1_SK4_1")
426 : #endif
427 : #if SK3_ENABLED
428 : call test%run(test_setCentered_D1_SK3_1, SK_"test_setCentered_D1_SK3_1")
429 : #endif
430 : #if SK2_ENABLED
431 : call test%run(test_setCentered_D1_SK2_1, SK_"test_setCentered_D1_SK2_1")
432 : #endif
433 : #if SK1_ENABLED
434 1 : call test%run(test_setCentered_D1_SK1_1, SK_"test_setCentered_D1_SK1_1")
435 : #endif
436 :
437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
438 :
439 : #if IK5_ENABLED
440 1 : call test%run(test_setCentered_D1_IK5_1, SK_"test_setCentered_D1_IK5_1")
441 : #endif
442 : #if IK4_ENABLED
443 1 : call test%run(test_setCentered_D1_IK4_1, SK_"test_setCentered_D1_IK4_1")
444 : #endif
445 : #if IK3_ENABLED
446 1 : call test%run(test_setCentered_D1_IK3_1, SK_"test_setCentered_D1_IK3_1")
447 : #endif
448 : #if IK2_ENABLED
449 1 : call test%run(test_setCentered_D1_IK2_1, SK_"test_setCentered_D1_IK2_1")
450 : #endif
451 : #if IK1_ENABLED
452 1 : call test%run(test_setCentered_D1_IK1_1, SK_"test_setCentered_D1_IK1_1")
453 : #endif
454 :
455 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
456 :
457 : #if LK5_ENABLED
458 1 : call test%run(test_setCentered_D1_LK5_1, SK_"test_setCentered_D1_LK5_1")
459 : #endif
460 : #if LK4_ENABLED
461 1 : call test%run(test_setCentered_D1_LK4_1, SK_"test_setCentered_D1_LK4_1")
462 : #endif
463 : #if LK3_ENABLED
464 1 : call test%run(test_setCentered_D1_LK3_1, SK_"test_setCentered_D1_LK3_1")
465 : #endif
466 : #if LK2_ENABLED
467 1 : call test%run(test_setCentered_D1_LK2_1, SK_"test_setCentered_D1_LK2_1")
468 : #endif
469 : #if LK1_ENABLED
470 1 : call test%run(test_setCentered_D1_LK1_1, SK_"test_setCentered_D1_LK1_1")
471 : #endif
472 :
473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
474 :
475 : #if CK5_ENABLED
476 : call test%run(test_setCentered_D1_CK5_1, SK_"test_setCentered_D1_CK5_1")
477 : #endif
478 : #if CK4_ENABLED
479 1 : call test%run(test_setCentered_D1_CK4_1, SK_"test_setCentered_D1_CK4_1")
480 : #endif
481 : #if CK3_ENABLED
482 1 : call test%run(test_setCentered_D1_CK3_1, SK_"test_setCentered_D1_CK3_1")
483 : #endif
484 : #if CK2_ENABLED
485 1 : call test%run(test_setCentered_D1_CK2_1, SK_"test_setCentered_D1_CK2_1")
486 : #endif
487 : #if CK1_ENABLED
488 1 : call test%run(test_setCentered_D1_CK1_1, SK_"test_setCentered_D1_CK1_1")
489 : #endif
490 :
491 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
492 :
493 : #if RK5_ENABLED
494 : call test%run(test_setCentered_D1_RK5_1, SK_"test_setCentered_D1_RK5_1")
495 : #endif
496 : #if RK4_ENABLED
497 1 : call test%run(test_setCentered_D1_RK4_1, SK_"test_setCentered_D1_RK4_1")
498 : #endif
499 : #if RK3_ENABLED
500 1 : call test%run(test_setCentered_D1_RK3_1, SK_"test_setCentered_D1_RK3_1")
501 : #endif
502 : #if RK2_ENABLED
503 1 : call test%run(test_setCentered_D1_RK2_1, SK_"test_setCentered_D1_RK2_1")
504 : #endif
505 : #if RK1_ENABLED
506 1 : call test%run(test_setCentered_D1_RK1_1, SK_"test_setCentered_D1_RK1_1")
507 : #endif
508 :
509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
510 :
511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
514 :
515 1 : call test%summarize()
516 :
517 1 : end subroutine setTest
518 :
519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
520 :
521 : end module test_pm_arrayCenter ! LCOV_EXCL_LINE
|
