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_distPois](@ref pm_distPois).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distPois) 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: setGammaIncUpp
40 : use pm_distUnif, only: setUnifRand
41 : implicit none
42 :
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 :
45 : contains
46 :
47 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
48 :
49 : #define getPoisLogPMF_ENABLED 1
50 :
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 :
53 : #define RK_ENABLED 1
54 :
55 : #if RK5_ENABLED
56 : module procedure getPoisLogPMF_RK5
57 : use pm_kind, only: RKC => RK5
58 : #include "pm_distPois@routines.inc.F90"
59 : end procedure
60 : #endif
61 :
62 : #if RK4_ENABLED
63 0 : module procedure getPoisLogPMF_RK4
64 : use pm_kind, only: RKC => RK4
65 : #include "pm_distPois@routines.inc.F90"
66 0 : end procedure
67 : #endif
68 :
69 : #if RK3_ENABLED
70 0 : module procedure getPoisLogPMF_RK3
71 : use pm_kind, only: RKC => RK3
72 : #include "pm_distPois@routines.inc.F90"
73 0 : end procedure
74 : #endif
75 :
76 : #if RK2_ENABLED
77 93 : module procedure getPoisLogPMF_RK2
78 : use pm_kind, only: RKC => RK2
79 : #include "pm_distPois@routines.inc.F90"
80 93 : end procedure
81 : #endif
82 :
83 : #if RK1_ENABLED
84 0 : module procedure getPoisLogPMF_RK1
85 : use pm_kind, only: RKC => RK1
86 : #include "pm_distPois@routines.inc.F90"
87 0 : end procedure
88 : #endif
89 :
90 : #undef RK_ENABLED
91 :
92 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
93 :
94 : #undef getPoisLogPMF_ENABLED
95 :
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 :
98 : #define setPoisLogPMF_ENABLED 1
99 :
100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 :
104 : #define Def_ENABLED 1
105 :
106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
107 :
108 : #define RK_ENABLED 1
109 :
110 : #if RK5_ENABLED
111 : module procedure setPoisLogPMFDef_RK5
112 : use pm_kind, only: RKC => RK5
113 : #include "pm_distPois@routines.inc.F90"
114 : end procedure
115 : #endif
116 :
117 : #if RK4_ENABLED
118 0 : module procedure setPoisLogPMFDef_RK4
119 : use pm_kind, only: RKC => RK4
120 : #include "pm_distPois@routines.inc.F90"
121 0 : end procedure
122 : #endif
123 :
124 : #if RK3_ENABLED
125 0 : module procedure setPoisLogPMFDef_RK3
126 : use pm_kind, only: RKC => RK3
127 : #include "pm_distPois@routines.inc.F90"
128 0 : end procedure
129 : #endif
130 :
131 : #if RK2_ENABLED
132 186 : module procedure setPoisLogPMFDef_RK2
133 : use pm_kind, only: RKC => RK2
134 : #include "pm_distPois@routines.inc.F90"
135 186 : end procedure
136 : #endif
137 :
138 : #if RK1_ENABLED
139 0 : module procedure setPoisLogPMFDef_RK1
140 : use pm_kind, only: RKC => RK1
141 : #include "pm_distPois@routines.inc.F90"
142 0 : end procedure
143 : #endif
144 :
145 : #undef RK_ENABLED
146 :
147 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
148 :
149 : #undef Def_ENABLED
150 :
151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 :
155 : #define Log_ENABLED 1
156 :
157 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
158 :
159 : #define RK_ENABLED 1
160 :
161 : #if RK5_ENABLED
162 : module procedure setPoisLogPMFLog_RK5
163 : use pm_kind, only: RKC => RK5
164 : #include "pm_distPois@routines.inc.F90"
165 : end procedure
166 : #endif
167 :
168 : #if RK4_ENABLED
169 0 : module procedure setPoisLogPMFLog_RK4
170 : use pm_kind, only: RKC => RK4
171 : #include "pm_distPois@routines.inc.F90"
172 0 : end procedure
173 : #endif
174 :
175 : #if RK3_ENABLED
176 0 : module procedure setPoisLogPMFLog_RK3
177 : use pm_kind, only: RKC => RK3
178 : #include "pm_distPois@routines.inc.F90"
179 0 : end procedure
180 : #endif
181 :
182 : #if RK2_ENABLED
183 1 : module procedure setPoisLogPMFLog_RK2
184 : use pm_kind, only: RKC => RK2
185 : #include "pm_distPois@routines.inc.F90"
186 1 : end procedure
187 : #endif
188 :
189 : #if RK1_ENABLED
190 0 : module procedure setPoisLogPMFLog_RK1
191 : use pm_kind, only: RKC => RK1
192 : #include "pm_distPois@routines.inc.F90"
193 0 : end procedure
194 : #endif
195 :
196 : #undef RK_ENABLED
197 :
198 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
199 :
200 : #undef Log_ENABLED
201 :
202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
204 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
205 :
206 : #undef setPoisLogPMF_ENABLED
207 :
208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
209 :
210 : #define getPoisCDF_ENABLED 1
211 :
212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213 :
214 : #define RK_ENABLED 1
215 :
216 : #if RK5_ENABLED
217 : module procedure getPoisCDF_RK5
218 : use pm_kind, only: RKC => RK5
219 : #include "pm_distPois@routines.inc.F90"
220 : end procedure
221 : #endif
222 :
223 : #if RK4_ENABLED
224 0 : module procedure getPoisCDF_RK4
225 : use pm_kind, only: RKC => RK4
226 : #include "pm_distPois@routines.inc.F90"
227 0 : end procedure
228 : #endif
229 :
230 : #if RK3_ENABLED
231 0 : module procedure getPoisCDF_RK3
232 : use pm_kind, only: RKC => RK3
233 : #include "pm_distPois@routines.inc.F90"
234 0 : end procedure
235 : #endif
236 :
237 : #if RK2_ENABLED
238 93 : module procedure getPoisCDF_RK2
239 : use pm_kind, only: RKC => RK2
240 : #include "pm_distPois@routines.inc.F90"
241 93 : end procedure
242 : #endif
243 :
244 : #if RK1_ENABLED
245 0 : module procedure getPoisCDF_RK1
246 : use pm_kind, only: RKC => RK1
247 : #include "pm_distPois@routines.inc.F90"
248 0 : end procedure
249 : #endif
250 :
251 : #undef RK_ENABLED
252 :
253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254 :
255 : #undef getPoisCDF_ENABLED
256 :
257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258 :
259 : #define setPoisCDF_ENABLED 1
260 :
261 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
264 :
265 : #define Log_ENABLED 1
266 :
267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
268 :
269 : #define RK_ENABLED 1
270 :
271 : #if RK5_ENABLED
272 : module procedure setPoisCDFLog_RK5
273 : use pm_kind, only: RKC => RK5
274 : #include "pm_distPois@routines.inc.F90"
275 : end procedure
276 : #endif
277 :
278 : #if RK4_ENABLED
279 0 : module procedure setPoisCDFLog_RK4
280 : use pm_kind, only: RKC => RK4
281 : #include "pm_distPois@routines.inc.F90"
282 0 : end procedure
283 : #endif
284 :
285 : #if RK3_ENABLED
286 0 : module procedure setPoisCDFLog_RK3
287 : use pm_kind, only: RKC => RK3
288 : #include "pm_distPois@routines.inc.F90"
289 0 : end procedure
290 : #endif
291 :
292 : #if RK2_ENABLED
293 186 : module procedure setPoisCDFLog_RK2
294 : use pm_kind, only: RKC => RK2
295 : #include "pm_distPois@routines.inc.F90"
296 186 : end procedure
297 : #endif
298 :
299 : #if RK1_ENABLED
300 0 : module procedure setPoisCDFLog_RK1
301 : use pm_kind, only: RKC => RK1
302 : #include "pm_distPois@routines.inc.F90"
303 0 : end procedure
304 : #endif
305 :
306 : #undef RK_ENABLED
307 :
308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
309 :
310 : #undef Log_ENABLED
311 :
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 :
316 : #undef setPoisCDF_ENABLED
317 :
318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319 :
320 : #define getPoisRand_ENABLED 1
321 :
322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
323 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
325 :
326 : #define RNGD_ENABLED 1
327 :
328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
329 :
330 : #define RK_ENABLED 1
331 :
332 : #if RK5_ENABLED
333 : module procedure getPoisRand_RK5
334 : use pm_kind, only: RKC => RK5
335 : #include "pm_distPois@routines.inc.F90"
336 : end procedure
337 : #endif
338 :
339 : #if RK4_ENABLED
340 0 : module procedure getPoisRand_RK4
341 : use pm_kind, only: RKC => RK4
342 : #include "pm_distPois@routines.inc.F90"
343 0 : end procedure
344 : #endif
345 :
346 : #if RK3_ENABLED
347 0 : module procedure getPoisRand_RK3
348 : use pm_kind, only: RKC => RK3
349 : #include "pm_distPois@routines.inc.F90"
350 0 : end procedure
351 : #endif
352 :
353 : #if RK2_ENABLED
354 0 : module procedure getPoisRand_RK2
355 : use pm_kind, only: RKC => RK2
356 : #include "pm_distPois@routines.inc.F90"
357 0 : end procedure
358 : #endif
359 :
360 : #if RK1_ENABLED
361 20077 : module procedure getPoisRand_RK1
362 : use pm_kind, only: RKC => RK1
363 : #include "pm_distPois@routines.inc.F90"
364 20077 : end procedure
365 : #endif
366 :
367 : #undef RK_ENABLED
368 :
369 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
370 :
371 : #undef RNGD_ENABLED
372 :
373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
374 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
376 :
377 : #undef getPoisRand_ENABLED
378 :
379 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
380 :
381 : #define setPoisRand_ENABLED 1
382 :
383 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386 :
387 : #define Exp_ENABLED 1
388 :
389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392 :
393 : #define D0_ENABLED 1
394 :
395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
398 :
399 : #define RNGD_ENABLED 1
400 :
401 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
402 :
403 : #define RK_ENABLED 1
404 :
405 : #if RK5_ENABLED
406 : module procedure setPoisRandExpRNGD_D0_RK5
407 : use pm_kind, only: RKC => RK5
408 : #include "pm_distPois@routines.inc.F90"
409 : end procedure
410 : #endif
411 :
412 : #if RK4_ENABLED
413 0 : module procedure setPoisRandExpRNGD_D0_RK4
414 : use pm_kind, only: RKC => RK4
415 : #include "pm_distPois@routines.inc.F90"
416 0 : end procedure
417 : #endif
418 :
419 : #if RK3_ENABLED
420 0 : module procedure setPoisRandExpRNGD_D0_RK3
421 : use pm_kind, only: RKC => RK3
422 : #include "pm_distPois@routines.inc.F90"
423 0 : end procedure
424 : #endif
425 :
426 : #if RK2_ENABLED
427 0 : module procedure setPoisRandExpRNGD_D0_RK2
428 : use pm_kind, only: RKC => RK2
429 : #include "pm_distPois@routines.inc.F90"
430 0 : end procedure
431 : #endif
432 :
433 : #if RK1_ENABLED
434 15004 : module procedure setPoisRandExpRNGD_D0_RK1
435 : use pm_kind, only: RKC => RK1
436 : #include "pm_distPois@routines.inc.F90"
437 15004 : end procedure
438 : #endif
439 :
440 : #undef RK_ENABLED
441 :
442 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
443 :
444 : #undef RNGD_ENABLED
445 :
446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449 :
450 : #define RNGF_ENABLED 1
451 :
452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453 :
454 : #define RK_ENABLED 1
455 :
456 : #if RK5_ENABLED
457 : module procedure setPoisRandExpRNGF_D0_RK5
458 : use pm_kind, only: RKC => RK5
459 : #include "pm_distPois@routines.inc.F90"
460 : end procedure
461 : #endif
462 :
463 : #if RK4_ENABLED
464 0 : module procedure setPoisRandExpRNGF_D0_RK4
465 : use pm_kind, only: RKC => RK4
466 : #include "pm_distPois@routines.inc.F90"
467 0 : end procedure
468 : #endif
469 :
470 : #if RK3_ENABLED
471 0 : module procedure setPoisRandExpRNGF_D0_RK3
472 : use pm_kind, only: RKC => RK3
473 : #include "pm_distPois@routines.inc.F90"
474 0 : end procedure
475 : #endif
476 :
477 : #if RK2_ENABLED
478 0 : module procedure setPoisRandExpRNGF_D0_RK2
479 : use pm_kind, only: RKC => RK2
480 : #include "pm_distPois@routines.inc.F90"
481 0 : end procedure
482 : #endif
483 :
484 : #if RK1_ENABLED
485 0 : module procedure setPoisRandExpRNGF_D0_RK1
486 : use pm_kind, only: RKC => RK1
487 : #include "pm_distPois@routines.inc.F90"
488 0 : end procedure
489 : #endif
490 :
491 : #undef RK_ENABLED
492 :
493 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
494 :
495 : #undef RNGF_ENABLED
496 :
497 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
498 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
499 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
500 :
501 : #define RNGX_ENABLED 1
502 :
503 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
504 :
505 : #define RK_ENABLED 1
506 :
507 : #if RK5_ENABLED
508 : module procedure setPoisRandExpRNGX_D0_RK5
509 : use pm_kind, only: RKC => RK5
510 : #include "pm_distPois@routines.inc.F90"
511 : end procedure
512 : #endif
513 :
514 : #if RK4_ENABLED
515 0 : module procedure setPoisRandExpRNGX_D0_RK4
516 : use pm_kind, only: RKC => RK4
517 : #include "pm_distPois@routines.inc.F90"
518 0 : end procedure
519 : #endif
520 :
521 : #if RK3_ENABLED
522 0 : module procedure setPoisRandExpRNGX_D0_RK3
523 : use pm_kind, only: RKC => RK3
524 : #include "pm_distPois@routines.inc.F90"
525 0 : end procedure
526 : #endif
527 :
528 : #if RK2_ENABLED
529 0 : module procedure setPoisRandExpRNGX_D0_RK2
530 : use pm_kind, only: RKC => RK2
531 : #include "pm_distPois@routines.inc.F90"
532 0 : end procedure
533 : #endif
534 :
535 : #if RK1_ENABLED
536 0 : module procedure setPoisRandExpRNGX_D0_RK1
537 : use pm_kind, only: RKC => RK1
538 : #include "pm_distPois@routines.inc.F90"
539 0 : end procedure
540 : #endif
541 :
542 : #undef RK_ENABLED
543 :
544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 :
546 : #undef RNGX_ENABLED
547 :
548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551 :
552 : #undef D0_ENABLED
553 :
554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557 :
558 : #define D1_ENABLED 1
559 :
560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
561 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
563 :
564 : #define RNGD_ENABLED 1
565 :
566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
567 :
568 : #define RK_ENABLED 1
569 :
570 : #if RK5_ENABLED
571 : module procedure setPoisRandExpRNGD_D1_RK5
572 : use pm_kind, only: RKC => RK5
573 : #include "pm_distPois@routines.inc.F90"
574 : end procedure
575 : #endif
576 :
577 : #if RK4_ENABLED
578 0 : module procedure setPoisRandExpRNGD_D1_RK4
579 : use pm_kind, only: RKC => RK4
580 : #include "pm_distPois@routines.inc.F90"
581 0 : end procedure
582 : #endif
583 :
584 : #if RK3_ENABLED
585 0 : module procedure setPoisRandExpRNGD_D1_RK3
586 : use pm_kind, only: RKC => RK3
587 : #include "pm_distPois@routines.inc.F90"
588 0 : end procedure
589 : #endif
590 :
591 : #if RK2_ENABLED
592 0 : module procedure setPoisRandExpRNGD_D1_RK2
593 : use pm_kind, only: RKC => RK2
594 : #include "pm_distPois@routines.inc.F90"
595 0 : end procedure
596 : #endif
597 :
598 : #if RK1_ENABLED
599 4 : module procedure setPoisRandExpRNGD_D1_RK1
600 : use pm_kind, only: RKC => RK1
601 : #include "pm_distPois@routines.inc.F90"
602 4 : end procedure
603 : #endif
604 :
605 : #undef RK_ENABLED
606 :
607 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
608 :
609 : #undef RNGD_ENABLED
610 :
611 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
612 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
613 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
614 :
615 : #define RNGF_ENABLED 1
616 :
617 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
618 :
619 : #define RK_ENABLED 1
620 :
621 : #if RK5_ENABLED
622 : module procedure setPoisRandExpRNGF_D1_RK5
623 : use pm_kind, only: RKC => RK5
624 : #include "pm_distPois@routines.inc.F90"
625 : end procedure
626 : #endif
627 :
628 : #if RK4_ENABLED
629 0 : module procedure setPoisRandExpRNGF_D1_RK4
630 : use pm_kind, only: RKC => RK4
631 : #include "pm_distPois@routines.inc.F90"
632 0 : end procedure
633 : #endif
634 :
635 : #if RK3_ENABLED
636 0 : module procedure setPoisRandExpRNGF_D1_RK3
637 : use pm_kind, only: RKC => RK3
638 : #include "pm_distPois@routines.inc.F90"
639 0 : end procedure
640 : #endif
641 :
642 : #if RK2_ENABLED
643 0 : module procedure setPoisRandExpRNGF_D1_RK2
644 : use pm_kind, only: RKC => RK2
645 : #include "pm_distPois@routines.inc.F90"
646 0 : end procedure
647 : #endif
648 :
649 : #if RK1_ENABLED
650 0 : module procedure setPoisRandExpRNGF_D1_RK1
651 : use pm_kind, only: RKC => RK1
652 : #include "pm_distPois@routines.inc.F90"
653 0 : end procedure
654 : #endif
655 :
656 : #undef RK_ENABLED
657 :
658 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
659 :
660 : #undef RNGF_ENABLED
661 :
662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
665 :
666 : #define RNGX_ENABLED 1
667 :
668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
669 :
670 : #define RK_ENABLED 1
671 :
672 : #if RK5_ENABLED
673 : module procedure setPoisRandExpRNGX_D1_RK5
674 : use pm_kind, only: RKC => RK5
675 : #include "pm_distPois@routines.inc.F90"
676 : end procedure
677 : #endif
678 :
679 : #if RK4_ENABLED
680 0 : module procedure setPoisRandExpRNGX_D1_RK4
681 : use pm_kind, only: RKC => RK4
682 : #include "pm_distPois@routines.inc.F90"
683 0 : end procedure
684 : #endif
685 :
686 : #if RK3_ENABLED
687 0 : module procedure setPoisRandExpRNGX_D1_RK3
688 : use pm_kind, only: RKC => RK3
689 : #include "pm_distPois@routines.inc.F90"
690 0 : end procedure
691 : #endif
692 :
693 : #if RK2_ENABLED
694 0 : module procedure setPoisRandExpRNGX_D1_RK2
695 : use pm_kind, only: RKC => RK2
696 : #include "pm_distPois@routines.inc.F90"
697 0 : end procedure
698 : #endif
699 :
700 : #if RK1_ENABLED
701 1 : module procedure setPoisRandExpRNGX_D1_RK1
702 : use pm_kind, only: RKC => RK1
703 : #include "pm_distPois@routines.inc.F90"
704 1 : end procedure
705 : #endif
706 :
707 : #undef RK_ENABLED
708 :
709 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
710 :
711 : #undef RNGX_ENABLED
712 :
713 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
714 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
716 :
717 : #undef D1_ENABLED
718 :
719 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
720 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
721 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
722 :
723 : #undef Exp_ENABLED
724 :
725 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
726 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
727 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
728 :
729 : #define Rej_ENABLED 1
730 :
731 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
732 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
733 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
734 :
735 : #define D0_ENABLED 1
736 :
737 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
738 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
739 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
740 :
741 : #define RNGD_ENABLED 1
742 :
743 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
744 :
745 : #define RK_ENABLED 1
746 :
747 : #if RK5_ENABLED
748 : module procedure setPoisRandRejRNGD_D0_RK5
749 : use pm_kind, only: RKC => RK5
750 : #include "pm_distPois@routines.inc.F90"
751 : end procedure
752 : #endif
753 :
754 : #if RK4_ENABLED
755 0 : module procedure setPoisRandRejRNGD_D0_RK4
756 : use pm_kind, only: RKC => RK4
757 : #include "pm_distPois@routines.inc.F90"
758 0 : end procedure
759 : #endif
760 :
761 : #if RK3_ENABLED
762 0 : module procedure setPoisRandRejRNGD_D0_RK3
763 : use pm_kind, only: RKC => RK3
764 : #include "pm_distPois@routines.inc.F90"
765 0 : end procedure
766 : #endif
767 :
768 : #if RK2_ENABLED
769 0 : module procedure setPoisRandRejRNGD_D0_RK2
770 : use pm_kind, only: RKC => RK2
771 : #include "pm_distPois@routines.inc.F90"
772 0 : end procedure
773 : #endif
774 :
775 : #if RK1_ENABLED
776 5077 : module procedure setPoisRandRejRNGD_D0_RK1
777 : use pm_kind, only: RKC => RK1
778 : #include "pm_distPois@routines.inc.F90"
779 5077 : end procedure
780 : #endif
781 :
782 : #undef RK_ENABLED
783 :
784 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
785 :
786 : #undef RNGD_ENABLED
787 :
788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
789 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
790 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
791 :
792 : #define RNGF_ENABLED 1
793 :
794 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
795 :
796 : #define RK_ENABLED 1
797 :
798 : #if RK5_ENABLED
799 : module procedure setPoisRandRejRNGF_D0_RK5
800 : use pm_kind, only: RKC => RK5
801 : #include "pm_distPois@routines.inc.F90"
802 : end procedure
803 : #endif
804 :
805 : #if RK4_ENABLED
806 0 : module procedure setPoisRandRejRNGF_D0_RK4
807 : use pm_kind, only: RKC => RK4
808 : #include "pm_distPois@routines.inc.F90"
809 0 : end procedure
810 : #endif
811 :
812 : #if RK3_ENABLED
813 0 : module procedure setPoisRandRejRNGF_D0_RK3
814 : use pm_kind, only: RKC => RK3
815 : #include "pm_distPois@routines.inc.F90"
816 0 : end procedure
817 : #endif
818 :
819 : #if RK2_ENABLED
820 0 : module procedure setPoisRandRejRNGF_D0_RK2
821 : use pm_kind, only: RKC => RK2
822 : #include "pm_distPois@routines.inc.F90"
823 0 : end procedure
824 : #endif
825 :
826 : #if RK1_ENABLED
827 0 : module procedure setPoisRandRejRNGF_D0_RK1
828 : use pm_kind, only: RKC => RK1
829 : #include "pm_distPois@routines.inc.F90"
830 0 : end procedure
831 : #endif
832 :
833 : #undef RK_ENABLED
834 :
835 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
836 :
837 : #undef RNGF_ENABLED
838 :
839 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
840 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
841 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
842 :
843 : #define RNGX_ENABLED 1
844 :
845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
846 :
847 : #define RK_ENABLED 1
848 :
849 : #if RK5_ENABLED
850 : module procedure setPoisRandRejRNGX_D0_RK5
851 : use pm_kind, only: RKC => RK5
852 : #include "pm_distPois@routines.inc.F90"
853 : end procedure
854 : #endif
855 :
856 : #if RK4_ENABLED
857 0 : module procedure setPoisRandRejRNGX_D0_RK4
858 : use pm_kind, only: RKC => RK4
859 : #include "pm_distPois@routines.inc.F90"
860 0 : end procedure
861 : #endif
862 :
863 : #if RK3_ENABLED
864 0 : module procedure setPoisRandRejRNGX_D0_RK3
865 : use pm_kind, only: RKC => RK3
866 : #include "pm_distPois@routines.inc.F90"
867 0 : end procedure
868 : #endif
869 :
870 : #if RK2_ENABLED
871 0 : module procedure setPoisRandRejRNGX_D0_RK2
872 : use pm_kind, only: RKC => RK2
873 : #include "pm_distPois@routines.inc.F90"
874 0 : end procedure
875 : #endif
876 :
877 : #if RK1_ENABLED
878 0 : module procedure setPoisRandRejRNGX_D0_RK1
879 : use pm_kind, only: RKC => RK1
880 : #include "pm_distPois@routines.inc.F90"
881 0 : end procedure
882 : #endif
883 :
884 : #undef RK_ENABLED
885 :
886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
887 :
888 : #undef RNGX_ENABLED
889 :
890 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
891 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
892 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
893 :
894 : #undef D0_ENABLED
895 :
896 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
897 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
898 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
899 :
900 : #define D1_ENABLED 1
901 :
902 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
903 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
904 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
905 :
906 : #define RNGD_ENABLED 1
907 :
908 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
909 :
910 : #define RK_ENABLED 1
911 :
912 : #if RK5_ENABLED
913 : module procedure setPoisRandRejRNGD_D1_RK5
914 : use pm_kind, only: RKC => RK5
915 : #include "pm_distPois@routines.inc.F90"
916 : end procedure
917 : #endif
918 :
919 : #if RK4_ENABLED
920 0 : module procedure setPoisRandRejRNGD_D1_RK4
921 : use pm_kind, only: RKC => RK4
922 : #include "pm_distPois@routines.inc.F90"
923 0 : end procedure
924 : #endif
925 :
926 : #if RK3_ENABLED
927 0 : module procedure setPoisRandRejRNGD_D1_RK3
928 : use pm_kind, only: RKC => RK3
929 : #include "pm_distPois@routines.inc.F90"
930 0 : end procedure
931 : #endif
932 :
933 : #if RK2_ENABLED
934 0 : module procedure setPoisRandRejRNGD_D1_RK2
935 : use pm_kind, only: RKC => RK2
936 : #include "pm_distPois@routines.inc.F90"
937 0 : end procedure
938 : #endif
939 :
940 : #if RK1_ENABLED
941 1 : module procedure setPoisRandRejRNGD_D1_RK1
942 : use pm_kind, only: RKC => RK1
943 : #include "pm_distPois@routines.inc.F90"
944 1 : end procedure
945 : #endif
946 :
947 : #undef RK_ENABLED
948 :
949 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
950 :
951 : #undef RNGD_ENABLED
952 :
953 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
954 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
955 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
956 :
957 : #define RNGF_ENABLED 1
958 :
959 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
960 :
961 : #define RK_ENABLED 1
962 :
963 : #if RK5_ENABLED
964 : module procedure setPoisRandRejRNGF_D1_RK5
965 : use pm_kind, only: RKC => RK5
966 : #include "pm_distPois@routines.inc.F90"
967 : end procedure
968 : #endif
969 :
970 : #if RK4_ENABLED
971 0 : module procedure setPoisRandRejRNGF_D1_RK4
972 : use pm_kind, only: RKC => RK4
973 : #include "pm_distPois@routines.inc.F90"
974 0 : end procedure
975 : #endif
976 :
977 : #if RK3_ENABLED
978 0 : module procedure setPoisRandRejRNGF_D1_RK3
979 : use pm_kind, only: RKC => RK3
980 : #include "pm_distPois@routines.inc.F90"
981 0 : end procedure
982 : #endif
983 :
984 : #if RK2_ENABLED
985 0 : module procedure setPoisRandRejRNGF_D1_RK2
986 : use pm_kind, only: RKC => RK2
987 : #include "pm_distPois@routines.inc.F90"
988 0 : end procedure
989 : #endif
990 :
991 : #if RK1_ENABLED
992 0 : module procedure setPoisRandRejRNGF_D1_RK1
993 : use pm_kind, only: RKC => RK1
994 : #include "pm_distPois@routines.inc.F90"
995 0 : end procedure
996 : #endif
997 :
998 : #undef RK_ENABLED
999 :
1000 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1001 :
1002 : #undef RNGF_ENABLED
1003 :
1004 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1005 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1007 :
1008 : #define RNGX_ENABLED 1
1009 :
1010 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1011 :
1012 : #define RK_ENABLED 1
1013 :
1014 : #if RK5_ENABLED
1015 : module procedure setPoisRandRejRNGX_D1_RK5
1016 : use pm_kind, only: RKC => RK5
1017 : #include "pm_distPois@routines.inc.F90"
1018 : end procedure
1019 : #endif
1020 :
1021 : #if RK4_ENABLED
1022 0 : module procedure setPoisRandRejRNGX_D1_RK4
1023 : use pm_kind, only: RKC => RK4
1024 : #include "pm_distPois@routines.inc.F90"
1025 0 : end procedure
1026 : #endif
1027 :
1028 : #if RK3_ENABLED
1029 0 : module procedure setPoisRandRejRNGX_D1_RK3
1030 : use pm_kind, only: RKC => RK3
1031 : #include "pm_distPois@routines.inc.F90"
1032 0 : end procedure
1033 : #endif
1034 :
1035 : #if RK2_ENABLED
1036 0 : module procedure setPoisRandRejRNGX_D1_RK2
1037 : use pm_kind, only: RKC => RK2
1038 : #include "pm_distPois@routines.inc.F90"
1039 0 : end procedure
1040 : #endif
1041 :
1042 : #if RK1_ENABLED
1043 0 : module procedure setPoisRandRejRNGX_D1_RK1
1044 : use pm_kind, only: RKC => RK1
1045 : #include "pm_distPois@routines.inc.F90"
1046 0 : end procedure
1047 : #endif
1048 :
1049 : #undef RK_ENABLED
1050 :
1051 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1052 :
1053 : #undef RNGX_ENABLED
1054 :
1055 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1056 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1058 :
1059 : #undef D1_ENABLED
1060 :
1061 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1062 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1063 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1064 :
1065 : #undef Rej_ENABLED
1066 :
1067 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1068 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1069 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1070 :
1071 : #undef setPoisRand_ENABLED
1072 :
1073 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1074 :
1075 : #undef CHECK_ASSERTION
1076 :
1077 : end submodule routines
|
