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_distPower](@ref pm_distPower).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distPower) 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_mathMinMax, only: getMinMax
40 : use pm_distNegExp, only: getNegExpRand
41 : use pm_mathLogSubExp, only: getLogSubExp
42 : use pm_mathLogAddExp, only: getLogAddExp
43 : implicit none
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : contains
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 :
51 : #define getPowerLogPDFNF_ENABLED 1
52 :
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
55 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
56 :
57 : #define ALD_ENABLED 1
58 :
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 :
61 : #define RK_ENABLED 1
62 :
63 : #if RK5_ENABLED
64 : module procedure getPowerLogPDFNFALD_RK5
65 : use pm_kind, only: RKC => RK5
66 : #include "pm_distPower@routines.inc.F90"
67 : end procedure
68 : #endif
69 :
70 : #if RK4_ENABLED
71 275372 : module procedure getPowerLogPDFNFALD_RK4
72 : use pm_kind, only: RKC => RK4
73 : #include "pm_distPower@routines.inc.F90"
74 275372 : end procedure
75 : #endif
76 :
77 : #if RK3_ENABLED
78 138670 : module procedure getPowerLogPDFNFALD_RK3
79 : use pm_kind, only: RKC => RK3
80 : #include "pm_distPower@routines.inc.F90"
81 138670 : end procedure
82 : #endif
83 :
84 : #if RK2_ENABLED
85 117984 : module procedure getPowerLogPDFNFALD_RK2
86 : use pm_kind, only: RKC => RK2
87 : #include "pm_distPower@routines.inc.F90"
88 117984 : end procedure
89 : #endif
90 :
91 : #if RK1_ENABLED
92 50564 : module procedure getPowerLogPDFNFALD_RK1
93 : use pm_kind, only: RKC => RK1
94 : #include "pm_distPower@routines.inc.F90"
95 50564 : end procedure
96 : #endif
97 :
98 : #undef RK_ENABLED
99 :
100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101 :
102 : #undef ALD_ENABLED
103 :
104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
107 :
108 : #define ALL_ENABLED 1
109 :
110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
111 :
112 : #define RK_ENABLED 1
113 :
114 : #if RK5_ENABLED
115 : module procedure getPowerLogPDFNFALL_RK5
116 : use pm_kind, only: RKC => RK5
117 : #include "pm_distPower@routines.inc.F90"
118 : end procedure
119 : #endif
120 :
121 : #if RK4_ENABLED
122 32510 : module procedure getPowerLogPDFNFALL_RK4
123 : use pm_kind, only: RKC => RK4
124 : #include "pm_distPower@routines.inc.F90"
125 32510 : end procedure
126 : #endif
127 :
128 : #if RK3_ENABLED
129 15054 : module procedure getPowerLogPDFNFALL_RK3
130 : use pm_kind, only: RKC => RK3
131 : #include "pm_distPower@routines.inc.F90"
132 15054 : end procedure
133 : #endif
134 :
135 : #if RK2_ENABLED
136 11590 : module procedure getPowerLogPDFNFALL_RK2
137 : use pm_kind, only: RKC => RK2
138 : #include "pm_distPower@routines.inc.F90"
139 11590 : end procedure
140 : #endif
141 :
142 : #if RK1_ENABLED
143 11140 : module procedure getPowerLogPDFNFALL_RK1
144 : use pm_kind, only: RKC => RK1
145 : #include "pm_distPower@routines.inc.F90"
146 11140 : end procedure
147 : #endif
148 :
149 : #undef RK_ENABLED
150 :
151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152 :
153 : #undef ALL_ENABLED
154 :
155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
158 :
159 : #undef getPowerLogPDFNF_ENABLED
160 :
161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
162 :
163 : #define getPowerLogPDF_ENABLED 1
164 :
165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
168 :
169 : #define ALD_ENABLED 1
170 :
171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
172 :
173 : #define RK_ENABLED 1
174 :
175 : #if RK5_ENABLED
176 : module procedure getPowerLogPDFALD_RK5
177 : use pm_kind, only: RKC => RK5
178 : #include "pm_distPower@routines.inc.F90"
179 : end procedure
180 : #endif
181 :
182 : #if RK4_ENABLED
183 275272 : module procedure getPowerLogPDFALD_RK4
184 : use pm_kind, only: RKC => RK4
185 : #include "pm_distPower@routines.inc.F90"
186 275272 : end procedure
187 : #endif
188 :
189 : #if RK3_ENABLED
190 138570 : module procedure getPowerLogPDFALD_RK3
191 : use pm_kind, only: RKC => RK3
192 : #include "pm_distPower@routines.inc.F90"
193 138570 : end procedure
194 : #endif
195 :
196 : #if RK2_ENABLED
197 117884 : module procedure getPowerLogPDFALD_RK2
198 : use pm_kind, only: RKC => RK2
199 : #include "pm_distPower@routines.inc.F90"
200 117884 : end procedure
201 : #endif
202 :
203 : #if RK1_ENABLED
204 46632 : module procedure getPowerLogPDFALD_RK1
205 : use pm_kind, only: RKC => RK1
206 : #include "pm_distPower@routines.inc.F90"
207 46632 : end procedure
208 : #endif
209 :
210 : #undef RK_ENABLED
211 :
212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213 :
214 : #undef ALD_ENABLED
215 :
216 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
219 :
220 : #define ALL_ENABLED 1
221 :
222 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
223 :
224 : #define RK_ENABLED 1
225 :
226 : #if RK5_ENABLED
227 : module procedure getPowerLogPDFALL_RK5
228 : use pm_kind, only: RKC => RK5
229 : #include "pm_distPower@routines.inc.F90"
230 : end procedure
231 : #endif
232 :
233 : #if RK4_ENABLED
234 32410 : module procedure getPowerLogPDFALL_RK4
235 : use pm_kind, only: RKC => RK4
236 : #include "pm_distPower@routines.inc.F90"
237 32410 : end procedure
238 : #endif
239 :
240 : #if RK3_ENABLED
241 14954 : module procedure getPowerLogPDFALL_RK3
242 : use pm_kind, only: RKC => RK3
243 : #include "pm_distPower@routines.inc.F90"
244 14954 : end procedure
245 : #endif
246 :
247 : #if RK2_ENABLED
248 11490 : module procedure getPowerLogPDFALL_RK2
249 : use pm_kind, only: RKC => RK2
250 : #include "pm_distPower@routines.inc.F90"
251 11490 : end procedure
252 : #endif
253 :
254 : #if RK1_ENABLED
255 7716 : module procedure getPowerLogPDFALL_RK1
256 : use pm_kind, only: RKC => RK1
257 : #include "pm_distPower@routines.inc.F90"
258 7716 : end procedure
259 : #endif
260 :
261 : #undef RK_ENABLED
262 :
263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
264 :
265 : #undef ALL_ENABLED
266 :
267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
270 :
271 : #undef getPowerLogPDF_ENABLED
272 :
273 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
274 :
275 : #define setPowerLogPDF_ENABLED 1
276 :
277 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
278 :
279 : #define RK_ENABLED 1
280 :
281 : #if RK5_ENABLED
282 : module procedure setPowerLogPDF_RK5
283 : use pm_kind, only: RKC => RK5
284 : #include "pm_distPower@routines.inc.F90"
285 : end procedure
286 : #endif
287 :
288 : #if RK4_ENABLED
289 355368 : module procedure setPowerLogPDF_RK4
290 : use pm_kind, only: RKC => RK4
291 : #include "pm_distPower@routines.inc.F90"
292 355368 : end procedure
293 : #endif
294 :
295 : #if RK3_ENABLED
296 181210 : module procedure setPowerLogPDF_RK3
297 : use pm_kind, only: RKC => RK3
298 : #include "pm_distPower@routines.inc.F90"
299 181210 : end procedure
300 : #endif
301 :
302 : #if RK2_ENABLED
303 152948 : module procedure setPowerLogPDF_RK2
304 : use pm_kind, only: RKC => RK2
305 : #include "pm_distPower@routines.inc.F90"
306 152948 : end procedure
307 : #endif
308 :
309 : #if RK1_ENABLED
310 69122 : module procedure setPowerLogPDF_RK1
311 : use pm_kind, only: RKC => RK1
312 : #include "pm_distPower@routines.inc.F90"
313 69122 : end procedure
314 : #endif
315 :
316 : #undef RK_ENABLED
317 :
318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319 :
320 : #undef setPowerLogPDF_ENABLED
321 :
322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
323 :
324 : #define getPowerLogCDFNF_ENABLED 1
325 :
326 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
329 :
330 : #define ALD_ENABLED 1
331 :
332 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
333 :
334 : #define RK_ENABLED 1
335 :
336 : #if RK5_ENABLED
337 : module procedure getPowerLogCDFNFALD_RK5
338 : use pm_kind, only: RKC => RK5
339 : #include "pm_distPower@routines.inc.F90"
340 : end procedure
341 : #endif
342 :
343 : #if RK4_ENABLED
344 4404 : module procedure getPowerLogCDFNFALD_RK4
345 : use pm_kind, only: RKC => RK4
346 : #include "pm_distPower@routines.inc.F90"
347 4404 : end procedure
348 : #endif
349 :
350 : #if RK3_ENABLED
351 4404 : module procedure getPowerLogCDFNFALD_RK3
352 : use pm_kind, only: RKC => RK3
353 : #include "pm_distPower@routines.inc.F90"
354 4404 : end procedure
355 : #endif
356 :
357 : #if RK2_ENABLED
358 4404 : module procedure getPowerLogCDFNFALD_RK2
359 : use pm_kind, only: RKC => RK2
360 : #include "pm_distPower@routines.inc.F90"
361 4404 : end procedure
362 : #endif
363 :
364 : #if RK1_ENABLED
365 28260 : module procedure getPowerLogCDFNFALD_RK1
366 : use pm_kind, only: RKC => RK1
367 : #include "pm_distPower@routines.inc.F90"
368 28260 : end procedure
369 : #endif
370 :
371 : #undef RK_ENABLED
372 :
373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
374 :
375 : #undef ALD_ENABLED
376 :
377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
379 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
380 :
381 : #define ALL_ENABLED 1
382 :
383 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
384 :
385 : #define RK_ENABLED 1
386 :
387 : #if RK5_ENABLED
388 : module procedure getPowerLogCDFNFALL_RK5
389 : use pm_kind, only: RKC => RK5
390 : #include "pm_distPower@routines.inc.F90"
391 : end procedure
392 : #endif
393 :
394 : #if RK4_ENABLED
395 4404 : module procedure getPowerLogCDFNFALL_RK4
396 : use pm_kind, only: RKC => RK4
397 : #include "pm_distPower@routines.inc.F90"
398 4404 : end procedure
399 : #endif
400 :
401 : #if RK3_ENABLED
402 4404 : module procedure getPowerLogCDFNFALL_RK3
403 : use pm_kind, only: RKC => RK3
404 : #include "pm_distPower@routines.inc.F90"
405 4404 : end procedure
406 : #endif
407 :
408 : #if RK2_ENABLED
409 4404 : module procedure getPowerLogCDFNFALL_RK2
410 : use pm_kind, only: RKC => RK2
411 : #include "pm_distPower@routines.inc.F90"
412 4404 : end procedure
413 : #endif
414 :
415 : #if RK1_ENABLED
416 35756 : module procedure getPowerLogCDFNFALL_RK1
417 : use pm_kind, only: RKC => RK1
418 : #include "pm_distPower@routines.inc.F90"
419 35756 : end procedure
420 : #endif
421 :
422 : #undef RK_ENABLED
423 :
424 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
425 :
426 : #undef ALL_ENABLED
427 :
428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
429 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
431 :
432 : #undef getPowerLogCDFNF_ENABLED
433 :
434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
435 :
436 : #define getPowerLogCDF_ENABLED 1
437 :
438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
441 :
442 : #define ALD_ENABLED 1
443 :
444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
445 :
446 : #define RK_ENABLED 1
447 :
448 : #if RK5_ENABLED
449 : module procedure getPowerLogCDFALD_RK5
450 : use pm_kind, only: RKC => RK5
451 : #include "pm_distPower@routines.inc.F90"
452 : end procedure
453 : #endif
454 :
455 : #if RK4_ENABLED
456 300 : module procedure getPowerLogCDFALD_RK4
457 : use pm_kind, only: RKC => RK4
458 : #include "pm_distPower@routines.inc.F90"
459 300 : end procedure
460 : #endif
461 :
462 : #if RK3_ENABLED
463 300 : module procedure getPowerLogCDFALD_RK3
464 : use pm_kind, only: RKC => RK3
465 : #include "pm_distPower@routines.inc.F90"
466 300 : end procedure
467 : #endif
468 :
469 : #if RK2_ENABLED
470 300 : module procedure getPowerLogCDFALD_RK2
471 : use pm_kind, only: RKC => RK2
472 : #include "pm_distPower@routines.inc.F90"
473 300 : end procedure
474 : #endif
475 :
476 : #if RK1_ENABLED
477 4206 : module procedure getPowerLogCDFALD_RK1
478 : use pm_kind, only: RKC => RK1
479 : #include "pm_distPower@routines.inc.F90"
480 4206 : end procedure
481 : #endif
482 :
483 : #undef RK_ENABLED
484 :
485 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
486 :
487 : #undef ALD_ENABLED
488 :
489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
490 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
491 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
492 :
493 : #define ALL_ENABLED 1
494 :
495 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
496 :
497 : #define RK_ENABLED 1
498 :
499 : #if RK5_ENABLED
500 : module procedure getPowerLogCDFALL_RK5
501 : use pm_kind, only: RKC => RK5
502 : #include "pm_distPower@routines.inc.F90"
503 : end procedure
504 : #endif
505 :
506 : #if RK4_ENABLED
507 300 : module procedure getPowerLogCDFALL_RK4
508 : use pm_kind, only: RKC => RK4
509 : #include "pm_distPower@routines.inc.F90"
510 300 : end procedure
511 : #endif
512 :
513 : #if RK3_ENABLED
514 300 : module procedure getPowerLogCDFALL_RK3
515 : use pm_kind, only: RKC => RK3
516 : #include "pm_distPower@routines.inc.F90"
517 300 : end procedure
518 : #endif
519 :
520 : #if RK2_ENABLED
521 300 : module procedure getPowerLogCDFALL_RK2
522 : use pm_kind, only: RKC => RK2
523 : #include "pm_distPower@routines.inc.F90"
524 300 : end procedure
525 : #endif
526 :
527 : #if RK1_ENABLED
528 730 : module procedure getPowerLogCDFALL_RK1
529 : use pm_kind, only: RKC => RK1
530 : #include "pm_distPower@routines.inc.F90"
531 730 : end procedure
532 : #endif
533 :
534 : #undef RK_ENABLED
535 :
536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
537 :
538 : #undef ALL_ENABLED
539 :
540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
542 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
543 :
544 : #undef getPowerLogCDF_ENABLED
545 :
546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
547 :
548 : #define setPowerLogCDF_ENABLED 1
549 :
550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
553 :
554 : #define ALD_ENABLED 1
555 :
556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557 :
558 : #define RK_ENABLED 1
559 :
560 : #if RK5_ENABLED
561 : module procedure setPowerLogCDFALD_RK5
562 : use pm_kind, only: RKC => RK5
563 : #include "pm_distPower@routines.inc.F90"
564 : end procedure
565 : #endif
566 :
567 : #if RK4_ENABLED
568 6498 : module procedure setPowerLogCDFALD_RK4
569 : use pm_kind, only: RKC => RK4
570 : #include "pm_distPower@routines.inc.F90"
571 6498 : end procedure
572 : #endif
573 :
574 : #if RK3_ENABLED
575 6498 : module procedure setPowerLogCDFALD_RK3
576 : use pm_kind, only: RKC => RK3
577 : #include "pm_distPower@routines.inc.F90"
578 6498 : end procedure
579 : #endif
580 :
581 : #if RK2_ENABLED
582 6498 : module procedure setPowerLogCDFALD_RK2
583 : use pm_kind, only: RKC => RK2
584 : #include "pm_distPower@routines.inc.F90"
585 6498 : end procedure
586 : #endif
587 :
588 : #if RK1_ENABLED
589 14318 : module procedure setPowerLogCDFALD_RK1
590 : use pm_kind, only: RKC => RK1
591 : #include "pm_distPower@routines.inc.F90"
592 14318 : end procedure
593 : #endif
594 :
595 : #undef RK_ENABLED
596 :
597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
598 :
599 : #undef ALD_ENABLED
600 :
601 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
602 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
603 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
604 :
605 : #define ALL_ENABLED 1
606 :
607 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
608 :
609 : #define RK_ENABLED 1
610 :
611 : #if RK5_ENABLED
612 : module procedure setPowerLogCDFALL_RK5
613 : use pm_kind, only: RKC => RK5
614 : #include "pm_distPower@routines.inc.F90"
615 : end procedure
616 : #endif
617 :
618 : #if RK4_ENABLED
619 6498 : module procedure setPowerLogCDFALL_RK4
620 : use pm_kind, only: RKC => RK4
621 : #include "pm_distPower@routines.inc.F90"
622 6498 : end procedure
623 : #endif
624 :
625 : #if RK3_ENABLED
626 6498 : module procedure setPowerLogCDFALL_RK3
627 : use pm_kind, only: RKC => RK3
628 : #include "pm_distPower@routines.inc.F90"
629 6498 : end procedure
630 : #endif
631 :
632 : #if RK2_ENABLED
633 6498 : module procedure setPowerLogCDFALL_RK2
634 : use pm_kind, only: RKC => RK2
635 : #include "pm_distPower@routines.inc.F90"
636 6498 : end procedure
637 : #endif
638 :
639 : #if RK1_ENABLED
640 9070 : module procedure setPowerLogCDFALL_RK1
641 : use pm_kind, only: RKC => RK1
642 : #include "pm_distPower@routines.inc.F90"
643 9070 : end procedure
644 : #endif
645 :
646 : #undef RK_ENABLED
647 :
648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
649 :
650 : #undef ALL_ENABLED
651 :
652 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
653 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
654 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
655 :
656 : #undef setPowerLogCDF_ENABLED
657 :
658 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
659 :
660 : #define getPowerLogQuan_ENABLED 1
661 :
662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
665 :
666 : #define ALD_ENABLED 1
667 :
668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
669 :
670 : #define RK_ENABLED 1
671 :
672 : #if RK5_ENABLED
673 : module procedure getPowerLogQuanALD_RK5
674 : use pm_kind, only: RKC => RK5
675 : #include "pm_distPower@routines.inc.F90"
676 : end procedure
677 : #endif
678 :
679 : #if RK4_ENABLED
680 500 : module procedure getPowerLogQuanALD_RK4
681 : use pm_kind, only: RKC => RK4
682 : #include "pm_distPower@routines.inc.F90"
683 500 : end procedure
684 : #endif
685 :
686 : #if RK3_ENABLED
687 500 : module procedure getPowerLogQuanALD_RK3
688 : use pm_kind, only: RKC => RK3
689 : #include "pm_distPower@routines.inc.F90"
690 500 : end procedure
691 : #endif
692 :
693 : #if RK2_ENABLED
694 500 : module procedure getPowerLogQuanALD_RK2
695 : use pm_kind, only: RKC => RK2
696 : #include "pm_distPower@routines.inc.F90"
697 500 : end procedure
698 : #endif
699 :
700 : #if RK1_ENABLED
701 4504 : module procedure getPowerLogQuanALD_RK1
702 : use pm_kind, only: RKC => RK1
703 : #include "pm_distPower@routines.inc.F90"
704 4504 : end procedure
705 : #endif
706 :
707 : #undef RK_ENABLED
708 :
709 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
710 :
711 : #undef ALD_ENABLED
712 :
713 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
714 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
716 :
717 : #define ALL_ENABLED 1
718 :
719 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
720 :
721 : #define RK_ENABLED 1
722 :
723 : #if RK5_ENABLED
724 : module procedure getPowerLogQuanALL_RK5
725 : use pm_kind, only: RKC => RK5
726 : #include "pm_distPower@routines.inc.F90"
727 : end procedure
728 : #endif
729 :
730 : #if RK4_ENABLED
731 500 : module procedure getPowerLogQuanALL_RK4
732 : use pm_kind, only: RKC => RK4
733 : #include "pm_distPower@routines.inc.F90"
734 500 : end procedure
735 : #endif
736 :
737 : #if RK3_ENABLED
738 500 : module procedure getPowerLogQuanALL_RK3
739 : use pm_kind, only: RKC => RK3
740 : #include "pm_distPower@routines.inc.F90"
741 500 : end procedure
742 : #endif
743 :
744 : #if RK2_ENABLED
745 500 : module procedure getPowerLogQuanALL_RK2
746 : use pm_kind, only: RKC => RK2
747 : #include "pm_distPower@routines.inc.F90"
748 500 : end procedure
749 : #endif
750 :
751 : #if RK1_ENABLED
752 4504 : module procedure getPowerLogQuanALL_RK1
753 : use pm_kind, only: RKC => RK1
754 : #include "pm_distPower@routines.inc.F90"
755 4504 : end procedure
756 : #endif
757 :
758 : #undef RK_ENABLED
759 :
760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
761 :
762 : #undef ALL_ENABLED
763 :
764 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
765 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
767 :
768 : #undef getPowerLogQuan_ENABLED
769 :
770 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
771 :
772 : #define setPowerLogQuan_ENABLED 1
773 :
774 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
775 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
777 :
778 : #define LLALD_ENABLED 1
779 :
780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
781 :
782 : #define RK_ENABLED 1
783 :
784 : #if RK5_ENABLED
785 : module procedure setPowerLogQuanLLALD_RK5
786 : use pm_kind, only: RKC => RK5
787 : #include "pm_distPower@routines.inc.F90"
788 : end procedure
789 : #endif
790 :
791 : #if RK4_ENABLED
792 5000 : module procedure setPowerLogQuanLLALD_RK4
793 : use pm_kind, only: RKC => RK4
794 : #include "pm_distPower@routines.inc.F90"
795 5000 : end procedure
796 : #endif
797 :
798 : #if RK3_ENABLED
799 5000 : module procedure setPowerLogQuanLLALD_RK3
800 : use pm_kind, only: RKC => RK3
801 : #include "pm_distPower@routines.inc.F90"
802 5000 : end procedure
803 : #endif
804 :
805 : #if RK2_ENABLED
806 5000 : module procedure setPowerLogQuanLLALD_RK2
807 : use pm_kind, only: RKC => RK2
808 : #include "pm_distPower@routines.inc.F90"
809 5000 : end procedure
810 : #endif
811 :
812 : #if RK1_ENABLED
813 21024 : module procedure setPowerLogQuanLLALD_RK1
814 : use pm_kind, only: RKC => RK1
815 : #include "pm_distPower@routines.inc.F90"
816 21024 : end procedure
817 : #endif
818 :
819 : #undef RK_ENABLED
820 :
821 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
822 :
823 : #undef LLALD_ENABLED
824 :
825 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
826 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
827 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
828 :
829 : #define LLALL_ENABLED 1
830 :
831 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
832 :
833 : #define RK_ENABLED 1
834 :
835 : #if RK5_ENABLED
836 : module procedure setPowerLogQuanLLALL_RK5
837 : use pm_kind, only: RKC => RK5
838 : #include "pm_distPower@routines.inc.F90"
839 : end procedure
840 : #endif
841 :
842 : #if RK4_ENABLED
843 5000 : module procedure setPowerLogQuanLLALL_RK4
844 : use pm_kind, only: RKC => RK4
845 : #include "pm_distPower@routines.inc.F90"
846 5000 : end procedure
847 : #endif
848 :
849 : #if RK3_ENABLED
850 5000 : module procedure setPowerLogQuanLLALL_RK3
851 : use pm_kind, only: RKC => RK3
852 : #include "pm_distPower@routines.inc.F90"
853 5000 : end procedure
854 : #endif
855 :
856 : #if RK2_ENABLED
857 5000 : module procedure setPowerLogQuanLLALL_RK2
858 : use pm_kind, only: RKC => RK2
859 : #include "pm_distPower@routines.inc.F90"
860 5000 : end procedure
861 : #endif
862 :
863 : #if RK1_ENABLED
864 33024 : module procedure setPowerLogQuanLLALL_RK1
865 : use pm_kind, only: RKC => RK1
866 : #include "pm_distPower@routines.inc.F90"
867 33024 : end procedure
868 : #endif
869 :
870 : #undef RK_ENABLED
871 :
872 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
873 :
874 : #undef LLALL_ENABLED
875 :
876 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
877 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
879 :
880 : #undef setPowerLogQuan_ENABLED
881 :
882 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
883 :
884 : #define getPowerLogRand_ENABLED 1
885 :
886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
887 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
888 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
889 :
890 : #define ALD_ENABLED 1
891 :
892 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
893 :
894 : #define RK_ENABLED 1
895 :
896 : #if RK5_ENABLED
897 : module procedure getPowerLogRandALD_RK5
898 : use pm_kind, only: RKC => RK5
899 : #include "pm_distPower@routines.inc.F90"
900 : end procedure
901 : #endif
902 :
903 : #if RK4_ENABLED
904 2000 : module procedure getPowerLogRandALD_RK4
905 : use pm_kind, only: RKC => RK4
906 : #include "pm_distPower@routines.inc.F90"
907 2000 : end procedure
908 : #endif
909 :
910 : #if RK3_ENABLED
911 2000 : module procedure getPowerLogRandALD_RK3
912 : use pm_kind, only: RKC => RK3
913 : #include "pm_distPower@routines.inc.F90"
914 2000 : end procedure
915 : #endif
916 :
917 : #if RK2_ENABLED
918 2000 : module procedure getPowerLogRandALD_RK2
919 : use pm_kind, only: RKC => RK2
920 : #include "pm_distPower@routines.inc.F90"
921 2000 : end procedure
922 : #endif
923 :
924 : #if RK1_ENABLED
925 6004 : module procedure getPowerLogRandALD_RK1
926 : use pm_kind, only: RKC => RK1
927 : #include "pm_distPower@routines.inc.F90"
928 6004 : end procedure
929 : #endif
930 :
931 : #undef RK_ENABLED
932 :
933 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
934 :
935 : #undef ALD_ENABLED
936 :
937 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
938 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
939 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
940 :
941 : #define ALL_ENABLED 1
942 :
943 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
944 :
945 : #define RK_ENABLED 1
946 :
947 : #if RK5_ENABLED
948 : module procedure getPowerLogRandALL_RK5
949 : use pm_kind, only: RKC => RK5
950 : #include "pm_distPower@routines.inc.F90"
951 : end procedure
952 : #endif
953 :
954 : #if RK4_ENABLED
955 2000 : module procedure getPowerLogRandALL_RK4
956 : use pm_kind, only: RKC => RK4
957 : #include "pm_distPower@routines.inc.F90"
958 2000 : end procedure
959 : #endif
960 :
961 : #if RK3_ENABLED
962 2000 : module procedure getPowerLogRandALL_RK3
963 : use pm_kind, only: RKC => RK3
964 : #include "pm_distPower@routines.inc.F90"
965 2000 : end procedure
966 : #endif
967 :
968 : #if RK2_ENABLED
969 2000 : module procedure getPowerLogRandALL_RK2
970 : use pm_kind, only: RKC => RK2
971 : #include "pm_distPower@routines.inc.F90"
972 2000 : end procedure
973 : #endif
974 :
975 : #if RK1_ENABLED
976 4004 : module procedure getPowerLogRandALL_RK1
977 : use pm_kind, only: RKC => RK1
978 : #include "pm_distPower@routines.inc.F90"
979 4004 : end procedure
980 : #endif
981 :
982 : #undef RK_ENABLED
983 :
984 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
985 :
986 : #undef ALL_ENABLED
987 :
988 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
989 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
990 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
991 :
992 : #undef getPowerLogRand_ENABLED
993 :
994 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
995 :
996 : #define setPowerLogRand_ENABLED 1
997 :
998 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
999 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1000 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1001 :
1002 : #define LNALD_ENABLED 1
1003 :
1004 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1005 :
1006 : #define RK_ENABLED 1
1007 :
1008 : #if RK5_ENABLED
1009 : module procedure setPowerLogRandLNALD_RK5
1010 : use pm_kind, only: RKC => RK5
1011 : #include "pm_distPower@routines.inc.F90"
1012 : end procedure
1013 : #endif
1014 :
1015 : #if RK4_ENABLED
1016 4000 : module procedure setPowerLogRandLNALD_RK4
1017 : use pm_kind, only: RKC => RK4
1018 : #include "pm_distPower@routines.inc.F90"
1019 4000 : end procedure
1020 : #endif
1021 :
1022 : #if RK3_ENABLED
1023 4000 : module procedure setPowerLogRandLNALD_RK3
1024 : use pm_kind, only: RKC => RK3
1025 : #include "pm_distPower@routines.inc.F90"
1026 4000 : end procedure
1027 : #endif
1028 :
1029 : #if RK2_ENABLED
1030 4000 : module procedure setPowerLogRandLNALD_RK2
1031 : use pm_kind, only: RKC => RK2
1032 : #include "pm_distPower@routines.inc.F90"
1033 4000 : end procedure
1034 : #endif
1035 :
1036 : #if RK1_ENABLED
1037 12008 : module procedure setPowerLogRandLNALD_RK1
1038 : use pm_kind, only: RKC => RK1
1039 : #include "pm_distPower@routines.inc.F90"
1040 12008 : end procedure
1041 : #endif
1042 :
1043 : #undef RK_ENABLED
1044 :
1045 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1046 :
1047 : #undef LNALD_ENABLED
1048 :
1049 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1050 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1051 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1052 :
1053 : #define LNALL_ENABLED 1
1054 :
1055 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1056 :
1057 : #define RK_ENABLED 1
1058 :
1059 : #if RK5_ENABLED
1060 : module procedure setPowerLogRandLNALL_RK5
1061 : use pm_kind, only: RKC => RK5
1062 : #include "pm_distPower@routines.inc.F90"
1063 : end procedure
1064 : #endif
1065 :
1066 : #if RK4_ENABLED
1067 4000 : module procedure setPowerLogRandLNALL_RK4
1068 : use pm_kind, only: RKC => RK4
1069 : #include "pm_distPower@routines.inc.F90"
1070 4000 : end procedure
1071 : #endif
1072 :
1073 : #if RK3_ENABLED
1074 4000 : module procedure setPowerLogRandLNALL_RK3
1075 : use pm_kind, only: RKC => RK3
1076 : #include "pm_distPower@routines.inc.F90"
1077 4000 : end procedure
1078 : #endif
1079 :
1080 : #if RK2_ENABLED
1081 4000 : module procedure setPowerLogRandLNALL_RK2
1082 : use pm_kind, only: RKC => RK2
1083 : #include "pm_distPower@routines.inc.F90"
1084 4000 : end procedure
1085 : #endif
1086 :
1087 : #if RK1_ENABLED
1088 8008 : module procedure setPowerLogRandLNALL_RK1
1089 : use pm_kind, only: RKC => RK1
1090 : #include "pm_distPower@routines.inc.F90"
1091 8008 : end procedure
1092 : #endif
1093 :
1094 : #undef RK_ENABLED
1095 :
1096 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1097 :
1098 : #undef LNALL_ENABLED
1099 :
1100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1103 :
1104 : #undef setPowerLogRand_ENABLED
1105 :
1106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1107 :
1108 : #undef CHECK_ASSERTION
1109 :
1110 : end submodule routines
|
