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_mathCumSum](@ref pm_mathCumSum).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 12:20 PM, September 22, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_mathCumPropExp) 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_arrayReverse, only: setReversed
40 : implicit none
41 :
42 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 :
44 : contains
45 :
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 :
48 : #define getCumPropExp_ENABLED 1
49 :
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 :
54 : #define Def_ENABLED 1
55 :
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 :
58 : #define RK_ENABLED 1
59 :
60 : #if RK5_ENABLED
61 : module procedure getCumPropExpDef_RK5
62 : use pm_kind, only: RKC => RK5
63 : #include "pm_mathCumPropExp@routines.inc.F90"
64 : end procedure
65 : #endif
66 :
67 : #if RK4_ENABLED
68 446 : module procedure getCumPropExpDef_RK4
69 : use pm_kind, only: RKC => RK4
70 : #include "pm_mathCumPropExp@routines.inc.F90"
71 446 : end procedure
72 : #endif
73 :
74 : #if RK3_ENABLED
75 441 : module procedure getCumPropExpDef_RK3
76 : use pm_kind, only: RKC => RK3
77 : #include "pm_mathCumPropExp@routines.inc.F90"
78 441 : end procedure
79 : #endif
80 :
81 : #if RK2_ENABLED
82 444 : module procedure getCumPropExpDef_RK2
83 : use pm_kind, only: RKC => RK2
84 : #include "pm_mathCumPropExp@routines.inc.F90"
85 444 : end procedure
86 : #endif
87 :
88 : #if RK1_ENABLED
89 466 : module procedure getCumPropExpDef_RK1
90 : use pm_kind, only: RKC => RK1
91 : #include "pm_mathCumPropExp@routines.inc.F90"
92 466 : end procedure
93 : #endif
94 :
95 : #undef RK_ENABLED
96 :
97 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98 :
99 : #undef Def_ENABLED
100 :
101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
104 :
105 : #define Sel_ENABLED 1
106 :
107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 :
109 : #define RK_ENABLED 1
110 :
111 : #if RK5_ENABLED
112 : module procedure getCumPropExpSel_RK5
113 : use pm_kind, only: RKC => RK5
114 : #include "pm_mathCumPropExp@routines.inc.F90"
115 : end procedure
116 : #endif
117 :
118 : #if RK4_ENABLED
119 523 : module procedure getCumPropExpSel_RK4
120 : use pm_kind, only: RKC => RK4
121 : #include "pm_mathCumPropExp@routines.inc.F90"
122 523 : end procedure
123 : #endif
124 :
125 : #if RK3_ENABLED
126 515 : module procedure getCumPropExpSel_RK3
127 : use pm_kind, only: RKC => RK3
128 : #include "pm_mathCumPropExp@routines.inc.F90"
129 515 : end procedure
130 : #endif
131 :
132 : #if RK2_ENABLED
133 518 : module procedure getCumPropExpSel_RK2
134 : use pm_kind, only: RKC => RK2
135 : #include "pm_mathCumPropExp@routines.inc.F90"
136 518 : end procedure
137 : #endif
138 :
139 : #if RK1_ENABLED
140 531 : module procedure getCumPropExpSel_RK1
141 : use pm_kind, only: RKC => RK1
142 : #include "pm_mathCumPropExp@routines.inc.F90"
143 531 : end procedure
144 : #endif
145 :
146 : #undef RK_ENABLED
147 :
148 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
149 :
150 : #undef Sel_ENABLED
151 :
152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 :
156 : #define Seq_ENABLED 1
157 :
158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
159 :
160 : #define RK_ENABLED 1
161 :
162 : #if RK5_ENABLED
163 : module procedure getCumPropExpSeq_RK5
164 : use pm_kind, only: RKC => RK5
165 : #include "pm_mathCumPropExp@routines.inc.F90"
166 : end procedure
167 : #endif
168 :
169 : #if RK4_ENABLED
170 523 : module procedure getCumPropExpSeq_RK4
171 : use pm_kind, only: RKC => RK4
172 : #include "pm_mathCumPropExp@routines.inc.F90"
173 523 : end procedure
174 : #endif
175 :
176 : #if RK3_ENABLED
177 526 : module procedure getCumPropExpSeq_RK3
178 : use pm_kind, only: RKC => RK3
179 : #include "pm_mathCumPropExp@routines.inc.F90"
180 526 : end procedure
181 : #endif
182 :
183 : #if RK2_ENABLED
184 526 : module procedure getCumPropExpSeq_RK2
185 : use pm_kind, only: RKC => RK2
186 : #include "pm_mathCumPropExp@routines.inc.F90"
187 526 : end procedure
188 : #endif
189 :
190 : #if RK1_ENABLED
191 533 : module procedure getCumPropExpSeq_RK1
192 : use pm_kind, only: RKC => RK1
193 : #include "pm_mathCumPropExp@routines.inc.F90"
194 533 : end procedure
195 : #endif
196 :
197 : #undef RK_ENABLED
198 :
199 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
200 :
201 : #undef Seq_ENABLED
202 :
203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
204 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
205 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
206 :
207 : #undef getCumPropExp_ENABLED
208 :
209 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
210 : !
211 : !#define getCumPropExp_ENABLED 1
212 : !
213 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
215 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
216 : !
217 : !#define Def_ENABLED 1
218 : !
219 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
220 : !
221 : !#define RK_ENABLED 1
222 : !
223 : !#if RK5_ENABLED
224 : ! module procedure getCumPropExpDef_RK5
225 : ! use pm_kind, only: RKC => RK5
226 : !#include "pm_mathCumPropExp@routines.inc.F90"
227 : ! end procedure
228 : !#endif
229 : !
230 : !#if RK4_ENABLED
231 : ! module procedure getCumPropExpDef_RK4
232 : ! use pm_kind, only: RKC => RK4
233 : !#include "pm_mathCumPropExp@routines.inc.F90"
234 : ! end procedure
235 : !#endif
236 : !
237 : !#if RK3_ENABLED
238 : ! module procedure getCumPropExpDef_RK3
239 : ! use pm_kind, only: RKC => RK3
240 : !#include "pm_mathCumPropExp@routines.inc.F90"
241 : ! end procedure
242 : !#endif
243 : !
244 : !#if RK2_ENABLED
245 : ! module procedure getCumPropExpDef_RK2
246 : ! use pm_kind, only: RKC => RK2
247 : !#include "pm_mathCumPropExp@routines.inc.F90"
248 : ! end procedure
249 : !#endif
250 : !
251 : !#if RK1_ENABLED
252 : ! module procedure getCumPropExpDef_RK1
253 : ! use pm_kind, only: RKC => RK1
254 : !#include "pm_mathCumPropExp@routines.inc.F90"
255 : ! end procedure
256 : !#endif
257 : !
258 : !#undef RK_ENABLED
259 : !
260 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
261 : !
262 : !#undef Def_ENABLED
263 : !
264 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
266 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
267 : !
268 : !#define Sel_ENABLED 1
269 : !
270 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271 : !
272 : !#define RK_ENABLED 1
273 : !
274 : !#if RK5_ENABLED
275 : ! module procedure getCumPropExpSel_RK5
276 : ! use pm_kind, only: RKC => RK5
277 : !#include "pm_mathCumPropExp@routines.inc.F90"
278 : ! end procedure
279 : !#endif
280 : !
281 : !#if RK4_ENABLED
282 : ! module procedure getCumPropExpSel_RK4
283 : ! use pm_kind, only: RKC => RK4
284 : !#include "pm_mathCumPropExp@routines.inc.F90"
285 : ! end procedure
286 : !#endif
287 : !
288 : !#if RK3_ENABLED
289 : ! module procedure getCumPropExpSel_RK3
290 : ! use pm_kind, only: RKC => RK3
291 : !#include "pm_mathCumPropExp@routines.inc.F90"
292 : ! end procedure
293 : !#endif
294 : !
295 : !#if RK2_ENABLED
296 : ! module procedure getCumPropExpSel_RK2
297 : ! use pm_kind, only: RKC => RK2
298 : !#include "pm_mathCumPropExp@routines.inc.F90"
299 : ! end procedure
300 : !#endif
301 : !
302 : !#if RK1_ENABLED
303 : ! module procedure getCumPropExpSel_RK1
304 : ! use pm_kind, only: RKC => RK1
305 : !#include "pm_mathCumPropExp@routines.inc.F90"
306 : ! end procedure
307 : !#endif
308 : !
309 : !#undef RK_ENABLED
310 : !
311 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 : !
313 : !#undef Sel_ENABLED
314 : !
315 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
316 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
318 : !
319 : !#define Seq_ENABLED 1
320 : !
321 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
322 : !
323 : !#define RK_ENABLED 1
324 : !
325 : !#if RK5_ENABLED
326 : ! module procedure getCumPropExpSeq_RK5
327 : ! use pm_kind, only: RKC => RK5
328 : !#include "pm_mathCumPropExp@routines.inc.F90"
329 : ! end procedure
330 : !#endif
331 : !
332 : !#if RK4_ENABLED
333 : ! module procedure getCumPropExpSeq_RK4
334 : ! use pm_kind, only: RKC => RK4
335 : !#include "pm_mathCumPropExp@routines.inc.F90"
336 : ! end procedure
337 : !#endif
338 : !
339 : !#if RK3_ENABLED
340 : ! module procedure getCumPropExpSeq_RK3
341 : ! use pm_kind, only: RKC => RK3
342 : !#include "pm_mathCumPropExp@routines.inc.F90"
343 : ! end procedure
344 : !#endif
345 : !
346 : !#if RK2_ENABLED
347 : ! module procedure getCumPropExpSeq_RK2
348 : ! use pm_kind, only: RKC => RK2
349 : !#include "pm_mathCumPropExp@routines.inc.F90"
350 : ! end procedure
351 : !#endif
352 : !
353 : !#if RK1_ENABLED
354 : ! module procedure getCumPropExpSeq_RK1
355 : ! use pm_kind, only: RKC => RK1
356 : !#include "pm_mathCumPropExp@routines.inc.F90"
357 : ! end procedure
358 : !#endif
359 : !
360 : !#undef RK_ENABLED
361 : !
362 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
363 : !
364 : !#undef Seq_ENABLED
365 : !
366 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
368 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
369 : !
370 : !#undef getCumPropExp_ENABLED
371 : !
372 : !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
373 :
374 : #define setCumPropExp_ENABLED 1
375 :
376 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
379 :
380 : #define Seq_ENABLED 1
381 :
382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
383 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
385 :
386 : #define Old_ENABLED 1
387 :
388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
391 :
392 : #define For_ENABLED 1
393 :
394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
397 :
398 : #define Non_ENABLED 1
399 :
400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
401 :
402 : #define RK_ENABLED 1
403 :
404 : #if RK5_ENABLED
405 : module procedure setCumPropExpSeqOldDefDef_RK5
406 : use pm_kind, only: RKC => RK5
407 : #include "pm_mathCumPropExp@routines.inc.F90"
408 : end procedure
409 : #endif
410 :
411 : #if RK4_ENABLED
412 67 : module procedure setCumPropExpSeqOldDefDef_RK4
413 : use pm_kind, only: RKC => RK4
414 : #include "pm_mathCumPropExp@routines.inc.F90"
415 67 : end procedure
416 : #endif
417 :
418 : #if RK3_ENABLED
419 60 : module procedure setCumPropExpSeqOldDefDef_RK3
420 : use pm_kind, only: RKC => RK3
421 : #include "pm_mathCumPropExp@routines.inc.F90"
422 60 : end procedure
423 : #endif
424 :
425 : #if RK2_ENABLED
426 77 : module procedure setCumPropExpSeqOldDefDef_RK2
427 : use pm_kind, only: RKC => RK2
428 : #include "pm_mathCumPropExp@routines.inc.F90"
429 77 : end procedure
430 : #endif
431 :
432 : #if RK1_ENABLED
433 72 : module procedure setCumPropExpSeqOldDefDef_RK1
434 : use pm_kind, only: RKC => RK1
435 : #include "pm_mathCumPropExp@routines.inc.F90"
436 72 : end procedure
437 : #endif
438 :
439 : #undef RK_ENABLED
440 :
441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
442 :
443 : #undef Non_ENABLED
444 :
445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
448 :
449 : #undef For_ENABLED
450 :
451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
454 :
455 : #undef Old_ENABLED
456 :
457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
459 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
460 :
461 : #define New_ENABLED 1
462 :
463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
466 :
467 : #define For_ENABLED 1
468 :
469 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
472 :
473 : #define Non_ENABLED 1
474 :
475 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
476 :
477 : #define RK_ENABLED 1
478 :
479 : #if RK5_ENABLED
480 : module procedure setCumPropExpSeqNewDefDef_RK5
481 : use pm_kind, only: RKC => RK5
482 : #include "pm_mathCumPropExp@routines.inc.F90"
483 : end procedure
484 : #endif
485 :
486 : #if RK4_ENABLED
487 182 : module procedure setCumPropExpSeqNewDefDef_RK4
488 : use pm_kind, only: RKC => RK4
489 : #include "pm_mathCumPropExp@routines.inc.F90"
490 182 : end procedure
491 : #endif
492 :
493 : #if RK3_ENABLED
494 227 : module procedure setCumPropExpSeqNewDefDef_RK3
495 : use pm_kind, only: RKC => RK3
496 : #include "pm_mathCumPropExp@routines.inc.F90"
497 227 : end procedure
498 : #endif
499 :
500 : #if RK2_ENABLED
501 216 : module procedure setCumPropExpSeqNewDefDef_RK2
502 : use pm_kind, only: RKC => RK2
503 : #include "pm_mathCumPropExp@routines.inc.F90"
504 216 : end procedure
505 : #endif
506 :
507 : #if RK1_ENABLED
508 253 : module procedure setCumPropExpSeqNewDefDef_RK1
509 : use pm_kind, only: RKC => RK1
510 : #include "pm_mathCumPropExp@routines.inc.F90"
511 253 : end procedure
512 : #endif
513 :
514 : #undef RK_ENABLED
515 :
516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517 :
518 : #undef Non_ENABLED
519 :
520 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
523 :
524 : #undef For_ENABLED
525 :
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
529 :
530 : #undef New_ENABLED
531 :
532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
535 :
536 : #undef setCumPropExp_ENABLED
537 :
538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
539 :
540 : #define setCumPropExp_ENABLED 1
541 :
542 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
543 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 :
546 : #define Old_ENABLED 1
547 :
548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551 :
552 : #define For_ENABLED 1
553 :
554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557 :
558 : #define Non_ENABLED 1
559 :
560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
561 :
562 : #define RK_ENABLED 1
563 :
564 : #if RK5_ENABLED
565 : module procedure setCumPropExpSeqOldForNon_RK5
566 : use pm_kind, only: RKC => RK5
567 : #include "pm_mathCumPropExp@routines.inc.F90"
568 : end procedure
569 : #endif
570 :
571 : #if RK4_ENABLED
572 29 : module procedure setCumPropExpSeqOldForNon_RK4
573 : use pm_kind, only: RKC => RK4
574 : #include "pm_mathCumPropExp@routines.inc.F90"
575 29 : end procedure
576 : #endif
577 :
578 : #if RK3_ENABLED
579 44 : module procedure setCumPropExpSeqOldForNon_RK3
580 : use pm_kind, only: RKC => RK3
581 : #include "pm_mathCumPropExp@routines.inc.F90"
582 44 : end procedure
583 : #endif
584 :
585 : #if RK2_ENABLED
586 46 : module procedure setCumPropExpSeqOldForNon_RK2
587 : use pm_kind, only: RKC => RK2
588 : #include "pm_mathCumPropExp@routines.inc.F90"
589 46 : end procedure
590 : #endif
591 :
592 : #if RK1_ENABLED
593 33 : module procedure setCumPropExpSeqOldForNon_RK1
594 : use pm_kind, only: RKC => RK1
595 : #include "pm_mathCumPropExp@routines.inc.F90"
596 33 : end procedure
597 : #endif
598 :
599 : #undef RK_ENABLED
600 :
601 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
602 :
603 : #undef Non_ENABLED
604 :
605 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
606 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
607 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
608 :
609 : #define Rev_ENABLED 1
610 :
611 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
612 :
613 : #define RK_ENABLED 1
614 :
615 : #if RK5_ENABLED
616 : module procedure setCumPropExpSeqOldForRev_RK5
617 : use pm_kind, only: RKC => RK5
618 : #include "pm_mathCumPropExp@routines.inc.F90"
619 : end procedure
620 : #endif
621 :
622 : #if RK4_ENABLED
623 36 : module procedure setCumPropExpSeqOldForRev_RK4
624 : use pm_kind, only: RKC => RK4
625 : #include "pm_mathCumPropExp@routines.inc.F90"
626 36 : end procedure
627 : #endif
628 :
629 : #if RK3_ENABLED
630 34 : module procedure setCumPropExpSeqOldForRev_RK3
631 : use pm_kind, only: RKC => RK3
632 : #include "pm_mathCumPropExp@routines.inc.F90"
633 34 : end procedure
634 : #endif
635 :
636 : #if RK2_ENABLED
637 38 : module procedure setCumPropExpSeqOldForRev_RK2
638 : use pm_kind, only: RKC => RK2
639 : #include "pm_mathCumPropExp@routines.inc.F90"
640 38 : end procedure
641 : #endif
642 :
643 : #if RK1_ENABLED
644 42 : module procedure setCumPropExpSeqOldForRev_RK1
645 : use pm_kind, only: RKC => RK1
646 : #include "pm_mathCumPropExp@routines.inc.F90"
647 42 : end procedure
648 : #endif
649 :
650 : #undef RK_ENABLED
651 :
652 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
653 :
654 : #undef Rev_ENABLED
655 :
656 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
657 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
658 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
659 :
660 : #undef For_ENABLED
661 :
662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
665 :
666 : #define Bac_ENABLED 1
667 :
668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
669 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
671 :
672 : #define Non_ENABLED 1
673 :
674 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
675 :
676 : #define RK_ENABLED 1
677 :
678 : #if RK5_ENABLED
679 : module procedure setCumPropExpSeqOldBacNon_RK5
680 : use pm_kind, only: RKC => RK5
681 : #include "pm_mathCumPropExp@routines.inc.F90"
682 : end procedure
683 : #endif
684 :
685 : #if RK4_ENABLED
686 31 : module procedure setCumPropExpSeqOldBacNon_RK4
687 : use pm_kind, only: RKC => RK4
688 : #include "pm_mathCumPropExp@routines.inc.F90"
689 31 : end procedure
690 : #endif
691 :
692 : #if RK3_ENABLED
693 26 : module procedure setCumPropExpSeqOldBacNon_RK3
694 : use pm_kind, only: RKC => RK3
695 : #include "pm_mathCumPropExp@routines.inc.F90"
696 26 : end procedure
697 : #endif
698 :
699 : #if RK2_ENABLED
700 39 : module procedure setCumPropExpSeqOldBacNon_RK2
701 : use pm_kind, only: RKC => RK2
702 : #include "pm_mathCumPropExp@routines.inc.F90"
703 39 : end procedure
704 : #endif
705 :
706 : #if RK1_ENABLED
707 29 : module procedure setCumPropExpSeqOldBacNon_RK1
708 : use pm_kind, only: RKC => RK1
709 : #include "pm_mathCumPropExp@routines.inc.F90"
710 29 : end procedure
711 : #endif
712 :
713 : #undef RK_ENABLED
714 :
715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
716 :
717 : #undef Non_ENABLED
718 :
719 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
720 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
721 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
722 :
723 : #define Rev_ENABLED 1
724 :
725 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
726 :
727 : #define RK_ENABLED 1
728 :
729 : #if RK5_ENABLED
730 : module procedure setCumPropExpSeqOldBacRev_RK5
731 : use pm_kind, only: RKC => RK5
732 : #include "pm_mathCumPropExp@routines.inc.F90"
733 : end procedure
734 : #endif
735 :
736 : #if RK4_ENABLED
737 0 : module procedure setCumPropExpSeqOldBacRev_RK4
738 : use pm_kind, only: RKC => RK4
739 : #include "pm_mathCumPropExp@routines.inc.F90"
740 0 : end procedure
741 : #endif
742 :
743 : #if RK3_ENABLED
744 0 : module procedure setCumPropExpSeqOldBacRev_RK3
745 : use pm_kind, only: RKC => RK3
746 : #include "pm_mathCumPropExp@routines.inc.F90"
747 0 : end procedure
748 : #endif
749 :
750 : #if RK2_ENABLED
751 0 : module procedure setCumPropExpSeqOldBacRev_RK2
752 : use pm_kind, only: RKC => RK2
753 : #include "pm_mathCumPropExp@routines.inc.F90"
754 0 : end procedure
755 : #endif
756 :
757 : #if RK1_ENABLED
758 1 : module procedure setCumPropExpSeqOldBacRev_RK1
759 : use pm_kind, only: RKC => RK1
760 : #include "pm_mathCumPropExp@routines.inc.F90"
761 1 : end procedure
762 : #endif
763 :
764 : #undef RK_ENABLED
765 :
766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
767 :
768 : #undef Rev_ENABLED
769 :
770 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
771 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
772 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
773 :
774 : #undef Bac_ENABLED
775 :
776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
777 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
778 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
779 :
780 : #undef Old_ENABLED
781 :
782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
783 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
784 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
785 :
786 : #define New_ENABLED 1
787 :
788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
789 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
790 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
791 :
792 : #define For_ENABLED 1
793 :
794 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
795 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
796 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
797 :
798 : #define Non_ENABLED 1
799 :
800 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
801 :
802 : #define RK_ENABLED 1
803 :
804 : #if RK5_ENABLED
805 : module procedure setCumPropExpSeqNewForNon_RK5
806 : use pm_kind, only: RKC => RK5
807 : #include "pm_mathCumPropExp@routines.inc.F90"
808 : end procedure
809 : #endif
810 :
811 : #if RK4_ENABLED
812 87 : module procedure setCumPropExpSeqNewForNon_RK4
813 : use pm_kind, only: RKC => RK4
814 : #include "pm_mathCumPropExp@routines.inc.F90"
815 87 : end procedure
816 : #endif
817 :
818 : #if RK3_ENABLED
819 115 : module procedure setCumPropExpSeqNewForNon_RK3
820 : use pm_kind, only: RKC => RK3
821 : #include "pm_mathCumPropExp@routines.inc.F90"
822 115 : end procedure
823 : #endif
824 :
825 : #if RK2_ENABLED
826 111 : module procedure setCumPropExpSeqNewForNon_RK2
827 : use pm_kind, only: RKC => RK2
828 : #include "pm_mathCumPropExp@routines.inc.F90"
829 111 : end procedure
830 : #endif
831 :
832 : #if RK1_ENABLED
833 117 : module procedure setCumPropExpSeqNewForNon_RK1
834 : use pm_kind, only: RKC => RK1
835 : #include "pm_mathCumPropExp@routines.inc.F90"
836 117 : end procedure
837 : #endif
838 :
839 : #undef RK_ENABLED
840 :
841 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
842 :
843 : #undef Non_ENABLED
844 :
845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
846 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
847 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
848 :
849 : #define Rev_ENABLED 1
850 :
851 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
852 :
853 : #define RK_ENABLED 1
854 :
855 : #if RK5_ENABLED
856 : module procedure setCumPropExpSeqNewForRev_RK5
857 : use pm_kind, only: RKC => RK5
858 : #include "pm_mathCumPropExp@routines.inc.F90"
859 : end procedure
860 : #endif
861 :
862 : #if RK4_ENABLED
863 342 : module procedure setCumPropExpSeqNewForRev_RK4
864 : use pm_kind, only: RKC => RK4
865 : #include "pm_mathCumPropExp@routines.inc.F90"
866 342 : end procedure
867 : #endif
868 :
869 : #if RK3_ENABLED
870 314 : module procedure setCumPropExpSeqNewForRev_RK3
871 : use pm_kind, only: RKC => RK3
872 : #include "pm_mathCumPropExp@routines.inc.F90"
873 314 : end procedure
874 : #endif
875 :
876 : #if RK2_ENABLED
877 365 : module procedure setCumPropExpSeqNewForRev_RK2
878 : use pm_kind, only: RKC => RK2
879 : #include "pm_mathCumPropExp@routines.inc.F90"
880 365 : end procedure
881 : #endif
882 :
883 : #if RK1_ENABLED
884 328 : module procedure setCumPropExpSeqNewForRev_RK1
885 : use pm_kind, only: RKC => RK1
886 : #include "pm_mathCumPropExp@routines.inc.F90"
887 328 : end procedure
888 : #endif
889 :
890 : #undef RK_ENABLED
891 :
892 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
893 :
894 : #undef Rev_ENABLED
895 :
896 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
897 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
898 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
899 :
900 : #undef For_ENABLED
901 :
902 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
903 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
904 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
905 :
906 : #define Bac_ENABLED 1
907 :
908 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
909 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
910 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
911 :
912 : #define Non_ENABLED 1
913 :
914 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
915 :
916 : #define RK_ENABLED 1
917 :
918 : #if RK5_ENABLED
919 : module procedure setCumPropExpSeqNewBacNon_RK5
920 : use pm_kind, only: RKC => RK5
921 : #include "pm_mathCumPropExp@routines.inc.F90"
922 : end procedure
923 : #endif
924 :
925 : #if RK4_ENABLED
926 379 : module procedure setCumPropExpSeqNewBacNon_RK4
927 : use pm_kind, only: RKC => RK4
928 : #include "pm_mathCumPropExp@routines.inc.F90"
929 379 : end procedure
930 : #endif
931 :
932 : #if RK3_ENABLED
933 351 : module procedure setCumPropExpSeqNewBacNon_RK3
934 : use pm_kind, only: RKC => RK3
935 : #include "pm_mathCumPropExp@routines.inc.F90"
936 351 : end procedure
937 : #endif
938 :
939 : #if RK2_ENABLED
940 308 : module procedure setCumPropExpSeqNewBacNon_RK2
941 : use pm_kind, only: RKC => RK2
942 : #include "pm_mathCumPropExp@routines.inc.F90"
943 308 : end procedure
944 : #endif
945 :
946 : #if RK1_ENABLED
947 341 : module procedure setCumPropExpSeqNewBacNon_RK1
948 : use pm_kind, only: RKC => RK1
949 : #include "pm_mathCumPropExp@routines.inc.F90"
950 341 : end procedure
951 : #endif
952 :
953 : #undef RK_ENABLED
954 :
955 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
956 :
957 : #undef Non_ENABLED
958 :
959 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
960 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
961 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
962 :
963 : #define Rev_ENABLED 1
964 :
965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
966 :
967 : #define RK_ENABLED 1
968 :
969 : #if RK5_ENABLED
970 : module procedure setCumPropExpSeqNewBacRev_RK5
971 : use pm_kind, only: RKC => RK5
972 : #include "pm_mathCumPropExp@routines.inc.F90"
973 : end procedure
974 : #endif
975 :
976 : #if RK4_ENABLED
977 183 : module procedure setCumPropExpSeqNewBacRev_RK4
978 : use pm_kind, only: RKC => RK4
979 : #include "pm_mathCumPropExp@routines.inc.F90"
980 183 : end procedure
981 : #endif
982 :
983 : #if RK3_ENABLED
984 156 : module procedure setCumPropExpSeqNewBacRev_RK3
985 : use pm_kind, only: RKC => RK3
986 : #include "pm_mathCumPropExp@routines.inc.F90"
987 156 : end procedure
988 : #endif
989 :
990 : #if RK2_ENABLED
991 147 : module procedure setCumPropExpSeqNewBacRev_RK2
992 : use pm_kind, only: RKC => RK2
993 : #include "pm_mathCumPropExp@routines.inc.F90"
994 147 : end procedure
995 : #endif
996 :
997 : #if RK1_ENABLED
998 160 : module procedure setCumPropExpSeqNewBacRev_RK1
999 : use pm_kind, only: RKC => RK1
1000 : #include "pm_mathCumPropExp@routines.inc.F90"
1001 160 : end procedure
1002 : #endif
1003 :
1004 : #undef RK_ENABLED
1005 :
1006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1007 :
1008 : #undef Rev_ENABLED
1009 :
1010 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1011 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1012 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1013 :
1014 : #undef Bac_ENABLED
1015 :
1016 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1017 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1018 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1019 :
1020 : #undef New_ENABLED
1021 :
1022 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1023 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1024 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1025 :
1026 : #undef Seq_ENABLED
1027 :
1028 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1029 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1031 :
1032 : #undef setCumPropExp_ENABLED
1033 :
1034 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1035 :
1036 : #define setCumPropExp_ENABLED 1
1037 :
1038 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1039 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1040 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1041 :
1042 : #define Sel_ENABLED 1
1043 :
1044 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1045 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1046 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1047 :
1048 : #define Old_ENABLED 1
1049 :
1050 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1051 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1053 :
1054 : #define For_ENABLED 1
1055 :
1056 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1058 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1059 :
1060 : #define Non_ENABLED 1
1061 :
1062 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1063 :
1064 : #define RK_ENABLED 1
1065 :
1066 : #if RK5_ENABLED
1067 : module procedure setCumPropExpSelOldDefDef_RK5
1068 : use pm_kind, only: RKC => RK5
1069 : #include "pm_mathCumPropExp@routines.inc.F90"
1070 : end procedure
1071 : #endif
1072 :
1073 : #if RK4_ENABLED
1074 67 : module procedure setCumPropExpSelOldDefDef_RK4
1075 : use pm_kind, only: RKC => RK4
1076 : #include "pm_mathCumPropExp@routines.inc.F90"
1077 67 : end procedure
1078 : #endif
1079 :
1080 : #if RK3_ENABLED
1081 84 : module procedure setCumPropExpSelOldDefDef_RK3
1082 : use pm_kind, only: RKC => RK3
1083 : #include "pm_mathCumPropExp@routines.inc.F90"
1084 84 : end procedure
1085 : #endif
1086 :
1087 : #if RK2_ENABLED
1088 75 : module procedure setCumPropExpSelOldDefDef_RK2
1089 : use pm_kind, only: RKC => RK2
1090 : #include "pm_mathCumPropExp@routines.inc.F90"
1091 75 : end procedure
1092 : #endif
1093 :
1094 : #if RK1_ENABLED
1095 75 : module procedure setCumPropExpSelOldDefDef_RK1
1096 : use pm_kind, only: RKC => RK1
1097 : #include "pm_mathCumPropExp@routines.inc.F90"
1098 75 : end procedure
1099 : #endif
1100 :
1101 : #undef RK_ENABLED
1102 :
1103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1104 :
1105 : #undef Non_ENABLED
1106 :
1107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1110 :
1111 : #undef For_ENABLED
1112 :
1113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1116 :
1117 : #undef Old_ENABLED
1118 :
1119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1122 :
1123 : #define New_ENABLED 1
1124 :
1125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1127 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1128 :
1129 : #define For_ENABLED 1
1130 :
1131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1133 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1134 :
1135 : #define Non_ENABLED 1
1136 :
1137 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1138 :
1139 : #define RK_ENABLED 1
1140 :
1141 : #if RK5_ENABLED
1142 : module procedure setCumPropExpSelNewDefDef_RK5
1143 : use pm_kind, only: RKC => RK5
1144 : #include "pm_mathCumPropExp@routines.inc.F90"
1145 : end procedure
1146 : #endif
1147 :
1148 : #if RK4_ENABLED
1149 68 : module procedure setCumPropExpSelNewDefDef_RK4
1150 : use pm_kind, only: RKC => RK4
1151 : #include "pm_mathCumPropExp@routines.inc.F90"
1152 68 : end procedure
1153 : #endif
1154 :
1155 : #if RK3_ENABLED
1156 75 : module procedure setCumPropExpSelNewDefDef_RK3
1157 : use pm_kind, only: RKC => RK3
1158 : #include "pm_mathCumPropExp@routines.inc.F90"
1159 75 : end procedure
1160 : #endif
1161 :
1162 : #if RK2_ENABLED
1163 74 : module procedure setCumPropExpSelNewDefDef_RK2
1164 : use pm_kind, only: RKC => RK2
1165 : #include "pm_mathCumPropExp@routines.inc.F90"
1166 74 : end procedure
1167 : #endif
1168 :
1169 : #if RK1_ENABLED
1170 86 : module procedure setCumPropExpSelNewDefDef_RK1
1171 : use pm_kind, only: RKC => RK1
1172 : #include "pm_mathCumPropExp@routines.inc.F90"
1173 86 : end procedure
1174 : #endif
1175 :
1176 : #undef RK_ENABLED
1177 :
1178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1179 :
1180 : #undef Non_ENABLED
1181 :
1182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1185 :
1186 : #undef For_ENABLED
1187 :
1188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1191 :
1192 : #undef New_ENABLED
1193 :
1194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1197 :
1198 : #undef setCumPropExp_ENABLED
1199 :
1200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1201 :
1202 : #define setCumPropExp_ENABLED 1
1203 :
1204 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1205 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1207 :
1208 : #define Old_ENABLED 1
1209 :
1210 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1213 :
1214 : #define For_ENABLED 1
1215 :
1216 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1219 :
1220 : #define Non_ENABLED 1
1221 :
1222 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1223 :
1224 : #define RK_ENABLED 1
1225 :
1226 : #if RK5_ENABLED
1227 : module procedure setCumPropExpSelOldForNon_RK5
1228 : use pm_kind, only: RKC => RK5
1229 : #include "pm_mathCumPropExp@routines.inc.F90"
1230 : end procedure
1231 : #endif
1232 :
1233 : #if RK4_ENABLED
1234 45 : module procedure setCumPropExpSelOldForNon_RK4
1235 : use pm_kind, only: RKC => RK4
1236 : #include "pm_mathCumPropExp@routines.inc.F90"
1237 45 : end procedure
1238 : #endif
1239 :
1240 : #if RK3_ENABLED
1241 29 : module procedure setCumPropExpSelOldForNon_RK3
1242 : use pm_kind, only: RKC => RK3
1243 : #include "pm_mathCumPropExp@routines.inc.F90"
1244 29 : end procedure
1245 : #endif
1246 :
1247 : #if RK2_ENABLED
1248 31 : module procedure setCumPropExpSelOldForNon_RK2
1249 : use pm_kind, only: RKC => RK2
1250 : #include "pm_mathCumPropExp@routines.inc.F90"
1251 31 : end procedure
1252 : #endif
1253 :
1254 : #if RK1_ENABLED
1255 43 : module procedure setCumPropExpSelOldForNon_RK1
1256 : use pm_kind, only: RKC => RK1
1257 : #include "pm_mathCumPropExp@routines.inc.F90"
1258 43 : end procedure
1259 : #endif
1260 :
1261 : #undef RK_ENABLED
1262 :
1263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1264 :
1265 : #undef Non_ENABLED
1266 :
1267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1270 :
1271 : #define Rev_ENABLED 1
1272 :
1273 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1274 :
1275 : #define RK_ENABLED 1
1276 :
1277 : #if RK5_ENABLED
1278 : module procedure setCumPropExpSelOldForRev_RK5
1279 : use pm_kind, only: RKC => RK5
1280 : #include "pm_mathCumPropExp@routines.inc.F90"
1281 : end procedure
1282 : #endif
1283 :
1284 : #if RK4_ENABLED
1285 32 : module procedure setCumPropExpSelOldForRev_RK4
1286 : use pm_kind, only: RKC => RK4
1287 : #include "pm_mathCumPropExp@routines.inc.F90"
1288 32 : end procedure
1289 : #endif
1290 :
1291 : #if RK3_ENABLED
1292 40 : module procedure setCumPropExpSelOldForRev_RK3
1293 : use pm_kind, only: RKC => RK3
1294 : #include "pm_mathCumPropExp@routines.inc.F90"
1295 40 : end procedure
1296 : #endif
1297 :
1298 : #if RK2_ENABLED
1299 44 : module procedure setCumPropExpSelOldForRev_RK2
1300 : use pm_kind, only: RKC => RK2
1301 : #include "pm_mathCumPropExp@routines.inc.F90"
1302 44 : end procedure
1303 : #endif
1304 :
1305 : #if RK1_ENABLED
1306 37 : module procedure setCumPropExpSelOldForRev_RK1
1307 : use pm_kind, only: RKC => RK1
1308 : #include "pm_mathCumPropExp@routines.inc.F90"
1309 37 : end procedure
1310 : #endif
1311 :
1312 : #undef RK_ENABLED
1313 :
1314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1315 :
1316 : #undef Rev_ENABLED
1317 :
1318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1321 :
1322 : #undef For_ENABLED
1323 :
1324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1325 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1326 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1327 :
1328 : #define Bac_ENABLED 1
1329 :
1330 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1331 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1332 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1333 :
1334 : #define Non_ENABLED 1
1335 :
1336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1337 :
1338 : #define RK_ENABLED 1
1339 :
1340 : #if RK5_ENABLED
1341 : module procedure setCumPropExpSelOldBacNon_RK5
1342 : use pm_kind, only: RKC => RK5
1343 : #include "pm_mathCumPropExp@routines.inc.F90"
1344 : end procedure
1345 : #endif
1346 :
1347 : #if RK4_ENABLED
1348 35 : module procedure setCumPropExpSelOldBacNon_RK4
1349 : use pm_kind, only: RKC => RK4
1350 : #include "pm_mathCumPropExp@routines.inc.F90"
1351 35 : end procedure
1352 : #endif
1353 :
1354 : #if RK3_ENABLED
1355 44 : module procedure setCumPropExpSelOldBacNon_RK3
1356 : use pm_kind, only: RKC => RK3
1357 : #include "pm_mathCumPropExp@routines.inc.F90"
1358 44 : end procedure
1359 : #endif
1360 :
1361 : #if RK2_ENABLED
1362 31 : module procedure setCumPropExpSelOldBacNon_RK2
1363 : use pm_kind, only: RKC => RK2
1364 : #include "pm_mathCumPropExp@routines.inc.F90"
1365 31 : end procedure
1366 : #endif
1367 :
1368 : #if RK1_ENABLED
1369 37 : module procedure setCumPropExpSelOldBacNon_RK1
1370 : use pm_kind, only: RKC => RK1
1371 : #include "pm_mathCumPropExp@routines.inc.F90"
1372 37 : end procedure
1373 : #endif
1374 :
1375 : #undef RK_ENABLED
1376 :
1377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1378 :
1379 : #undef Non_ENABLED
1380 :
1381 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1383 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1384 :
1385 : #define Rev_ENABLED 1
1386 :
1387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1388 :
1389 : #define RK_ENABLED 1
1390 :
1391 : #if RK5_ENABLED
1392 : module procedure setCumPropExpSelOldBacRev_RK5
1393 : use pm_kind, only: RKC => RK5
1394 : #include "pm_mathCumPropExp@routines.inc.F90"
1395 : end procedure
1396 : #endif
1397 :
1398 : #if RK4_ENABLED
1399 0 : module procedure setCumPropExpSelOldBacRev_RK4
1400 : use pm_kind, only: RKC => RK4
1401 : #include "pm_mathCumPropExp@routines.inc.F90"
1402 0 : end procedure
1403 : #endif
1404 :
1405 : #if RK3_ENABLED
1406 0 : module procedure setCumPropExpSelOldBacRev_RK3
1407 : use pm_kind, only: RKC => RK3
1408 : #include "pm_mathCumPropExp@routines.inc.F90"
1409 0 : end procedure
1410 : #endif
1411 :
1412 : #if RK2_ENABLED
1413 0 : module procedure setCumPropExpSelOldBacRev_RK2
1414 : use pm_kind, only: RKC => RK2
1415 : #include "pm_mathCumPropExp@routines.inc.F90"
1416 0 : end procedure
1417 : #endif
1418 :
1419 : #if RK1_ENABLED
1420 0 : module procedure setCumPropExpSelOldBacRev_RK1
1421 : use pm_kind, only: RKC => RK1
1422 : #include "pm_mathCumPropExp@routines.inc.F90"
1423 0 : end procedure
1424 : #endif
1425 :
1426 : #undef RK_ENABLED
1427 :
1428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1429 :
1430 : #undef Rev_ENABLED
1431 :
1432 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1435 :
1436 : #undef Bac_ENABLED
1437 :
1438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1441 :
1442 : #undef Old_ENABLED
1443 :
1444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1447 :
1448 : #define New_ENABLED 1
1449 :
1450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1453 :
1454 : #define For_ENABLED 1
1455 :
1456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1459 :
1460 : #define Non_ENABLED 1
1461 :
1462 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1463 :
1464 : #define RK_ENABLED 1
1465 :
1466 : #if RK5_ENABLED
1467 : module procedure setCumPropExpSelNewForNon_RK5
1468 : use pm_kind, only: RKC => RK5
1469 : #include "pm_mathCumPropExp@routines.inc.F90"
1470 : end procedure
1471 : #endif
1472 :
1473 : #if RK4_ENABLED
1474 103 : module procedure setCumPropExpSelNewForNon_RK4
1475 : use pm_kind, only: RKC => RK4
1476 : #include "pm_mathCumPropExp@routines.inc.F90"
1477 103 : end procedure
1478 : #endif
1479 :
1480 : #if RK3_ENABLED
1481 106 : module procedure setCumPropExpSelNewForNon_RK3
1482 : use pm_kind, only: RKC => RK3
1483 : #include "pm_mathCumPropExp@routines.inc.F90"
1484 106 : end procedure
1485 : #endif
1486 :
1487 : #if RK2_ENABLED
1488 111 : module procedure setCumPropExpSelNewForNon_RK2
1489 : use pm_kind, only: RKC => RK2
1490 : #include "pm_mathCumPropExp@routines.inc.F90"
1491 111 : end procedure
1492 : #endif
1493 :
1494 : #if RK1_ENABLED
1495 132 : module procedure setCumPropExpSelNewForNon_RK1
1496 : use pm_kind, only: RKC => RK1
1497 : #include "pm_mathCumPropExp@routines.inc.F90"
1498 132 : end procedure
1499 : #endif
1500 :
1501 : #undef RK_ENABLED
1502 :
1503 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1504 :
1505 : #undef Non_ENABLED
1506 :
1507 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1508 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1510 :
1511 : #define Rev_ENABLED 1
1512 :
1513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1514 :
1515 : #define RK_ENABLED 1
1516 :
1517 : #if RK5_ENABLED
1518 : module procedure setCumPropExpSelNewForRev_RK5
1519 : use pm_kind, only: RKC => RK5
1520 : #include "pm_mathCumPropExp@routines.inc.F90"
1521 : end procedure
1522 : #endif
1523 :
1524 : #if RK4_ENABLED
1525 179 : module procedure setCumPropExpSelNewForRev_RK4
1526 : use pm_kind, only: RKC => RK4
1527 : #include "pm_mathCumPropExp@routines.inc.F90"
1528 179 : end procedure
1529 : #endif
1530 :
1531 : #if RK3_ENABLED
1532 181 : module procedure setCumPropExpSelNewForRev_RK3
1533 : use pm_kind, only: RKC => RK3
1534 : #include "pm_mathCumPropExp@routines.inc.F90"
1535 181 : end procedure
1536 : #endif
1537 :
1538 : #if RK2_ENABLED
1539 199 : module procedure setCumPropExpSelNewForRev_RK2
1540 : use pm_kind, only: RKC => RK2
1541 : #include "pm_mathCumPropExp@routines.inc.F90"
1542 199 : end procedure
1543 : #endif
1544 :
1545 : #if RK1_ENABLED
1546 173 : module procedure setCumPropExpSelNewForRev_RK1
1547 : use pm_kind, only: RKC => RK1
1548 : #include "pm_mathCumPropExp@routines.inc.F90"
1549 173 : end procedure
1550 : #endif
1551 :
1552 : #undef RK_ENABLED
1553 :
1554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1555 :
1556 : #undef Rev_ENABLED
1557 :
1558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1559 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1561 :
1562 : #undef For_ENABLED
1563 :
1564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1565 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1567 :
1568 : #define Bac_ENABLED 1
1569 :
1570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1571 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1572 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1573 :
1574 : #define Non_ENABLED 1
1575 :
1576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1577 :
1578 : #define RK_ENABLED 1
1579 :
1580 : #if RK5_ENABLED
1581 : module procedure setCumPropExpSelNewBacNon_RK5
1582 : use pm_kind, only: RKC => RK5
1583 : #include "pm_mathCumPropExp@routines.inc.F90"
1584 : end procedure
1585 : #endif
1586 :
1587 : #if RK4_ENABLED
1588 196 : module procedure setCumPropExpSelNewBacNon_RK4
1589 : use pm_kind, only: RKC => RK4
1590 : #include "pm_mathCumPropExp@routines.inc.F90"
1591 196 : end procedure
1592 : #endif
1593 :
1594 : #if RK3_ENABLED
1595 181 : module procedure setCumPropExpSelNewBacNon_RK3
1596 : use pm_kind, only: RKC => RK3
1597 : #include "pm_mathCumPropExp@routines.inc.F90"
1598 181 : end procedure
1599 : #endif
1600 :
1601 : #if RK2_ENABLED
1602 175 : module procedure setCumPropExpSelNewBacNon_RK2
1603 : use pm_kind, only: RKC => RK2
1604 : #include "pm_mathCumPropExp@routines.inc.F90"
1605 175 : end procedure
1606 : #endif
1607 :
1608 : #if RK1_ENABLED
1609 180 : module procedure setCumPropExpSelNewBacNon_RK1
1610 : use pm_kind, only: RKC => RK1
1611 : #include "pm_mathCumPropExp@routines.inc.F90"
1612 180 : end procedure
1613 : #endif
1614 :
1615 : #undef RK_ENABLED
1616 :
1617 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1618 :
1619 : #undef Non_ENABLED
1620 :
1621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1624 :
1625 : #define Rev_ENABLED 1
1626 :
1627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1628 :
1629 : #define RK_ENABLED 1
1630 :
1631 : #if RK5_ENABLED
1632 : module procedure setCumPropExpSelNewBacRev_RK5
1633 : use pm_kind, only: RKC => RK5
1634 : #include "pm_mathCumPropExp@routines.inc.F90"
1635 : end procedure
1636 : #endif
1637 :
1638 : #if RK4_ENABLED
1639 165 : module procedure setCumPropExpSelNewBacRev_RK4
1640 : use pm_kind, only: RKC => RK4
1641 : #include "pm_mathCumPropExp@routines.inc.F90"
1642 165 : end procedure
1643 : #endif
1644 :
1645 : #if RK3_ENABLED
1646 159 : module procedure setCumPropExpSelNewBacRev_RK3
1647 : use pm_kind, only: RKC => RK3
1648 : #include "pm_mathCumPropExp@routines.inc.F90"
1649 159 : end procedure
1650 : #endif
1651 :
1652 : #if RK2_ENABLED
1653 153 : module procedure setCumPropExpSelNewBacRev_RK2
1654 : use pm_kind, only: RKC => RK2
1655 : #include "pm_mathCumPropExp@routines.inc.F90"
1656 153 : end procedure
1657 : #endif
1658 :
1659 : #if RK1_ENABLED
1660 144 : module procedure setCumPropExpSelNewBacRev_RK1
1661 : use pm_kind, only: RKC => RK1
1662 : #include "pm_mathCumPropExp@routines.inc.F90"
1663 144 : end procedure
1664 : #endif
1665 :
1666 : #undef RK_ENABLED
1667 :
1668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1669 :
1670 : #undef Rev_ENABLED
1671 :
1672 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1673 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1674 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1675 :
1676 : #undef Bac_ENABLED
1677 :
1678 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1679 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1681 :
1682 : #undef New_ENABLED
1683 :
1684 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1685 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1686 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1687 :
1688 : #undef Sel_ENABLED
1689 :
1690 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1691 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1692 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1693 :
1694 : #undef setCumPropExp_ENABLED
1695 :
1696 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1697 :
1698 : #undef CHECK_ASSERTION
1699 :
1700 : end submodule routines
|
