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
18 : !> This file contains procedure implementations of [test_pm_arraySearch](@ref test_pm_arraySearch).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 11:35 PM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (test_pm_arraySearch) routines ! LCOV_EXCL_LINE
28 :
29 : use pm_kind, only: LK
30 : implicit none
31 :
32 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33 :
34 : contains
35 :
36 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37 :
38 : #define getBin_D0_ENABLED 1
39 :
40 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 :
44 : #define D0_ENABLED 1
45 :
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 :
48 : #define SK_ENABLED 1
49 :
50 : #if SK5_ENABLED
51 : module procedure test_getBin_D0_SK5_1
52 : use pm_kind, only: SKC => SK5
53 : #include "test_pm_arraySearch@routines.inc.F90"
54 : end procedure
55 : #endif
56 :
57 : #if SK4_ENABLED
58 : module procedure test_getBin_D0_SK4_1
59 : use pm_kind, only: SKC => SK4
60 : #include "test_pm_arraySearch@routines.inc.F90"
61 : end procedure
62 : #endif
63 :
64 : #if SK3_ENABLED
65 : module procedure test_getBin_D0_SK3_1
66 : use pm_kind, only: SKC => SK3
67 : #include "test_pm_arraySearch@routines.inc.F90"
68 : end procedure
69 : #endif
70 :
71 : #if SK2_ENABLED
72 : module procedure test_getBin_D0_SK2_1
73 : use pm_kind, only: SKC => SK2
74 : #include "test_pm_arraySearch@routines.inc.F90"
75 : end procedure
76 : #endif
77 :
78 : #if SK1_ENABLED
79 1 : module procedure test_getBin_D0_SK1_1
80 : use pm_kind, only: SKC => SK1
81 : #include "test_pm_arraySearch@routines.inc.F90"
82 : end procedure
83 : #endif
84 :
85 : #undef SK_ENABLED
86 :
87 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
88 :
89 : #undef D0_ENABLED
90 :
91 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
92 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
93 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
94 :
95 : #define D1_ENABLED 1
96 :
97 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98 :
99 : #define SK_ENABLED 1
100 :
101 : #if SK5_ENABLED
102 : module procedure test_getBin_D1_SK5_1
103 : use pm_kind, only: SKC => SK5
104 : #include "test_pm_arraySearch@routines.inc.F90"
105 : end procedure
106 : #endif
107 :
108 : #if SK4_ENABLED
109 : module procedure test_getBin_D1_SK4_1
110 : use pm_kind, only: SKC => SK4
111 : #include "test_pm_arraySearch@routines.inc.F90"
112 : end procedure
113 : #endif
114 :
115 : #if SK3_ENABLED
116 : module procedure test_getBin_D1_SK3_1
117 : use pm_kind, only: SKC => SK3
118 : #include "test_pm_arraySearch@routines.inc.F90"
119 : end procedure
120 : #endif
121 :
122 : #if SK2_ENABLED
123 : module procedure test_getBin_D1_SK2_1
124 : use pm_kind, only: SKC => SK2
125 : #include "test_pm_arraySearch@routines.inc.F90"
126 : end procedure
127 : #endif
128 :
129 : #if SK1_ENABLED
130 1 : module procedure test_getBin_D1_SK1_1
131 : use pm_kind, only: SKC => SK1
132 : #include "test_pm_arraySearch@routines.inc.F90"
133 : end procedure
134 : #endif
135 :
136 : #undef SK_ENABLED
137 :
138 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
139 :
140 : #define IK_ENABLED 1
141 :
142 : #if IK5_ENABLED
143 1 : module procedure test_getBin_D1_IK5_1
144 : use pm_kind, only: IKC => IK5
145 : #include "test_pm_arraySearch@routines.inc.F90"
146 : end procedure
147 : #endif
148 :
149 : #if IK4_ENABLED
150 1 : module procedure test_getBin_D1_IK4_1
151 : use pm_kind, only: IKC => IK4
152 : #include "test_pm_arraySearch@routines.inc.F90"
153 : end procedure
154 : #endif
155 :
156 : #if IK3_ENABLED
157 1 : module procedure test_getBin_D1_IK3_1
158 : use pm_kind, only: IKC => IK3
159 : #include "test_pm_arraySearch@routines.inc.F90"
160 : end procedure
161 : #endif
162 :
163 : #if IK2_ENABLED
164 1 : module procedure test_getBin_D1_IK2_1
165 : use pm_kind, only: IKC => IK2
166 : #include "test_pm_arraySearch@routines.inc.F90"
167 : end procedure
168 : #endif
169 :
170 : #if IK1_ENABLED
171 1 : module procedure test_getBin_D1_IK1_1
172 : use pm_kind, only: IKC => IK1
173 : #include "test_pm_arraySearch@routines.inc.F90"
174 : end procedure
175 : #endif
176 :
177 : #undef IK_ENABLED
178 :
179 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
180 :
181 : !#define LK_ENABLED 1
182 : !
183 : !#if LK5_ENABLED
184 : ! module procedure test_getBin_D1_LK5_1
185 : ! use pm_kind, only: LKC => LK5
186 : !#include "test_pm_arraySearch@routines.inc.F90"
187 : ! end procedure
188 : !#endif
189 : !
190 : !#if LK4_ENABLED
191 : ! module procedure test_getBin_D1_LK4_1
192 : ! use pm_kind, only: LKC => LK4
193 : !#include "test_pm_arraySearch@routines.inc.F90"
194 : ! end procedure
195 : !#endif
196 : !
197 : !#if LK3_ENABLED
198 : ! module procedure test_getBin_D1_LK3_1
199 : ! use pm_kind, only: LKC => LK3
200 : !#include "test_pm_arraySearch@routines.inc.F90"
201 : ! end procedure
202 : !#endif
203 : !
204 : !#if LK2_ENABLED
205 : ! module procedure test_getBin_D1_LK2_1
206 : ! use pm_kind, only: LKC => LK2
207 : !#include "test_pm_arraySearch@routines.inc.F90"
208 : ! end procedure
209 : !#endif
210 : !
211 : !#if LK1_ENABLED
212 : ! module procedure test_getBin_D1_LK1_1
213 : ! use pm_kind, only: LKC => LK1
214 : !#include "test_pm_arraySearch@routines.inc.F90"
215 : ! end procedure
216 : !#endif
217 : !
218 : !#undef LK_ENABLED
219 : !
220 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
221 :
222 : #define CK_ENABLED 1
223 :
224 : #if CK5_ENABLED
225 : module procedure test_getBin_D1_CK5_1
226 : use pm_kind, only: CKC => CK5
227 : #include "test_pm_arraySearch@routines.inc.F90"
228 : end procedure
229 : #endif
230 :
231 : #if CK4_ENABLED
232 1 : module procedure test_getBin_D1_CK4_1
233 : use pm_kind, only: CKC => CK4
234 : #include "test_pm_arraySearch@routines.inc.F90"
235 : end procedure
236 : #endif
237 :
238 : #if CK3_ENABLED
239 1 : module procedure test_getBin_D1_CK3_1
240 : use pm_kind, only: CKC => CK3
241 : #include "test_pm_arraySearch@routines.inc.F90"
242 : end procedure
243 : #endif
244 :
245 : #if CK2_ENABLED
246 1 : module procedure test_getBin_D1_CK2_1
247 : use pm_kind, only: CKC => CK2
248 : #include "test_pm_arraySearch@routines.inc.F90"
249 : end procedure
250 : #endif
251 :
252 : #if CK1_ENABLED
253 1 : module procedure test_getBin_D1_CK1_1
254 : use pm_kind, only: CKC => CK1
255 : #include "test_pm_arraySearch@routines.inc.F90"
256 : end procedure
257 : #endif
258 :
259 : #undef CK_ENABLED
260 :
261 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
262 :
263 : #define RK_ENABLED 1
264 :
265 : #if RK5_ENABLED
266 : module procedure test_getBin_D1_RK5_1
267 : use pm_kind, only: RKC => RK5
268 : #include "test_pm_arraySearch@routines.inc.F90"
269 : end procedure
270 : #endif
271 :
272 : #if RK4_ENABLED
273 1 : module procedure test_getBin_D1_RK4_1
274 : use pm_kind, only: RKC => RK4
275 : #include "test_pm_arraySearch@routines.inc.F90"
276 : end procedure
277 : #endif
278 :
279 : #if RK3_ENABLED
280 1 : module procedure test_getBin_D1_RK3_1
281 : use pm_kind, only: RKC => RK3
282 : #include "test_pm_arraySearch@routines.inc.F90"
283 : end procedure
284 : #endif
285 :
286 : #if RK2_ENABLED
287 1 : module procedure test_getBin_D1_RK2_1
288 : use pm_kind, only: RKC => RK2
289 : #include "test_pm_arraySearch@routines.inc.F90"
290 : end procedure
291 : #endif
292 :
293 : #if RK1_ENABLED
294 1 : module procedure test_getBin_D1_RK1_1
295 : use pm_kind, only: RKC => RK1
296 : #include "test_pm_arraySearch@routines.inc.F90"
297 : end procedure
298 : #endif
299 :
300 : #undef RK_ENABLED
301 :
302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 :
304 : #undef D1_ENABLED
305 :
306 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
309 :
310 : #undef getBin_ENABLED
311 :
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 :
314 : end submodule routines
|
