Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief
18 : !> This module contains tests of the module [pm_sampleCor](@ref pm_sampleCor).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Thursday 12:45 AM, August 20, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : module test_pm_sampleCor
28 :
29 : use pm_sampleCor
30 : use pm_kind, only: IK
31 : use pm_test, only: test_type, LK
32 : implicit none
33 :
34 : private
35 : public :: setTest
36 : type(test_type) :: test
37 :
38 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39 :
40 : ! getCor
41 :
42 : interface
43 :
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : #if CK5_ENABLED
47 : module function test_getCor_CK5() result(assertion); logical(LK) :: assertion; end function
48 : #endif
49 : #if CK4_ENABLED
50 : module function test_getCor_CK4() result(assertion); logical(LK) :: assertion; end function
51 : #endif
52 : #if CK3_ENABLED
53 : module function test_getCor_CK3() result(assertion); logical(LK) :: assertion; end function
54 : #endif
55 : #if CK2_ENABLED
56 : module function test_getCor_CK2() result(assertion); logical(LK) :: assertion; end function
57 : #endif
58 : #if CK1_ENABLED
59 : module function test_getCor_CK1() result(assertion); logical(LK) :: assertion; end function
60 : #endif
61 :
62 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63 :
64 : #if RK5_ENABLED
65 : module function test_getCor_RK5() result(assertion); logical(LK) :: assertion; end function
66 : #endif
67 : #if RK4_ENABLED
68 : module function test_getCor_RK4() result(assertion); logical(LK) :: assertion; end function
69 : #endif
70 : #if RK3_ENABLED
71 : module function test_getCor_RK3() result(assertion); logical(LK) :: assertion; end function
72 : #endif
73 : #if RK2_ENABLED
74 : module function test_getCor_RK2() result(assertion); logical(LK) :: assertion; end function
75 : #endif
76 : #if RK1_ENABLED
77 : module function test_getCor_RK1() result(assertion); logical(LK) :: assertion; end function
78 : #endif
79 :
80 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
81 :
82 : end interface
83 :
84 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
85 :
86 : ! setCor
87 :
88 : interface
89 :
90 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
91 :
92 : #if CK5_ENABLED
93 : module function test_setCor_CK5() result(assertion); logical(LK) :: assertion; end function
94 : #endif
95 : #if CK4_ENABLED
96 : module function test_setCor_CK4() result(assertion); logical(LK) :: assertion; end function
97 : #endif
98 : #if CK3_ENABLED
99 : module function test_setCor_CK3() result(assertion); logical(LK) :: assertion; end function
100 : #endif
101 : #if CK2_ENABLED
102 : module function test_setCor_CK2() result(assertion); logical(LK) :: assertion; end function
103 : #endif
104 : #if CK1_ENABLED
105 : module function test_setCor_CK1() result(assertion); logical(LK) :: assertion; end function
106 : #endif
107 :
108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 :
110 : #if RK5_ENABLED
111 : module function test_setCor_RK5() result(assertion); logical(LK) :: assertion; end function
112 : #endif
113 : #if RK4_ENABLED
114 : module function test_setCor_RK4() result(assertion); logical(LK) :: assertion; end function
115 : #endif
116 : #if RK3_ENABLED
117 : module function test_setCor_RK3() result(assertion); logical(LK) :: assertion; end function
118 : #endif
119 : #if RK2_ENABLED
120 : module function test_setCor_RK2() result(assertion); logical(LK) :: assertion; end function
121 : #endif
122 : #if RK1_ENABLED
123 : module function test_setCor_RK1() result(assertion); logical(LK) :: assertion; end function
124 : #endif
125 :
126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
127 :
128 : end interface
129 :
130 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
131 :
132 : ! getRho
133 :
134 : interface
135 :
136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
137 :
138 : #if SK5_ENABLED
139 : module function test_getRho_D0_SK5() result(assertion); logical(LK) :: assertion; end function
140 : #endif
141 : #if SK4_ENABLED
142 : module function test_getRho_D0_SK4() result(assertion); logical(LK) :: assertion; end function
143 : #endif
144 : #if SK3_ENABLED
145 : module function test_getRho_D0_SK3() result(assertion); logical(LK) :: assertion; end function
146 : #endif
147 : #if SK2_ENABLED
148 : module function test_getRho_D0_SK2() result(assertion); logical(LK) :: assertion; end function
149 : #endif
150 : #if SK1_ENABLED
151 : module function test_getRho_D0_SK1() result(assertion); logical(LK) :: assertion; end function
152 : #endif
153 :
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157 :
158 : #if SK5_ENABLED
159 : module function test_getRho_XY_SK5() result(assertion); logical(LK) :: assertion; end function
160 : #endif
161 : #if SK4_ENABLED
162 : module function test_getRho_XY_SK4() result(assertion); logical(LK) :: assertion; end function
163 : #endif
164 : #if SK3_ENABLED
165 : module function test_getRho_XY_SK3() result(assertion); logical(LK) :: assertion; end function
166 : #endif
167 : #if SK2_ENABLED
168 : module function test_getRho_XY_SK2() result(assertion); logical(LK) :: assertion; end function
169 : #endif
170 : #if SK1_ENABLED
171 : module function test_getRho_XY_SK1() result(assertion); logical(LK) :: assertion; end function
172 : #endif
173 :
174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
175 :
176 : #if IK5_ENABLED
177 : module function test_getRho_XY_IK5() result(assertion); logical(LK) :: assertion; end function
178 : #endif
179 : #if IK4_ENABLED
180 : module function test_getRho_XY_IK4() result(assertion); logical(LK) :: assertion; end function
181 : #endif
182 : #if IK3_ENABLED
183 : module function test_getRho_XY_IK3() result(assertion); logical(LK) :: assertion; end function
184 : #endif
185 : #if IK2_ENABLED
186 : module function test_getRho_XY_IK2() result(assertion); logical(LK) :: assertion; end function
187 : #endif
188 : #if IK1_ENABLED
189 : module function test_getRho_XY_IK1() result(assertion); logical(LK) :: assertion; end function
190 : #endif
191 :
192 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
193 :
194 : #if RK5_ENABLED
195 : module function test_getRho_XY_RK5() result(assertion); logical(LK) :: assertion; end function
196 : #endif
197 : #if RK4_ENABLED
198 : module function test_getRho_XY_RK4() result(assertion); logical(LK) :: assertion; end function
199 : #endif
200 : #if RK3_ENABLED
201 : module function test_getRho_XY_RK3() result(assertion); logical(LK) :: assertion; end function
202 : #endif
203 : #if RK2_ENABLED
204 : module function test_getRho_XY_RK2() result(assertion); logical(LK) :: assertion; end function
205 : #endif
206 : #if RK1_ENABLED
207 : module function test_getRho_XY_RK1() result(assertion); logical(LK) :: assertion; end function
208 : #endif
209 :
210 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
211 :
212 : #if SK5_ENABLED
213 : module function test_getRho_XY_PSSK5() result(assertion); logical(LK) :: assertion; end function
214 : #endif
215 : #if SK4_ENABLED
216 : module function test_getRho_XY_PSSK4() result(assertion); logical(LK) :: assertion; end function
217 : #endif
218 : #if SK3_ENABLED
219 : module function test_getRho_XY_PSSK3() result(assertion); logical(LK) :: assertion; end function
220 : #endif
221 : #if SK2_ENABLED
222 : module function test_getRho_XY_PSSK2() result(assertion); logical(LK) :: assertion; end function
223 : #endif
224 : #if SK1_ENABLED
225 : module function test_getRho_XY_PSSK1() result(assertion); logical(LK) :: assertion; end function
226 : #endif
227 :
228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229 :
230 : module function test_getRho_XY_BSSK() result(assertion); logical(LK) :: assertion; end function
231 :
232 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
233 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
235 :
236 : #if SK5_ENABLED
237 : module function test_getRho_D2_SK5() result(assertion); logical(LK) :: assertion; end function
238 : #endif
239 : #if SK4_ENABLED
240 : module function test_getRho_D2_SK4() result(assertion); logical(LK) :: assertion; end function
241 : #endif
242 : #if SK3_ENABLED
243 : module function test_getRho_D2_SK3() result(assertion); logical(LK) :: assertion; end function
244 : #endif
245 : #if SK2_ENABLED
246 : module function test_getRho_D2_SK2() result(assertion); logical(LK) :: assertion; end function
247 : #endif
248 : #if SK1_ENABLED
249 : module function test_getRho_D2_SK1() result(assertion); logical(LK) :: assertion; end function
250 : #endif
251 :
252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 :
254 : #if IK5_ENABLED
255 : module function test_getRho_D2_IK5() result(assertion); logical(LK) :: assertion; end function
256 : #endif
257 : #if IK4_ENABLED
258 : module function test_getRho_D2_IK4() result(assertion); logical(LK) :: assertion; end function
259 : #endif
260 : #if IK3_ENABLED
261 : module function test_getRho_D2_IK3() result(assertion); logical(LK) :: assertion; end function
262 : #endif
263 : #if IK2_ENABLED
264 : module function test_getRho_D2_IK2() result(assertion); logical(LK) :: assertion; end function
265 : #endif
266 : #if IK1_ENABLED
267 : module function test_getRho_D2_IK1() result(assertion); logical(LK) :: assertion; end function
268 : #endif
269 :
270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271 :
272 : #if RK5_ENABLED
273 : module function test_getRho_D2_RK5() result(assertion); logical(LK) :: assertion; end function
274 : #endif
275 : #if RK4_ENABLED
276 : module function test_getRho_D2_RK4() result(assertion); logical(LK) :: assertion; end function
277 : #endif
278 : #if RK3_ENABLED
279 : module function test_getRho_D2_RK3() result(assertion); logical(LK) :: assertion; end function
280 : #endif
281 : #if RK2_ENABLED
282 : module function test_getRho_D2_RK2() result(assertion); logical(LK) :: assertion; end function
283 : #endif
284 : #if RK1_ENABLED
285 : module function test_getRho_D2_RK1() result(assertion); logical(LK) :: assertion; end function
286 : #endif
287 :
288 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
289 :
290 : #if SK5_ENABLED
291 : module function test_getRho_D2_PSSK5() result(assertion); logical(LK) :: assertion; end function
292 : #endif
293 : #if SK4_ENABLED
294 : module function test_getRho_D2_PSSK4() result(assertion); logical(LK) :: assertion; end function
295 : #endif
296 : #if SK3_ENABLED
297 : module function test_getRho_D2_PSSK3() result(assertion); logical(LK) :: assertion; end function
298 : #endif
299 : #if SK2_ENABLED
300 : module function test_getRho_D2_PSSK2() result(assertion); logical(LK) :: assertion; end function
301 : #endif
302 : #if SK1_ENABLED
303 : module function test_getRho_D2_PSSK1() result(assertion); logical(LK) :: assertion; end function
304 : #endif
305 :
306 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
307 :
308 : module function test_getRho_D2_BSSK() result(assertion); logical(LK) :: assertion; end function
309 :
310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 :
314 : end interface
315 :
316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 :
318 : ! setRho
319 :
320 : interface
321 :
322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
323 :
324 : #if SK5_ENABLED
325 : module function test_setRho_D0_SK5() result(assertion); logical(LK) :: assertion; end function
326 : #endif
327 : #if SK4_ENABLED
328 : module function test_setRho_D0_SK4() result(assertion); logical(LK) :: assertion; end function
329 : #endif
330 : #if SK3_ENABLED
331 : module function test_setRho_D0_SK3() result(assertion); logical(LK) :: assertion; end function
332 : #endif
333 : #if SK2_ENABLED
334 : module function test_setRho_D0_SK2() result(assertion); logical(LK) :: assertion; end function
335 : #endif
336 : #if SK1_ENABLED
337 : module function test_setRho_D0_SK1() result(assertion); logical(LK) :: assertion; end function
338 : #endif
339 :
340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
342 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
343 :
344 : #if SK5_ENABLED
345 : module function test_setRho_XY_SK5() result(assertion); logical(LK) :: assertion; end function
346 : #endif
347 : #if SK4_ENABLED
348 : module function test_setRho_XY_SK4() result(assertion); logical(LK) :: assertion; end function
349 : #endif
350 : #if SK3_ENABLED
351 : module function test_setRho_XY_SK3() result(assertion); logical(LK) :: assertion; end function
352 : #endif
353 : #if SK2_ENABLED
354 : module function test_setRho_XY_SK2() result(assertion); logical(LK) :: assertion; end function
355 : #endif
356 : #if SK1_ENABLED
357 : module function test_setRho_XY_SK1() result(assertion); logical(LK) :: assertion; end function
358 : #endif
359 :
360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
361 :
362 : #if IK5_ENABLED
363 : module function test_setRho_XY_IK5() result(assertion); logical(LK) :: assertion; end function
364 : #endif
365 : #if IK4_ENABLED
366 : module function test_setRho_XY_IK4() result(assertion); logical(LK) :: assertion; end function
367 : #endif
368 : #if IK3_ENABLED
369 : module function test_setRho_XY_IK3() result(assertion); logical(LK) :: assertion; end function
370 : #endif
371 : #if IK2_ENABLED
372 : module function test_setRho_XY_IK2() result(assertion); logical(LK) :: assertion; end function
373 : #endif
374 : #if IK1_ENABLED
375 : module function test_setRho_XY_IK1() result(assertion); logical(LK) :: assertion; end function
376 : #endif
377 :
378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
379 :
380 : #if RK5_ENABLED
381 : module function test_setRho_XY_RK5() result(assertion); logical(LK) :: assertion; end function
382 : #endif
383 : #if RK4_ENABLED
384 : module function test_setRho_XY_RK4() result(assertion); logical(LK) :: assertion; end function
385 : #endif
386 : #if RK3_ENABLED
387 : module function test_setRho_XY_RK3() result(assertion); logical(LK) :: assertion; end function
388 : #endif
389 : #if RK2_ENABLED
390 : module function test_setRho_XY_RK2() result(assertion); logical(LK) :: assertion; end function
391 : #endif
392 : #if RK1_ENABLED
393 : module function test_setRho_XY_RK1() result(assertion); logical(LK) :: assertion; end function
394 : #endif
395 :
396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
397 :
398 : #if SK5_ENABLED
399 : module function test_setRho_XY_PSSK5() result(assertion); logical(LK) :: assertion; end function
400 : #endif
401 : #if SK4_ENABLED
402 : module function test_setRho_XY_PSSK4() result(assertion); logical(LK) :: assertion; end function
403 : #endif
404 : #if SK3_ENABLED
405 : module function test_setRho_XY_PSSK3() result(assertion); logical(LK) :: assertion; end function
406 : #endif
407 : #if SK2_ENABLED
408 : module function test_setRho_XY_PSSK2() result(assertion); logical(LK) :: assertion; end function
409 : #endif
410 : #if SK1_ENABLED
411 : module function test_setRho_XY_PSSK1() result(assertion); logical(LK) :: assertion; end function
412 : #endif
413 :
414 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
415 :
416 : module function test_setRho_XY_BSSK() result(assertion); logical(LK) :: assertion; end function
417 :
418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
419 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
420 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
421 :
422 : #if SK5_ENABLED
423 : module function test_setRho_D2_SK5() result(assertion); logical(LK) :: assertion; end function
424 : #endif
425 : #if SK4_ENABLED
426 : module function test_setRho_D2_SK4() result(assertion); logical(LK) :: assertion; end function
427 : #endif
428 : #if SK3_ENABLED
429 : module function test_setRho_D2_SK3() result(assertion); logical(LK) :: assertion; end function
430 : #endif
431 : #if SK2_ENABLED
432 : module function test_setRho_D2_SK2() result(assertion); logical(LK) :: assertion; end function
433 : #endif
434 : #if SK1_ENABLED
435 : module function test_setRho_D2_SK1() result(assertion); logical(LK) :: assertion; end function
436 : #endif
437 :
438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
439 :
440 : #if IK5_ENABLED
441 : module function test_setRho_D2_IK5() result(assertion); logical(LK) :: assertion; end function
442 : #endif
443 : #if IK4_ENABLED
444 : module function test_setRho_D2_IK4() result(assertion); logical(LK) :: assertion; end function
445 : #endif
446 : #if IK3_ENABLED
447 : module function test_setRho_D2_IK3() result(assertion); logical(LK) :: assertion; end function
448 : #endif
449 : #if IK2_ENABLED
450 : module function test_setRho_D2_IK2() result(assertion); logical(LK) :: assertion; end function
451 : #endif
452 : #if IK1_ENABLED
453 : module function test_setRho_D2_IK1() result(assertion); logical(LK) :: assertion; end function
454 : #endif
455 :
456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
457 :
458 : #if RK5_ENABLED
459 : module function test_setRho_D2_RK5() result(assertion); logical(LK) :: assertion; end function
460 : #endif
461 : #if RK4_ENABLED
462 : module function test_setRho_D2_RK4() result(assertion); logical(LK) :: assertion; end function
463 : #endif
464 : #if RK3_ENABLED
465 : module function test_setRho_D2_RK3() result(assertion); logical(LK) :: assertion; end function
466 : #endif
467 : #if RK2_ENABLED
468 : module function test_setRho_D2_RK2() result(assertion); logical(LK) :: assertion; end function
469 : #endif
470 : #if RK1_ENABLED
471 : module function test_setRho_D2_RK1() result(assertion); logical(LK) :: assertion; end function
472 : #endif
473 :
474 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
475 :
476 : #if SK5_ENABLED
477 : module function test_setRho_D2_PSSK5() result(assertion); logical(LK) :: assertion; end function
478 : #endif
479 : #if SK4_ENABLED
480 : module function test_setRho_D2_PSSK4() result(assertion); logical(LK) :: assertion; end function
481 : #endif
482 : #if SK3_ENABLED
483 : module function test_setRho_D2_PSSK3() result(assertion); logical(LK) :: assertion; end function
484 : #endif
485 : #if SK2_ENABLED
486 : module function test_setRho_D2_PSSK2() result(assertion); logical(LK) :: assertion; end function
487 : #endif
488 : #if SK1_ENABLED
489 : module function test_setRho_D2_PSSK1() result(assertion); logical(LK) :: assertion; end function
490 : #endif
491 :
492 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
493 :
494 : module function test_setRho_D2_BSSK() result(assertion); logical(LK) :: assertion; end function
495 :
496 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
497 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
498 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
499 :
500 : end interface
501 :
502 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
503 :
504 : ! setCordance
505 :
506 : interface
507 :
508 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
509 :
510 : #if SK5_ENABLED
511 : module function test_setCordance_D0_SK5() result(assertion); logical(LK) :: assertion; end function
512 : #endif
513 : #if SK4_ENABLED
514 : module function test_setCordance_D0_SK4() result(assertion); logical(LK) :: assertion; end function
515 : #endif
516 : #if SK3_ENABLED
517 : module function test_setCordance_D0_SK3() result(assertion); logical(LK) :: assertion; end function
518 : #endif
519 : #if SK2_ENABLED
520 : module function test_setCordance_D0_SK2() result(assertion); logical(LK) :: assertion; end function
521 : #endif
522 : #if SK1_ENABLED
523 : module function test_setCordance_D0_SK1() result(assertion); logical(LK) :: assertion; end function
524 : #endif
525 :
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 :
528 : #if SK5_ENABLED
529 : module function test_setCordance_D1_SK5() result(assertion); logical(LK) :: assertion; end function
530 : #endif
531 : #if SK4_ENABLED
532 : module function test_setCordance_D1_SK4() result(assertion); logical(LK) :: assertion; end function
533 : #endif
534 : #if SK3_ENABLED
535 : module function test_setCordance_D1_SK3() result(assertion); logical(LK) :: assertion; end function
536 : #endif
537 : #if SK2_ENABLED
538 : module function test_setCordance_D1_SK2() result(assertion); logical(LK) :: assertion; end function
539 : #endif
540 : #if SK1_ENABLED
541 : module function test_setCordance_D1_SK1() result(assertion); logical(LK) :: assertion; end function
542 : #endif
543 :
544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 :
546 : #if IK5_ENABLED
547 : module function test_setCordance_D1_IK5() result(assertion); logical(LK) :: assertion; end function
548 : #endif
549 : #if IK4_ENABLED
550 : module function test_setCordance_D1_IK4() result(assertion); logical(LK) :: assertion; end function
551 : #endif
552 : #if IK3_ENABLED
553 : module function test_setCordance_D1_IK3() result(assertion); logical(LK) :: assertion; end function
554 : #endif
555 : #if IK2_ENABLED
556 : module function test_setCordance_D1_IK2() result(assertion); logical(LK) :: assertion; end function
557 : #endif
558 : #if IK1_ENABLED
559 : module function test_setCordance_D1_IK1() result(assertion); logical(LK) :: assertion; end function
560 : #endif
561 :
562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
563 :
564 : #if RK5_ENABLED
565 : module function test_setCordance_D1_RK5() result(assertion); logical(LK) :: assertion; end function
566 : #endif
567 : #if RK4_ENABLED
568 : module function test_setCordance_D1_RK4() result(assertion); logical(LK) :: assertion; end function
569 : #endif
570 : #if RK3_ENABLED
571 : module function test_setCordance_D1_RK3() result(assertion); logical(LK) :: assertion; end function
572 : #endif
573 : #if RK2_ENABLED
574 : module function test_setCordance_D1_RK2() result(assertion); logical(LK) :: assertion; end function
575 : #endif
576 : #if RK1_ENABLED
577 : module function test_setCordance_D1_RK1() result(assertion); logical(LK) :: assertion; end function
578 : #endif
579 :
580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581 :
582 : #if SK5_ENABLED
583 : module function test_setCordance_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
584 : #endif
585 : #if SK4_ENABLED
586 : module function test_setCordance_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
587 : #endif
588 : #if SK3_ENABLED
589 : module function test_setCordance_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
590 : #endif
591 : #if SK2_ENABLED
592 : module function test_setCordance_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
593 : #endif
594 : #if SK1_ENABLED
595 : module function test_setCordance_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
596 : #endif
597 :
598 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
599 :
600 : module function test_setCordance_D1_BSSK() result(assertion); logical(LK) :: assertion; end function
601 :
602 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
603 :
604 : end interface
605 :
606 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
607 :
608 : contains
609 :
610 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
611 :
612 1 : subroutine setTest()
613 :
614 : implicit none
615 :
616 1 : test = test_type(MODULE_NAME)
617 :
618 : ! getCor
619 :
620 : block
621 :
622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
623 :
624 : #if CK5_ENABLED
625 : call test%run(test_getCor_CK5, SK_"test_getCor_CK5")
626 : #endif
627 : #if CK4_ENABLED
628 1 : call test%run(test_getCor_CK4, SK_"test_getCor_CK4")
629 : #endif
630 : #if CK3_ENABLED
631 1 : call test%run(test_getCor_CK3, SK_"test_getCor_CK3")
632 : #endif
633 : #if CK2_ENABLED
634 1 : call test%run(test_getCor_CK2, SK_"test_getCor_CK2")
635 : #endif
636 : #if CK1_ENABLED
637 1 : call test%run(test_getCor_CK1, SK_"test_getCor_CK1")
638 : #endif
639 :
640 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
641 :
642 : #if RK5_ENABLED
643 : call test%run(test_getCor_RK5, SK_"test_getCor_RK5")
644 : #endif
645 : #if RK4_ENABLED
646 1 : call test%run(test_getCor_RK4, SK_"test_getCor_RK4")
647 : #endif
648 : #if RK3_ENABLED
649 1 : call test%run(test_getCor_RK3, SK_"test_getCor_RK3")
650 : #endif
651 : #if RK2_ENABLED
652 1 : call test%run(test_getCor_RK2, SK_"test_getCor_RK2")
653 : #endif
654 : #if RK1_ENABLED
655 1 : call test%run(test_getCor_RK1, SK_"test_getCor_RK1")
656 : #endif
657 :
658 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
659 :
660 : end block
661 :
662 : ! setCor
663 :
664 : block
665 :
666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
667 :
668 : #if CK5_ENABLED
669 : call test%run(test_setCor_CK5, SK_"test_setCor_CK5")
670 : #endif
671 : #if CK4_ENABLED
672 1 : call test%run(test_setCor_CK4, SK_"test_setCor_CK4")
673 : #endif
674 : #if CK3_ENABLED
675 1 : call test%run(test_setCor_CK3, SK_"test_setCor_CK3")
676 : #endif
677 : #if CK2_ENABLED
678 1 : call test%run(test_setCor_CK2, SK_"test_setCor_CK2")
679 : #endif
680 : #if CK1_ENABLED
681 1 : call test%run(test_setCor_CK1, SK_"test_setCor_CK1")
682 : #endif
683 :
684 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
685 :
686 : #if RK5_ENABLED
687 : call test%run(test_setCor_RK5, SK_"test_setCor_RK5")
688 : #endif
689 : #if RK4_ENABLED
690 1 : call test%run(test_setCor_RK4, SK_"test_setCor_RK4")
691 : #endif
692 : #if RK3_ENABLED
693 1 : call test%run(test_setCor_RK3, SK_"test_setCor_RK3")
694 : #endif
695 : #if RK2_ENABLED
696 1 : call test%run(test_setCor_RK2, SK_"test_setCor_RK2")
697 : #endif
698 : #if RK1_ENABLED
699 1 : call test%run(test_setCor_RK1, SK_"test_setCor_RK1")
700 : #endif
701 :
702 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
703 :
704 : end block
705 :
706 : ! getRho
707 :
708 : block
709 :
710 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
711 :
712 : #if SK5_ENABLED
713 : call test%run(test_getRho_D0_SK5, SK_"test_getRho_D0_SK5")
714 : #endif
715 : #if SK4_ENABLED
716 : call test%run(test_getRho_D0_SK4, SK_"test_getRho_D0_SK4")
717 : #endif
718 : #if SK3_ENABLED
719 : call test%run(test_getRho_D0_SK3, SK_"test_getRho_D0_SK3")
720 : #endif
721 : #if SK2_ENABLED
722 : call test%run(test_getRho_D0_SK2, SK_"test_getRho_D0_SK2")
723 : #endif
724 : #if SK1_ENABLED
725 1 : call test%run(test_getRho_D0_SK1, SK_"test_getRho_D0_SK1")
726 : #endif
727 :
728 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
730 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
731 :
732 : #if SK5_ENABLED
733 : call test%run(test_getRho_XY_SK5, SK_"test_getRho_XY_SK5")
734 : #endif
735 : #if SK4_ENABLED
736 : call test%run(test_getRho_XY_SK4, SK_"test_getRho_XY_SK4")
737 : #endif
738 : #if SK3_ENABLED
739 : call test%run(test_getRho_XY_SK3, SK_"test_getRho_XY_SK3")
740 : #endif
741 : #if SK2_ENABLED
742 : call test%run(test_getRho_XY_SK2, SK_"test_getRho_XY_SK2")
743 : #endif
744 : #if SK1_ENABLED
745 1 : call test%run(test_getRho_XY_SK1, SK_"test_getRho_XY_SK1")
746 : #endif
747 :
748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
749 :
750 : #if IK5_ENABLED
751 1 : call test%run(test_getRho_XY_IK5, SK_"test_getRho_XY_IK5")
752 : #endif
753 : #if IK4_ENABLED
754 1 : call test%run(test_getRho_XY_IK4, SK_"test_getRho_XY_IK4")
755 : #endif
756 : #if IK3_ENABLED
757 1 : call test%run(test_getRho_XY_IK3, SK_"test_getRho_XY_IK3")
758 : #endif
759 : #if IK2_ENABLED
760 1 : call test%run(test_getRho_XY_IK2, SK_"test_getRho_XY_IK2")
761 : #endif
762 : #if IK1_ENABLED
763 1 : call test%run(test_getRho_XY_IK1, SK_"test_getRho_XY_IK1")
764 : #endif
765 :
766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
767 :
768 : #if RK5_ENABLED
769 : call test%run(test_getRho_XY_RK5, SK_"test_getRho_XY_RK5")
770 : #endif
771 : #if RK4_ENABLED
772 1 : call test%run(test_getRho_XY_RK4, SK_"test_getRho_XY_RK4")
773 : #endif
774 : #if RK3_ENABLED
775 1 : call test%run(test_getRho_XY_RK3, SK_"test_getRho_XY_RK3")
776 : #endif
777 : #if RK2_ENABLED
778 1 : call test%run(test_getRho_XY_RK2, SK_"test_getRho_XY_RK2")
779 : #endif
780 : #if RK1_ENABLED
781 1 : call test%run(test_getRho_XY_RK1, SK_"test_getRho_XY_RK1")
782 : #endif
783 :
784 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
785 :
786 : #if PDT_ENABLED
787 : #if SK5_ENABLED
788 : call test%run(test_getRho_XY_PSSK5, SK_"test_getRho_XY_PSSK5")
789 : #endif
790 : #if SK4_ENABLED
791 : call test%run(test_getRho_XY_PSSK4, SK_"test_getRho_XY_PSSK4")
792 : #endif
793 : #if SK3_ENABLED
794 : call test%run(test_getRho_XY_PSSK3, SK_"test_getRho_XY_PSSK3")
795 : #endif
796 : #if SK2_ENABLED
797 : call test%run(test_getRho_XY_PSSK2, SK_"test_getRho_XY_PSSK2")
798 : #endif
799 : #if SK1_ENABLED
800 : call test%run(test_getRho_XY_PSSK1, SK_"test_getRho_XY_PSSK1")
801 : #endif
802 : #endif
803 :
804 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
805 :
806 1 : call test%run(test_getRho_XY_BSSK, SK_"test_getRho_XY_BSSK")
807 :
808 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
809 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
810 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
811 :
812 : #if SK5_ENABLED
813 : call test%run(test_getRho_D2_SK5, SK_"test_getRho_D2_SK5")
814 : #endif
815 : #if SK4_ENABLED
816 : call test%run(test_getRho_D2_SK4, SK_"test_getRho_D2_SK4")
817 : #endif
818 : #if SK3_ENABLED
819 : call test%run(test_getRho_D2_SK3, SK_"test_getRho_D2_SK3")
820 : #endif
821 : #if SK2_ENABLED
822 : call test%run(test_getRho_D2_SK2, SK_"test_getRho_D2_SK2")
823 : #endif
824 : #if SK1_ENABLED
825 1 : call test%run(test_getRho_D2_SK1, SK_"test_getRho_D2_SK1")
826 : #endif
827 :
828 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
829 :
830 : #if IK5_ENABLED
831 1 : call test%run(test_getRho_D2_IK5, SK_"test_getRho_D2_IK5")
832 : #endif
833 : #if IK4_ENABLED
834 1 : call test%run(test_getRho_D2_IK4, SK_"test_getRho_D2_IK4")
835 : #endif
836 : #if IK3_ENABLED
837 1 : call test%run(test_getRho_D2_IK3, SK_"test_getRho_D2_IK3")
838 : #endif
839 : #if IK2_ENABLED
840 1 : call test%run(test_getRho_D2_IK2, SK_"test_getRho_D2_IK2")
841 : #endif
842 : #if IK1_ENABLED
843 1 : call test%run(test_getRho_D2_IK1, SK_"test_getRho_D2_IK1")
844 : #endif
845 :
846 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
847 :
848 : #if RK5_ENABLED
849 : call test%run(test_getRho_D2_RK5, SK_"test_getRho_D2_RK5")
850 : #endif
851 : #if RK4_ENABLED
852 1 : call test%run(test_getRho_D2_RK4, SK_"test_getRho_D2_RK4")
853 : #endif
854 : #if RK3_ENABLED
855 1 : call test%run(test_getRho_D2_RK3, SK_"test_getRho_D2_RK3")
856 : #endif
857 : #if RK2_ENABLED
858 1 : call test%run(test_getRho_D2_RK2, SK_"test_getRho_D2_RK2")
859 : #endif
860 : #if RK1_ENABLED
861 1 : call test%run(test_getRho_D2_RK1, SK_"test_getRho_D2_RK1")
862 : #endif
863 :
864 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
865 :
866 : #if PDT_ENABLED
867 : #if SK5_ENABLED
868 : call test%run(test_getRho_D2_PSSK5, SK_"test_getRho_D2_PSSK5")
869 : #endif
870 : #if SK4_ENABLED
871 : call test%run(test_getRho_D2_PSSK4, SK_"test_getRho_D2_PSSK4")
872 : #endif
873 : #if SK3_ENABLED
874 : call test%run(test_getRho_D2_PSSK3, SK_"test_getRho_D2_PSSK3")
875 : #endif
876 : #if SK2_ENABLED
877 : call test%run(test_getRho_D2_PSSK2, SK_"test_getRho_D2_PSSK2")
878 : #endif
879 : #if SK1_ENABLED
880 : call test%run(test_getRho_D2_PSSK1, SK_"test_getRho_D2_PSSK1")
881 : #endif
882 : #endif
883 :
884 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
885 :
886 1 : call test%run(test_getRho_D2_BSSK, SK_"test_getRho_D2_BSSK")
887 :
888 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
889 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
890 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
891 :
892 : end block
893 :
894 : ! setRho
895 :
896 : block
897 :
898 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
899 :
900 : #if SK5_ENABLED
901 : call test%run(test_setRho_D0_SK5, SK_"test_setRho_D0_SK5")
902 : #endif
903 : #if SK4_ENABLED
904 : call test%run(test_setRho_D0_SK4, SK_"test_setRho_D0_SK4")
905 : #endif
906 : #if SK3_ENABLED
907 : call test%run(test_setRho_D0_SK3, SK_"test_setRho_D0_SK3")
908 : #endif
909 : #if SK2_ENABLED
910 : call test%run(test_setRho_D0_SK2, SK_"test_setRho_D0_SK2")
911 : #endif
912 : #if SK1_ENABLED
913 1 : call test%run(test_setRho_D0_SK1, SK_"test_setRho_D0_SK1")
914 : #endif
915 :
916 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
917 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
918 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
919 :
920 : #if SK5_ENABLED
921 : call test%run(test_setRho_XY_SK5, SK_"test_setRho_XY_SK5")
922 : #endif
923 : #if SK4_ENABLED
924 : call test%run(test_setRho_XY_SK4, SK_"test_setRho_XY_SK4")
925 : #endif
926 : #if SK3_ENABLED
927 : call test%run(test_setRho_XY_SK3, SK_"test_setRho_XY_SK3")
928 : #endif
929 : #if SK2_ENABLED
930 : call test%run(test_setRho_XY_SK2, SK_"test_setRho_XY_SK2")
931 : #endif
932 : #if SK1_ENABLED
933 1 : call test%run(test_setRho_XY_SK1, SK_"test_setRho_XY_SK1")
934 : #endif
935 :
936 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
937 :
938 : #if IK5_ENABLED
939 1 : call test%run(test_setRho_XY_IK5, SK_"test_setRho_XY_IK5")
940 : #endif
941 : #if IK4_ENABLED
942 1 : call test%run(test_setRho_XY_IK4, SK_"test_setRho_XY_IK4")
943 : #endif
944 : #if IK3_ENABLED
945 1 : call test%run(test_setRho_XY_IK3, SK_"test_setRho_XY_IK3")
946 : #endif
947 : #if IK2_ENABLED
948 1 : call test%run(test_setRho_XY_IK2, SK_"test_setRho_XY_IK2")
949 : #endif
950 : #if IK1_ENABLED
951 1 : call test%run(test_setRho_XY_IK1, SK_"test_setRho_XY_IK1")
952 : #endif
953 :
954 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
955 :
956 : #if RK5_ENABLED
957 : call test%run(test_setRho_XY_RK5, SK_"test_setRho_XY_RK5")
958 : #endif
959 : #if RK4_ENABLED
960 1 : call test%run(test_setRho_XY_RK4, SK_"test_setRho_XY_RK4")
961 : #endif
962 : #if RK3_ENABLED
963 1 : call test%run(test_setRho_XY_RK3, SK_"test_setRho_XY_RK3")
964 : #endif
965 : #if RK2_ENABLED
966 1 : call test%run(test_setRho_XY_RK2, SK_"test_setRho_XY_RK2")
967 : #endif
968 : #if RK1_ENABLED
969 1 : call test%run(test_setRho_XY_RK1, SK_"test_setRho_XY_RK1")
970 : #endif
971 :
972 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
973 :
974 : #if PDT_ENABLED
975 : #if SK5_ENABLED
976 : call test%run(test_setRho_XY_PSSK5, SK_"test_setRho_XY_PSSK5")
977 : #endif
978 : #if SK4_ENABLED
979 : call test%run(test_setRho_XY_PSSK4, SK_"test_setRho_XY_PSSK4")
980 : #endif
981 : #if SK3_ENABLED
982 : call test%run(test_setRho_XY_PSSK3, SK_"test_setRho_XY_PSSK3")
983 : #endif
984 : #if SK2_ENABLED
985 : call test%run(test_setRho_XY_PSSK2, SK_"test_setRho_XY_PSSK2")
986 : #endif
987 : #if SK1_ENABLED
988 : call test%run(test_setRho_XY_PSSK1, SK_"test_setRho_XY_PSSK1")
989 : #endif
990 : #endif
991 :
992 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
993 :
994 1 : call test%run(test_setRho_XY_BSSK, SK_"test_setRho_XY_BSSK")
995 :
996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
998 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
999 :
1000 : #if SK5_ENABLED
1001 : call test%run(test_setRho_D2_SK5, SK_"test_setRho_D2_SK5")
1002 : #endif
1003 : #if SK4_ENABLED
1004 : call test%run(test_setRho_D2_SK4, SK_"test_setRho_D2_SK4")
1005 : #endif
1006 : #if SK3_ENABLED
1007 : call test%run(test_setRho_D2_SK3, SK_"test_setRho_D2_SK3")
1008 : #endif
1009 : #if SK2_ENABLED
1010 : call test%run(test_setRho_D2_SK2, SK_"test_setRho_D2_SK2")
1011 : #endif
1012 : #if SK1_ENABLED
1013 1 : call test%run(test_setRho_D2_SK1, SK_"test_setRho_D2_SK1")
1014 : #endif
1015 :
1016 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1017 :
1018 : #if IK5_ENABLED
1019 1 : call test%run(test_setRho_D2_IK5, SK_"test_setRho_D2_IK5")
1020 : #endif
1021 : #if IK4_ENABLED
1022 1 : call test%run(test_setRho_D2_IK4, SK_"test_setRho_D2_IK4")
1023 : #endif
1024 : #if IK3_ENABLED
1025 1 : call test%run(test_setRho_D2_IK3, SK_"test_setRho_D2_IK3")
1026 : #endif
1027 : #if IK2_ENABLED
1028 1 : call test%run(test_setRho_D2_IK2, SK_"test_setRho_D2_IK2")
1029 : #endif
1030 : #if IK1_ENABLED
1031 1 : call test%run(test_setRho_D2_IK1, SK_"test_setRho_D2_IK1")
1032 : #endif
1033 :
1034 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1035 :
1036 : #if RK5_ENABLED
1037 : call test%run(test_setRho_D2_RK5, SK_"test_setRho_D2_RK5")
1038 : #endif
1039 : #if RK4_ENABLED
1040 1 : call test%run(test_setRho_D2_RK4, SK_"test_setRho_D2_RK4")
1041 : #endif
1042 : #if RK3_ENABLED
1043 1 : call test%run(test_setRho_D2_RK3, SK_"test_setRho_D2_RK3")
1044 : #endif
1045 : #if RK2_ENABLED
1046 1 : call test%run(test_setRho_D2_RK2, SK_"test_setRho_D2_RK2")
1047 : #endif
1048 : #if RK1_ENABLED
1049 1 : call test%run(test_setRho_D2_RK1, SK_"test_setRho_D2_RK1")
1050 : #endif
1051 :
1052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1053 :
1054 : #if PDT_ENABLED
1055 : #if SK5_ENABLED
1056 : call test%run(test_setRho_D2_PSSK5, SK_"test_setRho_D2_PSSK5")
1057 : #endif
1058 : #if SK4_ENABLED
1059 : call test%run(test_setRho_D2_PSSK4, SK_"test_setRho_D2_PSSK4")
1060 : #endif
1061 : #if SK3_ENABLED
1062 : call test%run(test_setRho_D2_PSSK3, SK_"test_setRho_D2_PSSK3")
1063 : #endif
1064 : #if SK2_ENABLED
1065 : call test%run(test_setRho_D2_PSSK2, SK_"test_setRho_D2_PSSK2")
1066 : #endif
1067 : #if SK1_ENABLED
1068 : call test%run(test_setRho_D2_PSSK1, SK_"test_setRho_D2_PSSK1")
1069 : #endif
1070 : #endif
1071 :
1072 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1073 :
1074 1 : call test%run(test_setRho_D2_BSSK, SK_"test_setRho_D2_BSSK")
1075 :
1076 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1077 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1078 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1079 :
1080 : end block
1081 :
1082 : ! setCordance
1083 :
1084 : block
1085 :
1086 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1087 :
1088 : #if SK5_ENABLED
1089 : call test%run(test_setCordance_D0_SK5, SK_"test_setCordance_D0_SK5")
1090 : #endif
1091 : #if SK4_ENABLED
1092 : call test%run(test_setCordance_D0_SK4, SK_"test_setCordance_D0_SK4")
1093 : #endif
1094 : #if SK3_ENABLED
1095 : call test%run(test_setCordance_D0_SK3, SK_"test_setCordance_D0_SK3")
1096 : #endif
1097 : #if SK2_ENABLED
1098 : call test%run(test_setCordance_D0_SK2, SK_"test_setCordance_D0_SK2")
1099 : #endif
1100 : #if SK1_ENABLED
1101 1 : call test%run(test_setCordance_D0_SK1, SK_"test_setCordance_D0_SK1")
1102 : #endif
1103 :
1104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1105 :
1106 : #if SK5_ENABLED
1107 : call test%run(test_setCordance_D1_SK5, SK_"test_setCordance_D1_SK5")
1108 : #endif
1109 : #if SK4_ENABLED
1110 : call test%run(test_setCordance_D1_SK4, SK_"test_setCordance_D1_SK4")
1111 : #endif
1112 : #if SK3_ENABLED
1113 : call test%run(test_setCordance_D1_SK3, SK_"test_setCordance_D1_SK3")
1114 : #endif
1115 : #if SK2_ENABLED
1116 : call test%run(test_setCordance_D1_SK2, SK_"test_setCordance_D1_SK2")
1117 : #endif
1118 : #if SK1_ENABLED
1119 1 : call test%run(test_setCordance_D1_SK1, SK_"test_setCordance_D1_SK1")
1120 : #endif
1121 :
1122 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1123 :
1124 : #if IK5_ENABLED
1125 1 : call test%run(test_setCordance_D1_IK5, SK_"test_setCordance_D1_IK5")
1126 : #endif
1127 : #if IK4_ENABLED
1128 1 : call test%run(test_setCordance_D1_IK4, SK_"test_setCordance_D1_IK4")
1129 : #endif
1130 : #if IK3_ENABLED
1131 1 : call test%run(test_setCordance_D1_IK3, SK_"test_setCordance_D1_IK3")
1132 : #endif
1133 : #if IK2_ENABLED
1134 1 : call test%run(test_setCordance_D1_IK2, SK_"test_setCordance_D1_IK2")
1135 : #endif
1136 : #if IK1_ENABLED
1137 1 : call test%run(test_setCordance_D1_IK1, SK_"test_setCordance_D1_IK1")
1138 : #endif
1139 :
1140 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1141 :
1142 : #if RK5_ENABLED
1143 : call test%run(test_setCordance_D1_RK5, SK_"test_setCordance_D1_RK5")
1144 : #endif
1145 : #if RK4_ENABLED
1146 1 : call test%run(test_setCordance_D1_RK4, SK_"test_setCordance_D1_RK4")
1147 : #endif
1148 : #if RK3_ENABLED
1149 1 : call test%run(test_setCordance_D1_RK3, SK_"test_setCordance_D1_RK3")
1150 : #endif
1151 : #if RK2_ENABLED
1152 1 : call test%run(test_setCordance_D1_RK2, SK_"test_setCordance_D1_RK2")
1153 : #endif
1154 : #if RK1_ENABLED
1155 1 : call test%run(test_setCordance_D1_RK1, SK_"test_setCordance_D1_RK1")
1156 : #endif
1157 :
1158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1159 :
1160 : #if PDT_ENABLED
1161 : #if SK5_ENABLED
1162 : call test%run(test_setCordance_D1_PSSK5, SK_"test_setCordance_D1_PSSK5")
1163 : #endif
1164 : #if SK4_ENABLED
1165 : call test%run(test_setCordance_D1_PSSK4, SK_"test_setCordance_D1_PSSK4")
1166 : #endif
1167 : #if SK3_ENABLED
1168 : call test%run(test_setCordance_D1_PSSK3, SK_"test_setCordance_D1_PSSK3")
1169 : #endif
1170 : #if SK2_ENABLED
1171 : call test%run(test_setCordance_D1_PSSK2, SK_"test_setCordance_D1_PSSK2")
1172 : #endif
1173 : #if SK1_ENABLED
1174 : call test%run(test_setCordance_D1_PSSK1, SK_"test_setCordance_D1_PSSK1")
1175 : #endif
1176 : #endif
1177 :
1178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1179 :
1180 1 : call test%run(test_setCordance_D1_BSSK, SK_"test_setCordance_D1_BSSK")
1181 :
1182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1183 :
1184 : end block
1185 :
1186 1 : call test%summarize()
1187 :
1188 1 : end subroutine setTest
1189 :
1190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1191 :
1192 : end module test_pm_sampleCor
|
