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_distNegExp](@ref pm_distNegExp).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distNegExp) 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 : implicit none
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : contains
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : #define getNegExpLogPDF_ENABLED 1
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 :
53 : #define XMI_ENABLED 1
54 :
55 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
56 :
57 : #define RK_ENABLED 1
58 :
59 : #if RK5_ENABLED
60 : module procedure getNegExpLogPDFXMI_RK5
61 : use pm_kind, only: RKC => RK5
62 : #include "pm_distNegExp@routines.inc.F90"
63 : end procedure
64 : #endif
65 :
66 : #if RK4_ENABLED
67 0 : module procedure getNegExpLogPDFXMI_RK4
68 : use pm_kind, only: RKC => RK4
69 : #include "pm_distNegExp@routines.inc.F90"
70 0 : end procedure
71 : #endif
72 :
73 : #if RK3_ENABLED
74 0 : module procedure getNegExpLogPDFXMI_RK3
75 : use pm_kind, only: RKC => RK3
76 : #include "pm_distNegExp@routines.inc.F90"
77 0 : end procedure
78 : #endif
79 :
80 : #if RK2_ENABLED
81 0 : module procedure getNegExpLogPDFXMI_RK2
82 : use pm_kind, only: RKC => RK2
83 : #include "pm_distNegExp@routines.inc.F90"
84 0 : end procedure
85 : #endif
86 :
87 : #if RK1_ENABLED
88 2016 : module procedure getNegExpLogPDFXMI_RK1
89 : use pm_kind, only: RKC => RK1
90 : #include "pm_distNegExp@routines.inc.F90"
91 2016 : end procedure
92 : #endif
93 :
94 : #undef RK_ENABLED
95 :
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 :
98 : #undef XMI_ENABLED
99 :
100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 :
104 : #undef getNegExpLogPDF_ENABLED
105 :
106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
107 :
108 : #define setNegExpLogPDF_ENABLED 1
109 :
110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
112 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
113 :
114 : #define DDD_ENABLED 1
115 :
116 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
117 :
118 : #define RK_ENABLED 1
119 :
120 : #if RK5_ENABLED
121 : module procedure setNegExpLogPDFDDD_RK5
122 : use pm_kind, only: RKC => RK5
123 : #include "pm_distNegExp@routines.inc.F90"
124 : end procedure
125 : #endif
126 :
127 : #if RK4_ENABLED
128 0 : module procedure setNegExpLogPDFDDD_RK4
129 : use pm_kind, only: RKC => RK4
130 : #include "pm_distNegExp@routines.inc.F90"
131 0 : end procedure
132 : #endif
133 :
134 : #if RK3_ENABLED
135 0 : module procedure setNegExpLogPDFDDD_RK3
136 : use pm_kind, only: RKC => RK3
137 : #include "pm_distNegExp@routines.inc.F90"
138 0 : end procedure
139 : #endif
140 :
141 : #if RK2_ENABLED
142 0 : module procedure setNegExpLogPDFDDD_RK2
143 : use pm_kind, only: RKC => RK2
144 : #include "pm_distNegExp@routines.inc.F90"
145 0 : end procedure
146 : #endif
147 :
148 : #if RK1_ENABLED
149 8 : module procedure setNegExpLogPDFDDD_RK1
150 : use pm_kind, only: RKC => RK1
151 : #include "pm_distNegExp@routines.inc.F90"
152 8 : end procedure
153 : #endif
154 :
155 : #undef RK_ENABLED
156 :
157 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
158 :
159 : #undef DDD_ENABLED
160 :
161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
163 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
164 :
165 : #define MDD_ENABLED 1
166 :
167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
168 :
169 : #define RK_ENABLED 1
170 :
171 : #if RK5_ENABLED
172 : module procedure setNegExpLogPDFXMDD_RK5
173 : use pm_kind, only: RKC => RK5
174 : #include "pm_distNegExp@routines.inc.F90"
175 : end procedure
176 : #endif
177 :
178 : #if RK4_ENABLED
179 0 : module procedure setNegExpLogPDFXMDD_RK4
180 : use pm_kind, only: RKC => RK4
181 : #include "pm_distNegExp@routines.inc.F90"
182 0 : end procedure
183 : #endif
184 :
185 : #if RK3_ENABLED
186 0 : module procedure setNegExpLogPDFXMDD_RK3
187 : use pm_kind, only: RKC => RK3
188 : #include "pm_distNegExp@routines.inc.F90"
189 0 : end procedure
190 : #endif
191 :
192 : #if RK2_ENABLED
193 0 : module procedure setNegExpLogPDFXMDD_RK2
194 : use pm_kind, only: RKC => RK2
195 : #include "pm_distNegExp@routines.inc.F90"
196 0 : end procedure
197 : #endif
198 :
199 : #if RK1_ENABLED
200 8 : module procedure setNegExpLogPDFXMDD_RK1
201 : use pm_kind, only: RKC => RK1
202 : #include "pm_distNegExp@routines.inc.F90"
203 8 : end procedure
204 : #endif
205 :
206 : #undef RK_ENABLED
207 :
208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
209 :
210 : #undef MDD_ENABLED
211 :
212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
215 :
216 : #define DIL_ENABLED 1
217 :
218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
219 :
220 : #define RK_ENABLED 1
221 :
222 : #if RK5_ENABLED
223 : module procedure setNegExpLogPDFDIL_RK5
224 : use pm_kind, only: RKC => RK5
225 : #include "pm_distNegExp@routines.inc.F90"
226 : end procedure
227 : #endif
228 :
229 : #if RK4_ENABLED
230 0 : module procedure setNegExpLogPDFDIL_RK4
231 : use pm_kind, only: RKC => RK4
232 : #include "pm_distNegExp@routines.inc.F90"
233 0 : end procedure
234 : #endif
235 :
236 : #if RK3_ENABLED
237 0 : module procedure setNegExpLogPDFDIL_RK3
238 : use pm_kind, only: RKC => RK3
239 : #include "pm_distNegExp@routines.inc.F90"
240 0 : end procedure
241 : #endif
242 :
243 : #if RK2_ENABLED
244 0 : module procedure setNegExpLogPDFDIL_RK2
245 : use pm_kind, only: RKC => RK2
246 : #include "pm_distNegExp@routines.inc.F90"
247 0 : end procedure
248 : #endif
249 :
250 : #if RK1_ENABLED
251 8 : module procedure setNegExpLogPDFDIL_RK1
252 : use pm_kind, only: RKC => RK1
253 : #include "pm_distNegExp@routines.inc.F90"
254 8 : end procedure
255 : #endif
256 :
257 : #undef RK_ENABLED
258 :
259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260 :
261 : #undef DIL_ENABLED
262 :
263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
266 :
267 : #define MIL_ENABLED 1
268 :
269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
270 :
271 : #define RK_ENABLED 1
272 :
273 : #if RK5_ENABLED
274 : module procedure setNegExpLogPDFMIL_RK5
275 : use pm_kind, only: RKC => RK5
276 : #include "pm_distNegExp@routines.inc.F90"
277 : end procedure
278 : #endif
279 :
280 : #if RK4_ENABLED
281 0 : module procedure setNegExpLogPDFMIL_RK4
282 : use pm_kind, only: RKC => RK4
283 : #include "pm_distNegExp@routines.inc.F90"
284 0 : end procedure
285 : #endif
286 :
287 : #if RK3_ENABLED
288 0 : module procedure setNegExpLogPDFMIL_RK3
289 : use pm_kind, only: RKC => RK3
290 : #include "pm_distNegExp@routines.inc.F90"
291 0 : end procedure
292 : #endif
293 :
294 : #if RK2_ENABLED
295 0 : module procedure setNegExpLogPDFMIL_RK2
296 : use pm_kind, only: RKC => RK2
297 : #include "pm_distNegExp@routines.inc.F90"
298 0 : end procedure
299 : #endif
300 :
301 : #if RK1_ENABLED
302 4008 : module procedure setNegExpLogPDFMIL_RK1
303 : use pm_kind, only: RKC => RK1
304 : #include "pm_distNegExp@routines.inc.F90"
305 4008 : end procedure
306 : #endif
307 :
308 : #undef RK_ENABLED
309 :
310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311 :
312 : #undef MIL_ENABLED
313 :
314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 :
318 : #undef setNegExpLogPDF_ENABLED
319 :
320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
321 :
322 : #define getNegExpCDF_ENABLED 1
323 :
324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
325 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
326 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
327 :
328 : #define XMI_ENABLED 1
329 :
330 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331 :
332 : #define RK_ENABLED 1
333 :
334 : #if RK5_ENABLED
335 : module procedure getNegExpCDFXMI_RK5
336 : use pm_kind, only: RKC => RK5
337 : #include "pm_distNegExp@routines.inc.F90"
338 : end procedure
339 : #endif
340 :
341 : #if RK4_ENABLED
342 0 : module procedure getNegExpCDFXMI_RK4
343 : use pm_kind, only: RKC => RK4
344 : #include "pm_distNegExp@routines.inc.F90"
345 0 : end procedure
346 : #endif
347 :
348 : #if RK3_ENABLED
349 0 : module procedure getNegExpCDFXMI_RK3
350 : use pm_kind, only: RKC => RK3
351 : #include "pm_distNegExp@routines.inc.F90"
352 0 : end procedure
353 : #endif
354 :
355 : #if RK2_ENABLED
356 0 : module procedure getNegExpCDFXMI_RK2
357 : use pm_kind, only: RKC => RK2
358 : #include "pm_distNegExp@routines.inc.F90"
359 0 : end procedure
360 : #endif
361 :
362 : #if RK1_ENABLED
363 2016 : module procedure getNegExpCDFXMI_RK1
364 : use pm_kind, only: RKC => RK1
365 : #include "pm_distNegExp@routines.inc.F90"
366 2016 : end procedure
367 : #endif
368 :
369 : #undef RK_ENABLED
370 :
371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
372 :
373 : #undef XMI_ENABLED
374 :
375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
376 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
378 :
379 : #undef getNegExpCDF_ENABLED
380 :
381 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
382 :
383 : #define setNegExpCDF_ENABLED 1
384 :
385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
388 :
389 : #define XDD_ENABLED 1
390 :
391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392 :
393 : #define RK_ENABLED 1
394 :
395 : #if RK5_ENABLED
396 : module procedure setNegExpCDFXDD_RK5
397 : use pm_kind, only: RKC => RK5
398 : #include "pm_distNegExp@routines.inc.F90"
399 : end procedure
400 : #endif
401 :
402 : #if RK4_ENABLED
403 0 : module procedure setNegExpCDFXDD_RK4
404 : use pm_kind, only: RKC => RK4
405 : #include "pm_distNegExp@routines.inc.F90"
406 0 : end procedure
407 : #endif
408 :
409 : #if RK3_ENABLED
410 0 : module procedure setNegExpCDFXDD_RK3
411 : use pm_kind, only: RKC => RK3
412 : #include "pm_distNegExp@routines.inc.F90"
413 0 : end procedure
414 : #endif
415 :
416 : #if RK2_ENABLED
417 0 : module procedure setNegExpCDFXDD_RK2
418 : use pm_kind, only: RKC => RK2
419 : #include "pm_distNegExp@routines.inc.F90"
420 0 : end procedure
421 : #endif
422 :
423 : #if RK1_ENABLED
424 12 : module procedure setNegExpCDFXDD_RK1
425 : use pm_kind, only: RKC => RK1
426 : #include "pm_distNegExp@routines.inc.F90"
427 12 : end procedure
428 : #endif
429 :
430 : #undef RK_ENABLED
431 :
432 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
433 :
434 : #undef XDD_ENABLED
435 :
436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
439 :
440 : #define XDI_ENABLED 1
441 :
442 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
443 :
444 : #define RK_ENABLED 1
445 :
446 : #if RK5_ENABLED
447 : module procedure setNegExpCDFXDI_RK5
448 : use pm_kind, only: RKC => RK5
449 : #include "pm_distNegExp@routines.inc.F90"
450 : end procedure
451 : #endif
452 :
453 : #if RK4_ENABLED
454 0 : module procedure setNegExpCDFXDI_RK4
455 : use pm_kind, only: RKC => RK4
456 : #include "pm_distNegExp@routines.inc.F90"
457 0 : end procedure
458 : #endif
459 :
460 : #if RK3_ENABLED
461 0 : module procedure setNegExpCDFXDI_RK3
462 : use pm_kind, only: RKC => RK3
463 : #include "pm_distNegExp@routines.inc.F90"
464 0 : end procedure
465 : #endif
466 :
467 : #if RK2_ENABLED
468 0 : module procedure setNegExpCDFXDI_RK2
469 : use pm_kind, only: RKC => RK2
470 : #include "pm_distNegExp@routines.inc.F90"
471 0 : end procedure
472 : #endif
473 :
474 : #if RK1_ENABLED
475 8 : module procedure setNegExpCDFXDI_RK1
476 : use pm_kind, only: RKC => RK1
477 : #include "pm_distNegExp@routines.inc.F90"
478 8 : end procedure
479 : #endif
480 :
481 : #undef RK_ENABLED
482 :
483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
484 :
485 : #undef XDI_ENABLED
486 :
487 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
490 :
491 : #define XMI_ENABLED 1
492 :
493 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
494 :
495 : #define RK_ENABLED 1
496 :
497 : #if RK5_ENABLED
498 : module procedure setNegExpCDFXMI_RK5
499 : use pm_kind, only: RKC => RK5
500 : #include "pm_distNegExp@routines.inc.F90"
501 : end procedure
502 : #endif
503 :
504 : #if RK4_ENABLED
505 0 : module procedure setNegExpCDFXMI_RK4
506 : use pm_kind, only: RKC => RK4
507 : #include "pm_distNegExp@routines.inc.F90"
508 0 : end procedure
509 : #endif
510 :
511 : #if RK3_ENABLED
512 0 : module procedure setNegExpCDFXMI_RK3
513 : use pm_kind, only: RKC => RK3
514 : #include "pm_distNegExp@routines.inc.F90"
515 0 : end procedure
516 : #endif
517 :
518 : #if RK2_ENABLED
519 0 : module procedure setNegExpCDFXMI_RK2
520 : use pm_kind, only: RKC => RK2
521 : #include "pm_distNegExp@routines.inc.F90"
522 0 : end procedure
523 : #endif
524 :
525 : #if RK1_ENABLED
526 4008 : module procedure setNegExpCDFXMI_RK1
527 : use pm_kind, only: RKC => RK1
528 : #include "pm_distNegExp@routines.inc.F90"
529 4008 : end procedure
530 : #endif
531 :
532 : #undef RK_ENABLED
533 :
534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
535 :
536 : #undef XMI_ENABLED
537 :
538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541 :
542 : #undef setNegExpCDF_ENABLED
543 :
544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 :
546 : #define getNegExpRand_ENABLED 1
547 :
548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551 :
552 : #define SM_ENABLED 1
553 :
554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555 :
556 : #define RK_ENABLED 1
557 :
558 : #if RK5_ENABLED
559 : module procedure getNegExpRandSM_RK5
560 : use pm_kind, only: RKC => RK5
561 : #include "pm_distNegExp@routines.inc.F90"
562 : end procedure
563 : #endif
564 :
565 : #if RK4_ENABLED
566 12000 : module procedure getNegExpRandSM_RK4
567 : use pm_kind, only: RKC => RK4
568 : #include "pm_distNegExp@routines.inc.F90"
569 12000 : end procedure
570 : #endif
571 :
572 : #if RK3_ENABLED
573 12000 : module procedure getNegExpRandSM_RK3
574 : use pm_kind, only: RKC => RK3
575 : #include "pm_distNegExp@routines.inc.F90"
576 12000 : end procedure
577 : #endif
578 :
579 : #if RK2_ENABLED
580 12000 : module procedure getNegExpRandSM_RK2
581 : use pm_kind, only: RKC => RK2
582 : #include "pm_distNegExp@routines.inc.F90"
583 12000 : end procedure
584 : #endif
585 :
586 : #if RK1_ENABLED
587 44062 : module procedure getNegExpRandSM_RK1
588 : use pm_kind, only: RKC => RK1
589 : #include "pm_distNegExp@routines.inc.F90"
590 44062 : end procedure
591 : #endif
592 :
593 : #undef RK_ENABLED
594 :
595 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
596 :
597 : #undef SM_ENABLED
598 :
599 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
600 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
601 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
602 :
603 : #undef getNegExpRand_ENABLED
604 :
605 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
606 :
607 : #define setNegExpRand_ENABLED 1
608 :
609 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
610 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
611 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
612 :
613 : #define UDD_ENABLED 1
614 :
615 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
616 :
617 : #define RK_ENABLED 1
618 :
619 : #if RK5_ENABLED
620 : module procedure setNegExpRandUDD_RK5
621 : use pm_kind, only: RKC => RK5
622 : #include "pm_distNegExp@routines.inc.F90"
623 : end procedure
624 : #endif
625 :
626 : #if RK4_ENABLED
627 0 : module procedure setNegExpRandUDD_RK4
628 : use pm_kind, only: RKC => RK4
629 : #include "pm_distNegExp@routines.inc.F90"
630 0 : end procedure
631 : #endif
632 :
633 : #if RK3_ENABLED
634 0 : module procedure setNegExpRandUDD_RK3
635 : use pm_kind, only: RKC => RK3
636 : #include "pm_distNegExp@routines.inc.F90"
637 0 : end procedure
638 : #endif
639 :
640 : #if RK2_ENABLED
641 0 : module procedure setNegExpRandUDD_RK2
642 : use pm_kind, only: RKC => RK2
643 : #include "pm_distNegExp@routines.inc.F90"
644 0 : end procedure
645 : #endif
646 :
647 : #if RK1_ENABLED
648 31 : module procedure setNegExpRandUDD_RK1
649 : use pm_kind, only: RKC => RK1
650 : #include "pm_distNegExp@routines.inc.F90"
651 31 : end procedure
652 : #endif
653 :
654 : #undef RK_ENABLED
655 :
656 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
657 :
658 : #undef UDD_ENABLED
659 :
660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
661 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663 :
664 : #define USD_ENABLED 1
665 :
666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
667 :
668 : #define RK_ENABLED 1
669 :
670 : #if RK5_ENABLED
671 : module procedure setNegExpRandUSD_RK5
672 : use pm_kind, only: RKC => RK5
673 : #include "pm_distNegExp@routines.inc.F90"
674 : end procedure
675 : #endif
676 :
677 : #if RK4_ENABLED
678 12000 : module procedure setNegExpRandUSD_RK4
679 : use pm_kind, only: RKC => RK4
680 : #include "pm_distNegExp@routines.inc.F90"
681 12000 : end procedure
682 : #endif
683 :
684 : #if RK3_ENABLED
685 12000 : module procedure setNegExpRandUSD_RK3
686 : use pm_kind, only: RKC => RK3
687 : #include "pm_distNegExp@routines.inc.F90"
688 12000 : end procedure
689 : #endif
690 :
691 : #if RK2_ENABLED
692 12000 : module procedure setNegExpRandUSD_RK2
693 : use pm_kind, only: RKC => RK2
694 : #include "pm_distNegExp@routines.inc.F90"
695 12000 : end procedure
696 : #endif
697 :
698 : #if RK1_ENABLED
699 44093 : module procedure setNegExpRandUSD_RK1
700 : use pm_kind, only: RKC => RK1
701 : #include "pm_distNegExp@routines.inc.F90"
702 44093 : end procedure
703 : #endif
704 :
705 : #undef RK_ENABLED
706 :
707 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
708 :
709 : #undef USD_ENABLED
710 :
711 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
712 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
713 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
714 :
715 : #define USM_ENABLED 1
716 :
717 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
718 :
719 : #define RK_ENABLED 1
720 :
721 : #if RK5_ENABLED
722 : module procedure setNegExpRandUSM_RK5
723 : use pm_kind, only: RKC => RK5
724 : #include "pm_distNegExp@routines.inc.F90"
725 : end procedure
726 : #endif
727 :
728 : #if RK4_ENABLED
729 0 : module procedure setNegExpRandUSM_RK4
730 : use pm_kind, only: RKC => RK4
731 : #include "pm_distNegExp@routines.inc.F90"
732 0 : end procedure
733 : #endif
734 :
735 : #if RK3_ENABLED
736 0 : module procedure setNegExpRandUSM_RK3
737 : use pm_kind, only: RKC => RK3
738 : #include "pm_distNegExp@routines.inc.F90"
739 0 : end procedure
740 : #endif
741 :
742 : #if RK2_ENABLED
743 0 : module procedure setNegExpRandUSM_RK2
744 : use pm_kind, only: RKC => RK2
745 : #include "pm_distNegExp@routines.inc.F90"
746 0 : end procedure
747 : #endif
748 :
749 : #if RK1_ENABLED
750 2000 : module procedure setNegExpRandUSM_RK1
751 : use pm_kind, only: RKC => RK1
752 : #include "pm_distNegExp@routines.inc.F90"
753 2000 : end procedure
754 : #endif
755 :
756 : #undef RK_ENABLED
757 :
758 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
759 :
760 : #undef USM_ENABLED
761 :
762 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
763 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
764 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
765 :
766 : #undef setNegExpRand_ENABLED
767 :
768 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
769 :
770 : #undef CHECK_ASSERTION
771 :
772 : end submodule routines
|
