ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_distGeomCyclic.F90
Go to the documentation of this file.
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
77
78!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79
80module pm_distGeomCyclic
81
82 use pm_kind, only: SK, IK, LK
83 use pm_distUnif, only: rngf_type, xoshiro256ssw_type
84
85 implicit none
86
87 character(*, SK), parameter :: MODULE_NAME = "@pm_distGeomCyclic"
88
89!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
90
124 type :: distGeomCyclic_type
125 end type
126
127!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
128
198 interface getGeomCyclicLogPMF
199
200 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
201
202#if RK5_ENABLED
203 PURE elemental module function getGeomCyclicLogPMF_D0_IK_RK5(stepSuccess, probSuccess, period) result(logPMF)
204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
205 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogPMF_D0_IK_RK5
206#endif
207 use pm_kind, only: RKG => RK5
208 integer(IK) , intent(in) :: stepSuccess, period
209 real(RKG) , intent(in) :: probSuccess
210 real(RKG) :: logPMF
211 end function
212#endif
213
214#if RK4_ENABLED
215 PURE elemental module function getGeomCyclicLogPMF_D0_IK_RK4(stepSuccess, probSuccess, period) result(logPMF)
216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
217 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogPMF_D0_IK_RK4
218#endif
219 use pm_kind, only: RKG => RK4
220 integer(IK) , intent(in) :: stepSuccess, period
221 real(RKG) , intent(in) :: probSuccess
222 real(RKG) :: logPMF
223 end function
224#endif
225
226#if RK3_ENABLED
227 PURE elemental module function getGeomCyclicLogPMF_D0_IK_RK3(stepSuccess, probSuccess, period) result(logPMF)
228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
229 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogPMF_D0_IK_RK3
230#endif
231 use pm_kind, only: RKG => RK3
232 integer(IK) , intent(in) :: stepSuccess, period
233 real(RKG) , intent(in) :: probSuccess
234 real(RKG) :: logPMF
235 end function
236#endif
237
238#if RK2_ENABLED
239 PURE elemental module function getGeomCyclicLogPMF_D0_IK_RK2(stepSuccess, probSuccess, period) result(logPMF)
240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
241 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogPMF_D0_IK_RK2
242#endif
243 use pm_kind, only: RKG => RK2
244 integer(IK) , intent(in) :: stepSuccess, period
245 real(RKG) , intent(in) :: probSuccess
246 real(RKG) :: logPMF
247 end function
248#endif
249
250#if RK1_ENABLED
251 PURE elemental module function getGeomCyclicLogPMF_D0_IK_RK1(stepSuccess, probSuccess, period) result(logPMF)
252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
253 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogPMF_D0_IK_RK1
254#endif
255 use pm_kind, only: RKG => RK1
256 integer(IK) , intent(in) :: stepSuccess, period
257 real(RKG) , intent(in) :: probSuccess
258 real(RKG) :: logPMF
259 end function
260#endif
261
262 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263
264#if RK5_ENABLED
265 PURE elemental module function getGeomCyclicLogPMF_D0_RK_RK5(stepSuccess, probSuccess, period) result(logPMF)
266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
267 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogPMF_D0_RK_RK5
268#endif
269 use pm_kind, only: RKG => RK5
270 integer(IK) , intent(in) :: period
271 real(RKG) , intent(in) :: stepSuccess
272 real(RKG) , intent(in) :: probSuccess
273 real(RKG) :: logPMF
274 end function
275#endif
276
277#if RK4_ENABLED
278 PURE elemental module function getGeomCyclicLogPMF_D0_RK_RK4(stepSuccess, probSuccess, period) result(logPMF)
279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
280 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogPMF_D0_RK_RK4
281#endif
282 use pm_kind, only: RKG => RK4
283 integer(IK) , intent(in) :: period
284 real(RKG) , intent(in) :: stepSuccess
285 real(RKG) , intent(in) :: probSuccess
286 real(RKG) :: logPMF
287 end function
288#endif
289
290#if RK3_ENABLED
291 PURE elemental module function getGeomCyclicLogPMF_D0_RK_RK3(stepSuccess, probSuccess, period) result(logPMF)
292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
293 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogPMF_D0_RK_RK3
294#endif
295 use pm_kind, only: RKG => RK3
296 integer(IK) , intent(in) :: period
297 real(RKG) , intent(in) :: stepSuccess
298 real(RKG) , intent(in) :: probSuccess
299 real(RKG) :: logPMF
300 end function
301#endif
302
303#if RK2_ENABLED
304 PURE elemental module function getGeomCyclicLogPMF_D0_RK_RK2(stepSuccess, probSuccess, period) result(logPMF)
305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
306 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogPMF_D0_RK_RK2
307#endif
308 use pm_kind, only: RKG => RK2
309 integer(IK) , intent(in) :: period
310 real(RKG) , intent(in) :: stepSuccess
311 real(RKG) , intent(in) :: probSuccess
312 real(RKG) :: logPMF
313 end function
314#endif
315
316#if RK1_ENABLED
317 PURE elemental module function getGeomCyclicLogPMF_D0_RK_RK1(stepSuccess, probSuccess, period) result(logPMF)
318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
319 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogPMF_D0_RK_RK1
320#endif
321 use pm_kind, only: RKG => RK1
322 integer(IK) , intent(in) :: period
323 real(RKG) , intent(in) :: stepSuccess
324 real(RKG) , intent(in) :: probSuccess
325 real(RKG) :: logPMF
326 end function
327#endif
328
329 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
330
331 end interface
332
333!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
334
410
411 ! IK
412
413 interface setGeomCyclicLogPMF
414
415 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
416 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
417 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
418
419 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
420
421#if RK5_ENABLED
422 PURE elemental module subroutine setGeomCyclicLogPMFDef_D0_IK_RK5(logPMF, stepSuccess, logProbSuccess, period)
423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
424 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D0_IK_RK5
425#endif
426 use pm_kind, only: RKG => RK5
427 integer(IK) , intent(in) :: period
428 integer(IK) , intent(in) :: stepSuccess
429 real(RKG) , intent(in) :: logProbSuccess
430 real(RKG) , intent(out) :: logPMF
431 end subroutine
432#endif
433
434#if RK4_ENABLED
435 PURE elemental module subroutine setGeomCyclicLogPMFDef_D0_IK_RK4(logPMF, stepSuccess, logProbSuccess, period)
436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
437 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D0_IK_RK4
438#endif
439 use pm_kind, only: RKG => RK4
440 integer(IK) , intent(in) :: period
441 integer(IK) , intent(in) :: stepSuccess
442 real(RKG) , intent(in) :: logProbSuccess
443 real(RKG) , intent(out) :: logPMF
444 end subroutine
445#endif
446
447#if RK3_ENABLED
448 PURE elemental module subroutine setGeomCyclicLogPMFDef_D0_IK_RK3(logPMF, stepSuccess, logProbSuccess, period)
449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
450 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D0_IK_RK3
451#endif
452 use pm_kind, only: RKG => RK3
453 integer(IK) , intent(in) :: period
454 integer(IK) , intent(in) :: stepSuccess
455 real(RKG) , intent(in) :: logProbSuccess
456 real(RKG) , intent(out) :: logPMF
457 end subroutine
458#endif
459
460#if RK2_ENABLED
461 PURE elemental module subroutine setGeomCyclicLogPMFDef_D0_IK_RK2(logPMF, stepSuccess, logProbSuccess, period)
462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
463 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D0_IK_RK2
464#endif
465 use pm_kind, only: RKG => RK2
466 integer(IK) , intent(in) :: period
467 integer(IK) , intent(in) :: stepSuccess
468 real(RKG) , intent(in) :: logProbSuccess
469 real(RKG) , intent(out) :: logPMF
470 end subroutine
471#endif
472
473#if RK1_ENABLED
474 PURE elemental module subroutine setGeomCyclicLogPMFDef_D0_IK_RK1(logPMF, stepSuccess, logProbSuccess, period)
475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
476 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D0_IK_RK1
477#endif
478 use pm_kind, only: RKG => RK1
479 integer(IK) , intent(in) :: period
480 integer(IK) , intent(in) :: stepSuccess
481 real(RKG) , intent(in) :: logProbSuccess
482 real(RKG) , intent(out) :: logPMF
483 end subroutine
484#endif
485
486 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
487
488#if RK5_ENABLED
489 PURE elemental module subroutine setGeomCyclicLogPMFLog_D0_IK_RK5(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
491 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D0_IK_RK5
492#endif
493 use pm_kind, only: RKG => RK5
494 integer(IK) , intent(in) :: period
495 integer(IK) , intent(in) :: stepSuccess
496 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
497 real(RKG) , intent(out) :: logPMF
498 end subroutine
499#endif
500
501#if RK4_ENABLED
502 PURE elemental module subroutine setGeomCyclicLogPMFLog_D0_IK_RK4(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
504 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D0_IK_RK4
505#endif
506 use pm_kind, only: RKG => RK4
507 integer(IK) , intent(in) :: period
508 integer(IK) , intent(in) :: stepSuccess
509 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
510 real(RKG) , intent(out) :: logPMF
511 end subroutine
512#endif
513
514#if RK3_ENABLED
515 PURE elemental module subroutine setGeomCyclicLogPMFLog_D0_IK_RK3(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
517 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D0_IK_RK3
518#endif
519 use pm_kind, only: RKG => RK3
520 integer(IK) , intent(in) :: stepSuccess, period
521 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
522 real(RKG) , intent(out) :: logPMF
523 end subroutine
524#endif
525
526#if RK2_ENABLED
527 PURE elemental module subroutine setGeomCyclicLogPMFLog_D0_IK_RK2(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
529 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D0_IK_RK2
530#endif
531 use pm_kind, only: RKG => RK2
532 integer(IK) , intent(in) :: stepSuccess, period
533 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
534 real(RKG) , intent(out) :: logPMF
535 end subroutine
536#endif
537
538#if RK1_ENABLED
539 PURE elemental module subroutine setGeomCyclicLogPMFLog_D0_IK_RK1(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
541 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D0_IK_RK1
542#endif
543 use pm_kind, only: RKG => RK1
544 integer(IK) , intent(in) :: stepSuccess, period
545 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
546 real(RKG) , intent(out) :: logPMF
547 end subroutine
548#endif
549
550 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551
552 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
553 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555
556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557
558#if RK5_ENABLED
559 PURE module subroutine setGeomCyclicLogPMFDef_D1_IK_RK5(logPMF, stepSuccess, logProbSuccess, period)
560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
561 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D1_IK_RK5
562#endif
563 use pm_kind, only: RKG => RK5
564 integer(IK) , intent(in) :: period
565 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
566 real(RKG) , intent(in) :: logProbSuccess
567 real(RKG) , intent(out) , contiguous :: logPMF(:)
568 end subroutine
569#endif
570
571#if RK4_ENABLED
572 PURE module subroutine setGeomCyclicLogPMFDef_D1_IK_RK4(logPMF, stepSuccess, logProbSuccess, period)
573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
574 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D1_IK_RK4
575#endif
576 use pm_kind, only: RKG => RK4
577 integer(IK) , intent(in) :: period
578 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
579 real(RKG) , intent(in) :: logProbSuccess
580 real(RKG) , intent(out) , contiguous :: logPMF(:)
581 end subroutine
582#endif
583
584#if RK3_ENABLED
585 PURE module subroutine setGeomCyclicLogPMFDef_D1_IK_RK3(logPMF, stepSuccess, logProbSuccess, period)
586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
587 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D1_IK_RK3
588#endif
589 use pm_kind, only: RKG => RK3
590 integer(IK) , intent(in) :: period
591 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
592 real(RKG) , intent(in) :: logProbSuccess
593 real(RKG) , intent(out) , contiguous :: logPMF(:)
594 end subroutine
595#endif
596
597#if RK2_ENABLED
598 PURE module subroutine setGeomCyclicLogPMFDef_D1_IK_RK2(logPMF, stepSuccess, logProbSuccess, period)
599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
600 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D1_IK_RK2
601#endif
602 use pm_kind, only: RKG => RK2
603 integer(IK) , intent(in) :: period
604 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
605 real(RKG) , intent(in) :: logProbSuccess
606 real(RKG) , intent(out) , contiguous :: logPMF(:)
607 end subroutine
608#endif
609
610#if RK1_ENABLED
611 PURE module subroutine setGeomCyclicLogPMFDef_D1_IK_RK1(logPMF, stepSuccess, logProbSuccess, period)
612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
613 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D1_IK_RK1
614#endif
615 use pm_kind, only: RKG => RK1
616 integer(IK) , intent(in) :: period
617 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
618 real(RKG) , intent(in) :: logProbSuccess
619 real(RKG) , intent(out) , contiguous :: logPMF(:)
620 end subroutine
621#endif
622
623 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
624
625#if RK5_ENABLED
626 PURE module subroutine setGeomCyclicLogPMFLog_D1_IK_RK5(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
628 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D1_IK_RK5
629#endif
630 use pm_kind, only: RKG => RK5
631 integer(IK) , intent(in) :: period
632 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
633 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
634 real(RKG) , intent(out) , contiguous :: logPMF(:)
635 end subroutine
636#endif
637
638#if RK4_ENABLED
639 PURE module subroutine setGeomCyclicLogPMFLog_D1_IK_RK4(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
641 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D1_IK_RK4
642#endif
643 use pm_kind, only: RKG => RK4
644 integer(IK) , intent(in) :: period
645 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
646 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
647 real(RKG) , intent(out) , contiguous :: logPMF(:)
648 end subroutine
649#endif
650
651#if RK3_ENABLED
652 PURE module subroutine setGeomCyclicLogPMFLog_D1_IK_RK3(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
654 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D1_IK_RK3
655#endif
656 use pm_kind, only: RKG => RK3
657 integer(IK) , intent(in) :: period
658 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
659 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
660 real(RKG) , intent(out) , contiguous :: logPMF(:)
661 end subroutine
662#endif
663
664#if RK2_ENABLED
665 PURE module subroutine setGeomCyclicLogPMFLog_D1_IK_RK2(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
667 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D1_IK_RK2
668#endif
669 use pm_kind, only: RKG => RK2
670 integer(IK) , intent(in) :: period
671 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
672 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
673 real(RKG) , intent(out) , contiguous :: logPMF(:)
674 end subroutine
675#endif
676
677#if RK1_ENABLED
678 PURE module subroutine setGeomCyclicLogPMFLog_D1_IK_RK1(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
680 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D1_IK_RK1
681#endif
682 use pm_kind, only: RKG => RK1
683 integer(IK) , intent(in) :: period
684 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
685 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
686 real(RKG) , intent(out) , contiguous :: logPMF(:)
687 end subroutine
688#endif
689
690 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
691
692 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
693 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
694 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
695
696 end interface
697
698 ! RK
699
700 interface setGeomCyclicLogPMF
701
702 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
703 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
704 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
705
706 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
707
708#if RK5_ENABLED
709 PURE elemental module subroutine setGeomCyclicLogPMFDef_D0_RK_RK5(logPMF, stepSuccess, logProbSuccess, period)
710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
711 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D0_RK_RK5
712#endif
713 use pm_kind, only: RKG => RK5
714 integer(IK) , intent(in) :: period
715 real(RKG) , intent(in) :: stepSuccess
716 real(RKG) , intent(in) :: logProbSuccess
717 real(RKG) , intent(out) :: logPMF
718 end subroutine
719#endif
720
721#if RK4_ENABLED
722 PURE elemental module subroutine setGeomCyclicLogPMFDef_D0_RK_RK4(logPMF, stepSuccess, logProbSuccess, period)
723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
724 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D0_RK_RK4
725#endif
726 use pm_kind, only: RKG => RK4
727 integer(IK) , intent(in) :: period
728 real(RKG) , intent(in) :: stepSuccess
729 real(RKG) , intent(in) :: logProbSuccess
730 real(RKG) , intent(out) :: logPMF
731 end subroutine
732#endif
733
734#if RK3_ENABLED
735 PURE elemental module subroutine setGeomCyclicLogPMFDef_D0_RK_RK3(logPMF, stepSuccess, logProbSuccess, period)
736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
737 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D0_RK_RK3
738#endif
739 use pm_kind, only: RKG => RK3
740 integer(IK) , intent(in) :: period
741 real(RKG) , intent(in) :: stepSuccess
742 real(RKG) , intent(in) :: logProbSuccess
743 real(RKG) , intent(out) :: logPMF
744 end subroutine
745#endif
746
747#if RK2_ENABLED
748 PURE elemental module subroutine setGeomCyclicLogPMFDef_D0_RK_RK2(logPMF, stepSuccess, logProbSuccess, period)
749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
750 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D0_RK_RK2
751#endif
752 use pm_kind, only: RKG => RK2
753 integer(IK) , intent(in) :: period
754 real(RKG) , intent(in) :: stepSuccess
755 real(RKG) , intent(in) :: logProbSuccess
756 real(RKG) , intent(out) :: logPMF
757 end subroutine
758#endif
759
760#if RK1_ENABLED
761 PURE elemental module subroutine setGeomCyclicLogPMFDef_D0_RK_RK1(logPMF, stepSuccess, logProbSuccess, period)
762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
763 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D0_RK_RK1
764#endif
765 use pm_kind, only: RKG => RK1
766 integer(IK) , intent(in) :: period
767 real(RKG) , intent(in) :: stepSuccess
768 real(RKG) , intent(in) :: logProbSuccess
769 real(RKG) , intent(out) :: logPMF
770 end subroutine
771#endif
772
773 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
774
775#if RK5_ENABLED
776 PURE elemental module subroutine setGeomCyclicLogPMFLog_D0_RK_RK5(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
778 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D0_RK_RK5
779#endif
780 use pm_kind, only: RKG => RK5
781 integer(IK) , intent(in) :: period
782 real(RKG) , intent(in) :: stepSuccess
783 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
784 real(RKG) , intent(out) :: logPMF
785 end subroutine
786#endif
787
788#if RK4_ENABLED
789 PURE elemental module subroutine setGeomCyclicLogPMFLog_D0_RK_RK4(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
791 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D0_RK_RK4
792#endif
793 use pm_kind, only: RKG => RK4
794 integer(IK) , intent(in) :: period
795 real(RKG) , intent(in) :: stepSuccess
796 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
797 real(RKG) , intent(out) :: logPMF
798 end subroutine
799#endif
800
801#if RK3_ENABLED
802 PURE elemental module subroutine setGeomCyclicLogPMFLog_D0_RK_RK3(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
804 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D0_RK_RK3
805#endif
806 use pm_kind, only: RKG => RK3
807 real(RKG) , intent(in) :: stepSuccess, period
808 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
809 real(RKG) , intent(out) :: logPMF
810 end subroutine
811#endif
812
813#if RK2_ENABLED
814 PURE elemental module subroutine setGeomCyclicLogPMFLog_D0_RK_RK2(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
816 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D0_RK_RK2
817#endif
818 use pm_kind, only: RKG => RK2
819 real(RKG) , intent(in) :: stepSuccess, period
820 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
821 real(RKG) , intent(out) :: logPMF
822 end subroutine
823#endif
824
825#if RK1_ENABLED
826 PURE elemental module subroutine setGeomCyclicLogPMFLog_D0_RK_RK1(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
828 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D0_RK_RK1
829#endif
830 use pm_kind, only: RKG => RK1
831 real(RKG) , intent(in) :: stepSuccess, period
832 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
833 real(RKG) , intent(out) :: logPMF
834 end subroutine
835#endif
836
837 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
838
839 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
840 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
841 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
842
843 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
844
845#if RK5_ENABLED
846 PURE module subroutine setGeomCyclicLogPMFDef_D1_RK_RK5(logPMF, stepSuccess, logProbSuccess, period)
847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
848 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D1_RK_RK5
849#endif
850 use pm_kind, only: RKG => RK5
851 integer(IK) , intent(in) :: period
852 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
853 real(RKG) , intent(in) :: logProbSuccess
854 real(RKG) , intent(out) , contiguous :: logPMF(:)
855 end subroutine
856#endif
857
858#if RK4_ENABLED
859 PURE module subroutine setGeomCyclicLogPMFDef_D1_RK_RK4(logPMF, stepSuccess, logProbSuccess, period)
860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
861 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D1_RK_RK4
862#endif
863 use pm_kind, only: RKG => RK4
864 integer(IK) , intent(in) :: period
865 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
866 real(RKG) , intent(in) :: logProbSuccess
867 real(RKG) , intent(out) , contiguous :: logPMF(:)
868 end subroutine
869#endif
870
871#if RK3_ENABLED
872 PURE module subroutine setGeomCyclicLogPMFDef_D1_RK_RK3(logPMF, stepSuccess, logProbSuccess, period)
873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
874 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D1_RK_RK3
875#endif
876 use pm_kind, only: RKG => RK3
877 integer(IK) , intent(in) :: period
878 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
879 real(RKG) , intent(in) :: logProbSuccess
880 real(RKG) , intent(out) , contiguous :: logPMF(:)
881 end subroutine
882#endif
883
884#if RK2_ENABLED
885 PURE module subroutine setGeomCyclicLogPMFDef_D1_RK_RK2(logPMF, stepSuccess, logProbSuccess, period)
886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
887 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D1_RK_RK2
888#endif
889 use pm_kind, only: RKG => RK2
890 integer(IK) , intent(in) :: period
891 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
892 real(RKG) , intent(in) :: logProbSuccess
893 real(RKG) , intent(out) , contiguous :: logPMF(:)
894 end subroutine
895#endif
896
897#if RK1_ENABLED
898 PURE module subroutine setGeomCyclicLogPMFDef_D1_RK_RK1(logPMF, stepSuccess, logProbSuccess, period)
899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
900 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFDef_D1_RK_RK1
901#endif
902 use pm_kind, only: RKG => RK1
903 integer(IK) , intent(in) :: period
904 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
905 real(RKG) , intent(in) :: logProbSuccess
906 real(RKG) , intent(out) , contiguous :: logPMF(:)
907 end subroutine
908#endif
909
910 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
911
912#if RK5_ENABLED
913 PURE module subroutine setGeomCyclicLogPMFLog_D1_RK_RK5(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
915 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D1_RK_RK5
916#endif
917 use pm_kind, only: RKG => RK5
918 integer(IK) , intent(in) :: period
919 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
920 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
921 real(RKG) , intent(out) , contiguous :: logPMF(:)
922 end subroutine
923#endif
924
925#if RK4_ENABLED
926 PURE module subroutine setGeomCyclicLogPMFLog_D1_RK_RK4(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
928 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D1_RK_RK4
929#endif
930 use pm_kind, only: RKG => RK4
931 integer(IK) , intent(in) :: period
932 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
933 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
934 real(RKG) , intent(out) , contiguous :: logPMF(:)
935 end subroutine
936#endif
937
938#if RK3_ENABLED
939 PURE module subroutine setGeomCyclicLogPMFLog_D1_RK_RK3(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
941 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D1_RK_RK3
942#endif
943 use pm_kind, only: RKG => RK3
944 integer(IK) , intent(in) :: period
945 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
946 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
947 real(RKG) , intent(out) , contiguous :: logPMF(:)
948 end subroutine
949#endif
950
951#if RK2_ENABLED
952 PURE module subroutine setGeomCyclicLogPMFLog_D1_RK_RK2(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
954 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D1_RK_RK2
955#endif
956 use pm_kind, only: RKG => RK2
957 integer(IK) , intent(in) :: period
958 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
959 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
960 real(RKG) , intent(out) , contiguous :: logPMF(:)
961 end subroutine
962#endif
963
964#if RK1_ENABLED
965 PURE module subroutine setGeomCyclicLogPMFLog_D1_RK_RK1(logPMF, stepSuccess, logProbSuccess, logProbFailure, period)
966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
967 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogPMFLog_D1_RK_RK1
968#endif
969 use pm_kind, only: RKG => RK1
970 integer(IK) , intent(in) :: period
971 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
972 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
973 real(RKG) , intent(out) , contiguous :: logPMF(:)
974 end subroutine
975#endif
976
977 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
978
979 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
980 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
981 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
982
983 end interface
984
985!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
986
1056 interface getGeomCyclicLogCDF
1057
1058 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1059
1060#if RK5_ENABLED
1061 PURE elemental module function getGeomCyclicLogCDF_D0_IK_RK5(stepSuccess, probSuccess, period) result(logCDF)
1062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1063 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogCDF_D0_IK_RK5
1064#endif
1065 use pm_kind, only: RKG => RK5
1066 integer(IK) , intent(in) :: stepSuccess, period
1067 real(RKG) , intent(in) :: probSuccess
1068 real(RKG) :: logCDF
1069 end function
1070#endif
1071
1072#if RK4_ENABLED
1073 PURE elemental module function getGeomCyclicLogCDF_D0_IK_RK4(stepSuccess, probSuccess, period) result(logCDF)
1074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1075 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogCDF_D0_IK_RK4
1076#endif
1077 use pm_kind, only: RKG => RK4
1078 integer(IK) , intent(in) :: stepSuccess, period
1079 real(RKG) , intent(in) :: probSuccess
1080 real(RKG) :: logCDF
1081 end function
1082#endif
1083
1084#if RK3_ENABLED
1085 PURE elemental module function getGeomCyclicLogCDF_D0_IK_RK3(stepSuccess, probSuccess, period) result(logCDF)
1086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1087 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogCDF_D0_IK_RK3
1088#endif
1089 use pm_kind, only: RKG => RK3
1090 integer(IK) , intent(in) :: stepSuccess, period
1091 real(RKG) , intent(in) :: probSuccess
1092 real(RKG) :: logCDF
1093 end function
1094#endif
1095
1096#if RK2_ENABLED
1097 PURE elemental module function getGeomCyclicLogCDF_D0_IK_RK2(stepSuccess, probSuccess, period) result(logCDF)
1098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1099 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogCDF_D0_IK_RK2
1100#endif
1101 use pm_kind, only: RKG => RK2
1102 integer(IK) , intent(in) :: stepSuccess, period
1103 real(RKG) , intent(in) :: probSuccess
1104 real(RKG) :: logCDF
1105 end function
1106#endif
1107
1108#if RK1_ENABLED
1109 PURE elemental module function getGeomCyclicLogCDF_D0_IK_RK1(stepSuccess, probSuccess, period) result(logCDF)
1110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1111 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogCDF_D0_IK_RK1
1112#endif
1113 use pm_kind, only: RKG => RK1
1114 integer(IK) , intent(in) :: stepSuccess, period
1115 real(RKG) , intent(in) :: probSuccess
1116 real(RKG) :: logCDF
1117 end function
1118#endif
1119
1120 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1121
1122#if RK5_ENABLED
1123 PURE elemental module function getGeomCyclicLogCDF_D0_RK_RK5(stepSuccess, probSuccess, period) result(logCDF)
1124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1125 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogCDF_D0_RK_RK5
1126#endif
1127 use pm_kind, only: RKG => RK5
1128 integer(IK) , intent(in) :: period
1129 real(RKG) , intent(in) :: stepSuccess
1130 real(RKG) , intent(in) :: probSuccess
1131 real(RKG) :: logCDF
1132 end function
1133#endif
1134
1135#if RK4_ENABLED
1136 PURE elemental module function getGeomCyclicLogCDF_D0_RK_RK4(stepSuccess, probSuccess, period) result(logCDF)
1137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1138 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogCDF_D0_RK_RK4
1139#endif
1140 use pm_kind, only: RKG => RK4
1141 integer(IK) , intent(in) :: period
1142 real(RKG) , intent(in) :: stepSuccess
1143 real(RKG) , intent(in) :: probSuccess
1144 real(RKG) :: logCDF
1145 end function
1146#endif
1147
1148#if RK3_ENABLED
1149 PURE elemental module function getGeomCyclicLogCDF_D0_RK_RK3(stepSuccess, probSuccess, period) result(logCDF)
1150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1151 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogCDF_D0_RK_RK3
1152#endif
1153 use pm_kind, only: RKG => RK3
1154 integer(IK) , intent(in) :: period
1155 real(RKG) , intent(in) :: stepSuccess
1156 real(RKG) , intent(in) :: probSuccess
1157 real(RKG) :: logCDF
1158 end function
1159#endif
1160
1161#if RK2_ENABLED
1162 PURE elemental module function getGeomCyclicLogCDF_D0_RK_RK2(stepSuccess, probSuccess, period) result(logCDF)
1163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1164 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogCDF_D0_RK_RK2
1165#endif
1166 use pm_kind, only: RKG => RK2
1167 integer(IK) , intent(in) :: period
1168 real(RKG) , intent(in) :: stepSuccess
1169 real(RKG) , intent(in) :: probSuccess
1170 real(RKG) :: logCDF
1171 end function
1172#endif
1173
1174#if RK1_ENABLED
1175 PURE elemental module function getGeomCyclicLogCDF_D0_RK_RK1(stepSuccess, probSuccess, period) result(logCDF)
1176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1177 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicLogCDF_D0_RK_RK1
1178#endif
1179 use pm_kind, only: RKG => RK1
1180 integer(IK) , intent(in) :: period
1181 real(RKG) , intent(in) :: stepSuccess
1182 real(RKG) , intent(in) :: probSuccess
1183 real(RKG) :: logCDF
1184 end function
1185#endif
1186
1187 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1188
1189 end interface
1190
1191!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1192
1271
1272 ! IK
1273
1274 interface setGeomCyclicLogCDF
1275
1276 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1277 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1278 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1279
1280 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1281
1282#if RK5_ENABLED
1283 PURE elemental module subroutine setGeomCyclicLogCDFDef_D0_IK_RK5(logCDF, stepSuccess, logProbSuccess, period)
1284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1285 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D0_IK_RK5
1286#endif
1287 use pm_kind, only: RKG => RK5
1288 integer(IK) , intent(in) :: period
1289 integer(IK) , intent(in) :: stepSuccess
1290 real(RKG) , intent(in) :: logProbSuccess
1291 real(RKG) , intent(out) :: logCDF
1292 end subroutine
1293#endif
1294
1295#if RK4_ENABLED
1296 PURE elemental module subroutine setGeomCyclicLogCDFDef_D0_IK_RK4(logCDF, stepSuccess, logProbSuccess, period)
1297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1298 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D0_IK_RK4
1299#endif
1300 use pm_kind, only: RKG => RK4
1301 integer(IK) , intent(in) :: period
1302 integer(IK) , intent(in) :: stepSuccess
1303 real(RKG) , intent(in) :: logProbSuccess
1304 real(RKG) , intent(out) :: logCDF
1305 end subroutine
1306#endif
1307
1308#if RK3_ENABLED
1309 PURE elemental module subroutine setGeomCyclicLogCDFDef_D0_IK_RK3(logCDF, stepSuccess, logProbSuccess, period)
1310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1311 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D0_IK_RK3
1312#endif
1313 use pm_kind, only: RKG => RK3
1314 integer(IK) , intent(in) :: period
1315 integer(IK) , intent(in) :: stepSuccess
1316 real(RKG) , intent(in) :: logProbSuccess
1317 real(RKG) , intent(out) :: logCDF
1318 end subroutine
1319#endif
1320
1321#if RK2_ENABLED
1322 PURE elemental module subroutine setGeomCyclicLogCDFDef_D0_IK_RK2(logCDF, stepSuccess, logProbSuccess, period)
1323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1324 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D0_IK_RK2
1325#endif
1326 use pm_kind, only: RKG => RK2
1327 integer(IK) , intent(in) :: period
1328 integer(IK) , intent(in) :: stepSuccess
1329 real(RKG) , intent(in) :: logProbSuccess
1330 real(RKG) , intent(out) :: logCDF
1331 end subroutine
1332#endif
1333
1334#if RK1_ENABLED
1335 PURE elemental module subroutine setGeomCyclicLogCDFDef_D0_IK_RK1(logCDF, stepSuccess, logProbSuccess, period)
1336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1337 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D0_IK_RK1
1338#endif
1339 use pm_kind, only: RKG => RK1
1340 integer(IK) , intent(in) :: period
1341 integer(IK) , intent(in) :: stepSuccess
1342 real(RKG) , intent(in) :: logProbSuccess
1343 real(RKG) , intent(out) :: logCDF
1344 end subroutine
1345#endif
1346
1347 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1348
1349#if RK5_ENABLED
1350 PURE elemental module subroutine setGeomCyclicLogCDFLog_D0_IK_RK5(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1352 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D0_IK_RK5
1353#endif
1354 use pm_kind, only: RKG => RK5
1355 integer(IK) , intent(in) :: period
1356 integer(IK) , intent(in) :: stepSuccess
1357 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1358 real(RKG) , intent(out) :: logCDF
1359 end subroutine
1360#endif
1361
1362#if RK4_ENABLED
1363 PURE elemental module subroutine setGeomCyclicLogCDFLog_D0_IK_RK4(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1365 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D0_IK_RK4
1366#endif
1367 use pm_kind, only: RKG => RK4
1368 integer(IK) , intent(in) :: period
1369 integer(IK) , intent(in) :: stepSuccess
1370 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1371 real(RKG) , intent(out) :: logCDF
1372 end subroutine
1373#endif
1374
1375#if RK3_ENABLED
1376 PURE elemental module subroutine setGeomCyclicLogCDFLog_D0_IK_RK3(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1378 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D0_IK_RK3
1379#endif
1380 use pm_kind, only: RKG => RK3
1381 integer(IK) , intent(in) :: stepSuccess, period
1382 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1383 real(RKG) , intent(out) :: logCDF
1384 end subroutine
1385#endif
1386
1387#if RK2_ENABLED
1388 PURE elemental module subroutine setGeomCyclicLogCDFLog_D0_IK_RK2(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1390 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D0_IK_RK2
1391#endif
1392 use pm_kind, only: RKG => RK2
1393 integer(IK) , intent(in) :: stepSuccess, period
1394 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1395 real(RKG) , intent(out) :: logCDF
1396 end subroutine
1397#endif
1398
1399#if RK1_ENABLED
1400 PURE elemental module subroutine setGeomCyclicLogCDFLog_D0_IK_RK1(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1402 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D0_IK_RK1
1403#endif
1404 use pm_kind, only: RKG => RK1
1405 integer(IK) , intent(in) :: stepSuccess, period
1406 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1407 real(RKG) , intent(out) :: logCDF
1408 end subroutine
1409#endif
1410
1411 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1412
1413 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1414 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1415 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1416
1417 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1418
1419#if RK5_ENABLED
1420 PURE module subroutine setGeomCyclicLogCDFDef_D1_IK_RK5(logCDF, stepSuccess, logProbSuccess, period)
1421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1422 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D1_IK_RK5
1423#endif
1424 use pm_kind, only: RKG => RK5
1425 integer(IK) , intent(in) :: period
1426 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
1427 real(RKG) , intent(in) :: logProbSuccess
1428 real(RKG) , intent(out) , contiguous :: logCDF(:)
1429 end subroutine
1430#endif
1431
1432#if RK4_ENABLED
1433 PURE module subroutine setGeomCyclicLogCDFDef_D1_IK_RK4(logCDF, stepSuccess, logProbSuccess, period)
1434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1435 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D1_IK_RK4
1436#endif
1437 use pm_kind, only: RKG => RK4
1438 integer(IK) , intent(in) :: period
1439 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
1440 real(RKG) , intent(in) :: logProbSuccess
1441 real(RKG) , intent(out) , contiguous :: logCDF(:)
1442 end subroutine
1443#endif
1444
1445#if RK3_ENABLED
1446 PURE module subroutine setGeomCyclicLogCDFDef_D1_IK_RK3(logCDF, stepSuccess, logProbSuccess, period)
1447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1448 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D1_IK_RK3
1449#endif
1450 use pm_kind, only: RKG => RK3
1451 integer(IK) , intent(in) :: period
1452 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
1453 real(RKG) , intent(in) :: logProbSuccess
1454 real(RKG) , intent(out) , contiguous :: logCDF(:)
1455 end subroutine
1456#endif
1457
1458#if RK2_ENABLED
1459 PURE module subroutine setGeomCyclicLogCDFDef_D1_IK_RK2(logCDF, stepSuccess, logProbSuccess, period)
1460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1461 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D1_IK_RK2
1462#endif
1463 use pm_kind, only: RKG => RK2
1464 integer(IK) , intent(in) :: period
1465 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
1466 real(RKG) , intent(in) :: logProbSuccess
1467 real(RKG) , intent(out) , contiguous :: logCDF(:)
1468 end subroutine
1469#endif
1470
1471#if RK1_ENABLED
1472 PURE module subroutine setGeomCyclicLogCDFDef_D1_IK_RK1(logCDF, stepSuccess, logProbSuccess, period)
1473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1474 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D1_IK_RK1
1475#endif
1476 use pm_kind, only: RKG => RK1
1477 integer(IK) , intent(in) :: period
1478 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
1479 real(RKG) , intent(in) :: logProbSuccess
1480 real(RKG) , intent(out) , contiguous :: logCDF(:)
1481 end subroutine
1482#endif
1483
1484 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1485
1486#if RK5_ENABLED
1487 PURE module subroutine setGeomCyclicLogCDFLog_D1_IK_RK5(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1489 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D1_IK_RK5
1490#endif
1491 use pm_kind, only: RKG => RK5
1492 integer(IK) , intent(in) :: period
1493 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
1494 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1495 real(RKG) , intent(out) , contiguous :: logCDF(:)
1496 end subroutine
1497#endif
1498
1499#if RK4_ENABLED
1500 PURE module subroutine setGeomCyclicLogCDFLog_D1_IK_RK4(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1502 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D1_IK_RK4
1503#endif
1504 use pm_kind, only: RKG => RK4
1505 integer(IK) , intent(in) :: period
1506 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
1507 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1508 real(RKG) , intent(out) , contiguous :: logCDF(:)
1509 end subroutine
1510#endif
1511
1512#if RK3_ENABLED
1513 PURE module subroutine setGeomCyclicLogCDFLog_D1_IK_RK3(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1515 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D1_IK_RK3
1516#endif
1517 use pm_kind, only: RKG => RK3
1518 integer(IK) , intent(in) :: period
1519 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
1520 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1521 real(RKG) , intent(out) , contiguous :: logCDF(:)
1522 end subroutine
1523#endif
1524
1525#if RK2_ENABLED
1526 PURE module subroutine setGeomCyclicLogCDFLog_D1_IK_RK2(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1528 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D1_IK_RK2
1529#endif
1530 use pm_kind, only: RKG => RK2
1531 integer(IK) , intent(in) :: period
1532 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
1533 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1534 real(RKG) , intent(out) , contiguous :: logCDF(:)
1535 end subroutine
1536#endif
1537
1538#if RK1_ENABLED
1539 PURE module subroutine setGeomCyclicLogCDFLog_D1_IK_RK1(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1541 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D1_IK_RK1
1542#endif
1543 use pm_kind, only: RKG => RK1
1544 integer(IK) , intent(in) :: period
1545 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
1546 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1547 real(RKG) , intent(out) , contiguous :: logCDF(:)
1548 end subroutine
1549#endif
1550
1551 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1552
1553 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1555 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1556
1557 end interface
1558
1559 ! RK
1560
1561 interface setGeomCyclicLogCDF
1562
1563 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1564 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1565 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1566
1567 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1568
1569#if RK5_ENABLED
1570 PURE elemental module subroutine setGeomCyclicLogCDFDef_D0_RK_RK5(logCDF, stepSuccess, logProbSuccess, period)
1571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1572 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D0_RK_RK5
1573#endif
1574 use pm_kind, only: RKG => RK5
1575 integer(IK) , intent(in) :: period
1576 real(RKG) , intent(in) :: stepSuccess
1577 real(RKG) , intent(in) :: logProbSuccess
1578 real(RKG) , intent(out) :: logCDF
1579 end subroutine
1580#endif
1581
1582#if RK4_ENABLED
1583 PURE elemental module subroutine setGeomCyclicLogCDFDef_D0_RK_RK4(logCDF, stepSuccess, logProbSuccess, period)
1584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1585 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D0_RK_RK4
1586#endif
1587 use pm_kind, only: RKG => RK4
1588 integer(IK) , intent(in) :: period
1589 real(RKG) , intent(in) :: stepSuccess
1590 real(RKG) , intent(in) :: logProbSuccess
1591 real(RKG) , intent(out) :: logCDF
1592 end subroutine
1593#endif
1594
1595#if RK3_ENABLED
1596 PURE elemental module subroutine setGeomCyclicLogCDFDef_D0_RK_RK3(logCDF, stepSuccess, logProbSuccess, period)
1597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1598 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D0_RK_RK3
1599#endif
1600 use pm_kind, only: RKG => RK3
1601 integer(IK) , intent(in) :: period
1602 real(RKG) , intent(in) :: stepSuccess
1603 real(RKG) , intent(in) :: logProbSuccess
1604 real(RKG) , intent(out) :: logCDF
1605 end subroutine
1606#endif
1607
1608#if RK2_ENABLED
1609 PURE elemental module subroutine setGeomCyclicLogCDFDef_D0_RK_RK2(logCDF, stepSuccess, logProbSuccess, period)
1610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1611 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D0_RK_RK2
1612#endif
1613 use pm_kind, only: RKG => RK2
1614 integer(IK) , intent(in) :: period
1615 real(RKG) , intent(in) :: stepSuccess
1616 real(RKG) , intent(in) :: logProbSuccess
1617 real(RKG) , intent(out) :: logCDF
1618 end subroutine
1619#endif
1620
1621#if RK1_ENABLED
1622 PURE elemental module subroutine setGeomCyclicLogCDFDef_D0_RK_RK1(logCDF, stepSuccess, logProbSuccess, period)
1623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1624 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D0_RK_RK1
1625#endif
1626 use pm_kind, only: RKG => RK1
1627 integer(IK) , intent(in) :: period
1628 real(RKG) , intent(in) :: stepSuccess
1629 real(RKG) , intent(in) :: logProbSuccess
1630 real(RKG) , intent(out) :: logCDF
1631 end subroutine
1632#endif
1633
1634 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1635
1636#if RK5_ENABLED
1637 PURE elemental module subroutine setGeomCyclicLogCDFLog_D0_RK_RK5(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1639 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D0_RK_RK5
1640#endif
1641 use pm_kind, only: RKG => RK5
1642 integer(IK) , intent(in) :: period
1643 real(RKG) , intent(in) :: stepSuccess
1644 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1645 real(RKG) , intent(out) :: logCDF
1646 end subroutine
1647#endif
1648
1649#if RK4_ENABLED
1650 PURE elemental module subroutine setGeomCyclicLogCDFLog_D0_RK_RK4(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1652 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D0_RK_RK4
1653#endif
1654 use pm_kind, only: RKG => RK4
1655 integer(IK) , intent(in) :: period
1656 real(RKG) , intent(in) :: stepSuccess
1657 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1658 real(RKG) , intent(out) :: logCDF
1659 end subroutine
1660#endif
1661
1662#if RK3_ENABLED
1663 PURE elemental module subroutine setGeomCyclicLogCDFLog_D0_RK_RK3(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1665 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D0_RK_RK3
1666#endif
1667 use pm_kind, only: RKG => RK3
1668 integer(IK) , intent(in) :: period
1669 real(RKG) , intent(in) :: stepSuccess
1670 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1671 real(RKG) , intent(out) :: logCDF
1672 end subroutine
1673#endif
1674
1675#if RK2_ENABLED
1676 PURE elemental module subroutine setGeomCyclicLogCDFLog_D0_RK_RK2(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1678 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D0_RK_RK2
1679#endif
1680 use pm_kind, only: RKG => RK2
1681 integer(IK) , intent(in) :: period
1682 real(RKG) , intent(in) :: stepSuccess
1683 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1684 real(RKG) , intent(out) :: logCDF
1685 end subroutine
1686#endif
1687
1688#if RK1_ENABLED
1689 PURE elemental module subroutine setGeomCyclicLogCDFLog_D0_RK_RK1(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1691 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D0_RK_RK1
1692#endif
1693 use pm_kind, only: RKG => RK1
1694 integer(IK) , intent(in) :: period
1695 real(RKG) , intent(in) :: stepSuccess
1696 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1697 real(RKG) , intent(out) :: logCDF
1698 end subroutine
1699#endif
1700
1701 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1702
1703 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1704 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1705 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1706
1707 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1708
1709#if RK5_ENABLED
1710 PURE module subroutine setGeomCyclicLogCDFDef_D1_RK_RK5(logCDF, stepSuccess, logProbSuccess, period)
1711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1712 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D1_RK_RK5
1713#endif
1714 use pm_kind, only: RKG => RK5
1715 integer(IK) , intent(in) :: period
1716 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
1717 real(RKG) , intent(in) :: logProbSuccess
1718 real(RKG) , intent(out) , contiguous :: logCDF(:)
1719 end subroutine
1720#endif
1721
1722#if RK4_ENABLED
1723 PURE module subroutine setGeomCyclicLogCDFDef_D1_RK_RK4(logCDF, stepSuccess, logProbSuccess, period)
1724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1725 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D1_RK_RK4
1726#endif
1727 use pm_kind, only: RKG => RK4
1728 integer(IK) , intent(in) :: period
1729 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
1730 real(RKG) , intent(in) :: logProbSuccess
1731 real(RKG) , intent(out) , contiguous :: logCDF(:)
1732 end subroutine
1733#endif
1734
1735#if RK3_ENABLED
1736 PURE module subroutine setGeomCyclicLogCDFDef_D1_RK_RK3(logCDF, stepSuccess, logProbSuccess, period)
1737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1738 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D1_RK_RK3
1739#endif
1740 use pm_kind, only: RKG => RK3
1741 integer(IK) , intent(in) :: period
1742 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
1743 real(RKG) , intent(in) :: logProbSuccess
1744 real(RKG) , intent(out) , contiguous :: logCDF(:)
1745 end subroutine
1746#endif
1747
1748#if RK2_ENABLED
1749 PURE module subroutine setGeomCyclicLogCDFDef_D1_RK_RK2(logCDF, stepSuccess, logProbSuccess, period)
1750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1751 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D1_RK_RK2
1752#endif
1753 use pm_kind, only: RKG => RK2
1754 integer(IK) , intent(in) :: period
1755 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
1756 real(RKG) , intent(in) :: logProbSuccess
1757 real(RKG) , intent(out) , contiguous :: logCDF(:)
1758 end subroutine
1759#endif
1760
1761#if RK1_ENABLED
1762 PURE module subroutine setGeomCyclicLogCDFDef_D1_RK_RK1(logCDF, stepSuccess, logProbSuccess, period)
1763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1764 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFDef_D1_RK_RK1
1765#endif
1766 use pm_kind, only: RKG => RK1
1767 integer(IK) , intent(in) :: period
1768 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
1769 real(RKG) , intent(in) :: logProbSuccess
1770 real(RKG) , intent(out) , contiguous :: logCDF(:)
1771 end subroutine
1772#endif
1773
1774 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1775
1776#if RK5_ENABLED
1777 PURE module subroutine setGeomCyclicLogCDFLog_D1_RK_RK5(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1779 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D1_RK_RK5
1780#endif
1781 use pm_kind, only: RKG => RK5
1782 integer(IK) , intent(in) :: period
1783 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
1784 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1785 real(RKG) , intent(out) , contiguous :: logCDF(:)
1786 end subroutine
1787#endif
1788
1789#if RK4_ENABLED
1790 PURE module subroutine setGeomCyclicLogCDFLog_D1_RK_RK4(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1792 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D1_RK_RK4
1793#endif
1794 use pm_kind, only: RKG => RK4
1795 integer(IK) , intent(in) :: period
1796 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
1797 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1798 real(RKG) , intent(out) , contiguous :: logCDF(:)
1799 end subroutine
1800#endif
1801
1802#if RK3_ENABLED
1803 PURE module subroutine setGeomCyclicLogCDFLog_D1_RK_RK3(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1805 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D1_RK_RK3
1806#endif
1807 use pm_kind, only: RKG => RK3
1808 integer(IK) , intent(in) :: period
1809 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
1810 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1811 real(RKG) , intent(out) , contiguous :: logCDF(:)
1812 end subroutine
1813#endif
1814
1815#if RK2_ENABLED
1816 PURE module subroutine setGeomCyclicLogCDFLog_D1_RK_RK2(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1818 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D1_RK_RK2
1819#endif
1820 use pm_kind, only: RKG => RK2
1821 integer(IK) , intent(in) :: period
1822 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
1823 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1824 real(RKG) , intent(out) , contiguous :: logCDF(:)
1825 end subroutine
1826#endif
1827
1828#if RK1_ENABLED
1829 PURE module subroutine setGeomCyclicLogCDFLog_D1_RK_RK1(logCDF, stepSuccess, logProbSuccess, logProbFailure, period)
1830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1831 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicLogCDFLog_D1_RK_RK1
1832#endif
1833 use pm_kind, only: RKG => RK1
1834 integer(IK) , intent(in) :: period
1835 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
1836 real(RKG) , intent(in) :: logProbSuccess, logProbFailure
1837 real(RKG) , intent(out) , contiguous :: logCDF(:)
1838 end subroutine
1839#endif
1840
1841 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1842
1843 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1844 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1845 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1846
1847 end interface
1848
1849!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1850
1908 interface getGeomCyclicRand
1909
1910 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1911
1912#if RK5_ENABLED
1913 impure elemental module function getGeomCyclicRand_RK5(probSuccess, period) result(rand)
1914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1915 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicRand_RK5
1916#endif
1917 use pm_kind, only: RKG => RK5
1918 integer(IK) :: rand
1919 integer(IK) , intent(in) :: period
1920 real(RKG) , intent(in) :: probSuccess
1921 end function
1922#endif
1923
1924#if RK4_ENABLED
1925 impure elemental module function getGeomCyclicRand_RK4(probSuccess, period) result(rand)
1926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1927 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicRand_RK4
1928#endif
1929 use pm_kind, only: RKG => RK4
1930 integer(IK) :: rand
1931 integer(IK) , intent(in) :: period
1932 real(RKG) , intent(in) :: probSuccess
1933 end function
1934#endif
1935
1936#if RK3_ENABLED
1937 impure elemental module function getGeomCyclicRand_RK3(probSuccess, period) result(rand)
1938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1939 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicRand_RK3
1940#endif
1941 use pm_kind, only: RKG => RK3
1942 integer(IK) :: rand
1943 integer(IK) , intent(in) :: period
1944 real(RKG) , intent(in) :: probSuccess
1945 end function
1946#endif
1947
1948#if RK2_ENABLED
1949 impure elemental module function getGeomCyclicRand_RK2(probSuccess, period) result(rand)
1950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1951 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicRand_RK2
1952#endif
1953 use pm_kind, only: RKG => RK2
1954 integer(IK) :: rand
1955 integer(IK) , intent(in) :: period
1956 real(RKG) , intent(in) :: probSuccess
1957 end function
1958#endif
1959
1960#if RK1_ENABLED
1961 impure elemental module function getGeomCyclicRand_RK1(probSuccess, period) result(rand)
1962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1963 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCyclicRand_RK1
1964#endif
1965 use pm_kind, only: RKG => RK1
1966 integer(IK) :: rand
1967 integer(IK) , intent(in) :: period
1968 real(RKG) , intent(in) :: probSuccess
1969 end function
1970#endif
1971
1972 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1973
1974 end interface
1975
1976!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1977
2049 interface setGeomCyclicRand
2050
2051 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2052 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2053 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2054
2055 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2056
2057#if RK5_ENABLED
2058 impure elemental module subroutine setGeomCyclicRandRNGD_D0_RK5(rand, logProbFailure, period)
2059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2060 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGD_D0_RK5
2061#endif
2062 use pm_kind, only: RKG => RK5
2063 integer(IK) , intent(out) :: rand
2064 integer(IK) , intent(in) :: period
2065 real(RKG) , intent(in) :: logProbFailure
2066 end subroutine
2067#endif
2068
2069#if RK4_ENABLED
2070 impure elemental module subroutine setGeomCyclicRandRNGD_D0_RK4(rand, logProbFailure, period)
2071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2072 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGD_D0_RK4
2073#endif
2074 use pm_kind, only: RKG => RK4
2075 integer(IK) , intent(out) :: rand
2076 integer(IK) , intent(in) :: period
2077 real(RKG) , intent(in) :: logProbFailure
2078 end subroutine
2079#endif
2080
2081#if RK3_ENABLED
2082 impure elemental module subroutine setGeomCyclicRandRNGD_D0_RK3(rand, logProbFailure, period)
2083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2084 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGD_D0_RK3
2085#endif
2086 use pm_kind, only: RKG => RK3
2087 integer(IK) , intent(out) :: rand
2088 integer(IK) , intent(in) :: period
2089 real(RKG) , intent(in) :: logProbFailure
2090 end subroutine
2091#endif
2092
2093#if RK2_ENABLED
2094 impure elemental module subroutine setGeomCyclicRandRNGD_D0_RK2(rand, logProbFailure, period)
2095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2096 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGD_D0_RK2
2097#endif
2098 use pm_kind, only: RKG => RK2
2099 integer(IK) , intent(out) :: rand
2100 integer(IK) , intent(in) :: period
2101 real(RKG) , intent(in) :: logProbFailure
2102 end subroutine
2103#endif
2104
2105#if RK1_ENABLED
2106 impure elemental module subroutine setGeomCyclicRandRNGD_D0_RK1(rand, logProbFailure, period)
2107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2108 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGD_D0_RK1
2109#endif
2110 use pm_kind, only: RKG => RK1
2111 integer(IK) , intent(out) :: rand
2112 integer(IK) , intent(in) :: period
2113 real(RKG) , intent(in) :: logProbFailure
2114 end subroutine
2115#endif
2116
2117 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2118
2119#if RK5_ENABLED
2120 impure elemental module subroutine setGeomCyclicRandRNGF_D0_RK5(rng, rand, logProbFailure, period)
2121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2122 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGF_D0_RK5
2123#endif
2124 use pm_kind, only: RKG => RK5
2125 type(rngf_type) , intent(in) :: rng
2126 integer(IK) , intent(out) :: rand
2127 integer(IK) , intent(in) :: period
2128 real(RKG) , intent(in) :: logProbFailure
2129 end subroutine
2130#endif
2131
2132#if RK4_ENABLED
2133 impure elemental module subroutine setGeomCyclicRandRNGF_D0_RK4(rng, rand, logProbFailure, period)
2134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2135 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGF_D0_RK4
2136#endif
2137 use pm_kind, only: RKG => RK4
2138 type(rngf_type) , intent(in) :: rng
2139 integer(IK) , intent(out) :: rand
2140 integer(IK) , intent(in) :: period
2141 real(RKG) , intent(in) :: logProbFailure
2142 end subroutine
2143#endif
2144
2145#if RK3_ENABLED
2146 impure elemental module subroutine setGeomCyclicRandRNGF_D0_RK3(rng, rand, logProbFailure, period)
2147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2148 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGF_D0_RK3
2149#endif
2150 use pm_kind, only: RKG => RK3
2151 type(rngf_type) , intent(in) :: rng
2152 integer(IK) , intent(out) :: rand
2153 integer(IK) , intent(in) :: period
2154 real(RKG) , intent(in) :: logProbFailure
2155 end subroutine
2156#endif
2157
2158#if RK2_ENABLED
2159 impure elemental module subroutine setGeomCyclicRandRNGF_D0_RK2(rng, rand, logProbFailure, period)
2160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2161 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGF_D0_RK2
2162#endif
2163 use pm_kind, only: RKG => RK2
2164 type(rngf_type) , intent(in) :: rng
2165 integer(IK) , intent(out) :: rand
2166 integer(IK) , intent(in) :: period
2167 real(RKG) , intent(in) :: logProbFailure
2168 end subroutine
2169#endif
2170
2171#if RK1_ENABLED
2172 impure elemental module subroutine setGeomCyclicRandRNGF_D0_RK1(rng, rand, logProbFailure, period)
2173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2174 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGF_D0_RK1
2175#endif
2176 use pm_kind, only: RKG => RK1
2177 type(rngf_type) , intent(in) :: rng
2178 integer(IK) , intent(out) :: rand
2179 integer(IK) , intent(in) :: period
2180 real(RKG) , intent(in) :: logProbFailure
2181 end subroutine
2182#endif
2183
2184 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2185
2186#if RK5_ENABLED
2187 PURE elemental module subroutine setGeomCyclicRandRNGX_D0_RK5(rng, rand, logProbFailure, period)
2188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2189 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGX_D0_RK5
2190#endif
2191 use pm_kind, only: RKG => RK5
2192 type(xoshiro256ssw_type), intent(inout) :: rng
2193 integer(IK) , intent(out) :: rand
2194 integer(IK) , intent(in) :: period
2195 real(RKG) , intent(in) :: logProbFailure
2196 end subroutine
2197#endif
2198
2199#if RK4_ENABLED
2200 PURE elemental module subroutine setGeomCyclicRandRNGX_D0_RK4(rng, rand, logProbFailure, period)
2201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2202 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGX_D0_RK4
2203#endif
2204 use pm_kind, only: RKG => RK4
2205 type(xoshiro256ssw_type), intent(inout) :: rng
2206 integer(IK) , intent(out) :: rand
2207 integer(IK) , intent(in) :: period
2208 real(RKG) , intent(in) :: logProbFailure
2209 end subroutine
2210#endif
2211
2212#if RK3_ENABLED
2213 PURE elemental module subroutine setGeomCyclicRandRNGX_D0_RK3(rng, rand, logProbFailure, period)
2214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2215 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGX_D0_RK3
2216#endif
2217 use pm_kind, only: RKG => RK3
2218 type(xoshiro256ssw_type), intent(inout) :: rng
2219 integer(IK) , intent(out) :: rand
2220 integer(IK) , intent(in) :: period
2221 real(RKG) , intent(in) :: logProbFailure
2222 end subroutine
2223#endif
2224
2225#if RK2_ENABLED
2226 PURE elemental module subroutine setGeomCyclicRandRNGX_D0_RK2(rng, rand, logProbFailure, period)
2227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2228 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGX_D0_RK2
2229#endif
2230 use pm_kind, only: RKG => RK2
2231 type(xoshiro256ssw_type), intent(inout) :: rng
2232 integer(IK) , intent(out) :: rand
2233 integer(IK) , intent(in) :: period
2234 real(RKG) , intent(in) :: logProbFailure
2235 end subroutine
2236#endif
2237
2238#if RK1_ENABLED
2239 PURE elemental module subroutine setGeomCyclicRandRNGX_D0_RK1(rng, rand, logProbFailure, period)
2240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2241 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGX_D0_RK1
2242#endif
2243 use pm_kind, only: RKG => RK1
2244 type(xoshiro256ssw_type), intent(inout) :: rng
2245 integer(IK) , intent(out) :: rand
2246 integer(IK) , intent(in) :: period
2247 real(RKG) , intent(in) :: logProbFailure
2248 end subroutine
2249#endif
2250
2251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2252
2253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2254 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2256
2257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2258
2259#if RK5_ENABLED
2260 module subroutine setGeomCyclicRandRNGD_D1_RK5(rand, logProbFailure, period)
2261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2262 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGD_D1_RK5
2263#endif
2264 use pm_kind, only: RKG => RK5
2265 integer(IK) , intent(out) :: rand(:)
2266 integer(IK) , intent(in) :: period
2267 real(RKG) , intent(in) :: logProbFailure
2268 end subroutine
2269#endif
2270
2271#if RK4_ENABLED
2272 module subroutine setGeomCyclicRandRNGD_D1_RK4(rand, logProbFailure, period)
2273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2274 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGD_D1_RK4
2275#endif
2276 use pm_kind, only: RKG => RK4
2277 integer(IK) , intent(out) :: rand(:)
2278 integer(IK) , intent(in) :: period
2279 real(RKG) , intent(in) :: logProbFailure
2280 end subroutine
2281#endif
2282
2283#if RK3_ENABLED
2284 module subroutine setGeomCyclicRandRNGD_D1_RK3(rand, logProbFailure, period)
2285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2286 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGD_D1_RK3
2287#endif
2288 use pm_kind, only: RKG => RK3
2289 integer(IK) , intent(out) :: rand(:)
2290 integer(IK) , intent(in) :: period
2291 real(RKG) , intent(in) :: logProbFailure
2292 end subroutine
2293#endif
2294
2295#if RK2_ENABLED
2296 module subroutine setGeomCyclicRandRNGD_D1_RK2(rand, logProbFailure, period)
2297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2298 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGD_D1_RK2
2299#endif
2300 use pm_kind, only: RKG => RK2
2301 integer(IK) , intent(out) :: rand(:)
2302 integer(IK) , intent(in) :: period
2303 real(RKG) , intent(in) :: logProbFailure
2304 end subroutine
2305#endif
2306
2307#if RK1_ENABLED
2308 module subroutine setGeomCyclicRandRNGD_D1_RK1(rand, logProbFailure, period)
2309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2310 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGD_D1_RK1
2311#endif
2312 use pm_kind, only: RKG => RK1
2313 integer(IK) , intent(out) :: rand(:)
2314 integer(IK) , intent(in) :: period
2315 real(RKG) , intent(in) :: logProbFailure
2316 end subroutine
2317#endif
2318
2319 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2320
2321#if RK5_ENABLED
2322 module subroutine setGeomCyclicRandRNGF_D1_RK5(rng, rand, logProbFailure, period)
2323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2324 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGF_D1_RK5
2325#endif
2326 use pm_kind, only: RKG => RK5
2327 type(rngf_type) , intent(in) :: rng
2328 integer(IK) , intent(out) :: rand(:)
2329 integer(IK) , intent(in) :: period
2330 real(RKG) , intent(in) :: logProbFailure
2331 end subroutine
2332#endif
2333
2334#if RK4_ENABLED
2335 module subroutine setGeomCyclicRandRNGF_D1_RK4(rng, rand, logProbFailure, period)
2336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2337 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGF_D1_RK4
2338#endif
2339 use pm_kind, only: RKG => RK4
2340 type(rngf_type) , intent(in) :: rng
2341 integer(IK) , intent(out) :: rand(:)
2342 integer(IK) , intent(in) :: period
2343 real(RKG) , intent(in) :: logProbFailure
2344 end subroutine
2345#endif
2346
2347#if RK3_ENABLED
2348 module subroutine setGeomCyclicRandRNGF_D1_RK3(rng, rand, logProbFailure, period)
2349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2350 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGF_D1_RK3
2351#endif
2352 use pm_kind, only: RKG => RK3
2353 type(rngf_type) , intent(in) :: rng
2354 integer(IK) , intent(out) :: rand(:)
2355 integer(IK) , intent(in) :: period
2356 real(RKG) , intent(in) :: logProbFailure
2357 end subroutine
2358#endif
2359
2360#if RK2_ENABLED
2361 module subroutine setGeomCyclicRandRNGF_D1_RK2(rng, rand, logProbFailure, period)
2362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2363 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGF_D1_RK2
2364#endif
2365 use pm_kind, only: RKG => RK2
2366 type(rngf_type) , intent(in) :: rng
2367 integer(IK) , intent(out) :: rand(:)
2368 integer(IK) , intent(in) :: period
2369 real(RKG) , intent(in) :: logProbFailure
2370 end subroutine
2371#endif
2372
2373#if RK1_ENABLED
2374 module subroutine setGeomCyclicRandRNGF_D1_RK1(rng, rand, logProbFailure, period)
2375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2376 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGF_D1_RK1
2377#endif
2378 use pm_kind, only: RKG => RK1
2379 type(rngf_type) , intent(in) :: rng
2380 integer(IK) , intent(out) :: rand(:)
2381 integer(IK) , intent(in) :: period
2382 real(RKG) , intent(in) :: logProbFailure
2383 end subroutine
2384#endif
2385
2386 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2387
2388#if RK5_ENABLED
2389 PURE module subroutine setGeomCyclicRandRNGX_D1_RK5(rng, rand, logProbFailure, period)
2390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2391 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGX_D1_RK5
2392#endif
2393 use pm_kind, only: RKG => RK5
2394 type(xoshiro256ssw_type), intent(inout) :: rng
2395 integer(IK) , intent(out) :: rand(:)
2396 integer(IK) , intent(in) :: period
2397 real(RKG) , intent(in) :: logProbFailure
2398 end subroutine
2399#endif
2400
2401#if RK4_ENABLED
2402 PURE module subroutine setGeomCyclicRandRNGX_D1_RK4(rng, rand, logProbFailure, period)
2403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2404 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGX_D1_RK4
2405#endif
2406 use pm_kind, only: RKG => RK4
2407 type(xoshiro256ssw_type), intent(inout) :: rng
2408 integer(IK) , intent(out) :: rand(:)
2409 integer(IK) , intent(in) :: period
2410 real(RKG) , intent(in) :: logProbFailure
2411 end subroutine
2412#endif
2413
2414#if RK3_ENABLED
2415 PURE module subroutine setGeomCyclicRandRNGX_D1_RK3(rng, rand, logProbFailure, period)
2416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2417 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGX_D1_RK3
2418#endif
2419 use pm_kind, only: RKG => RK3
2420 type(xoshiro256ssw_type), intent(inout) :: rng
2421 integer(IK) , intent(out) :: rand(:)
2422 integer(IK) , intent(in) :: period
2423 real(RKG) , intent(in) :: logProbFailure
2424 end subroutine
2425#endif
2426
2427#if RK2_ENABLED
2428 PURE module subroutine setGeomCyclicRandRNGX_D1_RK2(rng, rand, logProbFailure, period)
2429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2430 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGX_D1_RK2
2431#endif
2432 use pm_kind, only: RKG => RK2
2433 type(xoshiro256ssw_type), intent(inout) :: rng
2434 integer(IK) , intent(out) :: rand(:)
2435 integer(IK) , intent(in) :: period
2436 real(RKG) , intent(in) :: logProbFailure
2437 end subroutine
2438#endif
2439
2440#if RK1_ENABLED
2441 PURE module subroutine setGeomCyclicRandRNGX_D1_RK1(rng, rand, logProbFailure, period)
2442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2443 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCyclicRandRNGX_D1_RK1
2444#endif
2445 use pm_kind, only: RKG => RK1
2446 type(xoshiro256ssw_type), intent(inout) :: rng
2447 integer(IK) , intent(out) :: rand(:)
2448 integer(IK) , intent(in) :: period
2449 real(RKG) , intent(in) :: logProbFailure
2450 end subroutine
2451#endif
2452
2453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2454
2455 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2456 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2457 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2458
2459 end interface
2460
2461!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2462
2553 ! \param[in] freqSuccess : The input `contiguous` non-negative vector of the same type, kind, and size as the input `stepSuccess`,
2554 ! containing the contribution frequencies at the corresponding `stepSuccess` in the histogram.<br>
2555 interface isFailedGeomCyclicFit
2556
2557 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2558
2559#if RK5_ENABLED
2560 impure module function isFailedGeomCyclicFit_IK_RK5(stepSuccess, freqSuccess, period, probSuccess, normFac) result(failed)
2561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2562 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGeomCyclicFit_IK_RK5
2563#endif
2564 use pm_kind, only: RKG => RK5
2565 integer(IK) , intent(in) :: period
2566 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
2567 integer(IK) , intent(in) , contiguous :: freqSuccess(:)
2568 real(RKG) , intent(out) :: probSuccess, normFac
2569 logical(LK) :: failed
2570 end function
2571#endif
2572
2573#if RK4_ENABLED
2574 impure module function isFailedGeomCyclicFit_IK_RK4(stepSuccess, freqSuccess, period, probSuccess, normFac) result(failed)
2575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2576 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGeomCyclicFit_IK_RK4
2577#endif
2578 use pm_kind, only: RKG => RK4
2579 integer(IK) , intent(in) :: period
2580 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
2581 integer(IK) , intent(in) , contiguous :: freqSuccess(:)
2582 real(RKG) , intent(out) :: probSuccess, normFac
2583 logical(LK) :: failed
2584 end function
2585#endif
2586
2587#if RK3_ENABLED
2588 impure module function isFailedGeomCyclicFit_IK_RK3(stepSuccess, freqSuccess, period, probSuccess, normFac) result(failed)
2589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2590 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGeomCyclicFit_IK_RK3
2591#endif
2592 use pm_kind, only: RKG => RK3
2593 integer(IK) , intent(in) :: period
2594 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
2595 integer(IK) , intent(in) , contiguous :: freqSuccess(:)
2596 real(RKG) , intent(out) :: probSuccess, normFac
2597 logical(LK) :: failed
2598 end function
2599#endif
2600
2601#if RK2_ENABLED
2602 impure module function isFailedGeomCyclicFit_IK_RK2(stepSuccess, freqSuccess, period, probSuccess, normFac) result(failed)
2603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2604 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGeomCyclicFit_IK_RK2
2605#endif
2606 use pm_kind, only: RKG => RK2
2607 integer(IK) , intent(in) :: period
2608 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
2609 integer(IK) , intent(in) , contiguous :: freqSuccess(:)
2610 real(RKG) , intent(out) :: probSuccess, normFac
2611 logical(LK) :: failed
2612 end function
2613#endif
2614
2615#if RK1_ENABLED
2616 impure module function isFailedGeomCyclicFit_IK_RK1(stepSuccess, freqSuccess, period, probSuccess, normFac) result(failed)
2617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2618 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGeomCyclicFit_IK_RK1
2619#endif
2620 use pm_kind, only: RKG => RK1
2621 integer(IK) , intent(in) :: period
2622 integer(IK) , intent(in) , contiguous :: stepSuccess(:)
2623 integer(IK) , intent(in) , contiguous :: freqSuccess(:)
2624 real(RKG) , intent(out) :: probSuccess, normFac
2625 logical(LK) :: failed
2626 end function
2627#endif
2628
2629 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2630
2631#if RK5_ENABLED
2632 impure module function isFailedGeomCyclicFit_RK_RK5(stepSuccess, freqSuccess, period, probSuccess, normFac) result(failed)
2633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2634 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGeomCyclicFit_RK_RK5
2635#endif
2636 use pm_kind, only: RKG => RK5
2637 integer(IK) , intent(in) :: period
2638 integer(IK) , intent(in) , contiguous :: freqSuccess(:)
2639 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
2640 real(RKG) , intent(out) :: probSuccess, normFac
2641 logical(LK) :: failed
2642 end function
2643#endif
2644
2645#if RK4_ENABLED
2646 impure module function isFailedGeomCyclicFit_RK_RK4(stepSuccess, freqSuccess, period, probSuccess, normFac) result(failed)
2647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2648 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGeomCyclicFit_RK_RK4
2649#endif
2650 use pm_kind, only: RKG => RK4
2651 integer(IK) , intent(in) :: period
2652 integer(IK) , intent(in) , contiguous :: freqSuccess(:)
2653 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
2654 real(RKG) , intent(out) :: probSuccess, normFac
2655 logical(LK) :: failed
2656 end function
2657#endif
2658
2659#if RK3_ENABLED
2660 impure module function isFailedGeomCyclicFit_RK_RK3(stepSuccess, freqSuccess, period, probSuccess, normFac) result(failed)
2661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2662 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGeomCyclicFit_RK_RK3
2663#endif
2664 use pm_kind, only: RKG => RK3
2665 integer(IK) , intent(in) :: period
2666 integer(IK) , intent(in) , contiguous :: freqSuccess(:)
2667 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
2668 real(RKG) , intent(out) :: probSuccess, normFac
2669 logical(LK) :: failed
2670 end function
2671#endif
2672
2673#if RK2_ENABLED
2674 impure module function isFailedGeomCyclicFit_RK_RK2(stepSuccess, freqSuccess, period, probSuccess, normFac) result(failed)
2675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2676 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGeomCyclicFit_RK_RK2
2677#endif
2678 use pm_kind, only: RKG => RK2
2679 integer(IK) , intent(in) :: period
2680 integer(IK) , intent(in) , contiguous :: freqSuccess(:)
2681 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
2682 real(RKG) , intent(out) :: probSuccess, normFac
2683 logical(LK) :: failed
2684 end function
2685#endif
2686
2687#if RK1_ENABLED
2688 impure module function isFailedGeomCyclicFit_RK_RK1(stepSuccess, freqSuccess, period, probSuccess, normFac) result(failed)
2689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2690 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedGeomCyclicFit_RK_RK1
2691#endif
2692 use pm_kind, only: RKG => RK1
2693 integer(IK) , intent(in) :: period
2694 integer(IK) , intent(in) , contiguous :: freqSuccess(:)
2695 real(RKG) , intent(in) , contiguous :: stepSuccess(:)
2696 real(RKG) , intent(out) :: probSuccess, normFac
2697 logical(LK) :: failed
2698 end function
2699#endif
2700
2701 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2702
2703 end interface
2704
2705!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2706
2707end module pm_distGeomCyclic
pm_distGeomCyclic::getGeomCyclicLogCDF
Generate and return the natural logarithm of the Cumulative Distribution Function (CDF) of the Cyclic...
Definition: pm_distGeomCyclic.F90:1056
pm_distGeomCyclic::getGeomCyclicLogPMF
Generate and return the natural logarithm of the Probability Mass Function (PMF) of the Cyclic Geomet...
Definition: pm_distGeomCyclic.F90:198
pm_distGeomCyclic::getGeomCyclicRand
Generate and return a scalar (or array of arbitrary rank of) random value(s) from the Cyclic Geometri...
Definition: pm_distGeomCyclic.F90:1908
pm_distGeomCyclic::isFailedGeomCyclicFit
Generate and return .true. if the parameters of a least-squares fit to the histogram representing a C...
Definition: pm_distGeomCyclic.F90:2555
pm_distGeomCyclic::setGeomCyclicLogCDF
Return the natural logarithm of the Cumulative Distribution Function (CDF) of the Cyclic Geometric di...
Definition: pm_distGeomCyclic.F90:1274
pm_distGeomCyclic::setGeomCyclicLogPMF
Return the natural logarithm of the Probability Mass Function (PMF) of the Cyclic Geometric distribut...
Definition: pm_distGeomCyclic.F90:413
pm_distGeomCyclic::setGeomCyclicRand
Return a scalar (or array of arbitrary rank of) random value(s) from the Cyclic Geometric distributio...
Definition: pm_distGeomCyclic.F90:2049
pm_distGeomCyclic
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distGeomCyclic.F90:80
pm_distGeomCyclic::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_distGeomCyclic.F90:87
pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::RK5
integer, parameter RK5
Definition: pm_kind.F90:478
pm_kind::RK4
integer, parameter RK4
Definition: pm_kind.F90:489
pm_kind::RK2
integer, parameter RK2
Definition: pm_kind.F90:511
pm_kind::RK3
integer, parameter RK3
Definition: pm_kind.F90:500
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RK1
integer, parameter RK1
Definition: pm_kind.F90:522
pm_distGeomCyclic::distGeomCyclic_type
This is the derived type for signifying distributions that are of type Cyclic Geometric as defined in...
Definition: pm_distGeomCyclic.F90:124
pm_distUnif::rngf_type
This is a concrete derived type whose instances can be used to define/request the default uniform ran...
Definition: pm_distUnif.F90:2837
pm_distUnif::xoshiro256ssw_type
This is the derived type for declaring and generating objects of type xoshiro256ssw_type containing a...
Definition: pm_distUnif.F90:3154