ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayStrip.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_arrayStrip
28
29 use pm_arrayStrip
30 use pm_err, only: err_type
31 use pm_test, only: test_type, LK
32 implicit none
33
34 private
35 public :: setTest
36 type(test_type) :: test
37
38!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39
40 interface
41
42 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45
46 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47
48#if SK5_ENABLED
49 module function test_getStrippedB_D0_D0_SK5() result(assertion); logical(LK) :: assertion; end function
50#endif
51#if SK4_ENABLED
52 module function test_getStrippedB_D0_D0_SK4() result(assertion); logical(LK) :: assertion; end function
53#endif
54#if SK3_ENABLED
55 module function test_getStrippedB_D0_D0_SK3() result(assertion); logical(LK) :: assertion; end function
56#endif
57#if SK2_ENABLED
58 module function test_getStrippedB_D0_D0_SK2() result(assertion); logical(LK) :: assertion; end function
59#endif
60#if SK1_ENABLED
61 module function test_getStrippedB_D0_D0_SK1() result(assertion); logical(LK) :: assertion; end function
62#endif
63
64 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
65
66 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
67 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
68 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
69
70 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
71
72#if SK5_ENABLED
73 module function test_getStrippedB_D1_D0_SK5() result(assertion); logical(LK) :: assertion; end function
74#endif
75#if SK4_ENABLED
76 module function test_getStrippedB_D1_D0_SK4() result(assertion); logical(LK) :: assertion; end function
77#endif
78#if SK3_ENABLED
79 module function test_getStrippedB_D1_D0_SK3() result(assertion); logical(LK) :: assertion; end function
80#endif
81#if SK2_ENABLED
82 module function test_getStrippedB_D1_D0_SK2() result(assertion); logical(LK) :: assertion; end function
83#endif
84#if SK1_ENABLED
85 module function test_getStrippedB_D1_D0_SK1() result(assertion); logical(LK) :: assertion; end function
86#endif
87
88 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
89
90#if IK5_ENABLED
91 module function test_getStrippedB_D1_D0_IK5() result(assertion); logical(LK) :: assertion; end function
92#endif
93#if IK4_ENABLED
94 module function test_getStrippedB_D1_D0_IK4() result(assertion); logical(LK) :: assertion; end function
95#endif
96#if IK3_ENABLED
97 module function test_getStrippedB_D1_D0_IK3() result(assertion); logical(LK) :: assertion; end function
98#endif
99#if IK2_ENABLED
100 module function test_getStrippedB_D1_D0_IK2() result(assertion); logical(LK) :: assertion; end function
101#endif
102#if IK1_ENABLED
103 module function test_getStrippedB_D1_D0_IK1() result(assertion); logical(LK) :: assertion; end function
104#endif
105
106 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
107
108#if LK5_ENABLED
109 module function test_getStrippedB_D1_D0_LK5() result(assertion); logical(LK) :: assertion; end function
110#endif
111#if LK4_ENABLED
112 module function test_getStrippedB_D1_D0_LK4() result(assertion); logical(LK) :: assertion; end function
113#endif
114#if LK3_ENABLED
115 module function test_getStrippedB_D1_D0_LK3() result(assertion); logical(LK) :: assertion; end function
116#endif
117#if LK2_ENABLED
118 module function test_getStrippedB_D1_D0_LK2() result(assertion); logical(LK) :: assertion; end function
119#endif
120#if LK1_ENABLED
121 module function test_getStrippedB_D1_D0_LK1() result(assertion); logical(LK) :: assertion; end function
122#endif
123
124 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
125
126#if CK5_ENABLED
127 module function test_getStrippedB_D1_D0_CK5() result(assertion); logical(LK) :: assertion; end function
128#endif
129#if CK4_ENABLED
130 module function test_getStrippedB_D1_D0_CK4() result(assertion); logical(LK) :: assertion; end function
131#endif
132#if CK3_ENABLED
133 module function test_getStrippedB_D1_D0_CK3() result(assertion); logical(LK) :: assertion; end function
134#endif
135#if CK2_ENABLED
136 module function test_getStrippedB_D1_D0_CK2() result(assertion); logical(LK) :: assertion; end function
137#endif
138#if CK1_ENABLED
139 module function test_getStrippedB_D1_D0_CK1() result(assertion); logical(LK) :: assertion; end function
140#endif
141
142 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
143
144#if RK5_ENABLED
145 module function test_getStrippedB_D1_D0_RK5() result(assertion); logical(LK) :: assertion; end function
146#endif
147#if RK4_ENABLED
148 module function test_getStrippedB_D1_D0_RK4() result(assertion); logical(LK) :: assertion; end function
149#endif
150#if RK3_ENABLED
151 module function test_getStrippedB_D1_D0_RK3() result(assertion); logical(LK) :: assertion; end function
152#endif
153#if RK2_ENABLED
154 module function test_getStrippedB_D1_D0_RK2() result(assertion); logical(LK) :: assertion; end function
155#endif
156#if RK1_ENABLED
157 module function test_getStrippedB_D1_D0_RK1() result(assertion); logical(LK) :: assertion; end function
158#endif
159
160 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161
162 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
163 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
164 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
165
166 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167
168#if SK5_ENABLED
169 module function test_getStrippedB_D1_D1_SK5() result(assertion); logical(LK) :: assertion; end function
170#endif
171#if SK4_ENABLED
172 module function test_getStrippedB_D1_D1_SK4() result(assertion); logical(LK) :: assertion; end function
173#endif
174#if SK3_ENABLED
175 module function test_getStrippedB_D1_D1_SK3() result(assertion); logical(LK) :: assertion; end function
176#endif
177#if SK2_ENABLED
178 module function test_getStrippedB_D1_D1_SK2() result(assertion); logical(LK) :: assertion; end function
179#endif
180#if SK1_ENABLED
181 module function test_getStrippedB_D1_D1_SK1() result(assertion); logical(LK) :: assertion; end function
182#endif
183
184 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
185
186#if IK5_ENABLED
187 module function test_getStrippedB_D1_D1_IK5() result(assertion); logical(LK) :: assertion; end function
188#endif
189#if IK4_ENABLED
190 module function test_getStrippedB_D1_D1_IK4() result(assertion); logical(LK) :: assertion; end function
191#endif
192#if IK3_ENABLED
193 module function test_getStrippedB_D1_D1_IK3() result(assertion); logical(LK) :: assertion; end function
194#endif
195#if IK2_ENABLED
196 module function test_getStrippedB_D1_D1_IK2() result(assertion); logical(LK) :: assertion; end function
197#endif
198#if IK1_ENABLED
199 module function test_getStrippedB_D1_D1_IK1() result(assertion); logical(LK) :: assertion; end function
200#endif
201
202 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
203
204#if LK5_ENABLED
205 module function test_getStrippedB_D1_D1_LK5() result(assertion); logical(LK) :: assertion; end function
206#endif
207#if LK4_ENABLED
208 module function test_getStrippedB_D1_D1_LK4() result(assertion); logical(LK) :: assertion; end function
209#endif
210#if LK3_ENABLED
211 module function test_getStrippedB_D1_D1_LK3() result(assertion); logical(LK) :: assertion; end function
212#endif
213#if LK2_ENABLED
214 module function test_getStrippedB_D1_D1_LK2() result(assertion); logical(LK) :: assertion; end function
215#endif
216#if LK1_ENABLED
217 module function test_getStrippedB_D1_D1_LK1() result(assertion); logical(LK) :: assertion; end function
218#endif
219
220 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
221
222#if CK5_ENABLED
223 module function test_getStrippedB_D1_D1_CK5() result(assertion); logical(LK) :: assertion; end function
224#endif
225#if CK4_ENABLED
226 module function test_getStrippedB_D1_D1_CK4() result(assertion); logical(LK) :: assertion; end function
227#endif
228#if CK3_ENABLED
229 module function test_getStrippedB_D1_D1_CK3() result(assertion); logical(LK) :: assertion; end function
230#endif
231#if CK2_ENABLED
232 module function test_getStrippedB_D1_D1_CK2() result(assertion); logical(LK) :: assertion; end function
233#endif
234#if CK1_ENABLED
235 module function test_getStrippedB_D1_D1_CK1() result(assertion); logical(LK) :: assertion; end function
236#endif
237
238 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
239
240#if RK5_ENABLED
241 module function test_getStrippedB_D1_D1_RK5() result(assertion); logical(LK) :: assertion; end function
242#endif
243#if RK4_ENABLED
244 module function test_getStrippedB_D1_D1_RK4() result(assertion); logical(LK) :: assertion; end function
245#endif
246#if RK3_ENABLED
247 module function test_getStrippedB_D1_D1_RK3() result(assertion); logical(LK) :: assertion; end function
248#endif
249#if RK2_ENABLED
250 module function test_getStrippedB_D1_D1_RK2() result(assertion); logical(LK) :: assertion; end function
251#endif
252#if RK1_ENABLED
253 module function test_getStrippedB_D1_D1_RK1() result(assertion); logical(LK) :: assertion; end function
254#endif
255
256 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
257
258 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
261
262 end interface
263
264!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265
266 interface
267
268 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
269 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
270 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271
272 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
273
274#if SK5_ENABLED
275 module function test_getStrippedL_D0_D0_SK5() result(assertion); logical(LK) :: assertion; end function
276#endif
277#if SK4_ENABLED
278 module function test_getStrippedL_D0_D0_SK4() result(assertion); logical(LK) :: assertion; end function
279#endif
280#if SK3_ENABLED
281 module function test_getStrippedL_D0_D0_SK3() result(assertion); logical(LK) :: assertion; end function
282#endif
283#if SK2_ENABLED
284 module function test_getStrippedL_D0_D0_SK2() result(assertion); logical(LK) :: assertion; end function
285#endif
286#if SK1_ENABLED
287 module function test_getStrippedL_D0_D0_SK1() result(assertion); logical(LK) :: assertion; end function
288#endif
289
290 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
291
292 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
293 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
294 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
295
296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297
298#if SK5_ENABLED
299 module function test_getStrippedL_D1_D0_SK5() result(assertion); logical(LK) :: assertion; end function
300#endif
301#if SK4_ENABLED
302 module function test_getStrippedL_D1_D0_SK4() result(assertion); logical(LK) :: assertion; end function
303#endif
304#if SK3_ENABLED
305 module function test_getStrippedL_D1_D0_SK3() result(assertion); logical(LK) :: assertion; end function
306#endif
307#if SK2_ENABLED
308 module function test_getStrippedL_D1_D0_SK2() result(assertion); logical(LK) :: assertion; end function
309#endif
310#if SK1_ENABLED
311 module function test_getStrippedL_D1_D0_SK1() result(assertion); logical(LK) :: assertion; end function
312#endif
313
314 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315
316#if IK5_ENABLED
317 module function test_getStrippedL_D1_D0_IK5() result(assertion); logical(LK) :: assertion; end function
318#endif
319#if IK4_ENABLED
320 module function test_getStrippedL_D1_D0_IK4() result(assertion); logical(LK) :: assertion; end function
321#endif
322#if IK3_ENABLED
323 module function test_getStrippedL_D1_D0_IK3() result(assertion); logical(LK) :: assertion; end function
324#endif
325#if IK2_ENABLED
326 module function test_getStrippedL_D1_D0_IK2() result(assertion); logical(LK) :: assertion; end function
327#endif
328#if IK1_ENABLED
329 module function test_getStrippedL_D1_D0_IK1() result(assertion); logical(LK) :: assertion; end function
330#endif
331
332 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
333
334#if LK5_ENABLED
335 module function test_getStrippedL_D1_D0_LK5() result(assertion); logical(LK) :: assertion; end function
336#endif
337#if LK4_ENABLED
338 module function test_getStrippedL_D1_D0_LK4() result(assertion); logical(LK) :: assertion; end function
339#endif
340#if LK3_ENABLED
341 module function test_getStrippedL_D1_D0_LK3() result(assertion); logical(LK) :: assertion; end function
342#endif
343#if LK2_ENABLED
344 module function test_getStrippedL_D1_D0_LK2() result(assertion); logical(LK) :: assertion; end function
345#endif
346#if LK1_ENABLED
347 module function test_getStrippedL_D1_D0_LK1() result(assertion); logical(LK) :: assertion; end function
348#endif
349
350 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
351
352#if CK5_ENABLED
353 module function test_getStrippedL_D1_D0_CK5() result(assertion); logical(LK) :: assertion; end function
354#endif
355#if CK4_ENABLED
356 module function test_getStrippedL_D1_D0_CK4() result(assertion); logical(LK) :: assertion; end function
357#endif
358#if CK3_ENABLED
359 module function test_getStrippedL_D1_D0_CK3() result(assertion); logical(LK) :: assertion; end function
360#endif
361#if CK2_ENABLED
362 module function test_getStrippedL_D1_D0_CK2() result(assertion); logical(LK) :: assertion; end function
363#endif
364#if CK1_ENABLED
365 module function test_getStrippedL_D1_D0_CK1() result(assertion); logical(LK) :: assertion; end function
366#endif
367
368 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
369
370#if RK5_ENABLED
371 module function test_getStrippedL_D1_D0_RK5() result(assertion); logical(LK) :: assertion; end function
372#endif
373#if RK4_ENABLED
374 module function test_getStrippedL_D1_D0_RK4() result(assertion); logical(LK) :: assertion; end function
375#endif
376#if RK3_ENABLED
377 module function test_getStrippedL_D1_D0_RK3() result(assertion); logical(LK) :: assertion; end function
378#endif
379#if RK2_ENABLED
380 module function test_getStrippedL_D1_D0_RK2() result(assertion); logical(LK) :: assertion; end function
381#endif
382#if RK1_ENABLED
383 module function test_getStrippedL_D1_D0_RK1() result(assertion); logical(LK) :: assertion; end function
384#endif
385
386 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
387
388 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
389 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
390 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
391
392 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393
394#if SK5_ENABLED
395 module function test_getStrippedL_D1_D1_SK5() result(assertion); logical(LK) :: assertion; end function
396#endif
397#if SK4_ENABLED
398 module function test_getStrippedL_D1_D1_SK4() result(assertion); logical(LK) :: assertion; end function
399#endif
400#if SK3_ENABLED
401 module function test_getStrippedL_D1_D1_SK3() result(assertion); logical(LK) :: assertion; end function
402#endif
403#if SK2_ENABLED
404 module function test_getStrippedL_D1_D1_SK2() result(assertion); logical(LK) :: assertion; end function
405#endif
406#if SK1_ENABLED
407 module function test_getStrippedL_D1_D1_SK1() result(assertion); logical(LK) :: assertion; end function
408#endif
409
410 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
411
412#if IK5_ENABLED
413 module function test_getStrippedL_D1_D1_IK5() result(assertion); logical(LK) :: assertion; end function
414#endif
415#if IK4_ENABLED
416 module function test_getStrippedL_D1_D1_IK4() result(assertion); logical(LK) :: assertion; end function
417#endif
418#if IK3_ENABLED
419 module function test_getStrippedL_D1_D1_IK3() result(assertion); logical(LK) :: assertion; end function
420#endif
421#if IK2_ENABLED
422 module function test_getStrippedL_D1_D1_IK2() result(assertion); logical(LK) :: assertion; end function
423#endif
424#if IK1_ENABLED
425 module function test_getStrippedL_D1_D1_IK1() result(assertion); logical(LK) :: assertion; end function
426#endif
427
428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
429
430#if LK5_ENABLED
431 module function test_getStrippedL_D1_D1_LK5() result(assertion); logical(LK) :: assertion; end function
432#endif
433#if LK4_ENABLED
434 module function test_getStrippedL_D1_D1_LK4() result(assertion); logical(LK) :: assertion; end function
435#endif
436#if LK3_ENABLED
437 module function test_getStrippedL_D1_D1_LK3() result(assertion); logical(LK) :: assertion; end function
438#endif
439#if LK2_ENABLED
440 module function test_getStrippedL_D1_D1_LK2() result(assertion); logical(LK) :: assertion; end function
441#endif
442#if LK1_ENABLED
443 module function test_getStrippedL_D1_D1_LK1() result(assertion); logical(LK) :: assertion; end function
444#endif
445
446 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447
448#if CK5_ENABLED
449 module function test_getStrippedL_D1_D1_CK5() result(assertion); logical(LK) :: assertion; end function
450#endif
451#if CK4_ENABLED
452 module function test_getStrippedL_D1_D1_CK4() result(assertion); logical(LK) :: assertion; end function
453#endif
454#if CK3_ENABLED
455 module function test_getStrippedL_D1_D1_CK3() result(assertion); logical(LK) :: assertion; end function
456#endif
457#if CK2_ENABLED
458 module function test_getStrippedL_D1_D1_CK2() result(assertion); logical(LK) :: assertion; end function
459#endif
460#if CK1_ENABLED
461 module function test_getStrippedL_D1_D1_CK1() result(assertion); logical(LK) :: assertion; end function
462#endif
463
464 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
465
466#if RK5_ENABLED
467 module function test_getStrippedL_D1_D1_RK5() result(assertion); logical(LK) :: assertion; end function
468#endif
469#if RK4_ENABLED
470 module function test_getStrippedL_D1_D1_RK4() result(assertion); logical(LK) :: assertion; end function
471#endif
472#if RK3_ENABLED
473 module function test_getStrippedL_D1_D1_RK3() result(assertion); logical(LK) :: assertion; end function
474#endif
475#if RK2_ENABLED
476 module function test_getStrippedL_D1_D1_RK2() result(assertion); logical(LK) :: assertion; end function
477#endif
478#if RK1_ENABLED
479 module function test_getStrippedL_D1_D1_RK1() result(assertion); logical(LK) :: assertion; end function
480#endif
481
482 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
483
484 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
485 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
486 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
487
488 end interface
489
490!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
491
492 interface
493
494 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
495 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
496 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
497
498 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
499
500#if SK5_ENABLED
501 module function test_getStrippedR_D0_D0_SK5() result(assertion); logical(LK) :: assertion; end function
502#endif
503#if SK4_ENABLED
504 module function test_getStrippedR_D0_D0_SK4() result(assertion); logical(LK) :: assertion; end function
505#endif
506#if SK3_ENABLED
507 module function test_getStrippedR_D0_D0_SK3() result(assertion); logical(LK) :: assertion; end function
508#endif
509#if SK2_ENABLED
510 module function test_getStrippedR_D0_D0_SK2() result(assertion); logical(LK) :: assertion; end function
511#endif
512#if SK1_ENABLED
513 module function test_getStrippedR_D0_D0_SK1() result(assertion); logical(LK) :: assertion; end function
514#endif
515
516 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517
518 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
519 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
521
522 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
523
524#if SK5_ENABLED
525 module function test_getStrippedR_D1_D0_SK5() result(assertion); logical(LK) :: assertion; end function
526#endif
527#if SK4_ENABLED
528 module function test_getStrippedR_D1_D0_SK4() result(assertion); logical(LK) :: assertion; end function
529#endif
530#if SK3_ENABLED
531 module function test_getStrippedR_D1_D0_SK3() result(assertion); logical(LK) :: assertion; end function
532#endif
533#if SK2_ENABLED
534 module function test_getStrippedR_D1_D0_SK2() result(assertion); logical(LK) :: assertion; end function
535#endif
536#if SK1_ENABLED
537 module function test_getStrippedR_D1_D0_SK1() result(assertion); logical(LK) :: assertion; end function
538#endif
539
540 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541
542#if IK5_ENABLED
543 module function test_getStrippedR_D1_D0_IK5() result(assertion); logical(LK) :: assertion; end function
544#endif
545#if IK4_ENABLED
546 module function test_getStrippedR_D1_D0_IK4() result(assertion); logical(LK) :: assertion; end function
547#endif
548#if IK3_ENABLED
549 module function test_getStrippedR_D1_D0_IK3() result(assertion); logical(LK) :: assertion; end function
550#endif
551#if IK2_ENABLED
552 module function test_getStrippedR_D1_D0_IK2() result(assertion); logical(LK) :: assertion; end function
553#endif
554#if IK1_ENABLED
555 module function test_getStrippedR_D1_D0_IK1() result(assertion); logical(LK) :: assertion; end function
556#endif
557
558 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
559
560#if LK5_ENABLED
561 module function test_getStrippedR_D1_D0_LK5() result(assertion); logical(LK) :: assertion; end function
562#endif
563#if LK4_ENABLED
564 module function test_getStrippedR_D1_D0_LK4() result(assertion); logical(LK) :: assertion; end function
565#endif
566#if LK3_ENABLED
567 module function test_getStrippedR_D1_D0_LK3() result(assertion); logical(LK) :: assertion; end function
568#endif
569#if LK2_ENABLED
570 module function test_getStrippedR_D1_D0_LK2() result(assertion); logical(LK) :: assertion; end function
571#endif
572#if LK1_ENABLED
573 module function test_getStrippedR_D1_D0_LK1() result(assertion); logical(LK) :: assertion; end function
574#endif
575
576 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
577
578#if CK5_ENABLED
579 module function test_getStrippedR_D1_D0_CK5() result(assertion); logical(LK) :: assertion; end function
580#endif
581#if CK4_ENABLED
582 module function test_getStrippedR_D1_D0_CK4() result(assertion); logical(LK) :: assertion; end function
583#endif
584#if CK3_ENABLED
585 module function test_getStrippedR_D1_D0_CK3() result(assertion); logical(LK) :: assertion; end function
586#endif
587#if CK2_ENABLED
588 module function test_getStrippedR_D1_D0_CK2() result(assertion); logical(LK) :: assertion; end function
589#endif
590#if CK1_ENABLED
591 module function test_getStrippedR_D1_D0_CK1() result(assertion); logical(LK) :: assertion; end function
592#endif
593
594 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
595
596#if RK5_ENABLED
597 module function test_getStrippedR_D1_D0_RK5() result(assertion); logical(LK) :: assertion; end function
598#endif
599#if RK4_ENABLED
600 module function test_getStrippedR_D1_D0_RK4() result(assertion); logical(LK) :: assertion; end function
601#endif
602#if RK3_ENABLED
603 module function test_getStrippedR_D1_D0_RK3() result(assertion); logical(LK) :: assertion; end function
604#endif
605#if RK2_ENABLED
606 module function test_getStrippedR_D1_D0_RK2() result(assertion); logical(LK) :: assertion; end function
607#endif
608#if RK1_ENABLED
609 module function test_getStrippedR_D1_D0_RK1() result(assertion); logical(LK) :: assertion; end function
610#endif
611
612 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
613
614 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
616 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
617
618 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
619
620#if SK5_ENABLED
621 module function test_getStrippedR_D1_D1_SK5() result(assertion); logical(LK) :: assertion; end function
622#endif
623#if SK4_ENABLED
624 module function test_getStrippedR_D1_D1_SK4() result(assertion); logical(LK) :: assertion; end function
625#endif
626#if SK3_ENABLED
627 module function test_getStrippedR_D1_D1_SK3() result(assertion); logical(LK) :: assertion; end function
628#endif
629#if SK2_ENABLED
630 module function test_getStrippedR_D1_D1_SK2() result(assertion); logical(LK) :: assertion; end function
631#endif
632#if SK1_ENABLED
633 module function test_getStrippedR_D1_D1_SK1() result(assertion); logical(LK) :: assertion; end function
634#endif
635
636 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
637
638#if IK5_ENABLED
639 module function test_getStrippedR_D1_D1_IK5() result(assertion); logical(LK) :: assertion; end function
640#endif
641#if IK4_ENABLED
642 module function test_getStrippedR_D1_D1_IK4() result(assertion); logical(LK) :: assertion; end function
643#endif
644#if IK3_ENABLED
645 module function test_getStrippedR_D1_D1_IK3() result(assertion); logical(LK) :: assertion; end function
646#endif
647#if IK2_ENABLED
648 module function test_getStrippedR_D1_D1_IK2() result(assertion); logical(LK) :: assertion; end function
649#endif
650#if IK1_ENABLED
651 module function test_getStrippedR_D1_D1_IK1() result(assertion); logical(LK) :: assertion; end function
652#endif
653
654 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
655
656#if LK5_ENABLED
657 module function test_getStrippedR_D1_D1_LK5() result(assertion); logical(LK) :: assertion; end function
658#endif
659#if LK4_ENABLED
660 module function test_getStrippedR_D1_D1_LK4() result(assertion); logical(LK) :: assertion; end function
661#endif
662#if LK3_ENABLED
663 module function test_getStrippedR_D1_D1_LK3() result(assertion); logical(LK) :: assertion; end function
664#endif
665#if LK2_ENABLED
666 module function test_getStrippedR_D1_D1_LK2() result(assertion); logical(LK) :: assertion; end function
667#endif
668#if LK1_ENABLED
669 module function test_getStrippedR_D1_D1_LK1() result(assertion); logical(LK) :: assertion; end function
670#endif
671
672 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
673
674#if CK5_ENABLED
675 module function test_getStrippedR_D1_D1_CK5() result(assertion); logical(LK) :: assertion; end function
676#endif
677#if CK4_ENABLED
678 module function test_getStrippedR_D1_D1_CK4() result(assertion); logical(LK) :: assertion; end function
679#endif
680#if CK3_ENABLED
681 module function test_getStrippedR_D1_D1_CK3() result(assertion); logical(LK) :: assertion; end function
682#endif
683#if CK2_ENABLED
684 module function test_getStrippedR_D1_D1_CK2() result(assertion); logical(LK) :: assertion; end function
685#endif
686#if CK1_ENABLED
687 module function test_getStrippedR_D1_D1_CK1() result(assertion); logical(LK) :: assertion; end function
688#endif
689
690 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
691
692#if RK5_ENABLED
693 module function test_getStrippedR_D1_D1_RK5() result(assertion); logical(LK) :: assertion; end function
694#endif
695#if RK4_ENABLED
696 module function test_getStrippedR_D1_D1_RK4() result(assertion); logical(LK) :: assertion; end function
697#endif
698#if RK3_ENABLED
699 module function test_getStrippedR_D1_D1_RK3() result(assertion); logical(LK) :: assertion; end function
700#endif
701#if RK2_ENABLED
702 module function test_getStrippedR_D1_D1_RK2() result(assertion); logical(LK) :: assertion; end function
703#endif
704#if RK1_ENABLED
705 module function test_getStrippedR_D1_D1_RK1() result(assertion); logical(LK) :: assertion; end function
706#endif
707
708 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
709
710 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
711 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
712 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
713
714 end interface
715
716!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
717
718 interface
719
720 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
721 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
722 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
723
724 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
725
726#if SK5_ENABLED
727 module function test_getSIL_D0_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
728 module function test_getSIR_D0_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
729#endif
730#if SK4_ENABLED
731 module function test_getSIL_D0_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
732 module function test_getSIR_D0_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
733#endif
734#if SK3_ENABLED
735 module function test_getSIL_D0_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
736 module function test_getSIR_D0_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
737#endif
738#if SK2_ENABLED
739 module function test_getSIL_D0_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
740 module function test_getSIR_D0_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
741#endif
742#if SK1_ENABLED
743 module function test_getSIL_D0_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
744 module function test_getSIR_D0_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
745#endif
746
747 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
748
749 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
750 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
751 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
752
753 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
754
755#if SK5_ENABLED
756 module function test_getSIL_D1_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
757 module function test_getSIR_D1_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
758#endif
759#if SK4_ENABLED
760 module function test_getSIL_D1_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
761 module function test_getSIR_D1_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
762#endif
763#if SK3_ENABLED
764 module function test_getSIL_D1_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
765 module function test_getSIR_D1_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
766#endif
767#if SK2_ENABLED
768 module function test_getSIL_D1_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
769 module function test_getSIR_D1_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
770#endif
771#if SK1_ENABLED
772 module function test_getSIL_D1_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
773 module function test_getSIR_D1_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
774#endif
775
776 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
777
778#if IK5_ENABLED
779 module function test_getSIL_D1_D0_IK5_1 () result(assertion); logical(LK) :: assertion; end function
780 module function test_getSIR_D1_D0_IK5_1 () result(assertion); logical(LK) :: assertion; end function
781#endif
782#if IK4_ENABLED
783 module function test_getSIL_D1_D0_IK4_1 () result(assertion); logical(LK) :: assertion; end function
784 module function test_getSIR_D1_D0_IK4_1 () result(assertion); logical(LK) :: assertion; end function
785#endif
786#if IK3_ENABLED
787 module function test_getSIL_D1_D0_IK3_1 () result(assertion); logical(LK) :: assertion; end function
788 module function test_getSIR_D1_D0_IK3_1 () result(assertion); logical(LK) :: assertion; end function
789#endif
790#if IK2_ENABLED
791 module function test_getSIL_D1_D0_IK2_1 () result(assertion); logical(LK) :: assertion; end function
792 module function test_getSIR_D1_D0_IK2_1 () result(assertion); logical(LK) :: assertion; end function
793#endif
794#if IK1_ENABLED
795 module function test_getSIL_D1_D0_IK1_1 () result(assertion); logical(LK) :: assertion; end function
796 module function test_getSIR_D1_D0_IK1_1 () result(assertion); logical(LK) :: assertion; end function
797#endif
798
799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
800
801#if LK5_ENABLED
802 module function test_getSIL_D1_D0_LK5_1 () result(assertion); logical(LK) :: assertion; end function
803 module function test_getSIR_D1_D0_LK5_1 () result(assertion); logical(LK) :: assertion; end function
804#endif
805#if LK4_ENABLED
806 module function test_getSIL_D1_D0_LK4_1 () result(assertion); logical(LK) :: assertion; end function
807 module function test_getSIR_D1_D0_LK4_1 () result(assertion); logical(LK) :: assertion; end function
808#endif
809#if LK3_ENABLED
810 module function test_getSIL_D1_D0_LK3_1 () result(assertion); logical(LK) :: assertion; end function
811 module function test_getSIR_D1_D0_LK3_1 () result(assertion); logical(LK) :: assertion; end function
812#endif
813#if LK2_ENABLED
814 module function test_getSIL_D1_D0_LK2_1 () result(assertion); logical(LK) :: assertion; end function
815 module function test_getSIR_D1_D0_LK2_1 () result(assertion); logical(LK) :: assertion; end function
816#endif
817#if LK1_ENABLED
818 module function test_getSIL_D1_D0_LK1_1 () result(assertion); logical(LK) :: assertion; end function
819 module function test_getSIR_D1_D0_LK1_1 () result(assertion); logical(LK) :: assertion; end function
820#endif
821
822 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
823
824#if CK5_ENABLED
825 module function test_getSIL_D1_D0_CK5_1 () result(assertion); logical(LK) :: assertion; end function
826 module function test_getSIR_D1_D0_CK5_1 () result(assertion); logical(LK) :: assertion; end function
827#endif
828#if CK4_ENABLED
829 module function test_getSIL_D1_D0_CK4_1 () result(assertion); logical(LK) :: assertion; end function
830 module function test_getSIR_D1_D0_CK4_1 () result(assertion); logical(LK) :: assertion; end function
831#endif
832#if CK3_ENABLED
833 module function test_getSIL_D1_D0_CK3_1 () result(assertion); logical(LK) :: assertion; end function
834 module function test_getSIR_D1_D0_CK3_1 () result(assertion); logical(LK) :: assertion; end function
835#endif
836#if CK2_ENABLED
837 module function test_getSIL_D1_D0_CK2_1 () result(assertion); logical(LK) :: assertion; end function
838 module function test_getSIR_D1_D0_CK2_1 () result(assertion); logical(LK) :: assertion; end function
839#endif
840#if CK1_ENABLED
841 module function test_getSIL_D1_D0_CK1_1 () result(assertion); logical(LK) :: assertion; end function
842 module function test_getSIR_D1_D0_CK1_1 () result(assertion); logical(LK) :: assertion; end function
843#endif
844
845 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
846
847#if RK5_ENABLED
848 module function test_getSIL_D1_D0_RK5_1 () result(assertion); logical(LK) :: assertion; end function
849 module function test_getSIR_D1_D0_RK5_1 () result(assertion); logical(LK) :: assertion; end function
850#endif
851#if RK4_ENABLED
852 module function test_getSIL_D1_D0_RK4_1 () result(assertion); logical(LK) :: assertion; end function
853 module function test_getSIR_D1_D0_RK4_1 () result(assertion); logical(LK) :: assertion; end function
854#endif
855#if RK3_ENABLED
856 module function test_getSIL_D1_D0_RK3_1 () result(assertion); logical(LK) :: assertion; end function
857 module function test_getSIR_D1_D0_RK3_1 () result(assertion); logical(LK) :: assertion; end function
858#endif
859#if RK2_ENABLED
860 module function test_getSIL_D1_D0_RK2_1 () result(assertion); logical(LK) :: assertion; end function
861 module function test_getSIR_D1_D0_RK2_1 () result(assertion); logical(LK) :: assertion; end function
862#endif
863#if RK1_ENABLED
864 module function test_getSIL_D1_D0_RK1_1 () result(assertion); logical(LK) :: assertion; end function
865 module function test_getSIR_D1_D0_RK1_1 () result(assertion); logical(LK) :: assertion; end function
866#endif
867
868 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
869
870 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
871 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
872 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
873
874 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
875
876#if SK5_ENABLED
877 module function test_getSIL_D1_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
878 module function test_getSIR_D1_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
879#endif
880#if SK4_ENABLED
881 module function test_getSIL_D1_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
882 module function test_getSIR_D1_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
883#endif
884#if SK3_ENABLED
885 module function test_getSIL_D1_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
886 module function test_getSIR_D1_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
887#endif
888#if SK2_ENABLED
889 module function test_getSIL_D1_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
890 module function test_getSIR_D1_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
891#endif
892#if SK1_ENABLED
893 module function test_getSIL_D1_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
894 module function test_getSIR_D1_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
895#endif
896
897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
898
899#if IK5_ENABLED
900 module function test_getSIL_D1_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
901 module function test_getSIR_D1_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
902#endif
903#if IK4_ENABLED
904 module function test_getSIL_D1_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
905 module function test_getSIR_D1_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
906#endif
907#if IK3_ENABLED
908 module function test_getSIL_D1_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
909 module function test_getSIR_D1_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
910#endif
911#if IK2_ENABLED
912 module function test_getSIL_D1_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
913 module function test_getSIR_D1_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
914#endif
915#if IK1_ENABLED
916 module function test_getSIL_D1_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
917 module function test_getSIR_D1_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
918#endif
919
920 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
921
922#if LK5_ENABLED
923 module function test_getSIL_D1_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
924 module function test_getSIR_D1_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
925#endif
926#if LK4_ENABLED
927 module function test_getSIL_D1_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
928 module function test_getSIR_D1_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
929#endif
930#if LK3_ENABLED
931 module function test_getSIL_D1_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
932 module function test_getSIR_D1_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
933#endif
934#if LK2_ENABLED
935 module function test_getSIL_D1_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
936 module function test_getSIR_D1_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
937#endif
938#if LK1_ENABLED
939 module function test_getSIL_D1_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
940 module function test_getSIR_D1_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
941#endif
942
943 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
944
945#if CK5_ENABLED
946 module function test_getSIL_D1_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
947 module function test_getSIR_D1_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
948#endif
949#if CK4_ENABLED
950 module function test_getSIL_D1_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
951 module function test_getSIR_D1_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
952#endif
953#if CK3_ENABLED
954 module function test_getSIL_D1_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
955 module function test_getSIR_D1_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
956#endif
957#if CK2_ENABLED
958 module function test_getSIL_D1_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
959 module function test_getSIR_D1_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
960#endif
961#if CK1_ENABLED
962 module function test_getSIL_D1_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
963 module function test_getSIR_D1_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
964#endif
965
966 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
967
968#if RK5_ENABLED
969 module function test_getSIL_D1_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
970 module function test_getSIR_D1_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
971#endif
972#if RK4_ENABLED
973 module function test_getSIL_D1_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
974 module function test_getSIR_D1_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
975#endif
976#if RK3_ENABLED
977 module function test_getSIL_D1_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
978 module function test_getSIR_D1_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
979#endif
980#if RK2_ENABLED
981 module function test_getSIL_D1_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
982 module function test_getSIR_D1_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
983#endif
984#if RK1_ENABLED
985 module function test_getSIL_D1_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
986 module function test_getSIR_D1_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
987#endif
988
989 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
990
991 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
992 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
993 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
994
995 end interface
996
997!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
998
999contains
1000
1001!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1002
1003 subroutine setTest()
1004
1005 implicit none
1006
1007 test = test_type(MODULE_NAME)
1008
1009 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1010
1011 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1012 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1013 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1014
1015 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1016
1017#if SK5_ENABLED
1018 call test%run(test_getStrippedB_D0_D0_SK5, SK_"test_getStrippedB_D0_D0_SK5")
1019#endif
1020#if SK4_ENABLED
1021 call test%run(test_getStrippedB_D0_D0_SK4, SK_"test_getStrippedB_D0_D0_SK4")
1022#endif
1023#if SK3_ENABLED
1024 call test%run(test_getStrippedB_D0_D0_SK3, SK_"test_getStrippedB_D0_D0_SK3")
1025#endif
1026#if SK2_ENABLED
1027 call test%run(test_getStrippedB_D0_D0_SK2, SK_"test_getStrippedB_D0_D0_SK2")
1028#endif
1029#if SK1_ENABLED
1030 call test%run(test_getStrippedB_D0_D0_SK1, SK_"test_getStrippedB_D0_D0_SK1")
1031#endif
1032
1033 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1034
1035 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1036 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1037 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1038
1039 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1040
1041#if SK5_ENABLED
1042 call test%run(test_getStrippedB_D1_D0_SK5, SK_"test_getStrippedB_D1_D0_SK5")
1043#endif
1044#if SK4_ENABLED
1045 call test%run(test_getStrippedB_D1_D0_SK4, SK_"test_getStrippedB_D1_D0_SK4")
1046#endif
1047#if SK3_ENABLED
1048 call test%run(test_getStrippedB_D1_D0_SK3, SK_"test_getStrippedB_D1_D0_SK3")
1049#endif
1050#if SK2_ENABLED
1051 call test%run(test_getStrippedB_D1_D0_SK2, SK_"test_getStrippedB_D1_D0_SK2")
1052#endif
1053#if SK1_ENABLED
1054 call test%run(test_getStrippedB_D1_D0_SK1, SK_"test_getStrippedB_D1_D0_SK1")
1055#endif
1056
1057 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1058
1059#if IK5_ENABLED
1060 call test%run(test_getStrippedB_D1_D0_IK5, SK_"test_getStrippedB_D1_D0_IK5")
1061#endif
1062#if IK4_ENABLED
1063 call test%run(test_getStrippedB_D1_D0_IK4, SK_"test_getStrippedB_D1_D0_IK4")
1064#endif
1065#if IK3_ENABLED
1066 call test%run(test_getStrippedB_D1_D0_IK3, SK_"test_getStrippedB_D1_D0_IK3")
1067#endif
1068#if IK2_ENABLED
1069 call test%run(test_getStrippedB_D1_D0_IK2, SK_"test_getStrippedB_D1_D0_IK2")
1070#endif
1071#if IK1_ENABLED
1072 call test%run(test_getStrippedB_D1_D0_IK1, SK_"test_getStrippedB_D1_D0_IK1")
1073#endif
1074
1075 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1076
1077#if LK5_ENABLED
1078 call test%run(test_getStrippedB_D1_D0_LK5, SK_"test_getStrippedB_D1_D0_LK5")
1079#endif
1080#if LK4_ENABLED
1081 call test%run(test_getStrippedB_D1_D0_LK4, SK_"test_getStrippedB_D1_D0_LK4")
1082#endif
1083#if LK3_ENABLED
1084 call test%run(test_getStrippedB_D1_D0_LK3, SK_"test_getStrippedB_D1_D0_LK3")
1085#endif
1086#if LK2_ENABLED
1087 call test%run(test_getStrippedB_D1_D0_LK2, SK_"test_getStrippedB_D1_D0_LK2")
1088#endif
1089#if LK1_ENABLED
1090 call test%run(test_getStrippedB_D1_D0_LK1, SK_"test_getStrippedB_D1_D0_LK1")
1091#endif
1092
1093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1094
1095#if CK5_ENABLED
1096 call test%run(test_getStrippedB_D1_D0_CK5, SK_"test_getStrippedB_D1_D0_CK5")
1097#endif
1098#if CK4_ENABLED
1099 call test%run(test_getStrippedB_D1_D0_CK4, SK_"test_getStrippedB_D1_D0_CK4")
1100#endif
1101#if CK3_ENABLED
1102 call test%run(test_getStrippedB_D1_D0_CK3, SK_"test_getStrippedB_D1_D0_CK3")
1103#endif
1104#if CK2_ENABLED
1105 call test%run(test_getStrippedB_D1_D0_CK2, SK_"test_getStrippedB_D1_D0_CK2")
1106#endif
1107#if CK1_ENABLED
1108 call test%run(test_getStrippedB_D1_D0_CK1, SK_"test_getStrippedB_D1_D0_CK1")
1109#endif
1110
1111 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1112
1113#if RK5_ENABLED
1114 call test%run(test_getStrippedB_D1_D0_RK5, SK_"test_getStrippedB_D1_D0_RK5")
1115#endif
1116#if RK4_ENABLED
1117 call test%run(test_getStrippedB_D1_D0_RK4, SK_"test_getStrippedB_D1_D0_RK4")
1118#endif
1119#if RK3_ENABLED
1120 call test%run(test_getStrippedB_D1_D0_RK3, SK_"test_getStrippedB_D1_D0_RK3")
1121#endif
1122#if RK2_ENABLED
1123 call test%run(test_getStrippedB_D1_D0_RK2, SK_"test_getStrippedB_D1_D0_RK2")
1124#endif
1125#if RK1_ENABLED
1126 call test%run(test_getStrippedB_D1_D0_RK1, SK_"test_getStrippedB_D1_D0_RK1")
1127#endif
1128
1129 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1130
1131 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1132 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1133 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1134
1135 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1136
1137#if SK5_ENABLED
1138 call test%run(test_getStrippedB_D1_D1_SK5, SK_"test_getStrippedB_D1_D1_SK5")
1139#endif
1140#if SK4_ENABLED
1141 call test%run(test_getStrippedB_D1_D1_SK4, SK_"test_getStrippedB_D1_D1_SK4")
1142#endif
1143#if SK3_ENABLED
1144 call test%run(test_getStrippedB_D1_D1_SK3, SK_"test_getStrippedB_D1_D1_SK3")
1145#endif
1146#if SK2_ENABLED
1147 call test%run(test_getStrippedB_D1_D1_SK2, SK_"test_getStrippedB_D1_D1_SK2")
1148#endif
1149#if SK1_ENABLED
1150 call test%run(test_getStrippedB_D1_D1_SK1, SK_"test_getStrippedB_D1_D1_SK1")
1151#endif
1152
1153 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1154
1155#if IK5_ENABLED
1156 call test%run(test_getStrippedB_D1_D1_IK5, SK_"test_getStrippedB_D1_D1_IK5")
1157#endif
1158#if IK4_ENABLED
1159 call test%run(test_getStrippedB_D1_D1_IK4, SK_"test_getStrippedB_D1_D1_IK4")
1160#endif
1161#if IK3_ENABLED
1162 call test%run(test_getStrippedB_D1_D1_IK3, SK_"test_getStrippedB_D1_D1_IK3")
1163#endif
1164#if IK2_ENABLED
1165 call test%run(test_getStrippedB_D1_D1_IK2, SK_"test_getStrippedB_D1_D1_IK2")
1166#endif
1167#if IK1_ENABLED
1168 call test%run(test_getStrippedB_D1_D1_IK1, SK_"test_getStrippedB_D1_D1_IK1")
1169#endif
1170
1171 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1172
1173#if LK5_ENABLED
1174 call test%run(test_getStrippedB_D1_D1_LK5, SK_"test_getStrippedB_D1_D1_LK5")
1175#endif
1176#if LK4_ENABLED
1177 call test%run(test_getStrippedB_D1_D1_LK4, SK_"test_getStrippedB_D1_D1_LK4")
1178#endif
1179#if LK3_ENABLED
1180 call test%run(test_getStrippedB_D1_D1_LK3, SK_"test_getStrippedB_D1_D1_LK3")
1181#endif
1182#if LK2_ENABLED
1183 call test%run(test_getStrippedB_D1_D1_LK2, SK_"test_getStrippedB_D1_D1_LK2")
1184#endif
1185#if LK1_ENABLED
1186 call test%run(test_getStrippedB_D1_D1_LK1, SK_"test_getStrippedB_D1_D1_LK1")
1187#endif
1188
1189 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1190
1191#if CK5_ENABLED
1192 call test%run(test_getStrippedB_D1_D1_CK5, SK_"test_getStrippedB_D1_D1_CK5")
1193#endif
1194#if CK4_ENABLED
1195 call test%run(test_getStrippedB_D1_D1_CK4, SK_"test_getStrippedB_D1_D1_CK4")
1196#endif
1197#if CK3_ENABLED
1198 call test%run(test_getStrippedB_D1_D1_CK3, SK_"test_getStrippedB_D1_D1_CK3")
1199#endif
1200#if CK2_ENABLED
1201 call test%run(test_getStrippedB_D1_D1_CK2, SK_"test_getStrippedB_D1_D1_CK2")
1202#endif
1203#if CK1_ENABLED
1204 call test%run(test_getStrippedB_D1_D1_CK1, SK_"test_getStrippedB_D1_D1_CK1")
1205#endif
1206
1207 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1208
1209#if RK5_ENABLED
1210 call test%run(test_getStrippedB_D1_D1_RK5, SK_"test_getStrippedB_D1_D1_RK5")
1211#endif
1212#if RK4_ENABLED
1213 call test%run(test_getStrippedB_D1_D1_RK4, SK_"test_getStrippedB_D1_D1_RK4")
1214#endif
1215#if RK3_ENABLED
1216 call test%run(test_getStrippedB_D1_D1_RK3, SK_"test_getStrippedB_D1_D1_RK3")
1217#endif
1218#if RK2_ENABLED
1219 call test%run(test_getStrippedB_D1_D1_RK2, SK_"test_getStrippedB_D1_D1_RK2")
1220#endif
1221#if RK1_ENABLED
1222 call test%run(test_getStrippedB_D1_D1_RK1, SK_"test_getStrippedB_D1_D1_RK1")
1223#endif
1224
1225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1226
1227 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1228 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1229 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1230
1231 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1232
1233 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1234 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1235 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1236
1237 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1238
1239#if SK5_ENABLED
1240 call test%run(test_getStrippedL_D0_D0_SK5, SK_"test_getStrippedL_D0_D0_SK5")
1241#endif
1242#if SK4_ENABLED
1243 call test%run(test_getStrippedL_D0_D0_SK4, SK_"test_getStrippedL_D0_D0_SK4")
1244#endif
1245#if SK3_ENABLED
1246 call test%run(test_getStrippedL_D0_D0_SK3, SK_"test_getStrippedL_D0_D0_SK3")
1247#endif
1248#if SK2_ENABLED
1249 call test%run(test_getStrippedL_D0_D0_SK2, SK_"test_getStrippedL_D0_D0_SK2")
1250#endif
1251#if SK1_ENABLED
1252 call test%run(test_getStrippedL_D0_D0_SK1, SK_"test_getStrippedL_D0_D0_SK1")
1253#endif
1254
1255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1256
1257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1258 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1259 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1260
1261 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1262
1263#if SK5_ENABLED
1264 call test%run(test_getStrippedL_D1_D0_SK5, SK_"test_getStrippedL_D1_D0_SK5")
1265#endif
1266#if SK4_ENABLED
1267 call test%run(test_getStrippedL_D1_D0_SK4, SK_"test_getStrippedL_D1_D0_SK4")
1268#endif
1269#if SK3_ENABLED
1270 call test%run(test_getStrippedL_D1_D0_SK3, SK_"test_getStrippedL_D1_D0_SK3")
1271#endif
1272#if SK2_ENABLED
1273 call test%run(test_getStrippedL_D1_D0_SK2, SK_"test_getStrippedL_D1_D0_SK2")
1274#endif
1275#if SK1_ENABLED
1276 call test%run(test_getStrippedL_D1_D0_SK1, SK_"test_getStrippedL_D1_D0_SK1")
1277#endif
1278
1279 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1280
1281#if IK5_ENABLED
1282 call test%run(test_getStrippedL_D1_D0_IK5, SK_"test_getStrippedL_D1_D0_IK5")
1283#endif
1284#if IK4_ENABLED
1285 call test%run(test_getStrippedL_D1_D0_IK4, SK_"test_getStrippedL_D1_D0_IK4")
1286#endif
1287#if IK3_ENABLED
1288 call test%run(test_getStrippedL_D1_D0_IK3, SK_"test_getStrippedL_D1_D0_IK3")
1289#endif
1290#if IK2_ENABLED
1291 call test%run(test_getStrippedL_D1_D0_IK2, SK_"test_getStrippedL_D1_D0_IK2")
1292#endif
1293#if IK1_ENABLED
1294 call test%run(test_getStrippedL_D1_D0_IK1, SK_"test_getStrippedL_D1_D0_IK1")
1295#endif
1296
1297 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1298
1299#if LK5_ENABLED
1300 call test%run(test_getStrippedL_D1_D0_LK5, SK_"test_getStrippedL_D1_D0_LK5")
1301#endif
1302#if LK4_ENABLED
1303 call test%run(test_getStrippedL_D1_D0_LK4, SK_"test_getStrippedL_D1_D0_LK4")
1304#endif
1305#if LK3_ENABLED
1306 call test%run(test_getStrippedL_D1_D0_LK3, SK_"test_getStrippedL_D1_D0_LK3")
1307#endif
1308#if LK2_ENABLED
1309 call test%run(test_getStrippedL_D1_D0_LK2, SK_"test_getStrippedL_D1_D0_LK2")
1310#endif
1311#if LK1_ENABLED
1312 call test%run(test_getStrippedL_D1_D0_LK1, SK_"test_getStrippedL_D1_D0_LK1")
1313#endif
1314
1315 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1316
1317#if CK5_ENABLED
1318 call test%run(test_getStrippedL_D1_D0_CK5, SK_"test_getStrippedL_D1_D0_CK5")
1319#endif
1320#if CK4_ENABLED
1321 call test%run(test_getStrippedL_D1_D0_CK4, SK_"test_getStrippedL_D1_D0_CK4")
1322#endif
1323#if CK3_ENABLED
1324 call test%run(test_getStrippedL_D1_D0_CK3, SK_"test_getStrippedL_D1_D0_CK3")
1325#endif
1326#if CK2_ENABLED
1327 call test%run(test_getStrippedL_D1_D0_CK2, SK_"test_getStrippedL_D1_D0_CK2")
1328#endif
1329#if CK1_ENABLED
1330 call test%run(test_getStrippedL_D1_D0_CK1, SK_"test_getStrippedL_D1_D0_CK1")
1331#endif
1332
1333 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1334
1335#if RK5_ENABLED
1336 call test%run(test_getStrippedL_D1_D0_RK5, SK_"test_getStrippedL_D1_D0_RK5")
1337#endif
1338#if RK4_ENABLED
1339 call test%run(test_getStrippedL_D1_D0_RK4, SK_"test_getStrippedL_D1_D0_RK4")
1340#endif
1341#if RK3_ENABLED
1342 call test%run(test_getStrippedL_D1_D0_RK3, SK_"test_getStrippedL_D1_D0_RK3")
1343#endif
1344#if RK2_ENABLED
1345 call test%run(test_getStrippedL_D1_D0_RK2, SK_"test_getStrippedL_D1_D0_RK2")
1346#endif
1347#if RK1_ENABLED
1348 call test%run(test_getStrippedL_D1_D0_RK1, SK_"test_getStrippedL_D1_D0_RK1")
1349#endif
1350
1351 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1352
1353 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1354 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1356
1357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1358
1359#if SK5_ENABLED
1360 call test%run(test_getStrippedL_D1_D1_SK5, SK_"test_getStrippedL_D1_D1_SK5")
1361#endif
1362#if SK4_ENABLED
1363 call test%run(test_getStrippedL_D1_D1_SK4, SK_"test_getStrippedL_D1_D1_SK4")
1364#endif
1365#if SK3_ENABLED
1366 call test%run(test_getStrippedL_D1_D1_SK3, SK_"test_getStrippedL_D1_D1_SK3")
1367#endif
1368#if SK2_ENABLED
1369 call test%run(test_getStrippedL_D1_D1_SK2, SK_"test_getStrippedL_D1_D1_SK2")
1370#endif
1371#if SK1_ENABLED
1372 call test%run(test_getStrippedL_D1_D1_SK1, SK_"test_getStrippedL_D1_D1_SK1")
1373#endif
1374
1375 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1376
1377#if IK5_ENABLED
1378 call test%run(test_getStrippedL_D1_D1_IK5, SK_"test_getStrippedL_D1_D1_IK5")
1379#endif
1380#if IK4_ENABLED
1381 call test%run(test_getStrippedL_D1_D1_IK4, SK_"test_getStrippedL_D1_D1_IK4")
1382#endif
1383#if IK3_ENABLED
1384 call test%run(test_getStrippedL_D1_D1_IK3, SK_"test_getStrippedL_D1_D1_IK3")
1385#endif
1386#if IK2_ENABLED
1387 call test%run(test_getStrippedL_D1_D1_IK2, SK_"test_getStrippedL_D1_D1_IK2")
1388#endif
1389#if IK1_ENABLED
1390 call test%run(test_getStrippedL_D1_D1_IK1, SK_"test_getStrippedL_D1_D1_IK1")
1391#endif
1392
1393 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1394
1395#if LK5_ENABLED
1396 call test%run(test_getStrippedL_D1_D1_LK5, SK_"test_getStrippedL_D1_D1_LK5")
1397#endif
1398#if LK4_ENABLED
1399 call test%run(test_getStrippedL_D1_D1_LK4, SK_"test_getStrippedL_D1_D1_LK4")
1400#endif
1401#if LK3_ENABLED
1402 call test%run(test_getStrippedL_D1_D1_LK3, SK_"test_getStrippedL_D1_D1_LK3")
1403#endif
1404#if LK2_ENABLED
1405 call test%run(test_getStrippedL_D1_D1_LK2, SK_"test_getStrippedL_D1_D1_LK2")
1406#endif
1407#if LK1_ENABLED
1408 call test%run(test_getStrippedL_D1_D1_LK1, SK_"test_getStrippedL_D1_D1_LK1")
1409#endif
1410
1411 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1412
1413#if CK5_ENABLED
1414 call test%run(test_getStrippedL_D1_D1_CK5, SK_"test_getStrippedL_D1_D1_CK5")
1415#endif
1416#if CK4_ENABLED
1417 call test%run(test_getStrippedL_D1_D1_CK4, SK_"test_getStrippedL_D1_D1_CK4")
1418#endif
1419#if CK3_ENABLED
1420 call test%run(test_getStrippedL_D1_D1_CK3, SK_"test_getStrippedL_D1_D1_CK3")
1421#endif
1422#if CK2_ENABLED
1423 call test%run(test_getStrippedL_D1_D1_CK2, SK_"test_getStrippedL_D1_D1_CK2")
1424#endif
1425#if CK1_ENABLED
1426 call test%run(test_getStrippedL_D1_D1_CK1, SK_"test_getStrippedL_D1_D1_CK1")
1427#endif
1428
1429 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1430
1431#if RK5_ENABLED
1432 call test%run(test_getStrippedL_D1_D1_RK5, SK_"test_getStrippedL_D1_D1_RK5")
1433#endif
1434#if RK4_ENABLED
1435 call test%run(test_getStrippedL_D1_D1_RK4, SK_"test_getStrippedL_D1_D1_RK4")
1436#endif
1437#if RK3_ENABLED
1438 call test%run(test_getStrippedL_D1_D1_RK3, SK_"test_getStrippedL_D1_D1_RK3")
1439#endif
1440#if RK2_ENABLED
1441 call test%run(test_getStrippedL_D1_D1_RK2, SK_"test_getStrippedL_D1_D1_RK2")
1442#endif
1443#if RK1_ENABLED
1444 call test%run(test_getStrippedL_D1_D1_RK1, SK_"test_getStrippedL_D1_D1_RK1")
1445#endif
1446
1447 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1448
1449 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1450 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1451 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1452
1453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1454
1455 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1456 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1457 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1458
1459 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1460
1461#if SK5_ENABLED
1462 call test%run(test_getStrippedR_D0_D0_SK5, SK_"test_getStrippedR_D0_D0_SK5")
1463#endif
1464#if SK4_ENABLED
1465 call test%run(test_getStrippedR_D0_D0_SK4, SK_"test_getStrippedR_D0_D0_SK4")
1466#endif
1467#if SK3_ENABLED
1468 call test%run(test_getStrippedR_D0_D0_SK3, SK_"test_getStrippedR_D0_D0_SK3")
1469#endif
1470#if SK2_ENABLED
1471 call test%run(test_getStrippedR_D0_D0_SK2, SK_"test_getStrippedR_D0_D0_SK2")
1472#endif
1473#if SK1_ENABLED
1474 call test%run(test_getStrippedR_D0_D0_SK1, SK_"test_getStrippedR_D0_D0_SK1")
1475#endif
1476
1477 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1478
1479 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1480 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1481 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1482
1483 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1484
1485#if SK5_ENABLED
1486 call test%run(test_getStrippedR_D1_D0_SK5, SK_"test_getStrippedR_D1_D0_SK5")
1487#endif
1488#if SK4_ENABLED
1489 call test%run(test_getStrippedR_D1_D0_SK4, SK_"test_getStrippedR_D1_D0_SK4")
1490#endif
1491#if SK3_ENABLED
1492 call test%run(test_getStrippedR_D1_D0_SK3, SK_"test_getStrippedR_D1_D0_SK3")
1493#endif
1494#if SK2_ENABLED
1495 call test%run(test_getStrippedR_D1_D0_SK2, SK_"test_getStrippedR_D1_D0_SK2")
1496#endif
1497#if SK1_ENABLED
1498 call test%run(test_getStrippedR_D1_D0_SK1, SK_"test_getStrippedR_D1_D0_SK1")
1499#endif
1500
1501 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1502
1503#if IK5_ENABLED
1504 call test%run(test_getStrippedR_D1_D0_IK5, SK_"test_getStrippedR_D1_D0_IK5")
1505#endif
1506#if IK4_ENABLED
1507 call test%run(test_getStrippedR_D1_D0_IK4, SK_"test_getStrippedR_D1_D0_IK4")
1508#endif
1509#if IK3_ENABLED
1510 call test%run(test_getStrippedR_D1_D0_IK3, SK_"test_getStrippedR_D1_D0_IK3")
1511#endif
1512#if IK2_ENABLED
1513 call test%run(test_getStrippedR_D1_D0_IK2, SK_"test_getStrippedR_D1_D0_IK2")
1514#endif
1515#if IK1_ENABLED
1516 call test%run(test_getStrippedR_D1_D0_IK1, SK_"test_getStrippedR_D1_D0_IK1")
1517#endif
1518
1519 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1520
1521#if LK5_ENABLED
1522 call test%run(test_getStrippedR_D1_D0_LK5, SK_"test_getStrippedR_D1_D0_LK5")
1523#endif
1524#if LK4_ENABLED
1525 call test%run(test_getStrippedR_D1_D0_LK4, SK_"test_getStrippedR_D1_D0_LK4")
1526#endif
1527#if LK3_ENABLED
1528 call test%run(test_getStrippedR_D1_D0_LK3, SK_"test_getStrippedR_D1_D0_LK3")
1529#endif
1530#if LK2_ENABLED
1531 call test%run(test_getStrippedR_D1_D0_LK2, SK_"test_getStrippedR_D1_D0_LK2")
1532#endif
1533#if LK1_ENABLED
1534 call test%run(test_getStrippedR_D1_D0_LK1, SK_"test_getStrippedR_D1_D0_LK1")
1535#endif
1536
1537 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1538
1539#if CK5_ENABLED
1540 call test%run(test_getStrippedR_D1_D0_CK5, SK_"test_getStrippedR_D1_D0_CK5")
1541#endif
1542#if CK4_ENABLED
1543 call test%run(test_getStrippedR_D1_D0_CK4, SK_"test_getStrippedR_D1_D0_CK4")
1544#endif
1545#if CK3_ENABLED
1546 call test%run(test_getStrippedR_D1_D0_CK3, SK_"test_getStrippedR_D1_D0_CK3")
1547#endif
1548#if CK2_ENABLED
1549 call test%run(test_getStrippedR_D1_D0_CK2, SK_"test_getStrippedR_D1_D0_CK2")
1550#endif
1551#if CK1_ENABLED
1552 call test%run(test_getStrippedR_D1_D0_CK1, SK_"test_getStrippedR_D1_D0_CK1")
1553#endif
1554
1555 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1556
1557#if RK5_ENABLED
1558 call test%run(test_getStrippedR_D1_D0_RK5, SK_"test_getStrippedR_D1_D0_RK5")
1559#endif
1560#if RK4_ENABLED
1561 call test%run(test_getStrippedR_D1_D0_RK4, SK_"test_getStrippedR_D1_D0_RK4")
1562#endif
1563#if RK3_ENABLED
1564 call test%run(test_getStrippedR_D1_D0_RK3, SK_"test_getStrippedR_D1_D0_RK3")
1565#endif
1566#if RK2_ENABLED
1567 call test%run(test_getStrippedR_D1_D0_RK2, SK_"test_getStrippedR_D1_D0_RK2")
1568#endif
1569#if RK1_ENABLED
1570 call test%run(test_getStrippedR_D1_D0_RK1, SK_"test_getStrippedR_D1_D0_RK1")
1571#endif
1572
1573 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1574
1575 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1576 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1577 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1578
1579 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1580
1581#if SK5_ENABLED
1582 call test%run(test_getStrippedR_D1_D1_SK5, SK_"test_getStrippedR_D1_D1_SK5")
1583#endif
1584#if SK4_ENABLED
1585 call test%run(test_getStrippedR_D1_D1_SK4, SK_"test_getStrippedR_D1_D1_SK4")
1586#endif
1587#if SK3_ENABLED
1588 call test%run(test_getStrippedR_D1_D1_SK3, SK_"test_getStrippedR_D1_D1_SK3")
1589#endif
1590#if SK2_ENABLED
1591 call test%run(test_getStrippedR_D1_D1_SK2, SK_"test_getStrippedR_D1_D1_SK2")
1592#endif
1593#if SK1_ENABLED
1594 call test%run(test_getStrippedR_D1_D1_SK1, SK_"test_getStrippedR_D1_D1_SK1")
1595#endif
1596
1597 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1598
1599#if IK5_ENABLED
1600 call test%run(test_getStrippedR_D1_D1_IK5, SK_"test_getStrippedR_D1_D1_IK5")
1601#endif
1602#if IK4_ENABLED
1603 call test%run(test_getStrippedR_D1_D1_IK4, SK_"test_getStrippedR_D1_D1_IK4")
1604#endif
1605#if IK3_ENABLED
1606 call test%run(test_getStrippedR_D1_D1_IK3, SK_"test_getStrippedR_D1_D1_IK3")
1607#endif
1608#if IK2_ENABLED
1609 call test%run(test_getStrippedR_D1_D1_IK2, SK_"test_getStrippedR_D1_D1_IK2")
1610#endif
1611#if IK1_ENABLED
1612 call test%run(test_getStrippedR_D1_D1_IK1, SK_"test_getStrippedR_D1_D1_IK1")
1613#endif
1614
1615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1616
1617#if LK5_ENABLED
1618 call test%run(test_getStrippedR_D1_D1_LK5, SK_"test_getStrippedR_D1_D1_LK5")
1619#endif
1620#if LK4_ENABLED
1621 call test%run(test_getStrippedR_D1_D1_LK4, SK_"test_getStrippedR_D1_D1_LK4")
1622#endif
1623#if LK3_ENABLED
1624 call test%run(test_getStrippedR_D1_D1_LK3, SK_"test_getStrippedR_D1_D1_LK3")
1625#endif
1626#if LK2_ENABLED
1627 call test%run(test_getStrippedR_D1_D1_LK2, SK_"test_getStrippedR_D1_D1_LK2")
1628#endif
1629#if LK1_ENABLED
1630 call test%run(test_getStrippedR_D1_D1_LK1, SK_"test_getStrippedR_D1_D1_LK1")
1631#endif
1632
1633 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1634
1635#if CK5_ENABLED
1636 call test%run(test_getStrippedR_D1_D1_CK5, SK_"test_getStrippedR_D1_D1_CK5")
1637#endif
1638#if CK4_ENABLED
1639 call test%run(test_getStrippedR_D1_D1_CK4, SK_"test_getStrippedR_D1_D1_CK4")
1640#endif
1641#if CK3_ENABLED
1642 call test%run(test_getStrippedR_D1_D1_CK3, SK_"test_getStrippedR_D1_D1_CK3")
1643#endif
1644#if CK2_ENABLED
1645 call test%run(test_getStrippedR_D1_D1_CK2, SK_"test_getStrippedR_D1_D1_CK2")
1646#endif
1647#if CK1_ENABLED
1648 call test%run(test_getStrippedR_D1_D1_CK1, SK_"test_getStrippedR_D1_D1_CK1")
1649#endif
1650
1651 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1652
1653#if RK5_ENABLED
1654 call test%run(test_getStrippedR_D1_D1_RK5, SK_"test_getStrippedR_D1_D1_RK5")
1655#endif
1656#if RK4_ENABLED
1657 call test%run(test_getStrippedR_D1_D1_RK4, SK_"test_getStrippedR_D1_D1_RK4")
1658#endif
1659#if RK3_ENABLED
1660 call test%run(test_getStrippedR_D1_D1_RK3, SK_"test_getStrippedR_D1_D1_RK3")
1661#endif
1662#if RK2_ENABLED
1663 call test%run(test_getStrippedR_D1_D1_RK2, SK_"test_getStrippedR_D1_D1_RK2")
1664#endif
1665#if RK1_ENABLED
1666 call test%run(test_getStrippedR_D1_D1_RK1, SK_"test_getStrippedR_D1_D1_RK1")
1667#endif
1668
1669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1670
1671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1672 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1673 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1674
1675 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1676
1677 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1678 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1679 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1680
1681 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1682
1683#if SK5_ENABLED
1684 call test%run(test_getSIL_D0_D0_SK5_1, SK_"test_getSIL_D0_D0_SK5_1")
1685 call test%run(test_getSIR_D0_D0_SK5_1, SK_"test_getSIR_D0_D0_SK5_1")
1686#endif
1687#if SK4_ENABLED
1688 call test%run(test_getSIL_D0_D0_SK4_1, SK_"test_getSIL_D0_D0_SK4_1")
1689 call test%run(test_getSIR_D0_D0_SK4_1, SK_"test_getSIR_D0_D0_SK4_1")
1690#endif
1691#if SK3_ENABLED
1692 call test%run(test_getSIL_D0_D0_SK3_1, SK_"test_getSIL_D0_D0_SK3_1")
1693 call test%run(test_getSIR_D0_D0_SK3_1, SK_"test_getSIR_D0_D0_SK3_1")
1694#endif
1695#if SK2_ENABLED
1696 call test%run(test_getSIL_D0_D0_SK2_1, SK_"test_getSIL_D0_D0_SK2_1")
1697 call test%run(test_getSIR_D0_D0_SK2_1, SK_"test_getSIR_D0_D0_SK2_1")
1698#endif
1699#if SK1_ENABLED
1700 call test%run(test_getSIL_D0_D0_SK1_1, SK_"test_getSIL_D0_D0_SK1_1")
1701 call test%run(test_getSIR_D0_D0_SK1_1, SK_"test_getSIR_D0_D0_SK1_1")
1702#endif
1703
1704 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1705
1706 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1707 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1708 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1709
1710 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1711
1712#if SK5_ENABLED
1713 call test%run(test_getSIL_D1_D0_SK5_1, SK_"test_getSIL_D1_D0_SK5_1")
1714 call test%run(test_getSIR_D1_D0_SK5_1, SK_"test_getSIR_D1_D0_SK5_1")
1715#endif
1716#if SK4_ENABLED
1717 call test%run(test_getSIL_D1_D0_SK4_1, SK_"test_getSIL_D1_D0_SK4_1")
1718 call test%run(test_getSIR_D1_D0_SK4_1, SK_"test_getSIR_D1_D0_SK4_1")
1719#endif
1720#if SK3_ENABLED
1721 call test%run(test_getSIL_D1_D0_SK3_1, SK_"test_getSIL_D1_D0_SK3_1")
1722 call test%run(test_getSIR_D1_D0_SK3_1, SK_"test_getSIR_D1_D0_SK3_1")
1723#endif
1724#if SK2_ENABLED
1725 call test%run(test_getSIL_D1_D0_SK2_1, SK_"test_getSIL_D1_D0_SK2_1")
1726 call test%run(test_getSIR_D1_D0_SK2_1, SK_"test_getSIR_D1_D0_SK2_1")
1727#endif
1728#if SK1_ENABLED
1729 call test%run(test_getSIL_D1_D0_SK1_1, SK_"test_getSIL_D1_D0_SK1_1")
1730 call test%run(test_getSIR_D1_D0_SK1_1, SK_"test_getSIR_D1_D0_SK1_1")
1731#endif
1732
1733 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1734
1735#if IK5_ENABLED
1736 call test%run(test_getSIL_D1_D0_IK5_1, SK_"test_getSIL_D1_D0_IK5_1")
1737 call test%run(test_getSIR_D1_D0_IK5_1, SK_"test_getSIR_D1_D0_IK5_1")
1738#endif
1739#if IK4_ENABLED
1740 call test%run(test_getSIL_D1_D0_IK4_1, SK_"test_getSIL_D1_D0_IK4_1")
1741 call test%run(test_getSIR_D1_D0_IK4_1, SK_"test_getSIR_D1_D0_IK4_1")
1742#endif
1743#if IK3_ENABLED
1744 call test%run(test_getSIL_D1_D0_IK3_1, SK_"test_getSIL_D1_D0_IK3_1")
1745 call test%run(test_getSIR_D1_D0_IK3_1, SK_"test_getSIR_D1_D0_IK3_1")
1746#endif
1747#if IK2_ENABLED
1748 call test%run(test_getSIL_D1_D0_IK2_1, SK_"test_getSIL_D1_D0_IK2_1")
1749 call test%run(test_getSIR_D1_D0_IK2_1, SK_"test_getSIR_D1_D0_IK2_1")
1750#endif
1751#if IK1_ENABLED
1752 call test%run(test_getSIL_D1_D0_IK1_1, SK_"test_getSIL_D1_D0_IK1_1")
1753 call test%run(test_getSIR_D1_D0_IK1_1, SK_"test_getSIR_D1_D0_IK1_1")
1754#endif
1755
1756 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1757
1758#if LK5_ENABLED
1759 call test%run(test_getSIL_D1_D0_LK5_1, SK_"test_getSIL_D1_D0_LK5_1")
1760 call test%run(test_getSIR_D1_D0_LK5_1, SK_"test_getSIR_D1_D0_LK5_1")
1761#endif
1762#if LK4_ENABLED
1763 call test%run(test_getSIL_D1_D0_LK4_1, SK_"test_getSIL_D1_D0_LK4_1")
1764 call test%run(test_getSIR_D1_D0_LK4_1, SK_"test_getSIR_D1_D0_LK4_1")
1765#endif
1766#if LK3_ENABLED
1767 call test%run(test_getSIL_D1_D0_LK3_1, SK_"test_getSIL_D1_D0_LK3_1")
1768 call test%run(test_getSIR_D1_D0_LK3_1, SK_"test_getSIR_D1_D0_LK3_1")
1769#endif
1770#if LK2_ENABLED
1771 call test%run(test_getSIL_D1_D0_LK2_1, SK_"test_getSIL_D1_D0_LK2_1")
1772 call test%run(test_getSIR_D1_D0_LK2_1, SK_"test_getSIR_D1_D0_LK2_1")
1773#endif
1774#if LK1_ENABLED
1775 call test%run(test_getSIL_D1_D0_LK1_1, SK_"test_getSIL_D1_D0_LK1_1")
1776 call test%run(test_getSIR_D1_D0_LK1_1, SK_"test_getSIR_D1_D0_LK1_1")
1777#endif
1778
1779 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1780
1781#if CK5_ENABLED
1782 call test%run(test_getSIL_D1_D0_CK5_1, SK_"test_getSIL_D1_D0_CK5_1")
1783 call test%run(test_getSIR_D1_D0_CK5_1, SK_"test_getSIR_D1_D0_CK5_1")
1784#endif
1785#if CK4_ENABLED
1786 call test%run(test_getSIL_D1_D0_CK4_1, SK_"test_getSIL_D1_D0_CK4_1")
1787 call test%run(test_getSIR_D1_D0_CK4_1, SK_"test_getSIR_D1_D0_CK4_1")
1788#endif
1789#if CK3_ENABLED
1790 call test%run(test_getSIL_D1_D0_CK3_1, SK_"test_getSIL_D1_D0_CK3_1")
1791 call test%run(test_getSIR_D1_D0_CK3_1, SK_"test_getSIR_D1_D0_CK3_1")
1792#endif
1793#if CK2_ENABLED
1794 call test%run(test_getSIL_D1_D0_CK2_1, SK_"test_getSIL_D1_D0_CK2_1")
1795 call test%run(test_getSIR_D1_D0_CK2_1, SK_"test_getSIR_D1_D0_CK2_1")
1796#endif
1797#if CK1_ENABLED
1798 call test%run(test_getSIL_D1_D0_CK1_1, SK_"test_getSIL_D1_D0_CK1_1")
1799 call test%run(test_getSIR_D1_D0_CK1_1, SK_"test_getSIR_D1_D0_CK1_1")
1800#endif
1801
1802 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1803
1804#if RK5_ENABLED
1805 call test%run(test_getSIL_D1_D0_RK5_1, SK_"test_getSIL_D1_D0_RK5_1")
1806 call test%run(test_getSIR_D1_D0_RK5_1, SK_"test_getSIR_D1_D0_RK5_1")
1807#endif
1808#if RK4_ENABLED
1809 call test%run(test_getSIL_D1_D0_RK4_1, SK_"test_getSIL_D1_D0_RK4_1")
1810 call test%run(test_getSIR_D1_D0_RK4_1, SK_"test_getSIR_D1_D0_RK4_1")
1811#endif
1812#if RK3_ENABLED
1813 call test%run(test_getSIL_D1_D0_RK3_1, SK_"test_getSIL_D1_D0_RK3_1")
1814 call test%run(test_getSIR_D1_D0_RK3_1, SK_"test_getSIR_D1_D0_RK3_1")
1815#endif
1816#if RK2_ENABLED
1817 call test%run(test_getSIL_D1_D0_RK2_1, SK_"test_getSIL_D1_D0_RK2_1")
1818 call test%run(test_getSIR_D1_D0_RK2_1, SK_"test_getSIR_D1_D0_RK2_1")
1819#endif
1820#if RK1_ENABLED
1821 call test%run(test_getSIL_D1_D0_RK1_1, SK_"test_getSIL_D1_D0_RK1_1")
1822 call test%run(test_getSIR_D1_D0_RK1_1, SK_"test_getSIR_D1_D0_RK1_1")
1823#endif
1824
1825 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1826
1827 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1828 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1829 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1830
1831 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1832
1833#if SK5_ENABLED
1834 call test%run(test_getSIL_D1_D1_SK5_1, SK_"test_getSIL_D1_D1_SK5_1")
1835 call test%run(test_getSIR_D1_D1_SK5_1, SK_"test_getSIR_D1_D1_SK5_1")
1836#endif
1837#if SK4_ENABLED
1838 call test%run(test_getSIL_D1_D1_SK4_1, SK_"test_getSIL_D1_D1_SK4_1")
1839 call test%run(test_getSIR_D1_D1_SK4_1, SK_"test_getSIR_D1_D1_SK4_1")
1840#endif
1841#if SK3_ENABLED
1842 call test%run(test_getSIL_D1_D1_SK3_1, SK_"test_getSIL_D1_D1_SK3_1")
1843 call test%run(test_getSIR_D1_D1_SK3_1, SK_"test_getSIR_D1_D1_SK3_1")
1844#endif
1845#if SK2_ENABLED
1846 call test%run(test_getSIL_D1_D1_SK2_1, SK_"test_getSIL_D1_D1_SK2_1")
1847 call test%run(test_getSIR_D1_D1_SK2_1, SK_"test_getSIR_D1_D1_SK2_1")
1848#endif
1849#if SK1_ENABLED
1850 call test%run(test_getSIL_D1_D1_SK1_1, SK_"test_getSIL_D1_D1_SK1_1")
1851 call test%run(test_getSIR_D1_D1_SK1_1, SK_"test_getSIR_D1_D1_SK1_1")
1852#endif
1853
1854 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1855
1856#if IK5_ENABLED
1857 call test%run(test_getSIL_D1_D1_IK5_1, SK_"test_getSIL_D1_D1_IK5_1")
1858 call test%run(test_getSIR_D1_D1_IK5_1, SK_"test_getSIR_D1_D1_IK5_1")
1859#endif
1860#if IK4_ENABLED
1861 call test%run(test_getSIL_D1_D1_IK4_1, SK_"test_getSIL_D1_D1_IK4_1")
1862 call test%run(test_getSIR_D1_D1_IK4_1, SK_"test_getSIR_D1_D1_IK4_1")
1863#endif
1864#if IK3_ENABLED
1865 call test%run(test_getSIL_D1_D1_IK3_1, SK_"test_getSIL_D1_D1_IK3_1")
1866 call test%run(test_getSIR_D1_D1_IK3_1, SK_"test_getSIR_D1_D1_IK3_1")
1867#endif
1868#if IK2_ENABLED
1869 call test%run(test_getSIL_D1_D1_IK2_1, SK_"test_getSIL_D1_D1_IK2_1")
1870 call test%run(test_getSIR_D1_D1_IK2_1, SK_"test_getSIR_D1_D1_IK2_1")
1871#endif
1872#if IK1_ENABLED
1873 call test%run(test_getSIL_D1_D1_IK1_1, SK_"test_getSIL_D1_D1_IK1_1")
1874 call test%run(test_getSIR_D1_D1_IK1_1, SK_"test_getSIR_D1_D1_IK1_1")
1875#endif
1876
1877 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1878
1879#if LK5_ENABLED
1880 call test%run(test_getSIL_D1_D1_LK5_1, SK_"test_getSIL_D1_D1_LK5_1")
1881 call test%run(test_getSIR_D1_D1_LK5_1, SK_"test_getSIR_D1_D1_LK5_1")
1882#endif
1883#if LK4_ENABLED
1884 call test%run(test_getSIL_D1_D1_LK4_1, SK_"test_getSIL_D1_D1_LK4_1")
1885 call test%run(test_getSIR_D1_D1_LK4_1, SK_"test_getSIR_D1_D1_LK4_1")
1886#endif
1887#if LK3_ENABLED
1888 call test%run(test_getSIL_D1_D1_LK3_1, SK_"test_getSIL_D1_D1_LK3_1")
1889 call test%run(test_getSIR_D1_D1_LK3_1, SK_"test_getSIR_D1_D1_LK3_1")
1890#endif
1891#if LK2_ENABLED
1892 call test%run(test_getSIL_D1_D1_LK2_1, SK_"test_getSIL_D1_D1_LK2_1")
1893 call test%run(test_getSIR_D1_D1_LK2_1, SK_"test_getSIR_D1_D1_LK2_1")
1894#endif
1895#if LK1_ENABLED
1896 call test%run(test_getSIL_D1_D1_LK1_1, SK_"test_getSIL_D1_D1_LK1_1")
1897 call test%run(test_getSIR_D1_D1_LK1_1, SK_"test_getSIR_D1_D1_LK1_1")
1898#endif
1899
1900 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1901
1902#if CK5_ENABLED
1903 call test%run(test_getSIL_D1_D1_CK5_1, SK_"test_getSIL_D1_D1_CK5_1")
1904 call test%run(test_getSIR_D1_D1_CK5_1, SK_"test_getSIR_D1_D1_CK5_1")
1905#endif
1906#if CK4_ENABLED
1907 call test%run(test_getSIL_D1_D1_CK4_1, SK_"test_getSIL_D1_D1_CK4_1")
1908 call test%run(test_getSIR_D1_D1_CK4_1, SK_"test_getSIR_D1_D1_CK4_1")
1909#endif
1910#if CK3_ENABLED
1911 call test%run(test_getSIL_D1_D1_CK3_1, SK_"test_getSIL_D1_D1_CK3_1")
1912 call test%run(test_getSIR_D1_D1_CK3_1, SK_"test_getSIR_D1_D1_CK3_1")
1913#endif
1914#if CK2_ENABLED
1915 call test%run(test_getSIL_D1_D1_CK2_1, SK_"test_getSIL_D1_D1_CK2_1")
1916 call test%run(test_getSIR_D1_D1_CK2_1, SK_"test_getSIR_D1_D1_CK2_1")
1917#endif
1918#if CK1_ENABLED
1919 call test%run(test_getSIL_D1_D1_CK1_1, SK_"test_getSIL_D1_D1_CK1_1")
1920 call test%run(test_getSIR_D1_D1_CK1_1, SK_"test_getSIR_D1_D1_CK1_1")
1921#endif
1922
1923 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1924
1925#if RK5_ENABLED
1926 call test%run(test_getSIL_D1_D1_RK5_1, SK_"test_getSIL_D1_D1_RK5_1")
1927 call test%run(test_getSIR_D1_D1_RK5_1, SK_"test_getSIR_D1_D1_RK5_1")
1928#endif
1929#if RK4_ENABLED
1930 call test%run(test_getSIL_D1_D1_RK4_1, SK_"test_getSIL_D1_D1_RK4_1")
1931 call test%run(test_getSIR_D1_D1_RK4_1, SK_"test_getSIR_D1_D1_RK4_1")
1932#endif
1933#if RK3_ENABLED
1934 call test%run(test_getSIL_D1_D1_RK3_1, SK_"test_getSIL_D1_D1_RK3_1")
1935 call test%run(test_getSIR_D1_D1_RK3_1, SK_"test_getSIR_D1_D1_RK3_1")
1936#endif
1937#if RK2_ENABLED
1938 call test%run(test_getSIL_D1_D1_RK2_1, SK_"test_getSIL_D1_D1_RK2_1")
1939 call test%run(test_getSIR_D1_D1_RK2_1, SK_"test_getSIR_D1_D1_RK2_1")
1940#endif
1941#if RK1_ENABLED
1942 call test%run(test_getSIL_D1_D1_RK1_1, SK_"test_getSIL_D1_D1_RK1_1")
1943 call test%run(test_getSIR_D1_D1_RK1_1, SK_"test_getSIR_D1_D1_RK1_1")
1944#endif
1945
1946 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1947
1948 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1949 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1950 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1951
1952 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1953
1954 call test%summarize()
1955
1956 end subroutine setTest
1957
1958!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1959
1960end module test_pm_arrayStrip ! LCOV_EXCL_LINE
pm_arrayStrip
This module contains procedures and generic interfaces for stripping a given pattern from the left an...
Definition: pm_arrayStrip.F90:55
pm_arrayStrip::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayStrip.F90:64
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_arrayStrip
This module contains tests of the module pm_arrayStrip.
Definition: test_pm_arrayStrip.F90:27
test_pm_arrayStrip::test
type(test_type) test
Definition: test_pm_arrayStrip.F90:36
test_pm_arrayStrip::setTest
subroutine setTest()
Definition: test_pm_arrayStrip.F90:1004
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