Line data Source code
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 :
17 : !> \brief
18 : !> This module contains tests of the module [pm_arrayStrip](@ref pm_arrayStrip).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 11:35 PM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : module 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 :
999 : contains
1000 :
1001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1002 :
1003 1 : subroutine setTest()
1004 :
1005 : implicit none
1006 :
1007 1 : 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 1 : 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 1 : call test%run(test_getStrippedB_D1_D0_SK1, SK_"test_getStrippedB_D1_D0_SK1")
1055 : #endif
1056 :
1057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1058 :
1059 : #if IK5_ENABLED
1060 1 : call test%run(test_getStrippedB_D1_D0_IK5, SK_"test_getStrippedB_D1_D0_IK5")
1061 : #endif
1062 : #if IK4_ENABLED
1063 1 : call test%run(test_getStrippedB_D1_D0_IK4, SK_"test_getStrippedB_D1_D0_IK4")
1064 : #endif
1065 : #if IK3_ENABLED
1066 1 : call test%run(test_getStrippedB_D1_D0_IK3, SK_"test_getStrippedB_D1_D0_IK3")
1067 : #endif
1068 : #if IK2_ENABLED
1069 1 : call test%run(test_getStrippedB_D1_D0_IK2, SK_"test_getStrippedB_D1_D0_IK2")
1070 : #endif
1071 : #if IK1_ENABLED
1072 1 : call test%run(test_getStrippedB_D1_D0_IK1, SK_"test_getStrippedB_D1_D0_IK1")
1073 : #endif
1074 :
1075 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1076 :
1077 : #if LK5_ENABLED
1078 1 : call test%run(test_getStrippedB_D1_D0_LK5, SK_"test_getStrippedB_D1_D0_LK5")
1079 : #endif
1080 : #if LK4_ENABLED
1081 1 : call test%run(test_getStrippedB_D1_D0_LK4, SK_"test_getStrippedB_D1_D0_LK4")
1082 : #endif
1083 : #if LK3_ENABLED
1084 1 : call test%run(test_getStrippedB_D1_D0_LK3, SK_"test_getStrippedB_D1_D0_LK3")
1085 : #endif
1086 : #if LK2_ENABLED
1087 1 : call test%run(test_getStrippedB_D1_D0_LK2, SK_"test_getStrippedB_D1_D0_LK2")
1088 : #endif
1089 : #if LK1_ENABLED
1090 1 : 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 1 : call test%run(test_getStrippedB_D1_D0_CK4, SK_"test_getStrippedB_D1_D0_CK4")
1100 : #endif
1101 : #if CK3_ENABLED
1102 1 : call test%run(test_getStrippedB_D1_D0_CK3, SK_"test_getStrippedB_D1_D0_CK3")
1103 : #endif
1104 : #if CK2_ENABLED
1105 1 : call test%run(test_getStrippedB_D1_D0_CK2, SK_"test_getStrippedB_D1_D0_CK2")
1106 : #endif
1107 : #if CK1_ENABLED
1108 1 : 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 1 : call test%run(test_getStrippedB_D1_D0_RK4, SK_"test_getStrippedB_D1_D0_RK4")
1118 : #endif
1119 : #if RK3_ENABLED
1120 1 : call test%run(test_getStrippedB_D1_D0_RK3, SK_"test_getStrippedB_D1_D0_RK3")
1121 : #endif
1122 : #if RK2_ENABLED
1123 1 : call test%run(test_getStrippedB_D1_D0_RK2, SK_"test_getStrippedB_D1_D0_RK2")
1124 : #endif
1125 : #if RK1_ENABLED
1126 1 : 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 1 : call test%run(test_getStrippedB_D1_D1_SK1, SK_"test_getStrippedB_D1_D1_SK1")
1151 : #endif
1152 :
1153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1154 :
1155 : #if IK5_ENABLED
1156 1 : call test%run(test_getStrippedB_D1_D1_IK5, SK_"test_getStrippedB_D1_D1_IK5")
1157 : #endif
1158 : #if IK4_ENABLED
1159 1 : call test%run(test_getStrippedB_D1_D1_IK4, SK_"test_getStrippedB_D1_D1_IK4")
1160 : #endif
1161 : #if IK3_ENABLED
1162 1 : call test%run(test_getStrippedB_D1_D1_IK3, SK_"test_getStrippedB_D1_D1_IK3")
1163 : #endif
1164 : #if IK2_ENABLED
1165 1 : call test%run(test_getStrippedB_D1_D1_IK2, SK_"test_getStrippedB_D1_D1_IK2")
1166 : #endif
1167 : #if IK1_ENABLED
1168 1 : call test%run(test_getStrippedB_D1_D1_IK1, SK_"test_getStrippedB_D1_D1_IK1")
1169 : #endif
1170 :
1171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1172 :
1173 : #if LK5_ENABLED
1174 1 : call test%run(test_getStrippedB_D1_D1_LK5, SK_"test_getStrippedB_D1_D1_LK5")
1175 : #endif
1176 : #if LK4_ENABLED
1177 1 : call test%run(test_getStrippedB_D1_D1_LK4, SK_"test_getStrippedB_D1_D1_LK4")
1178 : #endif
1179 : #if LK3_ENABLED
1180 1 : call test%run(test_getStrippedB_D1_D1_LK3, SK_"test_getStrippedB_D1_D1_LK3")
1181 : #endif
1182 : #if LK2_ENABLED
1183 1 : call test%run(test_getStrippedB_D1_D1_LK2, SK_"test_getStrippedB_D1_D1_LK2")
1184 : #endif
1185 : #if LK1_ENABLED
1186 1 : 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 1 : call test%run(test_getStrippedB_D1_D1_CK4, SK_"test_getStrippedB_D1_D1_CK4")
1196 : #endif
1197 : #if CK3_ENABLED
1198 1 : call test%run(test_getStrippedB_D1_D1_CK3, SK_"test_getStrippedB_D1_D1_CK3")
1199 : #endif
1200 : #if CK2_ENABLED
1201 1 : call test%run(test_getStrippedB_D1_D1_CK2, SK_"test_getStrippedB_D1_D1_CK2")
1202 : #endif
1203 : #if CK1_ENABLED
1204 1 : 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 1 : call test%run(test_getStrippedB_D1_D1_RK4, SK_"test_getStrippedB_D1_D1_RK4")
1214 : #endif
1215 : #if RK3_ENABLED
1216 1 : call test%run(test_getStrippedB_D1_D1_RK3, SK_"test_getStrippedB_D1_D1_RK3")
1217 : #endif
1218 : #if RK2_ENABLED
1219 1 : call test%run(test_getStrippedB_D1_D1_RK2, SK_"test_getStrippedB_D1_D1_RK2")
1220 : #endif
1221 : #if RK1_ENABLED
1222 1 : 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 1 : 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 1 : call test%run(test_getStrippedL_D1_D0_SK1, SK_"test_getStrippedL_D1_D0_SK1")
1277 : #endif
1278 :
1279 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1280 :
1281 : #if IK5_ENABLED
1282 1 : call test%run(test_getStrippedL_D1_D0_IK5, SK_"test_getStrippedL_D1_D0_IK5")
1283 : #endif
1284 : #if IK4_ENABLED
1285 1 : call test%run(test_getStrippedL_D1_D0_IK4, SK_"test_getStrippedL_D1_D0_IK4")
1286 : #endif
1287 : #if IK3_ENABLED
1288 1 : call test%run(test_getStrippedL_D1_D0_IK3, SK_"test_getStrippedL_D1_D0_IK3")
1289 : #endif
1290 : #if IK2_ENABLED
1291 1 : call test%run(test_getStrippedL_D1_D0_IK2, SK_"test_getStrippedL_D1_D0_IK2")
1292 : #endif
1293 : #if IK1_ENABLED
1294 1 : call test%run(test_getStrippedL_D1_D0_IK1, SK_"test_getStrippedL_D1_D0_IK1")
1295 : #endif
1296 :
1297 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1298 :
1299 : #if LK5_ENABLED
1300 1 : call test%run(test_getStrippedL_D1_D0_LK5, SK_"test_getStrippedL_D1_D0_LK5")
1301 : #endif
1302 : #if LK4_ENABLED
1303 1 : call test%run(test_getStrippedL_D1_D0_LK4, SK_"test_getStrippedL_D1_D0_LK4")
1304 : #endif
1305 : #if LK3_ENABLED
1306 1 : call test%run(test_getStrippedL_D1_D0_LK3, SK_"test_getStrippedL_D1_D0_LK3")
1307 : #endif
1308 : #if LK2_ENABLED
1309 1 : call test%run(test_getStrippedL_D1_D0_LK2, SK_"test_getStrippedL_D1_D0_LK2")
1310 : #endif
1311 : #if LK1_ENABLED
1312 1 : 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 1 : call test%run(test_getStrippedL_D1_D0_CK4, SK_"test_getStrippedL_D1_D0_CK4")
1322 : #endif
1323 : #if CK3_ENABLED
1324 1 : call test%run(test_getStrippedL_D1_D0_CK3, SK_"test_getStrippedL_D1_D0_CK3")
1325 : #endif
1326 : #if CK2_ENABLED
1327 1 : call test%run(test_getStrippedL_D1_D0_CK2, SK_"test_getStrippedL_D1_D0_CK2")
1328 : #endif
1329 : #if CK1_ENABLED
1330 1 : 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 1 : call test%run(test_getStrippedL_D1_D0_RK4, SK_"test_getStrippedL_D1_D0_RK4")
1340 : #endif
1341 : #if RK3_ENABLED
1342 1 : call test%run(test_getStrippedL_D1_D0_RK3, SK_"test_getStrippedL_D1_D0_RK3")
1343 : #endif
1344 : #if RK2_ENABLED
1345 1 : call test%run(test_getStrippedL_D1_D0_RK2, SK_"test_getStrippedL_D1_D0_RK2")
1346 : #endif
1347 : #if RK1_ENABLED
1348 1 : 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 1 : call test%run(test_getStrippedL_D1_D1_SK1, SK_"test_getStrippedL_D1_D1_SK1")
1373 : #endif
1374 :
1375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1376 :
1377 : #if IK5_ENABLED
1378 1 : call test%run(test_getStrippedL_D1_D1_IK5, SK_"test_getStrippedL_D1_D1_IK5")
1379 : #endif
1380 : #if IK4_ENABLED
1381 1 : call test%run(test_getStrippedL_D1_D1_IK4, SK_"test_getStrippedL_D1_D1_IK4")
1382 : #endif
1383 : #if IK3_ENABLED
1384 1 : call test%run(test_getStrippedL_D1_D1_IK3, SK_"test_getStrippedL_D1_D1_IK3")
1385 : #endif
1386 : #if IK2_ENABLED
1387 1 : call test%run(test_getStrippedL_D1_D1_IK2, SK_"test_getStrippedL_D1_D1_IK2")
1388 : #endif
1389 : #if IK1_ENABLED
1390 1 : call test%run(test_getStrippedL_D1_D1_IK1, SK_"test_getStrippedL_D1_D1_IK1")
1391 : #endif
1392 :
1393 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1394 :
1395 : #if LK5_ENABLED
1396 1 : call test%run(test_getStrippedL_D1_D1_LK5, SK_"test_getStrippedL_D1_D1_LK5")
1397 : #endif
1398 : #if LK4_ENABLED
1399 1 : call test%run(test_getStrippedL_D1_D1_LK4, SK_"test_getStrippedL_D1_D1_LK4")
1400 : #endif
1401 : #if LK3_ENABLED
1402 1 : call test%run(test_getStrippedL_D1_D1_LK3, SK_"test_getStrippedL_D1_D1_LK3")
1403 : #endif
1404 : #if LK2_ENABLED
1405 1 : call test%run(test_getStrippedL_D1_D1_LK2, SK_"test_getStrippedL_D1_D1_LK2")
1406 : #endif
1407 : #if LK1_ENABLED
1408 1 : 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 1 : call test%run(test_getStrippedL_D1_D1_CK4, SK_"test_getStrippedL_D1_D1_CK4")
1418 : #endif
1419 : #if CK3_ENABLED
1420 1 : call test%run(test_getStrippedL_D1_D1_CK3, SK_"test_getStrippedL_D1_D1_CK3")
1421 : #endif
1422 : #if CK2_ENABLED
1423 1 : call test%run(test_getStrippedL_D1_D1_CK2, SK_"test_getStrippedL_D1_D1_CK2")
1424 : #endif
1425 : #if CK1_ENABLED
1426 1 : 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 1 : call test%run(test_getStrippedL_D1_D1_RK4, SK_"test_getStrippedL_D1_D1_RK4")
1436 : #endif
1437 : #if RK3_ENABLED
1438 1 : call test%run(test_getStrippedL_D1_D1_RK3, SK_"test_getStrippedL_D1_D1_RK3")
1439 : #endif
1440 : #if RK2_ENABLED
1441 1 : call test%run(test_getStrippedL_D1_D1_RK2, SK_"test_getStrippedL_D1_D1_RK2")
1442 : #endif
1443 : #if RK1_ENABLED
1444 1 : 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 1 : 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 1 : call test%run(test_getStrippedR_D1_D0_SK1, SK_"test_getStrippedR_D1_D0_SK1")
1499 : #endif
1500 :
1501 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1502 :
1503 : #if IK5_ENABLED
1504 1 : call test%run(test_getStrippedR_D1_D0_IK5, SK_"test_getStrippedR_D1_D0_IK5")
1505 : #endif
1506 : #if IK4_ENABLED
1507 1 : call test%run(test_getStrippedR_D1_D0_IK4, SK_"test_getStrippedR_D1_D0_IK4")
1508 : #endif
1509 : #if IK3_ENABLED
1510 1 : call test%run(test_getStrippedR_D1_D0_IK3, SK_"test_getStrippedR_D1_D0_IK3")
1511 : #endif
1512 : #if IK2_ENABLED
1513 1 : call test%run(test_getStrippedR_D1_D0_IK2, SK_"test_getStrippedR_D1_D0_IK2")
1514 : #endif
1515 : #if IK1_ENABLED
1516 1 : call test%run(test_getStrippedR_D1_D0_IK1, SK_"test_getStrippedR_D1_D0_IK1")
1517 : #endif
1518 :
1519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1520 :
1521 : #if LK5_ENABLED
1522 1 : call test%run(test_getStrippedR_D1_D0_LK5, SK_"test_getStrippedR_D1_D0_LK5")
1523 : #endif
1524 : #if LK4_ENABLED
1525 1 : call test%run(test_getStrippedR_D1_D0_LK4, SK_"test_getStrippedR_D1_D0_LK4")
1526 : #endif
1527 : #if LK3_ENABLED
1528 1 : call test%run(test_getStrippedR_D1_D0_LK3, SK_"test_getStrippedR_D1_D0_LK3")
1529 : #endif
1530 : #if LK2_ENABLED
1531 1 : call test%run(test_getStrippedR_D1_D0_LK2, SK_"test_getStrippedR_D1_D0_LK2")
1532 : #endif
1533 : #if LK1_ENABLED
1534 1 : 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 1 : call test%run(test_getStrippedR_D1_D0_CK4, SK_"test_getStrippedR_D1_D0_CK4")
1544 : #endif
1545 : #if CK3_ENABLED
1546 1 : call test%run(test_getStrippedR_D1_D0_CK3, SK_"test_getStrippedR_D1_D0_CK3")
1547 : #endif
1548 : #if CK2_ENABLED
1549 1 : call test%run(test_getStrippedR_D1_D0_CK2, SK_"test_getStrippedR_D1_D0_CK2")
1550 : #endif
1551 : #if CK1_ENABLED
1552 1 : 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 1 : call test%run(test_getStrippedR_D1_D0_RK4, SK_"test_getStrippedR_D1_D0_RK4")
1562 : #endif
1563 : #if RK3_ENABLED
1564 1 : call test%run(test_getStrippedR_D1_D0_RK3, SK_"test_getStrippedR_D1_D0_RK3")
1565 : #endif
1566 : #if RK2_ENABLED
1567 1 : call test%run(test_getStrippedR_D1_D0_RK2, SK_"test_getStrippedR_D1_D0_RK2")
1568 : #endif
1569 : #if RK1_ENABLED
1570 1 : 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 1 : call test%run(test_getStrippedR_D1_D1_SK1, SK_"test_getStrippedR_D1_D1_SK1")
1595 : #endif
1596 :
1597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1598 :
1599 : #if IK5_ENABLED
1600 1 : call test%run(test_getStrippedR_D1_D1_IK5, SK_"test_getStrippedR_D1_D1_IK5")
1601 : #endif
1602 : #if IK4_ENABLED
1603 1 : call test%run(test_getStrippedR_D1_D1_IK4, SK_"test_getStrippedR_D1_D1_IK4")
1604 : #endif
1605 : #if IK3_ENABLED
1606 1 : call test%run(test_getStrippedR_D1_D1_IK3, SK_"test_getStrippedR_D1_D1_IK3")
1607 : #endif
1608 : #if IK2_ENABLED
1609 1 : call test%run(test_getStrippedR_D1_D1_IK2, SK_"test_getStrippedR_D1_D1_IK2")
1610 : #endif
1611 : #if IK1_ENABLED
1612 1 : call test%run(test_getStrippedR_D1_D1_IK1, SK_"test_getStrippedR_D1_D1_IK1")
1613 : #endif
1614 :
1615 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1616 :
1617 : #if LK5_ENABLED
1618 1 : call test%run(test_getStrippedR_D1_D1_LK5, SK_"test_getStrippedR_D1_D1_LK5")
1619 : #endif
1620 : #if LK4_ENABLED
1621 1 : call test%run(test_getStrippedR_D1_D1_LK4, SK_"test_getStrippedR_D1_D1_LK4")
1622 : #endif
1623 : #if LK3_ENABLED
1624 1 : call test%run(test_getStrippedR_D1_D1_LK3, SK_"test_getStrippedR_D1_D1_LK3")
1625 : #endif
1626 : #if LK2_ENABLED
1627 1 : call test%run(test_getStrippedR_D1_D1_LK2, SK_"test_getStrippedR_D1_D1_LK2")
1628 : #endif
1629 : #if LK1_ENABLED
1630 1 : 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 1 : call test%run(test_getStrippedR_D1_D1_CK4, SK_"test_getStrippedR_D1_D1_CK4")
1640 : #endif
1641 : #if CK3_ENABLED
1642 1 : call test%run(test_getStrippedR_D1_D1_CK3, SK_"test_getStrippedR_D1_D1_CK3")
1643 : #endif
1644 : #if CK2_ENABLED
1645 1 : call test%run(test_getStrippedR_D1_D1_CK2, SK_"test_getStrippedR_D1_D1_CK2")
1646 : #endif
1647 : #if CK1_ENABLED
1648 1 : 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 1 : call test%run(test_getStrippedR_D1_D1_RK4, SK_"test_getStrippedR_D1_D1_RK4")
1658 : #endif
1659 : #if RK3_ENABLED
1660 1 : call test%run(test_getStrippedR_D1_D1_RK3, SK_"test_getStrippedR_D1_D1_RK3")
1661 : #endif
1662 : #if RK2_ENABLED
1663 1 : call test%run(test_getStrippedR_D1_D1_RK2, SK_"test_getStrippedR_D1_D1_RK2")
1664 : #endif
1665 : #if RK1_ENABLED
1666 1 : 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 1 : call test%run(test_getSIL_D0_D0_SK1_1, SK_"test_getSIL_D0_D0_SK1_1")
1701 1 : 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 1 : call test%run(test_getSIL_D1_D0_SK1_1, SK_"test_getSIL_D1_D0_SK1_1")
1730 1 : 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 1 : call test%run(test_getSIL_D1_D0_IK5_1, SK_"test_getSIL_D1_D0_IK5_1")
1737 1 : call test%run(test_getSIR_D1_D0_IK5_1, SK_"test_getSIR_D1_D0_IK5_1")
1738 : #endif
1739 : #if IK4_ENABLED
1740 1 : call test%run(test_getSIL_D1_D0_IK4_1, SK_"test_getSIL_D1_D0_IK4_1")
1741 1 : call test%run(test_getSIR_D1_D0_IK4_1, SK_"test_getSIR_D1_D0_IK4_1")
1742 : #endif
1743 : #if IK3_ENABLED
1744 1 : call test%run(test_getSIL_D1_D0_IK3_1, SK_"test_getSIL_D1_D0_IK3_1")
1745 1 : call test%run(test_getSIR_D1_D0_IK3_1, SK_"test_getSIR_D1_D0_IK3_1")
1746 : #endif
1747 : #if IK2_ENABLED
1748 1 : call test%run(test_getSIL_D1_D0_IK2_1, SK_"test_getSIL_D1_D0_IK2_1")
1749 1 : call test%run(test_getSIR_D1_D0_IK2_1, SK_"test_getSIR_D1_D0_IK2_1")
1750 : #endif
1751 : #if IK1_ENABLED
1752 1 : call test%run(test_getSIL_D1_D0_IK1_1, SK_"test_getSIL_D1_D0_IK1_1")
1753 1 : 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 1 : call test%run(test_getSIL_D1_D0_LK5_1, SK_"test_getSIL_D1_D0_LK5_1")
1760 1 : call test%run(test_getSIR_D1_D0_LK5_1, SK_"test_getSIR_D1_D0_LK5_1")
1761 : #endif
1762 : #if LK4_ENABLED
1763 1 : call test%run(test_getSIL_D1_D0_LK4_1, SK_"test_getSIL_D1_D0_LK4_1")
1764 1 : call test%run(test_getSIR_D1_D0_LK4_1, SK_"test_getSIR_D1_D0_LK4_1")
1765 : #endif
1766 : #if LK3_ENABLED
1767 1 : call test%run(test_getSIL_D1_D0_LK3_1, SK_"test_getSIL_D1_D0_LK3_1")
1768 1 : call test%run(test_getSIR_D1_D0_LK3_1, SK_"test_getSIR_D1_D0_LK3_1")
1769 : #endif
1770 : #if LK2_ENABLED
1771 1 : call test%run(test_getSIL_D1_D0_LK2_1, SK_"test_getSIL_D1_D0_LK2_1")
1772 1 : call test%run(test_getSIR_D1_D0_LK2_1, SK_"test_getSIR_D1_D0_LK2_1")
1773 : #endif
1774 : #if LK1_ENABLED
1775 1 : call test%run(test_getSIL_D1_D0_LK1_1, SK_"test_getSIL_D1_D0_LK1_1")
1776 1 : 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 1 : call test%run(test_getSIL_D1_D0_CK4_1, SK_"test_getSIL_D1_D0_CK4_1")
1787 1 : call test%run(test_getSIR_D1_D0_CK4_1, SK_"test_getSIR_D1_D0_CK4_1")
1788 : #endif
1789 : #if CK3_ENABLED
1790 1 : call test%run(test_getSIL_D1_D0_CK3_1, SK_"test_getSIL_D1_D0_CK3_1")
1791 1 : call test%run(test_getSIR_D1_D0_CK3_1, SK_"test_getSIR_D1_D0_CK3_1")
1792 : #endif
1793 : #if CK2_ENABLED
1794 1 : call test%run(test_getSIL_D1_D0_CK2_1, SK_"test_getSIL_D1_D0_CK2_1")
1795 1 : call test%run(test_getSIR_D1_D0_CK2_1, SK_"test_getSIR_D1_D0_CK2_1")
1796 : #endif
1797 : #if CK1_ENABLED
1798 1 : call test%run(test_getSIL_D1_D0_CK1_1, SK_"test_getSIL_D1_D0_CK1_1")
1799 1 : 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 1 : call test%run(test_getSIL_D1_D0_RK4_1, SK_"test_getSIL_D1_D0_RK4_1")
1810 1 : call test%run(test_getSIR_D1_D0_RK4_1, SK_"test_getSIR_D1_D0_RK4_1")
1811 : #endif
1812 : #if RK3_ENABLED
1813 1 : call test%run(test_getSIL_D1_D0_RK3_1, SK_"test_getSIL_D1_D0_RK3_1")
1814 1 : call test%run(test_getSIR_D1_D0_RK3_1, SK_"test_getSIR_D1_D0_RK3_1")
1815 : #endif
1816 : #if RK2_ENABLED
1817 1 : call test%run(test_getSIL_D1_D0_RK2_1, SK_"test_getSIL_D1_D0_RK2_1")
1818 1 : call test%run(test_getSIR_D1_D0_RK2_1, SK_"test_getSIR_D1_D0_RK2_1")
1819 : #endif
1820 : #if RK1_ENABLED
1821 1 : call test%run(test_getSIL_D1_D0_RK1_1, SK_"test_getSIL_D1_D0_RK1_1")
1822 1 : 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 1 : call test%run(test_getSIL_D1_D1_SK1_1, SK_"test_getSIL_D1_D1_SK1_1")
1851 1 : 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 1 : call test%run(test_getSIL_D1_D1_IK5_1, SK_"test_getSIL_D1_D1_IK5_1")
1858 1 : call test%run(test_getSIR_D1_D1_IK5_1, SK_"test_getSIR_D1_D1_IK5_1")
1859 : #endif
1860 : #if IK4_ENABLED
1861 1 : call test%run(test_getSIL_D1_D1_IK4_1, SK_"test_getSIL_D1_D1_IK4_1")
1862 1 : call test%run(test_getSIR_D1_D1_IK4_1, SK_"test_getSIR_D1_D1_IK4_1")
1863 : #endif
1864 : #if IK3_ENABLED
1865 1 : call test%run(test_getSIL_D1_D1_IK3_1, SK_"test_getSIL_D1_D1_IK3_1")
1866 1 : call test%run(test_getSIR_D1_D1_IK3_1, SK_"test_getSIR_D1_D1_IK3_1")
1867 : #endif
1868 : #if IK2_ENABLED
1869 1 : call test%run(test_getSIL_D1_D1_IK2_1, SK_"test_getSIL_D1_D1_IK2_1")
1870 1 : call test%run(test_getSIR_D1_D1_IK2_1, SK_"test_getSIR_D1_D1_IK2_1")
1871 : #endif
1872 : #if IK1_ENABLED
1873 1 : call test%run(test_getSIL_D1_D1_IK1_1, SK_"test_getSIL_D1_D1_IK1_1")
1874 1 : 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 1 : call test%run(test_getSIL_D1_D1_LK5_1, SK_"test_getSIL_D1_D1_LK5_1")
1881 1 : call test%run(test_getSIR_D1_D1_LK5_1, SK_"test_getSIR_D1_D1_LK5_1")
1882 : #endif
1883 : #if LK4_ENABLED
1884 1 : call test%run(test_getSIL_D1_D1_LK4_1, SK_"test_getSIL_D1_D1_LK4_1")
1885 1 : call test%run(test_getSIR_D1_D1_LK4_1, SK_"test_getSIR_D1_D1_LK4_1")
1886 : #endif
1887 : #if LK3_ENABLED
1888 1 : call test%run(test_getSIL_D1_D1_LK3_1, SK_"test_getSIL_D1_D1_LK3_1")
1889 1 : call test%run(test_getSIR_D1_D1_LK3_1, SK_"test_getSIR_D1_D1_LK3_1")
1890 : #endif
1891 : #if LK2_ENABLED
1892 1 : call test%run(test_getSIL_D1_D1_LK2_1, SK_"test_getSIL_D1_D1_LK2_1")
1893 1 : call test%run(test_getSIR_D1_D1_LK2_1, SK_"test_getSIR_D1_D1_LK2_1")
1894 : #endif
1895 : #if LK1_ENABLED
1896 1 : call test%run(test_getSIL_D1_D1_LK1_1, SK_"test_getSIL_D1_D1_LK1_1")
1897 1 : 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 1 : call test%run(test_getSIL_D1_D1_CK4_1, SK_"test_getSIL_D1_D1_CK4_1")
1908 1 : call test%run(test_getSIR_D1_D1_CK4_1, SK_"test_getSIR_D1_D1_CK4_1")
1909 : #endif
1910 : #if CK3_ENABLED
1911 1 : call test%run(test_getSIL_D1_D1_CK3_1, SK_"test_getSIL_D1_D1_CK3_1")
1912 1 : call test%run(test_getSIR_D1_D1_CK3_1, SK_"test_getSIR_D1_D1_CK3_1")
1913 : #endif
1914 : #if CK2_ENABLED
1915 1 : call test%run(test_getSIL_D1_D1_CK2_1, SK_"test_getSIL_D1_D1_CK2_1")
1916 1 : call test%run(test_getSIR_D1_D1_CK2_1, SK_"test_getSIR_D1_D1_CK2_1")
1917 : #endif
1918 : #if CK1_ENABLED
1919 1 : call test%run(test_getSIL_D1_D1_CK1_1, SK_"test_getSIL_D1_D1_CK1_1")
1920 1 : 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 1 : call test%run(test_getSIL_D1_D1_RK4_1, SK_"test_getSIL_D1_D1_RK4_1")
1931 1 : call test%run(test_getSIR_D1_D1_RK4_1, SK_"test_getSIR_D1_D1_RK4_1")
1932 : #endif
1933 : #if RK3_ENABLED
1934 1 : call test%run(test_getSIL_D1_D1_RK3_1, SK_"test_getSIL_D1_D1_RK3_1")
1935 1 : call test%run(test_getSIR_D1_D1_RK3_1, SK_"test_getSIR_D1_D1_RK3_1")
1936 : #endif
1937 : #if RK2_ENABLED
1938 1 : call test%run(test_getSIL_D1_D1_RK2_1, SK_"test_getSIL_D1_D1_RK2_1")
1939 1 : call test%run(test_getSIR_D1_D1_RK2_1, SK_"test_getSIR_D1_D1_RK2_1")
1940 : #endif
1941 : #if RK1_ENABLED
1942 1 : call test%run(test_getSIL_D1_D1_RK1_1, SK_"test_getSIL_D1_D1_RK1_1")
1943 1 : 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 1 : call test%summarize()
1955 :
1956 1 : end subroutine setTest
1957 :
1958 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1959 :
1960 : end module test_pm_arrayStrip ! LCOV_EXCL_LINE
|
