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_distUnifSphere](@ref pm_distUnifSphere).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, April 23, 2017, 1:36 AM, Institute for Computational Engineering and Sciences (ICES), University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distUnifSphere) 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_matrixDet, only: transHerm
40 : use pm_matrixDet, only: setMatDetSqrtLog
41 : use pm_matrixCopy, only: setMatCopy, rdpack
42 : use pm_matrixTrace, only: getMatMulTraceLog
43 : use pm_ellipsoid, only: getLogVolUnitBall
44 : use pm_distUnif, only: setUnifRand
45 : use pm_distNorm, only: setNormRand
46 :
47 : implicit none
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 :
51 : contains
52 :
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 :
55 : #define getUnifSphereLogPDF_ENABLED 1
56 :
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 :
61 : #define D0_ENABLED 1
62 :
63 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64 :
65 : #define RK_ENABLED 1
66 :
67 : #if RK5_ENABLED
68 : module procedure getUnifSphereLogPDF_D0_RK5
69 : use pm_kind, only: TKC => RK5
70 : #include "pm_distUnifSphere@routines.inc.F90"
71 : end procedure
72 : #endif
73 :
74 : #if RK4_ENABLED
75 0 : module procedure getUnifSphereLogPDF_D0_RK4
76 : use pm_kind, only: TKC => RK4
77 : #include "pm_distUnifSphere@routines.inc.F90"
78 0 : end procedure
79 : #endif
80 :
81 : #if RK3_ENABLED
82 0 : module procedure getUnifSphereLogPDF_D0_RK3
83 : use pm_kind, only: TKC => RK3
84 : #include "pm_distUnifSphere@routines.inc.F90"
85 0 : end procedure
86 : #endif
87 :
88 : #if RK2_ENABLED
89 0 : module procedure getUnifSphereLogPDF_D0_RK2
90 : use pm_kind, only: TKC => RK2
91 : #include "pm_distUnifSphere@routines.inc.F90"
92 0 : end procedure
93 : #endif
94 :
95 : #if RK1_ENABLED
96 4 : module procedure getUnifSphereLogPDF_D0_RK1
97 : use pm_kind, only: TKC => RK1
98 : #include "pm_distUnifSphere@routines.inc.F90"
99 4 : end procedure
100 : #endif
101 :
102 : #undef RK_ENABLED
103 :
104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105 :
106 : #undef D0_ENABLED
107 :
108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
111 :
112 : #undef getUnifSphereLogPDF_ENABLED
113 :
114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115 :
116 : #define getUSR_ENABLED 1
117 :
118 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
121 :
122 : #define D1_ENABLED 1
123 :
124 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
127 :
128 : #define RNGD_ENABLED 1
129 :
130 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133 :
134 : #define DM_ENABLED 1
135 :
136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
137 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
138 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
139 :
140 : #define AC_ENABLED 1
141 :
142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
144 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
145 :
146 : #define UXD_ENABLED 1
147 :
148 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
149 :
150 : #define RK_ENABLED 1
151 :
152 : #if RK5_ENABLED
153 : module procedure getUSR_RNGD_DM_AC_UXD_D1_RK5
154 : use pm_kind, only: TKC => RK5
155 : #include "pm_distUnifSphere@routines.inc.F90"
156 : end procedure
157 : #endif
158 :
159 : #if RK4_ENABLED
160 0 : module procedure getUSR_RNGD_DM_AC_UXD_D1_RK4
161 : use pm_kind, only: TKC => RK4
162 : #include "pm_distUnifSphere@routines.inc.F90"
163 0 : end procedure
164 : #endif
165 :
166 : #if RK3_ENABLED
167 0 : module procedure getUSR_RNGD_DM_AC_UXD_D1_RK3
168 : use pm_kind, only: TKC => RK3
169 : #include "pm_distUnifSphere@routines.inc.F90"
170 0 : end procedure
171 : #endif
172 :
173 : #if RK2_ENABLED
174 0 : module procedure getUSR_RNGD_DM_AC_UXD_D1_RK2
175 : use pm_kind, only: TKC => RK2
176 : #include "pm_distUnifSphere@routines.inc.F90"
177 0 : end procedure
178 : #endif
179 :
180 : #if RK1_ENABLED
181 0 : module procedure getUSR_RNGD_DM_AC_UXD_D1_RK1
182 : use pm_kind, only: TKC => RK1
183 : #include "pm_distUnifSphere@routines.inc.F90"
184 0 : end procedure
185 : #endif
186 :
187 : #undef RK_ENABLED
188 :
189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
190 :
191 : #undef UXD_ENABLED
192 :
193 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
196 :
197 : #define XLD_ENABLED 1
198 :
199 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
200 :
201 : #define RK_ENABLED 1
202 :
203 : #if RK5_ENABLED
204 : module procedure getUSR_RNGD_DM_AC_XLD_D1_RK5
205 : use pm_kind, only: TKC => RK5
206 : #include "pm_distUnifSphere@routines.inc.F90"
207 : end procedure
208 : #endif
209 :
210 : #if RK4_ENABLED
211 0 : module procedure getUSR_RNGD_DM_AC_XLD_D1_RK4
212 : use pm_kind, only: TKC => RK4
213 : #include "pm_distUnifSphere@routines.inc.F90"
214 0 : end procedure
215 : #endif
216 :
217 : #if RK3_ENABLED
218 0 : module procedure getUSR_RNGD_DM_AC_XLD_D1_RK3
219 : use pm_kind, only: TKC => RK3
220 : #include "pm_distUnifSphere@routines.inc.F90"
221 0 : end procedure
222 : #endif
223 :
224 : #if RK2_ENABLED
225 101 : module procedure getUSR_RNGD_DM_AC_XLD_D1_RK2
226 : use pm_kind, only: TKC => RK2
227 : #include "pm_distUnifSphere@routines.inc.F90"
228 101 : end procedure
229 : #endif
230 :
231 : #if RK1_ENABLED
232 0 : module procedure getUSR_RNGD_DM_AC_XLD_D1_RK1
233 : use pm_kind, only: TKC => RK1
234 : #include "pm_distUnifSphere@routines.inc.F90"
235 0 : end procedure
236 : #endif
237 :
238 : #undef RK_ENABLED
239 :
240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
241 :
242 : #undef XLD_ENABLED
243 :
244 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247 :
248 : #undef AC_ENABLED
249 :
250 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 :
254 : #undef DM_ENABLED
255 :
256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259 :
260 : #define AM_ENABLED 1
261 :
262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 :
266 : #define DC_ENABLED 1
267 :
268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
269 :
270 : #define RK_ENABLED 1
271 :
272 : #if RK5_ENABLED
273 : module procedure getUSR_RNGD_AM_DC_XXX_D1_RK5
274 : use pm_kind, only: TKC => RK5
275 : #include "pm_distUnifSphere@routines.inc.F90"
276 : end procedure
277 : #endif
278 :
279 : #if RK4_ENABLED
280 0 : module procedure getUSR_RNGD_AM_DC_XXX_D1_RK4
281 : use pm_kind, only: TKC => RK4
282 : #include "pm_distUnifSphere@routines.inc.F90"
283 0 : end procedure
284 : #endif
285 :
286 : #if RK3_ENABLED
287 0 : module procedure getUSR_RNGD_AM_DC_XXX_D1_RK3
288 : use pm_kind, only: TKC => RK3
289 : #include "pm_distUnifSphere@routines.inc.F90"
290 0 : end procedure
291 : #endif
292 :
293 : #if RK2_ENABLED
294 101 : module procedure getUSR_RNGD_AM_DC_XXX_D1_RK2
295 : use pm_kind, only: TKC => RK2
296 : #include "pm_distUnifSphere@routines.inc.F90"
297 101 : end procedure
298 : #endif
299 :
300 : #if RK1_ENABLED
301 0 : module procedure getUSR_RNGD_AM_DC_XXX_D1_RK1
302 : use pm_kind, only: TKC => RK1
303 : #include "pm_distUnifSphere@routines.inc.F90"
304 0 : end procedure
305 : #endif
306 :
307 : #undef RK_ENABLED
308 :
309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 :
311 : #undef DC_ENABLED
312 :
313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
316 :
317 : #define AC_ENABLED 1
318 :
319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
321 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
322 :
323 : #define UXD_ENABLED 1
324 :
325 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
326 :
327 : #define RK_ENABLED 1
328 :
329 : #if RK5_ENABLED
330 : module procedure getUSR_RNGD_AM_AC_UXD_D1_RK5
331 : use pm_kind, only: TKC => RK5
332 : #include "pm_distUnifSphere@routines.inc.F90"
333 : end procedure
334 : #endif
335 :
336 : #if RK4_ENABLED
337 0 : module procedure getUSR_RNGD_AM_AC_UXD_D1_RK4
338 : use pm_kind, only: TKC => RK4
339 : #include "pm_distUnifSphere@routines.inc.F90"
340 0 : end procedure
341 : #endif
342 :
343 : #if RK3_ENABLED
344 0 : module procedure getUSR_RNGD_AM_AC_UXD_D1_RK3
345 : use pm_kind, only: TKC => RK3
346 : #include "pm_distUnifSphere@routines.inc.F90"
347 0 : end procedure
348 : #endif
349 :
350 : #if RK2_ENABLED
351 0 : module procedure getUSR_RNGD_AM_AC_UXD_D1_RK2
352 : use pm_kind, only: TKC => RK2
353 : #include "pm_distUnifSphere@routines.inc.F90"
354 0 : end procedure
355 : #endif
356 :
357 : #if RK1_ENABLED
358 0 : module procedure getUSR_RNGD_AM_AC_UXD_D1_RK1
359 : use pm_kind, only: TKC => RK1
360 : #include "pm_distUnifSphere@routines.inc.F90"
361 0 : end procedure
362 : #endif
363 :
364 : #undef RK_ENABLED
365 :
366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367 :
368 : #undef UXD_ENABLED
369 :
370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
372 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
373 :
374 : #define XLD_ENABLED 1
375 :
376 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
377 :
378 : #define RK_ENABLED 1
379 :
380 : #if RK5_ENABLED
381 : module procedure getUSR_RNGD_AM_AC_XLD_D1_RK5
382 : use pm_kind, only: TKC => RK5
383 : #include "pm_distUnifSphere@routines.inc.F90"
384 : end procedure
385 : #endif
386 :
387 : #if RK4_ENABLED
388 0 : module procedure getUSR_RNGD_AM_AC_XLD_D1_RK4
389 : use pm_kind, only: TKC => RK4
390 : #include "pm_distUnifSphere@routines.inc.F90"
391 0 : end procedure
392 : #endif
393 :
394 : #if RK3_ENABLED
395 0 : module procedure getUSR_RNGD_AM_AC_XLD_D1_RK3
396 : use pm_kind, only: TKC => RK3
397 : #include "pm_distUnifSphere@routines.inc.F90"
398 0 : end procedure
399 : #endif
400 :
401 : #if RK2_ENABLED
402 101 : module procedure getUSR_RNGD_AM_AC_XLD_D1_RK2
403 : use pm_kind, only: TKC => RK2
404 : #include "pm_distUnifSphere@routines.inc.F90"
405 101 : end procedure
406 : #endif
407 :
408 : #if RK1_ENABLED
409 0 : module procedure getUSR_RNGD_AM_AC_XLD_D1_RK1
410 : use pm_kind, only: TKC => RK1
411 : #include "pm_distUnifSphere@routines.inc.F90"
412 0 : end procedure
413 : #endif
414 :
415 : #undef RK_ENABLED
416 :
417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
418 :
419 : #undef XLD_ENABLED
420 :
421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
423 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
424 :
425 : #undef AC_ENABLED
426 :
427 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
429 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
430 :
431 : #undef AM_ENABLED
432 :
433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
435 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
436 :
437 : #undef RNGD_ENABLED
438 :
439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
442 :
443 : #define RNGF_ENABLED 1
444 :
445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
448 :
449 : #define DM_ENABLED 1
450 :
451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
454 :
455 : #define AC_ENABLED 1
456 :
457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
459 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
460 :
461 : #define UXD_ENABLED 1
462 :
463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
464 :
465 : #define RK_ENABLED 1
466 :
467 : #if RK5_ENABLED
468 : module procedure getUSR_RNGF_DM_AC_UXD_D1_RK5
469 : use pm_kind, only: TKC => RK5
470 : #include "pm_distUnifSphere@routines.inc.F90"
471 : end procedure
472 : #endif
473 :
474 : #if RK4_ENABLED
475 0 : module procedure getUSR_RNGF_DM_AC_UXD_D1_RK4
476 : use pm_kind, only: TKC => RK4
477 : #include "pm_distUnifSphere@routines.inc.F90"
478 0 : end procedure
479 : #endif
480 :
481 : #if RK3_ENABLED
482 0 : module procedure getUSR_RNGF_DM_AC_UXD_D1_RK3
483 : use pm_kind, only: TKC => RK3
484 : #include "pm_distUnifSphere@routines.inc.F90"
485 0 : end procedure
486 : #endif
487 :
488 : #if RK2_ENABLED
489 0 : module procedure getUSR_RNGF_DM_AC_UXD_D1_RK2
490 : use pm_kind, only: TKC => RK2
491 : #include "pm_distUnifSphere@routines.inc.F90"
492 0 : end procedure
493 : #endif
494 :
495 : #if RK1_ENABLED
496 0 : module procedure getUSR_RNGF_DM_AC_UXD_D1_RK1
497 : use pm_kind, only: TKC => RK1
498 : #include "pm_distUnifSphere@routines.inc.F90"
499 0 : end procedure
500 : #endif
501 :
502 : #undef RK_ENABLED
503 :
504 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
505 :
506 : #undef UXD_ENABLED
507 :
508 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
510 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
511 :
512 : #define XLD_ENABLED 1
513 :
514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
515 :
516 : #define RK_ENABLED 1
517 :
518 : #if RK5_ENABLED
519 : module procedure getUSR_RNGF_DM_AC_XLD_D1_RK5
520 : use pm_kind, only: TKC => RK5
521 : #include "pm_distUnifSphere@routines.inc.F90"
522 : end procedure
523 : #endif
524 :
525 : #if RK4_ENABLED
526 0 : module procedure getUSR_RNGF_DM_AC_XLD_D1_RK4
527 : use pm_kind, only: TKC => RK4
528 : #include "pm_distUnifSphere@routines.inc.F90"
529 0 : end procedure
530 : #endif
531 :
532 : #if RK3_ENABLED
533 0 : module procedure getUSR_RNGF_DM_AC_XLD_D1_RK3
534 : use pm_kind, only: TKC => RK3
535 : #include "pm_distUnifSphere@routines.inc.F90"
536 0 : end procedure
537 : #endif
538 :
539 : #if RK2_ENABLED
540 0 : module procedure getUSR_RNGF_DM_AC_XLD_D1_RK2
541 : use pm_kind, only: TKC => RK2
542 : #include "pm_distUnifSphere@routines.inc.F90"
543 0 : end procedure
544 : #endif
545 :
546 : #if RK1_ENABLED
547 0 : module procedure getUSR_RNGF_DM_AC_XLD_D1_RK1
548 : use pm_kind, only: TKC => RK1
549 : #include "pm_distUnifSphere@routines.inc.F90"
550 0 : end procedure
551 : #endif
552 :
553 : #undef RK_ENABLED
554 :
555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
556 :
557 : #undef XLD_ENABLED
558 :
559 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
561 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
562 :
563 : #undef AC_ENABLED
564 :
565 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
567 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
568 :
569 : #undef DM_ENABLED
570 :
571 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
572 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
573 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
574 :
575 : #define AM_ENABLED 1
576 :
577 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
578 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
579 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
580 :
581 : #define DC_ENABLED 1
582 :
583 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
584 :
585 : #define RK_ENABLED 1
586 :
587 : #if RK5_ENABLED
588 : module procedure getUSR_RNGF_AM_DC_XXX_D1_RK5
589 : use pm_kind, only: TKC => RK5
590 : #include "pm_distUnifSphere@routines.inc.F90"
591 : end procedure
592 : #endif
593 :
594 : #if RK4_ENABLED
595 0 : module procedure getUSR_RNGF_AM_DC_XXX_D1_RK4
596 : use pm_kind, only: TKC => RK4
597 : #include "pm_distUnifSphere@routines.inc.F90"
598 0 : end procedure
599 : #endif
600 :
601 : #if RK3_ENABLED
602 0 : module procedure getUSR_RNGF_AM_DC_XXX_D1_RK3
603 : use pm_kind, only: TKC => RK3
604 : #include "pm_distUnifSphere@routines.inc.F90"
605 0 : end procedure
606 : #endif
607 :
608 : #if RK2_ENABLED
609 0 : module procedure getUSR_RNGF_AM_DC_XXX_D1_RK2
610 : use pm_kind, only: TKC => RK2
611 : #include "pm_distUnifSphere@routines.inc.F90"
612 0 : end procedure
613 : #endif
614 :
615 : #if RK1_ENABLED
616 0 : module procedure getUSR_RNGF_AM_DC_XXX_D1_RK1
617 : use pm_kind, only: TKC => RK1
618 : #include "pm_distUnifSphere@routines.inc.F90"
619 0 : end procedure
620 : #endif
621 :
622 : #undef RK_ENABLED
623 :
624 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
625 :
626 : #undef DC_ENABLED
627 :
628 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
630 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
631 :
632 : #define AC_ENABLED 1
633 :
634 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
635 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
636 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
637 :
638 : #define UXD_ENABLED 1
639 :
640 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
641 :
642 : #define RK_ENABLED 1
643 :
644 : #if RK5_ENABLED
645 : module procedure getUSR_RNGF_AM_AC_UXD_D1_RK5
646 : use pm_kind, only: TKC => RK5
647 : #include "pm_distUnifSphere@routines.inc.F90"
648 : end procedure
649 : #endif
650 :
651 : #if RK4_ENABLED
652 0 : module procedure getUSR_RNGF_AM_AC_UXD_D1_RK4
653 : use pm_kind, only: TKC => RK4
654 : #include "pm_distUnifSphere@routines.inc.F90"
655 0 : end procedure
656 : #endif
657 :
658 : #if RK3_ENABLED
659 0 : module procedure getUSR_RNGF_AM_AC_UXD_D1_RK3
660 : use pm_kind, only: TKC => RK3
661 : #include "pm_distUnifSphere@routines.inc.F90"
662 0 : end procedure
663 : #endif
664 :
665 : #if RK2_ENABLED
666 0 : module procedure getUSR_RNGF_AM_AC_UXD_D1_RK2
667 : use pm_kind, only: TKC => RK2
668 : #include "pm_distUnifSphere@routines.inc.F90"
669 0 : end procedure
670 : #endif
671 :
672 : #if RK1_ENABLED
673 0 : module procedure getUSR_RNGF_AM_AC_UXD_D1_RK1
674 : use pm_kind, only: TKC => RK1
675 : #include "pm_distUnifSphere@routines.inc.F90"
676 0 : end procedure
677 : #endif
678 :
679 : #undef RK_ENABLED
680 :
681 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
682 :
683 : #undef UXD_ENABLED
684 :
685 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
686 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
687 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
688 :
689 : #define XLD_ENABLED 1
690 :
691 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
692 :
693 : #define RK_ENABLED 1
694 :
695 : #if RK5_ENABLED
696 : module procedure getUSR_RNGF_AM_AC_XLD_D1_RK5
697 : use pm_kind, only: TKC => RK5
698 : #include "pm_distUnifSphere@routines.inc.F90"
699 : end procedure
700 : #endif
701 :
702 : #if RK4_ENABLED
703 0 : module procedure getUSR_RNGF_AM_AC_XLD_D1_RK4
704 : use pm_kind, only: TKC => RK4
705 : #include "pm_distUnifSphere@routines.inc.F90"
706 0 : end procedure
707 : #endif
708 :
709 : #if RK3_ENABLED
710 0 : module procedure getUSR_RNGF_AM_AC_XLD_D1_RK3
711 : use pm_kind, only: TKC => RK3
712 : #include "pm_distUnifSphere@routines.inc.F90"
713 0 : end procedure
714 : #endif
715 :
716 : #if RK2_ENABLED
717 0 : module procedure getUSR_RNGF_AM_AC_XLD_D1_RK2
718 : use pm_kind, only: TKC => RK2
719 : #include "pm_distUnifSphere@routines.inc.F90"
720 0 : end procedure
721 : #endif
722 :
723 : #if RK1_ENABLED
724 0 : module procedure getUSR_RNGF_AM_AC_XLD_D1_RK1
725 : use pm_kind, only: TKC => RK1
726 : #include "pm_distUnifSphere@routines.inc.F90"
727 0 : end procedure
728 : #endif
729 :
730 : #undef RK_ENABLED
731 :
732 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
733 :
734 : #undef XLD_ENABLED
735 :
736 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
737 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
738 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
739 :
740 : #undef AC_ENABLED
741 :
742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
743 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
744 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
745 :
746 : #undef AM_ENABLED
747 :
748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
749 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
750 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
751 :
752 : #undef RNGF_ENABLED
753 :
754 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
755 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
756 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
757 :
758 : #define RNGX_ENABLED 1
759 :
760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
761 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
762 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
763 :
764 : #define DM_ENABLED 1
765 :
766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
767 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
768 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
769 :
770 : #define AC_ENABLED 1
771 :
772 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
773 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
774 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
775 :
776 : #define UXD_ENABLED 1
777 :
778 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
779 :
780 : #define RK_ENABLED 1
781 :
782 : #if RK5_ENABLED
783 : module procedure getUSR_RNGX_DM_AC_UXD_D1_RK5
784 : use pm_kind, only: TKC => RK5
785 : #include "pm_distUnifSphere@routines.inc.F90"
786 : end procedure
787 : #endif
788 :
789 : #if RK4_ENABLED
790 0 : module procedure getUSR_RNGX_DM_AC_UXD_D1_RK4
791 : use pm_kind, only: TKC => RK4
792 : #include "pm_distUnifSphere@routines.inc.F90"
793 0 : end procedure
794 : #endif
795 :
796 : #if RK3_ENABLED
797 0 : module procedure getUSR_RNGX_DM_AC_UXD_D1_RK3
798 : use pm_kind, only: TKC => RK3
799 : #include "pm_distUnifSphere@routines.inc.F90"
800 0 : end procedure
801 : #endif
802 :
803 : #if RK2_ENABLED
804 0 : module procedure getUSR_RNGX_DM_AC_UXD_D1_RK2
805 : use pm_kind, only: TKC => RK2
806 : #include "pm_distUnifSphere@routines.inc.F90"
807 0 : end procedure
808 : #endif
809 :
810 : #if RK1_ENABLED
811 0 : module procedure getUSR_RNGX_DM_AC_UXD_D1_RK1
812 : use pm_kind, only: TKC => RK1
813 : #include "pm_distUnifSphere@routines.inc.F90"
814 0 : end procedure
815 : #endif
816 :
817 : #undef RK_ENABLED
818 :
819 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
820 :
821 : #undef UXD_ENABLED
822 :
823 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
824 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
825 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
826 :
827 : #define XLD_ENABLED 1
828 :
829 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
830 :
831 : #define RK_ENABLED 1
832 :
833 : #if RK5_ENABLED
834 : module procedure getUSR_RNGX_DM_AC_XLD_D1_RK5
835 : use pm_kind, only: TKC => RK5
836 : #include "pm_distUnifSphere@routines.inc.F90"
837 : end procedure
838 : #endif
839 :
840 : #if RK4_ENABLED
841 0 : module procedure getUSR_RNGX_DM_AC_XLD_D1_RK4
842 : use pm_kind, only: TKC => RK4
843 : #include "pm_distUnifSphere@routines.inc.F90"
844 0 : end procedure
845 : #endif
846 :
847 : #if RK3_ENABLED
848 0 : module procedure getUSR_RNGX_DM_AC_XLD_D1_RK3
849 : use pm_kind, only: TKC => RK3
850 : #include "pm_distUnifSphere@routines.inc.F90"
851 0 : end procedure
852 : #endif
853 :
854 : #if RK2_ENABLED
855 0 : module procedure getUSR_RNGX_DM_AC_XLD_D1_RK2
856 : use pm_kind, only: TKC => RK2
857 : #include "pm_distUnifSphere@routines.inc.F90"
858 0 : end procedure
859 : #endif
860 :
861 : #if RK1_ENABLED
862 0 : module procedure getUSR_RNGX_DM_AC_XLD_D1_RK1
863 : use pm_kind, only: TKC => RK1
864 : #include "pm_distUnifSphere@routines.inc.F90"
865 0 : end procedure
866 : #endif
867 :
868 : #undef RK_ENABLED
869 :
870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
871 :
872 : #undef XLD_ENABLED
873 :
874 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
875 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
876 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
877 :
878 : #undef AC_ENABLED
879 :
880 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
881 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
882 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
883 :
884 : #undef DM_ENABLED
885 :
886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
887 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
888 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
889 :
890 : #define AM_ENABLED 1
891 :
892 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
893 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
894 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
895 :
896 : #define DC_ENABLED 1
897 :
898 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
899 :
900 : #define RK_ENABLED 1
901 :
902 : #if RK5_ENABLED
903 : module procedure getUSR_RNGX_AM_DC_XXX_D1_RK5
904 : use pm_kind, only: TKC => RK5
905 : #include "pm_distUnifSphere@routines.inc.F90"
906 : end procedure
907 : #endif
908 :
909 : #if RK4_ENABLED
910 0 : module procedure getUSR_RNGX_AM_DC_XXX_D1_RK4
911 : use pm_kind, only: TKC => RK4
912 : #include "pm_distUnifSphere@routines.inc.F90"
913 0 : end procedure
914 : #endif
915 :
916 : #if RK3_ENABLED
917 0 : module procedure getUSR_RNGX_AM_DC_XXX_D1_RK3
918 : use pm_kind, only: TKC => RK3
919 : #include "pm_distUnifSphere@routines.inc.F90"
920 0 : end procedure
921 : #endif
922 :
923 : #if RK2_ENABLED
924 0 : module procedure getUSR_RNGX_AM_DC_XXX_D1_RK2
925 : use pm_kind, only: TKC => RK2
926 : #include "pm_distUnifSphere@routines.inc.F90"
927 0 : end procedure
928 : #endif
929 :
930 : #if RK1_ENABLED
931 0 : module procedure getUSR_RNGX_AM_DC_XXX_D1_RK1
932 : use pm_kind, only: TKC => RK1
933 : #include "pm_distUnifSphere@routines.inc.F90"
934 0 : end procedure
935 : #endif
936 :
937 : #undef RK_ENABLED
938 :
939 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
940 :
941 : #undef DC_ENABLED
942 :
943 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
944 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
945 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
946 :
947 : #define AC_ENABLED 1
948 :
949 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
951 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
952 :
953 : #define UXD_ENABLED 1
954 :
955 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
956 :
957 : #define RK_ENABLED 1
958 :
959 : #if RK5_ENABLED
960 : module procedure getUSR_RNGX_AM_AC_UXD_D1_RK5
961 : use pm_kind, only: TKC => RK5
962 : #include "pm_distUnifSphere@routines.inc.F90"
963 : end procedure
964 : #endif
965 :
966 : #if RK4_ENABLED
967 0 : module procedure getUSR_RNGX_AM_AC_UXD_D1_RK4
968 : use pm_kind, only: TKC => RK4
969 : #include "pm_distUnifSphere@routines.inc.F90"
970 0 : end procedure
971 : #endif
972 :
973 : #if RK3_ENABLED
974 0 : module procedure getUSR_RNGX_AM_AC_UXD_D1_RK3
975 : use pm_kind, only: TKC => RK3
976 : #include "pm_distUnifSphere@routines.inc.F90"
977 0 : end procedure
978 : #endif
979 :
980 : #if RK2_ENABLED
981 0 : module procedure getUSR_RNGX_AM_AC_UXD_D1_RK2
982 : use pm_kind, only: TKC => RK2
983 : #include "pm_distUnifSphere@routines.inc.F90"
984 0 : end procedure
985 : #endif
986 :
987 : #if RK1_ENABLED
988 0 : module procedure getUSR_RNGX_AM_AC_UXD_D1_RK1
989 : use pm_kind, only: TKC => RK1
990 : #include "pm_distUnifSphere@routines.inc.F90"
991 0 : end procedure
992 : #endif
993 :
994 : #undef RK_ENABLED
995 :
996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
997 :
998 : #undef UXD_ENABLED
999 :
1000 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1002 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1003 :
1004 : #define XLD_ENABLED 1
1005 :
1006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1007 :
1008 : #define RK_ENABLED 1
1009 :
1010 : #if RK5_ENABLED
1011 : module procedure getUSR_RNGX_AM_AC_XLD_D1_RK5
1012 : use pm_kind, only: TKC => RK5
1013 : #include "pm_distUnifSphere@routines.inc.F90"
1014 : end procedure
1015 : #endif
1016 :
1017 : #if RK4_ENABLED
1018 0 : module procedure getUSR_RNGX_AM_AC_XLD_D1_RK4
1019 : use pm_kind, only: TKC => RK4
1020 : #include "pm_distUnifSphere@routines.inc.F90"
1021 0 : end procedure
1022 : #endif
1023 :
1024 : #if RK3_ENABLED
1025 0 : module procedure getUSR_RNGX_AM_AC_XLD_D1_RK3
1026 : use pm_kind, only: TKC => RK3
1027 : #include "pm_distUnifSphere@routines.inc.F90"
1028 0 : end procedure
1029 : #endif
1030 :
1031 : #if RK2_ENABLED
1032 0 : module procedure getUSR_RNGX_AM_AC_XLD_D1_RK2
1033 : use pm_kind, only: TKC => RK2
1034 : #include "pm_distUnifSphere@routines.inc.F90"
1035 0 : end procedure
1036 : #endif
1037 :
1038 : #if RK1_ENABLED
1039 0 : module procedure getUSR_RNGX_AM_AC_XLD_D1_RK1
1040 : use pm_kind, only: TKC => RK1
1041 : #include "pm_distUnifSphere@routines.inc.F90"
1042 0 : end procedure
1043 : #endif
1044 :
1045 : #undef RK_ENABLED
1046 :
1047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1048 :
1049 : #undef XLD_ENABLED
1050 :
1051 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1053 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1054 :
1055 : #undef AC_ENABLED
1056 :
1057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1058 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1059 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1060 :
1061 : #undef AM_ENABLED
1062 :
1063 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1064 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1065 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1066 :
1067 : #undef RNGX_ENABLED
1068 :
1069 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1070 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1071 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1072 :
1073 : #undef D1_ENABLED
1074 :
1075 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1076 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1077 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1078 :
1079 : #define D2_ENABLED 1
1080 :
1081 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1082 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1083 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1084 :
1085 : #define RNGD_ENABLED 1
1086 :
1087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1089 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1090 :
1091 : #define DM_ENABLED 1
1092 :
1093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1094 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1095 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1096 :
1097 : #define AC_ENABLED 1
1098 :
1099 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1102 :
1103 : #define UXD_ENABLED 1
1104 :
1105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1106 :
1107 : #define RK_ENABLED 1
1108 :
1109 : #if RK5_ENABLED
1110 : module procedure getUSR_RNGD_DM_AC_UXD_D2_RK5
1111 : use pm_kind, only: TKC => RK5
1112 : #include "pm_distUnifSphere@routines.inc.F90"
1113 : end procedure
1114 : #endif
1115 :
1116 : #if RK4_ENABLED
1117 0 : module procedure getUSR_RNGD_DM_AC_UXD_D2_RK4
1118 : use pm_kind, only: TKC => RK4
1119 : #include "pm_distUnifSphere@routines.inc.F90"
1120 0 : end procedure
1121 : #endif
1122 :
1123 : #if RK3_ENABLED
1124 0 : module procedure getUSR_RNGD_DM_AC_UXD_D2_RK3
1125 : use pm_kind, only: TKC => RK3
1126 : #include "pm_distUnifSphere@routines.inc.F90"
1127 0 : end procedure
1128 : #endif
1129 :
1130 : #if RK2_ENABLED
1131 0 : module procedure getUSR_RNGD_DM_AC_UXD_D2_RK2
1132 : use pm_kind, only: TKC => RK2
1133 : #include "pm_distUnifSphere@routines.inc.F90"
1134 0 : end procedure
1135 : #endif
1136 :
1137 : #if RK1_ENABLED
1138 0 : module procedure getUSR_RNGD_DM_AC_UXD_D2_RK1
1139 : use pm_kind, only: TKC => RK1
1140 : #include "pm_distUnifSphere@routines.inc.F90"
1141 0 : end procedure
1142 : #endif
1143 :
1144 : #undef RK_ENABLED
1145 :
1146 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1147 :
1148 : #undef UXD_ENABLED
1149 :
1150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1153 :
1154 : #define XLD_ENABLED 1
1155 :
1156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1157 :
1158 : #define RK_ENABLED 1
1159 :
1160 : #if RK5_ENABLED
1161 : module procedure getUSR_RNGD_DM_AC_XLD_D2_RK5
1162 : use pm_kind, only: TKC => RK5
1163 : #include "pm_distUnifSphere@routines.inc.F90"
1164 : end procedure
1165 : #endif
1166 :
1167 : #if RK4_ENABLED
1168 0 : module procedure getUSR_RNGD_DM_AC_XLD_D2_RK4
1169 : use pm_kind, only: TKC => RK4
1170 : #include "pm_distUnifSphere@routines.inc.F90"
1171 0 : end procedure
1172 : #endif
1173 :
1174 : #if RK3_ENABLED
1175 0 : module procedure getUSR_RNGD_DM_AC_XLD_D2_RK3
1176 : use pm_kind, only: TKC => RK3
1177 : #include "pm_distUnifSphere@routines.inc.F90"
1178 0 : end procedure
1179 : #endif
1180 :
1181 : #if RK2_ENABLED
1182 0 : module procedure getUSR_RNGD_DM_AC_XLD_D2_RK2
1183 : use pm_kind, only: TKC => RK2
1184 : #include "pm_distUnifSphere@routines.inc.F90"
1185 0 : end procedure
1186 : #endif
1187 :
1188 : #if RK1_ENABLED
1189 0 : module procedure getUSR_RNGD_DM_AC_XLD_D2_RK1
1190 : use pm_kind, only: TKC => RK1
1191 : #include "pm_distUnifSphere@routines.inc.F90"
1192 0 : end procedure
1193 : #endif
1194 :
1195 : #undef RK_ENABLED
1196 :
1197 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1198 :
1199 : #undef XLD_ENABLED
1200 :
1201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1204 :
1205 : #undef AC_ENABLED
1206 :
1207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1209 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1210 :
1211 : #undef DM_ENABLED
1212 :
1213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1214 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1215 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1216 :
1217 : #define AM_ENABLED 1
1218 :
1219 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1220 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1222 :
1223 : #define DC_ENABLED 1
1224 :
1225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1226 :
1227 : #define RK_ENABLED 1
1228 :
1229 : #if RK5_ENABLED
1230 : module procedure getUSR_RNGD_AM_DC_XXX_D2_RK5
1231 : use pm_kind, only: TKC => RK5
1232 : #include "pm_distUnifSphere@routines.inc.F90"
1233 : end procedure
1234 : #endif
1235 :
1236 : #if RK4_ENABLED
1237 0 : module procedure getUSR_RNGD_AM_DC_XXX_D2_RK4
1238 : use pm_kind, only: TKC => RK4
1239 : #include "pm_distUnifSphere@routines.inc.F90"
1240 0 : end procedure
1241 : #endif
1242 :
1243 : #if RK3_ENABLED
1244 0 : module procedure getUSR_RNGD_AM_DC_XXX_D2_RK3
1245 : use pm_kind, only: TKC => RK3
1246 : #include "pm_distUnifSphere@routines.inc.F90"
1247 0 : end procedure
1248 : #endif
1249 :
1250 : #if RK2_ENABLED
1251 0 : module procedure getUSR_RNGD_AM_DC_XXX_D2_RK2
1252 : use pm_kind, only: TKC => RK2
1253 : #include "pm_distUnifSphere@routines.inc.F90"
1254 0 : end procedure
1255 : #endif
1256 :
1257 : #if RK1_ENABLED
1258 0 : module procedure getUSR_RNGD_AM_DC_XXX_D2_RK1
1259 : use pm_kind, only: TKC => RK1
1260 : #include "pm_distUnifSphere@routines.inc.F90"
1261 0 : end procedure
1262 : #endif
1263 :
1264 : #undef RK_ENABLED
1265 :
1266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1267 :
1268 : #undef DC_ENABLED
1269 :
1270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1271 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1272 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1273 :
1274 : #define AC_ENABLED 1
1275 :
1276 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1277 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1278 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1279 :
1280 : #define UXD_ENABLED 1
1281 :
1282 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1283 :
1284 : #define RK_ENABLED 1
1285 :
1286 : #if RK5_ENABLED
1287 : module procedure getUSR_RNGD_AM_AC_UXD_D2_RK5
1288 : use pm_kind, only: TKC => RK5
1289 : #include "pm_distUnifSphere@routines.inc.F90"
1290 : end procedure
1291 : #endif
1292 :
1293 : #if RK4_ENABLED
1294 0 : module procedure getUSR_RNGD_AM_AC_UXD_D2_RK4
1295 : use pm_kind, only: TKC => RK4
1296 : #include "pm_distUnifSphere@routines.inc.F90"
1297 0 : end procedure
1298 : #endif
1299 :
1300 : #if RK3_ENABLED
1301 0 : module procedure getUSR_RNGD_AM_AC_UXD_D2_RK3
1302 : use pm_kind, only: TKC => RK3
1303 : #include "pm_distUnifSphere@routines.inc.F90"
1304 0 : end procedure
1305 : #endif
1306 :
1307 : #if RK2_ENABLED
1308 0 : module procedure getUSR_RNGD_AM_AC_UXD_D2_RK2
1309 : use pm_kind, only: TKC => RK2
1310 : #include "pm_distUnifSphere@routines.inc.F90"
1311 0 : end procedure
1312 : #endif
1313 :
1314 : #if RK1_ENABLED
1315 0 : module procedure getUSR_RNGD_AM_AC_UXD_D2_RK1
1316 : use pm_kind, only: TKC => RK1
1317 : #include "pm_distUnifSphere@routines.inc.F90"
1318 0 : end procedure
1319 : #endif
1320 :
1321 : #undef RK_ENABLED
1322 :
1323 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1324 :
1325 : #undef UXD_ENABLED
1326 :
1327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1329 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1330 :
1331 : #define XLD_ENABLED 1
1332 :
1333 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1334 :
1335 : #define RK_ENABLED 1
1336 :
1337 : #if RK5_ENABLED
1338 : module procedure getUSR_RNGD_AM_AC_XLD_D2_RK5
1339 : use pm_kind, only: TKC => RK5
1340 : #include "pm_distUnifSphere@routines.inc.F90"
1341 : end procedure
1342 : #endif
1343 :
1344 : #if RK4_ENABLED
1345 0 : module procedure getUSR_RNGD_AM_AC_XLD_D2_RK4
1346 : use pm_kind, only: TKC => RK4
1347 : #include "pm_distUnifSphere@routines.inc.F90"
1348 0 : end procedure
1349 : #endif
1350 :
1351 : #if RK3_ENABLED
1352 0 : module procedure getUSR_RNGD_AM_AC_XLD_D2_RK3
1353 : use pm_kind, only: TKC => RK3
1354 : #include "pm_distUnifSphere@routines.inc.F90"
1355 0 : end procedure
1356 : #endif
1357 :
1358 : #if RK2_ENABLED
1359 0 : module procedure getUSR_RNGD_AM_AC_XLD_D2_RK2
1360 : use pm_kind, only: TKC => RK2
1361 : #include "pm_distUnifSphere@routines.inc.F90"
1362 0 : end procedure
1363 : #endif
1364 :
1365 : #if RK1_ENABLED
1366 0 : module procedure getUSR_RNGD_AM_AC_XLD_D2_RK1
1367 : use pm_kind, only: TKC => RK1
1368 : #include "pm_distUnifSphere@routines.inc.F90"
1369 0 : end procedure
1370 : #endif
1371 :
1372 : #undef RK_ENABLED
1373 :
1374 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1375 :
1376 : #undef XLD_ENABLED
1377 :
1378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1379 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1380 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1381 :
1382 : #undef AC_ENABLED
1383 :
1384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1387 :
1388 : #undef AM_ENABLED
1389 :
1390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1393 :
1394 : #undef RNGD_ENABLED
1395 :
1396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1399 :
1400 : #define RNGF_ENABLED 1
1401 :
1402 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1403 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1404 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1405 :
1406 : #define DM_ENABLED 1
1407 :
1408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1409 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1411 :
1412 : #define AC_ENABLED 1
1413 :
1414 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1415 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1417 :
1418 : #define UXD_ENABLED 1
1419 :
1420 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1421 :
1422 : #define RK_ENABLED 1
1423 :
1424 : #if RK5_ENABLED
1425 : module procedure getUSR_RNGF_DM_AC_UXD_D2_RK5
1426 : use pm_kind, only: TKC => RK5
1427 : #include "pm_distUnifSphere@routines.inc.F90"
1428 : end procedure
1429 : #endif
1430 :
1431 : #if RK4_ENABLED
1432 0 : module procedure getUSR_RNGF_DM_AC_UXD_D2_RK4
1433 : use pm_kind, only: TKC => RK4
1434 : #include "pm_distUnifSphere@routines.inc.F90"
1435 0 : end procedure
1436 : #endif
1437 :
1438 : #if RK3_ENABLED
1439 0 : module procedure getUSR_RNGF_DM_AC_UXD_D2_RK3
1440 : use pm_kind, only: TKC => RK3
1441 : #include "pm_distUnifSphere@routines.inc.F90"
1442 0 : end procedure
1443 : #endif
1444 :
1445 : #if RK2_ENABLED
1446 0 : module procedure getUSR_RNGF_DM_AC_UXD_D2_RK2
1447 : use pm_kind, only: TKC => RK2
1448 : #include "pm_distUnifSphere@routines.inc.F90"
1449 0 : end procedure
1450 : #endif
1451 :
1452 : #if RK1_ENABLED
1453 0 : module procedure getUSR_RNGF_DM_AC_UXD_D2_RK1
1454 : use pm_kind, only: TKC => RK1
1455 : #include "pm_distUnifSphere@routines.inc.F90"
1456 0 : end procedure
1457 : #endif
1458 :
1459 : #undef RK_ENABLED
1460 :
1461 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1462 :
1463 : #undef UXD_ENABLED
1464 :
1465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1468 :
1469 : #define XLD_ENABLED 1
1470 :
1471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1472 :
1473 : #define RK_ENABLED 1
1474 :
1475 : #if RK5_ENABLED
1476 : module procedure getUSR_RNGF_DM_AC_XLD_D2_RK5
1477 : use pm_kind, only: TKC => RK5
1478 : #include "pm_distUnifSphere@routines.inc.F90"
1479 : end procedure
1480 : #endif
1481 :
1482 : #if RK4_ENABLED
1483 0 : module procedure getUSR_RNGF_DM_AC_XLD_D2_RK4
1484 : use pm_kind, only: TKC => RK4
1485 : #include "pm_distUnifSphere@routines.inc.F90"
1486 0 : end procedure
1487 : #endif
1488 :
1489 : #if RK3_ENABLED
1490 0 : module procedure getUSR_RNGF_DM_AC_XLD_D2_RK3
1491 : use pm_kind, only: TKC => RK3
1492 : #include "pm_distUnifSphere@routines.inc.F90"
1493 0 : end procedure
1494 : #endif
1495 :
1496 : #if RK2_ENABLED
1497 0 : module procedure getUSR_RNGF_DM_AC_XLD_D2_RK2
1498 : use pm_kind, only: TKC => RK2
1499 : #include "pm_distUnifSphere@routines.inc.F90"
1500 0 : end procedure
1501 : #endif
1502 :
1503 : #if RK1_ENABLED
1504 0 : module procedure getUSR_RNGF_DM_AC_XLD_D2_RK1
1505 : use pm_kind, only: TKC => RK1
1506 : #include "pm_distUnifSphere@routines.inc.F90"
1507 0 : end procedure
1508 : #endif
1509 :
1510 : #undef RK_ENABLED
1511 :
1512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1513 :
1514 : #undef XLD_ENABLED
1515 :
1516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1518 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1519 :
1520 : #undef AC_ENABLED
1521 :
1522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1525 :
1526 : #undef DM_ENABLED
1527 :
1528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1529 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1531 :
1532 : #define AM_ENABLED 1
1533 :
1534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1537 :
1538 : #define DC_ENABLED 1
1539 :
1540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1541 :
1542 : #define RK_ENABLED 1
1543 :
1544 : #if RK5_ENABLED
1545 : module procedure getUSR_RNGF_AM_DC_XXX_D2_RK5
1546 : use pm_kind, only: TKC => RK5
1547 : #include "pm_distUnifSphere@routines.inc.F90"
1548 : end procedure
1549 : #endif
1550 :
1551 : #if RK4_ENABLED
1552 0 : module procedure getUSR_RNGF_AM_DC_XXX_D2_RK4
1553 : use pm_kind, only: TKC => RK4
1554 : #include "pm_distUnifSphere@routines.inc.F90"
1555 0 : end procedure
1556 : #endif
1557 :
1558 : #if RK3_ENABLED
1559 0 : module procedure getUSR_RNGF_AM_DC_XXX_D2_RK3
1560 : use pm_kind, only: TKC => RK3
1561 : #include "pm_distUnifSphere@routines.inc.F90"
1562 0 : end procedure
1563 : #endif
1564 :
1565 : #if RK2_ENABLED
1566 0 : module procedure getUSR_RNGF_AM_DC_XXX_D2_RK2
1567 : use pm_kind, only: TKC => RK2
1568 : #include "pm_distUnifSphere@routines.inc.F90"
1569 0 : end procedure
1570 : #endif
1571 :
1572 : #if RK1_ENABLED
1573 0 : module procedure getUSR_RNGF_AM_DC_XXX_D2_RK1
1574 : use pm_kind, only: TKC => RK1
1575 : #include "pm_distUnifSphere@routines.inc.F90"
1576 0 : end procedure
1577 : #endif
1578 :
1579 : #undef RK_ENABLED
1580 :
1581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1582 :
1583 : #undef DC_ENABLED
1584 :
1585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1588 :
1589 : #define AC_ENABLED 1
1590 :
1591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1592 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1593 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1594 :
1595 : #define UXD_ENABLED 1
1596 :
1597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1598 :
1599 : #define RK_ENABLED 1
1600 :
1601 : #if RK5_ENABLED
1602 : module procedure getUSR_RNGF_AM_AC_UXD_D2_RK5
1603 : use pm_kind, only: TKC => RK5
1604 : #include "pm_distUnifSphere@routines.inc.F90"
1605 : end procedure
1606 : #endif
1607 :
1608 : #if RK4_ENABLED
1609 0 : module procedure getUSR_RNGF_AM_AC_UXD_D2_RK4
1610 : use pm_kind, only: TKC => RK4
1611 : #include "pm_distUnifSphere@routines.inc.F90"
1612 0 : end procedure
1613 : #endif
1614 :
1615 : #if RK3_ENABLED
1616 0 : module procedure getUSR_RNGF_AM_AC_UXD_D2_RK3
1617 : use pm_kind, only: TKC => RK3
1618 : #include "pm_distUnifSphere@routines.inc.F90"
1619 0 : end procedure
1620 : #endif
1621 :
1622 : #if RK2_ENABLED
1623 0 : module procedure getUSR_RNGF_AM_AC_UXD_D2_RK2
1624 : use pm_kind, only: TKC => RK2
1625 : #include "pm_distUnifSphere@routines.inc.F90"
1626 0 : end procedure
1627 : #endif
1628 :
1629 : #if RK1_ENABLED
1630 0 : module procedure getUSR_RNGF_AM_AC_UXD_D2_RK1
1631 : use pm_kind, only: TKC => RK1
1632 : #include "pm_distUnifSphere@routines.inc.F90"
1633 0 : end procedure
1634 : #endif
1635 :
1636 : #undef RK_ENABLED
1637 :
1638 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1639 :
1640 : #undef UXD_ENABLED
1641 :
1642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1643 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1644 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1645 :
1646 : #define XLD_ENABLED 1
1647 :
1648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1649 :
1650 : #define RK_ENABLED 1
1651 :
1652 : #if RK5_ENABLED
1653 : module procedure getUSR_RNGF_AM_AC_XLD_D2_RK5
1654 : use pm_kind, only: TKC => RK5
1655 : #include "pm_distUnifSphere@routines.inc.F90"
1656 : end procedure
1657 : #endif
1658 :
1659 : #if RK4_ENABLED
1660 0 : module procedure getUSR_RNGF_AM_AC_XLD_D2_RK4
1661 : use pm_kind, only: TKC => RK4
1662 : #include "pm_distUnifSphere@routines.inc.F90"
1663 0 : end procedure
1664 : #endif
1665 :
1666 : #if RK3_ENABLED
1667 0 : module procedure getUSR_RNGF_AM_AC_XLD_D2_RK3
1668 : use pm_kind, only: TKC => RK3
1669 : #include "pm_distUnifSphere@routines.inc.F90"
1670 0 : end procedure
1671 : #endif
1672 :
1673 : #if RK2_ENABLED
1674 0 : module procedure getUSR_RNGF_AM_AC_XLD_D2_RK2
1675 : use pm_kind, only: TKC => RK2
1676 : #include "pm_distUnifSphere@routines.inc.F90"
1677 0 : end procedure
1678 : #endif
1679 :
1680 : #if RK1_ENABLED
1681 0 : module procedure getUSR_RNGF_AM_AC_XLD_D2_RK1
1682 : use pm_kind, only: TKC => RK1
1683 : #include "pm_distUnifSphere@routines.inc.F90"
1684 0 : end procedure
1685 : #endif
1686 :
1687 : #undef RK_ENABLED
1688 :
1689 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1690 :
1691 : #undef XLD_ENABLED
1692 :
1693 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1694 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1695 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1696 :
1697 : #undef AC_ENABLED
1698 :
1699 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1700 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1701 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1702 :
1703 : #undef AM_ENABLED
1704 :
1705 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1706 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1707 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1708 :
1709 : #undef RNGF_ENABLED
1710 :
1711 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1712 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1713 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1714 :
1715 : #define RNGX_ENABLED 1
1716 :
1717 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1718 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1719 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1720 :
1721 : #define DM_ENABLED 1
1722 :
1723 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1724 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1725 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1726 :
1727 : #define AC_ENABLED 1
1728 :
1729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1730 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1731 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1732 :
1733 : #define UXD_ENABLED 1
1734 :
1735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1736 :
1737 : #define RK_ENABLED 1
1738 :
1739 : #if RK5_ENABLED
1740 : module procedure getUSR_RNGX_DM_AC_UXD_D2_RK5
1741 : use pm_kind, only: TKC => RK5
1742 : #include "pm_distUnifSphere@routines.inc.F90"
1743 : end procedure
1744 : #endif
1745 :
1746 : #if RK4_ENABLED
1747 0 : module procedure getUSR_RNGX_DM_AC_UXD_D2_RK4
1748 : use pm_kind, only: TKC => RK4
1749 : #include "pm_distUnifSphere@routines.inc.F90"
1750 0 : end procedure
1751 : #endif
1752 :
1753 : #if RK3_ENABLED
1754 0 : module procedure getUSR_RNGX_DM_AC_UXD_D2_RK3
1755 : use pm_kind, only: TKC => RK3
1756 : #include "pm_distUnifSphere@routines.inc.F90"
1757 0 : end procedure
1758 : #endif
1759 :
1760 : #if RK2_ENABLED
1761 0 : module procedure getUSR_RNGX_DM_AC_UXD_D2_RK2
1762 : use pm_kind, only: TKC => RK2
1763 : #include "pm_distUnifSphere@routines.inc.F90"
1764 0 : end procedure
1765 : #endif
1766 :
1767 : #if RK1_ENABLED
1768 0 : module procedure getUSR_RNGX_DM_AC_UXD_D2_RK1
1769 : use pm_kind, only: TKC => RK1
1770 : #include "pm_distUnifSphere@routines.inc.F90"
1771 0 : end procedure
1772 : #endif
1773 :
1774 : #undef RK_ENABLED
1775 :
1776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1777 :
1778 : #undef UXD_ENABLED
1779 :
1780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1781 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1783 :
1784 : #define XLD_ENABLED 1
1785 :
1786 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1787 :
1788 : #define RK_ENABLED 1
1789 :
1790 : #if RK5_ENABLED
1791 : module procedure getUSR_RNGX_DM_AC_XLD_D2_RK5
1792 : use pm_kind, only: TKC => RK5
1793 : #include "pm_distUnifSphere@routines.inc.F90"
1794 : end procedure
1795 : #endif
1796 :
1797 : #if RK4_ENABLED
1798 0 : module procedure getUSR_RNGX_DM_AC_XLD_D2_RK4
1799 : use pm_kind, only: TKC => RK4
1800 : #include "pm_distUnifSphere@routines.inc.F90"
1801 0 : end procedure
1802 : #endif
1803 :
1804 : #if RK3_ENABLED
1805 0 : module procedure getUSR_RNGX_DM_AC_XLD_D2_RK3
1806 : use pm_kind, only: TKC => RK3
1807 : #include "pm_distUnifSphere@routines.inc.F90"
1808 0 : end procedure
1809 : #endif
1810 :
1811 : #if RK2_ENABLED
1812 0 : module procedure getUSR_RNGX_DM_AC_XLD_D2_RK2
1813 : use pm_kind, only: TKC => RK2
1814 : #include "pm_distUnifSphere@routines.inc.F90"
1815 0 : end procedure
1816 : #endif
1817 :
1818 : #if RK1_ENABLED
1819 0 : module procedure getUSR_RNGX_DM_AC_XLD_D2_RK1
1820 : use pm_kind, only: TKC => RK1
1821 : #include "pm_distUnifSphere@routines.inc.F90"
1822 0 : end procedure
1823 : #endif
1824 :
1825 : #undef RK_ENABLED
1826 :
1827 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1828 :
1829 : #undef XLD_ENABLED
1830 :
1831 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1832 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1833 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1834 :
1835 : #undef AC_ENABLED
1836 :
1837 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1838 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1839 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1840 :
1841 : #undef DM_ENABLED
1842 :
1843 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1844 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1846 :
1847 : #define AM_ENABLED 1
1848 :
1849 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1850 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1851 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1852 :
1853 : #define DC_ENABLED 1
1854 :
1855 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1856 :
1857 : #define RK_ENABLED 1
1858 :
1859 : #if RK5_ENABLED
1860 : module procedure getUSR_RNGX_AM_DC_XXX_D2_RK5
1861 : use pm_kind, only: TKC => RK5
1862 : #include "pm_distUnifSphere@routines.inc.F90"
1863 : end procedure
1864 : #endif
1865 :
1866 : #if RK4_ENABLED
1867 0 : module procedure getUSR_RNGX_AM_DC_XXX_D2_RK4
1868 : use pm_kind, only: TKC => RK4
1869 : #include "pm_distUnifSphere@routines.inc.F90"
1870 0 : end procedure
1871 : #endif
1872 :
1873 : #if RK3_ENABLED
1874 0 : module procedure getUSR_RNGX_AM_DC_XXX_D2_RK3
1875 : use pm_kind, only: TKC => RK3
1876 : #include "pm_distUnifSphere@routines.inc.F90"
1877 0 : end procedure
1878 : #endif
1879 :
1880 : #if RK2_ENABLED
1881 0 : module procedure getUSR_RNGX_AM_DC_XXX_D2_RK2
1882 : use pm_kind, only: TKC => RK2
1883 : #include "pm_distUnifSphere@routines.inc.F90"
1884 0 : end procedure
1885 : #endif
1886 :
1887 : #if RK1_ENABLED
1888 0 : module procedure getUSR_RNGX_AM_DC_XXX_D2_RK1
1889 : use pm_kind, only: TKC => RK1
1890 : #include "pm_distUnifSphere@routines.inc.F90"
1891 0 : end procedure
1892 : #endif
1893 :
1894 : #undef RK_ENABLED
1895 :
1896 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1897 :
1898 : #undef DC_ENABLED
1899 :
1900 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1901 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1902 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1903 :
1904 : #define AC_ENABLED 1
1905 :
1906 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1907 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1908 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1909 :
1910 : #define UXD_ENABLED 1
1911 :
1912 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1913 :
1914 : #define RK_ENABLED 1
1915 :
1916 : #if RK5_ENABLED
1917 : module procedure getUSR_RNGX_AM_AC_UXD_D2_RK5
1918 : use pm_kind, only: TKC => RK5
1919 : #include "pm_distUnifSphere@routines.inc.F90"
1920 : end procedure
1921 : #endif
1922 :
1923 : #if RK4_ENABLED
1924 0 : module procedure getUSR_RNGX_AM_AC_UXD_D2_RK4
1925 : use pm_kind, only: TKC => RK4
1926 : #include "pm_distUnifSphere@routines.inc.F90"
1927 0 : end procedure
1928 : #endif
1929 :
1930 : #if RK3_ENABLED
1931 0 : module procedure getUSR_RNGX_AM_AC_UXD_D2_RK3
1932 : use pm_kind, only: TKC => RK3
1933 : #include "pm_distUnifSphere@routines.inc.F90"
1934 0 : end procedure
1935 : #endif
1936 :
1937 : #if RK2_ENABLED
1938 0 : module procedure getUSR_RNGX_AM_AC_UXD_D2_RK2
1939 : use pm_kind, only: TKC => RK2
1940 : #include "pm_distUnifSphere@routines.inc.F90"
1941 0 : end procedure
1942 : #endif
1943 :
1944 : #if RK1_ENABLED
1945 0 : module procedure getUSR_RNGX_AM_AC_UXD_D2_RK1
1946 : use pm_kind, only: TKC => RK1
1947 : #include "pm_distUnifSphere@routines.inc.F90"
1948 0 : end procedure
1949 : #endif
1950 :
1951 : #undef RK_ENABLED
1952 :
1953 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1954 :
1955 : #undef UXD_ENABLED
1956 :
1957 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1958 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1959 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1960 :
1961 : #define XLD_ENABLED 1
1962 :
1963 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1964 :
1965 : #define RK_ENABLED 1
1966 :
1967 : #if RK5_ENABLED
1968 : module procedure getUSR_RNGX_AM_AC_XLD_D2_RK5
1969 : use pm_kind, only: TKC => RK5
1970 : #include "pm_distUnifSphere@routines.inc.F90"
1971 : end procedure
1972 : #endif
1973 :
1974 : #if RK4_ENABLED
1975 0 : module procedure getUSR_RNGX_AM_AC_XLD_D2_RK4
1976 : use pm_kind, only: TKC => RK4
1977 : #include "pm_distUnifSphere@routines.inc.F90"
1978 0 : end procedure
1979 : #endif
1980 :
1981 : #if RK3_ENABLED
1982 0 : module procedure getUSR_RNGX_AM_AC_XLD_D2_RK3
1983 : use pm_kind, only: TKC => RK3
1984 : #include "pm_distUnifSphere@routines.inc.F90"
1985 0 : end procedure
1986 : #endif
1987 :
1988 : #if RK2_ENABLED
1989 0 : module procedure getUSR_RNGX_AM_AC_XLD_D2_RK2
1990 : use pm_kind, only: TKC => RK2
1991 : #include "pm_distUnifSphere@routines.inc.F90"
1992 0 : end procedure
1993 : #endif
1994 :
1995 : #if RK1_ENABLED
1996 0 : module procedure getUSR_RNGX_AM_AC_XLD_D2_RK1
1997 : use pm_kind, only: TKC => RK1
1998 : #include "pm_distUnifSphere@routines.inc.F90"
1999 0 : end procedure
2000 : #endif
2001 :
2002 : #undef RK_ENABLED
2003 :
2004 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2005 :
2006 : #undef XLD_ENABLED
2007 :
2008 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2009 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2010 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2011 :
2012 : #undef AC_ENABLED
2013 :
2014 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2015 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2016 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2017 :
2018 : #undef AM_ENABLED
2019 :
2020 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2021 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2022 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2023 :
2024 : #undef RNGX_ENABLED
2025 :
2026 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2027 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2028 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2029 :
2030 : #undef D2_ENABLED
2031 :
2032 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2033 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2034 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2035 :
2036 : #undef getUSR_ENABLED
2037 :
2038 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2039 :
2040 : #define setUSR_ENABLED 1
2041 :
2042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2043 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2044 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2045 :
2046 : #define D1_ENABLED 1
2047 :
2048 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2049 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2050 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2051 :
2052 : #define RNGD_ENABLED 1
2053 :
2054 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2055 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2056 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2057 :
2058 : #define DM_ENABLED 1
2059 :
2060 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2061 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2062 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2063 :
2064 : #define DC_ENABLED 1
2065 :
2066 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2067 :
2068 : #define RK_ENABLED 1
2069 :
2070 : #if RK5_ENABLED
2071 : module procedure setUSR_RNGD_DM_DC_XXX_D1_RK5
2072 : use pm_kind, only: TKC => RK5
2073 : #include "pm_distUnifSphere@routines.inc.F90"
2074 : end procedure
2075 : #endif
2076 :
2077 : #if RK4_ENABLED
2078 0 : module procedure setUSR_RNGD_DM_DC_XXX_D1_RK4
2079 : use pm_kind, only: TKC => RK4
2080 : #include "pm_distUnifSphere@routines.inc.F90"
2081 0 : end procedure
2082 : #endif
2083 :
2084 : #if RK3_ENABLED
2085 0 : module procedure setUSR_RNGD_DM_DC_XXX_D1_RK3
2086 : use pm_kind, only: TKC => RK3
2087 : #include "pm_distUnifSphere@routines.inc.F90"
2088 0 : end procedure
2089 : #endif
2090 :
2091 : #if RK2_ENABLED
2092 151 : module procedure setUSR_RNGD_DM_DC_XXX_D1_RK2
2093 : use pm_kind, only: TKC => RK2
2094 : #include "pm_distUnifSphere@routines.inc.F90"
2095 151 : end procedure
2096 : #endif
2097 :
2098 : #if RK1_ENABLED
2099 0 : module procedure setUSR_RNGD_DM_DC_XXX_D1_RK1
2100 : use pm_kind, only: TKC => RK1
2101 : #include "pm_distUnifSphere@routines.inc.F90"
2102 0 : end procedure
2103 : #endif
2104 :
2105 : #undef RK_ENABLED
2106 :
2107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2108 :
2109 : #undef DC_ENABLED
2110 :
2111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2112 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2114 :
2115 : #define AC_ENABLED 1
2116 :
2117 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2118 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2120 :
2121 : #define UXD_ENABLED 1
2122 :
2123 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2124 :
2125 : #define RK_ENABLED 1
2126 :
2127 : #if RK5_ENABLED
2128 : module procedure setUSR_RNGD_DM_AC_UXD_D1_RK5
2129 : use pm_kind, only: TKC => RK5
2130 : #include "pm_distUnifSphere@routines.inc.F90"
2131 : end procedure
2132 : #endif
2133 :
2134 : #if RK4_ENABLED
2135 0 : module procedure setUSR_RNGD_DM_AC_UXD_D1_RK4
2136 : use pm_kind, only: TKC => RK4
2137 : #include "pm_distUnifSphere@routines.inc.F90"
2138 0 : end procedure
2139 : #endif
2140 :
2141 : #if RK3_ENABLED
2142 0 : module procedure setUSR_RNGD_DM_AC_UXD_D1_RK3
2143 : use pm_kind, only: TKC => RK3
2144 : #include "pm_distUnifSphere@routines.inc.F90"
2145 0 : end procedure
2146 : #endif
2147 :
2148 : #if RK2_ENABLED
2149 0 : module procedure setUSR_RNGD_DM_AC_UXD_D1_RK2
2150 : use pm_kind, only: TKC => RK2
2151 : #include "pm_distUnifSphere@routines.inc.F90"
2152 0 : end procedure
2153 : #endif
2154 :
2155 : #if RK1_ENABLED
2156 0 : module procedure setUSR_RNGD_DM_AC_UXD_D1_RK1
2157 : use pm_kind, only: TKC => RK1
2158 : #include "pm_distUnifSphere@routines.inc.F90"
2159 0 : end procedure
2160 : #endif
2161 :
2162 : #undef RK_ENABLED
2163 :
2164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2165 :
2166 : #undef UXD_ENABLED
2167 :
2168 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2171 :
2172 : #define XLD_ENABLED 1
2173 :
2174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2175 :
2176 : #define RK_ENABLED 1
2177 :
2178 : #if RK5_ENABLED
2179 : module procedure setUSR_RNGD_DM_AC_XLD_D1_RK5
2180 : use pm_kind, only: TKC => RK5
2181 : #include "pm_distUnifSphere@routines.inc.F90"
2182 : end procedure
2183 : #endif
2184 :
2185 : #if RK4_ENABLED
2186 0 : module procedure setUSR_RNGD_DM_AC_XLD_D1_RK4
2187 : use pm_kind, only: TKC => RK4
2188 : #include "pm_distUnifSphere@routines.inc.F90"
2189 0 : end procedure
2190 : #endif
2191 :
2192 : #if RK3_ENABLED
2193 0 : module procedure setUSR_RNGD_DM_AC_XLD_D1_RK3
2194 : use pm_kind, only: TKC => RK3
2195 : #include "pm_distUnifSphere@routines.inc.F90"
2196 0 : end procedure
2197 : #endif
2198 :
2199 : #if RK2_ENABLED
2200 252 : module procedure setUSR_RNGD_DM_AC_XLD_D1_RK2
2201 : use pm_kind, only: TKC => RK2
2202 : #include "pm_distUnifSphere@routines.inc.F90"
2203 252 : end procedure
2204 : #endif
2205 :
2206 : #if RK1_ENABLED
2207 0 : module procedure setUSR_RNGD_DM_AC_XLD_D1_RK1
2208 : use pm_kind, only: TKC => RK1
2209 : #include "pm_distUnifSphere@routines.inc.F90"
2210 0 : end procedure
2211 : #endif
2212 :
2213 : #undef RK_ENABLED
2214 :
2215 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2216 :
2217 : #undef XLD_ENABLED
2218 :
2219 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2220 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2222 :
2223 : #undef AC_ENABLED
2224 :
2225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2226 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2227 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2228 :
2229 : #undef DM_ENABLED
2230 :
2231 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2232 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2233 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2234 :
2235 : #define AM_ENABLED 1
2236 :
2237 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2238 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2239 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2240 :
2241 : #define DC_ENABLED 1
2242 :
2243 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2244 :
2245 : #define RK_ENABLED 1
2246 :
2247 : #if RK5_ENABLED
2248 : module procedure setUSR_RNGD_AM_DC_XXX_D1_RK5
2249 : use pm_kind, only: TKC => RK5
2250 : #include "pm_distUnifSphere@routines.inc.F90"
2251 : end procedure
2252 : #endif
2253 :
2254 : #if RK4_ENABLED
2255 0 : module procedure setUSR_RNGD_AM_DC_XXX_D1_RK4
2256 : use pm_kind, only: TKC => RK4
2257 : #include "pm_distUnifSphere@routines.inc.F90"
2258 0 : end procedure
2259 : #endif
2260 :
2261 : #if RK3_ENABLED
2262 0 : module procedure setUSR_RNGD_AM_DC_XXX_D1_RK3
2263 : use pm_kind, only: TKC => RK3
2264 : #include "pm_distUnifSphere@routines.inc.F90"
2265 0 : end procedure
2266 : #endif
2267 :
2268 : #if RK2_ENABLED
2269 252 : module procedure setUSR_RNGD_AM_DC_XXX_D1_RK2
2270 : use pm_kind, only: TKC => RK2
2271 : #include "pm_distUnifSphere@routines.inc.F90"
2272 252 : end procedure
2273 : #endif
2274 :
2275 : #if RK1_ENABLED
2276 0 : module procedure setUSR_RNGD_AM_DC_XXX_D1_RK1
2277 : use pm_kind, only: TKC => RK1
2278 : #include "pm_distUnifSphere@routines.inc.F90"
2279 0 : end procedure
2280 : #endif
2281 :
2282 : #undef RK_ENABLED
2283 :
2284 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2285 :
2286 : #undef DC_ENABLED
2287 :
2288 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2291 :
2292 : #define AC_ENABLED 1
2293 :
2294 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2295 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2296 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2297 :
2298 : #define UXD_ENABLED 1
2299 :
2300 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2301 :
2302 : #define RK_ENABLED 1
2303 :
2304 : #if RK5_ENABLED
2305 : module procedure setUSR_RNGD_AM_AC_UXD_D1_RK5
2306 : use pm_kind, only: TKC => RK5
2307 : #include "pm_distUnifSphere@routines.inc.F90"
2308 : end procedure
2309 : #endif
2310 :
2311 : #if RK4_ENABLED
2312 0 : module procedure setUSR_RNGD_AM_AC_UXD_D1_RK4
2313 : use pm_kind, only: TKC => RK4
2314 : #include "pm_distUnifSphere@routines.inc.F90"
2315 0 : end procedure
2316 : #endif
2317 :
2318 : #if RK3_ENABLED
2319 0 : module procedure setUSR_RNGD_AM_AC_UXD_D1_RK3
2320 : use pm_kind, only: TKC => RK3
2321 : #include "pm_distUnifSphere@routines.inc.F90"
2322 0 : end procedure
2323 : #endif
2324 :
2325 : #if RK2_ENABLED
2326 0 : module procedure setUSR_RNGD_AM_AC_UXD_D1_RK2
2327 : use pm_kind, only: TKC => RK2
2328 : #include "pm_distUnifSphere@routines.inc.F90"
2329 0 : end procedure
2330 : #endif
2331 :
2332 : #if RK1_ENABLED
2333 0 : module procedure setUSR_RNGD_AM_AC_UXD_D1_RK1
2334 : use pm_kind, only: TKC => RK1
2335 : #include "pm_distUnifSphere@routines.inc.F90"
2336 0 : end procedure
2337 : #endif
2338 :
2339 : #undef RK_ENABLED
2340 :
2341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2342 :
2343 : #undef UXD_ENABLED
2344 :
2345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2347 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2348 :
2349 : #define XLD_ENABLED 1
2350 :
2351 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2352 :
2353 : #define RK_ENABLED 1
2354 :
2355 : #if RK5_ENABLED
2356 : module procedure setUSR_RNGD_AM_AC_XLD_D1_RK5
2357 : use pm_kind, only: TKC => RK5
2358 : #include "pm_distUnifSphere@routines.inc.F90"
2359 : end procedure
2360 : #endif
2361 :
2362 : #if RK4_ENABLED
2363 0 : module procedure setUSR_RNGD_AM_AC_XLD_D1_RK4
2364 : use pm_kind, only: TKC => RK4
2365 : #include "pm_distUnifSphere@routines.inc.F90"
2366 0 : end procedure
2367 : #endif
2368 :
2369 : #if RK3_ENABLED
2370 0 : module procedure setUSR_RNGD_AM_AC_XLD_D1_RK3
2371 : use pm_kind, only: TKC => RK3
2372 : #include "pm_distUnifSphere@routines.inc.F90"
2373 0 : end procedure
2374 : #endif
2375 :
2376 : #if RK2_ENABLED
2377 252 : module procedure setUSR_RNGD_AM_AC_XLD_D1_RK2
2378 : use pm_kind, only: TKC => RK2
2379 : #include "pm_distUnifSphere@routines.inc.F90"
2380 252 : end procedure
2381 : #endif
2382 :
2383 : #if RK1_ENABLED
2384 0 : module procedure setUSR_RNGD_AM_AC_XLD_D1_RK1
2385 : use pm_kind, only: TKC => RK1
2386 : #include "pm_distUnifSphere@routines.inc.F90"
2387 0 : end procedure
2388 : #endif
2389 :
2390 : #undef RK_ENABLED
2391 :
2392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2393 :
2394 : #undef XLD_ENABLED
2395 :
2396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2399 :
2400 : #undef AC_ENABLED
2401 :
2402 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2403 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2404 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2405 :
2406 : #undef AM_ENABLED
2407 :
2408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2409 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2411 :
2412 : #undef RNGD_ENABLED
2413 :
2414 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2415 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2417 :
2418 : #define RNGF_ENABLED 1
2419 :
2420 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2423 :
2424 : #define DM_ENABLED 1
2425 :
2426 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2427 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2429 :
2430 : #define DC_ENABLED 1
2431 :
2432 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2433 :
2434 : #define RK_ENABLED 1
2435 :
2436 : #if RK5_ENABLED
2437 : module procedure setUSR_RNGF_DM_DC_XXX_D1_RK5
2438 : use pm_kind, only: TKC => RK5
2439 : #include "pm_distUnifSphere@routines.inc.F90"
2440 : end procedure
2441 : #endif
2442 :
2443 : #if RK4_ENABLED
2444 0 : module procedure setUSR_RNGF_DM_DC_XXX_D1_RK4
2445 : use pm_kind, only: TKC => RK4
2446 : #include "pm_distUnifSphere@routines.inc.F90"
2447 0 : end procedure
2448 : #endif
2449 :
2450 : #if RK3_ENABLED
2451 0 : module procedure setUSR_RNGF_DM_DC_XXX_D1_RK3
2452 : use pm_kind, only: TKC => RK3
2453 : #include "pm_distUnifSphere@routines.inc.F90"
2454 0 : end procedure
2455 : #endif
2456 :
2457 : #if RK2_ENABLED
2458 0 : module procedure setUSR_RNGF_DM_DC_XXX_D1_RK2
2459 : use pm_kind, only: TKC => RK2
2460 : #include "pm_distUnifSphere@routines.inc.F90"
2461 0 : end procedure
2462 : #endif
2463 :
2464 : #if RK1_ENABLED
2465 0 : module procedure setUSR_RNGF_DM_DC_XXX_D1_RK1
2466 : use pm_kind, only: TKC => RK1
2467 : #include "pm_distUnifSphere@routines.inc.F90"
2468 0 : end procedure
2469 : #endif
2470 :
2471 : #undef RK_ENABLED
2472 :
2473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2474 :
2475 : #undef DC_ENABLED
2476 :
2477 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2479 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2480 :
2481 : #define AC_ENABLED 1
2482 :
2483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2485 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2486 :
2487 : #define UXD_ENABLED 1
2488 :
2489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2490 :
2491 : #define RK_ENABLED 1
2492 :
2493 : #if RK5_ENABLED
2494 : module procedure setUSR_RNGF_DM_AC_UXD_D1_RK5
2495 : use pm_kind, only: TKC => RK5
2496 : #include "pm_distUnifSphere@routines.inc.F90"
2497 : end procedure
2498 : #endif
2499 :
2500 : #if RK4_ENABLED
2501 0 : module procedure setUSR_RNGF_DM_AC_UXD_D1_RK4
2502 : use pm_kind, only: TKC => RK4
2503 : #include "pm_distUnifSphere@routines.inc.F90"
2504 0 : end procedure
2505 : #endif
2506 :
2507 : #if RK3_ENABLED
2508 0 : module procedure setUSR_RNGF_DM_AC_UXD_D1_RK3
2509 : use pm_kind, only: TKC => RK3
2510 : #include "pm_distUnifSphere@routines.inc.F90"
2511 0 : end procedure
2512 : #endif
2513 :
2514 : #if RK2_ENABLED
2515 0 : module procedure setUSR_RNGF_DM_AC_UXD_D1_RK2
2516 : use pm_kind, only: TKC => RK2
2517 : #include "pm_distUnifSphere@routines.inc.F90"
2518 0 : end procedure
2519 : #endif
2520 :
2521 : #if RK1_ENABLED
2522 0 : module procedure setUSR_RNGF_DM_AC_UXD_D1_RK1
2523 : use pm_kind, only: TKC => RK1
2524 : #include "pm_distUnifSphere@routines.inc.F90"
2525 0 : end procedure
2526 : #endif
2527 :
2528 : #undef RK_ENABLED
2529 :
2530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2531 :
2532 : #undef UXD_ENABLED
2533 :
2534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2537 :
2538 : #define XLD_ENABLED 1
2539 :
2540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2541 :
2542 : #define RK_ENABLED 1
2543 :
2544 : #if RK5_ENABLED
2545 : module procedure setUSR_RNGF_DM_AC_XLD_D1_RK5
2546 : use pm_kind, only: TKC => RK5
2547 : #include "pm_distUnifSphere@routines.inc.F90"
2548 : end procedure
2549 : #endif
2550 :
2551 : #if RK4_ENABLED
2552 0 : module procedure setUSR_RNGF_DM_AC_XLD_D1_RK4
2553 : use pm_kind, only: TKC => RK4
2554 : #include "pm_distUnifSphere@routines.inc.F90"
2555 0 : end procedure
2556 : #endif
2557 :
2558 : #if RK3_ENABLED
2559 0 : module procedure setUSR_RNGF_DM_AC_XLD_D1_RK3
2560 : use pm_kind, only: TKC => RK3
2561 : #include "pm_distUnifSphere@routines.inc.F90"
2562 0 : end procedure
2563 : #endif
2564 :
2565 : #if RK2_ENABLED
2566 0 : module procedure setUSR_RNGF_DM_AC_XLD_D1_RK2
2567 : use pm_kind, only: TKC => RK2
2568 : #include "pm_distUnifSphere@routines.inc.F90"
2569 0 : end procedure
2570 : #endif
2571 :
2572 : #if RK1_ENABLED
2573 0 : module procedure setUSR_RNGF_DM_AC_XLD_D1_RK1
2574 : use pm_kind, only: TKC => RK1
2575 : #include "pm_distUnifSphere@routines.inc.F90"
2576 0 : end procedure
2577 : #endif
2578 :
2579 : #undef RK_ENABLED
2580 :
2581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2582 :
2583 : #undef XLD_ENABLED
2584 :
2585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2588 :
2589 : #undef AC_ENABLED
2590 :
2591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2592 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2593 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2594 :
2595 : #undef DM_ENABLED
2596 :
2597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2598 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2599 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2600 :
2601 : #define AM_ENABLED 1
2602 :
2603 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2604 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2605 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2606 :
2607 : #define DC_ENABLED 1
2608 :
2609 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2610 :
2611 : #define RK_ENABLED 1
2612 :
2613 : #if RK5_ENABLED
2614 : module procedure setUSR_RNGF_AM_DC_XXX_D1_RK5
2615 : use pm_kind, only: TKC => RK5
2616 : #include "pm_distUnifSphere@routines.inc.F90"
2617 : end procedure
2618 : #endif
2619 :
2620 : #if RK4_ENABLED
2621 0 : module procedure setUSR_RNGF_AM_DC_XXX_D1_RK4
2622 : use pm_kind, only: TKC => RK4
2623 : #include "pm_distUnifSphere@routines.inc.F90"
2624 0 : end procedure
2625 : #endif
2626 :
2627 : #if RK3_ENABLED
2628 0 : module procedure setUSR_RNGF_AM_DC_XXX_D1_RK3
2629 : use pm_kind, only: TKC => RK3
2630 : #include "pm_distUnifSphere@routines.inc.F90"
2631 0 : end procedure
2632 : #endif
2633 :
2634 : #if RK2_ENABLED
2635 0 : module procedure setUSR_RNGF_AM_DC_XXX_D1_RK2
2636 : use pm_kind, only: TKC => RK2
2637 : #include "pm_distUnifSphere@routines.inc.F90"
2638 0 : end procedure
2639 : #endif
2640 :
2641 : #if RK1_ENABLED
2642 0 : module procedure setUSR_RNGF_AM_DC_XXX_D1_RK1
2643 : use pm_kind, only: TKC => RK1
2644 : #include "pm_distUnifSphere@routines.inc.F90"
2645 0 : end procedure
2646 : #endif
2647 :
2648 : #undef RK_ENABLED
2649 :
2650 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2651 :
2652 : #undef DC_ENABLED
2653 :
2654 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2655 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2656 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2657 :
2658 : #define AC_ENABLED 1
2659 :
2660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2661 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2663 :
2664 : #define UXD_ENABLED 1
2665 :
2666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2667 :
2668 : #define RK_ENABLED 1
2669 :
2670 : #if RK5_ENABLED
2671 : module procedure setUSR_RNGF_AM_AC_UXD_D1_RK5
2672 : use pm_kind, only: TKC => RK5
2673 : #include "pm_distUnifSphere@routines.inc.F90"
2674 : end procedure
2675 : #endif
2676 :
2677 : #if RK4_ENABLED
2678 0 : module procedure setUSR_RNGF_AM_AC_UXD_D1_RK4
2679 : use pm_kind, only: TKC => RK4
2680 : #include "pm_distUnifSphere@routines.inc.F90"
2681 0 : end procedure
2682 : #endif
2683 :
2684 : #if RK3_ENABLED
2685 0 : module procedure setUSR_RNGF_AM_AC_UXD_D1_RK3
2686 : use pm_kind, only: TKC => RK3
2687 : #include "pm_distUnifSphere@routines.inc.F90"
2688 0 : end procedure
2689 : #endif
2690 :
2691 : #if RK2_ENABLED
2692 0 : module procedure setUSR_RNGF_AM_AC_UXD_D1_RK2
2693 : use pm_kind, only: TKC => RK2
2694 : #include "pm_distUnifSphere@routines.inc.F90"
2695 0 : end procedure
2696 : #endif
2697 :
2698 : #if RK1_ENABLED
2699 0 : module procedure setUSR_RNGF_AM_AC_UXD_D1_RK1
2700 : use pm_kind, only: TKC => RK1
2701 : #include "pm_distUnifSphere@routines.inc.F90"
2702 0 : end procedure
2703 : #endif
2704 :
2705 : #undef RK_ENABLED
2706 :
2707 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2708 :
2709 : #undef UXD_ENABLED
2710 :
2711 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2712 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2713 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2714 :
2715 : #define XLD_ENABLED 1
2716 :
2717 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2718 :
2719 : #define RK_ENABLED 1
2720 :
2721 : #if RK5_ENABLED
2722 : module procedure setUSR_RNGF_AM_AC_XLD_D1_RK5
2723 : use pm_kind, only: TKC => RK5
2724 : #include "pm_distUnifSphere@routines.inc.F90"
2725 : end procedure
2726 : #endif
2727 :
2728 : #if RK4_ENABLED
2729 0 : module procedure setUSR_RNGF_AM_AC_XLD_D1_RK4
2730 : use pm_kind, only: TKC => RK4
2731 : #include "pm_distUnifSphere@routines.inc.F90"
2732 0 : end procedure
2733 : #endif
2734 :
2735 : #if RK3_ENABLED
2736 0 : module procedure setUSR_RNGF_AM_AC_XLD_D1_RK3
2737 : use pm_kind, only: TKC => RK3
2738 : #include "pm_distUnifSphere@routines.inc.F90"
2739 0 : end procedure
2740 : #endif
2741 :
2742 : #if RK2_ENABLED
2743 0 : module procedure setUSR_RNGF_AM_AC_XLD_D1_RK2
2744 : use pm_kind, only: TKC => RK2
2745 : #include "pm_distUnifSphere@routines.inc.F90"
2746 0 : end procedure
2747 : #endif
2748 :
2749 : #if RK1_ENABLED
2750 0 : module procedure setUSR_RNGF_AM_AC_XLD_D1_RK1
2751 : use pm_kind, only: TKC => RK1
2752 : #include "pm_distUnifSphere@routines.inc.F90"
2753 0 : end procedure
2754 : #endif
2755 :
2756 : #undef RK_ENABLED
2757 :
2758 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2759 :
2760 : #undef XLD_ENABLED
2761 :
2762 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2763 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2764 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2765 :
2766 : #undef AC_ENABLED
2767 :
2768 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2769 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2770 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2771 :
2772 : #undef AM_ENABLED
2773 :
2774 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2775 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2777 :
2778 : #undef RNGF_ENABLED
2779 :
2780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2781 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2783 :
2784 : #define RNGX_ENABLED 1
2785 :
2786 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2787 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2789 :
2790 : #define DM_ENABLED 1
2791 :
2792 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2793 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2794 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2795 :
2796 : #define DC_ENABLED 1
2797 :
2798 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2799 :
2800 : #define RK_ENABLED 1
2801 :
2802 : #if RK5_ENABLED
2803 : module procedure setUSR_RNGX_DM_DC_XXX_D1_RK5
2804 : use pm_kind, only: TKC => RK5
2805 : #include "pm_distUnifSphere@routines.inc.F90"
2806 : end procedure
2807 : #endif
2808 :
2809 : #if RK4_ENABLED
2810 0 : module procedure setUSR_RNGX_DM_DC_XXX_D1_RK4
2811 : use pm_kind, only: TKC => RK4
2812 : #include "pm_distUnifSphere@routines.inc.F90"
2813 0 : end procedure
2814 : #endif
2815 :
2816 : #if RK3_ENABLED
2817 0 : module procedure setUSR_RNGX_DM_DC_XXX_D1_RK3
2818 : use pm_kind, only: TKC => RK3
2819 : #include "pm_distUnifSphere@routines.inc.F90"
2820 0 : end procedure
2821 : #endif
2822 :
2823 : #if RK2_ENABLED
2824 0 : module procedure setUSR_RNGX_DM_DC_XXX_D1_RK2
2825 : use pm_kind, only: TKC => RK2
2826 : #include "pm_distUnifSphere@routines.inc.F90"
2827 0 : end procedure
2828 : #endif
2829 :
2830 : #if RK1_ENABLED
2831 0 : module procedure setUSR_RNGX_DM_DC_XXX_D1_RK1
2832 : use pm_kind, only: TKC => RK1
2833 : #include "pm_distUnifSphere@routines.inc.F90"
2834 0 : end procedure
2835 : #endif
2836 :
2837 : #undef RK_ENABLED
2838 :
2839 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2840 :
2841 : #undef DC_ENABLED
2842 :
2843 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2844 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2846 :
2847 : #define AC_ENABLED 1
2848 :
2849 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2850 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2851 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2852 :
2853 : #define UXD_ENABLED 1
2854 :
2855 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2856 :
2857 : #define RK_ENABLED 1
2858 :
2859 : #if RK5_ENABLED
2860 : module procedure setUSR_RNGX_DM_AC_UXD_D1_RK5
2861 : use pm_kind, only: TKC => RK5
2862 : #include "pm_distUnifSphere@routines.inc.F90"
2863 : end procedure
2864 : #endif
2865 :
2866 : #if RK4_ENABLED
2867 0 : module procedure setUSR_RNGX_DM_AC_UXD_D1_RK4
2868 : use pm_kind, only: TKC => RK4
2869 : #include "pm_distUnifSphere@routines.inc.F90"
2870 0 : end procedure
2871 : #endif
2872 :
2873 : #if RK3_ENABLED
2874 0 : module procedure setUSR_RNGX_DM_AC_UXD_D1_RK3
2875 : use pm_kind, only: TKC => RK3
2876 : #include "pm_distUnifSphere@routines.inc.F90"
2877 0 : end procedure
2878 : #endif
2879 :
2880 : #if RK2_ENABLED
2881 0 : module procedure setUSR_RNGX_DM_AC_UXD_D1_RK2
2882 : use pm_kind, only: TKC => RK2
2883 : #include "pm_distUnifSphere@routines.inc.F90"
2884 0 : end procedure
2885 : #endif
2886 :
2887 : #if RK1_ENABLED
2888 0 : module procedure setUSR_RNGX_DM_AC_UXD_D1_RK1
2889 : use pm_kind, only: TKC => RK1
2890 : #include "pm_distUnifSphere@routines.inc.F90"
2891 0 : end procedure
2892 : #endif
2893 :
2894 : #undef RK_ENABLED
2895 :
2896 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2897 :
2898 : #undef UXD_ENABLED
2899 :
2900 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2901 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2902 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2903 :
2904 : #define XLD_ENABLED 1
2905 :
2906 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2907 :
2908 : #define RK_ENABLED 1
2909 :
2910 : #if RK5_ENABLED
2911 : module procedure setUSR_RNGX_DM_AC_XLD_D1_RK5
2912 : use pm_kind, only: TKC => RK5
2913 : #include "pm_distUnifSphere@routines.inc.F90"
2914 : end procedure
2915 : #endif
2916 :
2917 : #if RK4_ENABLED
2918 0 : module procedure setUSR_RNGX_DM_AC_XLD_D1_RK4
2919 : use pm_kind, only: TKC => RK4
2920 : #include "pm_distUnifSphere@routines.inc.F90"
2921 0 : end procedure
2922 : #endif
2923 :
2924 : #if RK3_ENABLED
2925 0 : module procedure setUSR_RNGX_DM_AC_XLD_D1_RK3
2926 : use pm_kind, only: TKC => RK3
2927 : #include "pm_distUnifSphere@routines.inc.F90"
2928 0 : end procedure
2929 : #endif
2930 :
2931 : #if RK2_ENABLED
2932 0 : module procedure setUSR_RNGX_DM_AC_XLD_D1_RK2
2933 : use pm_kind, only: TKC => RK2
2934 : #include "pm_distUnifSphere@routines.inc.F90"
2935 0 : end procedure
2936 : #endif
2937 :
2938 : #if RK1_ENABLED
2939 0 : module procedure setUSR_RNGX_DM_AC_XLD_D1_RK1
2940 : use pm_kind, only: TKC => RK1
2941 : #include "pm_distUnifSphere@routines.inc.F90"
2942 0 : end procedure
2943 : #endif
2944 :
2945 : #undef RK_ENABLED
2946 :
2947 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2948 :
2949 : #undef XLD_ENABLED
2950 :
2951 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2952 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2953 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2954 :
2955 : #undef AC_ENABLED
2956 :
2957 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2958 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2959 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2960 :
2961 : #undef DM_ENABLED
2962 :
2963 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2964 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2966 :
2967 : #define AM_ENABLED 1
2968 :
2969 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2971 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2972 :
2973 : #define DC_ENABLED 1
2974 :
2975 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2976 :
2977 : #define RK_ENABLED 1
2978 :
2979 : #if RK5_ENABLED
2980 : module procedure setUSR_RNGX_AM_DC_XXX_D1_RK5
2981 : use pm_kind, only: TKC => RK5
2982 : #include "pm_distUnifSphere@routines.inc.F90"
2983 : end procedure
2984 : #endif
2985 :
2986 : #if RK4_ENABLED
2987 0 : module procedure setUSR_RNGX_AM_DC_XXX_D1_RK4
2988 : use pm_kind, only: TKC => RK4
2989 : #include "pm_distUnifSphere@routines.inc.F90"
2990 0 : end procedure
2991 : #endif
2992 :
2993 : #if RK3_ENABLED
2994 0 : module procedure setUSR_RNGX_AM_DC_XXX_D1_RK3
2995 : use pm_kind, only: TKC => RK3
2996 : #include "pm_distUnifSphere@routines.inc.F90"
2997 0 : end procedure
2998 : #endif
2999 :
3000 : #if RK2_ENABLED
3001 0 : module procedure setUSR_RNGX_AM_DC_XXX_D1_RK2
3002 : use pm_kind, only: TKC => RK2
3003 : #include "pm_distUnifSphere@routines.inc.F90"
3004 0 : end procedure
3005 : #endif
3006 :
3007 : #if RK1_ENABLED
3008 0 : module procedure setUSR_RNGX_AM_DC_XXX_D1_RK1
3009 : use pm_kind, only: TKC => RK1
3010 : #include "pm_distUnifSphere@routines.inc.F90"
3011 0 : end procedure
3012 : #endif
3013 :
3014 : #undef RK_ENABLED
3015 :
3016 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3017 :
3018 : #undef DC_ENABLED
3019 :
3020 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3021 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3022 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3023 :
3024 : #define AC_ENABLED 1
3025 :
3026 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3027 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3028 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3029 :
3030 : #define UXD_ENABLED 1
3031 :
3032 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3033 :
3034 : #define RK_ENABLED 1
3035 :
3036 : #if RK5_ENABLED
3037 : module procedure setUSR_RNGX_AM_AC_UXD_D1_RK5
3038 : use pm_kind, only: TKC => RK5
3039 : #include "pm_distUnifSphere@routines.inc.F90"
3040 : end procedure
3041 : #endif
3042 :
3043 : #if RK4_ENABLED
3044 0 : module procedure setUSR_RNGX_AM_AC_UXD_D1_RK4
3045 : use pm_kind, only: TKC => RK4
3046 : #include "pm_distUnifSphere@routines.inc.F90"
3047 0 : end procedure
3048 : #endif
3049 :
3050 : #if RK3_ENABLED
3051 0 : module procedure setUSR_RNGX_AM_AC_UXD_D1_RK3
3052 : use pm_kind, only: TKC => RK3
3053 : #include "pm_distUnifSphere@routines.inc.F90"
3054 0 : end procedure
3055 : #endif
3056 :
3057 : #if RK2_ENABLED
3058 0 : module procedure setUSR_RNGX_AM_AC_UXD_D1_RK2
3059 : use pm_kind, only: TKC => RK2
3060 : #include "pm_distUnifSphere@routines.inc.F90"
3061 0 : end procedure
3062 : #endif
3063 :
3064 : #if RK1_ENABLED
3065 0 : module procedure setUSR_RNGX_AM_AC_UXD_D1_RK1
3066 : use pm_kind, only: TKC => RK1
3067 : #include "pm_distUnifSphere@routines.inc.F90"
3068 0 : end procedure
3069 : #endif
3070 :
3071 : #undef RK_ENABLED
3072 :
3073 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3074 :
3075 : #undef UXD_ENABLED
3076 :
3077 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3078 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3079 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3080 :
3081 : #define XLD_ENABLED 1
3082 :
3083 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3084 :
3085 : #define RK_ENABLED 1
3086 :
3087 : #if RK5_ENABLED
3088 : module procedure setUSR_RNGX_AM_AC_XLD_D1_RK5
3089 : use pm_kind, only: TKC => RK5
3090 : #include "pm_distUnifSphere@routines.inc.F90"
3091 : end procedure
3092 : #endif
3093 :
3094 : #if RK4_ENABLED
3095 0 : module procedure setUSR_RNGX_AM_AC_XLD_D1_RK4
3096 : use pm_kind, only: TKC => RK4
3097 : #include "pm_distUnifSphere@routines.inc.F90"
3098 0 : end procedure
3099 : #endif
3100 :
3101 : #if RK3_ENABLED
3102 0 : module procedure setUSR_RNGX_AM_AC_XLD_D1_RK3
3103 : use pm_kind, only: TKC => RK3
3104 : #include "pm_distUnifSphere@routines.inc.F90"
3105 0 : end procedure
3106 : #endif
3107 :
3108 : #if RK2_ENABLED
3109 0 : module procedure setUSR_RNGX_AM_AC_XLD_D1_RK2
3110 : use pm_kind, only: TKC => RK2
3111 : #include "pm_distUnifSphere@routines.inc.F90"
3112 0 : end procedure
3113 : #endif
3114 :
3115 : #if RK1_ENABLED
3116 0 : module procedure setUSR_RNGX_AM_AC_XLD_D1_RK1
3117 : use pm_kind, only: TKC => RK1
3118 : #include "pm_distUnifSphere@routines.inc.F90"
3119 0 : end procedure
3120 : #endif
3121 :
3122 : #undef RK_ENABLED
3123 :
3124 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3125 :
3126 : #undef XLD_ENABLED
3127 :
3128 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3129 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3130 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3131 :
3132 : #undef AC_ENABLED
3133 :
3134 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3135 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3137 :
3138 : #undef AM_ENABLED
3139 :
3140 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3141 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3143 :
3144 : #undef RNGX_ENABLED
3145 :
3146 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3147 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3148 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3149 :
3150 : #undef D1_ENABLED
3151 :
3152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3155 :
3156 : #define D2_ENABLED 1
3157 :
3158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3159 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3161 :
3162 : #define RNGD_ENABLED 1
3163 :
3164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3167 :
3168 : #define DM_ENABLED 1
3169 :
3170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3173 :
3174 : #define DC_ENABLED 1
3175 :
3176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3177 :
3178 : #define RK_ENABLED 1
3179 :
3180 : #if RK5_ENABLED
3181 : module procedure setUSR_RNGD_DM_DC_XXX_D2_RK5
3182 : use pm_kind, only: TKC => RK5
3183 : #include "pm_distUnifSphere@routines.inc.F90"
3184 : end procedure
3185 : #endif
3186 :
3187 : #if RK4_ENABLED
3188 0 : module procedure setUSR_RNGD_DM_DC_XXX_D2_RK4
3189 : use pm_kind, only: TKC => RK4
3190 : #include "pm_distUnifSphere@routines.inc.F90"
3191 0 : end procedure
3192 : #endif
3193 :
3194 : #if RK3_ENABLED
3195 0 : module procedure setUSR_RNGD_DM_DC_XXX_D2_RK3
3196 : use pm_kind, only: TKC => RK3
3197 : #include "pm_distUnifSphere@routines.inc.F90"
3198 0 : end procedure
3199 : #endif
3200 :
3201 : #if RK2_ENABLED
3202 0 : module procedure setUSR_RNGD_DM_DC_XXX_D2_RK2
3203 : use pm_kind, only: TKC => RK2
3204 : #include "pm_distUnifSphere@routines.inc.F90"
3205 0 : end procedure
3206 : #endif
3207 :
3208 : #if RK1_ENABLED
3209 0 : module procedure setUSR_RNGD_DM_DC_XXX_D2_RK1
3210 : use pm_kind, only: TKC => RK1
3211 : #include "pm_distUnifSphere@routines.inc.F90"
3212 0 : end procedure
3213 : #endif
3214 :
3215 : #undef RK_ENABLED
3216 :
3217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3218 :
3219 : #undef DC_ENABLED
3220 :
3221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3222 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3223 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3224 :
3225 : #define AC_ENABLED 1
3226 :
3227 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3230 :
3231 : #define UXD_ENABLED 1
3232 :
3233 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3234 :
3235 : #define RK_ENABLED 1
3236 :
3237 : #if RK5_ENABLED
3238 : module procedure setUSR_RNGD_DM_AC_UXD_D2_RK5
3239 : use pm_kind, only: TKC => RK5
3240 : #include "pm_distUnifSphere@routines.inc.F90"
3241 : end procedure
3242 : #endif
3243 :
3244 : #if RK4_ENABLED
3245 0 : module procedure setUSR_RNGD_DM_AC_UXD_D2_RK4
3246 : use pm_kind, only: TKC => RK4
3247 : #include "pm_distUnifSphere@routines.inc.F90"
3248 0 : end procedure
3249 : #endif
3250 :
3251 : #if RK3_ENABLED
3252 0 : module procedure setUSR_RNGD_DM_AC_UXD_D2_RK3
3253 : use pm_kind, only: TKC => RK3
3254 : #include "pm_distUnifSphere@routines.inc.F90"
3255 0 : end procedure
3256 : #endif
3257 :
3258 : #if RK2_ENABLED
3259 0 : module procedure setUSR_RNGD_DM_AC_UXD_D2_RK2
3260 : use pm_kind, only: TKC => RK2
3261 : #include "pm_distUnifSphere@routines.inc.F90"
3262 0 : end procedure
3263 : #endif
3264 :
3265 : #if RK1_ENABLED
3266 0 : module procedure setUSR_RNGD_DM_AC_UXD_D2_RK1
3267 : use pm_kind, only: TKC => RK1
3268 : #include "pm_distUnifSphere@routines.inc.F90"
3269 0 : end procedure
3270 : #endif
3271 :
3272 : #undef RK_ENABLED
3273 :
3274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3275 :
3276 : #undef UXD_ENABLED
3277 :
3278 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3279 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3280 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3281 :
3282 : #define XLD_ENABLED 1
3283 :
3284 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3285 :
3286 : #define RK_ENABLED 1
3287 :
3288 : #if RK5_ENABLED
3289 : module procedure setUSR_RNGD_DM_AC_XLD_D2_RK5
3290 : use pm_kind, only: TKC => RK5
3291 : #include "pm_distUnifSphere@routines.inc.F90"
3292 : end procedure
3293 : #endif
3294 :
3295 : #if RK4_ENABLED
3296 0 : module procedure setUSR_RNGD_DM_AC_XLD_D2_RK4
3297 : use pm_kind, only: TKC => RK4
3298 : #include "pm_distUnifSphere@routines.inc.F90"
3299 0 : end procedure
3300 : #endif
3301 :
3302 : #if RK3_ENABLED
3303 0 : module procedure setUSR_RNGD_DM_AC_XLD_D2_RK3
3304 : use pm_kind, only: TKC => RK3
3305 : #include "pm_distUnifSphere@routines.inc.F90"
3306 0 : end procedure
3307 : #endif
3308 :
3309 : #if RK2_ENABLED
3310 0 : module procedure setUSR_RNGD_DM_AC_XLD_D2_RK2
3311 : use pm_kind, only: TKC => RK2
3312 : #include "pm_distUnifSphere@routines.inc.F90"
3313 0 : end procedure
3314 : #endif
3315 :
3316 : #if RK1_ENABLED
3317 0 : module procedure setUSR_RNGD_DM_AC_XLD_D2_RK1
3318 : use pm_kind, only: TKC => RK1
3319 : #include "pm_distUnifSphere@routines.inc.F90"
3320 0 : end procedure
3321 : #endif
3322 :
3323 : #undef RK_ENABLED
3324 :
3325 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3326 :
3327 : #undef XLD_ENABLED
3328 :
3329 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3330 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3331 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3332 :
3333 : #undef AC_ENABLED
3334 :
3335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3337 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3338 :
3339 : #undef DM_ENABLED
3340 :
3341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3342 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3343 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3344 :
3345 : #define AM_ENABLED 1
3346 :
3347 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3348 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3350 :
3351 : #define DC_ENABLED 1
3352 :
3353 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3354 :
3355 : #define RK_ENABLED 1
3356 :
3357 : #if RK5_ENABLED
3358 : module procedure setUSR_RNGD_AM_DC_XXX_D2_RK5
3359 : use pm_kind, only: TKC => RK5
3360 : #include "pm_distUnifSphere@routines.inc.F90"
3361 : end procedure
3362 : #endif
3363 :
3364 : #if RK4_ENABLED
3365 0 : module procedure setUSR_RNGD_AM_DC_XXX_D2_RK4
3366 : use pm_kind, only: TKC => RK4
3367 : #include "pm_distUnifSphere@routines.inc.F90"
3368 0 : end procedure
3369 : #endif
3370 :
3371 : #if RK3_ENABLED
3372 0 : module procedure setUSR_RNGD_AM_DC_XXX_D2_RK3
3373 : use pm_kind, only: TKC => RK3
3374 : #include "pm_distUnifSphere@routines.inc.F90"
3375 0 : end procedure
3376 : #endif
3377 :
3378 : #if RK2_ENABLED
3379 0 : module procedure setUSR_RNGD_AM_DC_XXX_D2_RK2
3380 : use pm_kind, only: TKC => RK2
3381 : #include "pm_distUnifSphere@routines.inc.F90"
3382 0 : end procedure
3383 : #endif
3384 :
3385 : #if RK1_ENABLED
3386 0 : module procedure setUSR_RNGD_AM_DC_XXX_D2_RK1
3387 : use pm_kind, only: TKC => RK1
3388 : #include "pm_distUnifSphere@routines.inc.F90"
3389 0 : end procedure
3390 : #endif
3391 :
3392 : #undef RK_ENABLED
3393 :
3394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3395 :
3396 : #undef DC_ENABLED
3397 :
3398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3401 :
3402 : #define AC_ENABLED 1
3403 :
3404 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3405 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3406 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3407 :
3408 : #define UXD_ENABLED 1
3409 :
3410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3411 :
3412 : #define RK_ENABLED 1
3413 :
3414 : #if RK5_ENABLED
3415 : module procedure setUSR_RNGD_AM_AC_UXD_D2_RK5
3416 : use pm_kind, only: TKC => RK5
3417 : #include "pm_distUnifSphere@routines.inc.F90"
3418 : end procedure
3419 : #endif
3420 :
3421 : #if RK4_ENABLED
3422 0 : module procedure setUSR_RNGD_AM_AC_UXD_D2_RK4
3423 : use pm_kind, only: TKC => RK4
3424 : #include "pm_distUnifSphere@routines.inc.F90"
3425 0 : end procedure
3426 : #endif
3427 :
3428 : #if RK3_ENABLED
3429 0 : module procedure setUSR_RNGD_AM_AC_UXD_D2_RK3
3430 : use pm_kind, only: TKC => RK3
3431 : #include "pm_distUnifSphere@routines.inc.F90"
3432 0 : end procedure
3433 : #endif
3434 :
3435 : #if RK2_ENABLED
3436 0 : module procedure setUSR_RNGD_AM_AC_UXD_D2_RK2
3437 : use pm_kind, only: TKC => RK2
3438 : #include "pm_distUnifSphere@routines.inc.F90"
3439 0 : end procedure
3440 : #endif
3441 :
3442 : #if RK1_ENABLED
3443 0 : module procedure setUSR_RNGD_AM_AC_UXD_D2_RK1
3444 : use pm_kind, only: TKC => RK1
3445 : #include "pm_distUnifSphere@routines.inc.F90"
3446 0 : end procedure
3447 : #endif
3448 :
3449 : #undef RK_ENABLED
3450 :
3451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3452 :
3453 : #undef UXD_ENABLED
3454 :
3455 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3458 :
3459 : #define XLD_ENABLED 1
3460 :
3461 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3462 :
3463 : #define RK_ENABLED 1
3464 :
3465 : #if RK5_ENABLED
3466 : module procedure setUSR_RNGD_AM_AC_XLD_D2_RK5
3467 : use pm_kind, only: TKC => RK5
3468 : #include "pm_distUnifSphere@routines.inc.F90"
3469 : end procedure
3470 : #endif
3471 :
3472 : #if RK4_ENABLED
3473 0 : module procedure setUSR_RNGD_AM_AC_XLD_D2_RK4
3474 : use pm_kind, only: TKC => RK4
3475 : #include "pm_distUnifSphere@routines.inc.F90"
3476 0 : end procedure
3477 : #endif
3478 :
3479 : #if RK3_ENABLED
3480 0 : module procedure setUSR_RNGD_AM_AC_XLD_D2_RK3
3481 : use pm_kind, only: TKC => RK3
3482 : #include "pm_distUnifSphere@routines.inc.F90"
3483 0 : end procedure
3484 : #endif
3485 :
3486 : #if RK2_ENABLED
3487 0 : module procedure setUSR_RNGD_AM_AC_XLD_D2_RK2
3488 : use pm_kind, only: TKC => RK2
3489 : #include "pm_distUnifSphere@routines.inc.F90"
3490 0 : end procedure
3491 : #endif
3492 :
3493 : #if RK1_ENABLED
3494 0 : module procedure setUSR_RNGD_AM_AC_XLD_D2_RK1
3495 : use pm_kind, only: TKC => RK1
3496 : #include "pm_distUnifSphere@routines.inc.F90"
3497 0 : end procedure
3498 : #endif
3499 :
3500 : #undef RK_ENABLED
3501 :
3502 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3503 :
3504 : #undef XLD_ENABLED
3505 :
3506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3507 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3508 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3509 :
3510 : #undef AC_ENABLED
3511 :
3512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3515 :
3516 : #undef AM_ENABLED
3517 :
3518 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3520 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3521 :
3522 : #undef RNGD_ENABLED
3523 :
3524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3527 :
3528 : #define RNGF_ENABLED 1
3529 :
3530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3533 :
3534 : #define DM_ENABLED 1
3535 :
3536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3537 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3539 :
3540 : #define DC_ENABLED 1
3541 :
3542 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3543 :
3544 : #define RK_ENABLED 1
3545 :
3546 : #if RK5_ENABLED
3547 : module procedure setUSR_RNGF_DM_DC_XXX_D2_RK5
3548 : use pm_kind, only: TKC => RK5
3549 : #include "pm_distUnifSphere@routines.inc.F90"
3550 : end procedure
3551 : #endif
3552 :
3553 : #if RK4_ENABLED
3554 0 : module procedure setUSR_RNGF_DM_DC_XXX_D2_RK4
3555 : use pm_kind, only: TKC => RK4
3556 : #include "pm_distUnifSphere@routines.inc.F90"
3557 0 : end procedure
3558 : #endif
3559 :
3560 : #if RK3_ENABLED
3561 0 : module procedure setUSR_RNGF_DM_DC_XXX_D2_RK3
3562 : use pm_kind, only: TKC => RK3
3563 : #include "pm_distUnifSphere@routines.inc.F90"
3564 0 : end procedure
3565 : #endif
3566 :
3567 : #if RK2_ENABLED
3568 0 : module procedure setUSR_RNGF_DM_DC_XXX_D2_RK2
3569 : use pm_kind, only: TKC => RK2
3570 : #include "pm_distUnifSphere@routines.inc.F90"
3571 0 : end procedure
3572 : #endif
3573 :
3574 : #if RK1_ENABLED
3575 0 : module procedure setUSR_RNGF_DM_DC_XXX_D2_RK1
3576 : use pm_kind, only: TKC => RK1
3577 : #include "pm_distUnifSphere@routines.inc.F90"
3578 0 : end procedure
3579 : #endif
3580 :
3581 : #undef RK_ENABLED
3582 :
3583 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3584 :
3585 : #undef DC_ENABLED
3586 :
3587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3588 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3589 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3590 :
3591 : #define AC_ENABLED 1
3592 :
3593 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3594 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3595 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3596 :
3597 : #define UXD_ENABLED 1
3598 :
3599 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3600 :
3601 : #define RK_ENABLED 1
3602 :
3603 : #if RK5_ENABLED
3604 : module procedure setUSR_RNGF_DM_AC_UXD_D2_RK5
3605 : use pm_kind, only: TKC => RK5
3606 : #include "pm_distUnifSphere@routines.inc.F90"
3607 : end procedure
3608 : #endif
3609 :
3610 : #if RK4_ENABLED
3611 0 : module procedure setUSR_RNGF_DM_AC_UXD_D2_RK4
3612 : use pm_kind, only: TKC => RK4
3613 : #include "pm_distUnifSphere@routines.inc.F90"
3614 0 : end procedure
3615 : #endif
3616 :
3617 : #if RK3_ENABLED
3618 0 : module procedure setUSR_RNGF_DM_AC_UXD_D2_RK3
3619 : use pm_kind, only: TKC => RK3
3620 : #include "pm_distUnifSphere@routines.inc.F90"
3621 0 : end procedure
3622 : #endif
3623 :
3624 : #if RK2_ENABLED
3625 0 : module procedure setUSR_RNGF_DM_AC_UXD_D2_RK2
3626 : use pm_kind, only: TKC => RK2
3627 : #include "pm_distUnifSphere@routines.inc.F90"
3628 0 : end procedure
3629 : #endif
3630 :
3631 : #if RK1_ENABLED
3632 0 : module procedure setUSR_RNGF_DM_AC_UXD_D2_RK1
3633 : use pm_kind, only: TKC => RK1
3634 : #include "pm_distUnifSphere@routines.inc.F90"
3635 0 : end procedure
3636 : #endif
3637 :
3638 : #undef RK_ENABLED
3639 :
3640 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3641 :
3642 : #undef UXD_ENABLED
3643 :
3644 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3645 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3646 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3647 :
3648 : #define XLD_ENABLED 1
3649 :
3650 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3651 :
3652 : #define RK_ENABLED 1
3653 :
3654 : #if RK5_ENABLED
3655 : module procedure setUSR_RNGF_DM_AC_XLD_D2_RK5
3656 : use pm_kind, only: TKC => RK5
3657 : #include "pm_distUnifSphere@routines.inc.F90"
3658 : end procedure
3659 : #endif
3660 :
3661 : #if RK4_ENABLED
3662 0 : module procedure setUSR_RNGF_DM_AC_XLD_D2_RK4
3663 : use pm_kind, only: TKC => RK4
3664 : #include "pm_distUnifSphere@routines.inc.F90"
3665 0 : end procedure
3666 : #endif
3667 :
3668 : #if RK3_ENABLED
3669 0 : module procedure setUSR_RNGF_DM_AC_XLD_D2_RK3
3670 : use pm_kind, only: TKC => RK3
3671 : #include "pm_distUnifSphere@routines.inc.F90"
3672 0 : end procedure
3673 : #endif
3674 :
3675 : #if RK2_ENABLED
3676 0 : module procedure setUSR_RNGF_DM_AC_XLD_D2_RK2
3677 : use pm_kind, only: TKC => RK2
3678 : #include "pm_distUnifSphere@routines.inc.F90"
3679 0 : end procedure
3680 : #endif
3681 :
3682 : #if RK1_ENABLED
3683 0 : module procedure setUSR_RNGF_DM_AC_XLD_D2_RK1
3684 : use pm_kind, only: TKC => RK1
3685 : #include "pm_distUnifSphere@routines.inc.F90"
3686 0 : end procedure
3687 : #endif
3688 :
3689 : #undef RK_ENABLED
3690 :
3691 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3692 :
3693 : #undef XLD_ENABLED
3694 :
3695 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3696 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3697 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3698 :
3699 : #undef AC_ENABLED
3700 :
3701 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3702 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3703 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3704 :
3705 : #undef DM_ENABLED
3706 :
3707 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3708 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3709 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3710 :
3711 : #define AM_ENABLED 1
3712 :
3713 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3714 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3716 :
3717 : #define DC_ENABLED 1
3718 :
3719 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3720 :
3721 : #define RK_ENABLED 1
3722 :
3723 : #if RK5_ENABLED
3724 : module procedure setUSR_RNGF_AM_DC_XXX_D2_RK5
3725 : use pm_kind, only: TKC => RK5
3726 : #include "pm_distUnifSphere@routines.inc.F90"
3727 : end procedure
3728 : #endif
3729 :
3730 : #if RK4_ENABLED
3731 0 : module procedure setUSR_RNGF_AM_DC_XXX_D2_RK4
3732 : use pm_kind, only: TKC => RK4
3733 : #include "pm_distUnifSphere@routines.inc.F90"
3734 0 : end procedure
3735 : #endif
3736 :
3737 : #if RK3_ENABLED
3738 0 : module procedure setUSR_RNGF_AM_DC_XXX_D2_RK3
3739 : use pm_kind, only: TKC => RK3
3740 : #include "pm_distUnifSphere@routines.inc.F90"
3741 0 : end procedure
3742 : #endif
3743 :
3744 : #if RK2_ENABLED
3745 0 : module procedure setUSR_RNGF_AM_DC_XXX_D2_RK2
3746 : use pm_kind, only: TKC => RK2
3747 : #include "pm_distUnifSphere@routines.inc.F90"
3748 0 : end procedure
3749 : #endif
3750 :
3751 : #if RK1_ENABLED
3752 0 : module procedure setUSR_RNGF_AM_DC_XXX_D2_RK1
3753 : use pm_kind, only: TKC => RK1
3754 : #include "pm_distUnifSphere@routines.inc.F90"
3755 0 : end procedure
3756 : #endif
3757 :
3758 : #undef RK_ENABLED
3759 :
3760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3761 :
3762 : #undef DC_ENABLED
3763 :
3764 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3765 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3767 :
3768 : #define AC_ENABLED 1
3769 :
3770 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3771 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3772 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3773 :
3774 : #define UXD_ENABLED 1
3775 :
3776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3777 :
3778 : #define RK_ENABLED 1
3779 :
3780 : #if RK5_ENABLED
3781 : module procedure setUSR_RNGF_AM_AC_UXD_D2_RK5
3782 : use pm_kind, only: TKC => RK5
3783 : #include "pm_distUnifSphere@routines.inc.F90"
3784 : end procedure
3785 : #endif
3786 :
3787 : #if RK4_ENABLED
3788 0 : module procedure setUSR_RNGF_AM_AC_UXD_D2_RK4
3789 : use pm_kind, only: TKC => RK4
3790 : #include "pm_distUnifSphere@routines.inc.F90"
3791 0 : end procedure
3792 : #endif
3793 :
3794 : #if RK3_ENABLED
3795 0 : module procedure setUSR_RNGF_AM_AC_UXD_D2_RK3
3796 : use pm_kind, only: TKC => RK3
3797 : #include "pm_distUnifSphere@routines.inc.F90"
3798 0 : end procedure
3799 : #endif
3800 :
3801 : #if RK2_ENABLED
3802 0 : module procedure setUSR_RNGF_AM_AC_UXD_D2_RK2
3803 : use pm_kind, only: TKC => RK2
3804 : #include "pm_distUnifSphere@routines.inc.F90"
3805 0 : end procedure
3806 : #endif
3807 :
3808 : #if RK1_ENABLED
3809 0 : module procedure setUSR_RNGF_AM_AC_UXD_D2_RK1
3810 : use pm_kind, only: TKC => RK1
3811 : #include "pm_distUnifSphere@routines.inc.F90"
3812 0 : end procedure
3813 : #endif
3814 :
3815 : #undef RK_ENABLED
3816 :
3817 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3818 :
3819 : #undef UXD_ENABLED
3820 :
3821 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3822 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3823 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3824 :
3825 : #define XLD_ENABLED 1
3826 :
3827 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3828 :
3829 : #define RK_ENABLED 1
3830 :
3831 : #if RK5_ENABLED
3832 : module procedure setUSR_RNGF_AM_AC_XLD_D2_RK5
3833 : use pm_kind, only: TKC => RK5
3834 : #include "pm_distUnifSphere@routines.inc.F90"
3835 : end procedure
3836 : #endif
3837 :
3838 : #if RK4_ENABLED
3839 0 : module procedure setUSR_RNGF_AM_AC_XLD_D2_RK4
3840 : use pm_kind, only: TKC => RK4
3841 : #include "pm_distUnifSphere@routines.inc.F90"
3842 0 : end procedure
3843 : #endif
3844 :
3845 : #if RK3_ENABLED
3846 0 : module procedure setUSR_RNGF_AM_AC_XLD_D2_RK3
3847 : use pm_kind, only: TKC => RK3
3848 : #include "pm_distUnifSphere@routines.inc.F90"
3849 0 : end procedure
3850 : #endif
3851 :
3852 : #if RK2_ENABLED
3853 0 : module procedure setUSR_RNGF_AM_AC_XLD_D2_RK2
3854 : use pm_kind, only: TKC => RK2
3855 : #include "pm_distUnifSphere@routines.inc.F90"
3856 0 : end procedure
3857 : #endif
3858 :
3859 : #if RK1_ENABLED
3860 0 : module procedure setUSR_RNGF_AM_AC_XLD_D2_RK1
3861 : use pm_kind, only: TKC => RK1
3862 : #include "pm_distUnifSphere@routines.inc.F90"
3863 0 : end procedure
3864 : #endif
3865 :
3866 : #undef RK_ENABLED
3867 :
3868 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3869 :
3870 : #undef XLD_ENABLED
3871 :
3872 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3873 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3874 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3875 :
3876 : #undef AC_ENABLED
3877 :
3878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3879 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3880 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3881 :
3882 : #undef AM_ENABLED
3883 :
3884 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3885 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3887 :
3888 : #undef RNGF_ENABLED
3889 :
3890 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3891 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3892 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3893 :
3894 : #define RNGX_ENABLED 1
3895 :
3896 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3897 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3898 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3899 :
3900 : #define DM_ENABLED 1
3901 :
3902 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3903 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3904 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3905 :
3906 : #define DC_ENABLED 1
3907 :
3908 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3909 :
3910 : #define RK_ENABLED 1
3911 :
3912 : #if RK5_ENABLED
3913 : module procedure setUSR_RNGX_DM_DC_XXX_D2_RK5
3914 : use pm_kind, only: TKC => RK5
3915 : #include "pm_distUnifSphere@routines.inc.F90"
3916 : end procedure
3917 : #endif
3918 :
3919 : #if RK4_ENABLED
3920 0 : module procedure setUSR_RNGX_DM_DC_XXX_D2_RK4
3921 : use pm_kind, only: TKC => RK4
3922 : #include "pm_distUnifSphere@routines.inc.F90"
3923 0 : end procedure
3924 : #endif
3925 :
3926 : #if RK3_ENABLED
3927 0 : module procedure setUSR_RNGX_DM_DC_XXX_D2_RK3
3928 : use pm_kind, only: TKC => RK3
3929 : #include "pm_distUnifSphere@routines.inc.F90"
3930 0 : end procedure
3931 : #endif
3932 :
3933 : #if RK2_ENABLED
3934 0 : module procedure setUSR_RNGX_DM_DC_XXX_D2_RK2
3935 : use pm_kind, only: TKC => RK2
3936 : #include "pm_distUnifSphere@routines.inc.F90"
3937 0 : end procedure
3938 : #endif
3939 :
3940 : #if RK1_ENABLED
3941 0 : module procedure setUSR_RNGX_DM_DC_XXX_D2_RK1
3942 : use pm_kind, only: TKC => RK1
3943 : #include "pm_distUnifSphere@routines.inc.F90"
3944 0 : end procedure
3945 : #endif
3946 :
3947 : #undef RK_ENABLED
3948 :
3949 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3950 :
3951 : #undef DC_ENABLED
3952 :
3953 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3954 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3955 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3956 :
3957 : #define AC_ENABLED 1
3958 :
3959 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3960 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3961 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3962 :
3963 : #define UXD_ENABLED 1
3964 :
3965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3966 :
3967 : #define RK_ENABLED 1
3968 :
3969 : #if RK5_ENABLED
3970 : module procedure setUSR_RNGX_DM_AC_UXD_D2_RK5
3971 : use pm_kind, only: TKC => RK5
3972 : #include "pm_distUnifSphere@routines.inc.F90"
3973 : end procedure
3974 : #endif
3975 :
3976 : #if RK4_ENABLED
3977 0 : module procedure setUSR_RNGX_DM_AC_UXD_D2_RK4
3978 : use pm_kind, only: TKC => RK4
3979 : #include "pm_distUnifSphere@routines.inc.F90"
3980 0 : end procedure
3981 : #endif
3982 :
3983 : #if RK3_ENABLED
3984 0 : module procedure setUSR_RNGX_DM_AC_UXD_D2_RK3
3985 : use pm_kind, only: TKC => RK3
3986 : #include "pm_distUnifSphere@routines.inc.F90"
3987 0 : end procedure
3988 : #endif
3989 :
3990 : #if RK2_ENABLED
3991 0 : module procedure setUSR_RNGX_DM_AC_UXD_D2_RK2
3992 : use pm_kind, only: TKC => RK2
3993 : #include "pm_distUnifSphere@routines.inc.F90"
3994 0 : end procedure
3995 : #endif
3996 :
3997 : #if RK1_ENABLED
3998 0 : module procedure setUSR_RNGX_DM_AC_UXD_D2_RK1
3999 : use pm_kind, only: TKC => RK1
4000 : #include "pm_distUnifSphere@routines.inc.F90"
4001 0 : end procedure
4002 : #endif
4003 :
4004 : #undef RK_ENABLED
4005 :
4006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4007 :
4008 : #undef UXD_ENABLED
4009 :
4010 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4011 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4012 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4013 :
4014 : #define XLD_ENABLED 1
4015 :
4016 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4017 :
4018 : #define RK_ENABLED 1
4019 :
4020 : #if RK5_ENABLED
4021 : module procedure setUSR_RNGX_DM_AC_XLD_D2_RK5
4022 : use pm_kind, only: TKC => RK5
4023 : #include "pm_distUnifSphere@routines.inc.F90"
4024 : end procedure
4025 : #endif
4026 :
4027 : #if RK4_ENABLED
4028 0 : module procedure setUSR_RNGX_DM_AC_XLD_D2_RK4
4029 : use pm_kind, only: TKC => RK4
4030 : #include "pm_distUnifSphere@routines.inc.F90"
4031 0 : end procedure
4032 : #endif
4033 :
4034 : #if RK3_ENABLED
4035 0 : module procedure setUSR_RNGX_DM_AC_XLD_D2_RK3
4036 : use pm_kind, only: TKC => RK3
4037 : #include "pm_distUnifSphere@routines.inc.F90"
4038 0 : end procedure
4039 : #endif
4040 :
4041 : #if RK2_ENABLED
4042 0 : module procedure setUSR_RNGX_DM_AC_XLD_D2_RK2
4043 : use pm_kind, only: TKC => RK2
4044 : #include "pm_distUnifSphere@routines.inc.F90"
4045 0 : end procedure
4046 : #endif
4047 :
4048 : #if RK1_ENABLED
4049 0 : module procedure setUSR_RNGX_DM_AC_XLD_D2_RK1
4050 : use pm_kind, only: TKC => RK1
4051 : #include "pm_distUnifSphere@routines.inc.F90"
4052 0 : end procedure
4053 : #endif
4054 :
4055 : #undef RK_ENABLED
4056 :
4057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4058 :
4059 : #undef XLD_ENABLED
4060 :
4061 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4062 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4063 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4064 :
4065 : #undef AC_ENABLED
4066 :
4067 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4068 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4069 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4070 :
4071 : #undef DM_ENABLED
4072 :
4073 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4074 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4075 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4076 :
4077 : #define AM_ENABLED 1
4078 :
4079 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4080 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4081 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4082 :
4083 : #define DC_ENABLED 1
4084 :
4085 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4086 :
4087 : #define RK_ENABLED 1
4088 :
4089 : #if RK5_ENABLED
4090 : module procedure setUSR_RNGX_AM_DC_XXX_D2_RK5
4091 : use pm_kind, only: TKC => RK5
4092 : #include "pm_distUnifSphere@routines.inc.F90"
4093 : end procedure
4094 : #endif
4095 :
4096 : #if RK4_ENABLED
4097 0 : module procedure setUSR_RNGX_AM_DC_XXX_D2_RK4
4098 : use pm_kind, only: TKC => RK4
4099 : #include "pm_distUnifSphere@routines.inc.F90"
4100 0 : end procedure
4101 : #endif
4102 :
4103 : #if RK3_ENABLED
4104 0 : module procedure setUSR_RNGX_AM_DC_XXX_D2_RK3
4105 : use pm_kind, only: TKC => RK3
4106 : #include "pm_distUnifSphere@routines.inc.F90"
4107 0 : end procedure
4108 : #endif
4109 :
4110 : #if RK2_ENABLED
4111 0 : module procedure setUSR_RNGX_AM_DC_XXX_D2_RK2
4112 : use pm_kind, only: TKC => RK2
4113 : #include "pm_distUnifSphere@routines.inc.F90"
4114 0 : end procedure
4115 : #endif
4116 :
4117 : #if RK1_ENABLED
4118 0 : module procedure setUSR_RNGX_AM_DC_XXX_D2_RK1
4119 : use pm_kind, only: TKC => RK1
4120 : #include "pm_distUnifSphere@routines.inc.F90"
4121 0 : end procedure
4122 : #endif
4123 :
4124 : #undef RK_ENABLED
4125 :
4126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4127 :
4128 : #undef DC_ENABLED
4129 :
4130 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4133 :
4134 : #define AC_ENABLED 1
4135 :
4136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4137 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4138 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4139 :
4140 : #define UXD_ENABLED 1
4141 :
4142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4143 :
4144 : #define RK_ENABLED 1
4145 :
4146 : #if RK5_ENABLED
4147 : module procedure setUSR_RNGX_AM_AC_UXD_D2_RK5
4148 : use pm_kind, only: TKC => RK5
4149 : #include "pm_distUnifSphere@routines.inc.F90"
4150 : end procedure
4151 : #endif
4152 :
4153 : #if RK4_ENABLED
4154 0 : module procedure setUSR_RNGX_AM_AC_UXD_D2_RK4
4155 : use pm_kind, only: TKC => RK4
4156 : #include "pm_distUnifSphere@routines.inc.F90"
4157 0 : end procedure
4158 : #endif
4159 :
4160 : #if RK3_ENABLED
4161 0 : module procedure setUSR_RNGX_AM_AC_UXD_D2_RK3
4162 : use pm_kind, only: TKC => RK3
4163 : #include "pm_distUnifSphere@routines.inc.F90"
4164 0 : end procedure
4165 : #endif
4166 :
4167 : #if RK2_ENABLED
4168 0 : module procedure setUSR_RNGX_AM_AC_UXD_D2_RK2
4169 : use pm_kind, only: TKC => RK2
4170 : #include "pm_distUnifSphere@routines.inc.F90"
4171 0 : end procedure
4172 : #endif
4173 :
4174 : #if RK1_ENABLED
4175 0 : module procedure setUSR_RNGX_AM_AC_UXD_D2_RK1
4176 : use pm_kind, only: TKC => RK1
4177 : #include "pm_distUnifSphere@routines.inc.F90"
4178 0 : end procedure
4179 : #endif
4180 :
4181 : #undef RK_ENABLED
4182 :
4183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4184 :
4185 : #undef UXD_ENABLED
4186 :
4187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4190 :
4191 : #define XLD_ENABLED 1
4192 :
4193 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4194 :
4195 : #define RK_ENABLED 1
4196 :
4197 : #if RK5_ENABLED
4198 : module procedure setUSR_RNGX_AM_AC_XLD_D2_RK5
4199 : use pm_kind, only: TKC => RK5
4200 : #include "pm_distUnifSphere@routines.inc.F90"
4201 : end procedure
4202 : #endif
4203 :
4204 : #if RK4_ENABLED
4205 0 : module procedure setUSR_RNGX_AM_AC_XLD_D2_RK4
4206 : use pm_kind, only: TKC => RK4
4207 : #include "pm_distUnifSphere@routines.inc.F90"
4208 0 : end procedure
4209 : #endif
4210 :
4211 : #if RK3_ENABLED
4212 0 : module procedure setUSR_RNGX_AM_AC_XLD_D2_RK3
4213 : use pm_kind, only: TKC => RK3
4214 : #include "pm_distUnifSphere@routines.inc.F90"
4215 0 : end procedure
4216 : #endif
4217 :
4218 : #if RK2_ENABLED
4219 0 : module procedure setUSR_RNGX_AM_AC_XLD_D2_RK2
4220 : use pm_kind, only: TKC => RK2
4221 : #include "pm_distUnifSphere@routines.inc.F90"
4222 0 : end procedure
4223 : #endif
4224 :
4225 : #if RK1_ENABLED
4226 0 : module procedure setUSR_RNGX_AM_AC_XLD_D2_RK1
4227 : use pm_kind, only: TKC => RK1
4228 : #include "pm_distUnifSphere@routines.inc.F90"
4229 0 : end procedure
4230 : #endif
4231 :
4232 : #undef RK_ENABLED
4233 :
4234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4235 :
4236 : #undef XLD_ENABLED
4237 :
4238 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4239 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4241 :
4242 : #undef AC_ENABLED
4243 :
4244 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4247 :
4248 : #undef AM_ENABLED
4249 :
4250 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4253 :
4254 : #undef RNGX_ENABLED
4255 :
4256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4259 :
4260 : #undef D2_ENABLED
4261 :
4262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4265 :
4266 : #undef setUSR_ENABLED
4267 :
4268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4269 :
4270 : #undef CHECK_ASSERTION
4271 :
4272 : end submodule routines
|
