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_distGenExpGamma](@ref pm_distGenExpGamma).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distGenExpGamma) 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 getGenExpGammaLogPDFNF_ENABLED 1
49 :
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 :
54 : #define KD_ENABLED 1
55 :
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 :
58 : #define RK_ENABLED 1
59 :
60 : #if RK5_ENABLED
61 : module procedure getGenExpGammaLogPDFNFKD_RK5
62 : use pm_kind, only: RKC => RK5
63 : #include "pm_distGenExpGamma@routines.inc.F90"
64 : end procedure
65 : #endif
66 :
67 : #if RK4_ENABLED
68 35182 : module procedure getGenExpGammaLogPDFNFKD_RK4
69 : use pm_kind, only: RKC => RK4
70 : #include "pm_distGenExpGamma@routines.inc.F90"
71 35182 : end procedure
72 : #endif
73 :
74 : #if RK3_ENABLED
75 4856 : module procedure getGenExpGammaLogPDFNFKD_RK3
76 : use pm_kind, only: RKC => RK3
77 : #include "pm_distGenExpGamma@routines.inc.F90"
78 4856 : end procedure
79 : #endif
80 :
81 : #if RK2_ENABLED
82 2798 : module procedure getGenExpGammaLogPDFNFKD_RK2
83 : use pm_kind, only: RKC => RK2
84 : #include "pm_distGenExpGamma@routines.inc.F90"
85 2798 : end procedure
86 : #endif
87 :
88 : #if RK1_ENABLED
89 46525 : module procedure getGenExpGammaLogPDFNFKD_RK1
90 : use pm_kind, only: RKC => RK1
91 : #include "pm_distGenExpGamma@routines.inc.F90"
92 46525 : end procedure
93 : #endif
94 :
95 : #undef RK_ENABLED
96 :
97 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98 :
99 : #undef KD_ENABLED
100 :
101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
104 :
105 : #define KO_ENABLED 1
106 :
107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 :
109 : #define RK_ENABLED 1
110 :
111 : #if RK5_ENABLED
112 : module procedure getGenExpGammaLogPDFNFKO_RK5
113 : use pm_kind, only: RKC => RK5
114 : #include "pm_distGenExpGamma@routines.inc.F90"
115 : end procedure
116 : #endif
117 :
118 : #if RK4_ENABLED
119 32940 : module procedure getGenExpGammaLogPDFNFKO_RK4
120 : use pm_kind, only: RKC => RK4
121 : #include "pm_distGenExpGamma@routines.inc.F90"
122 32940 : end procedure
123 : #endif
124 :
125 : #if RK3_ENABLED
126 3874 : module procedure getGenExpGammaLogPDFNFKO_RK3
127 : use pm_kind, only: RKC => RK3
128 : #include "pm_distGenExpGamma@routines.inc.F90"
129 3874 : end procedure
130 : #endif
131 :
132 : #if RK2_ENABLED
133 1816 : module procedure getGenExpGammaLogPDFNFKO_RK2
134 : use pm_kind, only: RKC => RK2
135 : #include "pm_distGenExpGamma@routines.inc.F90"
136 1816 : end procedure
137 : #endif
138 :
139 : #if RK1_ENABLED
140 45008 : module procedure getGenExpGammaLogPDFNFKO_RK1
141 : use pm_kind, only: RKC => RK1
142 : #include "pm_distGenExpGamma@routines.inc.F90"
143 45008 : end procedure
144 : #endif
145 :
146 : #undef RK_ENABLED
147 :
148 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
149 :
150 : #undef KO_ENABLED
151 :
152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 :
156 : #undef getGenExpGammaLogPDFNF_ENABLED
157 :
158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
159 :
160 : #define getGenExpGammaLogPDF_ENABLED 1
161 :
162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
163 :
164 : #define RK_ENABLED 1
165 :
166 : #if RK5_ENABLED
167 : module procedure getGenExpGammaLogPDF_RK5
168 : use pm_kind, only: RKC => RK5
169 : #include "pm_distGenExpGamma@routines.inc.F90"
170 : end procedure
171 : #endif
172 :
173 : #if RK4_ENABLED
174 98 : module procedure getGenExpGammaLogPDF_RK4
175 : use pm_kind, only: RKC => RK4
176 : #include "pm_distGenExpGamma@routines.inc.F90"
177 98 : end procedure
178 : #endif
179 :
180 : #if RK3_ENABLED
181 98 : module procedure getGenExpGammaLogPDF_RK3
182 : use pm_kind, only: RKC => RK3
183 : #include "pm_distGenExpGamma@routines.inc.F90"
184 98 : end procedure
185 : #endif
186 :
187 : #if RK2_ENABLED
188 98 : module procedure getGenExpGammaLogPDF_RK2
189 : use pm_kind, only: RKC => RK2
190 : #include "pm_distGenExpGamma@routines.inc.F90"
191 98 : end procedure
192 : #endif
193 :
194 : #if RK1_ENABLED
195 6112 : module procedure getGenExpGammaLogPDF_RK1
196 : use pm_kind, only: RKC => RK1
197 : #include "pm_distGenExpGamma@routines.inc.F90"
198 6112 : end procedure
199 : #endif
200 :
201 : #undef RK_ENABLED
202 :
203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
204 :
205 : #undef getGenExpGammaLogPDF_ENABLED
206 :
207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
208 :
209 : #define setGenExpGammaLogPDF_ENABLED 1
210 :
211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214 :
215 : #define DDDD_ENABLED 1
216 :
217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
218 :
219 : #define RK_ENABLED 1
220 :
221 : #if RK5_ENABLED
222 : module procedure setGenExpGammaLogPDFDDDD_RK5
223 : use pm_kind, only: RKC => RK5
224 : #include "pm_distGenExpGamma@routines.inc.F90"
225 : end procedure
226 : #endif
227 :
228 : #if RK4_ENABLED
229 623 : module procedure setGenExpGammaLogPDFDDDD_RK4
230 : use pm_kind, only: RKC => RK4
231 : #include "pm_distGenExpGamma@routines.inc.F90"
232 623 : end procedure
233 : #endif
234 :
235 : #if RK3_ENABLED
236 329 : module procedure setGenExpGammaLogPDFDDDD_RK3
237 : use pm_kind, only: RKC => RK3
238 : #include "pm_distGenExpGamma@routines.inc.F90"
239 329 : end procedure
240 : #endif
241 :
242 : #if RK2_ENABLED
243 287 : module procedure setGenExpGammaLogPDFDDDD_RK2
244 : use pm_kind, only: RKC => RK2
245 : #include "pm_distGenExpGamma@routines.inc.F90"
246 287 : end procedure
247 : #endif
248 :
249 : #if RK1_ENABLED
250 162 : module procedure setGenExpGammaLogPDFDDDD_RK1
251 : use pm_kind, only: RKC => RK1
252 : #include "pm_distGenExpGamma@routines.inc.F90"
253 162 : end procedure
254 : #endif
255 :
256 : #undef RK_ENABLED
257 :
258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259 :
260 : #undef DDDD_ENABLED
261 :
262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 :
266 : #define NKDD_ENABLED 1
267 :
268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
269 :
270 : #define RK_ENABLED 1
271 :
272 : #if RK5_ENABLED
273 : module procedure setGenExpGammaLogPDFNKDD_RK5
274 : use pm_kind, only: RKC => RK5
275 : #include "pm_distGenExpGamma@routines.inc.F90"
276 : end procedure
277 : #endif
278 :
279 : #if RK4_ENABLED
280 749 : module procedure setGenExpGammaLogPDFNKDD_RK4
281 : use pm_kind, only: RKC => RK4
282 : #include "pm_distGenExpGamma@routines.inc.F90"
283 749 : end procedure
284 : #endif
285 :
286 : #if RK3_ENABLED
287 329 : module procedure setGenExpGammaLogPDFNKDD_RK3
288 : use pm_kind, only: RKC => RK3
289 : #include "pm_distGenExpGamma@routines.inc.F90"
290 329 : end procedure
291 : #endif
292 :
293 : #if RK2_ENABLED
294 329 : module procedure setGenExpGammaLogPDFNKDD_RK2
295 : use pm_kind, only: RKC => RK2
296 : #include "pm_distGenExpGamma@routines.inc.F90"
297 329 : end procedure
298 : #endif
299 :
300 : #if RK1_ENABLED
301 172 : module procedure setGenExpGammaLogPDFNKDD_RK1
302 : use pm_kind, only: RKC => RK1
303 : #include "pm_distGenExpGamma@routines.inc.F90"
304 172 : end procedure
305 : #endif
306 :
307 : #undef RK_ENABLED
308 :
309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 :
311 : #undef NKDD_ENABLED
312 :
313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
316 :
317 : #define NKOD_ENABLED 1
318 :
319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
320 :
321 : #define RK_ENABLED 1
322 :
323 : #if RK5_ENABLED
324 : module procedure setGenExpGammaLogPDFNKOD_RK5
325 : use pm_kind, only: RKC => RK5
326 : #include "pm_distGenExpGamma@routines.inc.F90"
327 : end procedure
328 : #endif
329 :
330 : #if RK4_ENABLED
331 8218 : module procedure setGenExpGammaLogPDFNKOD_RK4
332 : use pm_kind, only: RKC => RK4
333 : #include "pm_distGenExpGamma@routines.inc.F90"
334 8218 : end procedure
335 : #endif
336 :
337 : #if RK3_ENABLED
338 910 : module procedure setGenExpGammaLogPDFNKOD_RK3
339 : use pm_kind, only: RKC => RK3
340 : #include "pm_distGenExpGamma@routines.inc.F90"
341 910 : end procedure
342 : #endif
343 :
344 : #if RK2_ENABLED
345 448 : module procedure setGenExpGammaLogPDFNKOD_RK2
346 : use pm_kind, only: RKC => RK2
347 : #include "pm_distGenExpGamma@routines.inc.F90"
348 448 : end procedure
349 : #endif
350 :
351 : #if RK1_ENABLED
352 12716 : module procedure setGenExpGammaLogPDFNKOD_RK1
353 : use pm_kind, only: RKC => RK1
354 : #include "pm_distGenExpGamma@routines.inc.F90"
355 12716 : end procedure
356 : #endif
357 :
358 : #undef RK_ENABLED
359 :
360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
361 :
362 : #undef NKOD_ENABLED
363 :
364 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367 :
368 : #define NKOS_ENABLED 1
369 :
370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
371 :
372 : #define RK_ENABLED 1
373 :
374 : #if RK5_ENABLED
375 : module procedure setGenExpGammaLogPDFNKOS_RK5
376 : use pm_kind, only: RKC => RK5
377 : #include "pm_distGenExpGamma@routines.inc.F90"
378 : end procedure
379 : #endif
380 :
381 : #if RK4_ENABLED
382 7266 : module procedure setGenExpGammaLogPDFNKOS_RK4
383 : use pm_kind, only: RKC => RK4
384 : #include "pm_distGenExpGamma@routines.inc.F90"
385 7266 : end procedure
386 : #endif
387 :
388 : #if RK3_ENABLED
389 588 : module procedure setGenExpGammaLogPDFNKOS_RK3
390 : use pm_kind, only: RKC => RK3
391 : #include "pm_distGenExpGamma@routines.inc.F90"
392 588 : end procedure
393 : #endif
394 :
395 : #if RK2_ENABLED
396 252 : module procedure setGenExpGammaLogPDFNKOS_RK2
397 : use pm_kind, only: RKC => RK2
398 : #include "pm_distGenExpGamma@routines.inc.F90"
399 252 : end procedure
400 : #endif
401 :
402 : #if RK1_ENABLED
403 6435 : module procedure setGenExpGammaLogPDFNKOS_RK1
404 : use pm_kind, only: RKC => RK1
405 : #include "pm_distGenExpGamma@routines.inc.F90"
406 6435 : end procedure
407 : #endif
408 :
409 : #undef RK_ENABLED
410 :
411 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
412 :
413 : #undef NKOS_ENABLED
414 :
415 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
418 :
419 : #undef setGenExpGammaLogPDF_ENABLED
420 :
421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
422 :
423 : #define getGenExpGammaCDF_ENABLED 1
424 :
425 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
426 :
427 : #define RK_ENABLED 1
428 :
429 : #if RK5_ENABLED
430 : module procedure getGenExpGammaCDF_RK5
431 : use pm_kind, only: RKC => RK5
432 : #include "pm_distGenExpGamma@routines.inc.F90"
433 : end procedure
434 : #endif
435 :
436 : #if RK4_ENABLED
437 8 : module procedure getGenExpGammaCDF_RK4
438 : use pm_kind, only: RKC => RK4
439 : #include "pm_distGenExpGamma@routines.inc.F90"
440 8 : end procedure
441 : #endif
442 :
443 : #if RK3_ENABLED
444 8 : module procedure getGenExpGammaCDF_RK3
445 : use pm_kind, only: RKC => RK3
446 : #include "pm_distGenExpGamma@routines.inc.F90"
447 8 : end procedure
448 : #endif
449 :
450 : #if RK2_ENABLED
451 8 : module procedure getGenExpGammaCDF_RK2
452 : use pm_kind, only: RKC => RK2
453 : #include "pm_distGenExpGamma@routines.inc.F90"
454 8 : end procedure
455 : #endif
456 :
457 : #if RK1_ENABLED
458 6022 : module procedure getGenExpGammaCDF_RK1
459 : use pm_kind, only: RKC => RK1
460 : #include "pm_distGenExpGamma@routines.inc.F90"
461 6022 : end procedure
462 : #endif
463 :
464 : #undef RK_ENABLED
465 :
466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
467 :
468 : #undef getGenExpGammaCDF_ENABLED
469 :
470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
471 :
472 : #define setGenExpGammaCDF_ENABLED 1
473 :
474 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
475 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
476 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
477 :
478 : #define DDD_ENABLED 1
479 :
480 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
481 :
482 : #define RK_ENABLED 1
483 :
484 : #if RK5_ENABLED
485 : module procedure setGenExpGammaCDFDDD_RK5
486 : use pm_kind, only: RKC => RK5
487 : #include "pm_distGenExpGamma@routines.inc.F90"
488 : end procedure
489 : #endif
490 :
491 : #if RK4_ENABLED
492 2 : module procedure setGenExpGammaCDFDDD_RK4
493 : use pm_kind, only: RKC => RK4
494 : #include "pm_distGenExpGamma@routines.inc.F90"
495 2 : end procedure
496 : #endif
497 :
498 : #if RK3_ENABLED
499 2 : module procedure setGenExpGammaCDFDDD_RK3
500 : use pm_kind, only: RKC => RK3
501 : #include "pm_distGenExpGamma@routines.inc.F90"
502 2 : end procedure
503 : #endif
504 :
505 : #if RK2_ENABLED
506 2 : module procedure setGenExpGammaCDFDDD_RK2
507 : use pm_kind, only: RKC => RK2
508 : #include "pm_distGenExpGamma@routines.inc.F90"
509 2 : end procedure
510 : #endif
511 :
512 : #if RK1_ENABLED
513 4 : module procedure setGenExpGammaCDFDDD_RK1
514 : use pm_kind, only: RKC => RK1
515 : #include "pm_distGenExpGamma@routines.inc.F90"
516 4 : end procedure
517 : #endif
518 :
519 : #undef RK_ENABLED
520 :
521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
522 :
523 : #undef DDD_ENABLED
524 :
525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528 :
529 : #define KDD_ENABLED 1
530 :
531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
532 :
533 : #define RK_ENABLED 1
534 :
535 : #if RK5_ENABLED
536 : module procedure setGenExpGammaCDFXKDD_RK5
537 : use pm_kind, only: RKC => RK5
538 : #include "pm_distGenExpGamma@routines.inc.F90"
539 : end procedure
540 : #endif
541 :
542 : #if RK4_ENABLED
543 6 : module procedure setGenExpGammaCDFXKDD_RK4
544 : use pm_kind, only: RKC => RK4
545 : #include "pm_distGenExpGamma@routines.inc.F90"
546 6 : end procedure
547 : #endif
548 :
549 : #if RK3_ENABLED
550 6 : module procedure setGenExpGammaCDFXKDD_RK3
551 : use pm_kind, only: RKC => RK3
552 : #include "pm_distGenExpGamma@routines.inc.F90"
553 6 : end procedure
554 : #endif
555 :
556 : #if RK2_ENABLED
557 6 : module procedure setGenExpGammaCDFXKDD_RK2
558 : use pm_kind, only: RKC => RK2
559 : #include "pm_distGenExpGamma@routines.inc.F90"
560 6 : end procedure
561 : #endif
562 :
563 : #if RK1_ENABLED
564 6030 : module procedure setGenExpGammaCDFXKDD_RK1
565 : use pm_kind, only: RKC => RK1
566 : #include "pm_distGenExpGamma@routines.inc.F90"
567 6030 : end procedure
568 : #endif
569 :
570 : #undef RK_ENABLED
571 :
572 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
573 :
574 : #undef KDD_ENABLED
575 :
576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
577 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
578 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
579 :
580 : #define KOD_ENABLED 1
581 :
582 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
583 :
584 : #define RK_ENABLED 1
585 :
586 : #if RK5_ENABLED
587 : module procedure setGenExpGammaCDFKOD_RK5
588 : use pm_kind, only: RKC => RK5
589 : #include "pm_distGenExpGamma@routines.inc.F90"
590 : end procedure
591 : #endif
592 :
593 : #if RK4_ENABLED
594 0 : module procedure setGenExpGammaCDFKOD_RK4
595 : use pm_kind, only: RKC => RK4
596 : #include "pm_distGenExpGamma@routines.inc.F90"
597 0 : end procedure
598 : #endif
599 :
600 : #if RK3_ENABLED
601 0 : module procedure setGenExpGammaCDFKOD_RK3
602 : use pm_kind, only: RKC => RK3
603 : #include "pm_distGenExpGamma@routines.inc.F90"
604 0 : end procedure
605 : #endif
606 :
607 : #if RK2_ENABLED
608 0 : module procedure setGenExpGammaCDFKOD_RK2
609 : use pm_kind, only: RKC => RK2
610 : #include "pm_distGenExpGamma@routines.inc.F90"
611 0 : end procedure
612 : #endif
613 :
614 : #if RK1_ENABLED
615 6001 : module procedure setGenExpGammaCDFKOD_RK1
616 : use pm_kind, only: RKC => RK1
617 : #include "pm_distGenExpGamma@routines.inc.F90"
618 6001 : end procedure
619 : #endif
620 :
621 : #undef RK_ENABLED
622 :
623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
624 :
625 : #undef KOD_ENABLED
626 :
627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
628 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
630 :
631 : #define KOS_ENABLED 1
632 :
633 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
634 :
635 : #define RK_ENABLED 1
636 :
637 : #if RK5_ENABLED
638 : module procedure setGenExpGammaCDFKOS_RK5
639 : use pm_kind, only: RKC => RK5
640 : #include "pm_distGenExpGamma@routines.inc.F90"
641 : end procedure
642 : #endif
643 :
644 : #if RK4_ENABLED
645 0 : module procedure setGenExpGammaCDFKOS_RK4
646 : use pm_kind, only: RKC => RK4
647 : #include "pm_distGenExpGamma@routines.inc.F90"
648 0 : end procedure
649 : #endif
650 :
651 : #if RK3_ENABLED
652 0 : module procedure setGenExpGammaCDFKOS_RK3
653 : use pm_kind, only: RKC => RK3
654 : #include "pm_distGenExpGamma@routines.inc.F90"
655 0 : end procedure
656 : #endif
657 :
658 : #if RK2_ENABLED
659 0 : module procedure setGenExpGammaCDFKOS_RK2
660 : use pm_kind, only: RKC => RK2
661 : #include "pm_distGenExpGamma@routines.inc.F90"
662 0 : end procedure
663 : #endif
664 :
665 : #if RK1_ENABLED
666 1 : module procedure setGenExpGammaCDFKOS_RK1
667 : use pm_kind, only: RKC => RK1
668 : #include "pm_distGenExpGamma@routines.inc.F90"
669 1 : end procedure
670 : #endif
671 :
672 : #undef RK_ENABLED
673 :
674 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
675 :
676 : #undef KOS_ENABLED
677 :
678 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
679 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
681 :
682 : #undef setGenExpGammaCDF_ENABLED
683 :
684 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
685 :
686 : #undef CHECK_ASSERTION
687 :
688 : end submodule routines
|
