ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_distGenExpGamma.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
27
28!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29
30module test_pm_distGenExpGamma
31
32 use pm_distGenExpGamma
33 use pm_err, only: err_type
34 use pm_test, only: test_type, LK, IK
35
36 implicit none
37
38 private
39 public :: setTest
40 type(test_type) :: test
41
42!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43
44 interface
45#if RK5_ENABLED
46 module function test_getGenExpGammaLogPDFNF_RK5_1() result(assertion); logical(LK) :: assertion; end function
47#endif
48#if RK4_ENABLED
49 module function test_getGenExpGammaLogPDFNF_RK4_1() result(assertion); logical(LK) :: assertion; end function
50#endif
51#if RK3_ENABLED
52 module function test_getGenExpGammaLogPDFNF_RK3_1() result(assertion); logical(LK) :: assertion; end function
53#endif
54#if RK2_ENABLED
55 module function test_getGenExpGammaLogPDFNF_RK2_1() result(assertion); logical(LK) :: assertion; end function
56#endif
57#if RK1_ENABLED
58 module function test_getGenExpGammaLogPDFNF_RK1_1() result(assertion); logical(LK) :: assertion; end function
59#endif
60 end interface
61
62!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63
64 interface
65#if RK5_ENABLED
66 module function test_getGenExpGammaLogPDF_RK5_1() result(assertion); logical(LK) :: assertion; end function
67#endif
68#if RK4_ENABLED
69 module function test_getGenExpGammaLogPDF_RK4_1() result(assertion); logical(LK) :: assertion; end function
70#endif
71#if RK3_ENABLED
72 module function test_getGenExpGammaLogPDF_RK3_1() result(assertion); logical(LK) :: assertion; end function
73#endif
74#if RK2_ENABLED
75 module function test_getGenExpGammaLogPDF_RK2_1() result(assertion); logical(LK) :: assertion; end function
76#endif
77#if RK1_ENABLED
78 module function test_getGenExpGammaLogPDF_RK1_1() result(assertion); logical(LK) :: assertion; end function
79#endif
80 end interface
81
82!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
83
84 interface
85#if RK5_ENABLED
86 module function test_setGenExpGammaLogPDF_RK5_1() result(assertion); logical(LK) :: assertion; end function
87#endif
88#if RK4_ENABLED
89 module function test_setGenExpGammaLogPDF_RK4_1() result(assertion); logical(LK) :: assertion; end function
90#endif
91#if RK3_ENABLED
92 module function test_setGenExpGammaLogPDF_RK3_1() result(assertion); logical(LK) :: assertion; end function
93#endif
94#if RK2_ENABLED
95 module function test_setGenExpGammaLogPDF_RK2_1() result(assertion); logical(LK) :: assertion; end function
96#endif
97#if RK1_ENABLED
98 module function test_setGenExpGammaLogPDF_RK1_1() result(assertion); logical(LK) :: assertion; end function
99#endif
100 end interface
101
102!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103
104contains
105
106!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
107
108 subroutine setTest()
109
110 test = test_type(MODULE_NAME)
111
112 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
113
114#if RK5_ENABLED
115 call test%run(test_getGenExpGammaLogPDFNF_RK5_1, SK_"test_getGenExpGammaLogPDFNF_RK3_1")
116#endif
117#if RK4_ENABLED
118 call test%run(test_getGenExpGammaLogPDFNF_RK4_1, SK_"test_getGenExpGammaLogPDFNF_RK3_1")
119#endif
120#if RK3_ENABLED
121 call test%run(test_getGenExpGammaLogPDFNF_RK3_1, SK_"test_getGenExpGammaLogPDFNF_RK3_1")
122#endif
123#if RK2_ENABLED
124 call test%run(test_getGenExpGammaLogPDFNF_RK2_1, SK_"test_getGenExpGammaLogPDFNF_RK2_1")
125#endif
126#if RK1_ENABLED
127 call test%run(test_getGenExpGammaLogPDFNF_RK1_1, SK_"test_getGenExpGammaLogPDFNF_RK1_1")
128#endif
129
130 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
131
132#if RK5_ENABLED
133 call test%run(test_getGenExpGammaLogPDF_RK5_1, SK_"test_getGenExpGammaLogPDF_RK3_1")
134#endif
135#if RK4_ENABLED
136 call test%run(test_getGenExpGammaLogPDF_RK4_1, SK_"test_getGenExpGammaLogPDF_RK3_1")
137#endif
138#if RK3_ENABLED
139 call test%run(test_getGenExpGammaLogPDF_RK3_1, SK_"test_getGenExpGammaLogPDF_RK3_1")
140#endif
141#if RK2_ENABLED
142 call test%run(test_getGenExpGammaLogPDF_RK2_1, SK_"test_getGenExpGammaLogPDF_RK2_1")
143#endif
144#if RK1_ENABLED
145 call test%run(test_getGenExpGammaLogPDF_RK1_1, SK_"test_getGenExpGammaLogPDF_RK1_1")
146#endif
147
148 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
149
150#if RK5_ENABLED
151 call test%run(test_setGenExpGammaLogPDF_RK5_1, SK_"test_setGenExpGammaLogPDF_RK3_1")
152#endif
153#if RK4_ENABLED
154 call test%run(test_setGenExpGammaLogPDF_RK4_1, SK_"test_setGenExpGammaLogPDF_RK3_1")
155#endif
156#if RK3_ENABLED
157 call test%run(test_setGenExpGammaLogPDF_RK3_1, SK_"test_setGenExpGammaLogPDF_RK3_1")
158#endif
159#if RK2_ENABLED
160 call test%run(test_setGenExpGammaLogPDF_RK2_1, SK_"test_setGenExpGammaLogPDF_RK2_1")
161#endif
162#if RK1_ENABLED
163 call test%run(test_setGenExpGammaLogPDF_RK1_1, SK_"test_setGenExpGammaLogPDF_RK1_1")
164#endif
165
166 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167 call test%summarize()
168
169 end subroutine setTest
170
171!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
172
173end module test_pm_distGenExpGamma
pm_distGenExpGamma
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distGenExpGamma.F90:133
pm_distGenExpGamma::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_distGenExpGamma.F90:139
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_distGenExpGamma
This module contains tests of the module pm_distGenExpGamma.
Definition: test_pm_distGenExpGamma.F90:30
test_pm_distGenExpGamma::setTest
subroutine setTest()
Definition: test_pm_distGenExpGamma.F90:109
test_pm_distGenExpGamma::test
type(test_type) test
Definition: test_pm_distGenExpGamma.F90:40
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