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_distGenGamma](@ref pm_distGenGamma).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distGenGamma) 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_mathGamma, only: setGammaIncLow
40 : implicit none
41 :
42 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 :
44 : contains
45 :
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 :
48 : #define getGenGammaLogPDFNF_ENABLED 1
49 :
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 :
54 : #define KDD_ENABLED 1
55 :
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 :
58 : #define RK_ENABLED 1
59 :
60 : #if RK5_ENABLED
61 : module procedure getGenGammaLogPDFNFKDD_RK5
62 : use pm_kind, only: RKC => RK5
63 : #include "pm_distGenGamma@routines.inc.F90"
64 : end procedure
65 : #endif
66 :
67 : #if RK4_ENABLED
68 360 : module procedure getGenGammaLogPDFNFKDD_RK4
69 : use pm_kind, only: RKC => RK4
70 : #include "pm_distGenGamma@routines.inc.F90"
71 360 : end procedure
72 : #endif
73 :
74 : #if RK3_ENABLED
75 540 : module procedure getGenGammaLogPDFNFKDD_RK3
76 : use pm_kind, only: RKC => RK3
77 : #include "pm_distGenGamma@routines.inc.F90"
78 540 : end procedure
79 : #endif
80 :
81 : #if RK2_ENABLED
82 360 : module procedure getGenGammaLogPDFNFKDD_RK2
83 : use pm_kind, only: RKC => RK2
84 : #include "pm_distGenGamma@routines.inc.F90"
85 360 : end procedure
86 : #endif
87 :
88 : #if RK1_ENABLED
89 31475 : module procedure getGenGammaLogPDFNFKDD_RK1
90 : use pm_kind, only: RKC => RK1
91 : #include "pm_distGenGamma@routines.inc.F90"
92 31475 : end procedure
93 : #endif
94 :
95 : #undef RK_ENABLED
96 :
97 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98 :
99 : #undef KDD_ENABLED
100 :
101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
104 :
105 : #define KOD_ENABLED 1
106 :
107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 :
109 : #define RK_ENABLED 1
110 :
111 : #if RK5_ENABLED
112 : module procedure getGenGammaLogPDFNFKOD_RK5
113 : use pm_kind, only: RKC => RK5
114 : #include "pm_distGenGamma@routines.inc.F90"
115 : end procedure
116 : #endif
117 :
118 : #if RK4_ENABLED
119 360 : module procedure getGenGammaLogPDFNFKOD_RK4
120 : use pm_kind, only: RKC => RK4
121 : #include "pm_distGenGamma@routines.inc.F90"
122 360 : end procedure
123 : #endif
124 :
125 : #if RK3_ENABLED
126 540 : module procedure getGenGammaLogPDFNFKOD_RK3
127 : use pm_kind, only: RKC => RK3
128 : #include "pm_distGenGamma@routines.inc.F90"
129 540 : end procedure
130 : #endif
131 :
132 : #if RK2_ENABLED
133 360 : module procedure getGenGammaLogPDFNFKOD_RK2
134 : use pm_kind, only: RKC => RK2
135 : #include "pm_distGenGamma@routines.inc.F90"
136 360 : end procedure
137 : #endif
138 :
139 : #if RK1_ENABLED
140 30436 : module procedure getGenGammaLogPDFNFKOD_RK1
141 : use pm_kind, only: RKC => RK1
142 : #include "pm_distGenGamma@routines.inc.F90"
143 30436 : end procedure
144 : #endif
145 :
146 : #undef RK_ENABLED
147 :
148 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
149 :
150 : #undef KOD_ENABLED
151 :
152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 :
156 : #define KOS_ENABLED 1
157 :
158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
159 :
160 : #define RK_ENABLED 1
161 :
162 : #if RK5_ENABLED
163 : module procedure getGenGammaLogPDFNFKOS_RK5
164 : use pm_kind, only: RKC => RK5
165 : #include "pm_distGenGamma@routines.inc.F90"
166 : end procedure
167 : #endif
168 :
169 : #if RK4_ENABLED
170 360 : module procedure getGenGammaLogPDFNFKOS_RK4
171 : use pm_kind, only: RKC => RK4
172 : #include "pm_distGenGamma@routines.inc.F90"
173 360 : end procedure
174 : #endif
175 :
176 : #if RK3_ENABLED
177 540 : module procedure getGenGammaLogPDFNFKOS_RK3
178 : use pm_kind, only: RKC => RK3
179 : #include "pm_distGenGamma@routines.inc.F90"
180 540 : end procedure
181 : #endif
182 :
183 : #if RK2_ENABLED
184 360 : module procedure getGenGammaLogPDFNFKOS_RK2
185 : use pm_kind, only: RKC => RK2
186 : #include "pm_distGenGamma@routines.inc.F90"
187 360 : end procedure
188 : #endif
189 :
190 : #if RK1_ENABLED
191 30417 : module procedure getGenGammaLogPDFNFKOS_RK1
192 : use pm_kind, only: RKC => RK1
193 : #include "pm_distGenGamma@routines.inc.F90"
194 30417 : end procedure
195 : #endif
196 :
197 : #undef RK_ENABLED
198 :
199 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
200 :
201 : #undef KOS_ENABLED
202 :
203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
204 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
205 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
206 :
207 : #undef getGenGammaLogPDFNF_ENABLED
208 :
209 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
210 :
211 : #define getGenGammaLogPDF_ENABLED 1
212 :
213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214 :
215 : #define RK_ENABLED 1
216 :
217 : #if RK5_ENABLED
218 : module procedure getGenGammaLogPDF_RK5
219 : use pm_kind, only: RKC => RK5
220 : #include "pm_distGenGamma@routines.inc.F90"
221 : end procedure
222 : #endif
223 :
224 : #if RK4_ENABLED
225 120 : module procedure getGenGammaLogPDF_RK4
226 : use pm_kind, only: RKC => RK4
227 : #include "pm_distGenGamma@routines.inc.F90"
228 120 : end procedure
229 : #endif
230 :
231 : #if RK3_ENABLED
232 180 : module procedure getGenGammaLogPDF_RK3
233 : use pm_kind, only: RKC => RK3
234 : #include "pm_distGenGamma@routines.inc.F90"
235 180 : end procedure
236 : #endif
237 :
238 : #if RK2_ENABLED
239 120 : module procedure getGenGammaLogPDF_RK2
240 : use pm_kind, only: RKC => RK2
241 : #include "pm_distGenGamma@routines.inc.F90"
242 120 : end procedure
243 : #endif
244 :
245 : #if RK1_ENABLED
246 6134 : module procedure getGenGammaLogPDF_RK1
247 : use pm_kind, only: RKC => RK1
248 : #include "pm_distGenGamma@routines.inc.F90"
249 6134 : end procedure
250 : #endif
251 :
252 : #undef RK_ENABLED
253 :
254 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
255 :
256 : #undef getGenGammaLogPDF_ENABLED
257 :
258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259 :
260 : #define setGenGammaLogPDF_ENABLED 1
261 :
262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 :
266 : #define DDDD_ENABLED 1
267 :
268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
269 :
270 : #define RK_ENABLED 1
271 :
272 : #if RK5_ENABLED
273 : module procedure setGenGammaLogPDFDDDD_RK5
274 : use pm_kind, only: RKC => RK5
275 : #include "pm_distGenGamma@routines.inc.F90"
276 : end procedure
277 : #endif
278 :
279 : #if RK4_ENABLED
280 0 : module procedure setGenGammaLogPDFDDDD_RK4
281 : use pm_kind, only: RKC => RK4
282 : #include "pm_distGenGamma@routines.inc.F90"
283 0 : end procedure
284 : #endif
285 :
286 : #if RK3_ENABLED
287 0 : module procedure setGenGammaLogPDFDDDD_RK3
288 : use pm_kind, only: RKC => RK3
289 : #include "pm_distGenGamma@routines.inc.F90"
290 0 : end procedure
291 : #endif
292 :
293 : #if RK2_ENABLED
294 0 : module procedure setGenGammaLogPDFDDDD_RK2
295 : use pm_kind, only: RKC => RK2
296 : #include "pm_distGenGamma@routines.inc.F90"
297 0 : end procedure
298 : #endif
299 :
300 : #if RK1_ENABLED
301 1 : module procedure setGenGammaLogPDFDDDD_RK1
302 : use pm_kind, only: RKC => RK1
303 : #include "pm_distGenGamma@routines.inc.F90"
304 1 : end procedure
305 : #endif
306 :
307 : #undef RK_ENABLED
308 :
309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 :
311 : #undef DDDD_ENABLED
312 :
313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
316 :
317 : #define NKDD_ENABLED 1
318 :
319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
320 :
321 : #define RK_ENABLED 1
322 :
323 : #if RK5_ENABLED
324 : module procedure setGenGammaLogPDFNKDD_RK5
325 : use pm_kind, only: RKC => RK5
326 : #include "pm_distGenGamma@routines.inc.F90"
327 : end procedure
328 : #endif
329 :
330 : #if RK4_ENABLED
331 0 : module procedure setGenGammaLogPDFNKDD_RK4
332 : use pm_kind, only: RKC => RK4
333 : #include "pm_distGenGamma@routines.inc.F90"
334 0 : end procedure
335 : #endif
336 :
337 : #if RK3_ENABLED
338 0 : module procedure setGenGammaLogPDFNKDD_RK3
339 : use pm_kind, only: RKC => RK3
340 : #include "pm_distGenGamma@routines.inc.F90"
341 0 : end procedure
342 : #endif
343 :
344 : #if RK2_ENABLED
345 0 : module procedure setGenGammaLogPDFNKDD_RK2
346 : use pm_kind, only: RKC => RK2
347 : #include "pm_distGenGamma@routines.inc.F90"
348 0 : end procedure
349 : #endif
350 :
351 : #if RK1_ENABLED
352 11 : module procedure setGenGammaLogPDFNKDD_RK1
353 : use pm_kind, only: RKC => RK1
354 : #include "pm_distGenGamma@routines.inc.F90"
355 11 : end procedure
356 : #endif
357 :
358 : #undef RK_ENABLED
359 :
360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
361 :
362 : #undef NKDD_ENABLED
363 :
364 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367 :
368 : #define NKOD_ENABLED 1
369 :
370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
371 :
372 : #define RK_ENABLED 1
373 :
374 : #if RK5_ENABLED
375 : module procedure setGenGammaLogPDFNKOD_RK5
376 : use pm_kind, only: RKC => RK5
377 : #include "pm_distGenGamma@routines.inc.F90"
378 : end procedure
379 : #endif
380 :
381 : #if RK4_ENABLED
382 0 : module procedure setGenGammaLogPDFNKOD_RK4
383 : use pm_kind, only: RKC => RK4
384 : #include "pm_distGenGamma@routines.inc.F90"
385 0 : end procedure
386 : #endif
387 :
388 : #if RK3_ENABLED
389 0 : module procedure setGenGammaLogPDFNKOD_RK3
390 : use pm_kind, only: RKC => RK3
391 : #include "pm_distGenGamma@routines.inc.F90"
392 0 : end procedure
393 : #endif
394 :
395 : #if RK2_ENABLED
396 0 : module procedure setGenGammaLogPDFNKOD_RK2
397 : use pm_kind, only: RKC => RK2
398 : #include "pm_distGenGamma@routines.inc.F90"
399 0 : end procedure
400 : #endif
401 :
402 : #if RK1_ENABLED
403 1 : module procedure setGenGammaLogPDFNKOD_RK1
404 : use pm_kind, only: RKC => RK1
405 : #include "pm_distGenGamma@routines.inc.F90"
406 1 : end procedure
407 : #endif
408 :
409 : #undef RK_ENABLED
410 :
411 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
412 :
413 : #undef NKOD_ENABLED
414 :
415 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
418 :
419 : #define NKOS_ENABLED 1
420 :
421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
422 :
423 : #define RK_ENABLED 1
424 :
425 : #if RK5_ENABLED
426 : module procedure setGenGammaLogPDFNKOS_RK5
427 : use pm_kind, only: RKC => RK5
428 : #include "pm_distGenGamma@routines.inc.F90"
429 : end procedure
430 : #endif
431 :
432 : #if RK4_ENABLED
433 120 : module procedure setGenGammaLogPDFNKOS_RK4
434 : use pm_kind, only: RKC => RK4
435 : #include "pm_distGenGamma@routines.inc.F90"
436 120 : end procedure
437 : #endif
438 :
439 : #if RK3_ENABLED
440 180 : module procedure setGenGammaLogPDFNKOS_RK3
441 : use pm_kind, only: RKC => RK3
442 : #include "pm_distGenGamma@routines.inc.F90"
443 180 : end procedure
444 : #endif
445 :
446 : #if RK2_ENABLED
447 120 : module procedure setGenGammaLogPDFNKOS_RK2
448 : use pm_kind, only: RKC => RK2
449 : #include "pm_distGenGamma@routines.inc.F90"
450 120 : end procedure
451 : #endif
452 :
453 : #if RK1_ENABLED
454 12135 : module procedure setGenGammaLogPDFNKOS_RK1
455 : use pm_kind, only: RKC => RK1
456 : #include "pm_distGenGamma@routines.inc.F90"
457 12135 : end procedure
458 : #endif
459 :
460 : #undef RK_ENABLED
461 :
462 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
463 :
464 : #undef NKOS_ENABLED
465 :
466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
468 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
469 :
470 : #undef setGenGammaLogPDF_ENABLED
471 :
472 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
473 :
474 : #define getGenGammaCDF_ENABLED 1
475 :
476 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
477 :
478 : #define RK_ENABLED 1
479 :
480 : #if RK5_ENABLED
481 : module procedure getGenGammaCDF_RK5
482 : use pm_kind, only: RKC => RK5
483 : #include "pm_distGenGamma@routines.inc.F90"
484 : end procedure
485 : #endif
486 :
487 : #if RK4_ENABLED
488 0 : module procedure getGenGammaCDF_RK4
489 : use pm_kind, only: RKC => RK4
490 : #include "pm_distGenGamma@routines.inc.F90"
491 0 : end procedure
492 : #endif
493 :
494 : #if RK3_ENABLED
495 0 : module procedure getGenGammaCDF_RK3
496 : use pm_kind, only: RKC => RK3
497 : #include "pm_distGenGamma@routines.inc.F90"
498 0 : end procedure
499 : #endif
500 :
501 : #if RK2_ENABLED
502 0 : module procedure getGenGammaCDF_RK2
503 : use pm_kind, only: RKC => RK2
504 : #include "pm_distGenGamma@routines.inc.F90"
505 0 : end procedure
506 : #endif
507 :
508 : #if RK1_ENABLED
509 6014 : module procedure getGenGammaCDF_RK1
510 : use pm_kind, only: RKC => RK1
511 : #include "pm_distGenGamma@routines.inc.F90"
512 6014 : end procedure
513 : #endif
514 :
515 : #undef RK_ENABLED
516 :
517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
518 :
519 : #undef getGenGammaCDF_ENABLED
520 :
521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
522 :
523 : #define setGenGammaCDF_ENABLED 1
524 :
525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528 :
529 : #define DDD_ENABLED 1
530 :
531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
532 :
533 : #define RK_ENABLED 1
534 :
535 : #if RK5_ENABLED
536 : module procedure setGenGammaCDFDDD_RK5
537 : use pm_kind, only: RKC => RK5
538 : #include "pm_distGenGamma@routines.inc.F90"
539 : end procedure
540 : #endif
541 :
542 : #if RK4_ENABLED
543 0 : module procedure setGenGammaCDFDDD_RK4
544 : use pm_kind, only: RKC => RK4
545 : #include "pm_distGenGamma@routines.inc.F90"
546 0 : end procedure
547 : #endif
548 :
549 : #if RK3_ENABLED
550 0 : module procedure setGenGammaCDFDDD_RK3
551 : use pm_kind, only: RKC => RK3
552 : #include "pm_distGenGamma@routines.inc.F90"
553 0 : end procedure
554 : #endif
555 :
556 : #if RK2_ENABLED
557 0 : module procedure setGenGammaCDFDDD_RK2
558 : use pm_kind, only: RKC => RK2
559 : #include "pm_distGenGamma@routines.inc.F90"
560 0 : end procedure
561 : #endif
562 :
563 : #if RK1_ENABLED
564 2 : module procedure setGenGammaCDFDDD_RK1
565 : use pm_kind, only: RKC => RK1
566 : #include "pm_distGenGamma@routines.inc.F90"
567 2 : end procedure
568 : #endif
569 :
570 : #undef RK_ENABLED
571 :
572 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
573 :
574 : #undef DDD_ENABLED
575 :
576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
577 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
578 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
579 :
580 : #define KDD_ENABLED 1
581 :
582 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
583 :
584 : #define RK_ENABLED 1
585 :
586 : #if RK5_ENABLED
587 : module procedure setGenGammaCDFKDD_RK5
588 : use pm_kind, only: RKC => RK5
589 : #include "pm_distGenGamma@routines.inc.F90"
590 : end procedure
591 : #endif
592 :
593 : #if RK4_ENABLED
594 0 : module procedure setGenGammaCDFKDD_RK4
595 : use pm_kind, only: RKC => RK4
596 : #include "pm_distGenGamma@routines.inc.F90"
597 0 : end procedure
598 : #endif
599 :
600 : #if RK3_ENABLED
601 0 : module procedure setGenGammaCDFKDD_RK3
602 : use pm_kind, only: RKC => RK3
603 : #include "pm_distGenGamma@routines.inc.F90"
604 0 : end procedure
605 : #endif
606 :
607 : #if RK2_ENABLED
608 0 : module procedure setGenGammaCDFKDD_RK2
609 : use pm_kind, only: RKC => RK2
610 : #include "pm_distGenGamma@routines.inc.F90"
611 0 : end procedure
612 : #endif
613 :
614 : #if RK1_ENABLED
615 6024 : module procedure setGenGammaCDFKDD_RK1
616 : use pm_kind, only: RKC => RK1
617 : #include "pm_distGenGamma@routines.inc.F90"
618 6024 : end procedure
619 : #endif
620 :
621 : #undef RK_ENABLED
622 :
623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
624 :
625 : #undef KDD_ENABLED
626 :
627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
628 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
630 :
631 : #define KOD_ENABLED 1
632 :
633 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
634 :
635 : #define RK_ENABLED 1
636 :
637 : #if RK5_ENABLED
638 : module procedure setGenGammaCDFKOD_RK5
639 : use pm_kind, only: RKC => RK5
640 : #include "pm_distGenGamma@routines.inc.F90"
641 : end procedure
642 : #endif
643 :
644 : #if RK4_ENABLED
645 0 : module procedure setGenGammaCDFKOD_RK4
646 : use pm_kind, only: RKC => RK4
647 : #include "pm_distGenGamma@routines.inc.F90"
648 0 : end procedure
649 : #endif
650 :
651 : #if RK3_ENABLED
652 0 : module procedure setGenGammaCDFKOD_RK3
653 : use pm_kind, only: RKC => RK3
654 : #include "pm_distGenGamma@routines.inc.F90"
655 0 : end procedure
656 : #endif
657 :
658 : #if RK2_ENABLED
659 0 : module procedure setGenGammaCDFKOD_RK2
660 : use pm_kind, only: RKC => RK2
661 : #include "pm_distGenGamma@routines.inc.F90"
662 0 : end procedure
663 : #endif
664 :
665 : #if RK1_ENABLED
666 1 : module procedure setGenGammaCDFKOD_RK1
667 : use pm_kind, only: RKC => RK1
668 : #include "pm_distGenGamma@routines.inc.F90"
669 1 : end procedure
670 : #endif
671 :
672 : #undef RK_ENABLED
673 :
674 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
675 :
676 : #undef KOD_ENABLED
677 :
678 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
679 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
681 :
682 : #define KOS_ENABLED 1
683 :
684 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
685 :
686 : #define RK_ENABLED 1
687 :
688 : #if RK5_ENABLED
689 : module procedure setGenGammaCDFKOS_RK5
690 : use pm_kind, only: RKC => RK5
691 : #include "pm_distGenGamma@routines.inc.F90"
692 : end procedure
693 : #endif
694 :
695 : #if RK4_ENABLED
696 0 : module procedure setGenGammaCDFKOS_RK4
697 : use pm_kind, only: RKC => RK4
698 : #include "pm_distGenGamma@routines.inc.F90"
699 0 : end procedure
700 : #endif
701 :
702 : #if RK3_ENABLED
703 0 : module procedure setGenGammaCDFKOS_RK3
704 : use pm_kind, only: RKC => RK3
705 : #include "pm_distGenGamma@routines.inc.F90"
706 0 : end procedure
707 : #endif
708 :
709 : #if RK2_ENABLED
710 0 : module procedure setGenGammaCDFKOS_RK2
711 : use pm_kind, only: RKC => RK2
712 : #include "pm_distGenGamma@routines.inc.F90"
713 0 : end procedure
714 : #endif
715 :
716 : #if RK1_ENABLED
717 6001 : module procedure setGenGammaCDFKOS_RK1
718 : use pm_kind, only: RKC => RK1
719 : #include "pm_distGenGamma@routines.inc.F90"
720 6001 : end procedure
721 : #endif
722 :
723 : #undef RK_ENABLED
724 :
725 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
726 :
727 : #undef KOS_ENABLED
728 :
729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
730 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
731 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
732 :
733 : #undef setGenGammaCDF_ENABLED
734 :
735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
736 :
737 : #undef CHECK_ASSERTION
738 :
739 : end submodule routines
|
