ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayRemap.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
25
26!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27
28module 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
273contains
274
275!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
276
277 subroutine setTest()
278
279 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 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 call test%run(test_getRemapped_D1_SK1_1, SK_"test_getRemapped_D1_SK1_1")
319#endif
320
321 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
322
323#if IK5_ENABLED
324 call test%run(test_getRemapped_D1_IK5_1, SK_"test_getRemapped_D1_IK5_1")
325#endif
326#if IK4_ENABLED
327 call test%run(test_getRemapped_D1_IK4_1, SK_"test_getRemapped_D1_IK4_1")
328#endif
329#if IK3_ENABLED
330 call test%run(test_getRemapped_D1_IK3_1, SK_"test_getRemapped_D1_IK3_1")
331#endif
332#if IK2_ENABLED
333 call test%run(test_getRemapped_D1_IK2_1, SK_"test_getRemapped_D1_IK2_1")
334#endif
335#if IK1_ENABLED
336 call test%run(test_getRemapped_D1_IK1_1, SK_"test_getRemapped_D1_IK1_1")
337#endif
338
339 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
340
341#if LK5_ENABLED
342 call test%run(test_getRemapped_D1_LK5_1, SK_"test_getRemapped_D1_LK5_1")
343#endif
344#if LK4_ENABLED
345 call test%run(test_getRemapped_D1_LK4_1, SK_"test_getRemapped_D1_LK4_1")
346#endif
347#if LK3_ENABLED
348 call test%run(test_getRemapped_D1_LK3_1, SK_"test_getRemapped_D1_LK3_1")
349#endif
350#if LK2_ENABLED
351 call test%run(test_getRemapped_D1_LK2_1, SK_"test_getRemapped_D1_LK2_1")
352#endif
353#if LK1_ENABLED
354 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 call test%run(test_getRemapped_D1_CK4_1, SK_"test_getRemapped_D1_CK4_1")
364#endif
365#if CK3_ENABLED
366 call test%run(test_getRemapped_D1_CK3_1, SK_"test_getRemapped_D1_CK3_1")
367#endif
368#if CK2_ENABLED
369 call test%run(test_getRemapped_D1_CK2_1, SK_"test_getRemapped_D1_CK2_1")
370#endif
371#if CK1_ENABLED
372 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 call test%run(test_getRemapped_D1_RK4_1, SK_"test_getRemapped_D1_RK4_1")
382#endif
383#if RK3_ENABLED
384 call test%run(test_getRemapped_D1_RK3_1, SK_"test_getRemapped_D1_RK3_1")
385#endif
386#if RK2_ENABLED
387 call test%run(test_getRemapped_D1_RK2_1, SK_"test_getRemapped_D1_RK2_1")
388#endif
389#if RK1_ENABLED
390 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 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 call test%run(test_setRemapped_D1_SK1_1, SK_"test_setRemapped_D1_SK1_1")
433#endif
434
435 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
436
437#if IK5_ENABLED
438 call test%run(test_setRemapped_D1_IK5_1, SK_"test_setRemapped_D1_IK5_1")
439#endif
440#if IK4_ENABLED
441 call test%run(test_setRemapped_D1_IK4_1, SK_"test_setRemapped_D1_IK4_1")
442#endif
443#if IK3_ENABLED
444 call test%run(test_setRemapped_D1_IK3_1, SK_"test_setRemapped_D1_IK3_1")
445#endif
446#if IK2_ENABLED
447 call test%run(test_setRemapped_D1_IK2_1, SK_"test_setRemapped_D1_IK2_1")
448#endif
449#if IK1_ENABLED
450 call test%run(test_setRemapped_D1_IK1_1, SK_"test_setRemapped_D1_IK1_1")
451#endif
452
453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
454
455#if LK5_ENABLED
456 call test%run(test_setRemapped_D1_LK5_1, SK_"test_setRemapped_D1_LK5_1")
457#endif
458#if LK4_ENABLED
459 call test%run(test_setRemapped_D1_LK4_1, SK_"test_setRemapped_D1_LK4_1")
460#endif
461#if LK3_ENABLED
462 call test%run(test_setRemapped_D1_LK3_1, SK_"test_setRemapped_D1_LK3_1")
463#endif
464#if LK2_ENABLED
465 call test%run(test_setRemapped_D1_LK2_1, SK_"test_setRemapped_D1_LK2_1")
466#endif
467#if LK1_ENABLED
468 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 call test%run(test_setRemapped_D1_CK4_1, SK_"test_setRemapped_D1_CK4_1")
478#endif
479#if CK3_ENABLED
480 call test%run(test_setRemapped_D1_CK3_1, SK_"test_setRemapped_D1_CK3_1")
481#endif
482#if CK2_ENABLED
483 call test%run(test_setRemapped_D1_CK2_1, SK_"test_setRemapped_D1_CK2_1")
484#endif
485#if CK1_ENABLED
486 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 call test%run(test_setRemapped_D1_RK4_1, SK_"test_setRemapped_D1_RK4_1")
496#endif
497#if RK3_ENABLED
498 call test%run(test_setRemapped_D1_RK3_1, SK_"test_setRemapped_D1_RK3_1")
499#endif
500#if RK2_ENABLED
501 call test%run(test_setRemapped_D1_RK2_1, SK_"test_setRemapped_D1_RK2_1")
502#endif
503#if RK1_ENABLED
504 call test%run(test_setRemapped_D1_RK1_1, SK_"test_setRemapped_D1_RK1_1")
505#endif
506
507 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
508
509 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
510 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
511 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
512 call test%summarize()
513
514 end subroutine setTest
515
516!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517
518end module test_pm_arrayRemap
pm_arrayRemap
This module contains procedures and generic interfaces for remapping arrays of various types.
Definition: pm_arrayRemap.F90:47
pm_arrayRemap::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayRemap.F90:54
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::RK
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
Definition: pm_kind.F90:543
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_arrayRemap
This module contains tests of the module pm_arrayRemap.
Definition: test_pm_arrayRemap.F90:28
test_pm_arrayRemap::test
type(test_type) test
Definition: test_pm_arrayRemap.F90:37
test_pm_arrayRemap::setTest
subroutine setTest()
Definition: test_pm_arrayRemap.F90:278
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