ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayRefill.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
38
39!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40
41module test_pm_arrayRefill
42
43 use pm_arrayRefill
44 use pm_test, only: test_type, LK
45
46 implicit none
47
48 private
49 public :: setTest
50 type(test_type) :: test
51
52!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53
54 interface
55
56 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59
60 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61
62#if SK5_ENABLED
63 module function test_setRefilled_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
64#endif
65#if SK4_ENABLED
66 module function test_setRefilled_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
67#endif
68#if SK3_ENABLED
69 module function test_setRefilled_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
70#endif
71#if SK2_ENABLED
72 module function test_setRefilled_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
73#endif
74#if SK1_ENABLED
75 module function test_setRefilled_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
76#endif
77
78 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79
80 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
81 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
82 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
83
84 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
85
86#if SK5_ENABLED
87 module function test_setRefilled_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
88#endif
89#if SK4_ENABLED
90 module function test_setRefilled_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
91#endif
92#if SK3_ENABLED
93 module function test_setRefilled_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
94#endif
95#if SK2_ENABLED
96 module function test_setRefilled_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
97#endif
98#if SK1_ENABLED
99 module function test_setRefilled_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
100#endif
101
102 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103
104#if IK5_ENABLED
105 module function test_setRefilled_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
106#endif
107#if IK4_ENABLED
108 module function test_setRefilled_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
109#endif
110#if IK3_ENABLED
111 module function test_setRefilled_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
112#endif
113#if IK2_ENABLED
114 module function test_setRefilled_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
115#endif
116#if IK1_ENABLED
117 module function test_setRefilled_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
118#endif
119
120 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
121
122#if LK5_ENABLED
123 module function test_setRefilled_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
124#endif
125#if LK4_ENABLED
126 module function test_setRefilled_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
127#endif
128#if LK3_ENABLED
129 module function test_setRefilled_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
130#endif
131#if LK2_ENABLED
132 module function test_setRefilled_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
133#endif
134#if LK1_ENABLED
135 module function test_setRefilled_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
136#endif
137
138 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
139
140#if CK5_ENABLED
141 module function test_setRefilled_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
142#endif
143#if CK4_ENABLED
144 module function test_setRefilled_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
145#endif
146#if CK3_ENABLED
147 module function test_setRefilled_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
148#endif
149#if CK2_ENABLED
150 module function test_setRefilled_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
151#endif
152#if CK1_ENABLED
153 module function test_setRefilled_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
154#endif
155
156 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157
158#if RK5_ENABLED
159 module function test_setRefilled_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
160#endif
161#if RK4_ENABLED
162 module function test_setRefilled_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
163#endif
164#if RK3_ENABLED
165 module function test_setRefilled_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
166#endif
167#if RK2_ENABLED
168 module function test_setRefilled_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
169#endif
170#if RK1_ENABLED
171 module function test_setRefilled_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
172#endif
173
174 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
175
176 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
178 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
179
180 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
181
182#if SK5_ENABLED
183 module function test_setRefilled_D2_SK5_1 () result(assertion); logical(LK) :: assertion; end function
184#endif
185#if SK4_ENABLED
186 module function test_setRefilled_D2_SK4_1 () result(assertion); logical(LK) :: assertion; end function
187#endif
188#if SK3_ENABLED
189 module function test_setRefilled_D2_SK3_1 () result(assertion); logical(LK) :: assertion; end function
190#endif
191#if SK2_ENABLED
192 module function test_setRefilled_D2_SK2_1 () result(assertion); logical(LK) :: assertion; end function
193#endif
194#if SK1_ENABLED
195 module function test_setRefilled_D2_SK1_1 () result(assertion); logical(LK) :: assertion; end function
196#endif
197
198 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
199
200#if IK5_ENABLED
201 module function test_setRefilled_D2_IK5_1 () result(assertion); logical(LK) :: assertion; end function
202#endif
203#if IK4_ENABLED
204 module function test_setRefilled_D2_IK4_1 () result(assertion); logical(LK) :: assertion; end function
205#endif
206#if IK3_ENABLED
207 module function test_setRefilled_D2_IK3_1 () result(assertion); logical(LK) :: assertion; end function
208#endif
209#if IK2_ENABLED
210 module function test_setRefilled_D2_IK2_1 () result(assertion); logical(LK) :: assertion; end function
211#endif
212#if IK1_ENABLED
213 module function test_setRefilled_D2_IK1_1 () result(assertion); logical(LK) :: assertion; end function
214#endif
215
216 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
217
218#if LK5_ENABLED
219 module function test_setRefilled_D2_LK5_1 () result(assertion); logical(LK) :: assertion; end function
220#endif
221#if LK4_ENABLED
222 module function test_setRefilled_D2_LK4_1 () result(assertion); logical(LK) :: assertion; end function
223#endif
224#if LK3_ENABLED
225 module function test_setRefilled_D2_LK3_1 () result(assertion); logical(LK) :: assertion; end function
226#endif
227#if LK2_ENABLED
228 module function test_setRefilled_D2_LK2_1 () result(assertion); logical(LK) :: assertion; end function
229#endif
230#if LK1_ENABLED
231 module function test_setRefilled_D2_LK1_1 () result(assertion); logical(LK) :: assertion; end function
232#endif
233
234 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
235
236#if CK5_ENABLED
237 module function test_setRefilled_D2_CK5_1 () result(assertion); logical(LK) :: assertion; end function
238#endif
239#if CK4_ENABLED
240 module function test_setRefilled_D2_CK4_1 () result(assertion); logical(LK) :: assertion; end function
241#endif
242#if CK3_ENABLED
243 module function test_setRefilled_D2_CK3_1 () result(assertion); logical(LK) :: assertion; end function
244#endif
245#if CK2_ENABLED
246 module function test_setRefilled_D2_CK2_1 () result(assertion); logical(LK) :: assertion; end function
247#endif
248#if CK1_ENABLED
249 module function test_setRefilled_D2_CK1_1 () result(assertion); logical(LK) :: assertion; end function
250#endif
251
252 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253
254#if RK5_ENABLED
255 module function test_setRefilled_D2_RK5_1 () result(assertion); logical(LK) :: assertion; end function
256#endif
257#if RK4_ENABLED
258 module function test_setRefilled_D2_RK4_1 () result(assertion); logical(LK) :: assertion; end function
259#endif
260#if RK3_ENABLED
261 module function test_setRefilled_D2_RK3_1 () result(assertion); logical(LK) :: assertion; end function
262#endif
263#if RK2_ENABLED
264 module function test_setRefilled_D2_RK2_1 () result(assertion); logical(LK) :: assertion; end function
265#endif
266#if RK1_ENABLED
267 module function test_setRefilled_D2_RK1_1 () result(assertion); logical(LK) :: assertion; end function
268#endif
269
270 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271
272 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
273 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
274 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
275
276 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
277
278#if SK5_ENABLED
279 module function test_setRefilled_D3_SK5_1 () result(assertion); logical(LK) :: assertion; end function
280#endif
281#if SK4_ENABLED
282 module function test_setRefilled_D3_SK4_1 () result(assertion); logical(LK) :: assertion; end function
283#endif
284#if SK3_ENABLED
285 module function test_setRefilled_D3_SK3_1 () result(assertion); logical(LK) :: assertion; end function
286#endif
287#if SK2_ENABLED
288 module function test_setRefilled_D3_SK2_1 () result(assertion); logical(LK) :: assertion; end function
289#endif
290#if SK1_ENABLED
291 module function test_setRefilled_D3_SK1_1 () result(assertion); logical(LK) :: assertion; end function
292#endif
293
294 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
295
296#if IK5_ENABLED
297 module function test_setRefilled_D3_IK5_1 () result(assertion); logical(LK) :: assertion; end function
298#endif
299#if IK4_ENABLED
300 module function test_setRefilled_D3_IK4_1 () result(assertion); logical(LK) :: assertion; end function
301#endif
302#if IK3_ENABLED
303 module function test_setRefilled_D3_IK3_1 () result(assertion); logical(LK) :: assertion; end function
304#endif
305#if IK2_ENABLED
306 module function test_setRefilled_D3_IK2_1 () result(assertion); logical(LK) :: assertion; end function
307#endif
308#if IK1_ENABLED
309 module function test_setRefilled_D3_IK1_1 () result(assertion); logical(LK) :: assertion; end function
310#endif
311
312 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313
314#if LK5_ENABLED
315 module function test_setRefilled_D3_LK5_1 () result(assertion); logical(LK) :: assertion; end function
316#endif
317#if LK4_ENABLED
318 module function test_setRefilled_D3_LK4_1 () result(assertion); logical(LK) :: assertion; end function
319#endif
320#if LK3_ENABLED
321 module function test_setRefilled_D3_LK3_1 () result(assertion); logical(LK) :: assertion; end function
322#endif
323#if LK2_ENABLED
324 module function test_setRefilled_D3_LK2_1 () result(assertion); logical(LK) :: assertion; end function
325#endif
326#if LK1_ENABLED
327 module function test_setRefilled_D3_LK1_1 () result(assertion); logical(LK) :: assertion; end function
328#endif
329
330 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331
332#if CK5_ENABLED
333 module function test_setRefilled_D3_CK5_1 () result(assertion); logical(LK) :: assertion; end function
334#endif
335#if CK4_ENABLED
336 module function test_setRefilled_D3_CK4_1 () result(assertion); logical(LK) :: assertion; end function
337#endif
338#if CK3_ENABLED
339 module function test_setRefilled_D3_CK3_1 () result(assertion); logical(LK) :: assertion; end function
340#endif
341#if CK2_ENABLED
342 module function test_setRefilled_D3_CK2_1 () result(assertion); logical(LK) :: assertion; end function
343#endif
344#if CK1_ENABLED
345 module function test_setRefilled_D3_CK1_1 () result(assertion); logical(LK) :: assertion; end function
346#endif
347
348 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
349
350#if RK5_ENABLED
351 module function test_setRefilled_D3_RK5_1 () result(assertion); logical(LK) :: assertion; end function
352#endif
353#if RK4_ENABLED
354 module function test_setRefilled_D3_RK4_1 () result(assertion); logical(LK) :: assertion; end function
355#endif
356#if RK3_ENABLED
357 module function test_setRefilled_D3_RK3_1 () result(assertion); logical(LK) :: assertion; end function
358#endif
359#if RK2_ENABLED
360 module function test_setRefilled_D3_RK2_1 () result(assertion); logical(LK) :: assertion; end function
361#endif
362#if RK1_ENABLED
363 module function test_setRefilled_D3_RK1_1 () result(assertion); logical(LK) :: assertion; end function
364#endif
365
366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367
368 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
369 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
370 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
371
372 end interface
373
374!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
375
376contains
377
378!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
379
380 subroutine setTest()
381
382 test = test_type(MODULE_NAME)
383
384 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
385 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
387
388 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
389
390#if SK5_ENABLED
391 call test%run(test_setRefilled_D0_SK5_1, SK_"test_setRefilled_D0_SK5_1")
392#endif
393#if SK4_ENABLED
394 call test%run(test_setRefilled_D0_SK4_1, SK_"test_setRefilled_D0_SK4_1")
395#endif
396#if SK3_ENABLED
397 call test%run(test_setRefilled_D0_SK3_1, SK_"test_setRefilled_D0_SK3_1")
398#endif
399#if SK2_ENABLED
400 call test%run(test_setRefilled_D0_SK2_1, SK_"test_setRefilled_D0_SK2_1")
401#endif
402#if SK1_ENABLED
403 call test%run(test_setRefilled_D0_SK1_1, SK_"test_setRefilled_D0_SK1_1")
404#endif
405
406 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
407
408 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
409 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
410 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
411
412 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
413
414#if SK5_ENABLED
415 call test%run(test_setRefilled_D1_SK5_1, SK_"test_setRefilled_D1_SK5_1")
416#endif
417#if SK4_ENABLED
418 call test%run(test_setRefilled_D1_SK4_1, SK_"test_setRefilled_D1_SK4_1")
419#endif
420#if SK3_ENABLED
421 call test%run(test_setRefilled_D1_SK3_1, SK_"test_setRefilled_D1_SK3_1")
422#endif
423#if SK2_ENABLED
424 call test%run(test_setRefilled_D1_SK2_1, SK_"test_setRefilled_D1_SK2_1")
425#endif
426#if SK1_ENABLED
427 call test%run(test_setRefilled_D1_SK1_1, SK_"test_setRefilled_D1_SK1_1")
428#endif
429
430 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
431
432#if IK5_ENABLED
433 call test%run(test_setRefilled_D1_IK5_1, SK_"test_setRefilled_D1_IK5_1")
434#endif
435#if IK4_ENABLED
436 call test%run(test_setRefilled_D1_IK4_1, SK_"test_setRefilled_D1_IK4_1")
437#endif
438#if IK3_ENABLED
439 call test%run(test_setRefilled_D1_IK3_1, SK_"test_setRefilled_D1_IK3_1")
440#endif
441#if IK2_ENABLED
442 call test%run(test_setRefilled_D1_IK2_1, SK_"test_setRefilled_D1_IK2_1")
443#endif
444#if IK1_ENABLED
445 call test%run(test_setRefilled_D1_IK1_1, SK_"test_setRefilled_D1_IK1_1")
446#endif
447
448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449
450#if LK5_ENABLED
451 call test%run(test_setRefilled_D1_LK5_1, SK_"test_setRefilled_D1_LK5_1")
452#endif
453#if LK4_ENABLED
454 call test%run(test_setRefilled_D1_LK4_1, SK_"test_setRefilled_D1_LK4_1")
455#endif
456#if LK3_ENABLED
457 call test%run(test_setRefilled_D1_LK3_1, SK_"test_setRefilled_D1_LK3_1")
458#endif
459#if LK2_ENABLED
460 call test%run(test_setRefilled_D1_LK2_1, SK_"test_setRefilled_D1_LK2_1")
461#endif
462#if LK1_ENABLED
463 call test%run(test_setRefilled_D1_LK1_1, SK_"test_setRefilled_D1_LK1_1")
464#endif
465
466 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
467
468#if CK5_ENABLED
469 call test%run(test_setRefilled_D1_CK5_1, SK_"test_setRefilled_D1_CK5_1")
470#endif
471#if CK4_ENABLED
472 call test%run(test_setRefilled_D1_CK4_1, SK_"test_setRefilled_D1_CK4_1")
473#endif
474#if CK3_ENABLED
475 call test%run(test_setRefilled_D1_CK3_1, SK_"test_setRefilled_D1_CK3_1")
476#endif
477#if CK2_ENABLED
478 call test%run(test_setRefilled_D1_CK2_1, SK_"test_setRefilled_D1_CK2_1")
479#endif
480#if CK1_ENABLED
481 call test%run(test_setRefilled_D1_CK1_1, SK_"test_setRefilled_D1_CK1_1")
482#endif
483
484 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
485
486#if RK5_ENABLED
487 call test%run(test_setRefilled_D1_RK5_1, SK_"test_setRefilled_D1_RK5_1")
488#endif
489#if RK4_ENABLED
490 call test%run(test_setRefilled_D1_RK4_1, SK_"test_setRefilled_D1_RK4_1")
491#endif
492#if RK3_ENABLED
493 call test%run(test_setRefilled_D1_RK3_1, SK_"test_setRefilled_D1_RK3_1")
494#endif
495#if RK2_ENABLED
496 call test%run(test_setRefilled_D1_RK2_1, SK_"test_setRefilled_D1_RK2_1")
497#endif
498#if RK1_ENABLED
499 call test%run(test_setRefilled_D1_RK1_1, SK_"test_setRefilled_D1_RK1_1")
500#endif
501
502 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
503
504 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
505 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
506 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
507
508 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
509
510#if SK5_ENABLED
511 call test%run(test_setRefilled_D2_SK5_1, SK_"test_setRefilled_D2_SK5_1")
512#endif
513#if SK4_ENABLED
514 call test%run(test_setRefilled_D2_SK4_1, SK_"test_setRefilled_D2_SK4_1")
515#endif
516#if SK3_ENABLED
517 call test%run(test_setRefilled_D2_SK3_1, SK_"test_setRefilled_D2_SK3_1")
518#endif
519#if SK2_ENABLED
520 call test%run(test_setRefilled_D2_SK2_1, SK_"test_setRefilled_D2_SK2_1")
521#endif
522#if SK1_ENABLED
523 call test%run(test_setRefilled_D2_SK1_1, SK_"test_setRefilled_D2_SK1_1")
524#endif
525
526 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527
528#if IK5_ENABLED
529 call test%run(test_setRefilled_D2_IK5_1, SK_"test_setRefilled_D2_IK5_1")
530#endif
531#if IK4_ENABLED
532 call test%run(test_setRefilled_D2_IK4_1, SK_"test_setRefilled_D2_IK4_1")
533#endif
534#if IK3_ENABLED
535 call test%run(test_setRefilled_D2_IK3_1, SK_"test_setRefilled_D2_IK3_1")
536#endif
537#if IK2_ENABLED
538 call test%run(test_setRefilled_D2_IK2_1, SK_"test_setRefilled_D2_IK2_1")
539#endif
540#if IK1_ENABLED
541 call test%run(test_setRefilled_D2_IK1_1, SK_"test_setRefilled_D2_IK1_1")
542#endif
543
544 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545
546#if LK5_ENABLED
547 call test%run(test_setRefilled_D2_LK5_1, SK_"test_setRefilled_D2_LK5_1")
548#endif
549#if LK4_ENABLED
550 call test%run(test_setRefilled_D2_LK4_1, SK_"test_setRefilled_D2_LK4_1")
551#endif
552#if LK3_ENABLED
553 call test%run(test_setRefilled_D2_LK3_1, SK_"test_setRefilled_D2_LK3_1")
554#endif
555#if LK2_ENABLED
556 call test%run(test_setRefilled_D2_LK2_1, SK_"test_setRefilled_D2_LK2_1")
557#endif
558#if LK1_ENABLED
559 call test%run(test_setRefilled_D2_LK1_1, SK_"test_setRefilled_D2_LK1_1")
560#endif
561
562 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
563
564#if CK5_ENABLED
565 call test%run(test_setRefilled_D2_CK5_1, SK_"test_setRefilled_D2_CK5_1")
566#endif
567#if CK4_ENABLED
568 call test%run(test_setRefilled_D2_CK4_1, SK_"test_setRefilled_D2_CK4_1")
569#endif
570#if CK3_ENABLED
571 call test%run(test_setRefilled_D2_CK3_1, SK_"test_setRefilled_D2_CK3_1")
572#endif
573#if CK2_ENABLED
574 call test%run(test_setRefilled_D2_CK2_1, SK_"test_setRefilled_D2_CK2_1")
575#endif
576#if CK1_ENABLED
577 call test%run(test_setRefilled_D2_CK1_1, SK_"test_setRefilled_D2_CK1_1")
578#endif
579
580 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581
582#if RK5_ENABLED
583 call test%run(test_setRefilled_D2_RK5_1, SK_"test_setRefilled_D2_RK5_1")
584#endif
585#if RK4_ENABLED
586 call test%run(test_setRefilled_D2_RK4_1, SK_"test_setRefilled_D2_RK4_1")
587#endif
588#if RK3_ENABLED
589 call test%run(test_setRefilled_D2_RK3_1, SK_"test_setRefilled_D2_RK3_1")
590#endif
591#if RK2_ENABLED
592 call test%run(test_setRefilled_D2_RK2_1, SK_"test_setRefilled_D2_RK2_1")
593#endif
594#if RK1_ENABLED
595 call test%run(test_setRefilled_D2_RK1_1, SK_"test_setRefilled_D2_RK1_1")
596#endif
597
598 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
599
600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
602 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
603
604 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605
606#if SK5_ENABLED
607 call test%run(test_setRefilled_D3_SK5_1, SK_"test_setRefilled_D3_SK5_1")
608#endif
609#if SK4_ENABLED
610 call test%run(test_setRefilled_D3_SK4_1, SK_"test_setRefilled_D3_SK4_1")
611#endif
612#if SK3_ENABLED
613 call test%run(test_setRefilled_D3_SK3_1, SK_"test_setRefilled_D3_SK3_1")
614#endif
615#if SK2_ENABLED
616 call test%run(test_setRefilled_D3_SK2_1, SK_"test_setRefilled_D3_SK2_1")
617#endif
618#if SK1_ENABLED
619 call test%run(test_setRefilled_D3_SK1_1, SK_"test_setRefilled_D3_SK1_1")
620#endif
621
622 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
623
624#if IK5_ENABLED
625 call test%run(test_setRefilled_D3_IK5_1, SK_"test_setRefilled_D3_IK5_1")
626#endif
627#if IK4_ENABLED
628 call test%run(test_setRefilled_D3_IK4_1, SK_"test_setRefilled_D3_IK4_1")
629#endif
630#if IK3_ENABLED
631 call test%run(test_setRefilled_D3_IK3_1, SK_"test_setRefilled_D3_IK3_1")
632#endif
633#if IK2_ENABLED
634 call test%run(test_setRefilled_D3_IK2_1, SK_"test_setRefilled_D3_IK2_1")
635#endif
636#if IK1_ENABLED
637 call test%run(test_setRefilled_D3_IK1_1, SK_"test_setRefilled_D3_IK1_1")
638#endif
639
640 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
641
642#if LK5_ENABLED
643 call test%run(test_setRefilled_D3_LK5_1, SK_"test_setRefilled_D3_LK5_1")
644#endif
645#if LK4_ENABLED
646 call test%run(test_setRefilled_D3_LK4_1, SK_"test_setRefilled_D3_LK4_1")
647#endif
648#if LK3_ENABLED
649 call test%run(test_setRefilled_D3_LK3_1, SK_"test_setRefilled_D3_LK3_1")
650#endif
651#if LK2_ENABLED
652 call test%run(test_setRefilled_D3_LK2_1, SK_"test_setRefilled_D3_LK2_1")
653#endif
654#if LK1_ENABLED
655 call test%run(test_setRefilled_D3_LK1_1, SK_"test_setRefilled_D3_LK1_1")
656#endif
657
658 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
659
660#if CK5_ENABLED
661 call test%run(test_setRefilled_D3_CK5_1, SK_"test_setRefilled_D3_CK5_1")
662#endif
663#if CK4_ENABLED
664 call test%run(test_setRefilled_D3_CK4_1, SK_"test_setRefilled_D3_CK4_1")
665#endif
666#if CK3_ENABLED
667 call test%run(test_setRefilled_D3_CK3_1, SK_"test_setRefilled_D3_CK3_1")
668#endif
669#if CK2_ENABLED
670 call test%run(test_setRefilled_D3_CK2_1, SK_"test_setRefilled_D3_CK2_1")
671#endif
672#if CK1_ENABLED
673 call test%run(test_setRefilled_D3_CK1_1, SK_"test_setRefilled_D3_CK1_1")
674#endif
675
676 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
677
678#if RK5_ENABLED
679 call test%run(test_setRefilled_D3_RK5_1, SK_"test_setRefilled_D3_RK5_1")
680#endif
681#if RK4_ENABLED
682 call test%run(test_setRefilled_D3_RK4_1, SK_"test_setRefilled_D3_RK4_1")
683#endif
684#if RK3_ENABLED
685 call test%run(test_setRefilled_D3_RK3_1, SK_"test_setRefilled_D3_RK3_1")
686#endif
687#if RK2_ENABLED
688 call test%run(test_setRefilled_D3_RK2_1, SK_"test_setRefilled_D3_RK2_1")
689#endif
690#if RK1_ENABLED
691 call test%run(test_setRefilled_D3_RK1_1, SK_"test_setRefilled_D3_RK1_1")
692#endif
693
694 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
695
696 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
697 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
698 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
699
700 call test%summarize()
701
702 end subroutine setTest
703
704!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
705
706end module test_pm_arrayRefill
pm_arrayRefill
This module contains procedures and generic interfaces for resizing allocatable arrays of various typ...
Definition: pm_arrayRefill.F90:79
pm_arrayRefill::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayRefill.F90:85
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_arrayRefill
This module contains tests of the module pm_arrayRefill.
Definition: test_pm_arrayRefill.F90:41
test_pm_arrayRefill::test
type(test_type) test
Definition: test_pm_arrayRefill.F90:50
test_pm_arrayRefill::setTest
subroutine setTest()
Definition: test_pm_arrayRefill.F90:381
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