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_distMultiNorm](@ref pm_distMultiNorm).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 12:20 PM, September 22, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distMultiNorm) 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_distNorm, only: setNormRand
40 : use pm_distanceMahal, only: getMahalSq
41 : use pm_matrixCopy, only: setMatCopy, rdpack
42 : use pm_matrixDet, only: getMatDetSqrtLog, setMatDetSqrtLog, nothing
43 : implicit none
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : contains
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 :
51 : #define getMultiNormLogPDFNF_ENABLED 1
52 :
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 :
55 : #define I_ENABLED 1
56 :
57 : #if RK5_ENABLED
58 : module procedure getMultiNormLogPDFNFI_RK5
59 : use pm_kind, only: RKC => RK5
60 : #include "pm_distMultiNorm@routines.inc.F90"
61 : end procedure
62 : #endif
63 :
64 : #if RK4_ENABLED
65 0 : module procedure getMultiNormLogPDFNFI_RK4
66 : use pm_kind, only: RKC => RK4
67 : #include "pm_distMultiNorm@routines.inc.F90"
68 0 : end procedure
69 : #endif
70 :
71 : #if RK3_ENABLED
72 0 : module procedure getMultiNormLogPDFNFI_RK3
73 : use pm_kind, only: RKC => RK3
74 : #include "pm_distMultiNorm@routines.inc.F90"
75 0 : end procedure
76 : #endif
77 :
78 : #if RK2_ENABLED
79 250002 : module procedure getMultiNormLogPDFNFI_RK2
80 : use pm_kind, only: RKC => RK2
81 : #include "pm_distMultiNorm@routines.inc.F90"
82 250002 : end procedure
83 : #endif
84 :
85 : #if RK1_ENABLED
86 1 : module procedure getMultiNormLogPDFNFI_RK1
87 : use pm_kind, only: RKC => RK1
88 : #include "pm_distMultiNorm@routines.inc.F90"
89 1 : end procedure
90 : #endif
91 :
92 : #undef I_ENABLED
93 :
94 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
95 :
96 : #define IF_ENABLED 1
97 :
98 : #if RK5_ENABLED
99 : module procedure getMultiNormLogPDFNFIF_RK5
100 : use pm_kind, only: RKC => RK5
101 : #include "pm_distMultiNorm@routines.inc.F90"
102 : end procedure
103 : #endif
104 :
105 : #if RK4_ENABLED
106 0 : module procedure getMultiNormLogPDFNFIF_RK4
107 : use pm_kind, only: RKC => RK4
108 : #include "pm_distMultiNorm@routines.inc.F90"
109 0 : end procedure
110 : #endif
111 :
112 : #if RK3_ENABLED
113 0 : module procedure getMultiNormLogPDFNFIF_RK3
114 : use pm_kind, only: RKC => RK3
115 : #include "pm_distMultiNorm@routines.inc.F90"
116 0 : end procedure
117 : #endif
118 :
119 : #if RK2_ENABLED
120 0 : module procedure getMultiNormLogPDFNFIF_RK2
121 : use pm_kind, only: RKC => RK2
122 : #include "pm_distMultiNorm@routines.inc.F90"
123 0 : end procedure
124 : #endif
125 :
126 : #if RK1_ENABLED
127 1 : module procedure getMultiNormLogPDFNFIF_RK1
128 : use pm_kind, only: RKC => RK1
129 : #include "pm_distMultiNorm@routines.inc.F90"
130 1 : end procedure
131 : #endif
132 :
133 : #undef IF_ENABLED
134 :
135 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
136 :
137 : #define ND_ENABLED 1
138 :
139 : #if RK5_ENABLED
140 : module procedure getMultiNormLogPDFNFND_RK5
141 : use pm_kind, only: RKC => RK5
142 : #include "pm_distMultiNorm@routines.inc.F90"
143 : end procedure
144 : #endif
145 :
146 : #if RK4_ENABLED
147 0 : module procedure getMultiNormLogPDFNFND_RK4
148 : use pm_kind, only: RKC => RK4
149 : #include "pm_distMultiNorm@routines.inc.F90"
150 0 : end procedure
151 : #endif
152 :
153 : #if RK3_ENABLED
154 0 : module procedure getMultiNormLogPDFNFND_RK3
155 : use pm_kind, only: RKC => RK3
156 : #include "pm_distMultiNorm@routines.inc.F90"
157 0 : end procedure
158 : #endif
159 :
160 : #if RK2_ENABLED
161 613105 : module procedure getMultiNormLogPDFNFND_RK2
162 : use pm_kind, only: RKC => RK2
163 : #include "pm_distMultiNorm@routines.inc.F90"
164 613105 : end procedure
165 : #endif
166 :
167 : #if RK1_ENABLED
168 3 : module procedure getMultiNormLogPDFNFND_RK1
169 : use pm_kind, only: RKC => RK1
170 : #include "pm_distMultiNorm@routines.inc.F90"
171 3 : end procedure
172 : #endif
173 :
174 : #undef ND_ENABLED
175 :
176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177 :
178 : #undef getMultiNormLogPDFNF_ENABLED
179 :
180 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
181 :
182 : #define getMultiNormLogPDF_ENABLED 1
183 :
184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
185 :
186 : #define DDD_ENABLED 1
187 :
188 : #if RK5_ENABLED
189 : module procedure getMultiNormLogPDFDDD_D1_RK5
190 : use pm_kind, only: RKC => RK5
191 : #include "pm_distMultiNorm@routines.inc.F90"
192 : end procedure
193 : #endif
194 :
195 : #if RK4_ENABLED
196 0 : module procedure getMultiNormLogPDFDDD_D1_RK4
197 : use pm_kind, only: RKC => RK4
198 : #include "pm_distMultiNorm@routines.inc.F90"
199 0 : end procedure
200 : #endif
201 :
202 : #if RK3_ENABLED
203 0 : module procedure getMultiNormLogPDFDDD_D1_RK3
204 : use pm_kind, only: RKC => RK3
205 : #include "pm_distMultiNorm@routines.inc.F90"
206 0 : end procedure
207 : #endif
208 :
209 : #if RK2_ENABLED
210 1 : module procedure getMultiNormLogPDFDDD_D1_RK2
211 : use pm_kind, only: RKC => RK2
212 : #include "pm_distMultiNorm@routines.inc.F90"
213 1 : end procedure
214 : #endif
215 :
216 : #if RK1_ENABLED
217 0 : module procedure getMultiNormLogPDFDDD_D1_RK1
218 : use pm_kind, only: RKC => RK1
219 : #include "pm_distMultiNorm@routines.inc.F90"
220 0 : end procedure
221 : #endif
222 :
223 : #undef DDD_ENABLED
224 :
225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
226 :
227 : #define MDD_ENABLED 1
228 :
229 : #if RK5_ENABLED
230 : module procedure getMultiNormLogPDFMDD_D1_RK5
231 : use pm_kind, only: RKC => RK5
232 : #include "pm_distMultiNorm@routines.inc.F90"
233 : end procedure
234 : #endif
235 :
236 : #if RK4_ENABLED
237 0 : module procedure getMultiNormLogPDFMDD_D1_RK4
238 : use pm_kind, only: RKC => RK4
239 : #include "pm_distMultiNorm@routines.inc.F90"
240 0 : end procedure
241 : #endif
242 :
243 : #if RK3_ENABLED
244 0 : module procedure getMultiNormLogPDFMDD_D1_RK3
245 : use pm_kind, only: RKC => RK3
246 : #include "pm_distMultiNorm@routines.inc.F90"
247 0 : end procedure
248 : #endif
249 :
250 : #if RK2_ENABLED
251 613104 : module procedure getMultiNormLogPDFMDD_D1_RK2
252 : use pm_kind, only: RKC => RK2
253 : #include "pm_distMultiNorm@routines.inc.F90"
254 613104 : end procedure
255 : #endif
256 :
257 : #if RK1_ENABLED
258 0 : module procedure getMultiNormLogPDFMDD_D1_RK1
259 : use pm_kind, only: RKC => RK1
260 : #include "pm_distMultiNorm@routines.inc.F90"
261 0 : end procedure
262 : #endif
263 :
264 : #undef MDD_ENABLED
265 :
266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
267 :
268 : #define DID_ENABLED 1
269 :
270 : #if RK5_ENABLED
271 : module procedure getMultiNormLogPDFDID_D1_RK5
272 : use pm_kind, only: RKC => RK5
273 : #include "pm_distMultiNorm@routines.inc.F90"
274 : end procedure
275 : #endif
276 :
277 : #if RK4_ENABLED
278 0 : module procedure getMultiNormLogPDFDID_D1_RK4
279 : use pm_kind, only: RKC => RK4
280 : #include "pm_distMultiNorm@routines.inc.F90"
281 0 : end procedure
282 : #endif
283 :
284 : #if RK3_ENABLED
285 0 : module procedure getMultiNormLogPDFDID_D1_RK3
286 : use pm_kind, only: RKC => RK3
287 : #include "pm_distMultiNorm@routines.inc.F90"
288 0 : end procedure
289 : #endif
290 :
291 : #if RK2_ENABLED
292 0 : module procedure getMultiNormLogPDFDID_D1_RK2
293 : use pm_kind, only: RKC => RK2
294 : #include "pm_distMultiNorm@routines.inc.F90"
295 0 : end procedure
296 : #endif
297 :
298 : #if RK1_ENABLED
299 0 : module procedure getMultiNormLogPDFDID_D1_RK1
300 : use pm_kind, only: RKC => RK1
301 : #include "pm_distMultiNorm@routines.inc.F90"
302 0 : end procedure
303 : #endif
304 :
305 : #undef DID_ENABLED
306 :
307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308 :
309 : #define MID_ENABLED 1
310 :
311 : #if RK5_ENABLED
312 : module procedure getMultiNormLogPDFMID_D1_RK5
313 : use pm_kind, only: RKC => RK5
314 : #include "pm_distMultiNorm@routines.inc.F90"
315 : end procedure
316 : #endif
317 :
318 : #if RK4_ENABLED
319 0 : module procedure getMultiNormLogPDFMID_D1_RK4
320 : use pm_kind, only: RKC => RK4
321 : #include "pm_distMultiNorm@routines.inc.F90"
322 0 : end procedure
323 : #endif
324 :
325 : #if RK3_ENABLED
326 0 : module procedure getMultiNormLogPDFMID_D1_RK3
327 : use pm_kind, only: RKC => RK3
328 : #include "pm_distMultiNorm@routines.inc.F90"
329 0 : end procedure
330 : #endif
331 :
332 : #if RK2_ENABLED
333 250002 : module procedure getMultiNormLogPDFMID_D1_RK2
334 : use pm_kind, only: RKC => RK2
335 : #include "pm_distMultiNorm@routines.inc.F90"
336 250002 : end procedure
337 : #endif
338 :
339 : #if RK1_ENABLED
340 0 : module procedure getMultiNormLogPDFMID_D1_RK1
341 : use pm_kind, only: RKC => RK1
342 : #include "pm_distMultiNorm@routines.inc.F90"
343 0 : end procedure
344 : #endif
345 :
346 : #undef MID_ENABLED
347 :
348 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
349 :
350 : #define DDN_ENABLED 1
351 :
352 : #if RK5_ENABLED
353 : module procedure getMultiNormLogPDFDDN_D1_RK5
354 : use pm_kind, only: RKC => RK5
355 : #include "pm_distMultiNorm@routines.inc.F90"
356 : end procedure
357 : #endif
358 :
359 : #if RK4_ENABLED
360 0 : module procedure getMultiNormLogPDFDDN_D1_RK4
361 : use pm_kind, only: RKC => RK4
362 : #include "pm_distMultiNorm@routines.inc.F90"
363 0 : end procedure
364 : #endif
365 :
366 : #if RK3_ENABLED
367 0 : module procedure getMultiNormLogPDFDDN_D1_RK3
368 : use pm_kind, only: RKC => RK3
369 : #include "pm_distMultiNorm@routines.inc.F90"
370 0 : end procedure
371 : #endif
372 :
373 : #if RK2_ENABLED
374 0 : module procedure getMultiNormLogPDFDDN_D1_RK2
375 : use pm_kind, only: RKC => RK2
376 : #include "pm_distMultiNorm@routines.inc.F90"
377 0 : end procedure
378 : #endif
379 :
380 : #if RK1_ENABLED
381 0 : module procedure getMultiNormLogPDFDDN_D1_RK1
382 : use pm_kind, only: RKC => RK1
383 : #include "pm_distMultiNorm@routines.inc.F90"
384 0 : end procedure
385 : #endif
386 :
387 : #undef DDN_ENABLED
388 :
389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
390 :
391 : #define MDN_ENABLED 1
392 :
393 : #if RK5_ENABLED
394 : module procedure getMultiNormLogPDFMDN_D1_RK5
395 : use pm_kind, only: RKC => RK5
396 : #include "pm_distMultiNorm@routines.inc.F90"
397 : end procedure
398 : #endif
399 :
400 : #if RK4_ENABLED
401 0 : module procedure getMultiNormLogPDFMDN_D1_RK4
402 : use pm_kind, only: RKC => RK4
403 : #include "pm_distMultiNorm@routines.inc.F90"
404 0 : end procedure
405 : #endif
406 :
407 : #if RK3_ENABLED
408 0 : module procedure getMultiNormLogPDFMDN_D1_RK3
409 : use pm_kind, only: RKC => RK3
410 : #include "pm_distMultiNorm@routines.inc.F90"
411 0 : end procedure
412 : #endif
413 :
414 : #if RK2_ENABLED
415 0 : module procedure getMultiNormLogPDFMDN_D1_RK2
416 : use pm_kind, only: RKC => RK2
417 : #include "pm_distMultiNorm@routines.inc.F90"
418 0 : end procedure
419 : #endif
420 :
421 : #if RK1_ENABLED
422 0 : module procedure getMultiNormLogPDFMDN_D1_RK1
423 : use pm_kind, only: RKC => RK1
424 : #include "pm_distMultiNorm@routines.inc.F90"
425 0 : end procedure
426 : #endif
427 :
428 : #undef MDN_ENABLED
429 :
430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
431 :
432 : #define DIN_ENABLED 1
433 :
434 : #if RK5_ENABLED
435 : module procedure getMultiNormLogPDFDIN_D1_RK5
436 : use pm_kind, only: RKC => RK5
437 : #include "pm_distMultiNorm@routines.inc.F90"
438 : end procedure
439 : #endif
440 :
441 : #if RK4_ENABLED
442 0 : module procedure getMultiNormLogPDFDIN_D1_RK4
443 : use pm_kind, only: RKC => RK4
444 : #include "pm_distMultiNorm@routines.inc.F90"
445 0 : end procedure
446 : #endif
447 :
448 : #if RK3_ENABLED
449 0 : module procedure getMultiNormLogPDFDIN_D1_RK3
450 : use pm_kind, only: RKC => RK3
451 : #include "pm_distMultiNorm@routines.inc.F90"
452 0 : end procedure
453 : #endif
454 :
455 : #if RK2_ENABLED
456 0 : module procedure getMultiNormLogPDFDIN_D1_RK2
457 : use pm_kind, only: RKC => RK2
458 : #include "pm_distMultiNorm@routines.inc.F90"
459 0 : end procedure
460 : #endif
461 :
462 : #if RK1_ENABLED
463 0 : module procedure getMultiNormLogPDFDIN_D1_RK1
464 : use pm_kind, only: RKC => RK1
465 : #include "pm_distMultiNorm@routines.inc.F90"
466 0 : end procedure
467 : #endif
468 :
469 : #undef DIN_ENABLED
470 :
471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
472 :
473 : #define MIN_ENABLED 1
474 :
475 : #if RK5_ENABLED
476 : module procedure getMultiNormLogPDFMIN_D1_RK5
477 : use pm_kind, only: RKC => RK5
478 : #include "pm_distMultiNorm@routines.inc.F90"
479 : end procedure
480 : #endif
481 :
482 : #if RK4_ENABLED
483 0 : module procedure getMultiNormLogPDFMIN_D1_RK4
484 : use pm_kind, only: RKC => RK4
485 : #include "pm_distMultiNorm@routines.inc.F90"
486 0 : end procedure
487 : #endif
488 :
489 : #if RK3_ENABLED
490 0 : module procedure getMultiNormLogPDFMIN_D1_RK3
491 : use pm_kind, only: RKC => RK3
492 : #include "pm_distMultiNorm@routines.inc.F90"
493 0 : end procedure
494 : #endif
495 :
496 : #if RK2_ENABLED
497 0 : module procedure getMultiNormLogPDFMIN_D1_RK2
498 : use pm_kind, only: RKC => RK2
499 : #include "pm_distMultiNorm@routines.inc.F90"
500 0 : end procedure
501 : #endif
502 :
503 : #if RK1_ENABLED
504 0 : module procedure getMultiNormLogPDFMIN_D1_RK1
505 : use pm_kind, only: RKC => RK1
506 : #include "pm_distMultiNorm@routines.inc.F90"
507 0 : end procedure
508 : #endif
509 :
510 : #undef MIN_ENABLED
511 :
512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
513 :
514 : #undef getMultiNormLogPDF_ENABLED
515 :
516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517 :
518 : #define getMNR_ENABLED 1
519 :
520 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
523 :
524 : #define D1_ENABLED 1
525 :
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
529 :
530 : #define RNGD_ENABLED 1
531 :
532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
535 :
536 : #define DM_ENABLED 1
537 :
538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541 :
542 : #define AC_ENABLED 1
543 :
544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
547 :
548 : #define UXD_ENABLED 1
549 :
550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551 :
552 : #define RK_ENABLED 1
553 :
554 : #if RK5_ENABLED
555 : module procedure getMNR_RNGD_DM_AC_UXD_D1_RK5
556 : use pm_kind, only: RKC => RK5
557 : #include "pm_distMultiNorm@routines.inc.F90"
558 : end procedure
559 : #endif
560 :
561 : #if RK4_ENABLED
562 0 : module procedure getMNR_RNGD_DM_AC_UXD_D1_RK4
563 : use pm_kind, only: RKC => RK4
564 : #include "pm_distMultiNorm@routines.inc.F90"
565 0 : end procedure
566 : #endif
567 :
568 : #if RK3_ENABLED
569 0 : module procedure getMNR_RNGD_DM_AC_UXD_D1_RK3
570 : use pm_kind, only: RKC => RK3
571 : #include "pm_distMultiNorm@routines.inc.F90"
572 0 : end procedure
573 : #endif
574 :
575 : #if RK2_ENABLED
576 0 : module procedure getMNR_RNGD_DM_AC_UXD_D1_RK2
577 : use pm_kind, only: RKC => RK2
578 : #include "pm_distMultiNorm@routines.inc.F90"
579 0 : end procedure
580 : #endif
581 :
582 : #if RK1_ENABLED
583 1 : module procedure getMNR_RNGD_DM_AC_UXD_D1_RK1
584 : use pm_kind, only: RKC => RK1
585 : #include "pm_distMultiNorm@routines.inc.F90"
586 1 : end procedure
587 : #endif
588 :
589 : #undef RK_ENABLED
590 :
591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
592 :
593 : #undef UXD_ENABLED
594 :
595 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
596 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
598 :
599 : #define XLD_ENABLED 1
600 :
601 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
602 :
603 : #define RK_ENABLED 1
604 :
605 : #if RK5_ENABLED
606 : module procedure getMNR_RNGD_DM_AC_XLD_D1_RK5
607 : use pm_kind, only: RKC => RK5
608 : #include "pm_distMultiNorm@routines.inc.F90"
609 : end procedure
610 : #endif
611 :
612 : #if RK4_ENABLED
613 0 : module procedure getMNR_RNGD_DM_AC_XLD_D1_RK4
614 : use pm_kind, only: RKC => RK4
615 : #include "pm_distMultiNorm@routines.inc.F90"
616 0 : end procedure
617 : #endif
618 :
619 : #if RK3_ENABLED
620 0 : module procedure getMNR_RNGD_DM_AC_XLD_D1_RK3
621 : use pm_kind, only: RKC => RK3
622 : #include "pm_distMultiNorm@routines.inc.F90"
623 0 : end procedure
624 : #endif
625 :
626 : #if RK2_ENABLED
627 0 : module procedure getMNR_RNGD_DM_AC_XLD_D1_RK2
628 : use pm_kind, only: RKC => RK2
629 : #include "pm_distMultiNorm@routines.inc.F90"
630 0 : end procedure
631 : #endif
632 :
633 : #if RK1_ENABLED
634 0 : module procedure getMNR_RNGD_DM_AC_XLD_D1_RK1
635 : use pm_kind, only: RKC => RK1
636 : #include "pm_distMultiNorm@routines.inc.F90"
637 0 : end procedure
638 : #endif
639 :
640 : #undef RK_ENABLED
641 :
642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
643 :
644 : #undef XLD_ENABLED
645 :
646 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
647 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
649 :
650 : #undef AC_ENABLED
651 :
652 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
653 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
654 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
655 :
656 : #undef DM_ENABLED
657 :
658 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
659 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
661 :
662 : #define AM_ENABLED 1
663 :
664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
665 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
667 :
668 : #define DC_ENABLED 1
669 :
670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
671 :
672 : #define RK_ENABLED 1
673 :
674 : #if RK5_ENABLED
675 : module procedure getMNR_RNGD_AM_DC_XXX_D1_RK5
676 : use pm_kind, only: RKC => RK5
677 : #include "pm_distMultiNorm@routines.inc.F90"
678 : end procedure
679 : #endif
680 :
681 : #if RK4_ENABLED
682 0 : module procedure getMNR_RNGD_AM_DC_XXX_D1_RK4
683 : use pm_kind, only: RKC => RK4
684 : #include "pm_distMultiNorm@routines.inc.F90"
685 0 : end procedure
686 : #endif
687 :
688 : #if RK3_ENABLED
689 0 : module procedure getMNR_RNGD_AM_DC_XXX_D1_RK3
690 : use pm_kind, only: RKC => RK3
691 : #include "pm_distMultiNorm@routines.inc.F90"
692 0 : end procedure
693 : #endif
694 :
695 : #if RK2_ENABLED
696 0 : module procedure getMNR_RNGD_AM_DC_XXX_D1_RK2
697 : use pm_kind, only: RKC => RK2
698 : #include "pm_distMultiNorm@routines.inc.F90"
699 0 : end procedure
700 : #endif
701 :
702 : #if RK1_ENABLED
703 1 : module procedure getMNR_RNGD_AM_DC_XXX_D1_RK1
704 : use pm_kind, only: RKC => RK1
705 : #include "pm_distMultiNorm@routines.inc.F90"
706 1 : end procedure
707 : #endif
708 :
709 : #undef RK_ENABLED
710 :
711 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
712 :
713 : #undef DC_ENABLED
714 :
715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
716 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
717 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
718 :
719 : #define AC_ENABLED 1
720 :
721 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
722 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
723 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
724 :
725 : #define UXD_ENABLED 1
726 :
727 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
728 :
729 : #define RK_ENABLED 1
730 :
731 : #if RK5_ENABLED
732 : module procedure getMNR_RNGD_AM_AC_UXD_D1_RK5
733 : use pm_kind, only: RKC => RK5
734 : #include "pm_distMultiNorm@routines.inc.F90"
735 : end procedure
736 : #endif
737 :
738 : #if RK4_ENABLED
739 0 : module procedure getMNR_RNGD_AM_AC_UXD_D1_RK4
740 : use pm_kind, only: RKC => RK4
741 : #include "pm_distMultiNorm@routines.inc.F90"
742 0 : end procedure
743 : #endif
744 :
745 : #if RK3_ENABLED
746 0 : module procedure getMNR_RNGD_AM_AC_UXD_D1_RK3
747 : use pm_kind, only: RKC => RK3
748 : #include "pm_distMultiNorm@routines.inc.F90"
749 0 : end procedure
750 : #endif
751 :
752 : #if RK2_ENABLED
753 0 : module procedure getMNR_RNGD_AM_AC_UXD_D1_RK2
754 : use pm_kind, only: RKC => RK2
755 : #include "pm_distMultiNorm@routines.inc.F90"
756 0 : end procedure
757 : #endif
758 :
759 : #if RK1_ENABLED
760 1 : module procedure getMNR_RNGD_AM_AC_UXD_D1_RK1
761 : use pm_kind, only: RKC => RK1
762 : #include "pm_distMultiNorm@routines.inc.F90"
763 1 : end procedure
764 : #endif
765 :
766 : #undef RK_ENABLED
767 :
768 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
769 :
770 : #undef UXD_ENABLED
771 :
772 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
773 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
774 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
775 :
776 : #define XLD_ENABLED 1
777 :
778 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
779 :
780 : #define RK_ENABLED 1
781 :
782 : #if RK5_ENABLED
783 : module procedure getMNR_RNGD_AM_AC_XLD_D1_RK5
784 : use pm_kind, only: RKC => RK5
785 : #include "pm_distMultiNorm@routines.inc.F90"
786 : end procedure
787 : #endif
788 :
789 : #if RK4_ENABLED
790 0 : module procedure getMNR_RNGD_AM_AC_XLD_D1_RK4
791 : use pm_kind, only: RKC => RK4
792 : #include "pm_distMultiNorm@routines.inc.F90"
793 0 : end procedure
794 : #endif
795 :
796 : #if RK3_ENABLED
797 0 : module procedure getMNR_RNGD_AM_AC_XLD_D1_RK3
798 : use pm_kind, only: RKC => RK3
799 : #include "pm_distMultiNorm@routines.inc.F90"
800 0 : end procedure
801 : #endif
802 :
803 : #if RK2_ENABLED
804 0 : module procedure getMNR_RNGD_AM_AC_XLD_D1_RK2
805 : use pm_kind, only: RKC => RK2
806 : #include "pm_distMultiNorm@routines.inc.F90"
807 0 : end procedure
808 : #endif
809 :
810 : #if RK1_ENABLED
811 0 : module procedure getMNR_RNGD_AM_AC_XLD_D1_RK1
812 : use pm_kind, only: RKC => RK1
813 : #include "pm_distMultiNorm@routines.inc.F90"
814 0 : end procedure
815 : #endif
816 :
817 : #undef RK_ENABLED
818 :
819 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
820 :
821 : #undef XLD_ENABLED
822 :
823 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
824 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
825 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
826 :
827 : #undef AC_ENABLED
828 :
829 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
830 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
831 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
832 :
833 : #undef AM_ENABLED
834 :
835 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
836 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
837 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
838 :
839 : #undef RNGD_ENABLED
840 :
841 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
842 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
843 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
844 :
845 : #define RNGF_ENABLED 1
846 :
847 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
848 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
849 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
850 :
851 : #define DM_ENABLED 1
852 :
853 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
854 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
855 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
856 :
857 : #define AC_ENABLED 1
858 :
859 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
860 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
861 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
862 :
863 : #define UXD_ENABLED 1
864 :
865 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
866 :
867 : #define RK_ENABLED 1
868 :
869 : #if RK5_ENABLED
870 : module procedure getMNR_RNGF_DM_AC_UXD_D1_RK5
871 : use pm_kind, only: RKC => RK5
872 : #include "pm_distMultiNorm@routines.inc.F90"
873 : end procedure
874 : #endif
875 :
876 : #if RK4_ENABLED
877 0 : module procedure getMNR_RNGF_DM_AC_UXD_D1_RK4
878 : use pm_kind, only: RKC => RK4
879 : #include "pm_distMultiNorm@routines.inc.F90"
880 0 : end procedure
881 : #endif
882 :
883 : #if RK3_ENABLED
884 0 : module procedure getMNR_RNGF_DM_AC_UXD_D1_RK3
885 : use pm_kind, only: RKC => RK3
886 : #include "pm_distMultiNorm@routines.inc.F90"
887 0 : end procedure
888 : #endif
889 :
890 : #if RK2_ENABLED
891 0 : module procedure getMNR_RNGF_DM_AC_UXD_D1_RK2
892 : use pm_kind, only: RKC => RK2
893 : #include "pm_distMultiNorm@routines.inc.F90"
894 0 : end procedure
895 : #endif
896 :
897 : #if RK1_ENABLED
898 0 : module procedure getMNR_RNGF_DM_AC_UXD_D1_RK1
899 : use pm_kind, only: RKC => RK1
900 : #include "pm_distMultiNorm@routines.inc.F90"
901 0 : end procedure
902 : #endif
903 :
904 : #undef RK_ENABLED
905 :
906 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
907 :
908 : #undef UXD_ENABLED
909 :
910 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
911 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
912 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
913 :
914 : #define XLD_ENABLED 1
915 :
916 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
917 :
918 : #define RK_ENABLED 1
919 :
920 : #if RK5_ENABLED
921 : module procedure getMNR_RNGF_DM_AC_XLD_D1_RK5
922 : use pm_kind, only: RKC => RK5
923 : #include "pm_distMultiNorm@routines.inc.F90"
924 : end procedure
925 : #endif
926 :
927 : #if RK4_ENABLED
928 0 : module procedure getMNR_RNGF_DM_AC_XLD_D1_RK4
929 : use pm_kind, only: RKC => RK4
930 : #include "pm_distMultiNorm@routines.inc.F90"
931 0 : end procedure
932 : #endif
933 :
934 : #if RK3_ENABLED
935 0 : module procedure getMNR_RNGF_DM_AC_XLD_D1_RK3
936 : use pm_kind, only: RKC => RK3
937 : #include "pm_distMultiNorm@routines.inc.F90"
938 0 : end procedure
939 : #endif
940 :
941 : #if RK2_ENABLED
942 0 : module procedure getMNR_RNGF_DM_AC_XLD_D1_RK2
943 : use pm_kind, only: RKC => RK2
944 : #include "pm_distMultiNorm@routines.inc.F90"
945 0 : end procedure
946 : #endif
947 :
948 : #if RK1_ENABLED
949 0 : module procedure getMNR_RNGF_DM_AC_XLD_D1_RK1
950 : use pm_kind, only: RKC => RK1
951 : #include "pm_distMultiNorm@routines.inc.F90"
952 0 : end procedure
953 : #endif
954 :
955 : #undef RK_ENABLED
956 :
957 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
958 :
959 : #undef XLD_ENABLED
960 :
961 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
962 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
963 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
964 :
965 : #undef AC_ENABLED
966 :
967 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
968 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
969 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
970 :
971 : #undef DM_ENABLED
972 :
973 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
974 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
975 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
976 :
977 : #define AM_ENABLED 1
978 :
979 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
980 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
981 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
982 :
983 : #define DC_ENABLED 1
984 :
985 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
986 :
987 : #define RK_ENABLED 1
988 :
989 : #if RK5_ENABLED
990 : module procedure getMNR_RNGF_AM_DC_XXX_D1_RK5
991 : use pm_kind, only: RKC => RK5
992 : #include "pm_distMultiNorm@routines.inc.F90"
993 : end procedure
994 : #endif
995 :
996 : #if RK4_ENABLED
997 0 : module procedure getMNR_RNGF_AM_DC_XXX_D1_RK4
998 : use pm_kind, only: RKC => RK4
999 : #include "pm_distMultiNorm@routines.inc.F90"
1000 0 : end procedure
1001 : #endif
1002 :
1003 : #if RK3_ENABLED
1004 0 : module procedure getMNR_RNGF_AM_DC_XXX_D1_RK3
1005 : use pm_kind, only: RKC => RK3
1006 : #include "pm_distMultiNorm@routines.inc.F90"
1007 0 : end procedure
1008 : #endif
1009 :
1010 : #if RK2_ENABLED
1011 0 : module procedure getMNR_RNGF_AM_DC_XXX_D1_RK2
1012 : use pm_kind, only: RKC => RK2
1013 : #include "pm_distMultiNorm@routines.inc.F90"
1014 0 : end procedure
1015 : #endif
1016 :
1017 : #if RK1_ENABLED
1018 0 : module procedure getMNR_RNGF_AM_DC_XXX_D1_RK1
1019 : use pm_kind, only: RKC => RK1
1020 : #include "pm_distMultiNorm@routines.inc.F90"
1021 0 : end procedure
1022 : #endif
1023 :
1024 : #undef RK_ENABLED
1025 :
1026 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1027 :
1028 : #undef DC_ENABLED
1029 :
1030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1031 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1032 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1033 :
1034 : #define AC_ENABLED 1
1035 :
1036 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1037 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1038 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1039 :
1040 : #define UXD_ENABLED 1
1041 :
1042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1043 :
1044 : #define RK_ENABLED 1
1045 :
1046 : #if RK5_ENABLED
1047 : module procedure getMNR_RNGF_AM_AC_UXD_D1_RK5
1048 : use pm_kind, only: RKC => RK5
1049 : #include "pm_distMultiNorm@routines.inc.F90"
1050 : end procedure
1051 : #endif
1052 :
1053 : #if RK4_ENABLED
1054 0 : module procedure getMNR_RNGF_AM_AC_UXD_D1_RK4
1055 : use pm_kind, only: RKC => RK4
1056 : #include "pm_distMultiNorm@routines.inc.F90"
1057 0 : end procedure
1058 : #endif
1059 :
1060 : #if RK3_ENABLED
1061 0 : module procedure getMNR_RNGF_AM_AC_UXD_D1_RK3
1062 : use pm_kind, only: RKC => RK3
1063 : #include "pm_distMultiNorm@routines.inc.F90"
1064 0 : end procedure
1065 : #endif
1066 :
1067 : #if RK2_ENABLED
1068 0 : module procedure getMNR_RNGF_AM_AC_UXD_D1_RK2
1069 : use pm_kind, only: RKC => RK2
1070 : #include "pm_distMultiNorm@routines.inc.F90"
1071 0 : end procedure
1072 : #endif
1073 :
1074 : #if RK1_ENABLED
1075 0 : module procedure getMNR_RNGF_AM_AC_UXD_D1_RK1
1076 : use pm_kind, only: RKC => RK1
1077 : #include "pm_distMultiNorm@routines.inc.F90"
1078 0 : end procedure
1079 : #endif
1080 :
1081 : #undef RK_ENABLED
1082 :
1083 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1084 :
1085 : #undef UXD_ENABLED
1086 :
1087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1089 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1090 :
1091 : #define XLD_ENABLED 1
1092 :
1093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1094 :
1095 : #define RK_ENABLED 1
1096 :
1097 : #if RK5_ENABLED
1098 : module procedure getMNR_RNGF_AM_AC_XLD_D1_RK5
1099 : use pm_kind, only: RKC => RK5
1100 : #include "pm_distMultiNorm@routines.inc.F90"
1101 : end procedure
1102 : #endif
1103 :
1104 : #if RK4_ENABLED
1105 0 : module procedure getMNR_RNGF_AM_AC_XLD_D1_RK4
1106 : use pm_kind, only: RKC => RK4
1107 : #include "pm_distMultiNorm@routines.inc.F90"
1108 0 : end procedure
1109 : #endif
1110 :
1111 : #if RK3_ENABLED
1112 0 : module procedure getMNR_RNGF_AM_AC_XLD_D1_RK3
1113 : use pm_kind, only: RKC => RK3
1114 : #include "pm_distMultiNorm@routines.inc.F90"
1115 0 : end procedure
1116 : #endif
1117 :
1118 : #if RK2_ENABLED
1119 0 : module procedure getMNR_RNGF_AM_AC_XLD_D1_RK2
1120 : use pm_kind, only: RKC => RK2
1121 : #include "pm_distMultiNorm@routines.inc.F90"
1122 0 : end procedure
1123 : #endif
1124 :
1125 : #if RK1_ENABLED
1126 0 : module procedure getMNR_RNGF_AM_AC_XLD_D1_RK1
1127 : use pm_kind, only: RKC => RK1
1128 : #include "pm_distMultiNorm@routines.inc.F90"
1129 0 : end procedure
1130 : #endif
1131 :
1132 : #undef RK_ENABLED
1133 :
1134 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1135 :
1136 : #undef XLD_ENABLED
1137 :
1138 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1139 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1140 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1141 :
1142 : #undef AC_ENABLED
1143 :
1144 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1145 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1146 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1147 :
1148 : #undef AM_ENABLED
1149 :
1150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1153 :
1154 : #undef RNGF_ENABLED
1155 :
1156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1157 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1159 :
1160 : #define RNGX_ENABLED 1
1161 :
1162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1163 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1165 :
1166 : #define DM_ENABLED 1
1167 :
1168 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1171 :
1172 : #define AC_ENABLED 1
1173 :
1174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1175 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1177 :
1178 : #define UXD_ENABLED 1
1179 :
1180 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1181 :
1182 : #define RK_ENABLED 1
1183 :
1184 : #if RK5_ENABLED
1185 : module procedure getMNR_RNGX_DM_AC_UXD_D1_RK5
1186 : use pm_kind, only: RKC => RK5
1187 : #include "pm_distMultiNorm@routines.inc.F90"
1188 : end procedure
1189 : #endif
1190 :
1191 : #if RK4_ENABLED
1192 0 : module procedure getMNR_RNGX_DM_AC_UXD_D1_RK4
1193 : use pm_kind, only: RKC => RK4
1194 : #include "pm_distMultiNorm@routines.inc.F90"
1195 0 : end procedure
1196 : #endif
1197 :
1198 : #if RK3_ENABLED
1199 0 : module procedure getMNR_RNGX_DM_AC_UXD_D1_RK3
1200 : use pm_kind, only: RKC => RK3
1201 : #include "pm_distMultiNorm@routines.inc.F90"
1202 0 : end procedure
1203 : #endif
1204 :
1205 : #if RK2_ENABLED
1206 0 : module procedure getMNR_RNGX_DM_AC_UXD_D1_RK2
1207 : use pm_kind, only: RKC => RK2
1208 : #include "pm_distMultiNorm@routines.inc.F90"
1209 0 : end procedure
1210 : #endif
1211 :
1212 : #if RK1_ENABLED
1213 0 : module procedure getMNR_RNGX_DM_AC_UXD_D1_RK1
1214 : use pm_kind, only: RKC => RK1
1215 : #include "pm_distMultiNorm@routines.inc.F90"
1216 0 : end procedure
1217 : #endif
1218 :
1219 : #undef RK_ENABLED
1220 :
1221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1222 :
1223 : #undef UXD_ENABLED
1224 :
1225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1226 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1227 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1228 :
1229 : #define XLD_ENABLED 1
1230 :
1231 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1232 :
1233 : #define RK_ENABLED 1
1234 :
1235 : #if RK5_ENABLED
1236 : module procedure getMNR_RNGX_DM_AC_XLD_D1_RK5
1237 : use pm_kind, only: RKC => RK5
1238 : #include "pm_distMultiNorm@routines.inc.F90"
1239 : end procedure
1240 : #endif
1241 :
1242 : #if RK4_ENABLED
1243 0 : module procedure getMNR_RNGX_DM_AC_XLD_D1_RK4
1244 : use pm_kind, only: RKC => RK4
1245 : #include "pm_distMultiNorm@routines.inc.F90"
1246 0 : end procedure
1247 : #endif
1248 :
1249 : #if RK3_ENABLED
1250 0 : module procedure getMNR_RNGX_DM_AC_XLD_D1_RK3
1251 : use pm_kind, only: RKC => RK3
1252 : #include "pm_distMultiNorm@routines.inc.F90"
1253 0 : end procedure
1254 : #endif
1255 :
1256 : #if RK2_ENABLED
1257 0 : module procedure getMNR_RNGX_DM_AC_XLD_D1_RK2
1258 : use pm_kind, only: RKC => RK2
1259 : #include "pm_distMultiNorm@routines.inc.F90"
1260 0 : end procedure
1261 : #endif
1262 :
1263 : #if RK1_ENABLED
1264 0 : module procedure getMNR_RNGX_DM_AC_XLD_D1_RK1
1265 : use pm_kind, only: RKC => RK1
1266 : #include "pm_distMultiNorm@routines.inc.F90"
1267 0 : end procedure
1268 : #endif
1269 :
1270 : #undef RK_ENABLED
1271 :
1272 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1273 :
1274 : #undef XLD_ENABLED
1275 :
1276 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1277 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1278 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1279 :
1280 : #undef AC_ENABLED
1281 :
1282 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1284 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1285 :
1286 : #undef DM_ENABLED
1287 :
1288 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1291 :
1292 : #define AM_ENABLED 1
1293 :
1294 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1295 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1296 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1297 :
1298 : #define DC_ENABLED 1
1299 :
1300 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1301 :
1302 : #define RK_ENABLED 1
1303 :
1304 : #if RK5_ENABLED
1305 : module procedure getMNR_RNGX_AM_DC_XXX_D1_RK5
1306 : use pm_kind, only: RKC => RK5
1307 : #include "pm_distMultiNorm@routines.inc.F90"
1308 : end procedure
1309 : #endif
1310 :
1311 : #if RK4_ENABLED
1312 0 : module procedure getMNR_RNGX_AM_DC_XXX_D1_RK4
1313 : use pm_kind, only: RKC => RK4
1314 : #include "pm_distMultiNorm@routines.inc.F90"
1315 0 : end procedure
1316 : #endif
1317 :
1318 : #if RK3_ENABLED
1319 0 : module procedure getMNR_RNGX_AM_DC_XXX_D1_RK3
1320 : use pm_kind, only: RKC => RK3
1321 : #include "pm_distMultiNorm@routines.inc.F90"
1322 0 : end procedure
1323 : #endif
1324 :
1325 : #if RK2_ENABLED
1326 0 : module procedure getMNR_RNGX_AM_DC_XXX_D1_RK2
1327 : use pm_kind, only: RKC => RK2
1328 : #include "pm_distMultiNorm@routines.inc.F90"
1329 0 : end procedure
1330 : #endif
1331 :
1332 : #if RK1_ENABLED
1333 0 : module procedure getMNR_RNGX_AM_DC_XXX_D1_RK1
1334 : use pm_kind, only: RKC => RK1
1335 : #include "pm_distMultiNorm@routines.inc.F90"
1336 0 : end procedure
1337 : #endif
1338 :
1339 : #undef RK_ENABLED
1340 :
1341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1342 :
1343 : #undef DC_ENABLED
1344 :
1345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1347 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1348 :
1349 : #define AC_ENABLED 1
1350 :
1351 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1352 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1353 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1354 :
1355 : #define UXD_ENABLED 1
1356 :
1357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1358 :
1359 : #define RK_ENABLED 1
1360 :
1361 : #if RK5_ENABLED
1362 : module procedure getMNR_RNGX_AM_AC_UXD_D1_RK5
1363 : use pm_kind, only: RKC => RK5
1364 : #include "pm_distMultiNorm@routines.inc.F90"
1365 : end procedure
1366 : #endif
1367 :
1368 : #if RK4_ENABLED
1369 0 : module procedure getMNR_RNGX_AM_AC_UXD_D1_RK4
1370 : use pm_kind, only: RKC => RK4
1371 : #include "pm_distMultiNorm@routines.inc.F90"
1372 0 : end procedure
1373 : #endif
1374 :
1375 : #if RK3_ENABLED
1376 0 : module procedure getMNR_RNGX_AM_AC_UXD_D1_RK3
1377 : use pm_kind, only: RKC => RK3
1378 : #include "pm_distMultiNorm@routines.inc.F90"
1379 0 : end procedure
1380 : #endif
1381 :
1382 : #if RK2_ENABLED
1383 0 : module procedure getMNR_RNGX_AM_AC_UXD_D1_RK2
1384 : use pm_kind, only: RKC => RK2
1385 : #include "pm_distMultiNorm@routines.inc.F90"
1386 0 : end procedure
1387 : #endif
1388 :
1389 : #if RK1_ENABLED
1390 0 : module procedure getMNR_RNGX_AM_AC_UXD_D1_RK1
1391 : use pm_kind, only: RKC => RK1
1392 : #include "pm_distMultiNorm@routines.inc.F90"
1393 0 : end procedure
1394 : #endif
1395 :
1396 : #undef RK_ENABLED
1397 :
1398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1399 :
1400 : #undef UXD_ENABLED
1401 :
1402 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1403 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1404 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1405 :
1406 : #define XLD_ENABLED 1
1407 :
1408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1409 :
1410 : #define RK_ENABLED 1
1411 :
1412 : #if RK5_ENABLED
1413 : module procedure getMNR_RNGX_AM_AC_XLD_D1_RK5
1414 : use pm_kind, only: RKC => RK5
1415 : #include "pm_distMultiNorm@routines.inc.F90"
1416 : end procedure
1417 : #endif
1418 :
1419 : #if RK4_ENABLED
1420 0 : module procedure getMNR_RNGX_AM_AC_XLD_D1_RK4
1421 : use pm_kind, only: RKC => RK4
1422 : #include "pm_distMultiNorm@routines.inc.F90"
1423 0 : end procedure
1424 : #endif
1425 :
1426 : #if RK3_ENABLED
1427 0 : module procedure getMNR_RNGX_AM_AC_XLD_D1_RK3
1428 : use pm_kind, only: RKC => RK3
1429 : #include "pm_distMultiNorm@routines.inc.F90"
1430 0 : end procedure
1431 : #endif
1432 :
1433 : #if RK2_ENABLED
1434 0 : module procedure getMNR_RNGX_AM_AC_XLD_D1_RK2
1435 : use pm_kind, only: RKC => RK2
1436 : #include "pm_distMultiNorm@routines.inc.F90"
1437 0 : end procedure
1438 : #endif
1439 :
1440 : #if RK1_ENABLED
1441 0 : module procedure getMNR_RNGX_AM_AC_XLD_D1_RK1
1442 : use pm_kind, only: RKC => RK1
1443 : #include "pm_distMultiNorm@routines.inc.F90"
1444 0 : end procedure
1445 : #endif
1446 :
1447 : #undef RK_ENABLED
1448 :
1449 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1450 :
1451 : #undef XLD_ENABLED
1452 :
1453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1455 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1456 :
1457 : #undef AC_ENABLED
1458 :
1459 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1460 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1461 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1462 :
1463 : #undef AM_ENABLED
1464 :
1465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1468 :
1469 : #undef RNGX_ENABLED
1470 :
1471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1472 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1474 :
1475 : #undef D1_ENABLED
1476 :
1477 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1479 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1480 :
1481 : #define D2_ENABLED 1
1482 :
1483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1485 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1486 :
1487 : #define RNGD_ENABLED 1
1488 :
1489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1490 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1491 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1492 :
1493 : #define DM_ENABLED 1
1494 :
1495 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1496 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1497 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1498 :
1499 : #define AC_ENABLED 1
1500 :
1501 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1502 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1503 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1504 :
1505 : #define UXD_ENABLED 1
1506 :
1507 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1508 :
1509 : #define RK_ENABLED 1
1510 :
1511 : #if RK5_ENABLED
1512 : module procedure getMNR_RNGD_DM_AC_UXD_D2_RK5
1513 : use pm_kind, only: RKC => RK5
1514 : #include "pm_distMultiNorm@routines.inc.F90"
1515 : end procedure
1516 : #endif
1517 :
1518 : #if RK4_ENABLED
1519 0 : module procedure getMNR_RNGD_DM_AC_UXD_D2_RK4
1520 : use pm_kind, only: RKC => RK4
1521 : #include "pm_distMultiNorm@routines.inc.F90"
1522 0 : end procedure
1523 : #endif
1524 :
1525 : #if RK3_ENABLED
1526 0 : module procedure getMNR_RNGD_DM_AC_UXD_D2_RK3
1527 : use pm_kind, only: RKC => RK3
1528 : #include "pm_distMultiNorm@routines.inc.F90"
1529 0 : end procedure
1530 : #endif
1531 :
1532 : #if RK2_ENABLED
1533 0 : module procedure getMNR_RNGD_DM_AC_UXD_D2_RK2
1534 : use pm_kind, only: RKC => RK2
1535 : #include "pm_distMultiNorm@routines.inc.F90"
1536 0 : end procedure
1537 : #endif
1538 :
1539 : #if RK1_ENABLED
1540 2 : module procedure getMNR_RNGD_DM_AC_UXD_D2_RK1
1541 : use pm_kind, only: RKC => RK1
1542 : #include "pm_distMultiNorm@routines.inc.F90"
1543 2 : end procedure
1544 : #endif
1545 :
1546 : #undef RK_ENABLED
1547 :
1548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1549 :
1550 : #undef UXD_ENABLED
1551 :
1552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1553 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1555 :
1556 : #define XLD_ENABLED 1
1557 :
1558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1559 :
1560 : #define RK_ENABLED 1
1561 :
1562 : #if RK5_ENABLED
1563 : module procedure getMNR_RNGD_DM_AC_XLD_D2_RK5
1564 : use pm_kind, only: RKC => RK5
1565 : #include "pm_distMultiNorm@routines.inc.F90"
1566 : end procedure
1567 : #endif
1568 :
1569 : #if RK4_ENABLED
1570 0 : module procedure getMNR_RNGD_DM_AC_XLD_D2_RK4
1571 : use pm_kind, only: RKC => RK4
1572 : #include "pm_distMultiNorm@routines.inc.F90"
1573 0 : end procedure
1574 : #endif
1575 :
1576 : #if RK3_ENABLED
1577 0 : module procedure getMNR_RNGD_DM_AC_XLD_D2_RK3
1578 : use pm_kind, only: RKC => RK3
1579 : #include "pm_distMultiNorm@routines.inc.F90"
1580 0 : end procedure
1581 : #endif
1582 :
1583 : #if RK2_ENABLED
1584 0 : module procedure getMNR_RNGD_DM_AC_XLD_D2_RK2
1585 : use pm_kind, only: RKC => RK2
1586 : #include "pm_distMultiNorm@routines.inc.F90"
1587 0 : end procedure
1588 : #endif
1589 :
1590 : #if RK1_ENABLED
1591 0 : module procedure getMNR_RNGD_DM_AC_XLD_D2_RK1
1592 : use pm_kind, only: RKC => RK1
1593 : #include "pm_distMultiNorm@routines.inc.F90"
1594 0 : end procedure
1595 : #endif
1596 :
1597 : #undef RK_ENABLED
1598 :
1599 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1600 :
1601 : #undef XLD_ENABLED
1602 :
1603 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1604 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1605 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1606 :
1607 : #undef AC_ENABLED
1608 :
1609 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1610 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1611 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1612 :
1613 : #undef DM_ENABLED
1614 :
1615 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1616 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1617 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1618 :
1619 : #define AM_ENABLED 1
1620 :
1621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1624 :
1625 : #define DC_ENABLED 1
1626 :
1627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1628 :
1629 : #define RK_ENABLED 1
1630 :
1631 : #if RK5_ENABLED
1632 : module procedure getMNR_RNGD_AM_DC_XXX_D2_RK5
1633 : use pm_kind, only: RKC => RK5
1634 : #include "pm_distMultiNorm@routines.inc.F90"
1635 : end procedure
1636 : #endif
1637 :
1638 : #if RK4_ENABLED
1639 0 : module procedure getMNR_RNGD_AM_DC_XXX_D2_RK4
1640 : use pm_kind, only: RKC => RK4
1641 : #include "pm_distMultiNorm@routines.inc.F90"
1642 0 : end procedure
1643 : #endif
1644 :
1645 : #if RK3_ENABLED
1646 0 : module procedure getMNR_RNGD_AM_DC_XXX_D2_RK3
1647 : use pm_kind, only: RKC => RK3
1648 : #include "pm_distMultiNorm@routines.inc.F90"
1649 0 : end procedure
1650 : #endif
1651 :
1652 : #if RK2_ENABLED
1653 0 : module procedure getMNR_RNGD_AM_DC_XXX_D2_RK2
1654 : use pm_kind, only: RKC => RK2
1655 : #include "pm_distMultiNorm@routines.inc.F90"
1656 0 : end procedure
1657 : #endif
1658 :
1659 : #if RK1_ENABLED
1660 1 : module procedure getMNR_RNGD_AM_DC_XXX_D2_RK1
1661 : use pm_kind, only: RKC => RK1
1662 : #include "pm_distMultiNorm@routines.inc.F90"
1663 1 : end procedure
1664 : #endif
1665 :
1666 : #undef RK_ENABLED
1667 :
1668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1669 :
1670 : #undef DC_ENABLED
1671 :
1672 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1673 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1674 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1675 :
1676 : #define AC_ENABLED 1
1677 :
1678 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1679 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1681 :
1682 : #define UXD_ENABLED 1
1683 :
1684 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1685 :
1686 : #define RK_ENABLED 1
1687 :
1688 : #if RK5_ENABLED
1689 : module procedure getMNR_RNGD_AM_AC_UXD_D2_RK5
1690 : use pm_kind, only: RKC => RK5
1691 : #include "pm_distMultiNorm@routines.inc.F90"
1692 : end procedure
1693 : #endif
1694 :
1695 : #if RK4_ENABLED
1696 0 : module procedure getMNR_RNGD_AM_AC_UXD_D2_RK4
1697 : use pm_kind, only: RKC => RK4
1698 : #include "pm_distMultiNorm@routines.inc.F90"
1699 0 : end procedure
1700 : #endif
1701 :
1702 : #if RK3_ENABLED
1703 0 : module procedure getMNR_RNGD_AM_AC_UXD_D2_RK3
1704 : use pm_kind, only: RKC => RK3
1705 : #include "pm_distMultiNorm@routines.inc.F90"
1706 0 : end procedure
1707 : #endif
1708 :
1709 : #if RK2_ENABLED
1710 0 : module procedure getMNR_RNGD_AM_AC_UXD_D2_RK2
1711 : use pm_kind, only: RKC => RK2
1712 : #include "pm_distMultiNorm@routines.inc.F90"
1713 0 : end procedure
1714 : #endif
1715 :
1716 : #if RK1_ENABLED
1717 0 : module procedure getMNR_RNGD_AM_AC_UXD_D2_RK1
1718 : use pm_kind, only: RKC => RK1
1719 : #include "pm_distMultiNorm@routines.inc.F90"
1720 0 : end procedure
1721 : #endif
1722 :
1723 : #undef RK_ENABLED
1724 :
1725 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1726 :
1727 : #undef UXD_ENABLED
1728 :
1729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1730 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1731 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1732 :
1733 : #define XLD_ENABLED 1
1734 :
1735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1736 :
1737 : #define RK_ENABLED 1
1738 :
1739 : #if RK5_ENABLED
1740 : module procedure getMNR_RNGD_AM_AC_XLD_D2_RK5
1741 : use pm_kind, only: RKC => RK5
1742 : #include "pm_distMultiNorm@routines.inc.F90"
1743 : end procedure
1744 : #endif
1745 :
1746 : #if RK4_ENABLED
1747 0 : module procedure getMNR_RNGD_AM_AC_XLD_D2_RK4
1748 : use pm_kind, only: RKC => RK4
1749 : #include "pm_distMultiNorm@routines.inc.F90"
1750 0 : end procedure
1751 : #endif
1752 :
1753 : #if RK3_ENABLED
1754 0 : module procedure getMNR_RNGD_AM_AC_XLD_D2_RK3
1755 : use pm_kind, only: RKC => RK3
1756 : #include "pm_distMultiNorm@routines.inc.F90"
1757 0 : end procedure
1758 : #endif
1759 :
1760 : #if RK2_ENABLED
1761 0 : module procedure getMNR_RNGD_AM_AC_XLD_D2_RK2
1762 : use pm_kind, only: RKC => RK2
1763 : #include "pm_distMultiNorm@routines.inc.F90"
1764 0 : end procedure
1765 : #endif
1766 :
1767 : #if RK1_ENABLED
1768 0 : module procedure getMNR_RNGD_AM_AC_XLD_D2_RK1
1769 : use pm_kind, only: RKC => RK1
1770 : #include "pm_distMultiNorm@routines.inc.F90"
1771 0 : end procedure
1772 : #endif
1773 :
1774 : #undef RK_ENABLED
1775 :
1776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1777 :
1778 : #undef XLD_ENABLED
1779 :
1780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1781 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1783 :
1784 : #undef AC_ENABLED
1785 :
1786 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1787 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1789 :
1790 : #undef AM_ENABLED
1791 :
1792 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1793 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1794 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1795 :
1796 : #undef RNGD_ENABLED
1797 :
1798 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1799 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1800 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1801 :
1802 : #define RNGF_ENABLED 1
1803 :
1804 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1805 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1806 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1807 :
1808 : #define DM_ENABLED 1
1809 :
1810 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1811 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1812 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1813 :
1814 : #define AC_ENABLED 1
1815 :
1816 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1817 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1818 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1819 :
1820 : #define UXD_ENABLED 1
1821 :
1822 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1823 :
1824 : #define RK_ENABLED 1
1825 :
1826 : #if RK5_ENABLED
1827 : module procedure getMNR_RNGF_DM_AC_UXD_D2_RK5
1828 : use pm_kind, only: RKC => RK5
1829 : #include "pm_distMultiNorm@routines.inc.F90"
1830 : end procedure
1831 : #endif
1832 :
1833 : #if RK4_ENABLED
1834 0 : module procedure getMNR_RNGF_DM_AC_UXD_D2_RK4
1835 : use pm_kind, only: RKC => RK4
1836 : #include "pm_distMultiNorm@routines.inc.F90"
1837 0 : end procedure
1838 : #endif
1839 :
1840 : #if RK3_ENABLED
1841 0 : module procedure getMNR_RNGF_DM_AC_UXD_D2_RK3
1842 : use pm_kind, only: RKC => RK3
1843 : #include "pm_distMultiNorm@routines.inc.F90"
1844 0 : end procedure
1845 : #endif
1846 :
1847 : #if RK2_ENABLED
1848 0 : module procedure getMNR_RNGF_DM_AC_UXD_D2_RK2
1849 : use pm_kind, only: RKC => RK2
1850 : #include "pm_distMultiNorm@routines.inc.F90"
1851 0 : end procedure
1852 : #endif
1853 :
1854 : #if RK1_ENABLED
1855 0 : module procedure getMNR_RNGF_DM_AC_UXD_D2_RK1
1856 : use pm_kind, only: RKC => RK1
1857 : #include "pm_distMultiNorm@routines.inc.F90"
1858 0 : end procedure
1859 : #endif
1860 :
1861 : #undef RK_ENABLED
1862 :
1863 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1864 :
1865 : #undef UXD_ENABLED
1866 :
1867 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1868 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1869 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1870 :
1871 : #define XLD_ENABLED 1
1872 :
1873 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1874 :
1875 : #define RK_ENABLED 1
1876 :
1877 : #if RK5_ENABLED
1878 : module procedure getMNR_RNGF_DM_AC_XLD_D2_RK5
1879 : use pm_kind, only: RKC => RK5
1880 : #include "pm_distMultiNorm@routines.inc.F90"
1881 : end procedure
1882 : #endif
1883 :
1884 : #if RK4_ENABLED
1885 0 : module procedure getMNR_RNGF_DM_AC_XLD_D2_RK4
1886 : use pm_kind, only: RKC => RK4
1887 : #include "pm_distMultiNorm@routines.inc.F90"
1888 0 : end procedure
1889 : #endif
1890 :
1891 : #if RK3_ENABLED
1892 0 : module procedure getMNR_RNGF_DM_AC_XLD_D2_RK3
1893 : use pm_kind, only: RKC => RK3
1894 : #include "pm_distMultiNorm@routines.inc.F90"
1895 0 : end procedure
1896 : #endif
1897 :
1898 : #if RK2_ENABLED
1899 0 : module procedure getMNR_RNGF_DM_AC_XLD_D2_RK2
1900 : use pm_kind, only: RKC => RK2
1901 : #include "pm_distMultiNorm@routines.inc.F90"
1902 0 : end procedure
1903 : #endif
1904 :
1905 : #if RK1_ENABLED
1906 0 : module procedure getMNR_RNGF_DM_AC_XLD_D2_RK1
1907 : use pm_kind, only: RKC => RK1
1908 : #include "pm_distMultiNorm@routines.inc.F90"
1909 0 : end procedure
1910 : #endif
1911 :
1912 : #undef RK_ENABLED
1913 :
1914 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1915 :
1916 : #undef XLD_ENABLED
1917 :
1918 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1919 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1920 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1921 :
1922 : #undef AC_ENABLED
1923 :
1924 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1925 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1926 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1927 :
1928 : #undef DM_ENABLED
1929 :
1930 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1931 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1932 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1933 :
1934 : #define AM_ENABLED 1
1935 :
1936 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1937 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1938 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1939 :
1940 : #define DC_ENABLED 1
1941 :
1942 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1943 :
1944 : #define RK_ENABLED 1
1945 :
1946 : #if RK5_ENABLED
1947 : module procedure getMNR_RNGF_AM_DC_XXX_D2_RK5
1948 : use pm_kind, only: RKC => RK5
1949 : #include "pm_distMultiNorm@routines.inc.F90"
1950 : end procedure
1951 : #endif
1952 :
1953 : #if RK4_ENABLED
1954 0 : module procedure getMNR_RNGF_AM_DC_XXX_D2_RK4
1955 : use pm_kind, only: RKC => RK4
1956 : #include "pm_distMultiNorm@routines.inc.F90"
1957 0 : end procedure
1958 : #endif
1959 :
1960 : #if RK3_ENABLED
1961 0 : module procedure getMNR_RNGF_AM_DC_XXX_D2_RK3
1962 : use pm_kind, only: RKC => RK3
1963 : #include "pm_distMultiNorm@routines.inc.F90"
1964 0 : end procedure
1965 : #endif
1966 :
1967 : #if RK2_ENABLED
1968 0 : module procedure getMNR_RNGF_AM_DC_XXX_D2_RK2
1969 : use pm_kind, only: RKC => RK2
1970 : #include "pm_distMultiNorm@routines.inc.F90"
1971 0 : end procedure
1972 : #endif
1973 :
1974 : #if RK1_ENABLED
1975 0 : module procedure getMNR_RNGF_AM_DC_XXX_D2_RK1
1976 : use pm_kind, only: RKC => RK1
1977 : #include "pm_distMultiNorm@routines.inc.F90"
1978 0 : end procedure
1979 : #endif
1980 :
1981 : #undef RK_ENABLED
1982 :
1983 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1984 :
1985 : #undef DC_ENABLED
1986 :
1987 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1988 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1989 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1990 :
1991 : #define AC_ENABLED 1
1992 :
1993 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1994 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1995 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1996 :
1997 : #define UXD_ENABLED 1
1998 :
1999 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2000 :
2001 : #define RK_ENABLED 1
2002 :
2003 : #if RK5_ENABLED
2004 : module procedure getMNR_RNGF_AM_AC_UXD_D2_RK5
2005 : use pm_kind, only: RKC => RK5
2006 : #include "pm_distMultiNorm@routines.inc.F90"
2007 : end procedure
2008 : #endif
2009 :
2010 : #if RK4_ENABLED
2011 0 : module procedure getMNR_RNGF_AM_AC_UXD_D2_RK4
2012 : use pm_kind, only: RKC => RK4
2013 : #include "pm_distMultiNorm@routines.inc.F90"
2014 0 : end procedure
2015 : #endif
2016 :
2017 : #if RK3_ENABLED
2018 0 : module procedure getMNR_RNGF_AM_AC_UXD_D2_RK3
2019 : use pm_kind, only: RKC => RK3
2020 : #include "pm_distMultiNorm@routines.inc.F90"
2021 0 : end procedure
2022 : #endif
2023 :
2024 : #if RK2_ENABLED
2025 0 : module procedure getMNR_RNGF_AM_AC_UXD_D2_RK2
2026 : use pm_kind, only: RKC => RK2
2027 : #include "pm_distMultiNorm@routines.inc.F90"
2028 0 : end procedure
2029 : #endif
2030 :
2031 : #if RK1_ENABLED
2032 0 : module procedure getMNR_RNGF_AM_AC_UXD_D2_RK1
2033 : use pm_kind, only: RKC => RK1
2034 : #include "pm_distMultiNorm@routines.inc.F90"
2035 0 : end procedure
2036 : #endif
2037 :
2038 : #undef RK_ENABLED
2039 :
2040 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2041 :
2042 : #undef UXD_ENABLED
2043 :
2044 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2045 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2046 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2047 :
2048 : #define XLD_ENABLED 1
2049 :
2050 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2051 :
2052 : #define RK_ENABLED 1
2053 :
2054 : #if RK5_ENABLED
2055 : module procedure getMNR_RNGF_AM_AC_XLD_D2_RK5
2056 : use pm_kind, only: RKC => RK5
2057 : #include "pm_distMultiNorm@routines.inc.F90"
2058 : end procedure
2059 : #endif
2060 :
2061 : #if RK4_ENABLED
2062 0 : module procedure getMNR_RNGF_AM_AC_XLD_D2_RK4
2063 : use pm_kind, only: RKC => RK4
2064 : #include "pm_distMultiNorm@routines.inc.F90"
2065 0 : end procedure
2066 : #endif
2067 :
2068 : #if RK3_ENABLED
2069 0 : module procedure getMNR_RNGF_AM_AC_XLD_D2_RK3
2070 : use pm_kind, only: RKC => RK3
2071 : #include "pm_distMultiNorm@routines.inc.F90"
2072 0 : end procedure
2073 : #endif
2074 :
2075 : #if RK2_ENABLED
2076 0 : module procedure getMNR_RNGF_AM_AC_XLD_D2_RK2
2077 : use pm_kind, only: RKC => RK2
2078 : #include "pm_distMultiNorm@routines.inc.F90"
2079 0 : end procedure
2080 : #endif
2081 :
2082 : #if RK1_ENABLED
2083 0 : module procedure getMNR_RNGF_AM_AC_XLD_D2_RK1
2084 : use pm_kind, only: RKC => RK1
2085 : #include "pm_distMultiNorm@routines.inc.F90"
2086 0 : end procedure
2087 : #endif
2088 :
2089 : #undef RK_ENABLED
2090 :
2091 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2092 :
2093 : #undef XLD_ENABLED
2094 :
2095 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2096 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2097 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2098 :
2099 : #undef AC_ENABLED
2100 :
2101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2104 :
2105 : #undef AM_ENABLED
2106 :
2107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2110 :
2111 : #undef RNGF_ENABLED
2112 :
2113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2116 :
2117 : #define RNGX_ENABLED 1
2118 :
2119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2122 :
2123 : #define DM_ENABLED 1
2124 :
2125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2127 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2128 :
2129 : #define AC_ENABLED 1
2130 :
2131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2133 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2134 :
2135 : #define UXD_ENABLED 1
2136 :
2137 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2138 :
2139 : #define RK_ENABLED 1
2140 :
2141 : #if RK5_ENABLED
2142 : module procedure getMNR_RNGX_DM_AC_UXD_D2_RK5
2143 : use pm_kind, only: RKC => RK5
2144 : #include "pm_distMultiNorm@routines.inc.F90"
2145 : end procedure
2146 : #endif
2147 :
2148 : #if RK4_ENABLED
2149 0 : module procedure getMNR_RNGX_DM_AC_UXD_D2_RK4
2150 : use pm_kind, only: RKC => RK4
2151 : #include "pm_distMultiNorm@routines.inc.F90"
2152 0 : end procedure
2153 : #endif
2154 :
2155 : #if RK3_ENABLED
2156 0 : module procedure getMNR_RNGX_DM_AC_UXD_D2_RK3
2157 : use pm_kind, only: RKC => RK3
2158 : #include "pm_distMultiNorm@routines.inc.F90"
2159 0 : end procedure
2160 : #endif
2161 :
2162 : #if RK2_ENABLED
2163 0 : module procedure getMNR_RNGX_DM_AC_UXD_D2_RK2
2164 : use pm_kind, only: RKC => RK2
2165 : #include "pm_distMultiNorm@routines.inc.F90"
2166 0 : end procedure
2167 : #endif
2168 :
2169 : #if RK1_ENABLED
2170 0 : module procedure getMNR_RNGX_DM_AC_UXD_D2_RK1
2171 : use pm_kind, only: RKC => RK1
2172 : #include "pm_distMultiNorm@routines.inc.F90"
2173 0 : end procedure
2174 : #endif
2175 :
2176 : #undef RK_ENABLED
2177 :
2178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2179 :
2180 : #undef UXD_ENABLED
2181 :
2182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2185 :
2186 : #define XLD_ENABLED 1
2187 :
2188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2189 :
2190 : #define RK_ENABLED 1
2191 :
2192 : #if RK5_ENABLED
2193 : module procedure getMNR_RNGX_DM_AC_XLD_D2_RK5
2194 : use pm_kind, only: RKC => RK5
2195 : #include "pm_distMultiNorm@routines.inc.F90"
2196 : end procedure
2197 : #endif
2198 :
2199 : #if RK4_ENABLED
2200 0 : module procedure getMNR_RNGX_DM_AC_XLD_D2_RK4
2201 : use pm_kind, only: RKC => RK4
2202 : #include "pm_distMultiNorm@routines.inc.F90"
2203 0 : end procedure
2204 : #endif
2205 :
2206 : #if RK3_ENABLED
2207 0 : module procedure getMNR_RNGX_DM_AC_XLD_D2_RK3
2208 : use pm_kind, only: RKC => RK3
2209 : #include "pm_distMultiNorm@routines.inc.F90"
2210 0 : end procedure
2211 : #endif
2212 :
2213 : #if RK2_ENABLED
2214 0 : module procedure getMNR_RNGX_DM_AC_XLD_D2_RK2
2215 : use pm_kind, only: RKC => RK2
2216 : #include "pm_distMultiNorm@routines.inc.F90"
2217 0 : end procedure
2218 : #endif
2219 :
2220 : #if RK1_ENABLED
2221 0 : module procedure getMNR_RNGX_DM_AC_XLD_D2_RK1
2222 : use pm_kind, only: RKC => RK1
2223 : #include "pm_distMultiNorm@routines.inc.F90"
2224 0 : end procedure
2225 : #endif
2226 :
2227 : #undef RK_ENABLED
2228 :
2229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2230 :
2231 : #undef XLD_ENABLED
2232 :
2233 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2235 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2236 :
2237 : #undef AC_ENABLED
2238 :
2239 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2241 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2242 :
2243 : #undef DM_ENABLED
2244 :
2245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2248 :
2249 : #define AM_ENABLED 1
2250 :
2251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2254 :
2255 : #define DC_ENABLED 1
2256 :
2257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2258 :
2259 : #define RK_ENABLED 1
2260 :
2261 : #if RK5_ENABLED
2262 : module procedure getMNR_RNGX_AM_DC_XXX_D2_RK5
2263 : use pm_kind, only: RKC => RK5
2264 : #include "pm_distMultiNorm@routines.inc.F90"
2265 : end procedure
2266 : #endif
2267 :
2268 : #if RK4_ENABLED
2269 0 : module procedure getMNR_RNGX_AM_DC_XXX_D2_RK4
2270 : use pm_kind, only: RKC => RK4
2271 : #include "pm_distMultiNorm@routines.inc.F90"
2272 0 : end procedure
2273 : #endif
2274 :
2275 : #if RK3_ENABLED
2276 0 : module procedure getMNR_RNGX_AM_DC_XXX_D2_RK3
2277 : use pm_kind, only: RKC => RK3
2278 : #include "pm_distMultiNorm@routines.inc.F90"
2279 0 : end procedure
2280 : #endif
2281 :
2282 : #if RK2_ENABLED
2283 0 : module procedure getMNR_RNGX_AM_DC_XXX_D2_RK2
2284 : use pm_kind, only: RKC => RK2
2285 : #include "pm_distMultiNorm@routines.inc.F90"
2286 0 : end procedure
2287 : #endif
2288 :
2289 : #if RK1_ENABLED
2290 0 : module procedure getMNR_RNGX_AM_DC_XXX_D2_RK1
2291 : use pm_kind, only: RKC => RK1
2292 : #include "pm_distMultiNorm@routines.inc.F90"
2293 0 : end procedure
2294 : #endif
2295 :
2296 : #undef RK_ENABLED
2297 :
2298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2299 :
2300 : #undef DC_ENABLED
2301 :
2302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2305 :
2306 : #define AC_ENABLED 1
2307 :
2308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2311 :
2312 : #define UXD_ENABLED 1
2313 :
2314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2315 :
2316 : #define RK_ENABLED 1
2317 :
2318 : #if RK5_ENABLED
2319 : module procedure getMNR_RNGX_AM_AC_UXD_D2_RK5
2320 : use pm_kind, only: RKC => RK5
2321 : #include "pm_distMultiNorm@routines.inc.F90"
2322 : end procedure
2323 : #endif
2324 :
2325 : #if RK4_ENABLED
2326 0 : module procedure getMNR_RNGX_AM_AC_UXD_D2_RK4
2327 : use pm_kind, only: RKC => RK4
2328 : #include "pm_distMultiNorm@routines.inc.F90"
2329 0 : end procedure
2330 : #endif
2331 :
2332 : #if RK3_ENABLED
2333 0 : module procedure getMNR_RNGX_AM_AC_UXD_D2_RK3
2334 : use pm_kind, only: RKC => RK3
2335 : #include "pm_distMultiNorm@routines.inc.F90"
2336 0 : end procedure
2337 : #endif
2338 :
2339 : #if RK2_ENABLED
2340 0 : module procedure getMNR_RNGX_AM_AC_UXD_D2_RK2
2341 : use pm_kind, only: RKC => RK2
2342 : #include "pm_distMultiNorm@routines.inc.F90"
2343 0 : end procedure
2344 : #endif
2345 :
2346 : #if RK1_ENABLED
2347 0 : module procedure getMNR_RNGX_AM_AC_UXD_D2_RK1
2348 : use pm_kind, only: RKC => RK1
2349 : #include "pm_distMultiNorm@routines.inc.F90"
2350 0 : end procedure
2351 : #endif
2352 :
2353 : #undef RK_ENABLED
2354 :
2355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2356 :
2357 : #undef UXD_ENABLED
2358 :
2359 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2362 :
2363 : #define XLD_ENABLED 1
2364 :
2365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2366 :
2367 : #define RK_ENABLED 1
2368 :
2369 : #if RK5_ENABLED
2370 : module procedure getMNR_RNGX_AM_AC_XLD_D2_RK5
2371 : use pm_kind, only: RKC => RK5
2372 : #include "pm_distMultiNorm@routines.inc.F90"
2373 : end procedure
2374 : #endif
2375 :
2376 : #if RK4_ENABLED
2377 0 : module procedure getMNR_RNGX_AM_AC_XLD_D2_RK4
2378 : use pm_kind, only: RKC => RK4
2379 : #include "pm_distMultiNorm@routines.inc.F90"
2380 0 : end procedure
2381 : #endif
2382 :
2383 : #if RK3_ENABLED
2384 0 : module procedure getMNR_RNGX_AM_AC_XLD_D2_RK3
2385 : use pm_kind, only: RKC => RK3
2386 : #include "pm_distMultiNorm@routines.inc.F90"
2387 0 : end procedure
2388 : #endif
2389 :
2390 : #if RK2_ENABLED
2391 0 : module procedure getMNR_RNGX_AM_AC_XLD_D2_RK2
2392 : use pm_kind, only: RKC => RK2
2393 : #include "pm_distMultiNorm@routines.inc.F90"
2394 0 : end procedure
2395 : #endif
2396 :
2397 : #if RK1_ENABLED
2398 0 : module procedure getMNR_RNGX_AM_AC_XLD_D2_RK1
2399 : use pm_kind, only: RKC => RK1
2400 : #include "pm_distMultiNorm@routines.inc.F90"
2401 0 : end procedure
2402 : #endif
2403 :
2404 : #undef RK_ENABLED
2405 :
2406 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2407 :
2408 : #undef XLD_ENABLED
2409 :
2410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2411 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2413 :
2414 : #undef AC_ENABLED
2415 :
2416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2419 :
2420 : #undef AM_ENABLED
2421 :
2422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2423 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2424 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2425 :
2426 : #undef RNGX_ENABLED
2427 :
2428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2429 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2431 :
2432 : #undef D2_ENABLED
2433 :
2434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2435 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2437 :
2438 : #undef getMNR_ENABLED
2439 :
2440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2441 :
2442 : #define setMNR_ENABLED 1
2443 :
2444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2447 :
2448 : #define D1_ENABLED 1
2449 :
2450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2453 :
2454 : #define RNGD_ENABLED 1
2455 :
2456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2459 :
2460 : #define DM_ENABLED 1
2461 :
2462 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2465 :
2466 : #define DC_ENABLED 1
2467 :
2468 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2469 :
2470 : #define RK_ENABLED 1
2471 :
2472 : #if RK5_ENABLED
2473 : module procedure setMNR_RNGD_DM_DC_XXX_D1_RK5
2474 : use pm_kind, only: RKC => RK5
2475 : #include "pm_distMultiNorm@routines.inc.F90"
2476 : end procedure
2477 : #endif
2478 :
2479 : #if RK4_ENABLED
2480 0 : module procedure setMNR_RNGD_DM_DC_XXX_D1_RK4
2481 : use pm_kind, only: RKC => RK4
2482 : #include "pm_distMultiNorm@routines.inc.F90"
2483 0 : end procedure
2484 : #endif
2485 :
2486 : #if RK3_ENABLED
2487 0 : module procedure setMNR_RNGD_DM_DC_XXX_D1_RK3
2488 : use pm_kind, only: RKC => RK3
2489 : #include "pm_distMultiNorm@routines.inc.F90"
2490 0 : end procedure
2491 : #endif
2492 :
2493 : #if RK2_ENABLED
2494 0 : module procedure setMNR_RNGD_DM_DC_XXX_D1_RK2
2495 : use pm_kind, only: RKC => RK2
2496 : #include "pm_distMultiNorm@routines.inc.F90"
2497 0 : end procedure
2498 : #endif
2499 :
2500 : #if RK1_ENABLED
2501 5001 : module procedure setMNR_RNGD_DM_DC_XXX_D1_RK1
2502 : use pm_kind, only: RKC => RK1
2503 : #include "pm_distMultiNorm@routines.inc.F90"
2504 5001 : end procedure
2505 : #endif
2506 :
2507 : #undef RK_ENABLED
2508 :
2509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2510 :
2511 : #undef DC_ENABLED
2512 :
2513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2516 :
2517 : #define AC_ENABLED 1
2518 :
2519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2520 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2522 :
2523 : #define UXD_ENABLED 1
2524 :
2525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2526 :
2527 : #define RK_ENABLED 1
2528 :
2529 : #if RK5_ENABLED
2530 : module procedure setMNR_RNGD_DM_AC_UXD_D1_RK5
2531 : use pm_kind, only: RKC => RK5
2532 : #include "pm_distMultiNorm@routines.inc.F90"
2533 : end procedure
2534 : #endif
2535 :
2536 : #if RK4_ENABLED
2537 0 : module procedure setMNR_RNGD_DM_AC_UXD_D1_RK4
2538 : use pm_kind, only: RKC => RK4
2539 : #include "pm_distMultiNorm@routines.inc.F90"
2540 0 : end procedure
2541 : #endif
2542 :
2543 : #if RK3_ENABLED
2544 0 : module procedure setMNR_RNGD_DM_AC_UXD_D1_RK3
2545 : use pm_kind, only: RKC => RK3
2546 : #include "pm_distMultiNorm@routines.inc.F90"
2547 0 : end procedure
2548 : #endif
2549 :
2550 : #if RK2_ENABLED
2551 0 : module procedure setMNR_RNGD_DM_AC_UXD_D1_RK2
2552 : use pm_kind, only: RKC => RK2
2553 : #include "pm_distMultiNorm@routines.inc.F90"
2554 0 : end procedure
2555 : #endif
2556 :
2557 : #if RK1_ENABLED
2558 20001 : module procedure setMNR_RNGD_DM_AC_UXD_D1_RK1
2559 : use pm_kind, only: RKC => RK1
2560 : #include "pm_distMultiNorm@routines.inc.F90"
2561 20001 : end procedure
2562 : #endif
2563 :
2564 : #undef RK_ENABLED
2565 :
2566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2567 :
2568 : #undef UXD_ENABLED
2569 :
2570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2571 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2572 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2573 :
2574 : #define XLD_ENABLED 1
2575 :
2576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2577 :
2578 : #define RK_ENABLED 1
2579 :
2580 : #if RK5_ENABLED
2581 : module procedure setMNR_RNGD_DM_AC_XLD_D1_RK5
2582 : use pm_kind, only: RKC => RK5
2583 : #include "pm_distMultiNorm@routines.inc.F90"
2584 : end procedure
2585 : #endif
2586 :
2587 : #if RK4_ENABLED
2588 0 : module procedure setMNR_RNGD_DM_AC_XLD_D1_RK4
2589 : use pm_kind, only: RKC => RK4
2590 : #include "pm_distMultiNorm@routines.inc.F90"
2591 0 : end procedure
2592 : #endif
2593 :
2594 : #if RK3_ENABLED
2595 0 : module procedure setMNR_RNGD_DM_AC_XLD_D1_RK3
2596 : use pm_kind, only: RKC => RK3
2597 : #include "pm_distMultiNorm@routines.inc.F90"
2598 0 : end procedure
2599 : #endif
2600 :
2601 : #if RK2_ENABLED
2602 0 : module procedure setMNR_RNGD_DM_AC_XLD_D1_RK2
2603 : use pm_kind, only: RKC => RK2
2604 : #include "pm_distMultiNorm@routines.inc.F90"
2605 0 : end procedure
2606 : #endif
2607 :
2608 : #if RK1_ENABLED
2609 0 : module procedure setMNR_RNGD_DM_AC_XLD_D1_RK1
2610 : use pm_kind, only: RKC => RK1
2611 : #include "pm_distMultiNorm@routines.inc.F90"
2612 0 : end procedure
2613 : #endif
2614 :
2615 : #undef RK_ENABLED
2616 :
2617 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2618 :
2619 : #undef XLD_ENABLED
2620 :
2621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2624 :
2625 : #undef AC_ENABLED
2626 :
2627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2628 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2630 :
2631 : #undef DM_ENABLED
2632 :
2633 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2634 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2635 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2636 :
2637 : #define AM_ENABLED 1
2638 :
2639 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2640 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2641 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2642 :
2643 : #define DC_ENABLED 1
2644 :
2645 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2646 :
2647 : #define RK_ENABLED 1
2648 :
2649 : #if RK5_ENABLED
2650 : module procedure setMNR_RNGD_AM_DC_XXX_D1_RK5
2651 : use pm_kind, only: RKC => RK5
2652 : #include "pm_distMultiNorm@routines.inc.F90"
2653 : end procedure
2654 : #endif
2655 :
2656 : #if RK4_ENABLED
2657 0 : module procedure setMNR_RNGD_AM_DC_XXX_D1_RK4
2658 : use pm_kind, only: RKC => RK4
2659 : #include "pm_distMultiNorm@routines.inc.F90"
2660 0 : end procedure
2661 : #endif
2662 :
2663 : #if RK3_ENABLED
2664 0 : module procedure setMNR_RNGD_AM_DC_XXX_D1_RK3
2665 : use pm_kind, only: RKC => RK3
2666 : #include "pm_distMultiNorm@routines.inc.F90"
2667 0 : end procedure
2668 : #endif
2669 :
2670 : #if RK2_ENABLED
2671 0 : module procedure setMNR_RNGD_AM_DC_XXX_D1_RK2
2672 : use pm_kind, only: RKC => RK2
2673 : #include "pm_distMultiNorm@routines.inc.F90"
2674 0 : end procedure
2675 : #endif
2676 :
2677 : #if RK1_ENABLED
2678 10001 : module procedure setMNR_RNGD_AM_DC_XXX_D1_RK1
2679 : use pm_kind, only: RKC => RK1
2680 : #include "pm_distMultiNorm@routines.inc.F90"
2681 10001 : end procedure
2682 : #endif
2683 :
2684 : #undef RK_ENABLED
2685 :
2686 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2687 :
2688 : #undef DC_ENABLED
2689 :
2690 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2691 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2692 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2693 :
2694 : #define AC_ENABLED 1
2695 :
2696 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2697 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2698 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2699 :
2700 : #define UXD_ENABLED 1
2701 :
2702 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2703 :
2704 : #define RK_ENABLED 1
2705 :
2706 : #if RK5_ENABLED
2707 : module procedure setMNR_RNGD_AM_AC_UXD_D1_RK5
2708 : use pm_kind, only: RKC => RK5
2709 : #include "pm_distMultiNorm@routines.inc.F90"
2710 : end procedure
2711 : #endif
2712 :
2713 : #if RK4_ENABLED
2714 0 : module procedure setMNR_RNGD_AM_AC_UXD_D1_RK4
2715 : use pm_kind, only: RKC => RK4
2716 : #include "pm_distMultiNorm@routines.inc.F90"
2717 0 : end procedure
2718 : #endif
2719 :
2720 : #if RK3_ENABLED
2721 0 : module procedure setMNR_RNGD_AM_AC_UXD_D1_RK3
2722 : use pm_kind, only: RKC => RK3
2723 : #include "pm_distMultiNorm@routines.inc.F90"
2724 0 : end procedure
2725 : #endif
2726 :
2727 : #if RK2_ENABLED
2728 0 : module procedure setMNR_RNGD_AM_AC_UXD_D1_RK2
2729 : use pm_kind, only: RKC => RK2
2730 : #include "pm_distMultiNorm@routines.inc.F90"
2731 0 : end procedure
2732 : #endif
2733 :
2734 : #if RK1_ENABLED
2735 1 : module procedure setMNR_RNGD_AM_AC_UXD_D1_RK1
2736 : use pm_kind, only: RKC => RK1
2737 : #include "pm_distMultiNorm@routines.inc.F90"
2738 1 : end procedure
2739 : #endif
2740 :
2741 : #undef RK_ENABLED
2742 :
2743 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2744 :
2745 : #undef UXD_ENABLED
2746 :
2747 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2749 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2750 :
2751 : #define XLD_ENABLED 1
2752 :
2753 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2754 :
2755 : #define RK_ENABLED 1
2756 :
2757 : #if RK5_ENABLED
2758 : module procedure setMNR_RNGD_AM_AC_XLD_D1_RK5
2759 : use pm_kind, only: RKC => RK5
2760 : #include "pm_distMultiNorm@routines.inc.F90"
2761 : end procedure
2762 : #endif
2763 :
2764 : #if RK4_ENABLED
2765 0 : module procedure setMNR_RNGD_AM_AC_XLD_D1_RK4
2766 : use pm_kind, only: RKC => RK4
2767 : #include "pm_distMultiNorm@routines.inc.F90"
2768 0 : end procedure
2769 : #endif
2770 :
2771 : #if RK3_ENABLED
2772 0 : module procedure setMNR_RNGD_AM_AC_XLD_D1_RK3
2773 : use pm_kind, only: RKC => RK3
2774 : #include "pm_distMultiNorm@routines.inc.F90"
2775 0 : end procedure
2776 : #endif
2777 :
2778 : #if RK2_ENABLED
2779 0 : module procedure setMNR_RNGD_AM_AC_XLD_D1_RK2
2780 : use pm_kind, only: RKC => RK2
2781 : #include "pm_distMultiNorm@routines.inc.F90"
2782 0 : end procedure
2783 : #endif
2784 :
2785 : #if RK1_ENABLED
2786 0 : module procedure setMNR_RNGD_AM_AC_XLD_D1_RK1
2787 : use pm_kind, only: RKC => RK1
2788 : #include "pm_distMultiNorm@routines.inc.F90"
2789 0 : end procedure
2790 : #endif
2791 :
2792 : #undef RK_ENABLED
2793 :
2794 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2795 :
2796 : #undef XLD_ENABLED
2797 :
2798 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2799 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2800 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2801 :
2802 : #undef AC_ENABLED
2803 :
2804 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2805 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2806 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2807 :
2808 : #undef AM_ENABLED
2809 :
2810 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2811 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2812 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2813 :
2814 : #undef RNGD_ENABLED
2815 :
2816 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2817 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2818 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2819 :
2820 : #define RNGF_ENABLED 1
2821 :
2822 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2823 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2824 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2825 :
2826 : #define DM_ENABLED 1
2827 :
2828 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2829 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2830 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2831 :
2832 : #define DC_ENABLED 1
2833 :
2834 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2835 :
2836 : #define RK_ENABLED 1
2837 :
2838 : #if RK5_ENABLED
2839 : module procedure setMNR_RNGF_DM_DC_XXX_D1_RK5
2840 : use pm_kind, only: RKC => RK5
2841 : #include "pm_distMultiNorm@routines.inc.F90"
2842 : end procedure
2843 : #endif
2844 :
2845 : #if RK4_ENABLED
2846 0 : module procedure setMNR_RNGF_DM_DC_XXX_D1_RK4
2847 : use pm_kind, only: RKC => RK4
2848 : #include "pm_distMultiNorm@routines.inc.F90"
2849 0 : end procedure
2850 : #endif
2851 :
2852 : #if RK3_ENABLED
2853 0 : module procedure setMNR_RNGF_DM_DC_XXX_D1_RK3
2854 : use pm_kind, only: RKC => RK3
2855 : #include "pm_distMultiNorm@routines.inc.F90"
2856 0 : end procedure
2857 : #endif
2858 :
2859 : #if RK2_ENABLED
2860 0 : module procedure setMNR_RNGF_DM_DC_XXX_D1_RK2
2861 : use pm_kind, only: RKC => RK2
2862 : #include "pm_distMultiNorm@routines.inc.F90"
2863 0 : end procedure
2864 : #endif
2865 :
2866 : #if RK1_ENABLED
2867 0 : module procedure setMNR_RNGF_DM_DC_XXX_D1_RK1
2868 : use pm_kind, only: RKC => RK1
2869 : #include "pm_distMultiNorm@routines.inc.F90"
2870 0 : end procedure
2871 : #endif
2872 :
2873 : #undef RK_ENABLED
2874 :
2875 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2876 :
2877 : #undef DC_ENABLED
2878 :
2879 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2880 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2881 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2882 :
2883 : #define AC_ENABLED 1
2884 :
2885 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2887 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2888 :
2889 : #define UXD_ENABLED 1
2890 :
2891 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2892 :
2893 : #define RK_ENABLED 1
2894 :
2895 : #if RK5_ENABLED
2896 : module procedure setMNR_RNGF_DM_AC_UXD_D1_RK5
2897 : use pm_kind, only: RKC => RK5
2898 : #include "pm_distMultiNorm@routines.inc.F90"
2899 : end procedure
2900 : #endif
2901 :
2902 : #if RK4_ENABLED
2903 0 : module procedure setMNR_RNGF_DM_AC_UXD_D1_RK4
2904 : use pm_kind, only: RKC => RK4
2905 : #include "pm_distMultiNorm@routines.inc.F90"
2906 0 : end procedure
2907 : #endif
2908 :
2909 : #if RK3_ENABLED
2910 0 : module procedure setMNR_RNGF_DM_AC_UXD_D1_RK3
2911 : use pm_kind, only: RKC => RK3
2912 : #include "pm_distMultiNorm@routines.inc.F90"
2913 0 : end procedure
2914 : #endif
2915 :
2916 : #if RK2_ENABLED
2917 0 : module procedure setMNR_RNGF_DM_AC_UXD_D1_RK2
2918 : use pm_kind, only: RKC => RK2
2919 : #include "pm_distMultiNorm@routines.inc.F90"
2920 0 : end procedure
2921 : #endif
2922 :
2923 : #if RK1_ENABLED
2924 0 : module procedure setMNR_RNGF_DM_AC_UXD_D1_RK1
2925 : use pm_kind, only: RKC => RK1
2926 : #include "pm_distMultiNorm@routines.inc.F90"
2927 0 : end procedure
2928 : #endif
2929 :
2930 : #undef RK_ENABLED
2931 :
2932 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2933 :
2934 : #undef UXD_ENABLED
2935 :
2936 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2937 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2938 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2939 :
2940 : #define XLD_ENABLED 1
2941 :
2942 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2943 :
2944 : #define RK_ENABLED 1
2945 :
2946 : #if RK5_ENABLED
2947 : module procedure setMNR_RNGF_DM_AC_XLD_D1_RK5
2948 : use pm_kind, only: RKC => RK5
2949 : #include "pm_distMultiNorm@routines.inc.F90"
2950 : end procedure
2951 : #endif
2952 :
2953 : #if RK4_ENABLED
2954 0 : module procedure setMNR_RNGF_DM_AC_XLD_D1_RK4
2955 : use pm_kind, only: RKC => RK4
2956 : #include "pm_distMultiNorm@routines.inc.F90"
2957 0 : end procedure
2958 : #endif
2959 :
2960 : #if RK3_ENABLED
2961 0 : module procedure setMNR_RNGF_DM_AC_XLD_D1_RK3
2962 : use pm_kind, only: RKC => RK3
2963 : #include "pm_distMultiNorm@routines.inc.F90"
2964 0 : end procedure
2965 : #endif
2966 :
2967 : #if RK2_ENABLED
2968 0 : module procedure setMNR_RNGF_DM_AC_XLD_D1_RK2
2969 : use pm_kind, only: RKC => RK2
2970 : #include "pm_distMultiNorm@routines.inc.F90"
2971 0 : end procedure
2972 : #endif
2973 :
2974 : #if RK1_ENABLED
2975 0 : module procedure setMNR_RNGF_DM_AC_XLD_D1_RK1
2976 : use pm_kind, only: RKC => RK1
2977 : #include "pm_distMultiNorm@routines.inc.F90"
2978 0 : end procedure
2979 : #endif
2980 :
2981 : #undef RK_ENABLED
2982 :
2983 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2984 :
2985 : #undef XLD_ENABLED
2986 :
2987 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2988 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2989 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2990 :
2991 : #undef AC_ENABLED
2992 :
2993 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2994 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2995 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2996 :
2997 : #undef DM_ENABLED
2998 :
2999 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3000 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3002 :
3003 : #define AM_ENABLED 1
3004 :
3005 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3007 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3008 :
3009 : #define DC_ENABLED 1
3010 :
3011 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3012 :
3013 : #define RK_ENABLED 1
3014 :
3015 : #if RK5_ENABLED
3016 : module procedure setMNR_RNGF_AM_DC_XXX_D1_RK5
3017 : use pm_kind, only: RKC => RK5
3018 : #include "pm_distMultiNorm@routines.inc.F90"
3019 : end procedure
3020 : #endif
3021 :
3022 : #if RK4_ENABLED
3023 0 : module procedure setMNR_RNGF_AM_DC_XXX_D1_RK4
3024 : use pm_kind, only: RKC => RK4
3025 : #include "pm_distMultiNorm@routines.inc.F90"
3026 0 : end procedure
3027 : #endif
3028 :
3029 : #if RK3_ENABLED
3030 0 : module procedure setMNR_RNGF_AM_DC_XXX_D1_RK3
3031 : use pm_kind, only: RKC => RK3
3032 : #include "pm_distMultiNorm@routines.inc.F90"
3033 0 : end procedure
3034 : #endif
3035 :
3036 : #if RK2_ENABLED
3037 0 : module procedure setMNR_RNGF_AM_DC_XXX_D1_RK2
3038 : use pm_kind, only: RKC => RK2
3039 : #include "pm_distMultiNorm@routines.inc.F90"
3040 0 : end procedure
3041 : #endif
3042 :
3043 : #if RK1_ENABLED
3044 0 : module procedure setMNR_RNGF_AM_DC_XXX_D1_RK1
3045 : use pm_kind, only: RKC => RK1
3046 : #include "pm_distMultiNorm@routines.inc.F90"
3047 0 : end procedure
3048 : #endif
3049 :
3050 : #undef RK_ENABLED
3051 :
3052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3053 :
3054 : #undef DC_ENABLED
3055 :
3056 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3058 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3059 :
3060 : #define AC_ENABLED 1
3061 :
3062 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3063 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3064 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3065 :
3066 : #define UXD_ENABLED 1
3067 :
3068 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3069 :
3070 : #define RK_ENABLED 1
3071 :
3072 : #if RK5_ENABLED
3073 : module procedure setMNR_RNGF_AM_AC_UXD_D1_RK5
3074 : use pm_kind, only: RKC => RK5
3075 : #include "pm_distMultiNorm@routines.inc.F90"
3076 : end procedure
3077 : #endif
3078 :
3079 : #if RK4_ENABLED
3080 0 : module procedure setMNR_RNGF_AM_AC_UXD_D1_RK4
3081 : use pm_kind, only: RKC => RK4
3082 : #include "pm_distMultiNorm@routines.inc.F90"
3083 0 : end procedure
3084 : #endif
3085 :
3086 : #if RK3_ENABLED
3087 0 : module procedure setMNR_RNGF_AM_AC_UXD_D1_RK3
3088 : use pm_kind, only: RKC => RK3
3089 : #include "pm_distMultiNorm@routines.inc.F90"
3090 0 : end procedure
3091 : #endif
3092 :
3093 : #if RK2_ENABLED
3094 0 : module procedure setMNR_RNGF_AM_AC_UXD_D1_RK2
3095 : use pm_kind, only: RKC => RK2
3096 : #include "pm_distMultiNorm@routines.inc.F90"
3097 0 : end procedure
3098 : #endif
3099 :
3100 : #if RK1_ENABLED
3101 0 : module procedure setMNR_RNGF_AM_AC_UXD_D1_RK1
3102 : use pm_kind, only: RKC => RK1
3103 : #include "pm_distMultiNorm@routines.inc.F90"
3104 0 : end procedure
3105 : #endif
3106 :
3107 : #undef RK_ENABLED
3108 :
3109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3110 :
3111 : #undef UXD_ENABLED
3112 :
3113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3116 :
3117 : #define XLD_ENABLED 1
3118 :
3119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3120 :
3121 : #define RK_ENABLED 1
3122 :
3123 : #if RK5_ENABLED
3124 : module procedure setMNR_RNGF_AM_AC_XLD_D1_RK5
3125 : use pm_kind, only: RKC => RK5
3126 : #include "pm_distMultiNorm@routines.inc.F90"
3127 : end procedure
3128 : #endif
3129 :
3130 : #if RK4_ENABLED
3131 0 : module procedure setMNR_RNGF_AM_AC_XLD_D1_RK4
3132 : use pm_kind, only: RKC => RK4
3133 : #include "pm_distMultiNorm@routines.inc.F90"
3134 0 : end procedure
3135 : #endif
3136 :
3137 : #if RK3_ENABLED
3138 0 : module procedure setMNR_RNGF_AM_AC_XLD_D1_RK3
3139 : use pm_kind, only: RKC => RK3
3140 : #include "pm_distMultiNorm@routines.inc.F90"
3141 0 : end procedure
3142 : #endif
3143 :
3144 : #if RK2_ENABLED
3145 0 : module procedure setMNR_RNGF_AM_AC_XLD_D1_RK2
3146 : use pm_kind, only: RKC => RK2
3147 : #include "pm_distMultiNorm@routines.inc.F90"
3148 0 : end procedure
3149 : #endif
3150 :
3151 : #if RK1_ENABLED
3152 0 : module procedure setMNR_RNGF_AM_AC_XLD_D1_RK1
3153 : use pm_kind, only: RKC => RK1
3154 : #include "pm_distMultiNorm@routines.inc.F90"
3155 0 : end procedure
3156 : #endif
3157 :
3158 : #undef RK_ENABLED
3159 :
3160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3161 :
3162 : #undef XLD_ENABLED
3163 :
3164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3167 :
3168 : #undef AC_ENABLED
3169 :
3170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3173 :
3174 : #undef AM_ENABLED
3175 :
3176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3179 :
3180 : #undef RNGF_ENABLED
3181 :
3182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3185 :
3186 : #define RNGX_ENABLED 1
3187 :
3188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3191 :
3192 : #define DM_ENABLED 1
3193 :
3194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3197 :
3198 : #define DC_ENABLED 1
3199 :
3200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3201 :
3202 : #define RK_ENABLED 1
3203 :
3204 : #if RK5_ENABLED
3205 : module procedure setMNR_RNGX_DM_DC_XXX_D1_RK5
3206 : use pm_kind, only: RKC => RK5
3207 : #include "pm_distMultiNorm@routines.inc.F90"
3208 : end procedure
3209 : #endif
3210 :
3211 : #if RK4_ENABLED
3212 0 : module procedure setMNR_RNGX_DM_DC_XXX_D1_RK4
3213 : use pm_kind, only: RKC => RK4
3214 : #include "pm_distMultiNorm@routines.inc.F90"
3215 0 : end procedure
3216 : #endif
3217 :
3218 : #if RK3_ENABLED
3219 0 : module procedure setMNR_RNGX_DM_DC_XXX_D1_RK3
3220 : use pm_kind, only: RKC => RK3
3221 : #include "pm_distMultiNorm@routines.inc.F90"
3222 0 : end procedure
3223 : #endif
3224 :
3225 : #if RK2_ENABLED
3226 0 : module procedure setMNR_RNGX_DM_DC_XXX_D1_RK2
3227 : use pm_kind, only: RKC => RK2
3228 : #include "pm_distMultiNorm@routines.inc.F90"
3229 0 : end procedure
3230 : #endif
3231 :
3232 : #if RK1_ENABLED
3233 0 : module procedure setMNR_RNGX_DM_DC_XXX_D1_RK1
3234 : use pm_kind, only: RKC => RK1
3235 : #include "pm_distMultiNorm@routines.inc.F90"
3236 0 : end procedure
3237 : #endif
3238 :
3239 : #undef RK_ENABLED
3240 :
3241 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3242 :
3243 : #undef DC_ENABLED
3244 :
3245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3248 :
3249 : #define AC_ENABLED 1
3250 :
3251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3254 :
3255 : #define UXD_ENABLED 1
3256 :
3257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3258 :
3259 : #define RK_ENABLED 1
3260 :
3261 : #if RK5_ENABLED
3262 : module procedure setMNR_RNGX_DM_AC_UXD_D1_RK5
3263 : use pm_kind, only: RKC => RK5
3264 : #include "pm_distMultiNorm@routines.inc.F90"
3265 : end procedure
3266 : #endif
3267 :
3268 : #if RK4_ENABLED
3269 0 : module procedure setMNR_RNGX_DM_AC_UXD_D1_RK4
3270 : use pm_kind, only: RKC => RK4
3271 : #include "pm_distMultiNorm@routines.inc.F90"
3272 0 : end procedure
3273 : #endif
3274 :
3275 : #if RK3_ENABLED
3276 0 : module procedure setMNR_RNGX_DM_AC_UXD_D1_RK3
3277 : use pm_kind, only: RKC => RK3
3278 : #include "pm_distMultiNorm@routines.inc.F90"
3279 0 : end procedure
3280 : #endif
3281 :
3282 : #if RK2_ENABLED
3283 0 : module procedure setMNR_RNGX_DM_AC_UXD_D1_RK2
3284 : use pm_kind, only: RKC => RK2
3285 : #include "pm_distMultiNorm@routines.inc.F90"
3286 0 : end procedure
3287 : #endif
3288 :
3289 : #if RK1_ENABLED
3290 0 : module procedure setMNR_RNGX_DM_AC_UXD_D1_RK1
3291 : use pm_kind, only: RKC => RK1
3292 : #include "pm_distMultiNorm@routines.inc.F90"
3293 0 : end procedure
3294 : #endif
3295 :
3296 : #undef RK_ENABLED
3297 :
3298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3299 :
3300 : #undef UXD_ENABLED
3301 :
3302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3305 :
3306 : #define XLD_ENABLED 1
3307 :
3308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3309 :
3310 : #define RK_ENABLED 1
3311 :
3312 : #if RK5_ENABLED
3313 : module procedure setMNR_RNGX_DM_AC_XLD_D1_RK5
3314 : use pm_kind, only: RKC => RK5
3315 : #include "pm_distMultiNorm@routines.inc.F90"
3316 : end procedure
3317 : #endif
3318 :
3319 : #if RK4_ENABLED
3320 0 : module procedure setMNR_RNGX_DM_AC_XLD_D1_RK4
3321 : use pm_kind, only: RKC => RK4
3322 : #include "pm_distMultiNorm@routines.inc.F90"
3323 0 : end procedure
3324 : #endif
3325 :
3326 : #if RK3_ENABLED
3327 0 : module procedure setMNR_RNGX_DM_AC_XLD_D1_RK3
3328 : use pm_kind, only: RKC => RK3
3329 : #include "pm_distMultiNorm@routines.inc.F90"
3330 0 : end procedure
3331 : #endif
3332 :
3333 : #if RK2_ENABLED
3334 0 : module procedure setMNR_RNGX_DM_AC_XLD_D1_RK2
3335 : use pm_kind, only: RKC => RK2
3336 : #include "pm_distMultiNorm@routines.inc.F90"
3337 0 : end procedure
3338 : #endif
3339 :
3340 : #if RK1_ENABLED
3341 0 : module procedure setMNR_RNGX_DM_AC_XLD_D1_RK1
3342 : use pm_kind, only: RKC => RK1
3343 : #include "pm_distMultiNorm@routines.inc.F90"
3344 0 : end procedure
3345 : #endif
3346 :
3347 : #undef RK_ENABLED
3348 :
3349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3350 :
3351 : #undef XLD_ENABLED
3352 :
3353 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3354 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3356 :
3357 : #undef AC_ENABLED
3358 :
3359 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3362 :
3363 : #undef DM_ENABLED
3364 :
3365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3367 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3368 :
3369 : #define AM_ENABLED 1
3370 :
3371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3372 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3374 :
3375 : #define DC_ENABLED 1
3376 :
3377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3378 :
3379 : #define RK_ENABLED 1
3380 :
3381 : #if RK5_ENABLED
3382 : module procedure setMNR_RNGX_AM_DC_XXX_D1_RK5
3383 : use pm_kind, only: RKC => RK5
3384 : #include "pm_distMultiNorm@routines.inc.F90"
3385 : end procedure
3386 : #endif
3387 :
3388 : #if RK4_ENABLED
3389 0 : module procedure setMNR_RNGX_AM_DC_XXX_D1_RK4
3390 : use pm_kind, only: RKC => RK4
3391 : #include "pm_distMultiNorm@routines.inc.F90"
3392 0 : end procedure
3393 : #endif
3394 :
3395 : #if RK3_ENABLED
3396 0 : module procedure setMNR_RNGX_AM_DC_XXX_D1_RK3
3397 : use pm_kind, only: RKC => RK3
3398 : #include "pm_distMultiNorm@routines.inc.F90"
3399 0 : end procedure
3400 : #endif
3401 :
3402 : #if RK2_ENABLED
3403 0 : module procedure setMNR_RNGX_AM_DC_XXX_D1_RK2
3404 : use pm_kind, only: RKC => RK2
3405 : #include "pm_distMultiNorm@routines.inc.F90"
3406 0 : end procedure
3407 : #endif
3408 :
3409 : #if RK1_ENABLED
3410 0 : module procedure setMNR_RNGX_AM_DC_XXX_D1_RK1
3411 : use pm_kind, only: RKC => RK1
3412 : #include "pm_distMultiNorm@routines.inc.F90"
3413 0 : end procedure
3414 : #endif
3415 :
3416 : #undef RK_ENABLED
3417 :
3418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3419 :
3420 : #undef DC_ENABLED
3421 :
3422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3423 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3424 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3425 :
3426 : #define AC_ENABLED 1
3427 :
3428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3429 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3431 :
3432 : #define UXD_ENABLED 1
3433 :
3434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3435 :
3436 : #define RK_ENABLED 1
3437 :
3438 : #if RK5_ENABLED
3439 : module procedure setMNR_RNGX_AM_AC_UXD_D1_RK5
3440 : use pm_kind, only: RKC => RK5
3441 : #include "pm_distMultiNorm@routines.inc.F90"
3442 : end procedure
3443 : #endif
3444 :
3445 : #if RK4_ENABLED
3446 0 : module procedure setMNR_RNGX_AM_AC_UXD_D1_RK4
3447 : use pm_kind, only: RKC => RK4
3448 : #include "pm_distMultiNorm@routines.inc.F90"
3449 0 : end procedure
3450 : #endif
3451 :
3452 : #if RK3_ENABLED
3453 0 : module procedure setMNR_RNGX_AM_AC_UXD_D1_RK3
3454 : use pm_kind, only: RKC => RK3
3455 : #include "pm_distMultiNorm@routines.inc.F90"
3456 0 : end procedure
3457 : #endif
3458 :
3459 : #if RK2_ENABLED
3460 989886 : module procedure setMNR_RNGX_AM_AC_UXD_D1_RK2
3461 : use pm_kind, only: RKC => RK2
3462 : #include "pm_distMultiNorm@routines.inc.F90"
3463 989886 : end procedure
3464 : #endif
3465 :
3466 : #if RK1_ENABLED
3467 102094 : module procedure setMNR_RNGX_AM_AC_UXD_D1_RK1
3468 : use pm_kind, only: RKC => RK1
3469 : #include "pm_distMultiNorm@routines.inc.F90"
3470 102094 : end procedure
3471 : #endif
3472 :
3473 : #undef RK_ENABLED
3474 :
3475 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3476 :
3477 : #undef UXD_ENABLED
3478 :
3479 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3480 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3481 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3482 :
3483 : #define XLD_ENABLED 1
3484 :
3485 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3486 :
3487 : #define RK_ENABLED 1
3488 :
3489 : #if RK5_ENABLED
3490 : module procedure setMNR_RNGX_AM_AC_XLD_D1_RK5
3491 : use pm_kind, only: RKC => RK5
3492 : #include "pm_distMultiNorm@routines.inc.F90"
3493 : end procedure
3494 : #endif
3495 :
3496 : #if RK4_ENABLED
3497 0 : module procedure setMNR_RNGX_AM_AC_XLD_D1_RK4
3498 : use pm_kind, only: RKC => RK4
3499 : #include "pm_distMultiNorm@routines.inc.F90"
3500 0 : end procedure
3501 : #endif
3502 :
3503 : #if RK3_ENABLED
3504 0 : module procedure setMNR_RNGX_AM_AC_XLD_D1_RK3
3505 : use pm_kind, only: RKC => RK3
3506 : #include "pm_distMultiNorm@routines.inc.F90"
3507 0 : end procedure
3508 : #endif
3509 :
3510 : #if RK2_ENABLED
3511 0 : module procedure setMNR_RNGX_AM_AC_XLD_D1_RK2
3512 : use pm_kind, only: RKC => RK2
3513 : #include "pm_distMultiNorm@routines.inc.F90"
3514 0 : end procedure
3515 : #endif
3516 :
3517 : #if RK1_ENABLED
3518 0 : module procedure setMNR_RNGX_AM_AC_XLD_D1_RK1
3519 : use pm_kind, only: RKC => RK1
3520 : #include "pm_distMultiNorm@routines.inc.F90"
3521 0 : end procedure
3522 : #endif
3523 :
3524 : #undef RK_ENABLED
3525 :
3526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3527 :
3528 : #undef XLD_ENABLED
3529 :
3530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3533 :
3534 : #undef AC_ENABLED
3535 :
3536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3537 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3539 :
3540 : #undef AM_ENABLED
3541 :
3542 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3543 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3545 :
3546 : #undef RNGX_ENABLED
3547 :
3548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3551 :
3552 : #undef D1_ENABLED
3553 :
3554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3557 :
3558 : #define D2_ENABLED 1
3559 :
3560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3561 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3563 :
3564 : #define RNGD_ENABLED 1
3565 :
3566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3567 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3568 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3569 :
3570 : #define DM_ENABLED 1
3571 :
3572 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3573 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3575 :
3576 : #define DC_ENABLED 1
3577 :
3578 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3579 :
3580 : #define RK_ENABLED 1
3581 :
3582 : #if RK5_ENABLED
3583 : module procedure setMNR_RNGD_DM_DC_XXX_D2_RK5
3584 : use pm_kind, only: RKC => RK5
3585 : #include "pm_distMultiNorm@routines.inc.F90"
3586 : end procedure
3587 : #endif
3588 :
3589 : #if RK4_ENABLED
3590 0 : module procedure setMNR_RNGD_DM_DC_XXX_D2_RK4
3591 : use pm_kind, only: RKC => RK4
3592 : #include "pm_distMultiNorm@routines.inc.F90"
3593 0 : end procedure
3594 : #endif
3595 :
3596 : #if RK3_ENABLED
3597 0 : module procedure setMNR_RNGD_DM_DC_XXX_D2_RK3
3598 : use pm_kind, only: RKC => RK3
3599 : #include "pm_distMultiNorm@routines.inc.F90"
3600 0 : end procedure
3601 : #endif
3602 :
3603 : #if RK2_ENABLED
3604 0 : module procedure setMNR_RNGD_DM_DC_XXX_D2_RK2
3605 : use pm_kind, only: RKC => RK2
3606 : #include "pm_distMultiNorm@routines.inc.F90"
3607 0 : end procedure
3608 : #endif
3609 :
3610 : #if RK1_ENABLED
3611 1 : module procedure setMNR_RNGD_DM_DC_XXX_D2_RK1
3612 : use pm_kind, only: RKC => RK1
3613 : #include "pm_distMultiNorm@routines.inc.F90"
3614 1 : end procedure
3615 : #endif
3616 :
3617 : #undef RK_ENABLED
3618 :
3619 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3620 :
3621 : #undef DC_ENABLED
3622 :
3623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3624 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3625 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3626 :
3627 : #define AC_ENABLED 1
3628 :
3629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3630 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3631 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3632 :
3633 : #define UXD_ENABLED 1
3634 :
3635 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3636 :
3637 : #define RK_ENABLED 1
3638 :
3639 : #if RK5_ENABLED
3640 : module procedure setMNR_RNGD_DM_AC_UXD_D2_RK5
3641 : use pm_kind, only: RKC => RK5
3642 : #include "pm_distMultiNorm@routines.inc.F90"
3643 : end procedure
3644 : #endif
3645 :
3646 : #if RK4_ENABLED
3647 0 : module procedure setMNR_RNGD_DM_AC_UXD_D2_RK4
3648 : use pm_kind, only: RKC => RK4
3649 : #include "pm_distMultiNorm@routines.inc.F90"
3650 0 : end procedure
3651 : #endif
3652 :
3653 : #if RK3_ENABLED
3654 0 : module procedure setMNR_RNGD_DM_AC_UXD_D2_RK3
3655 : use pm_kind, only: RKC => RK3
3656 : #include "pm_distMultiNorm@routines.inc.F90"
3657 0 : end procedure
3658 : #endif
3659 :
3660 : #if RK2_ENABLED
3661 0 : module procedure setMNR_RNGD_DM_AC_UXD_D2_RK2
3662 : use pm_kind, only: RKC => RK2
3663 : #include "pm_distMultiNorm@routines.inc.F90"
3664 0 : end procedure
3665 : #endif
3666 :
3667 : #if RK1_ENABLED
3668 4 : module procedure setMNR_RNGD_DM_AC_UXD_D2_RK1
3669 : use pm_kind, only: RKC => RK1
3670 : #include "pm_distMultiNorm@routines.inc.F90"
3671 4 : end procedure
3672 : #endif
3673 :
3674 : #undef RK_ENABLED
3675 :
3676 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3677 :
3678 : #undef UXD_ENABLED
3679 :
3680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3681 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3682 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3683 :
3684 : #define XLD_ENABLED 1
3685 :
3686 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3687 :
3688 : #define RK_ENABLED 1
3689 :
3690 : #if RK5_ENABLED
3691 : module procedure setMNR_RNGD_DM_AC_XLD_D2_RK5
3692 : use pm_kind, only: RKC => RK5
3693 : #include "pm_distMultiNorm@routines.inc.F90"
3694 : end procedure
3695 : #endif
3696 :
3697 : #if RK4_ENABLED
3698 0 : module procedure setMNR_RNGD_DM_AC_XLD_D2_RK4
3699 : use pm_kind, only: RKC => RK4
3700 : #include "pm_distMultiNorm@routines.inc.F90"
3701 0 : end procedure
3702 : #endif
3703 :
3704 : #if RK3_ENABLED
3705 0 : module procedure setMNR_RNGD_DM_AC_XLD_D2_RK3
3706 : use pm_kind, only: RKC => RK3
3707 : #include "pm_distMultiNorm@routines.inc.F90"
3708 0 : end procedure
3709 : #endif
3710 :
3711 : #if RK2_ENABLED
3712 0 : module procedure setMNR_RNGD_DM_AC_XLD_D2_RK2
3713 : use pm_kind, only: RKC => RK2
3714 : #include "pm_distMultiNorm@routines.inc.F90"
3715 0 : end procedure
3716 : #endif
3717 :
3718 : #if RK1_ENABLED
3719 0 : module procedure setMNR_RNGD_DM_AC_XLD_D2_RK1
3720 : use pm_kind, only: RKC => RK1
3721 : #include "pm_distMultiNorm@routines.inc.F90"
3722 0 : end procedure
3723 : #endif
3724 :
3725 : #undef RK_ENABLED
3726 :
3727 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3728 :
3729 : #undef XLD_ENABLED
3730 :
3731 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3732 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3733 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3734 :
3735 : #undef AC_ENABLED
3736 :
3737 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3738 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3739 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3740 :
3741 : #undef DM_ENABLED
3742 :
3743 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3744 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3745 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3746 :
3747 : #define AM_ENABLED 1
3748 :
3749 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3750 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3751 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3752 :
3753 : #define DC_ENABLED 1
3754 :
3755 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3756 :
3757 : #define RK_ENABLED 1
3758 :
3759 : #if RK5_ENABLED
3760 : module procedure setMNR_RNGD_AM_DC_XXX_D2_RK5
3761 : use pm_kind, only: RKC => RK5
3762 : #include "pm_distMultiNorm@routines.inc.F90"
3763 : end procedure
3764 : #endif
3765 :
3766 : #if RK4_ENABLED
3767 0 : module procedure setMNR_RNGD_AM_DC_XXX_D2_RK4
3768 : use pm_kind, only: RKC => RK4
3769 : #include "pm_distMultiNorm@routines.inc.F90"
3770 0 : end procedure
3771 : #endif
3772 :
3773 : #if RK3_ENABLED
3774 0 : module procedure setMNR_RNGD_AM_DC_XXX_D2_RK3
3775 : use pm_kind, only: RKC => RK3
3776 : #include "pm_distMultiNorm@routines.inc.F90"
3777 0 : end procedure
3778 : #endif
3779 :
3780 : #if RK2_ENABLED
3781 0 : module procedure setMNR_RNGD_AM_DC_XXX_D2_RK2
3782 : use pm_kind, only: RKC => RK2
3783 : #include "pm_distMultiNorm@routines.inc.F90"
3784 0 : end procedure
3785 : #endif
3786 :
3787 : #if RK1_ENABLED
3788 2 : module procedure setMNR_RNGD_AM_DC_XXX_D2_RK1
3789 : use pm_kind, only: RKC => RK1
3790 : #include "pm_distMultiNorm@routines.inc.F90"
3791 2 : end procedure
3792 : #endif
3793 :
3794 : #undef RK_ENABLED
3795 :
3796 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3797 :
3798 : #undef DC_ENABLED
3799 :
3800 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3802 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3803 :
3804 : #define AC_ENABLED 1
3805 :
3806 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3807 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3808 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3809 :
3810 : #define UXD_ENABLED 1
3811 :
3812 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3813 :
3814 : #define RK_ENABLED 1
3815 :
3816 : #if RK5_ENABLED
3817 : module procedure setMNR_RNGD_AM_AC_UXD_D2_RK5
3818 : use pm_kind, only: RKC => RK5
3819 : #include "pm_distMultiNorm@routines.inc.F90"
3820 : end procedure
3821 : #endif
3822 :
3823 : #if RK4_ENABLED
3824 0 : module procedure setMNR_RNGD_AM_AC_UXD_D2_RK4
3825 : use pm_kind, only: RKC => RK4
3826 : #include "pm_distMultiNorm@routines.inc.F90"
3827 0 : end procedure
3828 : #endif
3829 :
3830 : #if RK3_ENABLED
3831 0 : module procedure setMNR_RNGD_AM_AC_UXD_D2_RK3
3832 : use pm_kind, only: RKC => RK3
3833 : #include "pm_distMultiNorm@routines.inc.F90"
3834 0 : end procedure
3835 : #endif
3836 :
3837 : #if RK2_ENABLED
3838 0 : module procedure setMNR_RNGD_AM_AC_UXD_D2_RK2
3839 : use pm_kind, only: RKC => RK2
3840 : #include "pm_distMultiNorm@routines.inc.F90"
3841 0 : end procedure
3842 : #endif
3843 :
3844 : #if RK1_ENABLED
3845 0 : module procedure setMNR_RNGD_AM_AC_UXD_D2_RK1
3846 : use pm_kind, only: RKC => RK1
3847 : #include "pm_distMultiNorm@routines.inc.F90"
3848 0 : end procedure
3849 : #endif
3850 :
3851 : #undef RK_ENABLED
3852 :
3853 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3854 :
3855 : #undef UXD_ENABLED
3856 :
3857 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3858 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3859 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3860 :
3861 : #define XLD_ENABLED 1
3862 :
3863 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3864 :
3865 : #define RK_ENABLED 1
3866 :
3867 : #if RK5_ENABLED
3868 : module procedure setMNR_RNGD_AM_AC_XLD_D2_RK5
3869 : use pm_kind, only: RKC => RK5
3870 : #include "pm_distMultiNorm@routines.inc.F90"
3871 : end procedure
3872 : #endif
3873 :
3874 : #if RK4_ENABLED
3875 0 : module procedure setMNR_RNGD_AM_AC_XLD_D2_RK4
3876 : use pm_kind, only: RKC => RK4
3877 : #include "pm_distMultiNorm@routines.inc.F90"
3878 0 : end procedure
3879 : #endif
3880 :
3881 : #if RK3_ENABLED
3882 0 : module procedure setMNR_RNGD_AM_AC_XLD_D2_RK3
3883 : use pm_kind, only: RKC => RK3
3884 : #include "pm_distMultiNorm@routines.inc.F90"
3885 0 : end procedure
3886 : #endif
3887 :
3888 : #if RK2_ENABLED
3889 0 : module procedure setMNR_RNGD_AM_AC_XLD_D2_RK2
3890 : use pm_kind, only: RKC => RK2
3891 : #include "pm_distMultiNorm@routines.inc.F90"
3892 0 : end procedure
3893 : #endif
3894 :
3895 : #if RK1_ENABLED
3896 0 : module procedure setMNR_RNGD_AM_AC_XLD_D2_RK1
3897 : use pm_kind, only: RKC => RK1
3898 : #include "pm_distMultiNorm@routines.inc.F90"
3899 0 : end procedure
3900 : #endif
3901 :
3902 : #undef RK_ENABLED
3903 :
3904 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3905 :
3906 : #undef XLD_ENABLED
3907 :
3908 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3909 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3910 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3911 :
3912 : #undef AC_ENABLED
3913 :
3914 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3915 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3916 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3917 :
3918 : #undef AM_ENABLED
3919 :
3920 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3921 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3922 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3923 :
3924 : #undef RNGD_ENABLED
3925 :
3926 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3927 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3928 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3929 :
3930 : #define RNGF_ENABLED 1
3931 :
3932 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3933 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3934 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3935 :
3936 : #define DM_ENABLED 1
3937 :
3938 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3939 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3940 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3941 :
3942 : #define DC_ENABLED 1
3943 :
3944 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3945 :
3946 : #define RK_ENABLED 1
3947 :
3948 : #if RK5_ENABLED
3949 : module procedure setMNR_RNGF_DM_DC_XXX_D2_RK5
3950 : use pm_kind, only: RKC => RK5
3951 : #include "pm_distMultiNorm@routines.inc.F90"
3952 : end procedure
3953 : #endif
3954 :
3955 : #if RK4_ENABLED
3956 0 : module procedure setMNR_RNGF_DM_DC_XXX_D2_RK4
3957 : use pm_kind, only: RKC => RK4
3958 : #include "pm_distMultiNorm@routines.inc.F90"
3959 0 : end procedure
3960 : #endif
3961 :
3962 : #if RK3_ENABLED
3963 0 : module procedure setMNR_RNGF_DM_DC_XXX_D2_RK3
3964 : use pm_kind, only: RKC => RK3
3965 : #include "pm_distMultiNorm@routines.inc.F90"
3966 0 : end procedure
3967 : #endif
3968 :
3969 : #if RK2_ENABLED
3970 0 : module procedure setMNR_RNGF_DM_DC_XXX_D2_RK2
3971 : use pm_kind, only: RKC => RK2
3972 : #include "pm_distMultiNorm@routines.inc.F90"
3973 0 : end procedure
3974 : #endif
3975 :
3976 : #if RK1_ENABLED
3977 0 : module procedure setMNR_RNGF_DM_DC_XXX_D2_RK1
3978 : use pm_kind, only: RKC => RK1
3979 : #include "pm_distMultiNorm@routines.inc.F90"
3980 0 : end procedure
3981 : #endif
3982 :
3983 : #undef RK_ENABLED
3984 :
3985 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3986 :
3987 : #undef DC_ENABLED
3988 :
3989 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3990 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3991 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3992 :
3993 : #define AC_ENABLED 1
3994 :
3995 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3998 :
3999 : #define UXD_ENABLED 1
4000 :
4001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4002 :
4003 : #define RK_ENABLED 1
4004 :
4005 : #if RK5_ENABLED
4006 : module procedure setMNR_RNGF_DM_AC_UXD_D2_RK5
4007 : use pm_kind, only: RKC => RK5
4008 : #include "pm_distMultiNorm@routines.inc.F90"
4009 : end procedure
4010 : #endif
4011 :
4012 : #if RK4_ENABLED
4013 0 : module procedure setMNR_RNGF_DM_AC_UXD_D2_RK4
4014 : use pm_kind, only: RKC => RK4
4015 : #include "pm_distMultiNorm@routines.inc.F90"
4016 0 : end procedure
4017 : #endif
4018 :
4019 : #if RK3_ENABLED
4020 0 : module procedure setMNR_RNGF_DM_AC_UXD_D2_RK3
4021 : use pm_kind, only: RKC => RK3
4022 : #include "pm_distMultiNorm@routines.inc.F90"
4023 0 : end procedure
4024 : #endif
4025 :
4026 : #if RK2_ENABLED
4027 0 : module procedure setMNR_RNGF_DM_AC_UXD_D2_RK2
4028 : use pm_kind, only: RKC => RK2
4029 : #include "pm_distMultiNorm@routines.inc.F90"
4030 0 : end procedure
4031 : #endif
4032 :
4033 : #if RK1_ENABLED
4034 0 : module procedure setMNR_RNGF_DM_AC_UXD_D2_RK1
4035 : use pm_kind, only: RKC => RK1
4036 : #include "pm_distMultiNorm@routines.inc.F90"
4037 0 : end procedure
4038 : #endif
4039 :
4040 : #undef RK_ENABLED
4041 :
4042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4043 :
4044 : #undef UXD_ENABLED
4045 :
4046 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4048 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4049 :
4050 : #define XLD_ENABLED 1
4051 :
4052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4053 :
4054 : #define RK_ENABLED 1
4055 :
4056 : #if RK5_ENABLED
4057 : module procedure setMNR_RNGF_DM_AC_XLD_D2_RK5
4058 : use pm_kind, only: RKC => RK5
4059 : #include "pm_distMultiNorm@routines.inc.F90"
4060 : end procedure
4061 : #endif
4062 :
4063 : #if RK4_ENABLED
4064 0 : module procedure setMNR_RNGF_DM_AC_XLD_D2_RK4
4065 : use pm_kind, only: RKC => RK4
4066 : #include "pm_distMultiNorm@routines.inc.F90"
4067 0 : end procedure
4068 : #endif
4069 :
4070 : #if RK3_ENABLED
4071 0 : module procedure setMNR_RNGF_DM_AC_XLD_D2_RK3
4072 : use pm_kind, only: RKC => RK3
4073 : #include "pm_distMultiNorm@routines.inc.F90"
4074 0 : end procedure
4075 : #endif
4076 :
4077 : #if RK2_ENABLED
4078 0 : module procedure setMNR_RNGF_DM_AC_XLD_D2_RK2
4079 : use pm_kind, only: RKC => RK2
4080 : #include "pm_distMultiNorm@routines.inc.F90"
4081 0 : end procedure
4082 : #endif
4083 :
4084 : #if RK1_ENABLED
4085 0 : module procedure setMNR_RNGF_DM_AC_XLD_D2_RK1
4086 : use pm_kind, only: RKC => RK1
4087 : #include "pm_distMultiNorm@routines.inc.F90"
4088 0 : end procedure
4089 : #endif
4090 :
4091 : #undef RK_ENABLED
4092 :
4093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4094 :
4095 : #undef XLD_ENABLED
4096 :
4097 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4099 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4100 :
4101 : #undef AC_ENABLED
4102 :
4103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4106 :
4107 : #undef DM_ENABLED
4108 :
4109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4112 :
4113 : #define AM_ENABLED 1
4114 :
4115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4116 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4117 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4118 :
4119 : #define DC_ENABLED 1
4120 :
4121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4122 :
4123 : #define RK_ENABLED 1
4124 :
4125 : #if RK5_ENABLED
4126 : module procedure setMNR_RNGF_AM_DC_XXX_D2_RK5
4127 : use pm_kind, only: RKC => RK5
4128 : #include "pm_distMultiNorm@routines.inc.F90"
4129 : end procedure
4130 : #endif
4131 :
4132 : #if RK4_ENABLED
4133 0 : module procedure setMNR_RNGF_AM_DC_XXX_D2_RK4
4134 : use pm_kind, only: RKC => RK4
4135 : #include "pm_distMultiNorm@routines.inc.F90"
4136 0 : end procedure
4137 : #endif
4138 :
4139 : #if RK3_ENABLED
4140 0 : module procedure setMNR_RNGF_AM_DC_XXX_D2_RK3
4141 : use pm_kind, only: RKC => RK3
4142 : #include "pm_distMultiNorm@routines.inc.F90"
4143 0 : end procedure
4144 : #endif
4145 :
4146 : #if RK2_ENABLED
4147 0 : module procedure setMNR_RNGF_AM_DC_XXX_D2_RK2
4148 : use pm_kind, only: RKC => RK2
4149 : #include "pm_distMultiNorm@routines.inc.F90"
4150 0 : end procedure
4151 : #endif
4152 :
4153 : #if RK1_ENABLED
4154 0 : module procedure setMNR_RNGF_AM_DC_XXX_D2_RK1
4155 : use pm_kind, only: RKC => RK1
4156 : #include "pm_distMultiNorm@routines.inc.F90"
4157 0 : end procedure
4158 : #endif
4159 :
4160 : #undef RK_ENABLED
4161 :
4162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4163 :
4164 : #undef DC_ENABLED
4165 :
4166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4168 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4169 :
4170 : #define AC_ENABLED 1
4171 :
4172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4175 :
4176 : #define UXD_ENABLED 1
4177 :
4178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4179 :
4180 : #define RK_ENABLED 1
4181 :
4182 : #if RK5_ENABLED
4183 : module procedure setMNR_RNGF_AM_AC_UXD_D2_RK5
4184 : use pm_kind, only: RKC => RK5
4185 : #include "pm_distMultiNorm@routines.inc.F90"
4186 : end procedure
4187 : #endif
4188 :
4189 : #if RK4_ENABLED
4190 0 : module procedure setMNR_RNGF_AM_AC_UXD_D2_RK4
4191 : use pm_kind, only: RKC => RK4
4192 : #include "pm_distMultiNorm@routines.inc.F90"
4193 0 : end procedure
4194 : #endif
4195 :
4196 : #if RK3_ENABLED
4197 0 : module procedure setMNR_RNGF_AM_AC_UXD_D2_RK3
4198 : use pm_kind, only: RKC => RK3
4199 : #include "pm_distMultiNorm@routines.inc.F90"
4200 0 : end procedure
4201 : #endif
4202 :
4203 : #if RK2_ENABLED
4204 0 : module procedure setMNR_RNGF_AM_AC_UXD_D2_RK2
4205 : use pm_kind, only: RKC => RK2
4206 : #include "pm_distMultiNorm@routines.inc.F90"
4207 0 : end procedure
4208 : #endif
4209 :
4210 : #if RK1_ENABLED
4211 0 : module procedure setMNR_RNGF_AM_AC_UXD_D2_RK1
4212 : use pm_kind, only: RKC => RK1
4213 : #include "pm_distMultiNorm@routines.inc.F90"
4214 0 : end procedure
4215 : #endif
4216 :
4217 : #undef RK_ENABLED
4218 :
4219 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4220 :
4221 : #undef UXD_ENABLED
4222 :
4223 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4224 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4226 :
4227 : #define XLD_ENABLED 1
4228 :
4229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4230 :
4231 : #define RK_ENABLED 1
4232 :
4233 : #if RK5_ENABLED
4234 : module procedure setMNR_RNGF_AM_AC_XLD_D2_RK5
4235 : use pm_kind, only: RKC => RK5
4236 : #include "pm_distMultiNorm@routines.inc.F90"
4237 : end procedure
4238 : #endif
4239 :
4240 : #if RK4_ENABLED
4241 0 : module procedure setMNR_RNGF_AM_AC_XLD_D2_RK4
4242 : use pm_kind, only: RKC => RK4
4243 : #include "pm_distMultiNorm@routines.inc.F90"
4244 0 : end procedure
4245 : #endif
4246 :
4247 : #if RK3_ENABLED
4248 0 : module procedure setMNR_RNGF_AM_AC_XLD_D2_RK3
4249 : use pm_kind, only: RKC => RK3
4250 : #include "pm_distMultiNorm@routines.inc.F90"
4251 0 : end procedure
4252 : #endif
4253 :
4254 : #if RK2_ENABLED
4255 0 : module procedure setMNR_RNGF_AM_AC_XLD_D2_RK2
4256 : use pm_kind, only: RKC => RK2
4257 : #include "pm_distMultiNorm@routines.inc.F90"
4258 0 : end procedure
4259 : #endif
4260 :
4261 : #if RK1_ENABLED
4262 0 : module procedure setMNR_RNGF_AM_AC_XLD_D2_RK1
4263 : use pm_kind, only: RKC => RK1
4264 : #include "pm_distMultiNorm@routines.inc.F90"
4265 0 : end procedure
4266 : #endif
4267 :
4268 : #undef RK_ENABLED
4269 :
4270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4271 :
4272 : #undef XLD_ENABLED
4273 :
4274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4275 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4276 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4277 :
4278 : #undef AC_ENABLED
4279 :
4280 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4281 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4282 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4283 :
4284 : #undef AM_ENABLED
4285 :
4286 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4287 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4288 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4289 :
4290 : #undef RNGF_ENABLED
4291 :
4292 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4293 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4294 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4295 :
4296 : #define RNGX_ENABLED 1
4297 :
4298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4299 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4300 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4301 :
4302 : #define DM_ENABLED 1
4303 :
4304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4305 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4306 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4307 :
4308 : #define DC_ENABLED 1
4309 :
4310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4311 :
4312 : #define RK_ENABLED 1
4313 :
4314 : #if RK5_ENABLED
4315 : module procedure setMNR_RNGX_DM_DC_XXX_D2_RK5
4316 : use pm_kind, only: RKC => RK5
4317 : #include "pm_distMultiNorm@routines.inc.F90"
4318 : end procedure
4319 : #endif
4320 :
4321 : #if RK4_ENABLED
4322 0 : module procedure setMNR_RNGX_DM_DC_XXX_D2_RK4
4323 : use pm_kind, only: RKC => RK4
4324 : #include "pm_distMultiNorm@routines.inc.F90"
4325 0 : end procedure
4326 : #endif
4327 :
4328 : #if RK3_ENABLED
4329 0 : module procedure setMNR_RNGX_DM_DC_XXX_D2_RK3
4330 : use pm_kind, only: RKC => RK3
4331 : #include "pm_distMultiNorm@routines.inc.F90"
4332 0 : end procedure
4333 : #endif
4334 :
4335 : #if RK2_ENABLED
4336 0 : module procedure setMNR_RNGX_DM_DC_XXX_D2_RK2
4337 : use pm_kind, only: RKC => RK2
4338 : #include "pm_distMultiNorm@routines.inc.F90"
4339 0 : end procedure
4340 : #endif
4341 :
4342 : #if RK1_ENABLED
4343 0 : module procedure setMNR_RNGX_DM_DC_XXX_D2_RK1
4344 : use pm_kind, only: RKC => RK1
4345 : #include "pm_distMultiNorm@routines.inc.F90"
4346 0 : end procedure
4347 : #endif
4348 :
4349 : #undef RK_ENABLED
4350 :
4351 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4352 :
4353 : #undef DC_ENABLED
4354 :
4355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4358 :
4359 : #define AC_ENABLED 1
4360 :
4361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4364 :
4365 : #define UXD_ENABLED 1
4366 :
4367 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4368 :
4369 : #define RK_ENABLED 1
4370 :
4371 : #if RK5_ENABLED
4372 : module procedure setMNR_RNGX_DM_AC_UXD_D2_RK5
4373 : use pm_kind, only: RKC => RK5
4374 : #include "pm_distMultiNorm@routines.inc.F90"
4375 : end procedure
4376 : #endif
4377 :
4378 : #if RK4_ENABLED
4379 0 : module procedure setMNR_RNGX_DM_AC_UXD_D2_RK4
4380 : use pm_kind, only: RKC => RK4
4381 : #include "pm_distMultiNorm@routines.inc.F90"
4382 0 : end procedure
4383 : #endif
4384 :
4385 : #if RK3_ENABLED
4386 0 : module procedure setMNR_RNGX_DM_AC_UXD_D2_RK3
4387 : use pm_kind, only: RKC => RK3
4388 : #include "pm_distMultiNorm@routines.inc.F90"
4389 0 : end procedure
4390 : #endif
4391 :
4392 : #if RK2_ENABLED
4393 0 : module procedure setMNR_RNGX_DM_AC_UXD_D2_RK2
4394 : use pm_kind, only: RKC => RK2
4395 : #include "pm_distMultiNorm@routines.inc.F90"
4396 0 : end procedure
4397 : #endif
4398 :
4399 : #if RK1_ENABLED
4400 0 : module procedure setMNR_RNGX_DM_AC_UXD_D2_RK1
4401 : use pm_kind, only: RKC => RK1
4402 : #include "pm_distMultiNorm@routines.inc.F90"
4403 0 : end procedure
4404 : #endif
4405 :
4406 : #undef RK_ENABLED
4407 :
4408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4409 :
4410 : #undef UXD_ENABLED
4411 :
4412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4413 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4414 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4415 :
4416 : #define XLD_ENABLED 1
4417 :
4418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4419 :
4420 : #define RK_ENABLED 1
4421 :
4422 : #if RK5_ENABLED
4423 : module procedure setMNR_RNGX_DM_AC_XLD_D2_RK5
4424 : use pm_kind, only: RKC => RK5
4425 : #include "pm_distMultiNorm@routines.inc.F90"
4426 : end procedure
4427 : #endif
4428 :
4429 : #if RK4_ENABLED
4430 0 : module procedure setMNR_RNGX_DM_AC_XLD_D2_RK4
4431 : use pm_kind, only: RKC => RK4
4432 : #include "pm_distMultiNorm@routines.inc.F90"
4433 0 : end procedure
4434 : #endif
4435 :
4436 : #if RK3_ENABLED
4437 0 : module procedure setMNR_RNGX_DM_AC_XLD_D2_RK3
4438 : use pm_kind, only: RKC => RK3
4439 : #include "pm_distMultiNorm@routines.inc.F90"
4440 0 : end procedure
4441 : #endif
4442 :
4443 : #if RK2_ENABLED
4444 0 : module procedure setMNR_RNGX_DM_AC_XLD_D2_RK2
4445 : use pm_kind, only: RKC => RK2
4446 : #include "pm_distMultiNorm@routines.inc.F90"
4447 0 : end procedure
4448 : #endif
4449 :
4450 : #if RK1_ENABLED
4451 0 : module procedure setMNR_RNGX_DM_AC_XLD_D2_RK1
4452 : use pm_kind, only: RKC => RK1
4453 : #include "pm_distMultiNorm@routines.inc.F90"
4454 0 : end procedure
4455 : #endif
4456 :
4457 : #undef RK_ENABLED
4458 :
4459 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4460 :
4461 : #undef XLD_ENABLED
4462 :
4463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4466 :
4467 : #undef AC_ENABLED
4468 :
4469 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4472 :
4473 : #undef DM_ENABLED
4474 :
4475 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4476 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4477 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4478 :
4479 : #define AM_ENABLED 1
4480 :
4481 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4482 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4484 :
4485 : #define DC_ENABLED 1
4486 :
4487 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4488 :
4489 : #define RK_ENABLED 1
4490 :
4491 : #if RK5_ENABLED
4492 : module procedure setMNR_RNGX_AM_DC_XXX_D2_RK5
4493 : use pm_kind, only: RKC => RK5
4494 : #include "pm_distMultiNorm@routines.inc.F90"
4495 : end procedure
4496 : #endif
4497 :
4498 : #if RK4_ENABLED
4499 0 : module procedure setMNR_RNGX_AM_DC_XXX_D2_RK4
4500 : use pm_kind, only: RKC => RK4
4501 : #include "pm_distMultiNorm@routines.inc.F90"
4502 0 : end procedure
4503 : #endif
4504 :
4505 : #if RK3_ENABLED
4506 0 : module procedure setMNR_RNGX_AM_DC_XXX_D2_RK3
4507 : use pm_kind, only: RKC => RK3
4508 : #include "pm_distMultiNorm@routines.inc.F90"
4509 0 : end procedure
4510 : #endif
4511 :
4512 : #if RK2_ENABLED
4513 0 : module procedure setMNR_RNGX_AM_DC_XXX_D2_RK2
4514 : use pm_kind, only: RKC => RK2
4515 : #include "pm_distMultiNorm@routines.inc.F90"
4516 0 : end procedure
4517 : #endif
4518 :
4519 : #if RK1_ENABLED
4520 0 : module procedure setMNR_RNGX_AM_DC_XXX_D2_RK1
4521 : use pm_kind, only: RKC => RK1
4522 : #include "pm_distMultiNorm@routines.inc.F90"
4523 0 : end procedure
4524 : #endif
4525 :
4526 : #undef RK_ENABLED
4527 :
4528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4529 :
4530 : #undef DC_ENABLED
4531 :
4532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4535 :
4536 : #define AC_ENABLED 1
4537 :
4538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4541 :
4542 : #define UXD_ENABLED 1
4543 :
4544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4545 :
4546 : #define RK_ENABLED 1
4547 :
4548 : #if RK5_ENABLED
4549 : module procedure setMNR_RNGX_AM_AC_UXD_D2_RK5
4550 : use pm_kind, only: RKC => RK5
4551 : #include "pm_distMultiNorm@routines.inc.F90"
4552 : end procedure
4553 : #endif
4554 :
4555 : #if RK4_ENABLED
4556 0 : module procedure setMNR_RNGX_AM_AC_UXD_D2_RK4
4557 : use pm_kind, only: RKC => RK4
4558 : #include "pm_distMultiNorm@routines.inc.F90"
4559 0 : end procedure
4560 : #endif
4561 :
4562 : #if RK3_ENABLED
4563 0 : module procedure setMNR_RNGX_AM_AC_UXD_D2_RK3
4564 : use pm_kind, only: RKC => RK3
4565 : #include "pm_distMultiNorm@routines.inc.F90"
4566 0 : end procedure
4567 : #endif
4568 :
4569 : #if RK2_ENABLED
4570 0 : module procedure setMNR_RNGX_AM_AC_UXD_D2_RK2
4571 : use pm_kind, only: RKC => RK2
4572 : #include "pm_distMultiNorm@routines.inc.F90"
4573 0 : end procedure
4574 : #endif
4575 :
4576 : #if RK1_ENABLED
4577 0 : module procedure setMNR_RNGX_AM_AC_UXD_D2_RK1
4578 : use pm_kind, only: RKC => RK1
4579 : #include "pm_distMultiNorm@routines.inc.F90"
4580 0 : end procedure
4581 : #endif
4582 :
4583 : #undef RK_ENABLED
4584 :
4585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4586 :
4587 : #undef UXD_ENABLED
4588 :
4589 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4590 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4592 :
4593 : #define XLD_ENABLED 1
4594 :
4595 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4596 :
4597 : #define RK_ENABLED 1
4598 :
4599 : #if RK5_ENABLED
4600 : module procedure setMNR_RNGX_AM_AC_XLD_D2_RK5
4601 : use pm_kind, only: RKC => RK5
4602 : #include "pm_distMultiNorm@routines.inc.F90"
4603 : end procedure
4604 : #endif
4605 :
4606 : #if RK4_ENABLED
4607 0 : module procedure setMNR_RNGX_AM_AC_XLD_D2_RK4
4608 : use pm_kind, only: RKC => RK4
4609 : #include "pm_distMultiNorm@routines.inc.F90"
4610 0 : end procedure
4611 : #endif
4612 :
4613 : #if RK3_ENABLED
4614 0 : module procedure setMNR_RNGX_AM_AC_XLD_D2_RK3
4615 : use pm_kind, only: RKC => RK3
4616 : #include "pm_distMultiNorm@routines.inc.F90"
4617 0 : end procedure
4618 : #endif
4619 :
4620 : #if RK2_ENABLED
4621 0 : module procedure setMNR_RNGX_AM_AC_XLD_D2_RK2
4622 : use pm_kind, only: RKC => RK2
4623 : #include "pm_distMultiNorm@routines.inc.F90"
4624 0 : end procedure
4625 : #endif
4626 :
4627 : #if RK1_ENABLED
4628 0 : module procedure setMNR_RNGX_AM_AC_XLD_D2_RK1
4629 : use pm_kind, only: RKC => RK1
4630 : #include "pm_distMultiNorm@routines.inc.F90"
4631 0 : end procedure
4632 : #endif
4633 :
4634 : #undef RK_ENABLED
4635 :
4636 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4637 :
4638 : #undef XLD_ENABLED
4639 :
4640 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4641 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4643 :
4644 : #undef AC_ENABLED
4645 :
4646 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4647 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4649 :
4650 : #undef AM_ENABLED
4651 :
4652 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4653 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4654 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4655 :
4656 : #undef RNGX_ENABLED
4657 :
4658 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4659 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4661 :
4662 : #undef D2_ENABLED
4663 :
4664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4665 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4667 :
4668 : #undef setMNR_ENABLED
4669 :
4670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4671 :
4672 : #undef CHECK_ASSERTION
4673 :
4674 : end submodule routines
|
