Line data Source code
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 :
17 : !> \brief This file contains the implementations of the tests of module [pm_distGenExpGamma](@ref pm_distGenExpGamma).
18 : !>
19 : !> \author
20 : !> \AmirShahmoradi
21 :
22 : submodule (test_pm_distGenExpGamma) routines
23 :
24 : implicit none
25 :
26 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27 :
28 : contains
29 :
30 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31 :
32 : #define getGenExpGammaLogPDFNF_ENABLED 1
33 :
34 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
35 :
36 : #define RK_ENABLED 1
37 :
38 : #if RK5_ENABLED
39 : module procedure test_getGenExpGammaLogPDFNF_RK5_1
40 : use pm_kind, only: RKC => RK5
41 : #include "test_pm_distGenExpGamma@routines.inc.F90"
42 : end procedure
43 : #endif
44 :
45 : #if RK4_ENABLED
46 1 : module procedure test_getGenExpGammaLogPDFNF_RK4_1
47 : use pm_kind, only: RKC => RK4
48 : #include "test_pm_distGenExpGamma@routines.inc.F90"
49 : end procedure
50 : #endif
51 :
52 : #if RK3_ENABLED
53 1 : module procedure test_getGenExpGammaLogPDFNF_RK3_1
54 : use pm_kind, only: RKC => RK3
55 : #include "test_pm_distGenExpGamma@routines.inc.F90"
56 : end procedure
57 : #endif
58 :
59 : #if RK2_ENABLED
60 1 : module procedure test_getGenExpGammaLogPDFNF_RK2_1
61 : use pm_kind, only: RKC => RK2
62 : #include "test_pm_distGenExpGamma@routines.inc.F90"
63 : end procedure
64 : #endif
65 :
66 : #if RK1_ENABLED
67 1 : module procedure test_getGenExpGammaLogPDFNF_RK1_1
68 : use pm_kind, only: RKC => RK1
69 : #include "test_pm_distGenExpGamma@routines.inc.F90"
70 : end procedure
71 : #endif
72 :
73 : #undef RK_ENABLED
74 :
75 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
76 :
77 : #undef getGenExpGammaLogPDFNF_ENABLED
78 :
79 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
80 :
81 : #define getGenExpGammaLogPDF_ENABLED 1
82 :
83 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
84 :
85 : #define RK_ENABLED 1
86 :
87 : #if RK5_ENABLED
88 : module procedure test_getGenExpGammaLogPDF_RK5_1
89 : use pm_kind, only: RKC => RK5
90 : #include "test_pm_distGenExpGamma@routines.inc.F90"
91 : end procedure
92 : #endif
93 :
94 : #if RK4_ENABLED
95 1 : module procedure test_getGenExpGammaLogPDF_RK4_1
96 : use pm_kind, only: RKC => RK4
97 : #include "test_pm_distGenExpGamma@routines.inc.F90"
98 : end procedure
99 : #endif
100 :
101 : #if RK3_ENABLED
102 1 : module procedure test_getGenExpGammaLogPDF_RK3_1
103 : use pm_kind, only: RKC => RK3
104 : #include "test_pm_distGenExpGamma@routines.inc.F90"
105 : end procedure
106 : #endif
107 :
108 : #if RK2_ENABLED
109 1 : module procedure test_getGenExpGammaLogPDF_RK2_1
110 : use pm_kind, only: RKC => RK2
111 : #include "test_pm_distGenExpGamma@routines.inc.F90"
112 : end procedure
113 : #endif
114 :
115 : #if RK1_ENABLED
116 1 : module procedure test_getGenExpGammaLogPDF_RK1_1
117 : use pm_kind, only: RKC => RK1
118 : #include "test_pm_distGenExpGamma@routines.inc.F90"
119 : end procedure
120 : #endif
121 :
122 : #undef RK_ENABLED
123 :
124 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
125 :
126 : #undef getGenExpGammaLogPDF_ENABLED
127 :
128 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
129 :
130 : #define setGenExpGammaLogPDF_ENABLED 1
131 :
132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133 :
134 : #define RK_ENABLED 1
135 :
136 : #if RK5_ENABLED
137 : module procedure test_setGenExpGammaLogPDF_RK5_1
138 : use pm_kind, only: RKC => RK5
139 : #include "test_pm_distGenExpGamma@routines.inc.F90"
140 : end procedure
141 : #endif
142 :
143 : #if RK4_ENABLED
144 1 : module procedure test_setGenExpGammaLogPDF_RK4_1
145 : use pm_kind, only: RKC => RK4
146 : #include "test_pm_distGenExpGamma@routines.inc.F90"
147 : end procedure
148 : #endif
149 :
150 : #if RK3_ENABLED
151 1 : module procedure test_setGenExpGammaLogPDF_RK3_1
152 : use pm_kind, only: RKC => RK3
153 : #include "test_pm_distGenExpGamma@routines.inc.F90"
154 : end procedure
155 : #endif
156 :
157 : #if RK2_ENABLED
158 1 : module procedure test_setGenExpGammaLogPDF_RK2_1
159 : use pm_kind, only: RKC => RK2
160 : #include "test_pm_distGenExpGamma@routines.inc.F90"
161 : end procedure
162 : #endif
163 :
164 : #if RK1_ENABLED
165 1 : module procedure test_setGenExpGammaLogPDF_RK1_1
166 : use pm_kind, only: RKC => RK1
167 : #include "test_pm_distGenExpGamma@routines.inc.F90"
168 : end procedure
169 : #endif
170 :
171 : #undef setGenExpGammaLogPDF_RK_ENABLED
172 :
173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
174 :
175 : #undef setGenExpGammaLogPDF_ENABLED
176 :
177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
178 :
179 : end submodule routines ! LCOV_EXCL_LINE
|
