ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_mathGammaNR.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
85
87
88 use pm_kind, only: SK, IK, LK
89
90 implicit none
91
92 character(*, SK), parameter :: MODULE_NAME = "@pm_mathGammaNR"
93
94!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
95
179
180 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
181
182#if RK5_ENABLED
183 impure elemental module function getGammaIncLowNR_RK5(x, kappa, tol) result(gammaIncLow)
184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
185 !DEC$ ATTRIBUTES DLLEXPORT :: getGammaIncLowNR_RK5
186#endif
187 use pm_kind, only: RKG => RK5
188 real(RKG) , intent(in) :: x, kappa
189 real(RKG) , intent(in) , optional :: tol
190 real(RKG) :: gammaIncLow
191 end function
192#endif
193
194#if RK4_ENABLED
195 impure elemental module function getGammaIncLowNR_RK4(x, kappa, tol) result(gammaIncLow)
196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
197 !DEC$ ATTRIBUTES DLLEXPORT :: getGammaIncLowNR_RK4
198#endif
199 use pm_kind, only: RKG => RK4
200 real(RKG) , intent(in) :: x, kappa
201 real(RKG) , intent(in) , optional :: tol
202 real(RKG) :: gammaIncLow
203 end function
204#endif
205
206#if RK3_ENABLED
207 impure elemental module function getGammaIncLowNR_RK3(x, kappa, tol) result(gammaIncLow)
208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
209 !DEC$ ATTRIBUTES DLLEXPORT :: getGammaIncLowNR_RK3
210#endif
211 use pm_kind, only: RKG => RK3
212 real(RKG) , intent(in) :: x, kappa
213 real(RKG) , intent(in) , optional :: tol
214 real(RKG) :: gammaIncLow
215 end function
216#endif
217
218#if RK2_ENABLED
219 impure elemental module function getGammaIncLowNR_RK2(x, kappa, tol) result(gammaIncLow)
220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
221 !DEC$ ATTRIBUTES DLLEXPORT :: getGammaIncLowNR_RK2
222#endif
223 use pm_kind, only: RKG => RK2
224 real(RKG) , intent(in) :: x, kappa
225 real(RKG) , intent(in) , optional :: tol
226 real(RKG) :: gammaIncLow
227 end function
228#endif
229
230#if RK1_ENABLED
231 impure elemental module function getGammaIncLowNR_RK1(x, kappa, tol) result(gammaIncLow)
232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
233 !DEC$ ATTRIBUTES DLLEXPORT :: getGammaIncLowNR_RK1
234#endif
235 use pm_kind, only: RKG => RK1
236 real(RKG) , intent(in) :: x, kappa
237 real(RKG) , intent(in) , optional :: tol
238 real(RKG) :: gammaIncLow
239 end function
240#endif
241
242 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
243
244 end interface
245
246!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247
327
328 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
329
330#if RK5_ENABLED
331 impure elemental module function getGammaIncUppNR_RK5(x, kappa, tol) result(gammaIncUpp)
332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
333 !DEC$ ATTRIBUTES DLLEXPORT :: getGammaIncUppNR_RK5
334#endif
335 use pm_kind, only: RKG => RK5
336 real(RKG) , intent(in) :: x, kappa
337 real(RKG) , intent(in) , optional :: tol
338 real(RKG) :: gammaIncUpp
339 end function
340#endif
341
342#if RK4_ENABLED
343 impure elemental module function getGammaIncUppNR_RK4(x, kappa, tol) result(gammaIncUpp)
344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
345 !DEC$ ATTRIBUTES DLLEXPORT :: getGammaIncUppNR_RK4
346#endif
347 use pm_kind, only: RKG => RK4
348 real(RKG) , intent(in) :: x, kappa
349 real(RKG) , intent(in) , optional :: tol
350 real(RKG) :: gammaIncUpp
351 end function
352#endif
353
354#if RK3_ENABLED
355 impure elemental module function getGammaIncUppNR_RK3(x, kappa, tol) result(gammaIncUpp)
356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
357 !DEC$ ATTRIBUTES DLLEXPORT :: getGammaIncUppNR_RK3
358#endif
359 use pm_kind, only: RKG => RK3
360 real(RKG) , intent(in) :: x, kappa
361 real(RKG) , intent(in) , optional :: tol
362 real(RKG) :: gammaIncUpp
363 end function
364#endif
365
366#if RK2_ENABLED
367 impure elemental module function getGammaIncUppNR_RK2(x, kappa, tol) result(gammaIncUpp)
368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
369 !DEC$ ATTRIBUTES DLLEXPORT :: getGammaIncUppNR_RK2
370#endif
371 use pm_kind, only: RKG => RK2
372 real(RKG) , intent(in) :: x, kappa
373 real(RKG) , intent(in) , optional :: tol
374 real(RKG) :: gammaIncUpp
375 end function
376#endif
377
378#if RK1_ENABLED
379 impure elemental module function getGammaIncUppNR_RK1(x, kappa, tol) result(gammaIncUpp)
380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
381 !DEC$ ATTRIBUTES DLLEXPORT :: getGammaIncUppNR_RK1
382#endif
383 use pm_kind, only: RKG => RK1
384 real(RKG) , intent(in) :: x, kappa
385 real(RKG) , intent(in) , optional :: tol
386 real(RKG) :: gammaIncUpp
387 end function
388#endif
389
390 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
391
392 end interface
393
394!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
395
486
487 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
488
489#if RK5_ENABLED
490 PURE elemental module subroutine setGammaIncLowNR_RK5(gammaIncLow, x, logGammaKappa, kappa, info, tol)
491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
492 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncLowNR_RK5
493#endif
494 use pm_kind, only: RKG => RK5
495 real(RKG) , intent(out) :: gammaIncLow
496 real(RKG) , intent(in) :: x, logGammaKappa, kappa
497 integer(IK) , intent(out) :: info
498 real(RKG) , intent(in) , optional :: tol
499 end subroutine
500#endif
501
502#if RK4_ENABLED
503 PURE elemental module subroutine setGammaIncLowNR_RK4(gammaIncLow, x, logGammaKappa, kappa, info, tol)
504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
505 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncLowNR_RK4
506#endif
507 use pm_kind, only: RKG => RK4
508 real(RKG) , intent(out) :: gammaIncLow
509 real(RKG) , intent(in) :: x, logGammaKappa, kappa
510 integer(IK) , intent(out) :: info
511 real(RKG) , intent(in) , optional :: tol
512 end subroutine
513#endif
514
515#if RK3_ENABLED
516 PURE elemental module subroutine setGammaIncLowNR_RK3(gammaIncLow, x, logGammaKappa, kappa, info, tol)
517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
518 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncLowNR_RK3
519#endif
520 use pm_kind, only: RKG => RK3
521 real(RKG) , intent(out) :: gammaIncLow
522 real(RKG) , intent(in) :: x, logGammaKappa, kappa
523 integer(IK) , intent(out) :: info
524 real(RKG) , intent(in) , optional :: tol
525 end subroutine
526#endif
527
528#if RK2_ENABLED
529 PURE elemental module subroutine setGammaIncLowNR_RK2(gammaIncLow, x, logGammaKappa, kappa, info, tol)
530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
531 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncLowNR_RK2
532#endif
533 use pm_kind, only: RKG => RK2
534 real(RKG) , intent(out) :: gammaIncLow
535 real(RKG) , intent(in) :: x, logGammaKappa, kappa
536 integer(IK) , intent(out) :: info
537 real(RKG) , intent(in) , optional :: tol
538 end subroutine
539#endif
540
541#if RK1_ENABLED
542 PURE elemental module subroutine setGammaIncLowNR_RK1(gammaIncLow, x, logGammaKappa, kappa, info, tol)
543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
544 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncLowNR_RK1
545#endif
546 use pm_kind, only: RKG => RK1
547 real(RKG) , intent(out) :: gammaIncLow
548 real(RKG) , intent(in) :: x, logGammaKappa, kappa
549 integer(IK) , intent(out) :: info
550 real(RKG) , intent(in) , optional :: tol
551 end subroutine
552#endif
553
554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555
556 end interface
557
558!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
559
650
651 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
652
653#if RK5_ENABLED
654 PURE elemental module subroutine setGammaIncUppNR_RK5(gammaIncUpp, x, logGammaKappa, kappa, info, tol)
655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
656 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncUppNR_RK5
657#endif
658 use pm_kind, only: RKG => RK5
659 real(RKG) , intent(out) :: gammaIncUpp
660 real(RKG) , intent(in) :: x, logGammaKappa, kappa
661 integer(IK) , intent(out) :: info
662 real(RKG) , intent(in) , optional :: tol
663 end subroutine
664#endif
665
666#if RK4_ENABLED
667 PURE elemental module subroutine setGammaIncUppNR_RK4(gammaIncUpp, x, logGammaKappa, kappa, info, tol)
668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
669 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncUppNR_RK4
670#endif
671 use pm_kind, only: RKG => RK4
672 real(RKG) , intent(out) :: gammaIncUpp
673 real(RKG) , intent(in) :: x, logGammaKappa, kappa
674 integer(IK) , intent(out) :: info
675 real(RKG) , intent(in) , optional :: tol
676 end subroutine
677#endif
678
679#if RK3_ENABLED
680 PURE elemental module subroutine setGammaIncUppNR_RK3(gammaIncUpp, x, logGammaKappa, kappa, info, tol)
681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
682 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncUppNR_RK3
683#endif
684 use pm_kind, only: RKG => RK3
685 real(RKG) , intent(out) :: gammaIncUpp
686 real(RKG) , intent(in) :: x, logGammaKappa, kappa
687 integer(IK) , intent(out) :: info
688 real(RKG) , intent(in) , optional :: tol
689 end subroutine
690#endif
691
692#if RK2_ENABLED
693 PURE elemental module subroutine setGammaIncUppNR_RK2(gammaIncUpp, x, logGammaKappa, kappa, info, tol)
694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
695 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncUppNR_RK2
696#endif
697 use pm_kind, only: RKG => RK2
698 real(RKG) , intent(out) :: gammaIncUpp
699 real(RKG) , intent(in) :: x, logGammaKappa, kappa
700 integer(IK) , intent(out) :: info
701 real(RKG) , intent(in) , optional :: tol
702 end subroutine
703#endif
704
705#if RK1_ENABLED
706 PURE elemental module subroutine setGammaIncUppNR_RK1(gammaIncUpp, x, logGammaKappa, kappa, info, tol)
707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
708 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncUppNR_RK1
709#endif
710 use pm_kind, only: RKG => RK1
711 real(RKG) , intent(out) :: gammaIncUpp
712 real(RKG) , intent(in) :: x, logGammaKappa, kappa
713 integer(IK) , intent(out) :: info
714 real(RKG) , intent(in) , optional :: tol
715 end subroutine
716#endif
717
718 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
719
720 end interface
721
722!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
723
808
809#if RK5_ENABLED
810 PURE elemental module subroutine setGammaIncLowSeriesNR_RK5(gammaIncLow, x, logGammaKappa, kappa, info, tol)
811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
812 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncLowSeriesNR_RK5
813#endif
814 use pm_kind, only: RKG => RK5
815 real(RKG) , intent(out) :: gammaIncLow
816 real(RKG) , intent(in) :: x, logGammaKappa, kappa
817 integer(IK) , intent(out) :: info
818 real(RKG) , intent(in) , optional :: tol
819 end subroutine
820#endif
821
822#if RK4_ENABLED
823 PURE elemental module subroutine setGammaIncLowSeriesNR_RK4(gammaIncLow, x, logGammaKappa, kappa, info, tol)
824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
825 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncLowSeriesNR_RK4
826#endif
827 use pm_kind, only: RKG => RK4
828 real(RKG) , intent(out) :: gammaIncLow
829 real(RKG) , intent(in) :: x, logGammaKappa, kappa
830 integer(IK) , intent(out) :: info
831 real(RKG) , intent(in) , optional :: tol
832 end subroutine
833#endif
834
835#if RK3_ENABLED
836 PURE elemental module subroutine setGammaIncLowSeriesNR_RK3(gammaIncLow, x, logGammaKappa, kappa, info, tol)
837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
838 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncLowSeriesNR_RK3
839#endif
840 use pm_kind, only: RKG => RK3
841 real(RKG) , intent(out) :: gammaIncLow
842 real(RKG) , intent(in) :: x, logGammaKappa, kappa
843 integer(IK) , intent(out) :: info
844 real(RKG) , intent(in) , optional :: tol
845 end subroutine
846#endif
847
848#if RK2_ENABLED
849 PURE elemental module subroutine setGammaIncLowSeriesNR_RK2(gammaIncLow, x, logGammaKappa, kappa, info, tol)
850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
851 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncLowSeriesNR_RK2
852#endif
853 use pm_kind, only: RKG => RK2
854 real(RKG) , intent(out) :: gammaIncLow
855 real(RKG) , intent(in) :: x, logGammaKappa, kappa
856 integer(IK) , intent(out) :: info
857 real(RKG) , intent(in) , optional :: tol
858 end subroutine
859#endif
860
861#if RK1_ENABLED
862 PURE elemental module subroutine setGammaIncLowSeriesNR_RK1(gammaIncLow, x, logGammaKappa, kappa, info, tol)
863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
864 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncLowSeriesNR_RK1
865#endif
866 use pm_kind, only: RKG => RK1
867 real(RKG) , intent(out) :: gammaIncLow
868 real(RKG) , intent(in) :: x, logGammaKappa, kappa
869 integer(IK) , intent(out) :: info
870 real(RKG) , intent(in) , optional :: tol
871 end subroutine
872#endif
873
874 end interface
875
876!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
877
964
965#if RK5_ENABLED
966 PURE elemental module subroutine setGammaIncUppContFracNR_RK5(gammaIncUpp, x, logGammaKappa, kappa, info, tol)
967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
968 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncUppContFracNR_RK5
969#endif
970 use pm_kind, only: RKG => RK5
971 real(RKG) , intent(out) :: gammaIncUpp
972 real(RKG) , intent(in) :: x, logGammaKappa, kappa
973 integer(IK) , intent(out) :: info
974 real(RKG) , intent(in) , optional :: tol
975 end subroutine
976#endif
977
978#if RK4_ENABLED
979 PURE elemental module subroutine setGammaIncUppContFracNR_RK4(gammaIncUpp, x, logGammaKappa, kappa, info, tol)
980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
981 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncUppContFracNR_RK4
982#endif
983 use pm_kind, only: RKG => RK4
984 real(RKG) , intent(out) :: gammaIncUpp
985 real(RKG) , intent(in) :: x, logGammaKappa, kappa
986 integer(IK) , intent(out) :: info
987 real(RKG) , intent(in) , optional :: tol
988 end subroutine
989#endif
990
991#if RK3_ENABLED
992 PURE elemental module subroutine setGammaIncUppContFracNR_RK3(gammaIncUpp, x, logGammaKappa, kappa, info, tol)
993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
994 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncUppContFracNR_RK3
995#endif
996 use pm_kind, only: RKG => RK3
997 real(RKG) , intent(out) :: gammaIncUpp
998 real(RKG) , intent(in) :: x, logGammaKappa, kappa
999 integer(IK) , intent(out) :: info
1000 real(RKG) , intent(in) , optional :: tol
1001 end subroutine
1002#endif
1003
1004#if RK2_ENABLED
1005 PURE elemental module subroutine setGammaIncUppContFracNR_RK2(gammaIncUpp, x, logGammaKappa, kappa, info, tol)
1006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1007 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncUppContFracNR_RK2
1008#endif
1009 use pm_kind, only: RKG => RK2
1010 real(RKG) , intent(out) :: gammaIncUpp
1011 real(RKG) , intent(in) :: x, logGammaKappa, kappa
1012 integer(IK) , intent(out) :: info
1013 real(RKG) , intent(in) , optional :: tol
1014 end subroutine
1015#endif
1016
1017#if RK1_ENABLED
1018 PURE elemental module subroutine setGammaIncUppContFracNR_RK1(gammaIncUpp, x, logGammaKappa, kappa, info, tol)
1019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1020 !DEC$ ATTRIBUTES DLLEXPORT :: setGammaIncUppContFracNR_RK1
1021#endif
1022 use pm_kind, only: RKG => RK1
1023 real(RKG) , intent(out) :: gammaIncUpp
1024 real(RKG) , intent(in) :: x, logGammaKappa, kappa
1025 integer(IK) , intent(out) :: info
1026 real(RKG) , intent(in) , optional :: tol
1027 end subroutine
1028#endif
1029
1030 end interface
1031
1032!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1033
1034end module pm_mathGammaNR ! LCOV_EXCL_LINE
Generate and return the regularized Lower Incomplete Gamma function for the specified shape parameter...
Generate and return the regularized Upper Incomplete Gamma function for the specified shape parameter...
Return the regularized Lower Incomplete Gamma function for the specified shape parameter ( ) and uppe...
Return the regularized Lower Incomplete Gamma function for the specified upper limit x and shape para...
Return the regularized Upper Incomplete Gamma function for the specified lower limit x and shape para...
Return the regularized Upper Incomplete Gamma function for the specified shape parameter ( ) and lowe...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter RK3
Definition: pm_kind.F90:500
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
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
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
integer, parameter RK1
Definition: pm_kind.F90:522
This module contains procedures and generic interfaces for the Lower and Upper Incomplete Gamma funct...
character(*, SK), parameter MODULE_NAME