ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayRebill.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_arrayRebill
42
43 use pm_arrayRebill
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_setRebilled_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
64#endif
65#if SK4_ENABLED
66 module function test_setRebilled_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
67#endif
68#if SK3_ENABLED
69 module function test_setRebilled_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
70#endif
71#if SK2_ENABLED
72 module function test_setRebilled_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
73#endif
74#if SK1_ENABLED
75 module function test_setRebilled_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
76#endif
77
78 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79
80#if IK5_ENABLED
81 module function test_setRebilled_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
82#endif
83#if IK4_ENABLED
84 module function test_setRebilled_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
85#endif
86#if IK3_ENABLED
87 module function test_setRebilled_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
88#endif
89#if IK2_ENABLED
90 module function test_setRebilled_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
91#endif
92#if IK1_ENABLED
93 module function test_setRebilled_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
94#endif
95
96 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97
98#if LK5_ENABLED
99 module function test_setRebilled_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
100#endif
101#if LK4_ENABLED
102 module function test_setRebilled_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
103#endif
104#if LK3_ENABLED
105 module function test_setRebilled_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
106#endif
107#if LK2_ENABLED
108 module function test_setRebilled_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
109#endif
110#if LK1_ENABLED
111 module function test_setRebilled_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
112#endif
113
114 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115
116#if CK5_ENABLED
117 module function test_setRebilled_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
118#endif
119#if CK4_ENABLED
120 module function test_setRebilled_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
121#endif
122#if CK3_ENABLED
123 module function test_setRebilled_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
124#endif
125#if CK2_ENABLED
126 module function test_setRebilled_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
127#endif
128#if CK1_ENABLED
129 module function test_setRebilled_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
130#endif
131
132 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133
134#if RK5_ENABLED
135 module function test_setRebilled_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
136#endif
137#if RK4_ENABLED
138 module function test_setRebilled_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
139#endif
140#if RK3_ENABLED
141 module function test_setRebilled_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
142#endif
143#if RK2_ENABLED
144 module function test_setRebilled_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
145#endif
146#if RK1_ENABLED
147 module function test_setRebilled_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
148#endif
149
150 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151
152 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
153 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155
156 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157
158#if SK5_ENABLED
159 module function test_setRebilled_D2_SK5_1 () result(assertion); logical(LK) :: assertion; end function
160#endif
161#if SK4_ENABLED
162 module function test_setRebilled_D2_SK4_1 () result(assertion); logical(LK) :: assertion; end function
163#endif
164#if SK3_ENABLED
165 module function test_setRebilled_D2_SK3_1 () result(assertion); logical(LK) :: assertion; end function
166#endif
167#if SK2_ENABLED
168 module function test_setRebilled_D2_SK2_1 () result(assertion); logical(LK) :: assertion; end function
169#endif
170#if SK1_ENABLED
171 module function test_setRebilled_D2_SK1_1 () result(assertion); logical(LK) :: assertion; end function
172#endif
173
174 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
175
176#if IK5_ENABLED
177 module function test_setRebilled_D2_IK5_1 () result(assertion); logical(LK) :: assertion; end function
178#endif
179#if IK4_ENABLED
180 module function test_setRebilled_D2_IK4_1 () result(assertion); logical(LK) :: assertion; end function
181#endif
182#if IK3_ENABLED
183 module function test_setRebilled_D2_IK3_1 () result(assertion); logical(LK) :: assertion; end function
184#endif
185#if IK2_ENABLED
186 module function test_setRebilled_D2_IK2_1 () result(assertion); logical(LK) :: assertion; end function
187#endif
188#if IK1_ENABLED
189 module function test_setRebilled_D2_IK1_1 () result(assertion); logical(LK) :: assertion; end function
190#endif
191
192 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
193
194#if LK5_ENABLED
195 module function test_setRebilled_D2_LK5_1 () result(assertion); logical(LK) :: assertion; end function
196#endif
197#if LK4_ENABLED
198 module function test_setRebilled_D2_LK4_1 () result(assertion); logical(LK) :: assertion; end function
199#endif
200#if LK3_ENABLED
201 module function test_setRebilled_D2_LK3_1 () result(assertion); logical(LK) :: assertion; end function
202#endif
203#if LK2_ENABLED
204 module function test_setRebilled_D2_LK2_1 () result(assertion); logical(LK) :: assertion; end function
205#endif
206#if LK1_ENABLED
207 module function test_setRebilled_D2_LK1_1 () result(assertion); logical(LK) :: assertion; end function
208#endif
209
210 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
211
212#if CK5_ENABLED
213 module function test_setRebilled_D2_CK5_1 () result(assertion); logical(LK) :: assertion; end function
214#endif
215#if CK4_ENABLED
216 module function test_setRebilled_D2_CK4_1 () result(assertion); logical(LK) :: assertion; end function
217#endif
218#if CK3_ENABLED
219 module function test_setRebilled_D2_CK3_1 () result(assertion); logical(LK) :: assertion; end function
220#endif
221#if CK2_ENABLED
222 module function test_setRebilled_D2_CK2_1 () result(assertion); logical(LK) :: assertion; end function
223#endif
224#if CK1_ENABLED
225 module function test_setRebilled_D2_CK1_1 () result(assertion); logical(LK) :: assertion; end function
226#endif
227
228 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229
230#if RK5_ENABLED
231 module function test_setRebilled_D2_RK5_1 () result(assertion); logical(LK) :: assertion; end function
232#endif
233#if RK4_ENABLED
234 module function test_setRebilled_D2_RK4_1 () result(assertion); logical(LK) :: assertion; end function
235#endif
236#if RK3_ENABLED
237 module function test_setRebilled_D2_RK3_1 () result(assertion); logical(LK) :: assertion; end function
238#endif
239#if RK2_ENABLED
240 module function test_setRebilled_D2_RK2_1 () result(assertion); logical(LK) :: assertion; end function
241#endif
242#if RK1_ENABLED
243 module function test_setRebilled_D2_RK1_1 () result(assertion); logical(LK) :: assertion; end function
244#endif
245
246 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247
248 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
249 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
251
252 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253
254#if SK5_ENABLED
255 module function test_setRebilled_D3_SK5_1 () result(assertion); logical(LK) :: assertion; end function
256#endif
257#if SK4_ENABLED
258 module function test_setRebilled_D3_SK4_1 () result(assertion); logical(LK) :: assertion; end function
259#endif
260#if SK3_ENABLED
261 module function test_setRebilled_D3_SK3_1 () result(assertion); logical(LK) :: assertion; end function
262#endif
263#if SK2_ENABLED
264 module function test_setRebilled_D3_SK2_1 () result(assertion); logical(LK) :: assertion; end function
265#endif
266#if SK1_ENABLED
267 module function test_setRebilled_D3_SK1_1 () result(assertion); logical(LK) :: assertion; end function
268#endif
269
270 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271
272#if IK5_ENABLED
273 module function test_setRebilled_D3_IK5_1 () result(assertion); logical(LK) :: assertion; end function
274#endif
275#if IK4_ENABLED
276 module function test_setRebilled_D3_IK4_1 () result(assertion); logical(LK) :: assertion; end function
277#endif
278#if IK3_ENABLED
279 module function test_setRebilled_D3_IK3_1 () result(assertion); logical(LK) :: assertion; end function
280#endif
281#if IK2_ENABLED
282 module function test_setRebilled_D3_IK2_1 () result(assertion); logical(LK) :: assertion; end function
283#endif
284#if IK1_ENABLED
285 module function test_setRebilled_D3_IK1_1 () result(assertion); logical(LK) :: assertion; end function
286#endif
287
288 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
289
290#if LK5_ENABLED
291 module function test_setRebilled_D3_LK5_1 () result(assertion); logical(LK) :: assertion; end function
292#endif
293#if LK4_ENABLED
294 module function test_setRebilled_D3_LK4_1 () result(assertion); logical(LK) :: assertion; end function
295#endif
296#if LK3_ENABLED
297 module function test_setRebilled_D3_LK3_1 () result(assertion); logical(LK) :: assertion; end function
298#endif
299#if LK2_ENABLED
300 module function test_setRebilled_D3_LK2_1 () result(assertion); logical(LK) :: assertion; end function
301#endif
302#if LK1_ENABLED
303 module function test_setRebilled_D3_LK1_1 () result(assertion); logical(LK) :: assertion; end function
304#endif
305
306 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
307
308#if CK5_ENABLED
309 module function test_setRebilled_D3_CK5_1 () result(assertion); logical(LK) :: assertion; end function
310#endif
311#if CK4_ENABLED
312 module function test_setRebilled_D3_CK4_1 () result(assertion); logical(LK) :: assertion; end function
313#endif
314#if CK3_ENABLED
315 module function test_setRebilled_D3_CK3_1 () result(assertion); logical(LK) :: assertion; end function
316#endif
317#if CK2_ENABLED
318 module function test_setRebilled_D3_CK2_1 () result(assertion); logical(LK) :: assertion; end function
319#endif
320#if CK1_ENABLED
321 module function test_setRebilled_D3_CK1_1 () result(assertion); logical(LK) :: assertion; end function
322#endif
323
324 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
325
326#if RK5_ENABLED
327 module function test_setRebilled_D3_RK5_1 () result(assertion); logical(LK) :: assertion; end function
328#endif
329#if RK4_ENABLED
330 module function test_setRebilled_D3_RK4_1 () result(assertion); logical(LK) :: assertion; end function
331#endif
332#if RK3_ENABLED
333 module function test_setRebilled_D3_RK3_1 () result(assertion); logical(LK) :: assertion; end function
334#endif
335#if RK2_ENABLED
336 module function test_setRebilled_D3_RK2_1 () result(assertion); logical(LK) :: assertion; end function
337#endif
338#if RK1_ENABLED
339 module function test_setRebilled_D3_RK1_1 () result(assertion); logical(LK) :: assertion; end function
340#endif
341
342 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
343
344 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
345 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
346 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
347
348 end interface
349
350!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
351
352contains
353
354!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
355
356 subroutine setTest()
357
358 test = test_type(MODULE_NAME)
359
360 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
361 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
362 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
363
364 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
365
366#if SK5_ENABLED
367 call test%run(test_setRebilled_D1_SK5_1, SK_"test_setRebilled_D1_SK5_1")
368#endif
369#if SK4_ENABLED
370 call test%run(test_setRebilled_D1_SK4_1, SK_"test_setRebilled_D1_SK4_1")
371#endif
372#if SK3_ENABLED
373 call test%run(test_setRebilled_D1_SK3_1, SK_"test_setRebilled_D1_SK3_1")
374#endif
375#if SK2_ENABLED
376 call test%run(test_setRebilled_D1_SK2_1, SK_"test_setRebilled_D1_SK2_1")
377#endif
378#if SK1_ENABLED
379 call test%run(test_setRebilled_D1_SK1_1, SK_"test_setRebilled_D1_SK1_1")
380#endif
381
382 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
383
384#if IK5_ENABLED
385 call test%run(test_setRebilled_D1_IK5_1, SK_"test_setRebilled_D1_IK5_1")
386#endif
387#if IK4_ENABLED
388 call test%run(test_setRebilled_D1_IK4_1, SK_"test_setRebilled_D1_IK4_1")
389#endif
390#if IK3_ENABLED
391 call test%run(test_setRebilled_D1_IK3_1, SK_"test_setRebilled_D1_IK3_1")
392#endif
393#if IK2_ENABLED
394 call test%run(test_setRebilled_D1_IK2_1, SK_"test_setRebilled_D1_IK2_1")
395#endif
396#if IK1_ENABLED
397 call test%run(test_setRebilled_D1_IK1_1, SK_"test_setRebilled_D1_IK1_1")
398#endif
399
400 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
401
402#if LK5_ENABLED
403 call test%run(test_setRebilled_D1_LK5_1, SK_"test_setRebilled_D1_LK5_1")
404#endif
405#if LK4_ENABLED
406 call test%run(test_setRebilled_D1_LK4_1, SK_"test_setRebilled_D1_LK4_1")
407#endif
408#if LK3_ENABLED
409 call test%run(test_setRebilled_D1_LK3_1, SK_"test_setRebilled_D1_LK3_1")
410#endif
411#if LK2_ENABLED
412 call test%run(test_setRebilled_D1_LK2_1, SK_"test_setRebilled_D1_LK2_1")
413#endif
414#if LK1_ENABLED
415 call test%run(test_setRebilled_D1_LK1_1, SK_"test_setRebilled_D1_LK1_1")
416#endif
417
418 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
419
420#if CK5_ENABLED
421 call test%run(test_setRebilled_D1_CK5_1, SK_"test_setRebilled_D1_CK5_1")
422#endif
423#if CK4_ENABLED
424 call test%run(test_setRebilled_D1_CK4_1, SK_"test_setRebilled_D1_CK4_1")
425#endif
426#if CK3_ENABLED
427 call test%run(test_setRebilled_D1_CK3_1, SK_"test_setRebilled_D1_CK3_1")
428#endif
429#if CK2_ENABLED
430 call test%run(test_setRebilled_D1_CK2_1, SK_"test_setRebilled_D1_CK2_1")
431#endif
432#if CK1_ENABLED
433 call test%run(test_setRebilled_D1_CK1_1, SK_"test_setRebilled_D1_CK1_1")
434#endif
435
436 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
437
438#if RK5_ENABLED
439 call test%run(test_setRebilled_D1_RK5_1, SK_"test_setRebilled_D1_RK5_1")
440#endif
441#if RK4_ENABLED
442 call test%run(test_setRebilled_D1_RK4_1, SK_"test_setRebilled_D1_RK4_1")
443#endif
444#if RK3_ENABLED
445 call test%run(test_setRebilled_D1_RK3_1, SK_"test_setRebilled_D1_RK3_1")
446#endif
447#if RK2_ENABLED
448 call test%run(test_setRebilled_D1_RK2_1, SK_"test_setRebilled_D1_RK2_1")
449#endif
450#if RK1_ENABLED
451 call test%run(test_setRebilled_D1_RK1_1, SK_"test_setRebilled_D1_RK1_1")
452#endif
453
454 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
455
456 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
457 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
458 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
459
460 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
461
462#if SK5_ENABLED
463 call test%run(test_setRebilled_D2_SK5_1, SK_"test_setRebilled_D2_SK5_1")
464#endif
465#if SK4_ENABLED
466 call test%run(test_setRebilled_D2_SK4_1, SK_"test_setRebilled_D2_SK4_1")
467#endif
468#if SK3_ENABLED
469 call test%run(test_setRebilled_D2_SK3_1, SK_"test_setRebilled_D2_SK3_1")
470#endif
471#if SK2_ENABLED
472 call test%run(test_setRebilled_D2_SK2_1, SK_"test_setRebilled_D2_SK2_1")
473#endif
474#if SK1_ENABLED
475 call test%run(test_setRebilled_D2_SK1_1, SK_"test_setRebilled_D2_SK1_1")
476#endif
477
478 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
479
480#if IK5_ENABLED
481 call test%run(test_setRebilled_D2_IK5_1, SK_"test_setRebilled_D2_IK5_1")
482#endif
483#if IK4_ENABLED
484 call test%run(test_setRebilled_D2_IK4_1, SK_"test_setRebilled_D2_IK4_1")
485#endif
486#if IK3_ENABLED
487 call test%run(test_setRebilled_D2_IK3_1, SK_"test_setRebilled_D2_IK3_1")
488#endif
489#if IK2_ENABLED
490 call test%run(test_setRebilled_D2_IK2_1, SK_"test_setRebilled_D2_IK2_1")
491#endif
492#if IK1_ENABLED
493 call test%run(test_setRebilled_D2_IK1_1, SK_"test_setRebilled_D2_IK1_1")
494#endif
495
496 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
497
498#if LK5_ENABLED
499 call test%run(test_setRebilled_D2_LK5_1, SK_"test_setRebilled_D2_LK5_1")
500#endif
501#if LK4_ENABLED
502 call test%run(test_setRebilled_D2_LK4_1, SK_"test_setRebilled_D2_LK4_1")
503#endif
504#if LK3_ENABLED
505 call test%run(test_setRebilled_D2_LK3_1, SK_"test_setRebilled_D2_LK3_1")
506#endif
507#if LK2_ENABLED
508 call test%run(test_setRebilled_D2_LK2_1, SK_"test_setRebilled_D2_LK2_1")
509#endif
510#if LK1_ENABLED
511 call test%run(test_setRebilled_D2_LK1_1, SK_"test_setRebilled_D2_LK1_1")
512#endif
513
514 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
515
516#if CK5_ENABLED
517 call test%run(test_setRebilled_D2_CK5_1, SK_"test_setRebilled_D2_CK5_1")
518#endif
519#if CK4_ENABLED
520 call test%run(test_setRebilled_D2_CK4_1, SK_"test_setRebilled_D2_CK4_1")
521#endif
522#if CK3_ENABLED
523 call test%run(test_setRebilled_D2_CK3_1, SK_"test_setRebilled_D2_CK3_1")
524#endif
525#if CK2_ENABLED
526 call test%run(test_setRebilled_D2_CK2_1, SK_"test_setRebilled_D2_CK2_1")
527#endif
528#if CK1_ENABLED
529 call test%run(test_setRebilled_D2_CK1_1, SK_"test_setRebilled_D2_CK1_1")
530#endif
531
532 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
533
534#if RK5_ENABLED
535 call test%run(test_setRebilled_D2_RK5_1, SK_"test_setRebilled_D2_RK5_1")
536#endif
537#if RK4_ENABLED
538 call test%run(test_setRebilled_D2_RK4_1, SK_"test_setRebilled_D2_RK4_1")
539#endif
540#if RK3_ENABLED
541 call test%run(test_setRebilled_D2_RK3_1, SK_"test_setRebilled_D2_RK3_1")
542#endif
543#if RK2_ENABLED
544 call test%run(test_setRebilled_D2_RK2_1, SK_"test_setRebilled_D2_RK2_1")
545#endif
546#if RK1_ENABLED
547 call test%run(test_setRebilled_D2_RK1_1, SK_"test_setRebilled_D2_RK1_1")
548#endif
549
550 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551
552 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
553 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555
556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557
558#if SK5_ENABLED
559 call test%run(test_setRebilled_D3_SK5_1, SK_"test_setRebilled_D3_SK5_1")
560#endif
561#if SK4_ENABLED
562 call test%run(test_setRebilled_D3_SK4_1, SK_"test_setRebilled_D3_SK4_1")
563#endif
564#if SK3_ENABLED
565 call test%run(test_setRebilled_D3_SK3_1, SK_"test_setRebilled_D3_SK3_1")
566#endif
567#if SK2_ENABLED
568 call test%run(test_setRebilled_D3_SK2_1, SK_"test_setRebilled_D3_SK2_1")
569#endif
570#if SK1_ENABLED
571 call test%run(test_setRebilled_D3_SK1_1, SK_"test_setRebilled_D3_SK1_1")
572#endif
573
574 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
575
576#if IK5_ENABLED
577 call test%run(test_setRebilled_D3_IK5_1, SK_"test_setRebilled_D3_IK5_1")
578#endif
579#if IK4_ENABLED
580 call test%run(test_setRebilled_D3_IK4_1, SK_"test_setRebilled_D3_IK4_1")
581#endif
582#if IK3_ENABLED
583 call test%run(test_setRebilled_D3_IK3_1, SK_"test_setRebilled_D3_IK3_1")
584#endif
585#if IK2_ENABLED
586 call test%run(test_setRebilled_D3_IK2_1, SK_"test_setRebilled_D3_IK2_1")
587#endif
588#if IK1_ENABLED
589 call test%run(test_setRebilled_D3_IK1_1, SK_"test_setRebilled_D3_IK1_1")
590#endif
591
592 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
593
594#if LK5_ENABLED
595 call test%run(test_setRebilled_D3_LK5_1, SK_"test_setRebilled_D3_LK5_1")
596#endif
597#if LK4_ENABLED
598 call test%run(test_setRebilled_D3_LK4_1, SK_"test_setRebilled_D3_LK4_1")
599#endif
600#if LK3_ENABLED
601 call test%run(test_setRebilled_D3_LK3_1, SK_"test_setRebilled_D3_LK3_1")
602#endif
603#if LK2_ENABLED
604 call test%run(test_setRebilled_D3_LK2_1, SK_"test_setRebilled_D3_LK2_1")
605#endif
606#if LK1_ENABLED
607 call test%run(test_setRebilled_D3_LK1_1, SK_"test_setRebilled_D3_LK1_1")
608#endif
609
610 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
611
612#if CK5_ENABLED
613 call test%run(test_setRebilled_D3_CK5_1, SK_"test_setRebilled_D3_CK5_1")
614#endif
615#if CK4_ENABLED
616 call test%run(test_setRebilled_D3_CK4_1, SK_"test_setRebilled_D3_CK4_1")
617#endif
618#if CK3_ENABLED
619 call test%run(test_setRebilled_D3_CK3_1, SK_"test_setRebilled_D3_CK3_1")
620#endif
621#if CK2_ENABLED
622 call test%run(test_setRebilled_D3_CK2_1, SK_"test_setRebilled_D3_CK2_1")
623#endif
624#if CK1_ENABLED
625 call test%run(test_setRebilled_D3_CK1_1, SK_"test_setRebilled_D3_CK1_1")
626#endif
627
628 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
629
630#if RK5_ENABLED
631 call test%run(test_setRebilled_D3_RK5_1, SK_"test_setRebilled_D3_RK5_1")
632#endif
633#if RK4_ENABLED
634 call test%run(test_setRebilled_D3_RK4_1, SK_"test_setRebilled_D3_RK4_1")
635#endif
636#if RK3_ENABLED
637 call test%run(test_setRebilled_D3_RK3_1, SK_"test_setRebilled_D3_RK3_1")
638#endif
639#if RK2_ENABLED
640 call test%run(test_setRebilled_D3_RK2_1, SK_"test_setRebilled_D3_RK2_1")
641#endif
642#if RK1_ENABLED
643 call test%run(test_setRebilled_D3_RK1_1, SK_"test_setRebilled_D3_RK1_1")
644#endif
645
646 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
647
648 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
649 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
650 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
651
652 call test%summarize()
653
654 end subroutine setTest
655
656!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
657
658end module test_pm_arrayRebill
pm_arrayRebill
This module contains procedures and generic interfaces for resizing allocatable arrays of various typ...
Definition: pm_arrayRebill.F90:64
pm_arrayRebill::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayRebill.F90:70
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_arrayRebill
This module contains tests of the module pm_arrayRebill.
Definition: test_pm_arrayRebill.F90:41
test_pm_arrayRebill::setTest
subroutine setTest()
Definition: test_pm_arrayRebill.F90:357
test_pm_arrayRebill::test
type(test_type) test
Definition: test_pm_arrayRebill.F90:50
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