ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_mathGamma.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
19
20module test_pm_mathGamma
21
22 use pm_mathGamma
23 use pm_err, only: err_type
24 use pm_test, only: test_type, LK
25 implicit none
26
27 private
28 public :: setTest
29 type(test_type) :: test
30
31!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32
33 interface
34#if RK3_ENABLED
35 module function test_getGammaIncLow_RK3_1() result(assertion); logical(LK) :: assertion; end function
36#endif
37#if RK2_ENABLED
38 module function test_getGammaIncLow_RK2_1() result(assertion); logical(LK) :: assertion; end function
39#endif
40#if RK1_ENABLED
41 module function test_getGammaIncLow_RK1_1() result(assertion); logical(LK) :: assertion; end function
42#endif
43 end interface
44
45!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46
47 interface
48#if RK3_ENABLED
49 module function test_getGammaIncUpp_RK3_1() result(assertion); logical(LK) :: assertion; end function
50#endif
51#if RK2_ENABLED
52 module function test_getGammaIncUpp_RK2_1() result(assertion); logical(LK) :: assertion; end function
53#endif
54#if RK1_ENABLED
55 module function test_getGammaIncUpp_RK1_1() result(assertion); logical(LK) :: assertion; end function
56#endif
57 end interface
58
59!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60
61contains
62
63!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64
65 subroutine setTest()
66
67 test = test_type(MODULE_NAME)
68
69 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
70
71#if RK3_ENABLED
72 call test%run(test_getGammaIncLow_RK3_1, SK_"test_getGammaIncLow_RK3_1")
73#endif
74#if RK2_ENABLED
75 call test%run(test_getGammaIncLow_RK2_1, SK_"test_getGammaIncLow_RK2_1")
76#endif
77#if RK1_ENABLED
78 call test%run(test_getGammaIncLow_RK1_1, SK_"test_getGammaIncLow_RK1_1")
79#endif
80
81 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
82
83#if RK3_ENABLED
84 call test%run(test_getGammaIncUpp_RK3_1, SK_"test_getGammaIncUpp_RK3_1")
85#endif
86#if RK2_ENABLED
87 call test%run(test_getGammaIncUpp_RK2_1, SK_"test_getGammaIncUpp_RK2_1")
88#endif
89#if RK1_ENABLED
90 call test%run(test_getGammaIncUpp_RK1_1, SK_"test_getGammaIncUpp_RK1_1")
91#endif
92
93 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
94 call test%summarize()
95
96 end subroutine setTest
97
98!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
99
100end module test_pm_mathGamma ! LCOV_EXCL_LINE
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_err::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_err.F90:58
pm_mathGamma
This module contains procedures and generic interfaces for the Lower and Upper Incomplete Gamma funct...
Definition: pm_mathGamma.F90:37
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_mathGamma
This module contains tests of the module pm_mathGamma.
Definition: test_pm_mathGamma.F90:20
test_pm_mathGamma::test
type(test_type) test
Definition: test_pm_mathGamma.F90:29
test_pm_mathGamma::setTest
subroutine setTest()
Definition: test_pm_mathGamma.F90:66
pm_err::err_type
This is the derived type for generating objects to gracefully and verbosely handle runtime unexpected...
Definition: pm_err.F90:157
pm_test::test_type
This is the derived type test_type for generating objects that facilitate testing of a series of proc...
Definition: pm_test.F90:209