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 This module contains tests of the module [pm_arrayRank](@ref pm_arrayRank).
18 : !>
19 : !> \fintest
20 : !>
21 : !> \author
22 : !> \AmirShahmoradi, April 21, 2017, 1:54 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
23 :
24 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25 :
26 : module test_pm_arrayRank
27 :
28 : use pm_arrayRank
29 : use pm_test, only: test_type
30 : use pm_kind, only: IK, LK, RK
31 : implicit none
32 :
33 : private
34 : public :: setTest
35 : type(test_type) :: test
36 :
37 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
38 :
39 : interface
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : #if SK5_ENABLED
44 : module function test_getRankDense_D0_SK5() result(assertion); logical(LK) :: assertion; end function
45 : #endif
46 : #if SK4_ENABLED
47 : module function test_getRankDense_D0_SK4() result(assertion); logical(LK) :: assertion; end function
48 : #endif
49 : #if SK3_ENABLED
50 : module function test_getRankDense_D0_SK3() result(assertion); logical(LK) :: assertion; end function
51 : #endif
52 : #if SK2_ENABLED
53 : module function test_getRankDense_D0_SK2() result(assertion); logical(LK) :: assertion; end function
54 : #endif
55 : #if SK1_ENABLED
56 : module function test_getRankDense_D0_SK1() result(assertion); logical(LK) :: assertion; end function
57 : #endif
58 :
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 :
61 : #if SK5_ENABLED
62 : module function test_getRankDense_D1_SK5() result(assertion); logical(LK) :: assertion; end function
63 : #endif
64 : #if SK4_ENABLED
65 : module function test_getRankDense_D1_SK4() result(assertion); logical(LK) :: assertion; end function
66 : #endif
67 : #if SK3_ENABLED
68 : module function test_getRankDense_D1_SK3() result(assertion); logical(LK) :: assertion; end function
69 : #endif
70 : #if SK2_ENABLED
71 : module function test_getRankDense_D1_SK2() result(assertion); logical(LK) :: assertion; end function
72 : #endif
73 : #if SK1_ENABLED
74 : module function test_getRankDense_D1_SK1() result(assertion); logical(LK) :: assertion; end function
75 : #endif
76 :
77 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
78 :
79 : #if IK5_ENABLED
80 : module function test_getRankDense_D1_IK5() result(assertion); logical(LK) :: assertion; end function
81 : #endif
82 : #if IK4_ENABLED
83 : module function test_getRankDense_D1_IK4() result(assertion); logical(LK) :: assertion; end function
84 : #endif
85 : #if IK3_ENABLED
86 : module function test_getRankDense_D1_IK3() result(assertion); logical(LK) :: assertion; end function
87 : #endif
88 : #if IK2_ENABLED
89 : module function test_getRankDense_D1_IK2() result(assertion); logical(LK) :: assertion; end function
90 : #endif
91 : #if IK1_ENABLED
92 : module function test_getRankDense_D1_IK1() result(assertion); logical(LK) :: assertion; end function
93 : #endif
94 :
95 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
96 :
97 : #if LK5_ENABLED
98 : module function test_getRankDense_D1_LK5() result(assertion); logical(LK) :: assertion; end function
99 : #endif
100 : #if LK4_ENABLED
101 : module function test_getRankDense_D1_LK4() result(assertion); logical(LK) :: assertion; end function
102 : #endif
103 : #if LK3_ENABLED
104 : module function test_getRankDense_D1_LK3() result(assertion); logical(LK) :: assertion; end function
105 : #endif
106 : #if LK2_ENABLED
107 : module function test_getRankDense_D1_LK2() result(assertion); logical(LK) :: assertion; end function
108 : #endif
109 : #if LK1_ENABLED
110 : module function test_getRankDense_D1_LK1() result(assertion); logical(LK) :: assertion; end function
111 : #endif
112 :
113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
114 :
115 : #if CK5_ENABLED
116 : module function test_getRankDense_D1_CK5() result(assertion); logical(LK) :: assertion; end function
117 : #endif
118 : #if CK4_ENABLED
119 : module function test_getRankDense_D1_CK4() result(assertion); logical(LK) :: assertion; end function
120 : #endif
121 : #if CK3_ENABLED
122 : module function test_getRankDense_D1_CK3() result(assertion); logical(LK) :: assertion; end function
123 : #endif
124 : #if CK2_ENABLED
125 : module function test_getRankDense_D1_CK2() result(assertion); logical(LK) :: assertion; end function
126 : #endif
127 : #if CK1_ENABLED
128 : module function test_getRankDense_D1_CK1() result(assertion); logical(LK) :: assertion; end function
129 : #endif
130 :
131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
132 :
133 : #if RK5_ENABLED
134 : module function test_getRankDense_D1_RK5() result(assertion); logical(LK) :: assertion; end function
135 : #endif
136 : #if RK4_ENABLED
137 : module function test_getRankDense_D1_RK4() result(assertion); logical(LK) :: assertion; end function
138 : #endif
139 : #if RK3_ENABLED
140 : module function test_getRankDense_D1_RK3() result(assertion); logical(LK) :: assertion; end function
141 : #endif
142 : #if RK2_ENABLED
143 : module function test_getRankDense_D1_RK2() result(assertion); logical(LK) :: assertion; end function
144 : #endif
145 : #if RK1_ENABLED
146 : module function test_getRankDense_D1_RK1() result(assertion); logical(LK) :: assertion; end function
147 : #endif
148 :
149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
150 :
151 : #if SK5_ENABLED
152 : module function test_getRankDense_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
153 : #endif
154 : #if SK4_ENABLED
155 : module function test_getRankDense_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
156 : #endif
157 : #if SK3_ENABLED
158 : module function test_getRankDense_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
159 : #endif
160 : #if SK2_ENABLED
161 : module function test_getRankDense_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
162 : #endif
163 : #if SK1_ENABLED
164 : module function test_getRankDense_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
165 : #endif
166 :
167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
168 :
169 : end interface
170 :
171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
172 :
173 : interface
174 :
175 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
176 :
177 : #if SK5_ENABLED
178 : module function test_setRankDense_D0_SK5() result(assertion); logical(LK) :: assertion; end function
179 : #endif
180 : #if SK4_ENABLED
181 : module function test_setRankDense_D0_SK4() result(assertion); logical(LK) :: assertion; end function
182 : #endif
183 : #if SK3_ENABLED
184 : module function test_setRankDense_D0_SK3() result(assertion); logical(LK) :: assertion; end function
185 : #endif
186 : #if SK2_ENABLED
187 : module function test_setRankDense_D0_SK2() result(assertion); logical(LK) :: assertion; end function
188 : #endif
189 : #if SK1_ENABLED
190 : module function test_setRankDense_D0_SK1() result(assertion); logical(LK) :: assertion; end function
191 : #endif
192 :
193 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
194 :
195 : #if SK5_ENABLED
196 : module function test_setRankDense_D1_SK5() result(assertion); logical(LK) :: assertion; end function
197 : #endif
198 : #if SK4_ENABLED
199 : module function test_setRankDense_D1_SK4() result(assertion); logical(LK) :: assertion; end function
200 : #endif
201 : #if SK3_ENABLED
202 : module function test_setRankDense_D1_SK3() result(assertion); logical(LK) :: assertion; end function
203 : #endif
204 : #if SK2_ENABLED
205 : module function test_setRankDense_D1_SK2() result(assertion); logical(LK) :: assertion; end function
206 : #endif
207 : #if SK1_ENABLED
208 : module function test_setRankDense_D1_SK1() result(assertion); logical(LK) :: assertion; end function
209 : #endif
210 :
211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
212 :
213 : #if IK5_ENABLED
214 : module function test_setRankDense_D1_IK5() result(assertion); logical(LK) :: assertion; end function
215 : #endif
216 : #if IK4_ENABLED
217 : module function test_setRankDense_D1_IK4() result(assertion); logical(LK) :: assertion; end function
218 : #endif
219 : #if IK3_ENABLED
220 : module function test_setRankDense_D1_IK3() result(assertion); logical(LK) :: assertion; end function
221 : #endif
222 : #if IK2_ENABLED
223 : module function test_setRankDense_D1_IK2() result(assertion); logical(LK) :: assertion; end function
224 : #endif
225 : #if IK1_ENABLED
226 : module function test_setRankDense_D1_IK1() result(assertion); logical(LK) :: assertion; end function
227 : #endif
228 :
229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
230 :
231 : #if LK5_ENABLED
232 : module function test_setRankDense_D1_LK5() result(assertion); logical(LK) :: assertion; end function
233 : #endif
234 : #if LK4_ENABLED
235 : module function test_setRankDense_D1_LK4() result(assertion); logical(LK) :: assertion; end function
236 : #endif
237 : #if LK3_ENABLED
238 : module function test_setRankDense_D1_LK3() result(assertion); logical(LK) :: assertion; end function
239 : #endif
240 : #if LK2_ENABLED
241 : module function test_setRankDense_D1_LK2() result(assertion); logical(LK) :: assertion; end function
242 : #endif
243 : #if LK1_ENABLED
244 : module function test_setRankDense_D1_LK1() result(assertion); logical(LK) :: assertion; end function
245 : #endif
246 :
247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
248 :
249 : #if CK5_ENABLED
250 : module function test_setRankDense_D1_CK5() result(assertion); logical(LK) :: assertion; end function
251 : #endif
252 : #if CK4_ENABLED
253 : module function test_setRankDense_D1_CK4() result(assertion); logical(LK) :: assertion; end function
254 : #endif
255 : #if CK3_ENABLED
256 : module function test_setRankDense_D1_CK3() result(assertion); logical(LK) :: assertion; end function
257 : #endif
258 : #if CK2_ENABLED
259 : module function test_setRankDense_D1_CK2() result(assertion); logical(LK) :: assertion; end function
260 : #endif
261 : #if CK1_ENABLED
262 : module function test_setRankDense_D1_CK1() result(assertion); logical(LK) :: assertion; end function
263 : #endif
264 :
265 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
266 :
267 : #if RK5_ENABLED
268 : module function test_setRankDense_D1_RK5() result(assertion); logical(LK) :: assertion; end function
269 : #endif
270 : #if RK4_ENABLED
271 : module function test_setRankDense_D1_RK4() result(assertion); logical(LK) :: assertion; end function
272 : #endif
273 : #if RK3_ENABLED
274 : module function test_setRankDense_D1_RK3() result(assertion); logical(LK) :: assertion; end function
275 : #endif
276 : #if RK2_ENABLED
277 : module function test_setRankDense_D1_RK2() result(assertion); logical(LK) :: assertion; end function
278 : #endif
279 : #if RK1_ENABLED
280 : module function test_setRankDense_D1_RK1() result(assertion); logical(LK) :: assertion; end function
281 : #endif
282 :
283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284 :
285 : #if SK5_ENABLED
286 : module function test_setRankDense_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
287 : #endif
288 : #if SK4_ENABLED
289 : module function test_setRankDense_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
290 : #endif
291 : #if SK3_ENABLED
292 : module function test_setRankDense_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
293 : #endif
294 : #if SK2_ENABLED
295 : module function test_setRankDense_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
296 : #endif
297 : #if SK1_ENABLED
298 : module function test_setRankDense_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
299 : #endif
300 :
301 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
302 :
303 : end interface
304 :
305 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
306 :
307 : interface
308 :
309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 :
311 : #if SK5_ENABLED
312 : module function test_getRankFractional_D0_SK5() result(assertion); logical(LK) :: assertion; end function
313 : #endif
314 : #if SK4_ENABLED
315 : module function test_getRankFractional_D0_SK4() result(assertion); logical(LK) :: assertion; end function
316 : #endif
317 : #if SK3_ENABLED
318 : module function test_getRankFractional_D0_SK3() result(assertion); logical(LK) :: assertion; end function
319 : #endif
320 : #if SK2_ENABLED
321 : module function test_getRankFractional_D0_SK2() result(assertion); logical(LK) :: assertion; end function
322 : #endif
323 : #if SK1_ENABLED
324 : module function test_getRankFractional_D0_SK1() result(assertion); logical(LK) :: assertion; end function
325 : #endif
326 :
327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
328 :
329 : #if SK5_ENABLED
330 : module function test_getRankFractional_D1_SK5() result(assertion); logical(LK) :: assertion; end function
331 : #endif
332 : #if SK4_ENABLED
333 : module function test_getRankFractional_D1_SK4() result(assertion); logical(LK) :: assertion; end function
334 : #endif
335 : #if SK3_ENABLED
336 : module function test_getRankFractional_D1_SK3() result(assertion); logical(LK) :: assertion; end function
337 : #endif
338 : #if SK2_ENABLED
339 : module function test_getRankFractional_D1_SK2() result(assertion); logical(LK) :: assertion; end function
340 : #endif
341 : #if SK1_ENABLED
342 : module function test_getRankFractional_D1_SK1() result(assertion); logical(LK) :: assertion; end function
343 : #endif
344 :
345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
346 :
347 : #if IK5_ENABLED
348 : module function test_getRankFractional_D1_IK5() result(assertion); logical(LK) :: assertion; end function
349 : #endif
350 : #if IK4_ENABLED
351 : module function test_getRankFractional_D1_IK4() result(assertion); logical(LK) :: assertion; end function
352 : #endif
353 : #if IK3_ENABLED
354 : module function test_getRankFractional_D1_IK3() result(assertion); logical(LK) :: assertion; end function
355 : #endif
356 : #if IK2_ENABLED
357 : module function test_getRankFractional_D1_IK2() result(assertion); logical(LK) :: assertion; end function
358 : #endif
359 : #if IK1_ENABLED
360 : module function test_getRankFractional_D1_IK1() result(assertion); logical(LK) :: assertion; end function
361 : #endif
362 :
363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
364 :
365 : #if LK5_ENABLED
366 : module function test_getRankFractional_D1_LK5() result(assertion); logical(LK) :: assertion; end function
367 : #endif
368 : #if LK4_ENABLED
369 : module function test_getRankFractional_D1_LK4() result(assertion); logical(LK) :: assertion; end function
370 : #endif
371 : #if LK3_ENABLED
372 : module function test_getRankFractional_D1_LK3() result(assertion); logical(LK) :: assertion; end function
373 : #endif
374 : #if LK2_ENABLED
375 : module function test_getRankFractional_D1_LK2() result(assertion); logical(LK) :: assertion; end function
376 : #endif
377 : #if LK1_ENABLED
378 : module function test_getRankFractional_D1_LK1() result(assertion); logical(LK) :: assertion; end function
379 : #endif
380 :
381 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
382 :
383 : #if CK5_ENABLED
384 : module function test_getRankFractional_D1_CK5() result(assertion); logical(LK) :: assertion; end function
385 : #endif
386 : #if CK4_ENABLED
387 : module function test_getRankFractional_D1_CK4() result(assertion); logical(LK) :: assertion; end function
388 : #endif
389 : #if CK3_ENABLED
390 : module function test_getRankFractional_D1_CK3() result(assertion); logical(LK) :: assertion; end function
391 : #endif
392 : #if CK2_ENABLED
393 : module function test_getRankFractional_D1_CK2() result(assertion); logical(LK) :: assertion; end function
394 : #endif
395 : #if CK1_ENABLED
396 : module function test_getRankFractional_D1_CK1() result(assertion); logical(LK) :: assertion; end function
397 : #endif
398 :
399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
400 :
401 : #if RK5_ENABLED
402 : module function test_getRankFractional_D1_RK5() result(assertion); logical(LK) :: assertion; end function
403 : #endif
404 : #if RK4_ENABLED
405 : module function test_getRankFractional_D1_RK4() result(assertion); logical(LK) :: assertion; end function
406 : #endif
407 : #if RK3_ENABLED
408 : module function test_getRankFractional_D1_RK3() result(assertion); logical(LK) :: assertion; end function
409 : #endif
410 : #if RK2_ENABLED
411 : module function test_getRankFractional_D1_RK2() result(assertion); logical(LK) :: assertion; end function
412 : #endif
413 : #if RK1_ENABLED
414 : module function test_getRankFractional_D1_RK1() result(assertion); logical(LK) :: assertion; end function
415 : #endif
416 :
417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
418 :
419 : #if SK5_ENABLED
420 : module function test_getRankFractional_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
421 : #endif
422 : #if SK4_ENABLED
423 : module function test_getRankFractional_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
424 : #endif
425 : #if SK3_ENABLED
426 : module function test_getRankFractional_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
427 : #endif
428 : #if SK2_ENABLED
429 : module function test_getRankFractional_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
430 : #endif
431 : #if SK1_ENABLED
432 : module function test_getRankFractional_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
433 : #endif
434 :
435 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
436 :
437 : end interface
438 :
439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
440 :
441 : interface
442 :
443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
444 :
445 : #if SK5_ENABLED
446 : module function test_setRankFractional_D0_SK5() result(assertion); logical(LK) :: assertion; end function
447 : #endif
448 : #if SK4_ENABLED
449 : module function test_setRankFractional_D0_SK4() result(assertion); logical(LK) :: assertion; end function
450 : #endif
451 : #if SK3_ENABLED
452 : module function test_setRankFractional_D0_SK3() result(assertion); logical(LK) :: assertion; end function
453 : #endif
454 : #if SK2_ENABLED
455 : module function test_setRankFractional_D0_SK2() result(assertion); logical(LK) :: assertion; end function
456 : #endif
457 : #if SK1_ENABLED
458 : module function test_setRankFractional_D0_SK1() result(assertion); logical(LK) :: assertion; end function
459 : #endif
460 :
461 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
462 :
463 : #if SK5_ENABLED
464 : module function test_setRankFractional_D1_SK5() result(assertion); logical(LK) :: assertion; end function
465 : #endif
466 : #if SK4_ENABLED
467 : module function test_setRankFractional_D1_SK4() result(assertion); logical(LK) :: assertion; end function
468 : #endif
469 : #if SK3_ENABLED
470 : module function test_setRankFractional_D1_SK3() result(assertion); logical(LK) :: assertion; end function
471 : #endif
472 : #if SK2_ENABLED
473 : module function test_setRankFractional_D1_SK2() result(assertion); logical(LK) :: assertion; end function
474 : #endif
475 : #if SK1_ENABLED
476 : module function test_setRankFractional_D1_SK1() result(assertion); logical(LK) :: assertion; end function
477 : #endif
478 :
479 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
480 :
481 : #if IK5_ENABLED
482 : module function test_setRankFractional_D1_IK5() result(assertion); logical(LK) :: assertion; end function
483 : #endif
484 : #if IK4_ENABLED
485 : module function test_setRankFractional_D1_IK4() result(assertion); logical(LK) :: assertion; end function
486 : #endif
487 : #if IK3_ENABLED
488 : module function test_setRankFractional_D1_IK3() result(assertion); logical(LK) :: assertion; end function
489 : #endif
490 : #if IK2_ENABLED
491 : module function test_setRankFractional_D1_IK2() result(assertion); logical(LK) :: assertion; end function
492 : #endif
493 : #if IK1_ENABLED
494 : module function test_setRankFractional_D1_IK1() result(assertion); logical(LK) :: assertion; end function
495 : #endif
496 :
497 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
498 :
499 : #if LK5_ENABLED
500 : module function test_setRankFractional_D1_LK5() result(assertion); logical(LK) :: assertion; end function
501 : #endif
502 : #if LK4_ENABLED
503 : module function test_setRankFractional_D1_LK4() result(assertion); logical(LK) :: assertion; end function
504 : #endif
505 : #if LK3_ENABLED
506 : module function test_setRankFractional_D1_LK3() result(assertion); logical(LK) :: assertion; end function
507 : #endif
508 : #if LK2_ENABLED
509 : module function test_setRankFractional_D1_LK2() result(assertion); logical(LK) :: assertion; end function
510 : #endif
511 : #if LK1_ENABLED
512 : module function test_setRankFractional_D1_LK1() result(assertion); logical(LK) :: assertion; end function
513 : #endif
514 :
515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
516 :
517 : #if CK5_ENABLED
518 : module function test_setRankFractional_D1_CK5() result(assertion); logical(LK) :: assertion; end function
519 : #endif
520 : #if CK4_ENABLED
521 : module function test_setRankFractional_D1_CK4() result(assertion); logical(LK) :: assertion; end function
522 : #endif
523 : #if CK3_ENABLED
524 : module function test_setRankFractional_D1_CK3() result(assertion); logical(LK) :: assertion; end function
525 : #endif
526 : #if CK2_ENABLED
527 : module function test_setRankFractional_D1_CK2() result(assertion); logical(LK) :: assertion; end function
528 : #endif
529 : #if CK1_ENABLED
530 : module function test_setRankFractional_D1_CK1() result(assertion); logical(LK) :: assertion; end function
531 : #endif
532 :
533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
534 :
535 : #if RK5_ENABLED
536 : module function test_setRankFractional_D1_RK5() result(assertion); logical(LK) :: assertion; end function
537 : #endif
538 : #if RK4_ENABLED
539 : module function test_setRankFractional_D1_RK4() result(assertion); logical(LK) :: assertion; end function
540 : #endif
541 : #if RK3_ENABLED
542 : module function test_setRankFractional_D1_RK3() result(assertion); logical(LK) :: assertion; end function
543 : #endif
544 : #if RK2_ENABLED
545 : module function test_setRankFractional_D1_RK2() result(assertion); logical(LK) :: assertion; end function
546 : #endif
547 : #if RK1_ENABLED
548 : module function test_setRankFractional_D1_RK1() result(assertion); logical(LK) :: assertion; end function
549 : #endif
550 :
551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
552 :
553 : #if SK5_ENABLED
554 : module function test_setRankFractional_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
555 : #endif
556 : #if SK4_ENABLED
557 : module function test_setRankFractional_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
558 : #endif
559 : #if SK3_ENABLED
560 : module function test_setRankFractional_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
561 : #endif
562 : #if SK2_ENABLED
563 : module function test_setRankFractional_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
564 : #endif
565 : #if SK1_ENABLED
566 : module function test_setRankFractional_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
567 : #endif
568 :
569 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
570 :
571 : end interface
572 :
573 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
574 :
575 : interface
576 :
577 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
578 :
579 : #if SK5_ENABLED
580 : module function test_getRankModified_D0_SK5() result(assertion); logical(LK) :: assertion; end function
581 : #endif
582 : #if SK4_ENABLED
583 : module function test_getRankModified_D0_SK4() result(assertion); logical(LK) :: assertion; end function
584 : #endif
585 : #if SK3_ENABLED
586 : module function test_getRankModified_D0_SK3() result(assertion); logical(LK) :: assertion; end function
587 : #endif
588 : #if SK2_ENABLED
589 : module function test_getRankModified_D0_SK2() result(assertion); logical(LK) :: assertion; end function
590 : #endif
591 : #if SK1_ENABLED
592 : module function test_getRankModified_D0_SK1() result(assertion); logical(LK) :: assertion; end function
593 : #endif
594 :
595 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
596 :
597 : #if SK5_ENABLED
598 : module function test_getRankModified_D1_SK5() result(assertion); logical(LK) :: assertion; end function
599 : #endif
600 : #if SK4_ENABLED
601 : module function test_getRankModified_D1_SK4() result(assertion); logical(LK) :: assertion; end function
602 : #endif
603 : #if SK3_ENABLED
604 : module function test_getRankModified_D1_SK3() result(assertion); logical(LK) :: assertion; end function
605 : #endif
606 : #if SK2_ENABLED
607 : module function test_getRankModified_D1_SK2() result(assertion); logical(LK) :: assertion; end function
608 : #endif
609 : #if SK1_ENABLED
610 : module function test_getRankModified_D1_SK1() result(assertion); logical(LK) :: assertion; end function
611 : #endif
612 :
613 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
614 :
615 : #if IK5_ENABLED
616 : module function test_getRankModified_D1_IK5() result(assertion); logical(LK) :: assertion; end function
617 : #endif
618 : #if IK4_ENABLED
619 : module function test_getRankModified_D1_IK4() result(assertion); logical(LK) :: assertion; end function
620 : #endif
621 : #if IK3_ENABLED
622 : module function test_getRankModified_D1_IK3() result(assertion); logical(LK) :: assertion; end function
623 : #endif
624 : #if IK2_ENABLED
625 : module function test_getRankModified_D1_IK2() result(assertion); logical(LK) :: assertion; end function
626 : #endif
627 : #if IK1_ENABLED
628 : module function test_getRankModified_D1_IK1() result(assertion); logical(LK) :: assertion; end function
629 : #endif
630 :
631 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
632 :
633 : #if LK5_ENABLED
634 : module function test_getRankModified_D1_LK5() result(assertion); logical(LK) :: assertion; end function
635 : #endif
636 : #if LK4_ENABLED
637 : module function test_getRankModified_D1_LK4() result(assertion); logical(LK) :: assertion; end function
638 : #endif
639 : #if LK3_ENABLED
640 : module function test_getRankModified_D1_LK3() result(assertion); logical(LK) :: assertion; end function
641 : #endif
642 : #if LK2_ENABLED
643 : module function test_getRankModified_D1_LK2() result(assertion); logical(LK) :: assertion; end function
644 : #endif
645 : #if LK1_ENABLED
646 : module function test_getRankModified_D1_LK1() result(assertion); logical(LK) :: assertion; end function
647 : #endif
648 :
649 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
650 :
651 : #if CK5_ENABLED
652 : module function test_getRankModified_D1_CK5() result(assertion); logical(LK) :: assertion; end function
653 : #endif
654 : #if CK4_ENABLED
655 : module function test_getRankModified_D1_CK4() result(assertion); logical(LK) :: assertion; end function
656 : #endif
657 : #if CK3_ENABLED
658 : module function test_getRankModified_D1_CK3() result(assertion); logical(LK) :: assertion; end function
659 : #endif
660 : #if CK2_ENABLED
661 : module function test_getRankModified_D1_CK2() result(assertion); logical(LK) :: assertion; end function
662 : #endif
663 : #if CK1_ENABLED
664 : module function test_getRankModified_D1_CK1() result(assertion); logical(LK) :: assertion; end function
665 : #endif
666 :
667 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
668 :
669 : #if RK5_ENABLED
670 : module function test_getRankModified_D1_RK5() result(assertion); logical(LK) :: assertion; end function
671 : #endif
672 : #if RK4_ENABLED
673 : module function test_getRankModified_D1_RK4() result(assertion); logical(LK) :: assertion; end function
674 : #endif
675 : #if RK3_ENABLED
676 : module function test_getRankModified_D1_RK3() result(assertion); logical(LK) :: assertion; end function
677 : #endif
678 : #if RK2_ENABLED
679 : module function test_getRankModified_D1_RK2() result(assertion); logical(LK) :: assertion; end function
680 : #endif
681 : #if RK1_ENABLED
682 : module function test_getRankModified_D1_RK1() result(assertion); logical(LK) :: assertion; end function
683 : #endif
684 :
685 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
686 :
687 : #if SK5_ENABLED
688 : module function test_getRankModified_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
689 : #endif
690 : #if SK4_ENABLED
691 : module function test_getRankModified_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
692 : #endif
693 : #if SK3_ENABLED
694 : module function test_getRankModified_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
695 : #endif
696 : #if SK2_ENABLED
697 : module function test_getRankModified_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
698 : #endif
699 : #if SK1_ENABLED
700 : module function test_getRankModified_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
701 : #endif
702 :
703 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
704 :
705 : end interface
706 :
707 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
708 :
709 : interface
710 :
711 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
712 :
713 : #if SK5_ENABLED
714 : module function test_setRankModified_D0_SK5() result(assertion); logical(LK) :: assertion; end function
715 : #endif
716 : #if SK4_ENABLED
717 : module function test_setRankModified_D0_SK4() result(assertion); logical(LK) :: assertion; end function
718 : #endif
719 : #if SK3_ENABLED
720 : module function test_setRankModified_D0_SK3() result(assertion); logical(LK) :: assertion; end function
721 : #endif
722 : #if SK2_ENABLED
723 : module function test_setRankModified_D0_SK2() result(assertion); logical(LK) :: assertion; end function
724 : #endif
725 : #if SK1_ENABLED
726 : module function test_setRankModified_D0_SK1() result(assertion); logical(LK) :: assertion; end function
727 : #endif
728 :
729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
730 :
731 : #if SK5_ENABLED
732 : module function test_setRankModified_D1_SK5() result(assertion); logical(LK) :: assertion; end function
733 : #endif
734 : #if SK4_ENABLED
735 : module function test_setRankModified_D1_SK4() result(assertion); logical(LK) :: assertion; end function
736 : #endif
737 : #if SK3_ENABLED
738 : module function test_setRankModified_D1_SK3() result(assertion); logical(LK) :: assertion; end function
739 : #endif
740 : #if SK2_ENABLED
741 : module function test_setRankModified_D1_SK2() result(assertion); logical(LK) :: assertion; end function
742 : #endif
743 : #if SK1_ENABLED
744 : module function test_setRankModified_D1_SK1() result(assertion); logical(LK) :: assertion; end function
745 : #endif
746 :
747 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
748 :
749 : #if IK5_ENABLED
750 : module function test_setRankModified_D1_IK5() result(assertion); logical(LK) :: assertion; end function
751 : #endif
752 : #if IK4_ENABLED
753 : module function test_setRankModified_D1_IK4() result(assertion); logical(LK) :: assertion; end function
754 : #endif
755 : #if IK3_ENABLED
756 : module function test_setRankModified_D1_IK3() result(assertion); logical(LK) :: assertion; end function
757 : #endif
758 : #if IK2_ENABLED
759 : module function test_setRankModified_D1_IK2() result(assertion); logical(LK) :: assertion; end function
760 : #endif
761 : #if IK1_ENABLED
762 : module function test_setRankModified_D1_IK1() result(assertion); logical(LK) :: assertion; end function
763 : #endif
764 :
765 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
766 :
767 : #if LK5_ENABLED
768 : module function test_setRankModified_D1_LK5() result(assertion); logical(LK) :: assertion; end function
769 : #endif
770 : #if LK4_ENABLED
771 : module function test_setRankModified_D1_LK4() result(assertion); logical(LK) :: assertion; end function
772 : #endif
773 : #if LK3_ENABLED
774 : module function test_setRankModified_D1_LK3() result(assertion); logical(LK) :: assertion; end function
775 : #endif
776 : #if LK2_ENABLED
777 : module function test_setRankModified_D1_LK2() result(assertion); logical(LK) :: assertion; end function
778 : #endif
779 : #if LK1_ENABLED
780 : module function test_setRankModified_D1_LK1() result(assertion); logical(LK) :: assertion; end function
781 : #endif
782 :
783 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
784 :
785 : #if CK5_ENABLED
786 : module function test_setRankModified_D1_CK5() result(assertion); logical(LK) :: assertion; end function
787 : #endif
788 : #if CK4_ENABLED
789 : module function test_setRankModified_D1_CK4() result(assertion); logical(LK) :: assertion; end function
790 : #endif
791 : #if CK3_ENABLED
792 : module function test_setRankModified_D1_CK3() result(assertion); logical(LK) :: assertion; end function
793 : #endif
794 : #if CK2_ENABLED
795 : module function test_setRankModified_D1_CK2() result(assertion); logical(LK) :: assertion; end function
796 : #endif
797 : #if CK1_ENABLED
798 : module function test_setRankModified_D1_CK1() result(assertion); logical(LK) :: assertion; end function
799 : #endif
800 :
801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
802 :
803 : #if RK5_ENABLED
804 : module function test_setRankModified_D1_RK5() result(assertion); logical(LK) :: assertion; end function
805 : #endif
806 : #if RK4_ENABLED
807 : module function test_setRankModified_D1_RK4() result(assertion); logical(LK) :: assertion; end function
808 : #endif
809 : #if RK3_ENABLED
810 : module function test_setRankModified_D1_RK3() result(assertion); logical(LK) :: assertion; end function
811 : #endif
812 : #if RK2_ENABLED
813 : module function test_setRankModified_D1_RK2() result(assertion); logical(LK) :: assertion; end function
814 : #endif
815 : #if RK1_ENABLED
816 : module function test_setRankModified_D1_RK1() result(assertion); logical(LK) :: assertion; end function
817 : #endif
818 :
819 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
820 :
821 : #if SK5_ENABLED
822 : module function test_setRankModified_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
823 : #endif
824 : #if SK4_ENABLED
825 : module function test_setRankModified_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
826 : #endif
827 : #if SK3_ENABLED
828 : module function test_setRankModified_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
829 : #endif
830 : #if SK2_ENABLED
831 : module function test_setRankModified_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
832 : #endif
833 : #if SK1_ENABLED
834 : module function test_setRankModified_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
835 : #endif
836 :
837 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
838 :
839 : end interface
840 :
841 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
842 :
843 : interface
844 :
845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
846 :
847 : #if SK5_ENABLED
848 : module function test_getRankOrdinal_D0_SK5() result(assertion); logical(LK) :: assertion; end function
849 : #endif
850 : #if SK4_ENABLED
851 : module function test_getRankOrdinal_D0_SK4() result(assertion); logical(LK) :: assertion; end function
852 : #endif
853 : #if SK3_ENABLED
854 : module function test_getRankOrdinal_D0_SK3() result(assertion); logical(LK) :: assertion; end function
855 : #endif
856 : #if SK2_ENABLED
857 : module function test_getRankOrdinal_D0_SK2() result(assertion); logical(LK) :: assertion; end function
858 : #endif
859 : #if SK1_ENABLED
860 : module function test_getRankOrdinal_D0_SK1() result(assertion); logical(LK) :: assertion; end function
861 : #endif
862 :
863 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
864 :
865 : #if SK5_ENABLED
866 : module function test_getRankOrdinal_D1_SK5() result(assertion); logical(LK) :: assertion; end function
867 : #endif
868 : #if SK4_ENABLED
869 : module function test_getRankOrdinal_D1_SK4() result(assertion); logical(LK) :: assertion; end function
870 : #endif
871 : #if SK3_ENABLED
872 : module function test_getRankOrdinal_D1_SK3() result(assertion); logical(LK) :: assertion; end function
873 : #endif
874 : #if SK2_ENABLED
875 : module function test_getRankOrdinal_D1_SK2() result(assertion); logical(LK) :: assertion; end function
876 : #endif
877 : #if SK1_ENABLED
878 : module function test_getRankOrdinal_D1_SK1() result(assertion); logical(LK) :: assertion; end function
879 : #endif
880 :
881 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
882 :
883 : #if IK5_ENABLED
884 : module function test_getRankOrdinal_D1_IK5() result(assertion); logical(LK) :: assertion; end function
885 : #endif
886 : #if IK4_ENABLED
887 : module function test_getRankOrdinal_D1_IK4() result(assertion); logical(LK) :: assertion; end function
888 : #endif
889 : #if IK3_ENABLED
890 : module function test_getRankOrdinal_D1_IK3() result(assertion); logical(LK) :: assertion; end function
891 : #endif
892 : #if IK2_ENABLED
893 : module function test_getRankOrdinal_D1_IK2() result(assertion); logical(LK) :: assertion; end function
894 : #endif
895 : #if IK1_ENABLED
896 : module function test_getRankOrdinal_D1_IK1() result(assertion); logical(LK) :: assertion; end function
897 : #endif
898 :
899 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
900 :
901 : #if LK5_ENABLED
902 : module function test_getRankOrdinal_D1_LK5() result(assertion); logical(LK) :: assertion; end function
903 : #endif
904 : #if LK4_ENABLED
905 : module function test_getRankOrdinal_D1_LK4() result(assertion); logical(LK) :: assertion; end function
906 : #endif
907 : #if LK3_ENABLED
908 : module function test_getRankOrdinal_D1_LK3() result(assertion); logical(LK) :: assertion; end function
909 : #endif
910 : #if LK2_ENABLED
911 : module function test_getRankOrdinal_D1_LK2() result(assertion); logical(LK) :: assertion; end function
912 : #endif
913 : #if LK1_ENABLED
914 : module function test_getRankOrdinal_D1_LK1() result(assertion); logical(LK) :: assertion; end function
915 : #endif
916 :
917 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
918 :
919 : #if CK5_ENABLED
920 : module function test_getRankOrdinal_D1_CK5() result(assertion); logical(LK) :: assertion; end function
921 : #endif
922 : #if CK4_ENABLED
923 : module function test_getRankOrdinal_D1_CK4() result(assertion); logical(LK) :: assertion; end function
924 : #endif
925 : #if CK3_ENABLED
926 : module function test_getRankOrdinal_D1_CK3() result(assertion); logical(LK) :: assertion; end function
927 : #endif
928 : #if CK2_ENABLED
929 : module function test_getRankOrdinal_D1_CK2() result(assertion); logical(LK) :: assertion; end function
930 : #endif
931 : #if CK1_ENABLED
932 : module function test_getRankOrdinal_D1_CK1() result(assertion); logical(LK) :: assertion; end function
933 : #endif
934 :
935 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
936 :
937 : #if RK5_ENABLED
938 : module function test_getRankOrdinal_D1_RK5() result(assertion); logical(LK) :: assertion; end function
939 : #endif
940 : #if RK4_ENABLED
941 : module function test_getRankOrdinal_D1_RK4() result(assertion); logical(LK) :: assertion; end function
942 : #endif
943 : #if RK3_ENABLED
944 : module function test_getRankOrdinal_D1_RK3() result(assertion); logical(LK) :: assertion; end function
945 : #endif
946 : #if RK2_ENABLED
947 : module function test_getRankOrdinal_D1_RK2() result(assertion); logical(LK) :: assertion; end function
948 : #endif
949 : #if RK1_ENABLED
950 : module function test_getRankOrdinal_D1_RK1() result(assertion); logical(LK) :: assertion; end function
951 : #endif
952 :
953 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
954 :
955 : #if SK5_ENABLED
956 : module function test_getRankOrdinal_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
957 : #endif
958 : #if SK4_ENABLED
959 : module function test_getRankOrdinal_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
960 : #endif
961 : #if SK3_ENABLED
962 : module function test_getRankOrdinal_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
963 : #endif
964 : #if SK2_ENABLED
965 : module function test_getRankOrdinal_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
966 : #endif
967 : #if SK1_ENABLED
968 : module function test_getRankOrdinal_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
969 : #endif
970 :
971 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
972 :
973 : end interface
974 :
975 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
976 :
977 : interface
978 :
979 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
980 :
981 : #if SK5_ENABLED
982 : module function test_setRankOrdinal_D0_SK5() result(assertion); logical(LK) :: assertion; end function
983 : #endif
984 : #if SK4_ENABLED
985 : module function test_setRankOrdinal_D0_SK4() result(assertion); logical(LK) :: assertion; end function
986 : #endif
987 : #if SK3_ENABLED
988 : module function test_setRankOrdinal_D0_SK3() result(assertion); logical(LK) :: assertion; end function
989 : #endif
990 : #if SK2_ENABLED
991 : module function test_setRankOrdinal_D0_SK2() result(assertion); logical(LK) :: assertion; end function
992 : #endif
993 : #if SK1_ENABLED
994 : module function test_setRankOrdinal_D0_SK1() result(assertion); logical(LK) :: assertion; end function
995 : #endif
996 :
997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
998 :
999 : #if SK5_ENABLED
1000 : module function test_setRankOrdinal_D1_SK5() result(assertion); logical(LK) :: assertion; end function
1001 : #endif
1002 : #if SK4_ENABLED
1003 : module function test_setRankOrdinal_D1_SK4() result(assertion); logical(LK) :: assertion; end function
1004 : #endif
1005 : #if SK3_ENABLED
1006 : module function test_setRankOrdinal_D1_SK3() result(assertion); logical(LK) :: assertion; end function
1007 : #endif
1008 : #if SK2_ENABLED
1009 : module function test_setRankOrdinal_D1_SK2() result(assertion); logical(LK) :: assertion; end function
1010 : #endif
1011 : #if SK1_ENABLED
1012 : module function test_setRankOrdinal_D1_SK1() result(assertion); logical(LK) :: assertion; end function
1013 : #endif
1014 :
1015 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1016 :
1017 : #if IK5_ENABLED
1018 : module function test_setRankOrdinal_D1_IK5() result(assertion); logical(LK) :: assertion; end function
1019 : #endif
1020 : #if IK4_ENABLED
1021 : module function test_setRankOrdinal_D1_IK4() result(assertion); logical(LK) :: assertion; end function
1022 : #endif
1023 : #if IK3_ENABLED
1024 : module function test_setRankOrdinal_D1_IK3() result(assertion); logical(LK) :: assertion; end function
1025 : #endif
1026 : #if IK2_ENABLED
1027 : module function test_setRankOrdinal_D1_IK2() result(assertion); logical(LK) :: assertion; end function
1028 : #endif
1029 : #if IK1_ENABLED
1030 : module function test_setRankOrdinal_D1_IK1() result(assertion); logical(LK) :: assertion; end function
1031 : #endif
1032 :
1033 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1034 :
1035 : #if LK5_ENABLED
1036 : module function test_setRankOrdinal_D1_LK5() result(assertion); logical(LK) :: assertion; end function
1037 : #endif
1038 : #if LK4_ENABLED
1039 : module function test_setRankOrdinal_D1_LK4() result(assertion); logical(LK) :: assertion; end function
1040 : #endif
1041 : #if LK3_ENABLED
1042 : module function test_setRankOrdinal_D1_LK3() result(assertion); logical(LK) :: assertion; end function
1043 : #endif
1044 : #if LK2_ENABLED
1045 : module function test_setRankOrdinal_D1_LK2() result(assertion); logical(LK) :: assertion; end function
1046 : #endif
1047 : #if LK1_ENABLED
1048 : module function test_setRankOrdinal_D1_LK1() result(assertion); logical(LK) :: assertion; end function
1049 : #endif
1050 :
1051 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1052 :
1053 : #if CK5_ENABLED
1054 : module function test_setRankOrdinal_D1_CK5() result(assertion); logical(LK) :: assertion; end function
1055 : #endif
1056 : #if CK4_ENABLED
1057 : module function test_setRankOrdinal_D1_CK4() result(assertion); logical(LK) :: assertion; end function
1058 : #endif
1059 : #if CK3_ENABLED
1060 : module function test_setRankOrdinal_D1_CK3() result(assertion); logical(LK) :: assertion; end function
1061 : #endif
1062 : #if CK2_ENABLED
1063 : module function test_setRankOrdinal_D1_CK2() result(assertion); logical(LK) :: assertion; end function
1064 : #endif
1065 : #if CK1_ENABLED
1066 : module function test_setRankOrdinal_D1_CK1() result(assertion); logical(LK) :: assertion; end function
1067 : #endif
1068 :
1069 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1070 :
1071 : #if RK5_ENABLED
1072 : module function test_setRankOrdinal_D1_RK5() result(assertion); logical(LK) :: assertion; end function
1073 : #endif
1074 : #if RK4_ENABLED
1075 : module function test_setRankOrdinal_D1_RK4() result(assertion); logical(LK) :: assertion; end function
1076 : #endif
1077 : #if RK3_ENABLED
1078 : module function test_setRankOrdinal_D1_RK3() result(assertion); logical(LK) :: assertion; end function
1079 : #endif
1080 : #if RK2_ENABLED
1081 : module function test_setRankOrdinal_D1_RK2() result(assertion); logical(LK) :: assertion; end function
1082 : #endif
1083 : #if RK1_ENABLED
1084 : module function test_setRankOrdinal_D1_RK1() result(assertion); logical(LK) :: assertion; end function
1085 : #endif
1086 :
1087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1088 :
1089 : #if SK5_ENABLED
1090 : module function test_setRankOrdinal_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
1091 : #endif
1092 : #if SK4_ENABLED
1093 : module function test_setRankOrdinal_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
1094 : #endif
1095 : #if SK3_ENABLED
1096 : module function test_setRankOrdinal_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
1097 : #endif
1098 : #if SK2_ENABLED
1099 : module function test_setRankOrdinal_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
1100 : #endif
1101 : #if SK1_ENABLED
1102 : module function test_setRankOrdinal_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
1103 : #endif
1104 :
1105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1106 :
1107 : end interface
1108 :
1109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1110 :
1111 : interface
1112 :
1113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1114 :
1115 : #if SK5_ENABLED
1116 : module function test_getRankStandard_D0_SK5() result(assertion); logical(LK) :: assertion; end function
1117 : #endif
1118 : #if SK4_ENABLED
1119 : module function test_getRankStandard_D0_SK4() result(assertion); logical(LK) :: assertion; end function
1120 : #endif
1121 : #if SK3_ENABLED
1122 : module function test_getRankStandard_D0_SK3() result(assertion); logical(LK) :: assertion; end function
1123 : #endif
1124 : #if SK2_ENABLED
1125 : module function test_getRankStandard_D0_SK2() result(assertion); logical(LK) :: assertion; end function
1126 : #endif
1127 : #if SK1_ENABLED
1128 : module function test_getRankStandard_D0_SK1() result(assertion); logical(LK) :: assertion; end function
1129 : #endif
1130 :
1131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1132 :
1133 : #if SK5_ENABLED
1134 : module function test_getRankStandard_D1_SK5() result(assertion); logical(LK) :: assertion; end function
1135 : #endif
1136 : #if SK4_ENABLED
1137 : module function test_getRankStandard_D1_SK4() result(assertion); logical(LK) :: assertion; end function
1138 : #endif
1139 : #if SK3_ENABLED
1140 : module function test_getRankStandard_D1_SK3() result(assertion); logical(LK) :: assertion; end function
1141 : #endif
1142 : #if SK2_ENABLED
1143 : module function test_getRankStandard_D1_SK2() result(assertion); logical(LK) :: assertion; end function
1144 : #endif
1145 : #if SK1_ENABLED
1146 : module function test_getRankStandard_D1_SK1() result(assertion); logical(LK) :: assertion; end function
1147 : #endif
1148 :
1149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1150 :
1151 : #if IK5_ENABLED
1152 : module function test_getRankStandard_D1_IK5() result(assertion); logical(LK) :: assertion; end function
1153 : #endif
1154 : #if IK4_ENABLED
1155 : module function test_getRankStandard_D1_IK4() result(assertion); logical(LK) :: assertion; end function
1156 : #endif
1157 : #if IK3_ENABLED
1158 : module function test_getRankStandard_D1_IK3() result(assertion); logical(LK) :: assertion; end function
1159 : #endif
1160 : #if IK2_ENABLED
1161 : module function test_getRankStandard_D1_IK2() result(assertion); logical(LK) :: assertion; end function
1162 : #endif
1163 : #if IK1_ENABLED
1164 : module function test_getRankStandard_D1_IK1() result(assertion); logical(LK) :: assertion; end function
1165 : #endif
1166 :
1167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1168 :
1169 : #if LK5_ENABLED
1170 : module function test_getRankStandard_D1_LK5() result(assertion); logical(LK) :: assertion; end function
1171 : #endif
1172 : #if LK4_ENABLED
1173 : module function test_getRankStandard_D1_LK4() result(assertion); logical(LK) :: assertion; end function
1174 : #endif
1175 : #if LK3_ENABLED
1176 : module function test_getRankStandard_D1_LK3() result(assertion); logical(LK) :: assertion; end function
1177 : #endif
1178 : #if LK2_ENABLED
1179 : module function test_getRankStandard_D1_LK2() result(assertion); logical(LK) :: assertion; end function
1180 : #endif
1181 : #if LK1_ENABLED
1182 : module function test_getRankStandard_D1_LK1() result(assertion); logical(LK) :: assertion; end function
1183 : #endif
1184 :
1185 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1186 :
1187 : #if CK5_ENABLED
1188 : module function test_getRankStandard_D1_CK5() result(assertion); logical(LK) :: assertion; end function
1189 : #endif
1190 : #if CK4_ENABLED
1191 : module function test_getRankStandard_D1_CK4() result(assertion); logical(LK) :: assertion; end function
1192 : #endif
1193 : #if CK3_ENABLED
1194 : module function test_getRankStandard_D1_CK3() result(assertion); logical(LK) :: assertion; end function
1195 : #endif
1196 : #if CK2_ENABLED
1197 : module function test_getRankStandard_D1_CK2() result(assertion); logical(LK) :: assertion; end function
1198 : #endif
1199 : #if CK1_ENABLED
1200 : module function test_getRankStandard_D1_CK1() result(assertion); logical(LK) :: assertion; end function
1201 : #endif
1202 :
1203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1204 :
1205 : #if RK5_ENABLED
1206 : module function test_getRankStandard_D1_RK5() result(assertion); logical(LK) :: assertion; end function
1207 : #endif
1208 : #if RK4_ENABLED
1209 : module function test_getRankStandard_D1_RK4() result(assertion); logical(LK) :: assertion; end function
1210 : #endif
1211 : #if RK3_ENABLED
1212 : module function test_getRankStandard_D1_RK3() result(assertion); logical(LK) :: assertion; end function
1213 : #endif
1214 : #if RK2_ENABLED
1215 : module function test_getRankStandard_D1_RK2() result(assertion); logical(LK) :: assertion; end function
1216 : #endif
1217 : #if RK1_ENABLED
1218 : module function test_getRankStandard_D1_RK1() result(assertion); logical(LK) :: assertion; end function
1219 : #endif
1220 :
1221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1222 :
1223 : #if SK5_ENABLED
1224 : module function test_getRankStandard_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
1225 : #endif
1226 : #if SK4_ENABLED
1227 : module function test_getRankStandard_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
1228 : #endif
1229 : #if SK3_ENABLED
1230 : module function test_getRankStandard_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
1231 : #endif
1232 : #if SK2_ENABLED
1233 : module function test_getRankStandard_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
1234 : #endif
1235 : #if SK1_ENABLED
1236 : module function test_getRankStandard_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
1237 : #endif
1238 :
1239 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1240 :
1241 : end interface
1242 :
1243 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1244 :
1245 : interface
1246 :
1247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1248 :
1249 : #if SK5_ENABLED
1250 : module function test_setRankStandard_D0_SK5() result(assertion); logical(LK) :: assertion; end function
1251 : #endif
1252 : #if SK4_ENABLED
1253 : module function test_setRankStandard_D0_SK4() result(assertion); logical(LK) :: assertion; end function
1254 : #endif
1255 : #if SK3_ENABLED
1256 : module function test_setRankStandard_D0_SK3() result(assertion); logical(LK) :: assertion; end function
1257 : #endif
1258 : #if SK2_ENABLED
1259 : module function test_setRankStandard_D0_SK2() result(assertion); logical(LK) :: assertion; end function
1260 : #endif
1261 : #if SK1_ENABLED
1262 : module function test_setRankStandard_D0_SK1() result(assertion); logical(LK) :: assertion; end function
1263 : #endif
1264 :
1265 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1266 :
1267 : #if SK5_ENABLED
1268 : module function test_setRankStandard_D1_SK5() result(assertion); logical(LK) :: assertion; end function
1269 : #endif
1270 : #if SK4_ENABLED
1271 : module function test_setRankStandard_D1_SK4() result(assertion); logical(LK) :: assertion; end function
1272 : #endif
1273 : #if SK3_ENABLED
1274 : module function test_setRankStandard_D1_SK3() result(assertion); logical(LK) :: assertion; end function
1275 : #endif
1276 : #if SK2_ENABLED
1277 : module function test_setRankStandard_D1_SK2() result(assertion); logical(LK) :: assertion; end function
1278 : #endif
1279 : #if SK1_ENABLED
1280 : module function test_setRankStandard_D1_SK1() result(assertion); logical(LK) :: assertion; end function
1281 : #endif
1282 :
1283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1284 :
1285 : #if IK5_ENABLED
1286 : module function test_setRankStandard_D1_IK5() result(assertion); logical(LK) :: assertion; end function
1287 : #endif
1288 : #if IK4_ENABLED
1289 : module function test_setRankStandard_D1_IK4() result(assertion); logical(LK) :: assertion; end function
1290 : #endif
1291 : #if IK3_ENABLED
1292 : module function test_setRankStandard_D1_IK3() result(assertion); logical(LK) :: assertion; end function
1293 : #endif
1294 : #if IK2_ENABLED
1295 : module function test_setRankStandard_D1_IK2() result(assertion); logical(LK) :: assertion; end function
1296 : #endif
1297 : #if IK1_ENABLED
1298 : module function test_setRankStandard_D1_IK1() result(assertion); logical(LK) :: assertion; end function
1299 : #endif
1300 :
1301 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1302 :
1303 : #if LK5_ENABLED
1304 : module function test_setRankStandard_D1_LK5() result(assertion); logical(LK) :: assertion; end function
1305 : #endif
1306 : #if LK4_ENABLED
1307 : module function test_setRankStandard_D1_LK4() result(assertion); logical(LK) :: assertion; end function
1308 : #endif
1309 : #if LK3_ENABLED
1310 : module function test_setRankStandard_D1_LK3() result(assertion); logical(LK) :: assertion; end function
1311 : #endif
1312 : #if LK2_ENABLED
1313 : module function test_setRankStandard_D1_LK2() result(assertion); logical(LK) :: assertion; end function
1314 : #endif
1315 : #if LK1_ENABLED
1316 : module function test_setRankStandard_D1_LK1() result(assertion); logical(LK) :: assertion; end function
1317 : #endif
1318 :
1319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1320 :
1321 : #if CK5_ENABLED
1322 : module function test_setRankStandard_D1_CK5() result(assertion); logical(LK) :: assertion; end function
1323 : #endif
1324 : #if CK4_ENABLED
1325 : module function test_setRankStandard_D1_CK4() result(assertion); logical(LK) :: assertion; end function
1326 : #endif
1327 : #if CK3_ENABLED
1328 : module function test_setRankStandard_D1_CK3() result(assertion); logical(LK) :: assertion; end function
1329 : #endif
1330 : #if CK2_ENABLED
1331 : module function test_setRankStandard_D1_CK2() result(assertion); logical(LK) :: assertion; end function
1332 : #endif
1333 : #if CK1_ENABLED
1334 : module function test_setRankStandard_D1_CK1() result(assertion); logical(LK) :: assertion; end function
1335 : #endif
1336 :
1337 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1338 :
1339 : #if RK5_ENABLED
1340 : module function test_setRankStandard_D1_RK5() result(assertion); logical(LK) :: assertion; end function
1341 : #endif
1342 : #if RK4_ENABLED
1343 : module function test_setRankStandard_D1_RK4() result(assertion); logical(LK) :: assertion; end function
1344 : #endif
1345 : #if RK3_ENABLED
1346 : module function test_setRankStandard_D1_RK3() result(assertion); logical(LK) :: assertion; end function
1347 : #endif
1348 : #if RK2_ENABLED
1349 : module function test_setRankStandard_D1_RK2() result(assertion); logical(LK) :: assertion; end function
1350 : #endif
1351 : #if RK1_ENABLED
1352 : module function test_setRankStandard_D1_RK1() result(assertion); logical(LK) :: assertion; end function
1353 : #endif
1354 :
1355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1356 :
1357 : #if SK5_ENABLED
1358 : module function test_setRankStandard_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
1359 : #endif
1360 : #if SK4_ENABLED
1361 : module function test_setRankStandard_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
1362 : #endif
1363 : #if SK3_ENABLED
1364 : module function test_setRankStandard_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
1365 : #endif
1366 : #if SK2_ENABLED
1367 : module function test_setRankStandard_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
1368 : #endif
1369 : #if SK1_ENABLED
1370 : module function test_setRankStandard_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
1371 : #endif
1372 :
1373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1374 :
1375 : end interface
1376 :
1377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1378 :
1379 : contains
1380 :
1381 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1382 :
1383 1 : subroutine setTest()
1384 :
1385 1 : test = test_type(MODULE_NAME)
1386 :
1387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1388 :
1389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1392 :
1393 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1394 :
1395 : #if SK5_ENABLED
1396 : call test%run(test_getRankDense_D0_SK5, SK_"test_getRankDense_D0_SK5")
1397 : #endif
1398 : #if SK4_ENABLED
1399 : call test%run(test_getRankDense_D0_SK4, SK_"test_getRankDense_D0_SK4")
1400 : #endif
1401 : #if SK3_ENABLED
1402 : call test%run(test_getRankDense_D0_SK3, SK_"test_getRankDense_D0_SK3")
1403 : #endif
1404 : #if SK2_ENABLED
1405 : call test%run(test_getRankDense_D0_SK2, SK_"test_getRankDense_D0_SK2")
1406 : #endif
1407 : #if SK1_ENABLED
1408 1 : call test%run(test_getRankDense_D0_SK1, SK_"test_getRankDense_D0_SK1")
1409 : #endif
1410 :
1411 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1412 :
1413 : #if SK5_ENABLED
1414 : call test%run(test_getRankDense_D1_SK5, SK_"test_getRankDense_D1_SK5")
1415 : #endif
1416 : #if SK4_ENABLED
1417 : call test%run(test_getRankDense_D1_SK4, SK_"test_getRankDense_D1_SK4")
1418 : #endif
1419 : #if SK3_ENABLED
1420 : call test%run(test_getRankDense_D1_SK3, SK_"test_getRankDense_D1_SK3")
1421 : #endif
1422 : #if SK2_ENABLED
1423 : call test%run(test_getRankDense_D1_SK2, SK_"test_getRankDense_D1_SK2")
1424 : #endif
1425 : #if SK1_ENABLED
1426 1 : call test%run(test_getRankDense_D1_SK1, SK_"test_getRankDense_D1_SK1")
1427 : #endif
1428 :
1429 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1430 :
1431 : #if IK5_ENABLED
1432 1 : call test%run(test_getRankDense_D1_IK5, SK_"test_getRankDense_D1_IK5")
1433 : #endif
1434 : #if IK4_ENABLED
1435 1 : call test%run(test_getRankDense_D1_IK4, SK_"test_getRankDense_D1_IK4")
1436 : #endif
1437 : #if IK3_ENABLED
1438 1 : call test%run(test_getRankDense_D1_IK3, SK_"test_getRankDense_D1_IK3")
1439 : #endif
1440 : #if IK2_ENABLED
1441 1 : call test%run(test_getRankDense_D1_IK2, SK_"test_getRankDense_D1_IK2")
1442 : #endif
1443 : #if IK1_ENABLED
1444 1 : call test%run(test_getRankDense_D1_IK1, SK_"test_getRankDense_D1_IK1")
1445 : #endif
1446 :
1447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1448 :
1449 : #if LK5_ENABLED
1450 1 : call test%run(test_getRankDense_D1_LK5, SK_"test_getRankDense_D1_LK5")
1451 : #endif
1452 : #if LK4_ENABLED
1453 1 : call test%run(test_getRankDense_D1_LK4, SK_"test_getRankDense_D1_LK4")
1454 : #endif
1455 : #if LK3_ENABLED
1456 1 : call test%run(test_getRankDense_D1_LK3, SK_"test_getRankDense_D1_LK3")
1457 : #endif
1458 : #if LK2_ENABLED
1459 1 : call test%run(test_getRankDense_D1_LK2, SK_"test_getRankDense_D1_LK2")
1460 : #endif
1461 : #if LK1_ENABLED
1462 1 : call test%run(test_getRankDense_D1_LK1, SK_"test_getRankDense_D1_LK1")
1463 : #endif
1464 :
1465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1466 :
1467 : #if CK5_ENABLED
1468 : call test%run(test_getRankDense_D1_CK5, SK_"test_getRankDense_D1_CK5")
1469 : #endif
1470 : #if CK4_ENABLED
1471 1 : call test%run(test_getRankDense_D1_CK4, SK_"test_getRankDense_D1_CK4")
1472 : #endif
1473 : #if CK3_ENABLED
1474 1 : call test%run(test_getRankDense_D1_CK3, SK_"test_getRankDense_D1_CK3")
1475 : #endif
1476 : #if CK2_ENABLED
1477 1 : call test%run(test_getRankDense_D1_CK2, SK_"test_getRankDense_D1_CK2")
1478 : #endif
1479 : #if CK1_ENABLED
1480 1 : call test%run(test_getRankDense_D1_CK1, SK_"test_getRankDense_D1_CK1")
1481 : #endif
1482 :
1483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1484 :
1485 : #if RK5_ENABLED
1486 : call test%run(test_getRankDense_D1_RK5, SK_"test_getRankDense_D1_RK5")
1487 : #endif
1488 : #if RK4_ENABLED
1489 1 : call test%run(test_getRankDense_D1_RK4, SK_"test_getRankDense_D1_RK4")
1490 : #endif
1491 : #if RK3_ENABLED
1492 1 : call test%run(test_getRankDense_D1_RK3, SK_"test_getRankDense_D1_RK3")
1493 : #endif
1494 : #if RK2_ENABLED
1495 1 : call test%run(test_getRankDense_D1_RK2, SK_"test_getRankDense_D1_RK2")
1496 : #endif
1497 : #if RK1_ENABLED
1498 1 : call test%run(test_getRankDense_D1_RK1, SK_"test_getRankDense_D1_RK1")
1499 : #endif
1500 :
1501 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1502 :
1503 : #if !__GFORTRAN__ && 0
1504 : #if SK5_ENABLED
1505 : call test%run(test_getRankDense_D1_PSSK5, SK_"test_getRankDense_D1_PSSK5")
1506 : #endif
1507 : #if SK4_ENABLED
1508 : call test%run(test_getRankDense_D1_PSSK4, SK_"test_getRankDense_D1_PSSK4")
1509 : #endif
1510 : #if SK3_ENABLED
1511 : call test%run(test_getRankDense_D1_PSSK3, SK_"test_getRankDense_D1_PSSK3")
1512 : #endif
1513 : #if SK2_ENABLED
1514 : call test%run(test_getRankDense_D1_PSSK2, SK_"test_getRankDense_D1_PSSK2")
1515 : #endif
1516 : #if SK1_ENABLED
1517 : call test%run(test_getRankDense_D1_PSSK1, SK_"test_getRankDense_D1_PSSK1")
1518 : #endif
1519 : #endif
1520 :
1521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1522 :
1523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1526 :
1527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1528 :
1529 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1532 :
1533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1534 :
1535 : #if SK5_ENABLED
1536 : call test%run(test_setRankDense_D0_SK5, SK_"test_setRankDense_D0_SK5")
1537 : #endif
1538 : #if SK4_ENABLED
1539 : call test%run(test_setRankDense_D0_SK4, SK_"test_setRankDense_D0_SK4")
1540 : #endif
1541 : #if SK3_ENABLED
1542 : call test%run(test_setRankDense_D0_SK3, SK_"test_setRankDense_D0_SK3")
1543 : #endif
1544 : #if SK2_ENABLED
1545 : call test%run(test_setRankDense_D0_SK2, SK_"test_setRankDense_D0_SK2")
1546 : #endif
1547 : #if SK1_ENABLED
1548 1 : call test%run(test_setRankDense_D0_SK1, SK_"test_setRankDense_D0_SK1")
1549 : #endif
1550 :
1551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1552 :
1553 : #if SK5_ENABLED
1554 : call test%run(test_setRankDense_D1_SK5, SK_"test_setRankDense_D1_SK5")
1555 : #endif
1556 : #if SK4_ENABLED
1557 : call test%run(test_setRankDense_D1_SK4, SK_"test_setRankDense_D1_SK4")
1558 : #endif
1559 : #if SK3_ENABLED
1560 : call test%run(test_setRankDense_D1_SK3, SK_"test_setRankDense_D1_SK3")
1561 : #endif
1562 : #if SK2_ENABLED
1563 : call test%run(test_setRankDense_D1_SK2, SK_"test_setRankDense_D1_SK2")
1564 : #endif
1565 : #if SK1_ENABLED
1566 1 : call test%run(test_setRankDense_D1_SK1, SK_"test_setRankDense_D1_SK1")
1567 : #endif
1568 :
1569 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1570 :
1571 : #if IK5_ENABLED
1572 1 : call test%run(test_setRankDense_D1_IK5, SK_"test_setRankDense_D1_IK5")
1573 : #endif
1574 : #if IK4_ENABLED
1575 1 : call test%run(test_setRankDense_D1_IK4, SK_"test_setRankDense_D1_IK4")
1576 : #endif
1577 : #if IK3_ENABLED
1578 1 : call test%run(test_setRankDense_D1_IK3, SK_"test_setRankDense_D1_IK3")
1579 : #endif
1580 : #if IK2_ENABLED
1581 1 : call test%run(test_setRankDense_D1_IK2, SK_"test_setRankDense_D1_IK2")
1582 : #endif
1583 : #if IK1_ENABLED
1584 1 : call test%run(test_setRankDense_D1_IK1, SK_"test_setRankDense_D1_IK1")
1585 : #endif
1586 :
1587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1588 :
1589 : #if LK5_ENABLED
1590 1 : call test%run(test_setRankDense_D1_LK5, SK_"test_setRankDense_D1_LK5")
1591 : #endif
1592 : #if LK4_ENABLED
1593 1 : call test%run(test_setRankDense_D1_LK4, SK_"test_setRankDense_D1_LK4")
1594 : #endif
1595 : #if LK3_ENABLED
1596 1 : call test%run(test_setRankDense_D1_LK3, SK_"test_setRankDense_D1_LK3")
1597 : #endif
1598 : #if LK2_ENABLED
1599 1 : call test%run(test_setRankDense_D1_LK2, SK_"test_setRankDense_D1_LK2")
1600 : #endif
1601 : #if LK1_ENABLED
1602 1 : call test%run(test_setRankDense_D1_LK1, SK_"test_setRankDense_D1_LK1")
1603 : #endif
1604 :
1605 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1606 :
1607 : #if CK5_ENABLED
1608 : call test%run(test_setRankDense_D1_CK5, SK_"test_setRankDense_D1_CK5")
1609 : #endif
1610 : #if CK4_ENABLED
1611 1 : call test%run(test_setRankDense_D1_CK4, SK_"test_setRankDense_D1_CK4")
1612 : #endif
1613 : #if CK3_ENABLED
1614 1 : call test%run(test_setRankDense_D1_CK3, SK_"test_setRankDense_D1_CK3")
1615 : #endif
1616 : #if CK2_ENABLED
1617 1 : call test%run(test_setRankDense_D1_CK2, SK_"test_setRankDense_D1_CK2")
1618 : #endif
1619 : #if CK1_ENABLED
1620 1 : call test%run(test_setRankDense_D1_CK1, SK_"test_setRankDense_D1_CK1")
1621 : #endif
1622 :
1623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1624 :
1625 : #if RK5_ENABLED
1626 : call test%run(test_setRankDense_D1_RK5, SK_"test_setRankDense_D1_RK5")
1627 : #endif
1628 : #if RK4_ENABLED
1629 1 : call test%run(test_setRankDense_D1_RK4, SK_"test_setRankDense_D1_RK4")
1630 : #endif
1631 : #if RK3_ENABLED
1632 1 : call test%run(test_setRankDense_D1_RK3, SK_"test_setRankDense_D1_RK3")
1633 : #endif
1634 : #if RK2_ENABLED
1635 1 : call test%run(test_setRankDense_D1_RK2, SK_"test_setRankDense_D1_RK2")
1636 : #endif
1637 : #if RK1_ENABLED
1638 1 : call test%run(test_setRankDense_D1_RK1, SK_"test_setRankDense_D1_RK1")
1639 : #endif
1640 :
1641 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1642 :
1643 : #if !__GFORTRAN__ && 0
1644 : #if SK5_ENABLED
1645 : call test%run(test_setRankDense_D1_PSSK5, SK_"test_setRankDense_D1_PSSK5")
1646 : #endif
1647 : #if SK4_ENABLED
1648 : call test%run(test_setRankDense_D1_PSSK4, SK_"test_setRankDense_D1_PSSK4")
1649 : #endif
1650 : #if SK3_ENABLED
1651 : call test%run(test_setRankDense_D1_PSSK3, SK_"test_setRankDense_D1_PSSK3")
1652 : #endif
1653 : #if SK2_ENABLED
1654 : call test%run(test_setRankDense_D1_PSSK2, SK_"test_setRankDense_D1_PSSK2")
1655 : #endif
1656 : #if SK1_ENABLED
1657 : call test%run(test_setRankDense_D1_PSSK1, SK_"test_setRankDense_D1_PSSK1")
1658 : #endif
1659 : #endif
1660 :
1661 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1662 :
1663 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1665 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1666 :
1667 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1668 :
1669 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1672 :
1673 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1674 :
1675 : #if SK5_ENABLED
1676 : call test%run(test_getRankFractional_D0_SK5, SK_"test_getRankFractional_D0_SK5")
1677 : #endif
1678 : #if SK4_ENABLED
1679 : call test%run(test_getRankFractional_D0_SK4, SK_"test_getRankFractional_D0_SK4")
1680 : #endif
1681 : #if SK3_ENABLED
1682 : call test%run(test_getRankFractional_D0_SK3, SK_"test_getRankFractional_D0_SK3")
1683 : #endif
1684 : #if SK2_ENABLED
1685 : call test%run(test_getRankFractional_D0_SK2, SK_"test_getRankFractional_D0_SK2")
1686 : #endif
1687 : #if SK1_ENABLED
1688 1 : call test%run(test_getRankFractional_D0_SK1, SK_"test_getRankFractional_D0_SK1")
1689 : #endif
1690 :
1691 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1692 :
1693 : #if SK5_ENABLED
1694 : call test%run(test_getRankFractional_D1_SK5, SK_"test_getRankFractional_D1_SK5")
1695 : #endif
1696 : #if SK4_ENABLED
1697 : call test%run(test_getRankFractional_D1_SK4, SK_"test_getRankFractional_D1_SK4")
1698 : #endif
1699 : #if SK3_ENABLED
1700 : call test%run(test_getRankFractional_D1_SK3, SK_"test_getRankFractional_D1_SK3")
1701 : #endif
1702 : #if SK2_ENABLED
1703 : call test%run(test_getRankFractional_D1_SK2, SK_"test_getRankFractional_D1_SK2")
1704 : #endif
1705 : #if SK1_ENABLED
1706 1 : call test%run(test_getRankFractional_D1_SK1, SK_"test_getRankFractional_D1_SK1")
1707 : #endif
1708 :
1709 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1710 :
1711 : #if IK5_ENABLED
1712 1 : call test%run(test_getRankFractional_D1_IK5, SK_"test_getRankFractional_D1_IK5")
1713 : #endif
1714 : #if IK4_ENABLED
1715 1 : call test%run(test_getRankFractional_D1_IK4, SK_"test_getRankFractional_D1_IK4")
1716 : #endif
1717 : #if IK3_ENABLED
1718 1 : call test%run(test_getRankFractional_D1_IK3, SK_"test_getRankFractional_D1_IK3")
1719 : #endif
1720 : #if IK2_ENABLED
1721 1 : call test%run(test_getRankFractional_D1_IK2, SK_"test_getRankFractional_D1_IK2")
1722 : #endif
1723 : #if IK1_ENABLED
1724 1 : call test%run(test_getRankFractional_D1_IK1, SK_"test_getRankFractional_D1_IK1")
1725 : #endif
1726 :
1727 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1728 :
1729 : #if LK5_ENABLED
1730 1 : call test%run(test_getRankFractional_D1_LK5, SK_"test_getRankFractional_D1_LK5")
1731 : #endif
1732 : #if LK4_ENABLED
1733 1 : call test%run(test_getRankFractional_D1_LK4, SK_"test_getRankFractional_D1_LK4")
1734 : #endif
1735 : #if LK3_ENABLED
1736 1 : call test%run(test_getRankFractional_D1_LK3, SK_"test_getRankFractional_D1_LK3")
1737 : #endif
1738 : #if LK2_ENABLED
1739 1 : call test%run(test_getRankFractional_D1_LK2, SK_"test_getRankFractional_D1_LK2")
1740 : #endif
1741 : #if LK1_ENABLED
1742 1 : call test%run(test_getRankFractional_D1_LK1, SK_"test_getRankFractional_D1_LK1")
1743 : #endif
1744 :
1745 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1746 :
1747 : #if CK5_ENABLED
1748 : call test%run(test_getRankFractional_D1_CK5, SK_"test_getRankFractional_D1_CK5")
1749 : #endif
1750 : #if CK4_ENABLED
1751 1 : call test%run(test_getRankFractional_D1_CK4, SK_"test_getRankFractional_D1_CK4")
1752 : #endif
1753 : #if CK3_ENABLED
1754 1 : call test%run(test_getRankFractional_D1_CK3, SK_"test_getRankFractional_D1_CK3")
1755 : #endif
1756 : #if CK2_ENABLED
1757 1 : call test%run(test_getRankFractional_D1_CK2, SK_"test_getRankFractional_D1_CK2")
1758 : #endif
1759 : #if CK1_ENABLED
1760 1 : call test%run(test_getRankFractional_D1_CK1, SK_"test_getRankFractional_D1_CK1")
1761 : #endif
1762 :
1763 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1764 :
1765 : #if RK5_ENABLED
1766 : call test%run(test_getRankFractional_D1_RK5, SK_"test_getRankFractional_D1_RK5")
1767 : #endif
1768 : #if RK4_ENABLED
1769 1 : call test%run(test_getRankFractional_D1_RK4, SK_"test_getRankFractional_D1_RK4")
1770 : #endif
1771 : #if RK3_ENABLED
1772 1 : call test%run(test_getRankFractional_D1_RK3, SK_"test_getRankFractional_D1_RK3")
1773 : #endif
1774 : #if RK2_ENABLED
1775 1 : call test%run(test_getRankFractional_D1_RK2, SK_"test_getRankFractional_D1_RK2")
1776 : #endif
1777 : #if RK1_ENABLED
1778 1 : call test%run(test_getRankFractional_D1_RK1, SK_"test_getRankFractional_D1_RK1")
1779 : #endif
1780 :
1781 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1782 :
1783 : #if !__GFORTRAN__ && 0
1784 : #if SK5_ENABLED
1785 : call test%run(test_getRankFractional_D1_PSSK5, SK_"test_getRankFractional_D1_PSSK5")
1786 : #endif
1787 : #if SK4_ENABLED
1788 : call test%run(test_getRankFractional_D1_PSSK4, SK_"test_getRankFractional_D1_PSSK4")
1789 : #endif
1790 : #if SK3_ENABLED
1791 : call test%run(test_getRankFractional_D1_PSSK3, SK_"test_getRankFractional_D1_PSSK3")
1792 : #endif
1793 : #if SK2_ENABLED
1794 : call test%run(test_getRankFractional_D1_PSSK2, SK_"test_getRankFractional_D1_PSSK2")
1795 : #endif
1796 : #if SK1_ENABLED
1797 : call test%run(test_getRankFractional_D1_PSSK1, SK_"test_getRankFractional_D1_PSSK1")
1798 : #endif
1799 : #endif
1800 :
1801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1802 :
1803 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1804 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1805 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1806 :
1807 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1808 :
1809 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1810 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1811 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1812 :
1813 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1814 :
1815 : #if SK5_ENABLED
1816 : call test%run(test_setRankFractional_D0_SK5, SK_"test_setRankFractional_D0_SK5")
1817 : #endif
1818 : #if SK4_ENABLED
1819 : call test%run(test_setRankFractional_D0_SK4, SK_"test_setRankFractional_D0_SK4")
1820 : #endif
1821 : #if SK3_ENABLED
1822 : call test%run(test_setRankFractional_D0_SK3, SK_"test_setRankFractional_D0_SK3")
1823 : #endif
1824 : #if SK2_ENABLED
1825 : call test%run(test_setRankFractional_D0_SK2, SK_"test_setRankFractional_D0_SK2")
1826 : #endif
1827 : #if SK1_ENABLED
1828 1 : call test%run(test_setRankFractional_D0_SK1, SK_"test_setRankFractional_D0_SK1")
1829 : #endif
1830 :
1831 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1832 :
1833 : #if SK5_ENABLED
1834 : call test%run(test_setRankFractional_D1_SK5, SK_"test_setRankFractional_D1_SK5")
1835 : #endif
1836 : #if SK4_ENABLED
1837 : call test%run(test_setRankFractional_D1_SK4, SK_"test_setRankFractional_D1_SK4")
1838 : #endif
1839 : #if SK3_ENABLED
1840 : call test%run(test_setRankFractional_D1_SK3, SK_"test_setRankFractional_D1_SK3")
1841 : #endif
1842 : #if SK2_ENABLED
1843 : call test%run(test_setRankFractional_D1_SK2, SK_"test_setRankFractional_D1_SK2")
1844 : #endif
1845 : #if SK1_ENABLED
1846 1 : call test%run(test_setRankFractional_D1_SK1, SK_"test_setRankFractional_D1_SK1")
1847 : #endif
1848 :
1849 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1850 :
1851 : #if IK5_ENABLED
1852 1 : call test%run(test_setRankFractional_D1_IK5, SK_"test_setRankFractional_D1_IK5")
1853 : #endif
1854 : #if IK4_ENABLED
1855 1 : call test%run(test_setRankFractional_D1_IK4, SK_"test_setRankFractional_D1_IK4")
1856 : #endif
1857 : #if IK3_ENABLED
1858 1 : call test%run(test_setRankFractional_D1_IK3, SK_"test_setRankFractional_D1_IK3")
1859 : #endif
1860 : #if IK2_ENABLED
1861 1 : call test%run(test_setRankFractional_D1_IK2, SK_"test_setRankFractional_D1_IK2")
1862 : #endif
1863 : #if IK1_ENABLED
1864 1 : call test%run(test_setRankFractional_D1_IK1, SK_"test_setRankFractional_D1_IK1")
1865 : #endif
1866 :
1867 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1868 :
1869 : #if LK5_ENABLED
1870 1 : call test%run(test_setRankFractional_D1_LK5, SK_"test_setRankFractional_D1_LK5")
1871 : #endif
1872 : #if LK4_ENABLED
1873 1 : call test%run(test_setRankFractional_D1_LK4, SK_"test_setRankFractional_D1_LK4")
1874 : #endif
1875 : #if LK3_ENABLED
1876 1 : call test%run(test_setRankFractional_D1_LK3, SK_"test_setRankFractional_D1_LK3")
1877 : #endif
1878 : #if LK2_ENABLED
1879 1 : call test%run(test_setRankFractional_D1_LK2, SK_"test_setRankFractional_D1_LK2")
1880 : #endif
1881 : #if LK1_ENABLED
1882 1 : call test%run(test_setRankFractional_D1_LK1, SK_"test_setRankFractional_D1_LK1")
1883 : #endif
1884 :
1885 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1886 :
1887 : #if CK5_ENABLED
1888 : call test%run(test_setRankFractional_D1_CK5, SK_"test_setRankFractional_D1_CK5")
1889 : #endif
1890 : #if CK4_ENABLED
1891 1 : call test%run(test_setRankFractional_D1_CK4, SK_"test_setRankFractional_D1_CK4")
1892 : #endif
1893 : #if CK3_ENABLED
1894 1 : call test%run(test_setRankFractional_D1_CK3, SK_"test_setRankFractional_D1_CK3")
1895 : #endif
1896 : #if CK2_ENABLED
1897 1 : call test%run(test_setRankFractional_D1_CK2, SK_"test_setRankFractional_D1_CK2")
1898 : #endif
1899 : #if CK1_ENABLED
1900 1 : call test%run(test_setRankFractional_D1_CK1, SK_"test_setRankFractional_D1_CK1")
1901 : #endif
1902 :
1903 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1904 :
1905 : #if RK5_ENABLED
1906 : call test%run(test_setRankFractional_D1_RK5, SK_"test_setRankFractional_D1_RK5")
1907 : #endif
1908 : #if RK4_ENABLED
1909 1 : call test%run(test_setRankFractional_D1_RK4, SK_"test_setRankFractional_D1_RK4")
1910 : #endif
1911 : #if RK3_ENABLED
1912 1 : call test%run(test_setRankFractional_D1_RK3, SK_"test_setRankFractional_D1_RK3")
1913 : #endif
1914 : #if RK2_ENABLED
1915 1 : call test%run(test_setRankFractional_D1_RK2, SK_"test_setRankFractional_D1_RK2")
1916 : #endif
1917 : #if RK1_ENABLED
1918 1 : call test%run(test_setRankFractional_D1_RK1, SK_"test_setRankFractional_D1_RK1")
1919 : #endif
1920 :
1921 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1922 :
1923 : #if !__GFORTRAN__ && 0
1924 : #if SK5_ENABLED
1925 : call test%run(test_setRankFractional_D1_PSSK5, SK_"test_setRankFractional_D1_PSSK5")
1926 : #endif
1927 : #if SK4_ENABLED
1928 : call test%run(test_setRankFractional_D1_PSSK4, SK_"test_setRankFractional_D1_PSSK4")
1929 : #endif
1930 : #if SK3_ENABLED
1931 : call test%run(test_setRankFractional_D1_PSSK3, SK_"test_setRankFractional_D1_PSSK3")
1932 : #endif
1933 : #if SK2_ENABLED
1934 : call test%run(test_setRankFractional_D1_PSSK2, SK_"test_setRankFractional_D1_PSSK2")
1935 : #endif
1936 : #if SK1_ENABLED
1937 : call test%run(test_setRankFractional_D1_PSSK1, SK_"test_setRankFractional_D1_PSSK1")
1938 : #endif
1939 : #endif
1940 :
1941 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1942 :
1943 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1944 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1945 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1946 :
1947 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1948 :
1949 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1951 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1952 :
1953 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1954 :
1955 : #if SK5_ENABLED
1956 : call test%run(test_getRankModified_D0_SK5, SK_"test_getRankModified_D0_SK5")
1957 : #endif
1958 : #if SK4_ENABLED
1959 : call test%run(test_getRankModified_D0_SK4, SK_"test_getRankModified_D0_SK4")
1960 : #endif
1961 : #if SK3_ENABLED
1962 : call test%run(test_getRankModified_D0_SK3, SK_"test_getRankModified_D0_SK3")
1963 : #endif
1964 : #if SK2_ENABLED
1965 : call test%run(test_getRankModified_D0_SK2, SK_"test_getRankModified_D0_SK2")
1966 : #endif
1967 : #if SK1_ENABLED
1968 1 : call test%run(test_getRankModified_D0_SK1, SK_"test_getRankModified_D0_SK1")
1969 : #endif
1970 :
1971 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1972 :
1973 : #if SK5_ENABLED
1974 : call test%run(test_getRankModified_D1_SK5, SK_"test_getRankModified_D1_SK5")
1975 : #endif
1976 : #if SK4_ENABLED
1977 : call test%run(test_getRankModified_D1_SK4, SK_"test_getRankModified_D1_SK4")
1978 : #endif
1979 : #if SK3_ENABLED
1980 : call test%run(test_getRankModified_D1_SK3, SK_"test_getRankModified_D1_SK3")
1981 : #endif
1982 : #if SK2_ENABLED
1983 : call test%run(test_getRankModified_D1_SK2, SK_"test_getRankModified_D1_SK2")
1984 : #endif
1985 : #if SK1_ENABLED
1986 1 : call test%run(test_getRankModified_D1_SK1, SK_"test_getRankModified_D1_SK1")
1987 : #endif
1988 :
1989 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1990 :
1991 : #if IK5_ENABLED
1992 1 : call test%run(test_getRankModified_D1_IK5, SK_"test_getRankModified_D1_IK5")
1993 : #endif
1994 : #if IK4_ENABLED
1995 1 : call test%run(test_getRankModified_D1_IK4, SK_"test_getRankModified_D1_IK4")
1996 : #endif
1997 : #if IK3_ENABLED
1998 1 : call test%run(test_getRankModified_D1_IK3, SK_"test_getRankModified_D1_IK3")
1999 : #endif
2000 : #if IK2_ENABLED
2001 1 : call test%run(test_getRankModified_D1_IK2, SK_"test_getRankModified_D1_IK2")
2002 : #endif
2003 : #if IK1_ENABLED
2004 1 : call test%run(test_getRankModified_D1_IK1, SK_"test_getRankModified_D1_IK1")
2005 : #endif
2006 :
2007 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2008 :
2009 : #if LK5_ENABLED
2010 1 : call test%run(test_getRankModified_D1_LK5, SK_"test_getRankModified_D1_LK5")
2011 : #endif
2012 : #if LK4_ENABLED
2013 1 : call test%run(test_getRankModified_D1_LK4, SK_"test_getRankModified_D1_LK4")
2014 : #endif
2015 : #if LK3_ENABLED
2016 1 : call test%run(test_getRankModified_D1_LK3, SK_"test_getRankModified_D1_LK3")
2017 : #endif
2018 : #if LK2_ENABLED
2019 1 : call test%run(test_getRankModified_D1_LK2, SK_"test_getRankModified_D1_LK2")
2020 : #endif
2021 : #if LK1_ENABLED
2022 1 : call test%run(test_getRankModified_D1_LK1, SK_"test_getRankModified_D1_LK1")
2023 : #endif
2024 :
2025 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2026 :
2027 : #if CK5_ENABLED
2028 : call test%run(test_getRankModified_D1_CK5, SK_"test_getRankModified_D1_CK5")
2029 : #endif
2030 : #if CK4_ENABLED
2031 1 : call test%run(test_getRankModified_D1_CK4, SK_"test_getRankModified_D1_CK4")
2032 : #endif
2033 : #if CK3_ENABLED
2034 1 : call test%run(test_getRankModified_D1_CK3, SK_"test_getRankModified_D1_CK3")
2035 : #endif
2036 : #if CK2_ENABLED
2037 1 : call test%run(test_getRankModified_D1_CK2, SK_"test_getRankModified_D1_CK2")
2038 : #endif
2039 : #if CK1_ENABLED
2040 1 : call test%run(test_getRankModified_D1_CK1, SK_"test_getRankModified_D1_CK1")
2041 : #endif
2042 :
2043 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2044 :
2045 : #if RK5_ENABLED
2046 : call test%run(test_getRankModified_D1_RK5, SK_"test_getRankModified_D1_RK5")
2047 : #endif
2048 : #if RK4_ENABLED
2049 1 : call test%run(test_getRankModified_D1_RK4, SK_"test_getRankModified_D1_RK4")
2050 : #endif
2051 : #if RK3_ENABLED
2052 1 : call test%run(test_getRankModified_D1_RK3, SK_"test_getRankModified_D1_RK3")
2053 : #endif
2054 : #if RK2_ENABLED
2055 1 : call test%run(test_getRankModified_D1_RK2, SK_"test_getRankModified_D1_RK2")
2056 : #endif
2057 : #if RK1_ENABLED
2058 1 : call test%run(test_getRankModified_D1_RK1, SK_"test_getRankModified_D1_RK1")
2059 : #endif
2060 :
2061 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2062 :
2063 : #if !__GFORTRAN__ && 0
2064 : #if SK5_ENABLED
2065 : call test%run(test_getRankModified_D1_PSSK5, SK_"test_getRankModified_D1_PSSK5")
2066 : #endif
2067 : #if SK4_ENABLED
2068 : call test%run(test_getRankModified_D1_PSSK4, SK_"test_getRankModified_D1_PSSK4")
2069 : #endif
2070 : #if SK3_ENABLED
2071 : call test%run(test_getRankModified_D1_PSSK3, SK_"test_getRankModified_D1_PSSK3")
2072 : #endif
2073 : #if SK2_ENABLED
2074 : call test%run(test_getRankModified_D1_PSSK2, SK_"test_getRankModified_D1_PSSK2")
2075 : #endif
2076 : #if SK1_ENABLED
2077 : call test%run(test_getRankModified_D1_PSSK1, SK_"test_getRankModified_D1_PSSK1")
2078 : #endif
2079 : #endif
2080 :
2081 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2082 :
2083 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2084 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2085 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2086 :
2087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2088 :
2089 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2090 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2091 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2092 :
2093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2094 :
2095 : #if SK5_ENABLED
2096 : call test%run(test_setRankModified_D0_SK5, SK_"test_setRankModified_D0_SK5")
2097 : #endif
2098 : #if SK4_ENABLED
2099 : call test%run(test_setRankModified_D0_SK4, SK_"test_setRankModified_D0_SK4")
2100 : #endif
2101 : #if SK3_ENABLED
2102 : call test%run(test_setRankModified_D0_SK3, SK_"test_setRankModified_D0_SK3")
2103 : #endif
2104 : #if SK2_ENABLED
2105 : call test%run(test_setRankModified_D0_SK2, SK_"test_setRankModified_D0_SK2")
2106 : #endif
2107 : #if SK1_ENABLED
2108 1 : call test%run(test_setRankModified_D0_SK1, SK_"test_setRankModified_D0_SK1")
2109 : #endif
2110 :
2111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2112 :
2113 : #if SK5_ENABLED
2114 : call test%run(test_setRankModified_D1_SK5, SK_"test_setRankModified_D1_SK5")
2115 : #endif
2116 : #if SK4_ENABLED
2117 : call test%run(test_setRankModified_D1_SK4, SK_"test_setRankModified_D1_SK4")
2118 : #endif
2119 : #if SK3_ENABLED
2120 : call test%run(test_setRankModified_D1_SK3, SK_"test_setRankModified_D1_SK3")
2121 : #endif
2122 : #if SK2_ENABLED
2123 : call test%run(test_setRankModified_D1_SK2, SK_"test_setRankModified_D1_SK2")
2124 : #endif
2125 : #if SK1_ENABLED
2126 1 : call test%run(test_setRankModified_D1_SK1, SK_"test_setRankModified_D1_SK1")
2127 : #endif
2128 :
2129 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2130 :
2131 : #if IK5_ENABLED
2132 1 : call test%run(test_setRankModified_D1_IK5, SK_"test_setRankModified_D1_IK5")
2133 : #endif
2134 : #if IK4_ENABLED
2135 1 : call test%run(test_setRankModified_D1_IK4, SK_"test_setRankModified_D1_IK4")
2136 : #endif
2137 : #if IK3_ENABLED
2138 1 : call test%run(test_setRankModified_D1_IK3, SK_"test_setRankModified_D1_IK3")
2139 : #endif
2140 : #if IK2_ENABLED
2141 1 : call test%run(test_setRankModified_D1_IK2, SK_"test_setRankModified_D1_IK2")
2142 : #endif
2143 : #if IK1_ENABLED
2144 1 : call test%run(test_setRankModified_D1_IK1, SK_"test_setRankModified_D1_IK1")
2145 : #endif
2146 :
2147 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2148 :
2149 : #if LK5_ENABLED
2150 1 : call test%run(test_setRankModified_D1_LK5, SK_"test_setRankModified_D1_LK5")
2151 : #endif
2152 : #if LK4_ENABLED
2153 1 : call test%run(test_setRankModified_D1_LK4, SK_"test_setRankModified_D1_LK4")
2154 : #endif
2155 : #if LK3_ENABLED
2156 1 : call test%run(test_setRankModified_D1_LK3, SK_"test_setRankModified_D1_LK3")
2157 : #endif
2158 : #if LK2_ENABLED
2159 1 : call test%run(test_setRankModified_D1_LK2, SK_"test_setRankModified_D1_LK2")
2160 : #endif
2161 : #if LK1_ENABLED
2162 1 : call test%run(test_setRankModified_D1_LK1, SK_"test_setRankModified_D1_LK1")
2163 : #endif
2164 :
2165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2166 :
2167 : #if CK5_ENABLED
2168 : call test%run(test_setRankModified_D1_CK5, SK_"test_setRankModified_D1_CK5")
2169 : #endif
2170 : #if CK4_ENABLED
2171 1 : call test%run(test_setRankModified_D1_CK4, SK_"test_setRankModified_D1_CK4")
2172 : #endif
2173 : #if CK3_ENABLED
2174 1 : call test%run(test_setRankModified_D1_CK3, SK_"test_setRankModified_D1_CK3")
2175 : #endif
2176 : #if CK2_ENABLED
2177 1 : call test%run(test_setRankModified_D1_CK2, SK_"test_setRankModified_D1_CK2")
2178 : #endif
2179 : #if CK1_ENABLED
2180 1 : call test%run(test_setRankModified_D1_CK1, SK_"test_setRankModified_D1_CK1")
2181 : #endif
2182 :
2183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2184 :
2185 : #if RK5_ENABLED
2186 : call test%run(test_setRankModified_D1_RK5, SK_"test_setRankModified_D1_RK5")
2187 : #endif
2188 : #if RK4_ENABLED
2189 1 : call test%run(test_setRankModified_D1_RK4, SK_"test_setRankModified_D1_RK4")
2190 : #endif
2191 : #if RK3_ENABLED
2192 1 : call test%run(test_setRankModified_D1_RK3, SK_"test_setRankModified_D1_RK3")
2193 : #endif
2194 : #if RK2_ENABLED
2195 1 : call test%run(test_setRankModified_D1_RK2, SK_"test_setRankModified_D1_RK2")
2196 : #endif
2197 : #if RK1_ENABLED
2198 1 : call test%run(test_setRankModified_D1_RK1, SK_"test_setRankModified_D1_RK1")
2199 : #endif
2200 :
2201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2202 :
2203 : #if !__GFORTRAN__ && 0
2204 : #if SK5_ENABLED
2205 : call test%run(test_setRankModified_D1_PSSK5, SK_"test_setRankModified_D1_PSSK5")
2206 : #endif
2207 : #if SK4_ENABLED
2208 : call test%run(test_setRankModified_D1_PSSK4, SK_"test_setRankModified_D1_PSSK4")
2209 : #endif
2210 : #if SK3_ENABLED
2211 : call test%run(test_setRankModified_D1_PSSK3, SK_"test_setRankModified_D1_PSSK3")
2212 : #endif
2213 : #if SK2_ENABLED
2214 : call test%run(test_setRankModified_D1_PSSK2, SK_"test_setRankModified_D1_PSSK2")
2215 : #endif
2216 : #if SK1_ENABLED
2217 : call test%run(test_setRankModified_D1_PSSK1, SK_"test_setRankModified_D1_PSSK1")
2218 : #endif
2219 : #endif
2220 :
2221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2222 :
2223 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2224 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2226 :
2227 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2228 :
2229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2230 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2231 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2232 :
2233 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2234 :
2235 : #if SK5_ENABLED
2236 : call test%run(test_getRankOrdinal_D0_SK5, SK_"test_getRankOrdinal_D0_SK5")
2237 : #endif
2238 : #if SK4_ENABLED
2239 : call test%run(test_getRankOrdinal_D0_SK4, SK_"test_getRankOrdinal_D0_SK4")
2240 : #endif
2241 : #if SK3_ENABLED
2242 : call test%run(test_getRankOrdinal_D0_SK3, SK_"test_getRankOrdinal_D0_SK3")
2243 : #endif
2244 : #if SK2_ENABLED
2245 : call test%run(test_getRankOrdinal_D0_SK2, SK_"test_getRankOrdinal_D0_SK2")
2246 : #endif
2247 : #if SK1_ENABLED
2248 1 : call test%run(test_getRankOrdinal_D0_SK1, SK_"test_getRankOrdinal_D0_SK1")
2249 : #endif
2250 :
2251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2252 :
2253 : #if SK5_ENABLED
2254 : call test%run(test_getRankOrdinal_D1_SK5, SK_"test_getRankOrdinal_D1_SK5")
2255 : #endif
2256 : #if SK4_ENABLED
2257 : call test%run(test_getRankOrdinal_D1_SK4, SK_"test_getRankOrdinal_D1_SK4")
2258 : #endif
2259 : #if SK3_ENABLED
2260 : call test%run(test_getRankOrdinal_D1_SK3, SK_"test_getRankOrdinal_D1_SK3")
2261 : #endif
2262 : #if SK2_ENABLED
2263 : call test%run(test_getRankOrdinal_D1_SK2, SK_"test_getRankOrdinal_D1_SK2")
2264 : #endif
2265 : #if SK1_ENABLED
2266 1 : call test%run(test_getRankOrdinal_D1_SK1, SK_"test_getRankOrdinal_D1_SK1")
2267 : #endif
2268 :
2269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2270 :
2271 : #if IK5_ENABLED
2272 1 : call test%run(test_getRankOrdinal_D1_IK5, SK_"test_getRankOrdinal_D1_IK5")
2273 : #endif
2274 : #if IK4_ENABLED
2275 1 : call test%run(test_getRankOrdinal_D1_IK4, SK_"test_getRankOrdinal_D1_IK4")
2276 : #endif
2277 : #if IK3_ENABLED
2278 1 : call test%run(test_getRankOrdinal_D1_IK3, SK_"test_getRankOrdinal_D1_IK3")
2279 : #endif
2280 : #if IK2_ENABLED
2281 1 : call test%run(test_getRankOrdinal_D1_IK2, SK_"test_getRankOrdinal_D1_IK2")
2282 : #endif
2283 : #if IK1_ENABLED
2284 1 : call test%run(test_getRankOrdinal_D1_IK1, SK_"test_getRankOrdinal_D1_IK1")
2285 : #endif
2286 :
2287 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2288 :
2289 : #if LK5_ENABLED
2290 1 : call test%run(test_getRankOrdinal_D1_LK5, SK_"test_getRankOrdinal_D1_LK5")
2291 : #endif
2292 : #if LK4_ENABLED
2293 1 : call test%run(test_getRankOrdinal_D1_LK4, SK_"test_getRankOrdinal_D1_LK4")
2294 : #endif
2295 : #if LK3_ENABLED
2296 1 : call test%run(test_getRankOrdinal_D1_LK3, SK_"test_getRankOrdinal_D1_LK3")
2297 : #endif
2298 : #if LK2_ENABLED
2299 1 : call test%run(test_getRankOrdinal_D1_LK2, SK_"test_getRankOrdinal_D1_LK2")
2300 : #endif
2301 : #if LK1_ENABLED
2302 1 : call test%run(test_getRankOrdinal_D1_LK1, SK_"test_getRankOrdinal_D1_LK1")
2303 : #endif
2304 :
2305 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2306 :
2307 : #if CK5_ENABLED
2308 : call test%run(test_getRankOrdinal_D1_CK5, SK_"test_getRankOrdinal_D1_CK5")
2309 : #endif
2310 : #if CK4_ENABLED
2311 1 : call test%run(test_getRankOrdinal_D1_CK4, SK_"test_getRankOrdinal_D1_CK4")
2312 : #endif
2313 : #if CK3_ENABLED
2314 1 : call test%run(test_getRankOrdinal_D1_CK3, SK_"test_getRankOrdinal_D1_CK3")
2315 : #endif
2316 : #if CK2_ENABLED
2317 1 : call test%run(test_getRankOrdinal_D1_CK2, SK_"test_getRankOrdinal_D1_CK2")
2318 : #endif
2319 : #if CK1_ENABLED
2320 1 : call test%run(test_getRankOrdinal_D1_CK1, SK_"test_getRankOrdinal_D1_CK1")
2321 : #endif
2322 :
2323 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2324 :
2325 : #if RK5_ENABLED
2326 : call test%run(test_getRankOrdinal_D1_RK5, SK_"test_getRankOrdinal_D1_RK5")
2327 : #endif
2328 : #if RK4_ENABLED
2329 1 : call test%run(test_getRankOrdinal_D1_RK4, SK_"test_getRankOrdinal_D1_RK4")
2330 : #endif
2331 : #if RK3_ENABLED
2332 1 : call test%run(test_getRankOrdinal_D1_RK3, SK_"test_getRankOrdinal_D1_RK3")
2333 : #endif
2334 : #if RK2_ENABLED
2335 1 : call test%run(test_getRankOrdinal_D1_RK2, SK_"test_getRankOrdinal_D1_RK2")
2336 : #endif
2337 : #if RK1_ENABLED
2338 1 : call test%run(test_getRankOrdinal_D1_RK1, SK_"test_getRankOrdinal_D1_RK1")
2339 : #endif
2340 :
2341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2342 :
2343 : #if !__GFORTRAN__ && 0
2344 : #if SK5_ENABLED
2345 : call test%run(test_getRankOrdinal_D1_PSSK5, SK_"test_getRankOrdinal_D1_PSSK5")
2346 : #endif
2347 : #if SK4_ENABLED
2348 : call test%run(test_getRankOrdinal_D1_PSSK4, SK_"test_getRankOrdinal_D1_PSSK4")
2349 : #endif
2350 : #if SK3_ENABLED
2351 : call test%run(test_getRankOrdinal_D1_PSSK3, SK_"test_getRankOrdinal_D1_PSSK3")
2352 : #endif
2353 : #if SK2_ENABLED
2354 : call test%run(test_getRankOrdinal_D1_PSSK2, SK_"test_getRankOrdinal_D1_PSSK2")
2355 : #endif
2356 : #if SK1_ENABLED
2357 : call test%run(test_getRankOrdinal_D1_PSSK1, SK_"test_getRankOrdinal_D1_PSSK1")
2358 : #endif
2359 : #endif
2360 :
2361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2362 :
2363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2364 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2366 :
2367 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2368 :
2369 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2372 :
2373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2374 :
2375 : #if SK5_ENABLED
2376 : call test%run(test_setRankOrdinal_D0_SK5, SK_"test_setRankOrdinal_D0_SK5")
2377 : #endif
2378 : #if SK4_ENABLED
2379 : call test%run(test_setRankOrdinal_D0_SK4, SK_"test_setRankOrdinal_D0_SK4")
2380 : #endif
2381 : #if SK3_ENABLED
2382 : call test%run(test_setRankOrdinal_D0_SK3, SK_"test_setRankOrdinal_D0_SK3")
2383 : #endif
2384 : #if SK2_ENABLED
2385 : call test%run(test_setRankOrdinal_D0_SK2, SK_"test_setRankOrdinal_D0_SK2")
2386 : #endif
2387 : #if SK1_ENABLED
2388 1 : call test%run(test_setRankOrdinal_D0_SK1, SK_"test_setRankOrdinal_D0_SK1")
2389 : #endif
2390 :
2391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2392 :
2393 : #if SK5_ENABLED
2394 : call test%run(test_setRankOrdinal_D1_SK5, SK_"test_setRankOrdinal_D1_SK5")
2395 : #endif
2396 : #if SK4_ENABLED
2397 : call test%run(test_setRankOrdinal_D1_SK4, SK_"test_setRankOrdinal_D1_SK4")
2398 : #endif
2399 : #if SK3_ENABLED
2400 : call test%run(test_setRankOrdinal_D1_SK3, SK_"test_setRankOrdinal_D1_SK3")
2401 : #endif
2402 : #if SK2_ENABLED
2403 : call test%run(test_setRankOrdinal_D1_SK2, SK_"test_setRankOrdinal_D1_SK2")
2404 : #endif
2405 : #if SK1_ENABLED
2406 1 : call test%run(test_setRankOrdinal_D1_SK1, SK_"test_setRankOrdinal_D1_SK1")
2407 : #endif
2408 :
2409 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2410 :
2411 : #if IK5_ENABLED
2412 1 : call test%run(test_setRankOrdinal_D1_IK5, SK_"test_setRankOrdinal_D1_IK5")
2413 : #endif
2414 : #if IK4_ENABLED
2415 1 : call test%run(test_setRankOrdinal_D1_IK4, SK_"test_setRankOrdinal_D1_IK4")
2416 : #endif
2417 : #if IK3_ENABLED
2418 1 : call test%run(test_setRankOrdinal_D1_IK3, SK_"test_setRankOrdinal_D1_IK3")
2419 : #endif
2420 : #if IK2_ENABLED
2421 1 : call test%run(test_setRankOrdinal_D1_IK2, SK_"test_setRankOrdinal_D1_IK2")
2422 : #endif
2423 : #if IK1_ENABLED
2424 1 : call test%run(test_setRankOrdinal_D1_IK1, SK_"test_setRankOrdinal_D1_IK1")
2425 : #endif
2426 :
2427 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2428 :
2429 : #if LK5_ENABLED
2430 1 : call test%run(test_setRankOrdinal_D1_LK5, SK_"test_setRankOrdinal_D1_LK5")
2431 : #endif
2432 : #if LK4_ENABLED
2433 1 : call test%run(test_setRankOrdinal_D1_LK4, SK_"test_setRankOrdinal_D1_LK4")
2434 : #endif
2435 : #if LK3_ENABLED
2436 1 : call test%run(test_setRankOrdinal_D1_LK3, SK_"test_setRankOrdinal_D1_LK3")
2437 : #endif
2438 : #if LK2_ENABLED
2439 1 : call test%run(test_setRankOrdinal_D1_LK2, SK_"test_setRankOrdinal_D1_LK2")
2440 : #endif
2441 : #if LK1_ENABLED
2442 1 : call test%run(test_setRankOrdinal_D1_LK1, SK_"test_setRankOrdinal_D1_LK1")
2443 : #endif
2444 :
2445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2446 :
2447 : #if CK5_ENABLED
2448 : call test%run(test_setRankOrdinal_D1_CK5, SK_"test_setRankOrdinal_D1_CK5")
2449 : #endif
2450 : #if CK4_ENABLED
2451 1 : call test%run(test_setRankOrdinal_D1_CK4, SK_"test_setRankOrdinal_D1_CK4")
2452 : #endif
2453 : #if CK3_ENABLED
2454 1 : call test%run(test_setRankOrdinal_D1_CK3, SK_"test_setRankOrdinal_D1_CK3")
2455 : #endif
2456 : #if CK2_ENABLED
2457 1 : call test%run(test_setRankOrdinal_D1_CK2, SK_"test_setRankOrdinal_D1_CK2")
2458 : #endif
2459 : #if CK1_ENABLED
2460 1 : call test%run(test_setRankOrdinal_D1_CK1, SK_"test_setRankOrdinal_D1_CK1")
2461 : #endif
2462 :
2463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2464 :
2465 : #if RK5_ENABLED
2466 : call test%run(test_setRankOrdinal_D1_RK5, SK_"test_setRankOrdinal_D1_RK5")
2467 : #endif
2468 : #if RK4_ENABLED
2469 1 : call test%run(test_setRankOrdinal_D1_RK4, SK_"test_setRankOrdinal_D1_RK4")
2470 : #endif
2471 : #if RK3_ENABLED
2472 1 : call test%run(test_setRankOrdinal_D1_RK3, SK_"test_setRankOrdinal_D1_RK3")
2473 : #endif
2474 : #if RK2_ENABLED
2475 1 : call test%run(test_setRankOrdinal_D1_RK2, SK_"test_setRankOrdinal_D1_RK2")
2476 : #endif
2477 : #if RK1_ENABLED
2478 1 : call test%run(test_setRankOrdinal_D1_RK1, SK_"test_setRankOrdinal_D1_RK1")
2479 : #endif
2480 :
2481 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2482 :
2483 : #if !__GFORTRAN__ && 0
2484 : #if SK5_ENABLED
2485 : call test%run(test_setRankOrdinal_D1_PSSK5, SK_"test_setRankOrdinal_D1_PSSK5")
2486 : #endif
2487 : #if SK4_ENABLED
2488 : call test%run(test_setRankOrdinal_D1_PSSK4, SK_"test_setRankOrdinal_D1_PSSK4")
2489 : #endif
2490 : #if SK3_ENABLED
2491 : call test%run(test_setRankOrdinal_D1_PSSK3, SK_"test_setRankOrdinal_D1_PSSK3")
2492 : #endif
2493 : #if SK2_ENABLED
2494 : call test%run(test_setRankOrdinal_D1_PSSK2, SK_"test_setRankOrdinal_D1_PSSK2")
2495 : #endif
2496 : #if SK1_ENABLED
2497 : call test%run(test_setRankOrdinal_D1_PSSK1, SK_"test_setRankOrdinal_D1_PSSK1")
2498 : #endif
2499 : #endif
2500 :
2501 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2502 :
2503 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2504 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2505 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2506 :
2507 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2508 :
2509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2510 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2512 :
2513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2514 :
2515 : #if SK5_ENABLED
2516 : call test%run(test_getRankStandard_D0_SK5, SK_"test_getRankStandard_D0_SK5")
2517 : #endif
2518 : #if SK4_ENABLED
2519 : call test%run(test_getRankStandard_D0_SK4, SK_"test_getRankStandard_D0_SK4")
2520 : #endif
2521 : #if SK3_ENABLED
2522 : call test%run(test_getRankStandard_D0_SK3, SK_"test_getRankStandard_D0_SK3")
2523 : #endif
2524 : #if SK2_ENABLED
2525 : call test%run(test_getRankStandard_D0_SK2, SK_"test_getRankStandard_D0_SK2")
2526 : #endif
2527 : #if SK1_ENABLED
2528 1 : call test%run(test_getRankStandard_D0_SK1, SK_"test_getRankStandard_D0_SK1")
2529 : #endif
2530 :
2531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2532 :
2533 : #if SK5_ENABLED
2534 : call test%run(test_getRankStandard_D1_SK5, SK_"test_getRankStandard_D1_SK5")
2535 : #endif
2536 : #if SK4_ENABLED
2537 : call test%run(test_getRankStandard_D1_SK4, SK_"test_getRankStandard_D1_SK4")
2538 : #endif
2539 : #if SK3_ENABLED
2540 : call test%run(test_getRankStandard_D1_SK3, SK_"test_getRankStandard_D1_SK3")
2541 : #endif
2542 : #if SK2_ENABLED
2543 : call test%run(test_getRankStandard_D1_SK2, SK_"test_getRankStandard_D1_SK2")
2544 : #endif
2545 : #if SK1_ENABLED
2546 1 : call test%run(test_getRankStandard_D1_SK1, SK_"test_getRankStandard_D1_SK1")
2547 : #endif
2548 :
2549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2550 :
2551 : #if IK5_ENABLED
2552 1 : call test%run(test_getRankStandard_D1_IK5, SK_"test_getRankStandard_D1_IK5")
2553 : #endif
2554 : #if IK4_ENABLED
2555 1 : call test%run(test_getRankStandard_D1_IK4, SK_"test_getRankStandard_D1_IK4")
2556 : #endif
2557 : #if IK3_ENABLED
2558 1 : call test%run(test_getRankStandard_D1_IK3, SK_"test_getRankStandard_D1_IK3")
2559 : #endif
2560 : #if IK2_ENABLED
2561 1 : call test%run(test_getRankStandard_D1_IK2, SK_"test_getRankStandard_D1_IK2")
2562 : #endif
2563 : #if IK1_ENABLED
2564 1 : call test%run(test_getRankStandard_D1_IK1, SK_"test_getRankStandard_D1_IK1")
2565 : #endif
2566 :
2567 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2568 :
2569 : #if LK5_ENABLED
2570 1 : call test%run(test_getRankStandard_D1_LK5, SK_"test_getRankStandard_D1_LK5")
2571 : #endif
2572 : #if LK4_ENABLED
2573 1 : call test%run(test_getRankStandard_D1_LK4, SK_"test_getRankStandard_D1_LK4")
2574 : #endif
2575 : #if LK3_ENABLED
2576 1 : call test%run(test_getRankStandard_D1_LK3, SK_"test_getRankStandard_D1_LK3")
2577 : #endif
2578 : #if LK2_ENABLED
2579 1 : call test%run(test_getRankStandard_D1_LK2, SK_"test_getRankStandard_D1_LK2")
2580 : #endif
2581 : #if LK1_ENABLED
2582 1 : call test%run(test_getRankStandard_D1_LK1, SK_"test_getRankStandard_D1_LK1")
2583 : #endif
2584 :
2585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2586 :
2587 : #if CK5_ENABLED
2588 : call test%run(test_getRankStandard_D1_CK5, SK_"test_getRankStandard_D1_CK5")
2589 : #endif
2590 : #if CK4_ENABLED
2591 1 : call test%run(test_getRankStandard_D1_CK4, SK_"test_getRankStandard_D1_CK4")
2592 : #endif
2593 : #if CK3_ENABLED
2594 1 : call test%run(test_getRankStandard_D1_CK3, SK_"test_getRankStandard_D1_CK3")
2595 : #endif
2596 : #if CK2_ENABLED
2597 1 : call test%run(test_getRankStandard_D1_CK2, SK_"test_getRankStandard_D1_CK2")
2598 : #endif
2599 : #if CK1_ENABLED
2600 1 : call test%run(test_getRankStandard_D1_CK1, SK_"test_getRankStandard_D1_CK1")
2601 : #endif
2602 :
2603 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2604 :
2605 : #if RK5_ENABLED
2606 : call test%run(test_getRankStandard_D1_RK5, SK_"test_getRankStandard_D1_RK5")
2607 : #endif
2608 : #if RK4_ENABLED
2609 1 : call test%run(test_getRankStandard_D1_RK4, SK_"test_getRankStandard_D1_RK4")
2610 : #endif
2611 : #if RK3_ENABLED
2612 1 : call test%run(test_getRankStandard_D1_RK3, SK_"test_getRankStandard_D1_RK3")
2613 : #endif
2614 : #if RK2_ENABLED
2615 1 : call test%run(test_getRankStandard_D1_RK2, SK_"test_getRankStandard_D1_RK2")
2616 : #endif
2617 : #if RK1_ENABLED
2618 1 : call test%run(test_getRankStandard_D1_RK1, SK_"test_getRankStandard_D1_RK1")
2619 : #endif
2620 :
2621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2622 :
2623 : #if !__GFORTRAN__ && 0
2624 : #if SK5_ENABLED
2625 : call test%run(test_getRankStandard_D1_PSSK5, SK_"test_getRankStandard_D1_PSSK5")
2626 : #endif
2627 : #if SK4_ENABLED
2628 : call test%run(test_getRankStandard_D1_PSSK4, SK_"test_getRankStandard_D1_PSSK4")
2629 : #endif
2630 : #if SK3_ENABLED
2631 : call test%run(test_getRankStandard_D1_PSSK3, SK_"test_getRankStandard_D1_PSSK3")
2632 : #endif
2633 : #if SK2_ENABLED
2634 : call test%run(test_getRankStandard_D1_PSSK2, SK_"test_getRankStandard_D1_PSSK2")
2635 : #endif
2636 : #if SK1_ENABLED
2637 : call test%run(test_getRankStandard_D1_PSSK1, SK_"test_getRankStandard_D1_PSSK1")
2638 : #endif
2639 : #endif
2640 :
2641 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2642 :
2643 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2644 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2645 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2646 :
2647 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2648 :
2649 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2650 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2651 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2652 :
2653 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2654 :
2655 : #if SK5_ENABLED
2656 : call test%run(test_setRankStandard_D0_SK5, SK_"test_setRankStandard_D0_SK5")
2657 : #endif
2658 : #if SK4_ENABLED
2659 : call test%run(test_setRankStandard_D0_SK4, SK_"test_setRankStandard_D0_SK4")
2660 : #endif
2661 : #if SK3_ENABLED
2662 : call test%run(test_setRankStandard_D0_SK3, SK_"test_setRankStandard_D0_SK3")
2663 : #endif
2664 : #if SK2_ENABLED
2665 : call test%run(test_setRankStandard_D0_SK2, SK_"test_setRankStandard_D0_SK2")
2666 : #endif
2667 : #if SK1_ENABLED
2668 1 : call test%run(test_setRankStandard_D0_SK1, SK_"test_setRankStandard_D0_SK1")
2669 : #endif
2670 :
2671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2672 :
2673 : #if SK5_ENABLED
2674 : call test%run(test_setRankStandard_D1_SK5, SK_"test_setRankStandard_D1_SK5")
2675 : #endif
2676 : #if SK4_ENABLED
2677 : call test%run(test_setRankStandard_D1_SK4, SK_"test_setRankStandard_D1_SK4")
2678 : #endif
2679 : #if SK3_ENABLED
2680 : call test%run(test_setRankStandard_D1_SK3, SK_"test_setRankStandard_D1_SK3")
2681 : #endif
2682 : #if SK2_ENABLED
2683 : call test%run(test_setRankStandard_D1_SK2, SK_"test_setRankStandard_D1_SK2")
2684 : #endif
2685 : #if SK1_ENABLED
2686 1 : call test%run(test_setRankStandard_D1_SK1, SK_"test_setRankStandard_D1_SK1")
2687 : #endif
2688 :
2689 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2690 :
2691 : #if IK5_ENABLED
2692 1 : call test%run(test_setRankStandard_D1_IK5, SK_"test_setRankStandard_D1_IK5")
2693 : #endif
2694 : #if IK4_ENABLED
2695 1 : call test%run(test_setRankStandard_D1_IK4, SK_"test_setRankStandard_D1_IK4")
2696 : #endif
2697 : #if IK3_ENABLED
2698 1 : call test%run(test_setRankStandard_D1_IK3, SK_"test_setRankStandard_D1_IK3")
2699 : #endif
2700 : #if IK2_ENABLED
2701 1 : call test%run(test_setRankStandard_D1_IK2, SK_"test_setRankStandard_D1_IK2")
2702 : #endif
2703 : #if IK1_ENABLED
2704 1 : call test%run(test_setRankStandard_D1_IK1, SK_"test_setRankStandard_D1_IK1")
2705 : #endif
2706 :
2707 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2708 :
2709 : #if LK5_ENABLED
2710 1 : call test%run(test_setRankStandard_D1_LK5, SK_"test_setRankStandard_D1_LK5")
2711 : #endif
2712 : #if LK4_ENABLED
2713 1 : call test%run(test_setRankStandard_D1_LK4, SK_"test_setRankStandard_D1_LK4")
2714 : #endif
2715 : #if LK3_ENABLED
2716 1 : call test%run(test_setRankStandard_D1_LK3, SK_"test_setRankStandard_D1_LK3")
2717 : #endif
2718 : #if LK2_ENABLED
2719 1 : call test%run(test_setRankStandard_D1_LK2, SK_"test_setRankStandard_D1_LK2")
2720 : #endif
2721 : #if LK1_ENABLED
2722 1 : call test%run(test_setRankStandard_D1_LK1, SK_"test_setRankStandard_D1_LK1")
2723 : #endif
2724 :
2725 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2726 :
2727 : #if CK5_ENABLED
2728 : call test%run(test_setRankStandard_D1_CK5, SK_"test_setRankStandard_D1_CK5")
2729 : #endif
2730 : #if CK4_ENABLED
2731 1 : call test%run(test_setRankStandard_D1_CK4, SK_"test_setRankStandard_D1_CK4")
2732 : #endif
2733 : #if CK3_ENABLED
2734 1 : call test%run(test_setRankStandard_D1_CK3, SK_"test_setRankStandard_D1_CK3")
2735 : #endif
2736 : #if CK2_ENABLED
2737 1 : call test%run(test_setRankStandard_D1_CK2, SK_"test_setRankStandard_D1_CK2")
2738 : #endif
2739 : #if CK1_ENABLED
2740 1 : call test%run(test_setRankStandard_D1_CK1, SK_"test_setRankStandard_D1_CK1")
2741 : #endif
2742 :
2743 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2744 :
2745 : #if RK5_ENABLED
2746 : call test%run(test_setRankStandard_D1_RK5, SK_"test_setRankStandard_D1_RK5")
2747 : #endif
2748 : #if RK4_ENABLED
2749 1 : call test%run(test_setRankStandard_D1_RK4, SK_"test_setRankStandard_D1_RK4")
2750 : #endif
2751 : #if RK3_ENABLED
2752 1 : call test%run(test_setRankStandard_D1_RK3, SK_"test_setRankStandard_D1_RK3")
2753 : #endif
2754 : #if RK2_ENABLED
2755 1 : call test%run(test_setRankStandard_D1_RK2, SK_"test_setRankStandard_D1_RK2")
2756 : #endif
2757 : #if RK1_ENABLED
2758 1 : call test%run(test_setRankStandard_D1_RK1, SK_"test_setRankStandard_D1_RK1")
2759 : #endif
2760 :
2761 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2762 :
2763 : #if !__GFORTRAN__ && 0
2764 : #if SK5_ENABLED
2765 : call test%run(test_setRankStandard_D1_PSSK5, SK_"test_setRankStandard_D1_PSSK5")
2766 : #endif
2767 : #if SK4_ENABLED
2768 : call test%run(test_setRankStandard_D1_PSSK4, SK_"test_setRankStandard_D1_PSSK4")
2769 : #endif
2770 : #if SK3_ENABLED
2771 : call test%run(test_setRankStandard_D1_PSSK3, SK_"test_setRankStandard_D1_PSSK3")
2772 : #endif
2773 : #if SK2_ENABLED
2774 : call test%run(test_setRankStandard_D1_PSSK2, SK_"test_setRankStandard_D1_PSSK2")
2775 : #endif
2776 : #if SK1_ENABLED
2777 : call test%run(test_setRankStandard_D1_PSSK1, SK_"test_setRankStandard_D1_PSSK1")
2778 : #endif
2779 : #endif
2780 :
2781 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2782 :
2783 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2784 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2785 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2786 :
2787 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2788 1 : call test%summarize()
2789 :
2790 1 : end subroutine setTest
2791 :
2792 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2793 :
2794 : end module test_pm_arrayRank
|
