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 the implementations of the tests of module [pm_arraySpace](@ref pm_arraySpace).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Sunday 4:33 PM, September 19, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (test_pm_arraySpace) routines
28 :
29 : use pm_kind, only: LK
30 : use pm_val2str, only: getStr
31 : implicit none
32 :
33 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
34 :
35 : contains
36 :
37 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
38 :
39 : #define getLinSpace_ENABLED 1
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : #define CK_ENABLED 1
44 :
45 : #if CK5_ENABLED
46 : module procedure test_getLinSpace_CK5
47 : use pm_kind, only: TKC => CK5
48 : #include "test_pm_arraySpace@routines.inc.F90"
49 : end procedure
50 : #endif
51 :
52 : #if CK4_ENABLED
53 1 : module procedure test_getLinSpace_CK4
54 : use pm_kind, only: TKC => CK4
55 : #include "test_pm_arraySpace@routines.inc.F90"
56 : end procedure
57 : #endif
58 :
59 : #if CK3_ENABLED
60 1 : module procedure test_getLinSpace_CK3
61 : use pm_kind, only: TKC => CK3
62 : #include "test_pm_arraySpace@routines.inc.F90"
63 : end procedure
64 : #endif
65 :
66 : #if CK2_ENABLED
67 1 : module procedure test_getLinSpace_CK2
68 : use pm_kind, only: TKC => CK2
69 : #include "test_pm_arraySpace@routines.inc.F90"
70 : end procedure
71 : #endif
72 :
73 : #if CK1_ENABLED
74 1 : module procedure test_getLinSpace_CK1
75 : use pm_kind, only: TKC => CK1
76 : #include "test_pm_arraySpace@routines.inc.F90"
77 : end procedure
78 : #endif
79 :
80 : #undef CK_ENABLED
81 :
82 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
83 :
84 : #define RK_ENABLED 1
85 :
86 : #if RK5_ENABLED
87 : module procedure test_getLinSpace_RK5
88 : use pm_kind, only: TKC => RK5
89 : #include "test_pm_arraySpace@routines.inc.F90"
90 : end procedure
91 : #endif
92 :
93 : #if RK4_ENABLED
94 1 : module procedure test_getLinSpace_RK4
95 : use pm_kind, only: TKC => RK4
96 : #include "test_pm_arraySpace@routines.inc.F90"
97 : end procedure
98 : #endif
99 :
100 : #if RK3_ENABLED
101 1 : module procedure test_getLinSpace_RK3
102 : use pm_kind, only: TKC => RK3
103 : #include "test_pm_arraySpace@routines.inc.F90"
104 : end procedure
105 : #endif
106 :
107 : #if RK2_ENABLED
108 1 : module procedure test_getLinSpace_RK2
109 : use pm_kind, only: TKC => RK2
110 : #include "test_pm_arraySpace@routines.inc.F90"
111 : end procedure
112 : #endif
113 :
114 : #if RK1_ENABLED
115 1 : module procedure test_getLinSpace_RK1
116 : use pm_kind, only: TKC => RK1
117 : #include "test_pm_arraySpace@routines.inc.F90"
118 : end procedure
119 : #endif
120 :
121 : #undef RK_ENABLED
122 :
123 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
124 :
125 : #undef getLinSpace_ENABLED
126 :
127 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
128 :
129 : #define setLinSpace_ENABLED 1
130 :
131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
132 :
133 : #define CK_ENABLED 1
134 :
135 : #if CK5_ENABLED
136 : module procedure test_setLinSpace_CK5
137 : use pm_kind, only: TKC => CK5
138 : #include "test_pm_arraySpace@routines.inc.F90"
139 : end procedure
140 : #endif
141 :
142 : #if CK4_ENABLED
143 1 : module procedure test_setLinSpace_CK4
144 : use pm_kind, only: TKC => CK4
145 : #include "test_pm_arraySpace@routines.inc.F90"
146 : end procedure
147 : #endif
148 :
149 : #if CK3_ENABLED
150 1 : module procedure test_setLinSpace_CK3
151 : use pm_kind, only: TKC => CK3
152 : #include "test_pm_arraySpace@routines.inc.F90"
153 : end procedure
154 : #endif
155 :
156 : #if CK2_ENABLED
157 1 : module procedure test_setLinSpace_CK2
158 : use pm_kind, only: TKC => CK2
159 : #include "test_pm_arraySpace@routines.inc.F90"
160 : end procedure
161 : #endif
162 :
163 : #if CK1_ENABLED
164 1 : module procedure test_setLinSpace_CK1
165 : use pm_kind, only: TKC => CK1
166 : #include "test_pm_arraySpace@routines.inc.F90"
167 : end procedure
168 : #endif
169 :
170 : #undef CK_ENABLED
171 :
172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
173 :
174 : #define RK_ENABLED 1
175 :
176 : #if RK5_ENABLED
177 : module procedure test_setLinSpace_RK5
178 : use pm_kind, only: TKC => RK5
179 : #include "test_pm_arraySpace@routines.inc.F90"
180 : end procedure
181 : #endif
182 :
183 : #if RK4_ENABLED
184 1 : module procedure test_setLinSpace_RK4
185 : use pm_kind, only: TKC => RK4
186 : #include "test_pm_arraySpace@routines.inc.F90"
187 : end procedure
188 : #endif
189 :
190 : #if RK3_ENABLED
191 1 : module procedure test_setLinSpace_RK3
192 : use pm_kind, only: TKC => RK3
193 : #include "test_pm_arraySpace@routines.inc.F90"
194 : end procedure
195 : #endif
196 :
197 : #if RK2_ENABLED
198 1 : module procedure test_setLinSpace_RK2
199 : use pm_kind, only: TKC => RK2
200 : #include "test_pm_arraySpace@routines.inc.F90"
201 : end procedure
202 : #endif
203 :
204 : #if RK1_ENABLED
205 1 : module procedure test_setLinSpace_RK1
206 : use pm_kind, only: TKC => RK1
207 : #include "test_pm_arraySpace@routines.inc.F90"
208 : end procedure
209 : #endif
210 :
211 : #undef RK_ENABLED
212 :
213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214 :
215 : #undef setLinSpace_ENABLED
216 :
217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
218 :
219 : #define getLogSpace_ENABLED 1
220 :
221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
222 :
223 : #define CK_ENABLED 1
224 :
225 : #if CK5_ENABLED
226 : module procedure test_getLogSpace_CK5
227 : use pm_kind, only: TKC => CK5
228 : #include "test_pm_arraySpace@routines.inc.F90"
229 : end procedure
230 : #endif
231 :
232 : #if CK4_ENABLED
233 1 : module procedure test_getLogSpace_CK4
234 : use pm_kind, only: TKC => CK4
235 : #include "test_pm_arraySpace@routines.inc.F90"
236 : end procedure
237 : #endif
238 :
239 : #if CK3_ENABLED
240 1 : module procedure test_getLogSpace_CK3
241 : use pm_kind, only: TKC => CK3
242 : #include "test_pm_arraySpace@routines.inc.F90"
243 : end procedure
244 : #endif
245 :
246 : #if CK2_ENABLED
247 1 : module procedure test_getLogSpace_CK2
248 : use pm_kind, only: TKC => CK2
249 : #include "test_pm_arraySpace@routines.inc.F90"
250 : end procedure
251 : #endif
252 :
253 : #if CK1_ENABLED
254 1 : module procedure test_getLogSpace_CK1
255 : use pm_kind, only: TKC => CK1
256 : #include "test_pm_arraySpace@routines.inc.F90"
257 : end procedure
258 : #endif
259 :
260 : #undef CK_ENABLED
261 :
262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263 :
264 : #define RK_ENABLED 1
265 :
266 : #if RK5_ENABLED
267 : module procedure test_getLogSpace_RK5
268 : use pm_kind, only: TKC => RK5
269 : #include "test_pm_arraySpace@routines.inc.F90"
270 : end procedure
271 : #endif
272 :
273 : #if RK4_ENABLED
274 1 : module procedure test_getLogSpace_RK4
275 : use pm_kind, only: TKC => RK4
276 : #include "test_pm_arraySpace@routines.inc.F90"
277 : end procedure
278 : #endif
279 :
280 : #if RK3_ENABLED
281 1 : module procedure test_getLogSpace_RK3
282 : use pm_kind, only: TKC => RK3
283 : #include "test_pm_arraySpace@routines.inc.F90"
284 : end procedure
285 : #endif
286 :
287 : #if RK2_ENABLED
288 1 : module procedure test_getLogSpace_RK2
289 : use pm_kind, only: TKC => RK2
290 : #include "test_pm_arraySpace@routines.inc.F90"
291 : end procedure
292 : #endif
293 :
294 : #if RK1_ENABLED
295 1 : module procedure test_getLogSpace_RK1
296 : use pm_kind, only: TKC => RK1
297 : #include "test_pm_arraySpace@routines.inc.F90"
298 : end procedure
299 : #endif
300 :
301 : #undef RK_ENABLED
302 :
303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304 :
305 : #undef getLogSpace_ENABLED
306 :
307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308 :
309 : #define setLogSpace_ENABLED 1
310 :
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 :
313 : #define CK_ENABLED 1
314 :
315 : #if CK5_ENABLED
316 : module procedure test_setLogSpace_CK5
317 : use pm_kind, only: TKC => CK5
318 : #include "test_pm_arraySpace@routines.inc.F90"
319 : end procedure
320 : #endif
321 :
322 : #if CK4_ENABLED
323 1 : module procedure test_setLogSpace_CK4
324 : use pm_kind, only: TKC => CK4
325 : #include "test_pm_arraySpace@routines.inc.F90"
326 : end procedure
327 : #endif
328 :
329 : #if CK3_ENABLED
330 1 : module procedure test_setLogSpace_CK3
331 : use pm_kind, only: TKC => CK3
332 : #include "test_pm_arraySpace@routines.inc.F90"
333 : end procedure
334 : #endif
335 :
336 : #if CK2_ENABLED
337 1 : module procedure test_setLogSpace_CK2
338 : use pm_kind, only: TKC => CK2
339 : #include "test_pm_arraySpace@routines.inc.F90"
340 : end procedure
341 : #endif
342 :
343 : #if CK1_ENABLED
344 1 : module procedure test_setLogSpace_CK1
345 : use pm_kind, only: TKC => CK1
346 : #include "test_pm_arraySpace@routines.inc.F90"
347 : end procedure
348 : #endif
349 :
350 : #undef CK_ENABLED
351 :
352 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
353 :
354 : #define RK_ENABLED 1
355 :
356 : #if RK5_ENABLED
357 : module procedure test_setLogSpace_RK5
358 : use pm_kind, only: TKC => RK5
359 : #include "test_pm_arraySpace@routines.inc.F90"
360 : end procedure
361 : #endif
362 :
363 : #if RK4_ENABLED
364 1 : module procedure test_setLogSpace_RK4
365 : use pm_kind, only: TKC => RK4
366 : #include "test_pm_arraySpace@routines.inc.F90"
367 : end procedure
368 : #endif
369 :
370 : #if RK3_ENABLED
371 1 : module procedure test_setLogSpace_RK3
372 : use pm_kind, only: TKC => RK3
373 : #include "test_pm_arraySpace@routines.inc.F90"
374 : end procedure
375 : #endif
376 :
377 : #if RK2_ENABLED
378 1 : module procedure test_setLogSpace_RK2
379 : use pm_kind, only: TKC => RK2
380 : #include "test_pm_arraySpace@routines.inc.F90"
381 : end procedure
382 : #endif
383 :
384 : #if RK1_ENABLED
385 1 : module procedure test_setLogSpace_RK1
386 : use pm_kind, only: TKC => RK1
387 : #include "test_pm_arraySpace@routines.inc.F90"
388 : end procedure
389 : #endif
390 :
391 : #undef RK_ENABLED
392 :
393 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
394 :
395 : #undef setLogSpace_ENABLED
396 :
397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
398 :
399 : end submodule routines ! LCOV_EXCL_LINE
|
