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_cosmology](@ref pm_cosmology).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Wednesday 5:43 PM, December 25, 2013, Institute for Fusion Studies, The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_cosmology) routines
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 EPS 10 * epsilon(0._RKC)
34 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
35 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
36 : #else
37 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
38 : #endif
39 :
40 : use pm_quadPack, only: getQuadErr, GK21, pinf, weps
41 : use pm_val2str, only: getStr
42 : implicit none
43 :
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : contains
47 :
48 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
49 :
50 : #define getSizeUnivNormed_ENABLED 1
51 :
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
55 :
56 : #define D0_ENABLED 1
57 :
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61 :
62 : #define Z_ENABLED 1
63 :
64 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
65 :
66 : #define RK_ENABLED 1
67 :
68 : #if RK5_ENABLED
69 : module procedure getSizeUnivNormedZ_D0_RK5
70 : use pm_kind, only: RKC => RK5
71 : #include "pm_cosmology@routines.inc.F90"
72 : end procedure
73 : #endif
74 :
75 : #if RK4_ENABLED
76 0 : module procedure getSizeUnivNormedZ_D0_RK4
77 : use pm_kind, only: RKC => RK4
78 : #include "pm_cosmology@routines.inc.F90"
79 : end procedure
80 : #endif
81 :
82 : #if RK3_ENABLED
83 0 : module procedure getSizeUnivNormedZ_D0_RK3
84 : use pm_kind, only: RKC => RK3
85 : #include "pm_cosmology@routines.inc.F90"
86 : end procedure
87 : #endif
88 :
89 : #if RK2_ENABLED
90 0 : module procedure getSizeUnivNormedZ_D0_RK2
91 : use pm_kind, only: RKC => RK2
92 : #include "pm_cosmology@routines.inc.F90"
93 : end procedure
94 : #endif
95 :
96 : #if RK1_ENABLED
97 2 : module procedure getSizeUnivNormedZ_D0_RK1
98 : use pm_kind, only: RKC => RK1
99 : #include "pm_cosmology@routines.inc.F90"
100 : end procedure
101 : #endif
102 :
103 : #undef RK_ENABLED
104 :
105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
106 :
107 : #undef Z_ENABLED
108 :
109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
112 :
113 : #define ZML_ENABLED 1
114 :
115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
116 :
117 : #define RK_ENABLED 1
118 :
119 : #if RK5_ENABLED
120 : module procedure getSizeUnivNormedZML_D0_RK5
121 : use pm_kind, only: RKC => RK5
122 : #include "pm_cosmology@routines.inc.F90"
123 : end procedure
124 : #endif
125 :
126 : #if RK4_ENABLED
127 0 : module procedure getSizeUnivNormedZML_D0_RK4
128 : use pm_kind, only: RKC => RK4
129 : #include "pm_cosmology@routines.inc.F90"
130 : end procedure
131 : #endif
132 :
133 : #if RK3_ENABLED
134 0 : module procedure getSizeUnivNormedZML_D0_RK3
135 : use pm_kind, only: RKC => RK3
136 : #include "pm_cosmology@routines.inc.F90"
137 : end procedure
138 : #endif
139 :
140 : #if RK2_ENABLED
141 0 : module procedure getSizeUnivNormedZML_D0_RK2
142 : use pm_kind, only: RKC => RK2
143 : #include "pm_cosmology@routines.inc.F90"
144 : end procedure
145 : #endif
146 :
147 : #if RK1_ENABLED
148 1502 : module procedure getSizeUnivNormedZML_D0_RK1
149 : use pm_kind, only: RKC => RK1
150 : #include "pm_cosmology@routines.inc.F90"
151 : end procedure
152 : #endif
153 :
154 : #undef RK_ENABLED
155 :
156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157 :
158 : #undef ZML_ENABLED
159 :
160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
163 :
164 : #define ZMLR_ENABLED 1
165 :
166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167 :
168 : #define RK_ENABLED 1
169 :
170 : #if RK5_ENABLED
171 : module procedure getSizeUnivNormedZMLR_D0_RK5
172 : use pm_kind, only: RKC => RK5
173 : #include "pm_cosmology@routines.inc.F90"
174 : end procedure
175 : #endif
176 :
177 : #if RK4_ENABLED
178 0 : module procedure getSizeUnivNormedZMLR_D0_RK4
179 : use pm_kind, only: RKC => RK4
180 : #include "pm_cosmology@routines.inc.F90"
181 : end procedure
182 : #endif
183 :
184 : #if RK3_ENABLED
185 0 : module procedure getSizeUnivNormedZMLR_D0_RK3
186 : use pm_kind, only: RKC => RK3
187 : #include "pm_cosmology@routines.inc.F90"
188 : end procedure
189 : #endif
190 :
191 : #if RK2_ENABLED
192 0 : module procedure getSizeUnivNormedZMLR_D0_RK2
193 : use pm_kind, only: RKC => RK2
194 : #include "pm_cosmology@routines.inc.F90"
195 : end procedure
196 : #endif
197 :
198 : #if RK1_ENABLED
199 2 : module procedure getSizeUnivNormedZMLR_D0_RK1
200 : use pm_kind, only: RKC => RK1
201 : #include "pm_cosmology@routines.inc.F90"
202 : end procedure
203 : #endif
204 :
205 : #undef RK_ENABLED
206 :
207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
208 :
209 : #undef ZMLR_ENABLED
210 :
211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214 :
215 : #define ZMLRK_ENABLED 1
216 :
217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
218 :
219 : #define RK_ENABLED 1
220 :
221 : #if RK5_ENABLED
222 : module procedure getSizeUnivNormedZMLRK_D0_RK5
223 : use pm_kind, only: RKC => RK5
224 : #include "pm_cosmology@routines.inc.F90"
225 : end procedure
226 : #endif
227 :
228 : #if RK4_ENABLED
229 0 : module procedure getSizeUnivNormedZMLRK_D0_RK4
230 : use pm_kind, only: RKC => RK4
231 : #include "pm_cosmology@routines.inc.F90"
232 : end procedure
233 : #endif
234 :
235 : #if RK3_ENABLED
236 0 : module procedure getSizeUnivNormedZMLRK_D0_RK3
237 : use pm_kind, only: RKC => RK3
238 : #include "pm_cosmology@routines.inc.F90"
239 : end procedure
240 : #endif
241 :
242 : #if RK2_ENABLED
243 0 : module procedure getSizeUnivNormedZMLRK_D0_RK2
244 : use pm_kind, only: RKC => RK2
245 : #include "pm_cosmology@routines.inc.F90"
246 : end procedure
247 : #endif
248 :
249 : #if RK1_ENABLED
250 2 : module procedure getSizeUnivNormedZMLRK_D0_RK1
251 : use pm_kind, only: RKC => RK1
252 : #include "pm_cosmology@routines.inc.F90"
253 : end procedure
254 : #endif
255 :
256 : #undef RK_ENABLED
257 :
258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259 :
260 : #undef ZMLRK_ENABLED
261 :
262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 :
266 : #undef D0_ENABLED
267 :
268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271 :
272 : #undef getSizeUnivNormed_ENABLED
273 :
274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
275 :
276 : #define getDisLookbackNormed_ENABLED 1
277 :
278 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
279 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
280 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
281 :
282 : #define D0_ENABLED 1
283 :
284 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
286 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
287 :
288 : #define Z_ENABLED 1
289 :
290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
291 :
292 : #define RK_ENABLED 1
293 :
294 : #if RK5_ENABLED
295 : module procedure getDisLookbackNormedZ_D0_RK5
296 : use pm_kind, only: RKC => RK5
297 : #include "pm_cosmology@routines.inc.F90"
298 : end procedure
299 : #endif
300 :
301 : #if RK4_ENABLED
302 8 : module procedure getDisLookbackNormedZ_D0_RK4
303 : use pm_kind, only: RKC => RK4
304 : #include "pm_cosmology@routines.inc.F90"
305 : end procedure
306 : #endif
307 :
308 : #if RK3_ENABLED
309 8 : module procedure getDisLookbackNormedZ_D0_RK3
310 : use pm_kind, only: RKC => RK3
311 : #include "pm_cosmology@routines.inc.F90"
312 : end procedure
313 : #endif
314 :
315 : #if RK2_ENABLED
316 8 : module procedure getDisLookbackNormedZ_D0_RK2
317 : use pm_kind, only: RKC => RK2
318 : #include "pm_cosmology@routines.inc.F90"
319 : end procedure
320 : #endif
321 :
322 : #if RK1_ENABLED
323 10 : module procedure getDisLookbackNormedZ_D0_RK1
324 : use pm_kind, only: RKC => RK1
325 : #include "pm_cosmology@routines.inc.F90"
326 : end procedure
327 : #endif
328 :
329 : #undef RK_ENABLED
330 :
331 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
332 :
333 : #undef Z_ENABLED
334 :
335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
337 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
338 :
339 : #define ZML_ENABLED 1
340 :
341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
342 :
343 : #define RK_ENABLED 1
344 :
345 : #if RK5_ENABLED
346 : module procedure getDisLookbackNormedZML_D0_RK5
347 : use pm_kind, only: RKC => RK5
348 : #include "pm_cosmology@routines.inc.F90"
349 : end procedure
350 : #endif
351 :
352 : #if RK4_ENABLED
353 8 : module procedure getDisLookbackNormedZML_D0_RK4
354 : use pm_kind, only: RKC => RK4
355 : #include "pm_cosmology@routines.inc.F90"
356 : end procedure
357 : #endif
358 :
359 : #if RK3_ENABLED
360 8 : module procedure getDisLookbackNormedZML_D0_RK3
361 : use pm_kind, only: RKC => RK3
362 : #include "pm_cosmology@routines.inc.F90"
363 : end procedure
364 : #endif
365 :
366 : #if RK2_ENABLED
367 8 : module procedure getDisLookbackNormedZML_D0_RK2
368 : use pm_kind, only: RKC => RK2
369 : #include "pm_cosmology@routines.inc.F90"
370 : end procedure
371 : #endif
372 :
373 : #if RK1_ENABLED
374 1510 : module procedure getDisLookbackNormedZML_D0_RK1
375 : use pm_kind, only: RKC => RK1
376 : #include "pm_cosmology@routines.inc.F90"
377 : end procedure
378 : #endif
379 :
380 : #undef RK_ENABLED
381 :
382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
383 :
384 : #undef ZML_ENABLED
385 :
386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
389 :
390 : #define ZMLR_ENABLED 1
391 :
392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393 :
394 : #define RK_ENABLED 1
395 :
396 : #if RK5_ENABLED
397 : module procedure getDisLookbackNormedZMLR_D0_RK5
398 : use pm_kind, only: RKC => RK5
399 : #include "pm_cosmology@routines.inc.F90"
400 : end procedure
401 : #endif
402 :
403 : #if RK4_ENABLED
404 8 : module procedure getDisLookbackNormedZMLR_D0_RK4
405 : use pm_kind, only: RKC => RK4
406 : #include "pm_cosmology@routines.inc.F90"
407 : end procedure
408 : #endif
409 :
410 : #if RK3_ENABLED
411 8 : module procedure getDisLookbackNormedZMLR_D0_RK3
412 : use pm_kind, only: RKC => RK3
413 : #include "pm_cosmology@routines.inc.F90"
414 : end procedure
415 : #endif
416 :
417 : #if RK2_ENABLED
418 8 : module procedure getDisLookbackNormedZMLR_D0_RK2
419 : use pm_kind, only: RKC => RK2
420 : #include "pm_cosmology@routines.inc.F90"
421 : end procedure
422 : #endif
423 :
424 : #if RK1_ENABLED
425 10 : module procedure getDisLookbackNormedZMLR_D0_RK1
426 : use pm_kind, only: RKC => RK1
427 : #include "pm_cosmology@routines.inc.F90"
428 : end procedure
429 : #endif
430 :
431 : #undef RK_ENABLED
432 :
433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
434 :
435 : #undef ZMLR_ENABLED
436 :
437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
440 :
441 : #define ZMLRK_ENABLED 1
442 :
443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
444 :
445 : #define RK_ENABLED 1
446 :
447 : #if RK5_ENABLED
448 : module procedure getDisLookbackNormedZMLRK_D0_RK5
449 : use pm_kind, only: RKC => RK5
450 : #include "pm_cosmology@routines.inc.F90"
451 : end procedure
452 : #endif
453 :
454 : #if RK4_ENABLED
455 20 : module procedure getDisLookbackNormedZMLRK_D0_RK4
456 : use pm_kind, only: RKC => RK4
457 : #include "pm_cosmology@routines.inc.F90"
458 : end procedure
459 : #endif
460 :
461 : #if RK3_ENABLED
462 20 : module procedure getDisLookbackNormedZMLRK_D0_RK3
463 : use pm_kind, only: RKC => RK3
464 : #include "pm_cosmology@routines.inc.F90"
465 : end procedure
466 : #endif
467 :
468 : #if RK2_ENABLED
469 20 : module procedure getDisLookbackNormedZMLRK_D0_RK2
470 : use pm_kind, only: RKC => RK2
471 : #include "pm_cosmology@routines.inc.F90"
472 : end procedure
473 : #endif
474 :
475 : #if RK1_ENABLED
476 22 : module procedure getDisLookbackNormedZMLRK_D0_RK1
477 : use pm_kind, only: RKC => RK1
478 : #include "pm_cosmology@routines.inc.F90"
479 : end procedure
480 : #endif
481 :
482 : #undef RK_ENABLED
483 :
484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
485 :
486 : #undef ZMLRK_ENABLED
487 :
488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
490 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
491 :
492 : #undef D0_ENABLED
493 :
494 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
495 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
496 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
497 :
498 : #undef getDisLookbackNormed_ENABLED
499 :
500 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
501 :
502 : #define getDisComNormed_ENABLED 1
503 :
504 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
505 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
507 :
508 : #define D0_ENABLED 1
509 :
510 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
513 :
514 : #define Z_ENABLED 1
515 :
516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517 :
518 : #define RK_ENABLED 1
519 :
520 : #if RK5_ENABLED
521 : module procedure getDisComNormedZ_D0_RK5
522 : use pm_kind, only: RKC => RK5
523 : #include "pm_cosmology@routines.inc.F90"
524 : end procedure
525 : #endif
526 :
527 : #if RK4_ENABLED
528 124 : module procedure getDisComNormedZ_D0_RK4
529 : use pm_kind, only: RKC => RK4
530 : #include "pm_cosmology@routines.inc.F90"
531 : end procedure
532 : #endif
533 :
534 : #if RK3_ENABLED
535 124 : module procedure getDisComNormedZ_D0_RK3
536 : use pm_kind, only: RKC => RK3
537 : #include "pm_cosmology@routines.inc.F90"
538 : end procedure
539 : #endif
540 :
541 : #if RK2_ENABLED
542 63377 : module procedure getDisComNormedZ_D0_RK2
543 : use pm_kind, only: RKC => RK2
544 : #include "pm_cosmology@routines.inc.F90"
545 : end procedure
546 : #endif
547 :
548 : #if RK1_ENABLED
549 138 : module procedure getDisComNormedZ_D0_RK1
550 : use pm_kind, only: RKC => RK1
551 : #include "pm_cosmology@routines.inc.F90"
552 : end procedure
553 : #endif
554 :
555 : #undef RK_ENABLED
556 :
557 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
558 :
559 : #undef Z_ENABLED
560 :
561 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
563 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
564 :
565 : #define ZML_ENABLED 1
566 :
567 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
568 :
569 : #define RK_ENABLED 1
570 :
571 : #if RK5_ENABLED
572 : module procedure getDisComNormedZML_D0_RK5
573 : use pm_kind, only: RKC => RK5
574 : #include "pm_cosmology@routines.inc.F90"
575 : end procedure
576 : #endif
577 :
578 : #if RK4_ENABLED
579 124 : module procedure getDisComNormedZML_D0_RK4
580 : use pm_kind, only: RKC => RK4
581 : #include "pm_cosmology@routines.inc.F90"
582 : end procedure
583 : #endif
584 :
585 : #if RK3_ENABLED
586 124 : module procedure getDisComNormedZML_D0_RK3
587 : use pm_kind, only: RKC => RK3
588 : #include "pm_cosmology@routines.inc.F90"
589 : end procedure
590 : #endif
591 :
592 : #if RK2_ENABLED
593 124 : module procedure getDisComNormedZML_D0_RK2
594 : use pm_kind, only: RKC => RK2
595 : #include "pm_cosmology@routines.inc.F90"
596 : end procedure
597 : #endif
598 :
599 : #if RK1_ENABLED
600 10638 : module procedure getDisComNormedZML_D0_RK1
601 : use pm_kind, only: RKC => RK1
602 : #include "pm_cosmology@routines.inc.F90"
603 : end procedure
604 : #endif
605 :
606 : #undef RK_ENABLED
607 :
608 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
609 :
610 : #undef ZML_ENABLED
611 :
612 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
613 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
614 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
615 :
616 : #define ZMLR_ENABLED 1
617 :
618 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
619 :
620 : #define RK_ENABLED 1
621 :
622 : #if RK5_ENABLED
623 : module procedure getDisComNormedZMLR_D0_RK5
624 : use pm_kind, only: RKC => RK5
625 : #include "pm_cosmology@routines.inc.F90"
626 : end procedure
627 : #endif
628 :
629 : #if RK4_ENABLED
630 124 : module procedure getDisComNormedZMLR_D0_RK4
631 : use pm_kind, only: RKC => RK4
632 : #include "pm_cosmology@routines.inc.F90"
633 : end procedure
634 : #endif
635 :
636 : #if RK3_ENABLED
637 124 : module procedure getDisComNormedZMLR_D0_RK3
638 : use pm_kind, only: RKC => RK3
639 : #include "pm_cosmology@routines.inc.F90"
640 : end procedure
641 : #endif
642 :
643 : #if RK2_ENABLED
644 124 : module procedure getDisComNormedZMLR_D0_RK2
645 : use pm_kind, only: RKC => RK2
646 : #include "pm_cosmology@routines.inc.F90"
647 : end procedure
648 : #endif
649 :
650 : #if RK1_ENABLED
651 138 : module procedure getDisComNormedZMLR_D0_RK1
652 : use pm_kind, only: RKC => RK1
653 : #include "pm_cosmology@routines.inc.F90"
654 : end procedure
655 : #endif
656 :
657 : #undef RK_ENABLED
658 :
659 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
660 :
661 : #undef ZMLR_ENABLED
662 :
663 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
665 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
666 :
667 : #define ZMLRK_ENABLED 1
668 :
669 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
670 :
671 : #define RK_ENABLED 1
672 :
673 : #if RK5_ENABLED
674 : module procedure getDisComNormedZMLRK_D0_RK5
675 : use pm_kind, only: RKC => RK5
676 : #include "pm_cosmology@routines.inc.F90"
677 : end procedure
678 : #endif
679 :
680 : #if RK4_ENABLED
681 276 : module procedure getDisComNormedZMLRK_D0_RK4
682 : use pm_kind, only: RKC => RK4
683 : #include "pm_cosmology@routines.inc.F90"
684 : end procedure
685 : #endif
686 :
687 : #if RK3_ENABLED
688 276 : module procedure getDisComNormedZMLRK_D0_RK3
689 : use pm_kind, only: RKC => RK3
690 : #include "pm_cosmology@routines.inc.F90"
691 : end procedure
692 : #endif
693 :
694 : #if RK2_ENABLED
695 276 : module procedure getDisComNormedZMLRK_D0_RK2
696 : use pm_kind, only: RKC => RK2
697 : #include "pm_cosmology@routines.inc.F90"
698 : end procedure
699 : #endif
700 :
701 : #if RK1_ENABLED
702 290 : module procedure getDisComNormedZMLRK_D0_RK1
703 : use pm_kind, only: RKC => RK1
704 : #include "pm_cosmology@routines.inc.F90"
705 : end procedure
706 : #endif
707 :
708 : #undef RK_ENABLED
709 :
710 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
711 :
712 : #undef ZMLRK_ENABLED
713 :
714 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
716 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
717 :
718 : #undef D0_ENABLED
719 :
720 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
721 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
722 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
723 :
724 : #undef getDisComNormed_ENABLED
725 :
726 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
727 :
728 : #define getDisComTransNormed_ENABLED 1
729 :
730 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
731 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
732 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
733 :
734 : #define D0_ENABLED 1
735 :
736 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
737 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
738 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
739 :
740 : #define Z_ENABLED 1
741 :
742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
743 :
744 : #define RK_ENABLED 1
745 :
746 : #if RK5_ENABLED
747 : module procedure getDisComTransNormedZ_D0_RK5
748 : use pm_kind, only: RKC => RK5
749 : #include "pm_cosmology@routines.inc.F90"
750 : end procedure
751 : #endif
752 :
753 : #if RK4_ENABLED
754 116 : module procedure getDisComTransNormedZ_D0_RK4
755 : use pm_kind, only: RKC => RK4
756 : #include "pm_cosmology@routines.inc.F90"
757 116 : end procedure
758 : #endif
759 :
760 : #if RK3_ENABLED
761 116 : module procedure getDisComTransNormedZ_D0_RK3
762 : use pm_kind, only: RKC => RK3
763 : #include "pm_cosmology@routines.inc.F90"
764 116 : end procedure
765 : #endif
766 :
767 : #if RK2_ENABLED
768 63369 : module procedure getDisComTransNormedZ_D0_RK2
769 : use pm_kind, only: RKC => RK2
770 : #include "pm_cosmology@routines.inc.F90"
771 63369 : end procedure
772 : #endif
773 :
774 : #if RK1_ENABLED
775 128 : module procedure getDisComTransNormedZ_D0_RK1
776 : use pm_kind, only: RKC => RK1
777 : #include "pm_cosmology@routines.inc.F90"
778 128 : end procedure
779 : #endif
780 :
781 : #undef RK_ENABLED
782 :
783 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
784 :
785 : #undef Z_ENABLED
786 :
787 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
789 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
790 :
791 : #define ZML_ENABLED 1
792 :
793 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
794 :
795 : #define RK_ENABLED 1
796 :
797 : #if RK5_ENABLED
798 : module procedure getDisComTransNormedZML_D0_RK5
799 : use pm_kind, only: RKC => RK5
800 : #include "pm_cosmology@routines.inc.F90"
801 : end procedure
802 : #endif
803 :
804 : #if RK4_ENABLED
805 116 : module procedure getDisComTransNormedZML_D0_RK4
806 : use pm_kind, only: RKC => RK4
807 : #include "pm_cosmology@routines.inc.F90"
808 116 : end procedure
809 : #endif
810 :
811 : #if RK3_ENABLED
812 116 : module procedure getDisComTransNormedZML_D0_RK3
813 : use pm_kind, only: RKC => RK3
814 : #include "pm_cosmology@routines.inc.F90"
815 116 : end procedure
816 : #endif
817 :
818 : #if RK2_ENABLED
819 116 : module procedure getDisComTransNormedZML_D0_RK2
820 : use pm_kind, only: RKC => RK2
821 : #include "pm_cosmology@routines.inc.F90"
822 116 : end procedure
823 : #endif
824 :
825 : #if RK1_ENABLED
826 9128 : module procedure getDisComTransNormedZML_D0_RK1
827 : use pm_kind, only: RKC => RK1
828 : #include "pm_cosmology@routines.inc.F90"
829 9128 : end procedure
830 : #endif
831 :
832 : #undef RK_ENABLED
833 :
834 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
835 :
836 : #undef ZML_ENABLED
837 :
838 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
839 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
840 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
841 :
842 : #define ZMLR_ENABLED 1
843 :
844 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
845 :
846 : #define RK_ENABLED 1
847 :
848 : #if RK5_ENABLED
849 : module procedure getDisComTransNormedZMLR_D0_RK5
850 : use pm_kind, only: RKC => RK5
851 : #include "pm_cosmology@routines.inc.F90"
852 : end procedure
853 : #endif
854 :
855 : #if RK4_ENABLED
856 116 : module procedure getDisComTransNormedZMLR_D0_RK4
857 : use pm_kind, only: RKC => RK4
858 : #include "pm_cosmology@routines.inc.F90"
859 116 : end procedure
860 : #endif
861 :
862 : #if RK3_ENABLED
863 116 : module procedure getDisComTransNormedZMLR_D0_RK3
864 : use pm_kind, only: RKC => RK3
865 : #include "pm_cosmology@routines.inc.F90"
866 116 : end procedure
867 : #endif
868 :
869 : #if RK2_ENABLED
870 116 : module procedure getDisComTransNormedZMLR_D0_RK2
871 : use pm_kind, only: RKC => RK2
872 : #include "pm_cosmology@routines.inc.F90"
873 116 : end procedure
874 : #endif
875 :
876 : #if RK1_ENABLED
877 128 : module procedure getDisComTransNormedZMLR_D0_RK1
878 : use pm_kind, only: RKC => RK1
879 : #include "pm_cosmology@routines.inc.F90"
880 128 : end procedure
881 : #endif
882 :
883 : #undef RK_ENABLED
884 :
885 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
886 :
887 : #undef ZMLR_ENABLED
888 :
889 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
890 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
891 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
892 :
893 : #define ZMLRK_ENABLED 1
894 :
895 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
896 :
897 : #define RK_ENABLED 1
898 :
899 : #if RK5_ENABLED
900 : module procedure getDisComTransNormedZMLRK_D0_RK5
901 : use pm_kind, only: RKC => RK5
902 : #include "pm_cosmology@routines.inc.F90"
903 : end procedure
904 : #endif
905 :
906 : #if RK4_ENABLED
907 216 : module procedure getDisComTransNormedZMLRK_D0_RK4
908 : use pm_kind, only: RKC => RK4
909 : #include "pm_cosmology@routines.inc.F90"
910 216 : end procedure
911 : #endif
912 :
913 : #if RK3_ENABLED
914 216 : module procedure getDisComTransNormedZMLRK_D0_RK3
915 : use pm_kind, only: RKC => RK3
916 : #include "pm_cosmology@routines.inc.F90"
917 216 : end procedure
918 : #endif
919 :
920 : #if RK2_ENABLED
921 216 : module procedure getDisComTransNormedZMLRK_D0_RK2
922 : use pm_kind, only: RKC => RK2
923 : #include "pm_cosmology@routines.inc.F90"
924 216 : end procedure
925 : #endif
926 :
927 : #if RK1_ENABLED
928 228 : module procedure getDisComTransNormedZMLRK_D0_RK1
929 : use pm_kind, only: RKC => RK1
930 : #include "pm_cosmology@routines.inc.F90"
931 228 : end procedure
932 : #endif
933 :
934 : #undef RK_ENABLED
935 :
936 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
937 :
938 : #undef ZMLRK_ENABLED
939 :
940 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
941 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
942 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
943 :
944 : #undef D0_ENABLED
945 :
946 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
947 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
948 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
949 :
950 : #undef getDisComTransNormed_ENABLED
951 :
952 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
953 :
954 : #define getDisAngNormed_ENABLED 1
955 :
956 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
957 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
958 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
959 :
960 : #define D0_ENABLED 1
961 :
962 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
963 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
964 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
965 :
966 : #define Z_ENABLED 1
967 :
968 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
969 :
970 : #define RK_ENABLED 1
971 :
972 : #if RK5_ENABLED
973 : module procedure getDisAngNormedZ_D0_RK5
974 : use pm_kind, only: RKC => RK5
975 : #include "pm_cosmology@routines.inc.F90"
976 : end procedure
977 : #endif
978 :
979 : #if RK4_ENABLED
980 4 : module procedure getDisAngNormedZ_D0_RK4
981 : use pm_kind, only: RKC => RK4
982 : #include "pm_cosmology@routines.inc.F90"
983 4 : end procedure
984 : #endif
985 :
986 : #if RK3_ENABLED
987 4 : module procedure getDisAngNormedZ_D0_RK3
988 : use pm_kind, only: RKC => RK3
989 : #include "pm_cosmology@routines.inc.F90"
990 4 : end procedure
991 : #endif
992 :
993 : #if RK2_ENABLED
994 4 : module procedure getDisAngNormedZ_D0_RK2
995 : use pm_kind, only: RKC => RK2
996 : #include "pm_cosmology@routines.inc.F90"
997 4 : end procedure
998 : #endif
999 :
1000 : #if RK1_ENABLED
1001 6 : module procedure getDisAngNormedZ_D0_RK1
1002 : use pm_kind, only: RKC => RK1
1003 : #include "pm_cosmology@routines.inc.F90"
1004 6 : end procedure
1005 : #endif
1006 :
1007 : #undef RK_ENABLED
1008 :
1009 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1010 :
1011 : #undef Z_ENABLED
1012 :
1013 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1014 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1015 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1016 :
1017 : #define ZML_ENABLED 1
1018 :
1019 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1020 :
1021 : #define RK_ENABLED 1
1022 :
1023 : #if RK5_ENABLED
1024 : module procedure getDisAngNormedZML_D0_RK5
1025 : use pm_kind, only: RKC => RK5
1026 : #include "pm_cosmology@routines.inc.F90"
1027 : end procedure
1028 : #endif
1029 :
1030 : #if RK4_ENABLED
1031 4 : module procedure getDisAngNormedZML_D0_RK4
1032 : use pm_kind, only: RKC => RK4
1033 : #include "pm_cosmology@routines.inc.F90"
1034 4 : end procedure
1035 : #endif
1036 :
1037 : #if RK3_ENABLED
1038 4 : module procedure getDisAngNormedZML_D0_RK3
1039 : use pm_kind, only: RKC => RK3
1040 : #include "pm_cosmology@routines.inc.F90"
1041 4 : end procedure
1042 : #endif
1043 :
1044 : #if RK2_ENABLED
1045 4 : module procedure getDisAngNormedZML_D0_RK2
1046 : use pm_kind, only: RKC => RK2
1047 : #include "pm_cosmology@routines.inc.F90"
1048 4 : end procedure
1049 : #endif
1050 :
1051 : #if RK1_ENABLED
1052 1506 : module procedure getDisAngNormedZML_D0_RK1
1053 : use pm_kind, only: RKC => RK1
1054 : #include "pm_cosmology@routines.inc.F90"
1055 1506 : end procedure
1056 : #endif
1057 :
1058 : #undef RK_ENABLED
1059 :
1060 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1061 :
1062 : #undef ZML_ENABLED
1063 :
1064 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1065 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1066 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1067 :
1068 : #define ZMLR_ENABLED 1
1069 :
1070 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1071 :
1072 : #define RK_ENABLED 1
1073 :
1074 : #if RK5_ENABLED
1075 : module procedure getDisAngNormedZMLR_D0_RK5
1076 : use pm_kind, only: RKC => RK5
1077 : #include "pm_cosmology@routines.inc.F90"
1078 : end procedure
1079 : #endif
1080 :
1081 : #if RK4_ENABLED
1082 4 : module procedure getDisAngNormedZMLR_D0_RK4
1083 : use pm_kind, only: RKC => RK4
1084 : #include "pm_cosmology@routines.inc.F90"
1085 4 : end procedure
1086 : #endif
1087 :
1088 : #if RK3_ENABLED
1089 4 : module procedure getDisAngNormedZMLR_D0_RK3
1090 : use pm_kind, only: RKC => RK3
1091 : #include "pm_cosmology@routines.inc.F90"
1092 4 : end procedure
1093 : #endif
1094 :
1095 : #if RK2_ENABLED
1096 4 : module procedure getDisAngNormedZMLR_D0_RK2
1097 : use pm_kind, only: RKC => RK2
1098 : #include "pm_cosmology@routines.inc.F90"
1099 4 : end procedure
1100 : #endif
1101 :
1102 : #if RK1_ENABLED
1103 6 : module procedure getDisAngNormedZMLR_D0_RK1
1104 : use pm_kind, only: RKC => RK1
1105 : #include "pm_cosmology@routines.inc.F90"
1106 6 : end procedure
1107 : #endif
1108 :
1109 : #undef RK_ENABLED
1110 :
1111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1112 :
1113 : #undef ZMLR_ENABLED
1114 :
1115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1116 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1117 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1118 :
1119 : #define ZMLRK_ENABLED 1
1120 :
1121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1122 :
1123 : #define RK_ENABLED 1
1124 :
1125 : #if RK5_ENABLED
1126 : module procedure getDisAngNormedZMLRK_D0_RK5
1127 : use pm_kind, only: RKC => RK5
1128 : #include "pm_cosmology@routines.inc.F90"
1129 : end procedure
1130 : #endif
1131 :
1132 : #if RK4_ENABLED
1133 12 : module procedure getDisAngNormedZMLRK_D0_RK4
1134 : use pm_kind, only: RKC => RK4
1135 : #include "pm_cosmology@routines.inc.F90"
1136 12 : end procedure
1137 : #endif
1138 :
1139 : #if RK3_ENABLED
1140 12 : module procedure getDisAngNormedZMLRK_D0_RK3
1141 : use pm_kind, only: RKC => RK3
1142 : #include "pm_cosmology@routines.inc.F90"
1143 12 : end procedure
1144 : #endif
1145 :
1146 : #if RK2_ENABLED
1147 12 : module procedure getDisAngNormedZMLRK_D0_RK2
1148 : use pm_kind, only: RKC => RK2
1149 : #include "pm_cosmology@routines.inc.F90"
1150 12 : end procedure
1151 : #endif
1152 :
1153 : #if RK1_ENABLED
1154 14 : module procedure getDisAngNormedZMLRK_D0_RK1
1155 : use pm_kind, only: RKC => RK1
1156 : #include "pm_cosmology@routines.inc.F90"
1157 14 : end procedure
1158 : #endif
1159 :
1160 : #undef RK_ENABLED
1161 :
1162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1163 :
1164 : #undef ZMLRK_ENABLED
1165 :
1166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1168 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1169 :
1170 : #undef D0_ENABLED
1171 :
1172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1175 :
1176 : #undef getDisAngNormed_ENABLED
1177 :
1178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1179 :
1180 : #define getDisLumNormed_ENABLED 1
1181 :
1182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1185 :
1186 : #define D0_ENABLED 1
1187 :
1188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1191 :
1192 : #define Z_ENABLED 1
1193 :
1194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1195 :
1196 : #define RK_ENABLED 1
1197 :
1198 : #if RK5_ENABLED
1199 : module procedure getDisLumNormedZ_D0_RK5
1200 : use pm_kind, only: RKC => RK5
1201 : #include "pm_cosmology@routines.inc.F90"
1202 : end procedure
1203 : #endif
1204 :
1205 : #if RK4_ENABLED
1206 4 : module procedure getDisLumNormedZ_D0_RK4
1207 : use pm_kind, only: RKC => RK4
1208 : #include "pm_cosmology@routines.inc.F90"
1209 4 : end procedure
1210 : #endif
1211 :
1212 : #if RK3_ENABLED
1213 4 : module procedure getDisLumNormedZ_D0_RK3
1214 : use pm_kind, only: RKC => RK3
1215 : #include "pm_cosmology@routines.inc.F90"
1216 4 : end procedure
1217 : #endif
1218 :
1219 : #if RK2_ENABLED
1220 4 : module procedure getDisLumNormedZ_D0_RK2
1221 : use pm_kind, only: RKC => RK2
1222 : #include "pm_cosmology@routines.inc.F90"
1223 4 : end procedure
1224 : #endif
1225 :
1226 : #if RK1_ENABLED
1227 6 : module procedure getDisLumNormedZ_D0_RK1
1228 : use pm_kind, only: RKC => RK1
1229 : #include "pm_cosmology@routines.inc.F90"
1230 6 : end procedure
1231 : #endif
1232 :
1233 : #undef RK_ENABLED
1234 :
1235 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1236 :
1237 : #undef Z_ENABLED
1238 :
1239 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1241 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1242 :
1243 : #define ZML_ENABLED 1
1244 :
1245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1246 :
1247 : #define RK_ENABLED 1
1248 :
1249 : #if RK5_ENABLED
1250 : module procedure getDisLumNormedZML_D0_RK5
1251 : use pm_kind, only: RKC => RK5
1252 : #include "pm_cosmology@routines.inc.F90"
1253 : end procedure
1254 : #endif
1255 :
1256 : #if RK4_ENABLED
1257 4 : module procedure getDisLumNormedZML_D0_RK4
1258 : use pm_kind, only: RKC => RK4
1259 : #include "pm_cosmology@routines.inc.F90"
1260 4 : end procedure
1261 : #endif
1262 :
1263 : #if RK3_ENABLED
1264 4 : module procedure getDisLumNormedZML_D0_RK3
1265 : use pm_kind, only: RKC => RK3
1266 : #include "pm_cosmology@routines.inc.F90"
1267 4 : end procedure
1268 : #endif
1269 :
1270 : #if RK2_ENABLED
1271 4 : module procedure getDisLumNormedZML_D0_RK2
1272 : use pm_kind, only: RKC => RK2
1273 : #include "pm_cosmology@routines.inc.F90"
1274 4 : end procedure
1275 : #endif
1276 :
1277 : #if RK1_ENABLED
1278 1506 : module procedure getDisLumNormedZML_D0_RK1
1279 : use pm_kind, only: RKC => RK1
1280 : #include "pm_cosmology@routines.inc.F90"
1281 1506 : end procedure
1282 : #endif
1283 :
1284 : #undef RK_ENABLED
1285 :
1286 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1287 :
1288 : #undef ZML_ENABLED
1289 :
1290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1291 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1292 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1293 :
1294 : #define ZMLR_ENABLED 1
1295 :
1296 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1297 :
1298 : #define RK_ENABLED 1
1299 :
1300 : #if RK5_ENABLED
1301 : module procedure getDisLumNormedZMLR_D0_RK5
1302 : use pm_kind, only: RKC => RK5
1303 : #include "pm_cosmology@routines.inc.F90"
1304 : end procedure
1305 : #endif
1306 :
1307 : #if RK4_ENABLED
1308 4 : module procedure getDisLumNormedZMLR_D0_RK4
1309 : use pm_kind, only: RKC => RK4
1310 : #include "pm_cosmology@routines.inc.F90"
1311 4 : end procedure
1312 : #endif
1313 :
1314 : #if RK3_ENABLED
1315 4 : module procedure getDisLumNormedZMLR_D0_RK3
1316 : use pm_kind, only: RKC => RK3
1317 : #include "pm_cosmology@routines.inc.F90"
1318 4 : end procedure
1319 : #endif
1320 :
1321 : #if RK2_ENABLED
1322 4 : module procedure getDisLumNormedZMLR_D0_RK2
1323 : use pm_kind, only: RKC => RK2
1324 : #include "pm_cosmology@routines.inc.F90"
1325 4 : end procedure
1326 : #endif
1327 :
1328 : #if RK1_ENABLED
1329 6 : module procedure getDisLumNormedZMLR_D0_RK1
1330 : use pm_kind, only: RKC => RK1
1331 : #include "pm_cosmology@routines.inc.F90"
1332 6 : end procedure
1333 : #endif
1334 :
1335 : #undef RK_ENABLED
1336 :
1337 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1338 :
1339 : #undef ZMLR_ENABLED
1340 :
1341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1342 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1343 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1344 :
1345 : #define ZMLRK_ENABLED 1
1346 :
1347 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1348 :
1349 : #define RK_ENABLED 1
1350 :
1351 : #if RK5_ENABLED
1352 : module procedure getDisLumNormedZMLRK_D0_RK5
1353 : use pm_kind, only: RKC => RK5
1354 : #include "pm_cosmology@routines.inc.F90"
1355 : end procedure
1356 : #endif
1357 :
1358 : #if RK4_ENABLED
1359 12 : module procedure getDisLumNormedZMLRK_D0_RK4
1360 : use pm_kind, only: RKC => RK4
1361 : #include "pm_cosmology@routines.inc.F90"
1362 12 : end procedure
1363 : #endif
1364 :
1365 : #if RK3_ENABLED
1366 12 : module procedure getDisLumNormedZMLRK_D0_RK3
1367 : use pm_kind, only: RKC => RK3
1368 : #include "pm_cosmology@routines.inc.F90"
1369 12 : end procedure
1370 : #endif
1371 :
1372 : #if RK2_ENABLED
1373 12 : module procedure getDisLumNormedZMLRK_D0_RK2
1374 : use pm_kind, only: RKC => RK2
1375 : #include "pm_cosmology@routines.inc.F90"
1376 12 : end procedure
1377 : #endif
1378 :
1379 : #if RK1_ENABLED
1380 14 : module procedure getDisLumNormedZMLRK_D0_RK1
1381 : use pm_kind, only: RKC => RK1
1382 : #include "pm_cosmology@routines.inc.F90"
1383 14 : end procedure
1384 : #endif
1385 :
1386 : #undef RK_ENABLED
1387 :
1388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1389 :
1390 : #undef ZMLRK_ENABLED
1391 :
1392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1393 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1395 :
1396 : #undef D0_ENABLED
1397 :
1398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1401 :
1402 : #undef getDisLumNormed_ENABLED
1403 :
1404 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1405 :
1406 : #define getDisComTransNormedWU10_ENABLED 1
1407 :
1408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1409 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1411 :
1412 : #define D0_ENABLED 1
1413 :
1414 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1415 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1417 :
1418 : #define Z_ENABLED 1
1419 :
1420 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1421 :
1422 : #define RK_ENABLED 1
1423 :
1424 : #if RK5_ENABLED
1425 : module procedure getDisComTransNormedWU10Z_D0_RK5
1426 : use pm_kind, only: RKC => RK5
1427 : #include "pm_cosmology@routines.inc.F90"
1428 : end procedure
1429 : #endif
1430 :
1431 : #if RK4_ENABLED
1432 20 : module procedure getDisComTransNormedWU10Z_D0_RK4
1433 : use pm_kind, only: RKC => RK4
1434 : #include "pm_cosmology@routines.inc.F90"
1435 20 : end procedure
1436 : #endif
1437 :
1438 : #if RK3_ENABLED
1439 20 : module procedure getDisComTransNormedWU10Z_D0_RK3
1440 : use pm_kind, only: RKC => RK3
1441 : #include "pm_cosmology@routines.inc.F90"
1442 20 : end procedure
1443 : #endif
1444 :
1445 : #if RK2_ENABLED
1446 1020 : module procedure getDisComTransNormedWU10Z_D0_RK2
1447 : use pm_kind, only: RKC => RK2
1448 : #include "pm_cosmology@routines.inc.F90"
1449 1020 : end procedure
1450 : #endif
1451 :
1452 : #if RK1_ENABLED
1453 22 : module procedure getDisComTransNormedWU10Z_D0_RK1
1454 : use pm_kind, only: RKC => RK1
1455 : #include "pm_cosmology@routines.inc.F90"
1456 22 : end procedure
1457 : #endif
1458 :
1459 : #undef RK_ENABLED
1460 :
1461 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1462 :
1463 : #undef Z_ENABLED
1464 :
1465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1468 :
1469 : #define ZML_ENABLED 1
1470 :
1471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1472 :
1473 : #define RK_ENABLED 1
1474 :
1475 : #if RK5_ENABLED
1476 : module procedure getDisComTransNormedWU10ZML_D0_RK5
1477 : use pm_kind, only: RKC => RK5
1478 : #include "pm_cosmology@routines.inc.F90"
1479 : end procedure
1480 : #endif
1481 :
1482 : #if RK4_ENABLED
1483 20 : module procedure getDisComTransNormedWU10ZML_D0_RK4
1484 : use pm_kind, only: RKC => RK4
1485 : #include "pm_cosmology@routines.inc.F90"
1486 20 : end procedure
1487 : #endif
1488 :
1489 : #if RK3_ENABLED
1490 20 : module procedure getDisComTransNormedWU10ZML_D0_RK3
1491 : use pm_kind, only: RKC => RK3
1492 : #include "pm_cosmology@routines.inc.F90"
1493 20 : end procedure
1494 : #endif
1495 :
1496 : #if RK2_ENABLED
1497 20 : module procedure getDisComTransNormedWU10ZML_D0_RK2
1498 : use pm_kind, only: RKC => RK2
1499 : #include "pm_cosmology@routines.inc.F90"
1500 20 : end procedure
1501 : #endif
1502 :
1503 : #if RK1_ENABLED
1504 1522 : module procedure getDisComTransNormedWU10ZML_D0_RK1
1505 : use pm_kind, only: RKC => RK1
1506 : #include "pm_cosmology@routines.inc.F90"
1507 1522 : end procedure
1508 : #endif
1509 :
1510 : #undef RK_ENABLED
1511 :
1512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1513 :
1514 : #undef ZML_ENABLED
1515 :
1516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1518 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1519 :
1520 : #undef D0_ENABLED
1521 :
1522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1525 :
1526 : #undef getDisComTransNormedWU10_ENABLED
1527 :
1528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1529 :
1530 : #define getHubbleParamNormedSq_ENABLED 1
1531 :
1532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1535 :
1536 : #define D0_ENABLED 1
1537 :
1538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1541 :
1542 : #define Z_ENABLED 1
1543 :
1544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1545 :
1546 : #define RK_ENABLED 1
1547 :
1548 : #if RK5_ENABLED
1549 : module procedure getHubbleParamNormedSqZ_D0_RK5
1550 : use pm_kind, only: RKC => RK5
1551 : #include "pm_cosmology@routines.inc.F90"
1552 : end procedure
1553 : #endif
1554 :
1555 : #if RK4_ENABLED
1556 33517 : module procedure getHubbleParamNormedSqZ_D0_RK4
1557 : use pm_kind, only: RKC => RK4
1558 : #include "pm_cosmology@routines.inc.F90"
1559 33517 : end procedure
1560 : #endif
1561 :
1562 : #if RK3_ENABLED
1563 11088 : module procedure getHubbleParamNormedSqZ_D0_RK3
1564 : use pm_kind, only: RKC => RK3
1565 : #include "pm_cosmology@routines.inc.F90"
1566 11088 : end procedure
1567 : #endif
1568 :
1569 : #if RK2_ENABLED
1570 2575707 : module procedure getHubbleParamNormedSqZ_D0_RK2
1571 : use pm_kind, only: RKC => RK2
1572 : #include "pm_cosmology@routines.inc.F90"
1573 2575707 : end procedure
1574 : #endif
1575 :
1576 : #if RK1_ENABLED
1577 6259 : module procedure getHubbleParamNormedSqZ_D0_RK1
1578 : use pm_kind, only: RKC => RK1
1579 : #include "pm_cosmology@routines.inc.F90"
1580 6259 : end procedure
1581 : #endif
1582 :
1583 : #undef RK_ENABLED
1584 :
1585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1586 :
1587 : #undef Z_ENABLED
1588 :
1589 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1590 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1592 :
1593 : #define ZML_ENABLED 1
1594 :
1595 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1596 :
1597 : #define RK_ENABLED 1
1598 :
1599 : #if RK5_ENABLED
1600 : module procedure getHubbleParamNormedSqZML_D0_RK5
1601 : use pm_kind, only: RKC => RK5
1602 : #include "pm_cosmology@routines.inc.F90"
1603 : end procedure
1604 : #endif
1605 :
1606 : #if RK4_ENABLED
1607 36456 : module procedure getHubbleParamNormedSqZML_D0_RK4
1608 : use pm_kind, only: RKC => RK4
1609 : #include "pm_cosmology@routines.inc.F90"
1610 36456 : end procedure
1611 : #endif
1612 :
1613 : #if RK3_ENABLED
1614 11172 : module procedure getHubbleParamNormedSqZML_D0_RK3
1615 : use pm_kind, only: RKC => RK3
1616 : #include "pm_cosmology@routines.inc.F90"
1617 11172 : end procedure
1618 : #endif
1619 :
1620 : #if RK2_ENABLED
1621 8232 : module procedure getHubbleParamNormedSqZML_D0_RK2
1622 : use pm_kind, only: RKC => RK2
1623 : #include "pm_cosmology@routines.inc.F90"
1624 8232 : end procedure
1625 : #endif
1626 :
1627 : #if RK1_ENABLED
1628 1463500 : module procedure getHubbleParamNormedSqZML_D0_RK1
1629 : use pm_kind, only: RKC => RK1
1630 : #include "pm_cosmology@routines.inc.F90"
1631 1463500 : end procedure
1632 : #endif
1633 :
1634 : #undef RK_ENABLED
1635 :
1636 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1637 :
1638 : #undef ZML_ENABLED
1639 :
1640 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1641 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1643 :
1644 : #define ZMLR_ENABLED 1
1645 :
1646 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1647 :
1648 : #define RK_ENABLED 1
1649 :
1650 : #if RK5_ENABLED
1651 : module procedure getHubbleParamNormedSqZMLR_D0_RK5
1652 : use pm_kind, only: RKC => RK5
1653 : #include "pm_cosmology@routines.inc.F90"
1654 : end procedure
1655 : #endif
1656 :
1657 : #if RK4_ENABLED
1658 35784 : module procedure getHubbleParamNormedSqZMLR_D0_RK4
1659 : use pm_kind, only: RKC => RK4
1660 : #include "pm_cosmology@routines.inc.F90"
1661 35784 : end procedure
1662 : #endif
1663 :
1664 : #if RK3_ENABLED
1665 13020 : module procedure getHubbleParamNormedSqZMLR_D0_RK3
1666 : use pm_kind, only: RKC => RK3
1667 : #include "pm_cosmology@routines.inc.F90"
1668 13020 : end procedure
1669 : #endif
1670 :
1671 : #if RK2_ENABLED
1672 9156 : module procedure getHubbleParamNormedSqZMLR_D0_RK2
1673 : use pm_kind, only: RKC => RK2
1674 : #include "pm_cosmology@routines.inc.F90"
1675 9156 : end procedure
1676 : #endif
1677 :
1678 : #if RK1_ENABLED
1679 6090 : module procedure getHubbleParamNormedSqZMLR_D0_RK1
1680 : use pm_kind, only: RKC => RK1
1681 : #include "pm_cosmology@routines.inc.F90"
1682 6090 : end procedure
1683 : #endif
1684 :
1685 : #undef RK_ENABLED
1686 :
1687 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1688 :
1689 : #undef ZMLR_ENABLED
1690 :
1691 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1692 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1693 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1694 :
1695 : #define ZMLRK_ENABLED 1
1696 :
1697 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1698 :
1699 : #define RK_ENABLED 1
1700 :
1701 : #if RK5_ENABLED
1702 : module procedure getHubbleParamNormedSqZMLRK_D0_RK5
1703 : use pm_kind, only: RKC => RK5
1704 : #include "pm_cosmology@routines.inc.F90"
1705 : end procedure
1706 : #endif
1707 :
1708 : #if RK4_ENABLED
1709 77804 : module procedure getHubbleParamNormedSqZMLRK_D0_RK4
1710 : use pm_kind, only: RKC => RK4
1711 : #include "pm_cosmology@routines.inc.F90"
1712 77804 : end procedure
1713 : #endif
1714 :
1715 : #if RK3_ENABLED
1716 27572 : module procedure getHubbleParamNormedSqZMLRK_D0_RK3
1717 : use pm_kind, only: RKC => RK3
1718 : #include "pm_cosmology@routines.inc.F90"
1719 27572 : end procedure
1720 : #endif
1721 :
1722 : #if RK2_ENABLED
1723 20852 : module procedure getHubbleParamNormedSqZMLRK_D0_RK2
1724 : use pm_kind, only: RKC => RK2
1725 : #include "pm_cosmology@routines.inc.F90"
1726 20852 : end procedure
1727 : #endif
1728 :
1729 : #if RK1_ENABLED
1730 10562 : module procedure getHubbleParamNormedSqZMLRK_D0_RK1
1731 : use pm_kind, only: RKC => RK1
1732 : #include "pm_cosmology@routines.inc.F90"
1733 10562 : end procedure
1734 : #endif
1735 :
1736 : #undef RK_ENABLED
1737 :
1738 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1739 :
1740 : #undef ZMLRK_ENABLED
1741 :
1742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1743 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1744 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1745 :
1746 : #undef D0_ENABLED
1747 :
1748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1749 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1750 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1751 :
1752 : #undef getHubbleParamNormedSq_ENABLED
1753 :
1754 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1755 :
1756 : #define getVolComDiffNormed_ENABLED 1
1757 :
1758 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1759 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1761 :
1762 : #define D0_ENABLED 1
1763 :
1764 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1765 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1767 :
1768 : #define Z_ENABLED 1
1769 :
1770 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1771 :
1772 : #define RK_ENABLED 1
1773 :
1774 : #if RK5_ENABLED
1775 : module procedure getVolComDiffNormedZ_D0_RK5
1776 : use pm_kind, only: RKC => RK5
1777 : #include "pm_cosmology@routines.inc.F90"
1778 : end procedure
1779 : #endif
1780 :
1781 : #if RK4_ENABLED
1782 40 : module procedure getVolComDiffNormedZ_D0_RK4
1783 : use pm_kind, only: RKC => RK4
1784 : #include "pm_cosmology@routines.inc.F90"
1785 40 : end procedure
1786 : #endif
1787 :
1788 : #if RK3_ENABLED
1789 40 : module procedure getVolComDiffNormedZ_D0_RK3
1790 : use pm_kind, only: RKC => RK3
1791 : #include "pm_cosmology@routines.inc.F90"
1792 40 : end procedure
1793 : #endif
1794 :
1795 : #if RK2_ENABLED
1796 63293 : module procedure getVolComDiffNormedZ_D0_RK2
1797 : use pm_kind, only: RKC => RK2
1798 : #include "pm_cosmology@routines.inc.F90"
1799 63293 : end procedure
1800 : #endif
1801 :
1802 : #if RK1_ENABLED
1803 42 : module procedure getVolComDiffNormedZ_D0_RK1
1804 : use pm_kind, only: RKC => RK1
1805 : #include "pm_cosmology@routines.inc.F90"
1806 42 : end procedure
1807 : #endif
1808 :
1809 : #undef RK_ENABLED
1810 :
1811 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1812 :
1813 : #undef Z_ENABLED
1814 :
1815 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1816 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1817 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1818 :
1819 : #define ZML_ENABLED 1
1820 :
1821 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1822 :
1823 : #define RK_ENABLED 1
1824 :
1825 : #if RK5_ENABLED
1826 : module procedure getVolComDiffNormedZML_D0_RK5
1827 : use pm_kind, only: RKC => RK5
1828 : #include "pm_cosmology@routines.inc.F90"
1829 : end procedure
1830 : #endif
1831 :
1832 : #if RK4_ENABLED
1833 40 : module procedure getVolComDiffNormedZML_D0_RK4
1834 : use pm_kind, only: RKC => RK4
1835 : #include "pm_cosmology@routines.inc.F90"
1836 40 : end procedure
1837 : #endif
1838 :
1839 : #if RK3_ENABLED
1840 40 : module procedure getVolComDiffNormedZML_D0_RK3
1841 : use pm_kind, only: RKC => RK3
1842 : #include "pm_cosmology@routines.inc.F90"
1843 40 : end procedure
1844 : #endif
1845 :
1846 : #if RK2_ENABLED
1847 40 : module procedure getVolComDiffNormedZML_D0_RK2
1848 : use pm_kind, only: RKC => RK2
1849 : #include "pm_cosmology@routines.inc.F90"
1850 40 : end procedure
1851 : #endif
1852 :
1853 : #if RK1_ENABLED
1854 1542 : module procedure getVolComDiffNormedZML_D0_RK1
1855 : use pm_kind, only: RKC => RK1
1856 : #include "pm_cosmology@routines.inc.F90"
1857 1542 : end procedure
1858 : #endif
1859 :
1860 : #undef RK_ENABLED
1861 :
1862 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1863 :
1864 : #undef ZML_ENABLED
1865 :
1866 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1867 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1868 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1869 :
1870 : #define ZMLR_ENABLED 1
1871 :
1872 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1873 :
1874 : #define RK_ENABLED 1
1875 :
1876 : #if RK5_ENABLED
1877 : module procedure getVolComDiffNormedZMLR_D0_RK5
1878 : use pm_kind, only: RKC => RK5
1879 : #include "pm_cosmology@routines.inc.F90"
1880 : end procedure
1881 : #endif
1882 :
1883 : #if RK4_ENABLED
1884 40 : module procedure getVolComDiffNormedZMLR_D0_RK4
1885 : use pm_kind, only: RKC => RK4
1886 : #include "pm_cosmology@routines.inc.F90"
1887 40 : end procedure
1888 : #endif
1889 :
1890 : #if RK3_ENABLED
1891 40 : module procedure getVolComDiffNormedZMLR_D0_RK3
1892 : use pm_kind, only: RKC => RK3
1893 : #include "pm_cosmology@routines.inc.F90"
1894 40 : end procedure
1895 : #endif
1896 :
1897 : #if RK2_ENABLED
1898 40 : module procedure getVolComDiffNormedZMLR_D0_RK2
1899 : use pm_kind, only: RKC => RK2
1900 : #include "pm_cosmology@routines.inc.F90"
1901 40 : end procedure
1902 : #endif
1903 :
1904 : #if RK1_ENABLED
1905 42 : module procedure getVolComDiffNormedZMLR_D0_RK1
1906 : use pm_kind, only: RKC => RK1
1907 : #include "pm_cosmology@routines.inc.F90"
1908 42 : end procedure
1909 : #endif
1910 :
1911 : #undef RK_ENABLED
1912 :
1913 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1914 :
1915 : #undef ZMLR_ENABLED
1916 :
1917 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1918 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1919 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1920 :
1921 : #define ZMLRK_ENABLED 1
1922 :
1923 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1924 :
1925 : #define RK_ENABLED 1
1926 :
1927 : #if RK5_ENABLED
1928 : module procedure getVolComDiffNormedZMLRK_D0_RK5
1929 : use pm_kind, only: RKC => RK5
1930 : #include "pm_cosmology@routines.inc.F90"
1931 : end procedure
1932 : #endif
1933 :
1934 : #if RK4_ENABLED
1935 40 : module procedure getVolComDiffNormedZMLRK_D0_RK4
1936 : use pm_kind, only: RKC => RK4
1937 : #include "pm_cosmology@routines.inc.F90"
1938 40 : end procedure
1939 : #endif
1940 :
1941 : #if RK3_ENABLED
1942 40 : module procedure getVolComDiffNormedZMLRK_D0_RK3
1943 : use pm_kind, only: RKC => RK3
1944 : #include "pm_cosmology@routines.inc.F90"
1945 40 : end procedure
1946 : #endif
1947 :
1948 : #if RK2_ENABLED
1949 40 : module procedure getVolComDiffNormedZMLRK_D0_RK2
1950 : use pm_kind, only: RKC => RK2
1951 : #include "pm_cosmology@routines.inc.F90"
1952 40 : end procedure
1953 : #endif
1954 :
1955 : #if RK1_ENABLED
1956 42 : module procedure getVolComDiffNormedZMLRK_D0_RK1
1957 : use pm_kind, only: RKC => RK1
1958 : #include "pm_cosmology@routines.inc.F90"
1959 42 : end procedure
1960 : #endif
1961 :
1962 : #undef RK_ENABLED
1963 :
1964 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1965 :
1966 : #undef ZMLRK_ENABLED
1967 :
1968 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1969 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1971 :
1972 : #undef D0_ENABLED
1973 :
1974 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1975 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1976 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1977 :
1978 : #undef getVolComDiffNormed_ENABLED
1979 :
1980 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1981 :
1982 : #define setVolComDiffNormed_ENABLED 1
1983 :
1984 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1985 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1986 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1987 :
1988 : #define D0_ENABLED 1
1989 :
1990 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1991 :
1992 : #define RK_ENABLED 1
1993 :
1994 : #if RK5_ENABLED
1995 : module procedure setVolComDiffNormed_D0_RK5
1996 : use pm_kind, only: RKC => RK5
1997 : #include "pm_cosmology@routines.inc.F90"
1998 : end procedure
1999 : #endif
2000 :
2001 : #if RK4_ENABLED
2002 220 : module procedure setVolComDiffNormed_D0_RK4
2003 : use pm_kind, only: RKC => RK4
2004 : #include "pm_cosmology@routines.inc.F90"
2005 220 : end procedure
2006 : #endif
2007 :
2008 : #if RK3_ENABLED
2009 220 : module procedure setVolComDiffNormed_D0_RK3
2010 : use pm_kind, only: RKC => RK3
2011 : #include "pm_cosmology@routines.inc.F90"
2012 220 : end procedure
2013 : #endif
2014 :
2015 : #if RK2_ENABLED
2016 1220 : module procedure setVolComDiffNormed_D0_RK2
2017 : use pm_kind, only: RKC => RK2
2018 : #include "pm_cosmology@routines.inc.F90"
2019 1220 : end procedure
2020 : #endif
2021 :
2022 : #if RK1_ENABLED
2023 1728 : module procedure setVolComDiffNormed_D0_RK1
2024 : use pm_kind, only: RKC => RK1
2025 : #include "pm_cosmology@routines.inc.F90"
2026 1728 : end procedure
2027 : #endif
2028 :
2029 : #undef RK_ENABLED
2030 :
2031 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2032 :
2033 : #undef D0_ENABLED
2034 :
2035 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2036 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2037 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2038 :
2039 : #undef setVolComDiffNormed_ENABLED
2040 :
2041 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2042 :
2043 : #define getVolComNormed_ENABLED 1
2044 :
2045 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2046 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2048 :
2049 : #define D0_ENABLED 1
2050 :
2051 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2053 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2054 :
2055 : #define D_ENABLED 1
2056 :
2057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2058 :
2059 : #define RK_ENABLED 1
2060 :
2061 : #if RK5_ENABLED
2062 : module procedure getVolComNormedD_D0_RK5
2063 : use pm_kind, only: RKC => RK5
2064 : #include "pm_cosmology@routines.inc.F90"
2065 : end procedure
2066 : #endif
2067 :
2068 : #if RK4_ENABLED
2069 60 : module procedure getVolComNormedD_D0_RK4
2070 : use pm_kind, only: RKC => RK4
2071 : #include "pm_cosmology@routines.inc.F90"
2072 60 : end procedure
2073 : #endif
2074 :
2075 : #if RK3_ENABLED
2076 60 : module procedure getVolComNormedD_D0_RK3
2077 : use pm_kind, only: RKC => RK3
2078 : #include "pm_cosmology@routines.inc.F90"
2079 60 : end procedure
2080 : #endif
2081 :
2082 : #if RK2_ENABLED
2083 60 : module procedure getVolComNormedD_D0_RK2
2084 : use pm_kind, only: RKC => RK2
2085 : #include "pm_cosmology@routines.inc.F90"
2086 60 : end procedure
2087 : #endif
2088 :
2089 : #if RK1_ENABLED
2090 1566 : module procedure getVolComNormedD_D0_RK1
2091 : use pm_kind, only: RKC => RK1
2092 : #include "pm_cosmology@routines.inc.F90"
2093 1566 : end procedure
2094 : #endif
2095 :
2096 : #undef RK_ENABLED
2097 :
2098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2099 :
2100 : #undef D_ENABLED
2101 :
2102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2105 :
2106 : #define DOS_ENABLED 1
2107 :
2108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2109 :
2110 : #define RK_ENABLED 1
2111 :
2112 : #if RK5_ENABLED
2113 : module procedure getVolComNormedDOS_D0_RK5
2114 : use pm_kind, only: RKC => RK5
2115 : #include "pm_cosmology@routines.inc.F90"
2116 : end procedure
2117 : #endif
2118 :
2119 : #if RK4_ENABLED
2120 48 : module procedure getVolComNormedDOS_D0_RK4
2121 : use pm_kind, only: RKC => RK4
2122 : #include "pm_cosmology@routines.inc.F90"
2123 48 : end procedure
2124 : #endif
2125 :
2126 : #if RK3_ENABLED
2127 48 : module procedure getVolComNormedDOS_D0_RK3
2128 : use pm_kind, only: RKC => RK3
2129 : #include "pm_cosmology@routines.inc.F90"
2130 48 : end procedure
2131 : #endif
2132 :
2133 : #if RK2_ENABLED
2134 48 : module procedure getVolComNormedDOS_D0_RK2
2135 : use pm_kind, only: RKC => RK2
2136 : #include "pm_cosmology@routines.inc.F90"
2137 48 : end procedure
2138 : #endif
2139 :
2140 : #if RK1_ENABLED
2141 50 : module procedure getVolComNormedDOS_D0_RK1
2142 : use pm_kind, only: RKC => RK1
2143 : #include "pm_cosmology@routines.inc.F90"
2144 50 : end procedure
2145 : #endif
2146 :
2147 : #undef RK_ENABLED
2148 :
2149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2150 :
2151 : #undef DOS_ENABLED
2152 :
2153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2156 :
2157 : #undef D0_ENABLED
2158 :
2159 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2162 :
2163 : #undef getVolComNormed_ENABLED
2164 :
2165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2166 :
2167 : #undef CHECK_ASSERTION
2168 : #undef EPS
2169 :
2170 : end submodule routines
|
