ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_sampleCor.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
24
25!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26
27module test_pm_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
608contains
609
610!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
611
612 subroutine setTest()
613
614 implicit none
615
616 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 call test%run(test_getCor_CK4, SK_"test_getCor_CK4")
629#endif
630#if CK3_ENABLED
631 call test%run(test_getCor_CK3, SK_"test_getCor_CK3")
632#endif
633#if CK2_ENABLED
634 call test%run(test_getCor_CK2, SK_"test_getCor_CK2")
635#endif
636#if CK1_ENABLED
637 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 call test%run(test_getCor_RK4, SK_"test_getCor_RK4")
647#endif
648#if RK3_ENABLED
649 call test%run(test_getCor_RK3, SK_"test_getCor_RK3")
650#endif
651#if RK2_ENABLED
652 call test%run(test_getCor_RK2, SK_"test_getCor_RK2")
653#endif
654#if RK1_ENABLED
655 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 call test%run(test_setCor_CK4, SK_"test_setCor_CK4")
673#endif
674#if CK3_ENABLED
675 call test%run(test_setCor_CK3, SK_"test_setCor_CK3")
676#endif
677#if CK2_ENABLED
678 call test%run(test_setCor_CK2, SK_"test_setCor_CK2")
679#endif
680#if CK1_ENABLED
681 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 call test%run(test_setCor_RK4, SK_"test_setCor_RK4")
691#endif
692#if RK3_ENABLED
693 call test%run(test_setCor_RK3, SK_"test_setCor_RK3")
694#endif
695#if RK2_ENABLED
696 call test%run(test_setCor_RK2, SK_"test_setCor_RK2")
697#endif
698#if RK1_ENABLED
699 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 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 call test%run(test_getRho_XY_SK1, SK_"test_getRho_XY_SK1")
746#endif
747
748 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
749
750#if IK5_ENABLED
751 call test%run(test_getRho_XY_IK5, SK_"test_getRho_XY_IK5")
752#endif
753#if IK4_ENABLED
754 call test%run(test_getRho_XY_IK4, SK_"test_getRho_XY_IK4")
755#endif
756#if IK3_ENABLED
757 call test%run(test_getRho_XY_IK3, SK_"test_getRho_XY_IK3")
758#endif
759#if IK2_ENABLED
760 call test%run(test_getRho_XY_IK2, SK_"test_getRho_XY_IK2")
761#endif
762#if IK1_ENABLED
763 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 call test%run(test_getRho_XY_RK4, SK_"test_getRho_XY_RK4")
773#endif
774#if RK3_ENABLED
775 call test%run(test_getRho_XY_RK3, SK_"test_getRho_XY_RK3")
776#endif
777#if RK2_ENABLED
778 call test%run(test_getRho_XY_RK2, SK_"test_getRho_XY_RK2")
779#endif
780#if RK1_ENABLED
781 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 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 call test%run(test_getRho_D2_SK1, SK_"test_getRho_D2_SK1")
826#endif
827
828 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
829
830#if IK5_ENABLED
831 call test%run(test_getRho_D2_IK5, SK_"test_getRho_D2_IK5")
832#endif
833#if IK4_ENABLED
834 call test%run(test_getRho_D2_IK4, SK_"test_getRho_D2_IK4")
835#endif
836#if IK3_ENABLED
837 call test%run(test_getRho_D2_IK3, SK_"test_getRho_D2_IK3")
838#endif
839#if IK2_ENABLED
840 call test%run(test_getRho_D2_IK2, SK_"test_getRho_D2_IK2")
841#endif
842#if IK1_ENABLED
843 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 call test%run(test_getRho_D2_RK4, SK_"test_getRho_D2_RK4")
853#endif
854#if RK3_ENABLED
855 call test%run(test_getRho_D2_RK3, SK_"test_getRho_D2_RK3")
856#endif
857#if RK2_ENABLED
858 call test%run(test_getRho_D2_RK2, SK_"test_getRho_D2_RK2")
859#endif
860#if RK1_ENABLED
861 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 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 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 call test%run(test_setRho_XY_SK1, SK_"test_setRho_XY_SK1")
934#endif
935
936 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
937
938#if IK5_ENABLED
939 call test%run(test_setRho_XY_IK5, SK_"test_setRho_XY_IK5")
940#endif
941#if IK4_ENABLED
942 call test%run(test_setRho_XY_IK4, SK_"test_setRho_XY_IK4")
943#endif
944#if IK3_ENABLED
945 call test%run(test_setRho_XY_IK3, SK_"test_setRho_XY_IK3")
946#endif
947#if IK2_ENABLED
948 call test%run(test_setRho_XY_IK2, SK_"test_setRho_XY_IK2")
949#endif
950#if IK1_ENABLED
951 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 call test%run(test_setRho_XY_RK4, SK_"test_setRho_XY_RK4")
961#endif
962#if RK3_ENABLED
963 call test%run(test_setRho_XY_RK3, SK_"test_setRho_XY_RK3")
964#endif
965#if RK2_ENABLED
966 call test%run(test_setRho_XY_RK2, SK_"test_setRho_XY_RK2")
967#endif
968#if RK1_ENABLED
969 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 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 call test%run(test_setRho_D2_SK1, SK_"test_setRho_D2_SK1")
1014#endif
1015
1016 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1017
1018#if IK5_ENABLED
1019 call test%run(test_setRho_D2_IK5, SK_"test_setRho_D2_IK5")
1020#endif
1021#if IK4_ENABLED
1022 call test%run(test_setRho_D2_IK4, SK_"test_setRho_D2_IK4")
1023#endif
1024#if IK3_ENABLED
1025 call test%run(test_setRho_D2_IK3, SK_"test_setRho_D2_IK3")
1026#endif
1027#if IK2_ENABLED
1028 call test%run(test_setRho_D2_IK2, SK_"test_setRho_D2_IK2")
1029#endif
1030#if IK1_ENABLED
1031 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 call test%run(test_setRho_D2_RK4, SK_"test_setRho_D2_RK4")
1041#endif
1042#if RK3_ENABLED
1043 call test%run(test_setRho_D2_RK3, SK_"test_setRho_D2_RK3")
1044#endif
1045#if RK2_ENABLED
1046 call test%run(test_setRho_D2_RK2, SK_"test_setRho_D2_RK2")
1047#endif
1048#if RK1_ENABLED
1049 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 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 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 call test%run(test_setCordance_D1_SK1, SK_"test_setCordance_D1_SK1")
1120#endif
1121
1122 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1123
1124#if IK5_ENABLED
1125 call test%run(test_setCordance_D1_IK5, SK_"test_setCordance_D1_IK5")
1126#endif
1127#if IK4_ENABLED
1128 call test%run(test_setCordance_D1_IK4, SK_"test_setCordance_D1_IK4")
1129#endif
1130#if IK3_ENABLED
1131 call test%run(test_setCordance_D1_IK3, SK_"test_setCordance_D1_IK3")
1132#endif
1133#if IK2_ENABLED
1134 call test%run(test_setCordance_D1_IK2, SK_"test_setCordance_D1_IK2")
1135#endif
1136#if IK1_ENABLED
1137 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 call test%run(test_setCordance_D1_RK4, SK_"test_setCordance_D1_RK4")
1147#endif
1148#if RK3_ENABLED
1149 call test%run(test_setCordance_D1_RK3, SK_"test_setCordance_D1_RK3")
1150#endif
1151#if RK2_ENABLED
1152 call test%run(test_setCordance_D1_RK2, SK_"test_setCordance_D1_RK2")
1153#endif
1154#if RK1_ENABLED
1155 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 call test%run(test_setCordance_D1_BSSK, SK_"test_setCordance_D1_BSSK")
1181
1182 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1183
1184 end block
1185
1186 call test%summarize()
1187
1188 end subroutine setTest
1189
1190!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1191
1192end module test_pm_sampleCor
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_sampleCor
This module contains classes and procedures for computing properties related to the correlation matri...
Definition: pm_sampleCor.F90:278
pm_sampleCor::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_sampleCor.F90:292
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_sampleCor
This module contains tests of the module pm_sampleCor.
Definition: test_pm_sampleCor.F90:27
test_pm_sampleCor::setTest
subroutine setTest()
Definition: test_pm_sampleCor.F90:613
test_pm_sampleCor::test
type(test_type) test
Definition: test_pm_sampleCor.F90:36
pm_test::test_type
This is the derived type test_type for generating objects that facilitate testing of a series of proc...
Definition: pm_test.F90:209