ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_distGamma.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
23
24!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25
26module test_pm_distGamma
27
28 use pm_distGamma
29 use pm_err, only: err_type
30 use pm_test, only: test_type, IK, LK
31
32 implicit none
33
34 private
35 public :: setTest
36 type(test_type) :: test
37
38!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39
40 interface
41
42#if RK5_ENABLED
43 module function test_getGammaLogPDF_RK5_1() result(assertion); logical(LK) :: assertion; end function
44#endif
45#if RK4_ENABLED
46 module function test_getGammaLogPDF_RK4_1() result(assertion); logical(LK) :: assertion; end function
47#endif
48#if RK3_ENABLED
49 module function test_getGammaLogPDF_RK3_1() result(assertion); logical(LK) :: assertion; end function
50#endif
51#if RK2_ENABLED
52 module function test_getGammaLogPDF_RK2_1() result(assertion); logical(LK) :: assertion; end function
53#endif
54#if RK1_ENABLED
55 module function test_getGammaLogPDF_RK1_1() result(assertion); logical(LK) :: assertion; end function
56#endif
57
58 end interface
59
60!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61
62 interface
63
64#if RK5_ENABLED
65 module function test_setGammaLogPDF_RK5_1() result(assertion); logical(LK) :: assertion; end function
66#endif
67#if RK4_ENABLED
68 module function test_setGammaLogPDF_RK4_1() result(assertion); logical(LK) :: assertion; end function
69#endif
70#if RK3_ENABLED
71 module function test_setGammaLogPDF_RK3_1() result(assertion); logical(LK) :: assertion; end function
72#endif
73#if RK2_ENABLED
74 module function test_setGammaLogPDF_RK2_1() result(assertion); logical(LK) :: assertion; end function
75#endif
76#if RK1_ENABLED
77 module function test_setGammaLogPDF_RK1_1() result(assertion); logical(LK) :: assertion; end function
78#endif
79
80 end interface
81
82!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
83
84contains
85
86!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
87
88 subroutine setTest()
89
90 test = test_type(MODULE_NAME)
91
92 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
93
94#if RK5_ENABLED
95 call test%run(test_getGammaLogPDF_RK5_1, SK_"test_getGammaLogPDF_RK5_1")
96#endif
97#if RK4_ENABLED
98 call test%run(test_getGammaLogPDF_RK4_1, SK_"test_getGammaLogPDF_RK4_1")
99#endif
100#if RK3_ENABLED
101 call test%run(test_getGammaLogPDF_RK3_1, SK_"test_getGammaLogPDF_RK3_1")
102#endif
103#if RK3_ENABLED
104 call test%run(test_getGammaLogPDF_RK3_1, SK_"test_getGammaLogPDF_RK3_1")
105#endif
106#if RK2_ENABLED
107 call test%run(test_getGammaLogPDF_RK2_1, SK_"test_getGammaLogPDF_RK2_1")
108#endif
109#if RK1_ENABLED
110 call test%run(test_getGammaLogPDF_RK1_1, SK_"test_getGammaLogPDF_RK1_1")
111#endif
112
113 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
114
115#if RK5_ENABLED
116 call test%run(test_setGammaLogPDF_RK5_1, SK_"test_setGammaLogPDF_RK5_1")
117#endif
118#if RK4_ENABLED
119 call test%run(test_setGammaLogPDF_RK4_1, SK_"test_setGammaLogPDF_RK4_1")
120#endif
121#if RK3_ENABLED
122 call test%run(test_setGammaLogPDF_RK3_1, SK_"test_setGammaLogPDF_RK3_1")
123#endif
124#if RK2_ENABLED
125 call test%run(test_setGammaLogPDF_RK2_1, SK_"test_setGammaLogPDF_RK2_1")
126#endif
127#if RK1_ENABLED
128 call test%run(test_setGammaLogPDF_RK1_1, SK_"test_setGammaLogPDF_RK1_1")
129#endif
130
131 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
132 call test%summarize()
133
134 end subroutine setTest
135
136!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
137
138end module test_pm_distGamma
pm_distGamma
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distGamma.F90:75
pm_distGamma::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_distGamma.F90:83
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_distGamma
This module contains tests of the module pm_distGamma.
Definition: test_pm_distGamma.F90:26
test_pm_distGamma::test
type(test_type) test
Definition: test_pm_distGamma.F90:36
test_pm_distGamma::setTest
subroutine setTest()
Definition: test_pm_distGamma.F90:89
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