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 [pm_distCov](@ref pm_distCov).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Monday March 6, 2017, 3:22 pm, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin.<br>
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distCov) routines ! LCOV_EXCL_LINE
28 :
29 : #if CHECK_ENABLED
30 : use pm_err, only: getFine
31 : use pm_val2str, only: getStr
32 : use pm_err, only: setAsserted
33 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
34 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
35 : #else
36 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
37 : #endif
38 :
39 : use pm_array, only: nothing
40 : use pm_matrixChol, only: setMatChol
41 : use pm_distBeta, only: setBetaRand
42 : use pm_distUnif, only: setUnifRand
43 : use pm_distNorm, only: setNormRand
44 : use pm_matrixCopy, only: setMatCopy, upp
45 : use pm_matrixCopy, only: rdpack, transHerm
46 : use pm_sampleCor, only: setCor, uppDia
47 :
48 : implicit none
49 :
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 :
52 : contains
53 :
54 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
55 :
56 : #define getCovRand_ENABLED 1
57 :
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61 :
62 : #define GRAM_ENABLED 1
63 :
64 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
65 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
66 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
67 :
68 : #define RNGD_ENABLED 1
69 :
70 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
71 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
72 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
73 :
74 : #define S0_ENABLED 1
75 :
76 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
77 :
78 : #define CK_ENABLED 1
79 :
80 : #if CK5_ENABLED
81 : module procedure getCovRandGRNGDS0_CK5
82 : use pm_kind, only: TKC => CK5
83 : #include "pm_distCov@routines.inc.F90"
84 : end procedure
85 : #endif
86 :
87 : #if CK4_ENABLED
88 100 : module procedure getCovRandGRNGDS0_CK4
89 : use pm_kind, only: TKC => CK4
90 : #include "pm_distCov@routines.inc.F90"
91 100 : end procedure
92 : #endif
93 :
94 : #if CK3_ENABLED
95 100 : module procedure getCovRandGRNGDS0_CK3
96 : use pm_kind, only: TKC => CK3
97 : #include "pm_distCov@routines.inc.F90"
98 100 : end procedure
99 : #endif
100 :
101 : #if CK2_ENABLED
102 100 : module procedure getCovRandGRNGDS0_CK2
103 : use pm_kind, only: TKC => CK2
104 : #include "pm_distCov@routines.inc.F90"
105 100 : end procedure
106 : #endif
107 :
108 : #if CK1_ENABLED
109 114 : module procedure getCovRandGRNGDS0_CK1
110 : use pm_kind, only: TKC => CK1
111 : #include "pm_distCov@routines.inc.F90"
112 114 : end procedure
113 : #endif
114 :
115 : #undef CK_ENABLED
116 :
117 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
118 :
119 : #define RK_ENABLED 1
120 :
121 : #if RK5_ENABLED
122 : module procedure getCovRandGRNGDS0_RK5
123 : use pm_kind, only: TKC => RK5
124 : #include "pm_distCov@routines.inc.F90"
125 : end procedure
126 : #endif
127 :
128 : #if RK4_ENABLED
129 200 : module procedure getCovRandGRNGDS0_RK4
130 : use pm_kind, only: TKC => RK4
131 : #include "pm_distCov@routines.inc.F90"
132 200 : end procedure
133 : #endif
134 :
135 : #if RK3_ENABLED
136 200 : module procedure getCovRandGRNGDS0_RK3
137 : use pm_kind, only: TKC => RK3
138 : #include "pm_distCov@routines.inc.F90"
139 200 : end procedure
140 : #endif
141 :
142 : #if RK2_ENABLED
143 200 : module procedure getCovRandGRNGDS0_RK2
144 : use pm_kind, only: TKC => RK2
145 : #include "pm_distCov@routines.inc.F90"
146 200 : end procedure
147 : #endif
148 :
149 : #if RK1_ENABLED
150 420 : module procedure getCovRandGRNGDS0_RK1
151 : use pm_kind, only: TKC => RK1
152 : #include "pm_distCov@routines.inc.F90"
153 420 : end procedure
154 : #endif
155 :
156 : #undef RK_ENABLED
157 :
158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
159 :
160 : #undef S0_ENABLED
161 :
162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
163 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
165 :
166 : #define S1_ENABLED 1
167 :
168 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
169 :
170 : #define CK_ENABLED 1
171 :
172 : #if CK5_ENABLED
173 : module procedure getCovRandGRNGDS1_CK5
174 : use pm_kind, only: TKC => CK5
175 : #include "pm_distCov@routines.inc.F90"
176 : end procedure
177 : #endif
178 :
179 : #if CK4_ENABLED
180 0 : module procedure getCovRandGRNGDS1_CK4
181 : use pm_kind, only: TKC => CK4
182 : #include "pm_distCov@routines.inc.F90"
183 0 : end procedure
184 : #endif
185 :
186 : #if CK3_ENABLED
187 0 : module procedure getCovRandGRNGDS1_CK3
188 : use pm_kind, only: TKC => CK3
189 : #include "pm_distCov@routines.inc.F90"
190 0 : end procedure
191 : #endif
192 :
193 : #if CK2_ENABLED
194 0 : module procedure getCovRandGRNGDS1_CK2
195 : use pm_kind, only: TKC => CK2
196 : #include "pm_distCov@routines.inc.F90"
197 0 : end procedure
198 : #endif
199 :
200 : #if CK1_ENABLED
201 0 : module procedure getCovRandGRNGDS1_CK1
202 : use pm_kind, only: TKC => CK1
203 : #include "pm_distCov@routines.inc.F90"
204 0 : end procedure
205 : #endif
206 :
207 : #undef CK_ENABLED
208 :
209 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
210 :
211 : #define RK_ENABLED 1
212 :
213 : #if RK5_ENABLED
214 : module procedure getCovRandGRNGDS1_RK5
215 : use pm_kind, only: TKC => RK5
216 : #include "pm_distCov@routines.inc.F90"
217 : end procedure
218 : #endif
219 :
220 : #if RK4_ENABLED
221 0 : module procedure getCovRandGRNGDS1_RK4
222 : use pm_kind, only: TKC => RK4
223 : #include "pm_distCov@routines.inc.F90"
224 0 : end procedure
225 : #endif
226 :
227 : #if RK3_ENABLED
228 0 : module procedure getCovRandGRNGDS1_RK3
229 : use pm_kind, only: TKC => RK3
230 : #include "pm_distCov@routines.inc.F90"
231 0 : end procedure
232 : #endif
233 :
234 : #if RK2_ENABLED
235 0 : module procedure getCovRandGRNGDS1_RK2
236 : use pm_kind, only: TKC => RK2
237 : #include "pm_distCov@routines.inc.F90"
238 0 : end procedure
239 : #endif
240 :
241 : #if RK1_ENABLED
242 31 : module procedure getCovRandGRNGDS1_RK1
243 : use pm_kind, only: TKC => RK1
244 : #include "pm_distCov@routines.inc.F90"
245 31 : end procedure
246 : #endif
247 :
248 : #undef RK_ENABLED
249 :
250 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
251 :
252 : #undef S1_ENABLED
253 :
254 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
255 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
257 :
258 : #undef RNGD_ENABLED
259 :
260 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
261 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263 :
264 : #undef GRAM_ENABLED
265 :
266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
269 :
270 : #undef getCovRand_ENABLED
271 :
272 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
273 :
274 : #define setCovRand_ENABLED 1
275 :
276 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
277 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
278 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
279 :
280 : #define GRAM_ENABLED 1
281 :
282 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
285 :
286 : #define RNGF_ENABLED 1
287 :
288 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
291 :
292 : #define SD_ENABLED 1
293 :
294 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
295 :
296 : #define CK_ENABLED 1
297 :
298 : #if CK5_ENABLED
299 : module procedure setCovRandGRNGFSD_CK5
300 : use pm_kind, only: TKC => CK5
301 : #include "pm_distCov@routines.inc.F90"
302 : end procedure
303 : #endif
304 :
305 : #if CK4_ENABLED
306 100 : module procedure setCovRandGRNGFSD_CK4
307 : use pm_kind, only: TKC => CK4
308 : #include "pm_distCov@routines.inc.F90"
309 : end procedure
310 : #endif
311 :
312 : #if CK3_ENABLED
313 100 : module procedure setCovRandGRNGFSD_CK3
314 : use pm_kind, only: TKC => CK3
315 : #include "pm_distCov@routines.inc.F90"
316 : end procedure
317 : #endif
318 :
319 : #if CK2_ENABLED
320 105 : module procedure setCovRandGRNGFSD_CK2
321 : use pm_kind, only: TKC => CK2
322 : #include "pm_distCov@routines.inc.F90"
323 : end procedure
324 : #endif
325 :
326 : #if CK1_ENABLED
327 109 : module procedure setCovRandGRNGFSD_CK1
328 : use pm_kind, only: TKC => CK1
329 : #include "pm_distCov@routines.inc.F90"
330 : end procedure
331 : #endif
332 :
333 : #undef CK_ENABLED
334 :
335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
336 :
337 : #define RK_ENABLED 1
338 :
339 : #if RK5_ENABLED
340 : module procedure setCovRandGRNGFSD_RK5
341 : use pm_kind, only: TKC => RK5
342 : #include "pm_distCov@routines.inc.F90"
343 : end procedure
344 : #endif
345 :
346 : #if RK4_ENABLED
347 200 : module procedure setCovRandGRNGFSD_RK4
348 : use pm_kind, only: TKC => RK4
349 : #include "pm_distCov@routines.inc.F90"
350 : end procedure
351 : #endif
352 :
353 : #if RK3_ENABLED
354 200 : module procedure setCovRandGRNGFSD_RK3
355 : use pm_kind, only: TKC => RK3
356 : #include "pm_distCov@routines.inc.F90"
357 : end procedure
358 : #endif
359 :
360 : #if RK2_ENABLED
361 200 : module procedure setCovRandGRNGFSD_RK2
362 : use pm_kind, only: TKC => RK2
363 : #include "pm_distCov@routines.inc.F90"
364 : end procedure
365 : #endif
366 :
367 : #if RK1_ENABLED
368 420 : module procedure setCovRandGRNGFSD_RK1
369 : use pm_kind, only: TKC => RK1
370 : #include "pm_distCov@routines.inc.F90"
371 : end procedure
372 : #endif
373 :
374 : #undef RK_ENABLED
375 :
376 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
377 :
378 : #undef SD_ENABLED
379 :
380 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
381 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
383 :
384 : #define S0_ENABLED 1
385 :
386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
387 :
388 : #define CK_ENABLED 1
389 :
390 : #if CK5_ENABLED
391 : module procedure setCovRandGRNGFS0_CK5
392 : use pm_kind, only: TKC => CK5
393 : #include "pm_distCov@routines.inc.F90"
394 : end procedure
395 : #endif
396 :
397 : #if CK4_ENABLED
398 0 : module procedure setCovRandGRNGFS0_CK4
399 : use pm_kind, only: TKC => CK4
400 : #include "pm_distCov@routines.inc.F90"
401 : end procedure
402 : #endif
403 :
404 : #if CK3_ENABLED
405 0 : module procedure setCovRandGRNGFS0_CK3
406 : use pm_kind, only: TKC => CK3
407 : #include "pm_distCov@routines.inc.F90"
408 : end procedure
409 : #endif
410 :
411 : #if CK2_ENABLED
412 5 : module procedure setCovRandGRNGFS0_CK2
413 : use pm_kind, only: TKC => CK2
414 : #include "pm_distCov@routines.inc.F90"
415 : end procedure
416 : #endif
417 :
418 : #if CK1_ENABLED
419 5 : module procedure setCovRandGRNGFS0_CK1
420 : use pm_kind, only: TKC => CK1
421 : #include "pm_distCov@routines.inc.F90"
422 : end procedure
423 : #endif
424 :
425 : #undef CK_ENABLED
426 :
427 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
428 :
429 : #define RK_ENABLED 1
430 :
431 : #if RK5_ENABLED
432 : module procedure setCovRandGRNGFS0_RK5
433 : use pm_kind, only: TKC => RK5
434 : #include "pm_distCov@routines.inc.F90"
435 : end procedure
436 : #endif
437 :
438 : #if RK4_ENABLED
439 0 : module procedure setCovRandGRNGFS0_RK4
440 : use pm_kind, only: TKC => RK4
441 : #include "pm_distCov@routines.inc.F90"
442 : end procedure
443 : #endif
444 :
445 : #if RK3_ENABLED
446 0 : module procedure setCovRandGRNGFS0_RK3
447 : use pm_kind, only: TKC => RK3
448 : #include "pm_distCov@routines.inc.F90"
449 : end procedure
450 : #endif
451 :
452 : #if RK2_ENABLED
453 0 : module procedure setCovRandGRNGFS0_RK2
454 : use pm_kind, only: TKC => RK2
455 : #include "pm_distCov@routines.inc.F90"
456 : end procedure
457 : #endif
458 :
459 : #if RK1_ENABLED
460 10 : module procedure setCovRandGRNGFS0_RK1
461 : use pm_kind, only: TKC => RK1
462 : #include "pm_distCov@routines.inc.F90"
463 : end procedure
464 : #endif
465 :
466 : #undef RK_ENABLED
467 :
468 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
469 :
470 : #undef S0_ENABLED
471 :
472 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
474 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
475 :
476 : #define S1_ENABLED 1
477 :
478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
479 :
480 : #define CK_ENABLED 1
481 :
482 : #if CK5_ENABLED
483 : module procedure setCovRandGRNGFS1_CK5
484 : use pm_kind, only: TKC => CK5
485 : #include "pm_distCov@routines.inc.F90"
486 : end procedure
487 : #endif
488 :
489 : #if CK4_ENABLED
490 0 : module procedure setCovRandGRNGFS1_CK4
491 : use pm_kind, only: TKC => CK4
492 : #include "pm_distCov@routines.inc.F90"
493 : end procedure
494 : #endif
495 :
496 : #if CK3_ENABLED
497 0 : module procedure setCovRandGRNGFS1_CK3
498 : use pm_kind, only: TKC => CK3
499 : #include "pm_distCov@routines.inc.F90"
500 : end procedure
501 : #endif
502 :
503 : #if CK2_ENABLED
504 5 : module procedure setCovRandGRNGFS1_CK2
505 : use pm_kind, only: TKC => CK2
506 : #include "pm_distCov@routines.inc.F90"
507 : end procedure
508 : #endif
509 :
510 : #if CK1_ENABLED
511 0 : module procedure setCovRandGRNGFS1_CK1
512 : use pm_kind, only: TKC => CK1
513 : #include "pm_distCov@routines.inc.F90"
514 : end procedure
515 : #endif
516 :
517 : #undef CK_ENABLED
518 :
519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
520 :
521 : #define RK_ENABLED 1
522 :
523 : #if RK5_ENABLED
524 : module procedure setCovRandGRNGFS1_RK5
525 : use pm_kind, only: TKC => RK5
526 : #include "pm_distCov@routines.inc.F90"
527 : end procedure
528 : #endif
529 :
530 : #if RK4_ENABLED
531 0 : module procedure setCovRandGRNGFS1_RK4
532 : use pm_kind, only: TKC => RK4
533 : #include "pm_distCov@routines.inc.F90"
534 : end procedure
535 : #endif
536 :
537 : #if RK3_ENABLED
538 0 : module procedure setCovRandGRNGFS1_RK3
539 : use pm_kind, only: TKC => RK3
540 : #include "pm_distCov@routines.inc.F90"
541 : end procedure
542 : #endif
543 :
544 : #if RK2_ENABLED
545 0 : module procedure setCovRandGRNGFS1_RK2
546 : use pm_kind, only: TKC => RK2
547 : #include "pm_distCov@routines.inc.F90"
548 : end procedure
549 : #endif
550 :
551 : #if RK1_ENABLED
552 36 : module procedure setCovRandGRNGFS1_RK1
553 : use pm_kind, only: TKC => RK1
554 : #include "pm_distCov@routines.inc.F90"
555 : end procedure
556 : #endif
557 :
558 : #undef RK_ENABLED
559 :
560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
561 :
562 : #undef S1_ENABLED
563 :
564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
565 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
567 :
568 : #undef RNGF_ENABLED
569 :
570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
571 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
572 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
573 :
574 : #define RNGX_ENABLED 1
575 :
576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
577 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
578 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
579 :
580 : #define SD_ENABLED 1
581 :
582 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
583 :
584 : #define CK_ENABLED 1
585 :
586 : #if CK5_ENABLED
587 : module procedure setCovRandGRNGXSD_CK5
588 : use pm_kind, only: TKC => CK5
589 : #include "pm_distCov@routines.inc.F90"
590 : end procedure
591 : #endif
592 :
593 : #if CK4_ENABLED
594 0 : module procedure setCovRandGRNGXSD_CK4
595 : use pm_kind, only: TKC => CK4
596 : #include "pm_distCov@routines.inc.F90"
597 : end procedure
598 : #endif
599 :
600 : #if CK3_ENABLED
601 0 : module procedure setCovRandGRNGXSD_CK3
602 : use pm_kind, only: TKC => CK3
603 : #include "pm_distCov@routines.inc.F90"
604 : end procedure
605 : #endif
606 :
607 : #if CK2_ENABLED
608 0 : module procedure setCovRandGRNGXSD_CK2
609 : use pm_kind, only: TKC => CK2
610 : #include "pm_distCov@routines.inc.F90"
611 : end procedure
612 : #endif
613 :
614 : #if CK1_ENABLED
615 0 : module procedure setCovRandGRNGXSD_CK1
616 : use pm_kind, only: TKC => CK1
617 : #include "pm_distCov@routines.inc.F90"
618 : end procedure
619 : #endif
620 :
621 : #undef CK_ENABLED
622 :
623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
624 :
625 : #define RK_ENABLED 1
626 :
627 : #if RK5_ENABLED
628 : module procedure setCovRandGRNGXSD_RK5
629 : use pm_kind, only: TKC => RK5
630 : #include "pm_distCov@routines.inc.F90"
631 : end procedure
632 : #endif
633 :
634 : #if RK4_ENABLED
635 0 : module procedure setCovRandGRNGXSD_RK4
636 : use pm_kind, only: TKC => RK4
637 : #include "pm_distCov@routines.inc.F90"
638 : end procedure
639 : #endif
640 :
641 : #if RK3_ENABLED
642 0 : module procedure setCovRandGRNGXSD_RK3
643 : use pm_kind, only: TKC => RK3
644 : #include "pm_distCov@routines.inc.F90"
645 : end procedure
646 : #endif
647 :
648 : #if RK2_ENABLED
649 0 : module procedure setCovRandGRNGXSD_RK2
650 : use pm_kind, only: TKC => RK2
651 : #include "pm_distCov@routines.inc.F90"
652 : end procedure
653 : #endif
654 :
655 : #if RK1_ENABLED
656 0 : module procedure setCovRandGRNGXSD_RK1
657 : use pm_kind, only: TKC => RK1
658 : #include "pm_distCov@routines.inc.F90"
659 : end procedure
660 : #endif
661 :
662 : #undef RK_ENABLED
663 :
664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
665 :
666 : #undef SD_ENABLED
667 :
668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
669 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
671 :
672 : #define S0_ENABLED 1
673 :
674 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
675 :
676 : #define CK_ENABLED 1
677 :
678 : #if CK5_ENABLED
679 : module procedure setCovRandGRNGXS0_CK5
680 : use pm_kind, only: TKC => CK5
681 : #include "pm_distCov@routines.inc.F90"
682 : end procedure
683 : #endif
684 :
685 : #if CK4_ENABLED
686 0 : module procedure setCovRandGRNGXS0_CK4
687 : use pm_kind, only: TKC => CK4
688 : #include "pm_distCov@routines.inc.F90"
689 : end procedure
690 : #endif
691 :
692 : #if CK3_ENABLED
693 0 : module procedure setCovRandGRNGXS0_CK3
694 : use pm_kind, only: TKC => CK3
695 : #include "pm_distCov@routines.inc.F90"
696 : end procedure
697 : #endif
698 :
699 : #if CK2_ENABLED
700 0 : module procedure setCovRandGRNGXS0_CK2
701 : use pm_kind, only: TKC => CK2
702 : #include "pm_distCov@routines.inc.F90"
703 : end procedure
704 : #endif
705 :
706 : #if CK1_ENABLED
707 0 : module procedure setCovRandGRNGXS0_CK1
708 : use pm_kind, only: TKC => CK1
709 : #include "pm_distCov@routines.inc.F90"
710 : end procedure
711 : #endif
712 :
713 : #undef CK_ENABLED
714 :
715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
716 :
717 : #define RK_ENABLED 1
718 :
719 : #if RK5_ENABLED
720 : module procedure setCovRandGRNGXS0_RK5
721 : use pm_kind, only: TKC => RK5
722 : #include "pm_distCov@routines.inc.F90"
723 : end procedure
724 : #endif
725 :
726 : #if RK4_ENABLED
727 0 : module procedure setCovRandGRNGXS0_RK4
728 : use pm_kind, only: TKC => RK4
729 : #include "pm_distCov@routines.inc.F90"
730 : end procedure
731 : #endif
732 :
733 : #if RK3_ENABLED
734 0 : module procedure setCovRandGRNGXS0_RK3
735 : use pm_kind, only: TKC => RK3
736 : #include "pm_distCov@routines.inc.F90"
737 : end procedure
738 : #endif
739 :
740 : #if RK2_ENABLED
741 0 : module procedure setCovRandGRNGXS0_RK2
742 : use pm_kind, only: TKC => RK2
743 : #include "pm_distCov@routines.inc.F90"
744 : end procedure
745 : #endif
746 :
747 : #if RK1_ENABLED
748 0 : module procedure setCovRandGRNGXS0_RK1
749 : use pm_kind, only: TKC => RK1
750 : #include "pm_distCov@routines.inc.F90"
751 : end procedure
752 : #endif
753 :
754 : #undef RK_ENABLED
755 :
756 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
757 :
758 : #undef S0_ENABLED
759 :
760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
761 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
762 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
763 :
764 : #define S1_ENABLED 1
765 :
766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
767 :
768 : #define CK_ENABLED 1
769 :
770 : #if CK5_ENABLED
771 : module procedure setCovRandGRNGXS1_CK5
772 : use pm_kind, only: TKC => CK5
773 : #include "pm_distCov@routines.inc.F90"
774 : end procedure
775 : #endif
776 :
777 : #if CK4_ENABLED
778 0 : module procedure setCovRandGRNGXS1_CK4
779 : use pm_kind, only: TKC => CK4
780 : #include "pm_distCov@routines.inc.F90"
781 : end procedure
782 : #endif
783 :
784 : #if CK3_ENABLED
785 0 : module procedure setCovRandGRNGXS1_CK3
786 : use pm_kind, only: TKC => CK3
787 : #include "pm_distCov@routines.inc.F90"
788 : end procedure
789 : #endif
790 :
791 : #if CK2_ENABLED
792 0 : module procedure setCovRandGRNGXS1_CK2
793 : use pm_kind, only: TKC => CK2
794 : #include "pm_distCov@routines.inc.F90"
795 : end procedure
796 : #endif
797 :
798 : #if CK1_ENABLED
799 0 : module procedure setCovRandGRNGXS1_CK1
800 : use pm_kind, only: TKC => CK1
801 : #include "pm_distCov@routines.inc.F90"
802 : end procedure
803 : #endif
804 :
805 : #undef CK_ENABLED
806 :
807 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
808 :
809 : #define RK_ENABLED 1
810 :
811 : #if RK5_ENABLED
812 : module procedure setCovRandGRNGXS1_RK5
813 : use pm_kind, only: TKC => RK5
814 : #include "pm_distCov@routines.inc.F90"
815 : end procedure
816 : #endif
817 :
818 : #if RK4_ENABLED
819 0 : module procedure setCovRandGRNGXS1_RK4
820 : use pm_kind, only: TKC => RK4
821 : #include "pm_distCov@routines.inc.F90"
822 : end procedure
823 : #endif
824 :
825 : #if RK3_ENABLED
826 0 : module procedure setCovRandGRNGXS1_RK3
827 : use pm_kind, only: TKC => RK3
828 : #include "pm_distCov@routines.inc.F90"
829 : end procedure
830 : #endif
831 :
832 : #if RK2_ENABLED
833 0 : module procedure setCovRandGRNGXS1_RK2
834 : use pm_kind, only: TKC => RK2
835 : #include "pm_distCov@routines.inc.F90"
836 : end procedure
837 : #endif
838 :
839 : #if RK1_ENABLED
840 0 : module procedure setCovRandGRNGXS1_RK1
841 : use pm_kind, only: TKC => RK1
842 : #include "pm_distCov@routines.inc.F90"
843 : end procedure
844 : #endif
845 :
846 : #undef RK_ENABLED
847 :
848 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
849 :
850 : #undef S1_ENABLED
851 :
852 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
853 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
854 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
855 :
856 : #undef RNGX_ENABLED
857 :
858 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
859 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
860 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
861 :
862 : #undef GRAM_ENABLED
863 :
864 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
865 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
866 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
867 :
868 : #define DVINE_ENABLED 1
869 :
870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
871 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
872 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
873 :
874 : #define RNGF_ENABLED 1
875 :
876 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
877 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
879 :
880 : #define SD_ENABLED 1
881 :
882 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
883 :
884 : #define RK_ENABLED 1
885 :
886 : #if RK5_ENABLED
887 : module procedure setCovRandDRNGFSD_RK5
888 : use pm_kind, only: TKC => RK5
889 : #include "pm_distCov@routines.inc.F90"
890 : end procedure
891 : #endif
892 :
893 : #if RK4_ENABLED
894 0 : module procedure setCovRandDRNGFSD_RK4
895 : use pm_kind, only: TKC => RK4
896 : #include "pm_distCov@routines.inc.F90"
897 0 : end procedure
898 : #endif
899 :
900 : #if RK3_ENABLED
901 0 : module procedure setCovRandDRNGFSD_RK3
902 : use pm_kind, only: TKC => RK3
903 : #include "pm_distCov@routines.inc.F90"
904 0 : end procedure
905 : #endif
906 :
907 : #if RK2_ENABLED
908 0 : module procedure setCovRandDRNGFSD_RK2
909 : use pm_kind, only: TKC => RK2
910 : #include "pm_distCov@routines.inc.F90"
911 0 : end procedure
912 : #endif
913 :
914 : #if RK1_ENABLED
915 10 : module procedure setCovRandDRNGFSD_RK1
916 : use pm_kind, only: TKC => RK1
917 : #include "pm_distCov@routines.inc.F90"
918 10 : end procedure
919 : #endif
920 :
921 : #undef RK_ENABLED
922 :
923 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
924 :
925 : #undef SD_ENABLED
926 :
927 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
928 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
929 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
930 :
931 : #define S0_ENABLED 1
932 :
933 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
934 :
935 : #define RK_ENABLED 1
936 :
937 : #if RK5_ENABLED
938 : module procedure setCovRandDRNGFS0_RK5
939 : use pm_kind, only: TKC => RK5
940 : #include "pm_distCov@routines.inc.F90"
941 : end procedure
942 : #endif
943 :
944 : #if RK4_ENABLED
945 0 : module procedure setCovRandDRNGFS0_RK4
946 : use pm_kind, only: TKC => RK4
947 : #include "pm_distCov@routines.inc.F90"
948 0 : end procedure
949 : #endif
950 :
951 : #if RK3_ENABLED
952 0 : module procedure setCovRandDRNGFS0_RK3
953 : use pm_kind, only: TKC => RK3
954 : #include "pm_distCov@routines.inc.F90"
955 0 : end procedure
956 : #endif
957 :
958 : #if RK2_ENABLED
959 0 : module procedure setCovRandDRNGFS0_RK2
960 : use pm_kind, only: TKC => RK2
961 : #include "pm_distCov@routines.inc.F90"
962 0 : end procedure
963 : #endif
964 :
965 : #if RK1_ENABLED
966 10 : module procedure setCovRandDRNGFS0_RK1
967 : use pm_kind, only: TKC => RK1
968 : #include "pm_distCov@routines.inc.F90"
969 10 : end procedure
970 : #endif
971 :
972 : #undef RK_ENABLED
973 :
974 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
975 :
976 : #undef S0_ENABLED
977 :
978 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
979 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
980 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
981 :
982 : #define S1_ENABLED 1
983 :
984 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
985 :
986 : #define RK_ENABLED 1
987 :
988 : #if RK5_ENABLED
989 : module procedure setCovRandDRNGFS1_RK5
990 : use pm_kind, only: TKC => RK5
991 : #include "pm_distCov@routines.inc.F90"
992 : end procedure
993 : #endif
994 :
995 : #if RK4_ENABLED
996 0 : module procedure setCovRandDRNGFS1_RK4
997 : use pm_kind, only: TKC => RK4
998 : #include "pm_distCov@routines.inc.F90"
999 0 : end procedure
1000 : #endif
1001 :
1002 : #if RK3_ENABLED
1003 0 : module procedure setCovRandDRNGFS1_RK3
1004 : use pm_kind, only: TKC => RK3
1005 : #include "pm_distCov@routines.inc.F90"
1006 0 : end procedure
1007 : #endif
1008 :
1009 : #if RK2_ENABLED
1010 0 : module procedure setCovRandDRNGFS1_RK2
1011 : use pm_kind, only: TKC => RK2
1012 : #include "pm_distCov@routines.inc.F90"
1013 0 : end procedure
1014 : #endif
1015 :
1016 : #if RK1_ENABLED
1017 1 : module procedure setCovRandDRNGFS1_RK1
1018 : use pm_kind, only: TKC => RK1
1019 : #include "pm_distCov@routines.inc.F90"
1020 1 : end procedure
1021 : #endif
1022 :
1023 : #undef RK_ENABLED
1024 :
1025 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1026 :
1027 : #undef S1_ENABLED
1028 :
1029 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1031 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1032 :
1033 : #undef RNGF_ENABLED
1034 :
1035 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1036 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1037 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1038 :
1039 : #define RNGX_ENABLED 1
1040 :
1041 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1043 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1044 :
1045 : #define SD_ENABLED 1
1046 :
1047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1048 :
1049 : #define RK_ENABLED 1
1050 :
1051 : #if RK5_ENABLED
1052 : module procedure setCovRandDRNGXSD_RK5
1053 : use pm_kind, only: TKC => RK5
1054 : #include "pm_distCov@routines.inc.F90"
1055 : end procedure
1056 : #endif
1057 :
1058 : #if RK4_ENABLED
1059 0 : module procedure setCovRandDRNGXSD_RK4
1060 : use pm_kind, only: TKC => RK4
1061 : #include "pm_distCov@routines.inc.F90"
1062 0 : end procedure
1063 : #endif
1064 :
1065 : #if RK3_ENABLED
1066 0 : module procedure setCovRandDRNGXSD_RK3
1067 : use pm_kind, only: TKC => RK3
1068 : #include "pm_distCov@routines.inc.F90"
1069 0 : end procedure
1070 : #endif
1071 :
1072 : #if RK2_ENABLED
1073 0 : module procedure setCovRandDRNGXSD_RK2
1074 : use pm_kind, only: TKC => RK2
1075 : #include "pm_distCov@routines.inc.F90"
1076 0 : end procedure
1077 : #endif
1078 :
1079 : #if RK1_ENABLED
1080 0 : module procedure setCovRandDRNGXSD_RK1
1081 : use pm_kind, only: TKC => RK1
1082 : #include "pm_distCov@routines.inc.F90"
1083 0 : end procedure
1084 : #endif
1085 :
1086 : #undef RK_ENABLED
1087 :
1088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1089 :
1090 : #undef SD_ENABLED
1091 :
1092 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1094 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1095 :
1096 : #define S0_ENABLED 1
1097 :
1098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1099 :
1100 : #define RK_ENABLED 1
1101 :
1102 : #if RK5_ENABLED
1103 : module procedure setCovRandDRNGXS0_RK5
1104 : use pm_kind, only: TKC => RK5
1105 : #include "pm_distCov@routines.inc.F90"
1106 : end procedure
1107 : #endif
1108 :
1109 : #if RK4_ENABLED
1110 0 : module procedure setCovRandDRNGXS0_RK4
1111 : use pm_kind, only: TKC => RK4
1112 : #include "pm_distCov@routines.inc.F90"
1113 0 : end procedure
1114 : #endif
1115 :
1116 : #if RK3_ENABLED
1117 0 : module procedure setCovRandDRNGXS0_RK3
1118 : use pm_kind, only: TKC => RK3
1119 : #include "pm_distCov@routines.inc.F90"
1120 0 : end procedure
1121 : #endif
1122 :
1123 : #if RK2_ENABLED
1124 0 : module procedure setCovRandDRNGXS0_RK2
1125 : use pm_kind, only: TKC => RK2
1126 : #include "pm_distCov@routines.inc.F90"
1127 0 : end procedure
1128 : #endif
1129 :
1130 : #if RK1_ENABLED
1131 0 : module procedure setCovRandDRNGXS0_RK1
1132 : use pm_kind, only: TKC => RK1
1133 : #include "pm_distCov@routines.inc.F90"
1134 0 : end procedure
1135 : #endif
1136 :
1137 : #undef RK_ENABLED
1138 :
1139 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1140 :
1141 : #undef S0_ENABLED
1142 :
1143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1144 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1145 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1146 :
1147 : #define S1_ENABLED 1
1148 :
1149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1150 :
1151 : #define RK_ENABLED 1
1152 :
1153 : #if RK5_ENABLED
1154 : module procedure setCovRandDRNGXS1_RK5
1155 : use pm_kind, only: TKC => RK5
1156 : #include "pm_distCov@routines.inc.F90"
1157 : end procedure
1158 : #endif
1159 :
1160 : #if RK4_ENABLED
1161 0 : module procedure setCovRandDRNGXS1_RK4
1162 : use pm_kind, only: TKC => RK4
1163 : #include "pm_distCov@routines.inc.F90"
1164 0 : end procedure
1165 : #endif
1166 :
1167 : #if RK3_ENABLED
1168 0 : module procedure setCovRandDRNGXS1_RK3
1169 : use pm_kind, only: TKC => RK3
1170 : #include "pm_distCov@routines.inc.F90"
1171 0 : end procedure
1172 : #endif
1173 :
1174 : #if RK2_ENABLED
1175 0 : module procedure setCovRandDRNGXS1_RK2
1176 : use pm_kind, only: TKC => RK2
1177 : #include "pm_distCov@routines.inc.F90"
1178 0 : end procedure
1179 : #endif
1180 :
1181 : #if RK1_ENABLED
1182 0 : module procedure setCovRandDRNGXS1_RK1
1183 : use pm_kind, only: TKC => RK1
1184 : #include "pm_distCov@routines.inc.F90"
1185 0 : end procedure
1186 : #endif
1187 :
1188 : #undef RK_ENABLED
1189 :
1190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1191 :
1192 : #undef S1_ENABLED
1193 :
1194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1197 :
1198 : #undef RNGX_ENABLED
1199 :
1200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1203 :
1204 : #undef DVINE_ENABLED
1205 :
1206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1209 :
1210 : #define ONION_ENABLED 1
1211 :
1212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1214 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1215 :
1216 : #define RNGF_ENABLED 1
1217 :
1218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1219 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1220 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1221 :
1222 : #define SD_ENABLED 1
1223 :
1224 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1225 :
1226 : #define RK_ENABLED 1
1227 :
1228 : #if RK5_ENABLED
1229 : module procedure setCovRandORNGFSD_RK5
1230 : use pm_kind, only: TKC => RK5
1231 : #include "pm_distCov@routines.inc.F90"
1232 : end procedure
1233 : #endif
1234 :
1235 : #if RK4_ENABLED
1236 0 : module procedure setCovRandORNGFSD_RK4
1237 : use pm_kind, only: TKC => RK4
1238 : #include "pm_distCov@routines.inc.F90"
1239 : end procedure
1240 : #endif
1241 :
1242 : #if RK3_ENABLED
1243 0 : module procedure setCovRandORNGFSD_RK3
1244 : use pm_kind, only: TKC => RK3
1245 : #include "pm_distCov@routines.inc.F90"
1246 : end procedure
1247 : #endif
1248 :
1249 : #if RK2_ENABLED
1250 0 : module procedure setCovRandORNGFSD_RK2
1251 : use pm_kind, only: TKC => RK2
1252 : #include "pm_distCov@routines.inc.F90"
1253 : end procedure
1254 : #endif
1255 :
1256 : #if RK1_ENABLED
1257 10 : module procedure setCovRandORNGFSD_RK1
1258 : use pm_kind, only: TKC => RK1
1259 : #include "pm_distCov@routines.inc.F90"
1260 : end procedure
1261 : #endif
1262 :
1263 : #undef RK_ENABLED
1264 :
1265 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1266 :
1267 : #undef SD_ENABLED
1268 :
1269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1271 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1272 :
1273 : #define S0_ENABLED 1
1274 :
1275 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1276 :
1277 : #define RK_ENABLED 1
1278 :
1279 : #if RK5_ENABLED
1280 : module procedure setCovRandORNGFS0_RK5
1281 : use pm_kind, only: TKC => RK5
1282 : #include "pm_distCov@routines.inc.F90"
1283 : end procedure
1284 : #endif
1285 :
1286 : #if RK4_ENABLED
1287 0 : module procedure setCovRandORNGFS0_RK4
1288 : use pm_kind, only: TKC => RK4
1289 : #include "pm_distCov@routines.inc.F90"
1290 : end procedure
1291 : #endif
1292 :
1293 : #if RK3_ENABLED
1294 0 : module procedure setCovRandORNGFS0_RK3
1295 : use pm_kind, only: TKC => RK3
1296 : #include "pm_distCov@routines.inc.F90"
1297 : end procedure
1298 : #endif
1299 :
1300 : #if RK2_ENABLED
1301 0 : module procedure setCovRandORNGFS0_RK2
1302 : use pm_kind, only: TKC => RK2
1303 : #include "pm_distCov@routines.inc.F90"
1304 : end procedure
1305 : #endif
1306 :
1307 : #if RK1_ENABLED
1308 10 : module procedure setCovRandORNGFS0_RK1
1309 : use pm_kind, only: TKC => RK1
1310 : #include "pm_distCov@routines.inc.F90"
1311 : end procedure
1312 : #endif
1313 :
1314 : #undef RK_ENABLED
1315 :
1316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1317 :
1318 : #undef S0_ENABLED
1319 :
1320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1321 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1323 :
1324 : #define S1_ENABLED 1
1325 :
1326 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1327 :
1328 : #define RK_ENABLED 1
1329 :
1330 : #if RK5_ENABLED
1331 : module procedure setCovRandORNGFS1_RK5
1332 : use pm_kind, only: TKC => RK5
1333 : #include "pm_distCov@routines.inc.F90"
1334 : end procedure
1335 : #endif
1336 :
1337 : #if RK4_ENABLED
1338 0 : module procedure setCovRandORNGFS1_RK4
1339 : use pm_kind, only: TKC => RK4
1340 : #include "pm_distCov@routines.inc.F90"
1341 : end procedure
1342 : #endif
1343 :
1344 : #if RK3_ENABLED
1345 0 : module procedure setCovRandORNGFS1_RK3
1346 : use pm_kind, only: TKC => RK3
1347 : #include "pm_distCov@routines.inc.F90"
1348 : end procedure
1349 : #endif
1350 :
1351 : #if RK2_ENABLED
1352 0 : module procedure setCovRandORNGFS1_RK2
1353 : use pm_kind, only: TKC => RK2
1354 : #include "pm_distCov@routines.inc.F90"
1355 : end procedure
1356 : #endif
1357 :
1358 : #if RK1_ENABLED
1359 1 : module procedure setCovRandORNGFS1_RK1
1360 : use pm_kind, only: TKC => RK1
1361 : #include "pm_distCov@routines.inc.F90"
1362 : end procedure
1363 : #endif
1364 :
1365 : #undef RK_ENABLED
1366 :
1367 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1368 :
1369 : #undef S1_ENABLED
1370 :
1371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1372 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1374 :
1375 : #undef RNGF_ENABLED
1376 :
1377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1379 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1380 :
1381 : #define RNGX_ENABLED 1
1382 :
1383 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1386 :
1387 : #define SD_ENABLED 1
1388 :
1389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1390 :
1391 : #define RK_ENABLED 1
1392 :
1393 : #if RK5_ENABLED
1394 : module procedure setCovRandORNGXSD_RK5
1395 : use pm_kind, only: TKC => RK5
1396 : #include "pm_distCov@routines.inc.F90"
1397 : end procedure
1398 : #endif
1399 :
1400 : #if RK4_ENABLED
1401 0 : module procedure setCovRandORNGXSD_RK4
1402 : use pm_kind, only: TKC => RK4
1403 : #include "pm_distCov@routines.inc.F90"
1404 : end procedure
1405 : #endif
1406 :
1407 : #if RK3_ENABLED
1408 0 : module procedure setCovRandORNGXSD_RK3
1409 : use pm_kind, only: TKC => RK3
1410 : #include "pm_distCov@routines.inc.F90"
1411 : end procedure
1412 : #endif
1413 :
1414 : #if RK2_ENABLED
1415 0 : module procedure setCovRandORNGXSD_RK2
1416 : use pm_kind, only: TKC => RK2
1417 : #include "pm_distCov@routines.inc.F90"
1418 : end procedure
1419 : #endif
1420 :
1421 : #if RK1_ENABLED
1422 0 : module procedure setCovRandORNGXSD_RK1
1423 : use pm_kind, only: TKC => RK1
1424 : #include "pm_distCov@routines.inc.F90"
1425 : end procedure
1426 : #endif
1427 :
1428 : #undef RK_ENABLED
1429 :
1430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1431 :
1432 : #undef SD_ENABLED
1433 :
1434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1435 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1437 :
1438 : #define S0_ENABLED 1
1439 :
1440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1441 :
1442 : #define RK_ENABLED 1
1443 :
1444 : #if RK5_ENABLED
1445 : module procedure setCovRandORNGXS0_RK5
1446 : use pm_kind, only: TKC => RK5
1447 : #include "pm_distCov@routines.inc.F90"
1448 : end procedure
1449 : #endif
1450 :
1451 : #if RK4_ENABLED
1452 0 : module procedure setCovRandORNGXS0_RK4
1453 : use pm_kind, only: TKC => RK4
1454 : #include "pm_distCov@routines.inc.F90"
1455 : end procedure
1456 : #endif
1457 :
1458 : #if RK3_ENABLED
1459 0 : module procedure setCovRandORNGXS0_RK3
1460 : use pm_kind, only: TKC => RK3
1461 : #include "pm_distCov@routines.inc.F90"
1462 : end procedure
1463 : #endif
1464 :
1465 : #if RK2_ENABLED
1466 0 : module procedure setCovRandORNGXS0_RK2
1467 : use pm_kind, only: TKC => RK2
1468 : #include "pm_distCov@routines.inc.F90"
1469 : end procedure
1470 : #endif
1471 :
1472 : #if RK1_ENABLED
1473 0 : module procedure setCovRandORNGXS0_RK1
1474 : use pm_kind, only: TKC => RK1
1475 : #include "pm_distCov@routines.inc.F90"
1476 : end procedure
1477 : #endif
1478 :
1479 : #undef RK_ENABLED
1480 :
1481 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1482 :
1483 : #undef S0_ENABLED
1484 :
1485 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1486 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1487 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1488 :
1489 : #define S1_ENABLED 1
1490 :
1491 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1492 :
1493 : #define RK_ENABLED 1
1494 :
1495 : #if RK5_ENABLED
1496 : module procedure setCovRandORNGXS1_RK5
1497 : use pm_kind, only: TKC => RK5
1498 : #include "pm_distCov@routines.inc.F90"
1499 : end procedure
1500 : #endif
1501 :
1502 : #if RK4_ENABLED
1503 0 : module procedure setCovRandORNGXS1_RK4
1504 : use pm_kind, only: TKC => RK4
1505 : #include "pm_distCov@routines.inc.F90"
1506 : end procedure
1507 : #endif
1508 :
1509 : #if RK3_ENABLED
1510 0 : module procedure setCovRandORNGXS1_RK3
1511 : use pm_kind, only: TKC => RK3
1512 : #include "pm_distCov@routines.inc.F90"
1513 : end procedure
1514 : #endif
1515 :
1516 : #if RK2_ENABLED
1517 0 : module procedure setCovRandORNGXS1_RK2
1518 : use pm_kind, only: TKC => RK2
1519 : #include "pm_distCov@routines.inc.F90"
1520 : end procedure
1521 : #endif
1522 :
1523 : #if RK1_ENABLED
1524 0 : module procedure setCovRandORNGXS1_RK1
1525 : use pm_kind, only: TKC => RK1
1526 : #include "pm_distCov@routines.inc.F90"
1527 : end procedure
1528 : #endif
1529 :
1530 : #undef RK_ENABLED
1531 :
1532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1533 :
1534 : #undef S1_ENABLED
1535 :
1536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1537 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1539 :
1540 : #undef RNGX_ENABLED
1541 :
1542 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1543 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1545 :
1546 : #undef ONION_ENABLED
1547 :
1548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1551 :
1552 : #undef setCovRand_ENABLED
1553 :
1554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1555 :
1556 : #undef CHECK_ASSERTION
1557 :
1558 : end submodule routines
|
