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
86module pm_mathGammaNR
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
178 interface getGammaIncLowNR
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
326 interface getGammaIncUppNR
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
485 interface setGammaIncLowNR
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
649 interface setGammaIncUppNR
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
807 interface setGammaIncLowSeriesNR
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
963 interface setGammaIncUppContFracNR
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
pm_mathGammaNR::getGammaIncLowNR
Generate and return the regularized Lower Incomplete Gamma function for the specified shape parameter...
Definition: pm_mathGammaNR.F90:178
pm_mathGammaNR::getGammaIncUppNR
Generate and return the regularized Upper Incomplete Gamma function for the specified shape parameter...
Definition: pm_mathGammaNR.F90:326
pm_mathGammaNR::setGammaIncLowNR
Return the regularized Lower Incomplete Gamma function for the specified shape parameter ( ) and uppe...
Definition: pm_mathGammaNR.F90:485
pm_mathGammaNR::setGammaIncLowSeriesNR
Return the regularized Lower Incomplete Gamma function for the specified upper limit x and shape para...
Definition: pm_mathGammaNR.F90:807
pm_mathGammaNR::setGammaIncUppContFracNR
Return the regularized Upper Incomplete Gamma function for the specified lower limit x and shape para...
Definition: pm_mathGammaNR.F90:963
pm_mathGammaNR::setGammaIncUppNR
Return the regularized Upper Incomplete Gamma function for the specified shape parameter ( ) and lowe...
Definition: pm_mathGammaNR.F90:649
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_mathGammaNR
This module contains procedures and generic interfaces for the Lower and Upper Incomplete Gamma funct...
Definition: pm_mathGammaNR.F90:86
pm_mathGammaNR::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_mathGammaNR.F90:92