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_distExpGamma](@ref pm_distExpGamma).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distExpGamma) 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 getExpGammaLogPDFNF_ENABLED 1
49 :
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 :
52 : #define RK_ENABLED 1
53 :
54 : #if RK5_ENABLED
55 : module procedure getExpGammaLogPDFNF_RK5
56 : use pm_kind, only: RKC => RK5
57 : #include "pm_distExpGamma@routines.inc.F90"
58 : end procedure
59 : #endif
60 :
61 : #if RK4_ENABLED
62 0 : module procedure getExpGammaLogPDFNF_RK4
63 : use pm_kind, only: RKC => RK4
64 : #include "pm_distExpGamma@routines.inc.F90"
65 0 : end procedure
66 : #endif
67 :
68 : #if RK3_ENABLED
69 0 : module procedure getExpGammaLogPDFNF_RK3
70 : use pm_kind, only: RKC => RK3
71 : #include "pm_distExpGamma@routines.inc.F90"
72 0 : end procedure
73 : #endif
74 :
75 : #if RK2_ENABLED
76 0 : module procedure getExpGammaLogPDFNF_RK2
77 : use pm_kind, only: RKC => RK2
78 : #include "pm_distExpGamma@routines.inc.F90"
79 0 : end procedure
80 : #endif
81 :
82 : #if RK1_ENABLED
83 7039 : module procedure getExpGammaLogPDFNF_RK1
84 : use pm_kind, only: RKC => RK1
85 : #include "pm_distExpGamma@routines.inc.F90"
86 7039 : end procedure
87 : #endif
88 :
89 : #undef RK_ENABLED
90 :
91 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
92 :
93 : #undef getExpGammaLogPDFNF_ENABLED
94 :
95 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
96 :
97 : #define getExpGammaLogPDF_ENABLED 1
98 :
99 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
100 :
101 : #define RK_ENABLED 1
102 :
103 : #if RK5_ENABLED
104 : module procedure getExpGammaLogPDF_RK5
105 : use pm_kind, only: RKC => RK5
106 : #include "pm_distExpGamma@routines.inc.F90"
107 : end procedure
108 : #endif
109 :
110 : #if RK4_ENABLED
111 0 : module procedure getExpGammaLogPDF_RK4
112 : use pm_kind, only: RKC => RK4
113 : #include "pm_distExpGamma@routines.inc.F90"
114 0 : end procedure
115 : #endif
116 :
117 : #if RK3_ENABLED
118 0 : module procedure getExpGammaLogPDF_RK3
119 : use pm_kind, only: RKC => RK3
120 : #include "pm_distExpGamma@routines.inc.F90"
121 0 : end procedure
122 : #endif
123 :
124 : #if RK2_ENABLED
125 0 : module procedure getExpGammaLogPDF_RK2
126 : use pm_kind, only: RKC => RK2
127 : #include "pm_distExpGamma@routines.inc.F90"
128 0 : end procedure
129 : #endif
130 :
131 : #if RK1_ENABLED
132 6013 : module procedure getExpGammaLogPDF_RK1
133 : use pm_kind, only: RKC => RK1
134 : #include "pm_distExpGamma@routines.inc.F90"
135 6013 : end procedure
136 : #endif
137 :
138 : #undef RK_ENABLED
139 :
140 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
141 :
142 : #undef getExpGammaLogPDF_ENABLED
143 :
144 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
145 :
146 : #define setExpGammaLogPDF_ENABLED 1
147 :
148 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151 :
152 : #define DDD_ENABLED 1
153 :
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 :
156 : #define RK_ENABLED 1
157 :
158 : #if RK5_ENABLED
159 : module procedure setExpGammaLogPDFDDD_RK5
160 : use pm_kind, only: RKC => RK5
161 : #include "pm_distExpGamma@routines.inc.F90"
162 : end procedure
163 : #endif
164 :
165 : #if RK4_ENABLED
166 0 : module procedure setExpGammaLogPDFDDD_RK4
167 : use pm_kind, only: RKC => RK4
168 : #include "pm_distExpGamma@routines.inc.F90"
169 0 : end procedure
170 : #endif
171 :
172 : #if RK3_ENABLED
173 0 : module procedure setExpGammaLogPDFDDD_RK3
174 : use pm_kind, only: RKC => RK3
175 : #include "pm_distExpGamma@routines.inc.F90"
176 0 : end procedure
177 : #endif
178 :
179 : #if RK2_ENABLED
180 0 : module procedure setExpGammaLogPDFDDD_RK2
181 : use pm_kind, only: RKC => RK2
182 : #include "pm_distExpGamma@routines.inc.F90"
183 0 : end procedure
184 : #endif
185 :
186 : #if RK1_ENABLED
187 1 : module procedure setExpGammaLogPDFDDD_RK1
188 : use pm_kind, only: RKC => RK1
189 : #include "pm_distExpGamma@routines.inc.F90"
190 1 : end procedure
191 : #endif
192 :
193 : #undef RK_ENABLED
194 :
195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
196 :
197 : #undef DDD_ENABLED
198 :
199 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
202 :
203 : #define NKD_ENABLED 1
204 :
205 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
206 :
207 : #define RK_ENABLED 1
208 :
209 : #if RK5_ENABLED
210 : module procedure setExpGammaLogPDFNKD_RK5
211 : use pm_kind, only: RKC => RK5
212 : #include "pm_distExpGamma@routines.inc.F90"
213 : end procedure
214 : #endif
215 :
216 : #if RK4_ENABLED
217 0 : module procedure setExpGammaLogPDFNKD_RK4
218 : use pm_kind, only: RKC => RK4
219 : #include "pm_distExpGamma@routines.inc.F90"
220 0 : end procedure
221 : #endif
222 :
223 : #if RK3_ENABLED
224 0 : module procedure setExpGammaLogPDFNKD_RK3
225 : use pm_kind, only: RKC => RK3
226 : #include "pm_distExpGamma@routines.inc.F90"
227 0 : end procedure
228 : #endif
229 :
230 : #if RK2_ENABLED
231 0 : module procedure setExpGammaLogPDFNKD_RK2
232 : use pm_kind, only: RKC => RK2
233 : #include "pm_distExpGamma@routines.inc.F90"
234 0 : end procedure
235 : #endif
236 :
237 : #if RK1_ENABLED
238 12026 : module procedure setExpGammaLogPDFNKD_RK1
239 : use pm_kind, only: RKC => RK1
240 : #include "pm_distExpGamma@routines.inc.F90"
241 12026 : end procedure
242 : #endif
243 :
244 : #undef RK_ENABLED
245 :
246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247 :
248 : #undef NKD_ENABLED
249 :
250 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 :
254 : #define NKS_ENABLED 1
255 :
256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
257 :
258 : #define RK_ENABLED 1
259 :
260 : #if RK5_ENABLED
261 : module procedure setExpGammaLogPDFNKS_RK5
262 : use pm_kind, only: RKC => RK5
263 : #include "pm_distExpGamma@routines.inc.F90"
264 : end procedure
265 : #endif
266 :
267 : #if RK4_ENABLED
268 0 : module procedure setExpGammaLogPDFNKS_RK4
269 : use pm_kind, only: RKC => RK4
270 : #include "pm_distExpGamma@routines.inc.F90"
271 0 : end procedure
272 : #endif
273 :
274 : #if RK3_ENABLED
275 0 : module procedure setExpGammaLogPDFNKS_RK3
276 : use pm_kind, only: RKC => RK3
277 : #include "pm_distExpGamma@routines.inc.F90"
278 0 : end procedure
279 : #endif
280 :
281 : #if RK2_ENABLED
282 0 : module procedure setExpGammaLogPDFNKS_RK2
283 : use pm_kind, only: RKC => RK2
284 : #include "pm_distExpGamma@routines.inc.F90"
285 0 : end procedure
286 : #endif
287 :
288 : #if RK1_ENABLED
289 12014 : module procedure setExpGammaLogPDFNKS_RK1
290 : use pm_kind, only: RKC => RK1
291 : #include "pm_distExpGamma@routines.inc.F90"
292 12014 : end procedure
293 : #endif
294 :
295 : #undef RK_ENABLED
296 :
297 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
298 :
299 : #undef NKS_ENABLED
300 :
301 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304 :
305 : #undef setExpGammaLogPDF_ENABLED
306 :
307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308 :
309 : #define getExpGammaCDF_ENABLED 1
310 :
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 :
313 : #define RK_ENABLED 1
314 :
315 : #if RK5_ENABLED
316 : module procedure getExpGammaCDF_RK5
317 : use pm_kind, only: RKC => RK5
318 : #include "pm_distExpGamma@routines.inc.F90"
319 : end procedure
320 : #endif
321 :
322 : #if RK4_ENABLED
323 0 : module procedure getExpGammaCDF_RK4
324 : use pm_kind, only: RKC => RK4
325 : #include "pm_distExpGamma@routines.inc.F90"
326 0 : end procedure
327 : #endif
328 :
329 : #if RK3_ENABLED
330 0 : module procedure getExpGammaCDF_RK3
331 : use pm_kind, only: RKC => RK3
332 : #include "pm_distExpGamma@routines.inc.F90"
333 0 : end procedure
334 : #endif
335 :
336 : #if RK2_ENABLED
337 0 : module procedure getExpGammaCDF_RK2
338 : use pm_kind, only: RKC => RK2
339 : #include "pm_distExpGamma@routines.inc.F90"
340 0 : end procedure
341 : #endif
342 :
343 : #if RK1_ENABLED
344 6014 : module procedure getExpGammaCDF_RK1
345 : use pm_kind, only: RKC => RK1
346 : #include "pm_distExpGamma@routines.inc.F90"
347 6014 : end procedure
348 : #endif
349 :
350 : #undef RK_ENABLED
351 :
352 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
353 :
354 : #undef getExpGammaCDF_ENABLED
355 :
356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
357 :
358 : #define setExpGammaCDF_ENABLED 1
359 :
360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
363 :
364 : #define DD_ENABLED 1
365 :
366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367 :
368 : #define RK_ENABLED 1
369 :
370 : #if RK5_ENABLED
371 : module procedure setExpGammaCDFDD_RK5
372 : use pm_kind, only: RKC => RK5
373 : #include "pm_distExpGamma@routines.inc.F90"
374 : end procedure
375 : #endif
376 :
377 : #if RK4_ENABLED
378 0 : module procedure setExpGammaCDFDD_RK4
379 : use pm_kind, only: RKC => RK4
380 : #include "pm_distExpGamma@routines.inc.F90"
381 0 : end procedure
382 : #endif
383 :
384 : #if RK3_ENABLED
385 0 : module procedure setExpGammaCDFDD_RK3
386 : use pm_kind, only: RKC => RK3
387 : #include "pm_distExpGamma@routines.inc.F90"
388 0 : end procedure
389 : #endif
390 :
391 : #if RK2_ENABLED
392 0 : module procedure setExpGammaCDFDD_RK2
393 : use pm_kind, only: RKC => RK2
394 : #include "pm_distExpGamma@routines.inc.F90"
395 0 : end procedure
396 : #endif
397 :
398 : #if RK1_ENABLED
399 2 : module procedure setExpGammaCDFDD_RK1
400 : use pm_kind, only: RKC => RK1
401 : #include "pm_distExpGamma@routines.inc.F90"
402 2 : end procedure
403 : #endif
404 :
405 : #undef RK_ENABLED
406 :
407 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
408 :
409 : #undef DD_ENABLED
410 :
411 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
413 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
414 :
415 : #define KD_ENABLED 1
416 :
417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
418 :
419 : #define RK_ENABLED 1
420 :
421 : #if RK5_ENABLED
422 : module procedure setExpGammaCDFKD_RK5
423 : use pm_kind, only: RKC => RK5
424 : #include "pm_distExpGamma@routines.inc.F90"
425 : end procedure
426 : #endif
427 :
428 : #if RK4_ENABLED
429 0 : module procedure setExpGammaCDFKD_RK4
430 : use pm_kind, only: RKC => RK4
431 : #include "pm_distExpGamma@routines.inc.F90"
432 0 : end procedure
433 : #endif
434 :
435 : #if RK3_ENABLED
436 0 : module procedure setExpGammaCDFKD_RK3
437 : use pm_kind, only: RKC => RK3
438 : #include "pm_distExpGamma@routines.inc.F90"
439 0 : end procedure
440 : #endif
441 :
442 : #if RK2_ENABLED
443 0 : module procedure setExpGammaCDFKD_RK2
444 : use pm_kind, only: RKC => RK2
445 : #include "pm_distExpGamma@routines.inc.F90"
446 0 : end procedure
447 : #endif
448 :
449 : #if RK1_ENABLED
450 6025 : module procedure setExpGammaCDFKD_RK1
451 : use pm_kind, only: RKC => RK1
452 : #include "pm_distExpGamma@routines.inc.F90"
453 6025 : end procedure
454 : #endif
455 :
456 : #undef RK_ENABLED
457 :
458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
459 :
460 : #undef KD_ENABLED
461 :
462 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
465 :
466 : #define KS_ENABLED 1
467 :
468 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
469 :
470 : #define RK_ENABLED 1
471 :
472 : #if RK5_ENABLED
473 : module procedure setExpGammaCDFKS_RK5
474 : use pm_kind, only: RKC => RK5
475 : #include "pm_distExpGamma@routines.inc.F90"
476 : end procedure
477 : #endif
478 :
479 : #if RK4_ENABLED
480 0 : module procedure setExpGammaCDFKS_RK4
481 : use pm_kind, only: RKC => RK4
482 : #include "pm_distExpGamma@routines.inc.F90"
483 0 : end procedure
484 : #endif
485 :
486 : #if RK3_ENABLED
487 0 : module procedure setExpGammaCDFKS_RK3
488 : use pm_kind, only: RKC => RK3
489 : #include "pm_distExpGamma@routines.inc.F90"
490 0 : end procedure
491 : #endif
492 :
493 : #if RK2_ENABLED
494 0 : module procedure setExpGammaCDFKS_RK2
495 : use pm_kind, only: RKC => RK2
496 : #include "pm_distExpGamma@routines.inc.F90"
497 0 : end procedure
498 : #endif
499 :
500 : #if RK1_ENABLED
501 6001 : module procedure setExpGammaCDFKS_RK1
502 : use pm_kind, only: RKC => RK1
503 : #include "pm_distExpGamma@routines.inc.F90"
504 6001 : end procedure
505 : #endif
506 :
507 : #undef RK_ENABLED
508 :
509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
510 :
511 : #undef KS_ENABLED
512 :
513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
516 :
517 : #undef setExpGammaCDF_ENABLED
518 :
519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
520 :
521 : #undef CHECK_ASSERTION
522 :
523 : end submodule routines
|
