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