ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayCenter.F90
Go to the documentation of this file.
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
24
25!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26
27module 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
273contains
274
275!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
276
277 subroutine setTest()
278
279 implicit none
280
281 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 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 call test%run(test_getCentered_D1_SK1_1, SK_"test_getCentered_D1_SK1_1")
321#endif
322
323 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
324
325#if IK5_ENABLED
326 call test%run(test_getCentered_D1_IK5_1, SK_"test_getCentered_D1_IK5_1")
327#endif
328#if IK4_ENABLED
329 call test%run(test_getCentered_D1_IK4_1, SK_"test_getCentered_D1_IK4_1")
330#endif
331#if IK3_ENABLED
332 call test%run(test_getCentered_D1_IK3_1, SK_"test_getCentered_D1_IK3_1")
333#endif
334#if IK2_ENABLED
335 call test%run(test_getCentered_D1_IK2_1, SK_"test_getCentered_D1_IK2_1")
336#endif
337#if IK1_ENABLED
338 call test%run(test_getCentered_D1_IK1_1, SK_"test_getCentered_D1_IK1_1")
339#endif
340
341 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
342
343#if LK5_ENABLED
344 call test%run(test_getCentered_D1_LK5_1, SK_"test_getCentered_D1_LK5_1")
345#endif
346#if LK4_ENABLED
347 call test%run(test_getCentered_D1_LK4_1, SK_"test_getCentered_D1_LK4_1")
348#endif
349#if LK3_ENABLED
350 call test%run(test_getCentered_D1_LK3_1, SK_"test_getCentered_D1_LK3_1")
351#endif
352#if LK2_ENABLED
353 call test%run(test_getCentered_D1_LK2_1, SK_"test_getCentered_D1_LK2_1")
354#endif
355#if LK1_ENABLED
356 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 call test%run(test_getCentered_D1_CK4_1, SK_"test_getCentered_D1_CK4_1")
366#endif
367#if CK3_ENABLED
368 call test%run(test_getCentered_D1_CK3_1, SK_"test_getCentered_D1_CK3_1")
369#endif
370#if CK2_ENABLED
371 call test%run(test_getCentered_D1_CK2_1, SK_"test_getCentered_D1_CK2_1")
372#endif
373#if CK1_ENABLED
374 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 call test%run(test_getCentered_D1_RK4_1, SK_"test_getCentered_D1_RK4_1")
384#endif
385#if RK3_ENABLED
386 call test%run(test_getCentered_D1_RK3_1, SK_"test_getCentered_D1_RK3_1")
387#endif
388#if RK2_ENABLED
389 call test%run(test_getCentered_D1_RK2_1, SK_"test_getCentered_D1_RK2_1")
390#endif
391#if RK1_ENABLED
392 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 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 call test%run(test_setCentered_D1_SK1_1, SK_"test_setCentered_D1_SK1_1")
435#endif
436
437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
438
439#if IK5_ENABLED
440 call test%run(test_setCentered_D1_IK5_1, SK_"test_setCentered_D1_IK5_1")
441#endif
442#if IK4_ENABLED
443 call test%run(test_setCentered_D1_IK4_1, SK_"test_setCentered_D1_IK4_1")
444#endif
445#if IK3_ENABLED
446 call test%run(test_setCentered_D1_IK3_1, SK_"test_setCentered_D1_IK3_1")
447#endif
448#if IK2_ENABLED
449 call test%run(test_setCentered_D1_IK2_1, SK_"test_setCentered_D1_IK2_1")
450#endif
451#if IK1_ENABLED
452 call test%run(test_setCentered_D1_IK1_1, SK_"test_setCentered_D1_IK1_1")
453#endif
454
455 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
456
457#if LK5_ENABLED
458 call test%run(test_setCentered_D1_LK5_1, SK_"test_setCentered_D1_LK5_1")
459#endif
460#if LK4_ENABLED
461 call test%run(test_setCentered_D1_LK4_1, SK_"test_setCentered_D1_LK4_1")
462#endif
463#if LK3_ENABLED
464 call test%run(test_setCentered_D1_LK3_1, SK_"test_setCentered_D1_LK3_1")
465#endif
466#if LK2_ENABLED
467 call test%run(test_setCentered_D1_LK2_1, SK_"test_setCentered_D1_LK2_1")
468#endif
469#if LK1_ENABLED
470 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 call test%run(test_setCentered_D1_CK4_1, SK_"test_setCentered_D1_CK4_1")
480#endif
481#if CK3_ENABLED
482 call test%run(test_setCentered_D1_CK3_1, SK_"test_setCentered_D1_CK3_1")
483#endif
484#if CK2_ENABLED
485 call test%run(test_setCentered_D1_CK2_1, SK_"test_setCentered_D1_CK2_1")
486#endif
487#if CK1_ENABLED
488 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 call test%run(test_setCentered_D1_RK4_1, SK_"test_setCentered_D1_RK4_1")
498#endif
499#if RK3_ENABLED
500 call test%run(test_setCentered_D1_RK3_1, SK_"test_setCentered_D1_RK3_1")
501#endif
502#if RK2_ENABLED
503 call test%run(test_setCentered_D1_RK2_1, SK_"test_setCentered_D1_RK2_1")
504#endif
505#if RK1_ENABLED
506 call test%run(test_setCentered_D1_RK1_1, SK_"test_setCentered_D1_RK1_1")
507#endif
508
509 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
510
511 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
512 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
513 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
514
515 call test%summarize()
516
517 end subroutine setTest
518
519!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
520
521end module test_pm_arrayCenter ! LCOV_EXCL_LINE
pm_arrayCenter
This module contains procedures and generic interfaces for resizing an input array and centering the ...
Definition: pm_arrayCenter.F90:35
pm_arrayCenter::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayCenter.F90:41
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_arrayCenter
This module contains tests of the module pm_arrayCenter.
Definition: test_pm_arrayCenter.F90:27
test_pm_arrayCenter::setTest
subroutine setTest()
Definition: test_pm_arrayCenter.F90:278
test_pm_arrayCenter::test
type(test_type) test
Definition: test_pm_arrayCenter.F90:37
pm_err::err_type
This is the derived type for generating objects to gracefully and verbosely handle runtime unexpected...
Definition: pm_err.F90:157
pm_test::test_type
This is the derived type test_type for generating objects that facilitate testing of a series of proc...
Definition: pm_test.F90:209