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