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_arrayReverse](@ref test_pm_arrayReverse).
19 : !>
20 : !> \author
21 : !> \AmirShahmoradi, September 1, 2017, 12:00 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
22 :
23 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24 :
25 : submodule (test_pm_arrayReverse) routines ! LCOV_EXCL_LINE
26 :
27 : implicit none
28 :
29 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30 :
31 : contains
32 :
33 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
34 :
35 : #define getReversed_D1_ENABLED 1
36 :
37 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
38 :
39 : #define getReversed_D0_SK_ENABLED 1
40 :
41 : #if SK5_ENABLED
42 : module procedure test_getReversed_D0_SK5_1
43 : use pm_kind, only: SKC => SK5
44 : #include "test_pm_arrayReverse@routines.inc.F90"
45 : end procedure
46 : #endif
47 :
48 : #if SK4_ENABLED
49 : module procedure test_getReversed_D0_SK4_1
50 : use pm_kind, only: SKC => SK4
51 : #include "test_pm_arrayReverse@routines.inc.F90"
52 : end procedure
53 : #endif
54 :
55 : #if SK3_ENABLED
56 : module procedure test_getReversed_D0_SK3_1
57 : use pm_kind, only: SKC => SK3
58 : #include "test_pm_arrayReverse@routines.inc.F90"
59 : end procedure
60 : #endif
61 :
62 : #if SK2_ENABLED
63 : module procedure test_getReversed_D0_SK2_1
64 : use pm_kind, only: SKC => SK2
65 : #include "test_pm_arrayReverse@routines.inc.F90"
66 : end procedure
67 : #endif
68 :
69 : #if SK1_ENABLED
70 1 : module procedure test_getReversed_D0_SK1_1
71 : use pm_kind, only: SKC => SK1
72 : #include "test_pm_arrayReverse@routines.inc.F90"
73 : end procedure
74 : #endif
75 :
76 : #undef getReversed_D0_SK_ENABLED
77 :
78 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79 :
80 : #define getReversed_D1_SK_ENABLED 1
81 :
82 : #if SK5_ENABLED
83 : module procedure test_getReversed_D1_SK5_1
84 : use pm_kind, only: SKC => SK5
85 : #include "test_pm_arrayReverse@routines.inc.F90"
86 : end procedure
87 : #endif
88 :
89 : #if SK4_ENABLED
90 : module procedure test_getReversed_D1_SK4_1
91 : use pm_kind, only: SKC => SK4
92 : #include "test_pm_arrayReverse@routines.inc.F90"
93 : end procedure
94 : #endif
95 :
96 : #if SK3_ENABLED
97 : module procedure test_getReversed_D1_SK3_1
98 : use pm_kind, only: SKC => SK3
99 : #include "test_pm_arrayReverse@routines.inc.F90"
100 : end procedure
101 : #endif
102 :
103 : #if SK2_ENABLED
104 : module procedure test_getReversed_D1_SK2_1
105 : use pm_kind, only: SKC => SK2
106 : #include "test_pm_arrayReverse@routines.inc.F90"
107 : end procedure
108 : #endif
109 :
110 : #if SK1_ENABLED
111 1 : module procedure test_getReversed_D1_SK1_1
112 : use pm_kind, only: SKC => SK1
113 : #include "test_pm_arrayReverse@routines.inc.F90"
114 : end procedure
115 : #endif
116 :
117 : #undef getReversed_D1_SK_ENABLED
118 :
119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
120 :
121 : #define getReversed_D1_IK_ENABLED 1
122 :
123 : #if IK5_ENABLED
124 1 : module procedure test_getReversed_D1_IK5_1
125 : use pm_kind, only: IKC => IK5
126 : #include "test_pm_arrayReverse@routines.inc.F90"
127 : end procedure
128 : #endif
129 :
130 : #if IK4_ENABLED
131 1 : module procedure test_getReversed_D1_IK4_1
132 : use pm_kind, only: IKC => IK4
133 : #include "test_pm_arrayReverse@routines.inc.F90"
134 : end procedure
135 : #endif
136 :
137 : #if IK3_ENABLED
138 1 : module procedure test_getReversed_D1_IK3_1
139 : use pm_kind, only: IKC => IK3
140 : #include "test_pm_arrayReverse@routines.inc.F90"
141 : end procedure
142 : #endif
143 :
144 : #if IK2_ENABLED
145 1 : module procedure test_getReversed_D1_IK2_1
146 : use pm_kind, only: IKC => IK2
147 : #include "test_pm_arrayReverse@routines.inc.F90"
148 : end procedure
149 : #endif
150 :
151 : #if IK1_ENABLED
152 1 : module procedure test_getReversed_D1_IK1_1
153 : use pm_kind, only: IKC => IK1
154 : #include "test_pm_arrayReverse@routines.inc.F90"
155 : end procedure
156 : #endif
157 :
158 : #undef getReversed_D1_IK_ENABLED
159 :
160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161 :
162 : #define getReversed_D1_LK_ENABLED 1
163 :
164 : #if LK5_ENABLED
165 1 : module procedure test_getReversed_D1_LK5_1
166 : use pm_kind, only: LKC => LK5
167 : #include "test_pm_arrayReverse@routines.inc.F90"
168 : end procedure
169 : #endif
170 :
171 : #if LK4_ENABLED
172 1 : module procedure test_getReversed_D1_LK4_1
173 : use pm_kind, only: LKC => LK4
174 : #include "test_pm_arrayReverse@routines.inc.F90"
175 : end procedure
176 : #endif
177 :
178 : #if LK3_ENABLED
179 1 : module procedure test_getReversed_D1_LK3_1
180 : use pm_kind, only: LKC => LK3
181 : #include "test_pm_arrayReverse@routines.inc.F90"
182 : end procedure
183 : #endif
184 :
185 : #if LK2_ENABLED
186 1 : module procedure test_getReversed_D1_LK2_1
187 : use pm_kind, only: LKC => LK2
188 : #include "test_pm_arrayReverse@routines.inc.F90"
189 : end procedure
190 : #endif
191 :
192 : #if LK1_ENABLED
193 1 : module procedure test_getReversed_D1_LK1_1
194 : use pm_kind, only: LKC => LK1
195 : #include "test_pm_arrayReverse@routines.inc.F90"
196 : end procedure
197 : #endif
198 :
199 : #undef getReversed_D1_LK_ENABLED
200 :
201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
202 :
203 : #define getReversed_D1_CK_ENABLED 1
204 :
205 : #if CK5_ENABLED
206 : module procedure test_getReversed_D1_CK5_1
207 : use pm_kind, only: CKC => CK5
208 : #include "test_pm_arrayReverse@routines.inc.F90"
209 : end procedure
210 : #endif
211 :
212 : #if CK4_ENABLED
213 1 : module procedure test_getReversed_D1_CK4_1
214 : use pm_kind, only: CKC => CK4
215 : #include "test_pm_arrayReverse@routines.inc.F90"
216 : end procedure
217 : #endif
218 :
219 : #if CK3_ENABLED
220 1 : module procedure test_getReversed_D1_CK3_1
221 : use pm_kind, only: CKC => CK3
222 : #include "test_pm_arrayReverse@routines.inc.F90"
223 : end procedure
224 : #endif
225 :
226 : #if CK2_ENABLED
227 1 : module procedure test_getReversed_D1_CK2_1
228 : use pm_kind, only: CKC => CK2
229 : #include "test_pm_arrayReverse@routines.inc.F90"
230 : end procedure
231 : #endif
232 :
233 : #if CK1_ENABLED
234 1 : module procedure test_getReversed_D1_CK1_1
235 : use pm_kind, only: CKC => CK1
236 : #include "test_pm_arrayReverse@routines.inc.F90"
237 : end procedure
238 : #endif
239 :
240 : #undef getReversed_D1_CK_ENABLED
241 :
242 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
243 :
244 : #define getReversed_D1_RK_ENABLED 1
245 :
246 : #if RK5_ENABLED
247 : module procedure test_getReversed_D1_RK5_1
248 : use pm_kind, only: RKC => RK5
249 : #include "test_pm_arrayReverse@routines.inc.F90"
250 : end procedure
251 : #endif
252 :
253 : #if RK4_ENABLED
254 1 : module procedure test_getReversed_D1_RK4_1
255 : use pm_kind, only: RKC => RK4
256 : #include "test_pm_arrayReverse@routines.inc.F90"
257 : end procedure
258 : #endif
259 :
260 : #if RK3_ENABLED
261 1 : module procedure test_getReversed_D1_RK3_1
262 : use pm_kind, only: RKC => RK3
263 : #include "test_pm_arrayReverse@routines.inc.F90"
264 : end procedure
265 : #endif
266 :
267 : #if RK2_ENABLED
268 1 : module procedure test_getReversed_D1_RK2_1
269 : use pm_kind, only: RKC => RK2
270 : #include "test_pm_arrayReverse@routines.inc.F90"
271 : end procedure
272 : #endif
273 :
274 : #if RK1_ENABLED
275 1 : module procedure test_getReversed_D1_RK1_1
276 : use pm_kind, only: RKC => RK1
277 : #include "test_pm_arrayReverse@routines.inc.F90"
278 : end procedure
279 : #endif
280 :
281 : #undef getReversed_D1_RK_ENABLED
282 :
283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284 :
285 : #undef getReversed_D1_ENABLED
286 :
287 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
288 :
289 : #define setReversed_D1_ENABLED 1
290 :
291 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
292 :
293 : #define setReversed_D0_SK_ENABLED 1
294 :
295 : #if SK5_ENABLED
296 : module procedure test_setReversed_D0_SK5_1
297 : use pm_kind, only: SKC => SK5
298 : #include "test_pm_arrayReverse@routines.inc.F90"
299 : end procedure
300 : #endif
301 :
302 : #if SK4_ENABLED
303 : module procedure test_setReversed_D0_SK4_1
304 : use pm_kind, only: SKC => SK4
305 : #include "test_pm_arrayReverse@routines.inc.F90"
306 : end procedure
307 : #endif
308 :
309 : #if SK3_ENABLED
310 : module procedure test_setReversed_D0_SK3_1
311 : use pm_kind, only: SKC => SK3
312 : #include "test_pm_arrayReverse@routines.inc.F90"
313 : end procedure
314 : #endif
315 :
316 : #if SK2_ENABLED
317 : module procedure test_setReversed_D0_SK2_1
318 : use pm_kind, only: SKC => SK2
319 : #include "test_pm_arrayReverse@routines.inc.F90"
320 : end procedure
321 : #endif
322 :
323 : #if SK1_ENABLED
324 1 : module procedure test_setReversed_D0_SK1_1
325 : use pm_kind, only: SKC => SK1
326 : #include "test_pm_arrayReverse@routines.inc.F90"
327 : end procedure
328 : #endif
329 :
330 : #undef setReversed_D0_SK_ENABLED
331 :
332 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
333 :
334 : #define setReversed_D1_SK_ENABLED 1
335 :
336 : #if SK5_ENABLED
337 : module procedure test_setReversed_D1_SK5_1
338 : use pm_kind, only: SKC => SK5
339 : #include "test_pm_arrayReverse@routines.inc.F90"
340 : end procedure
341 : #endif
342 :
343 : #if SK4_ENABLED
344 : module procedure test_setReversed_D1_SK4_1
345 : use pm_kind, only: SKC => SK4
346 : #include "test_pm_arrayReverse@routines.inc.F90"
347 : end procedure
348 : #endif
349 :
350 : #if SK3_ENABLED
351 : module procedure test_setReversed_D1_SK3_1
352 : use pm_kind, only: SKC => SK3
353 : #include "test_pm_arrayReverse@routines.inc.F90"
354 : end procedure
355 : #endif
356 :
357 : #if SK2_ENABLED
358 : module procedure test_setReversed_D1_SK2_1
359 : use pm_kind, only: SKC => SK2
360 : #include "test_pm_arrayReverse@routines.inc.F90"
361 : end procedure
362 : #endif
363 :
364 : #if SK1_ENABLED
365 1 : module procedure test_setReversed_D1_SK1_1
366 : use pm_kind, only: SKC => SK1
367 : #include "test_pm_arrayReverse@routines.inc.F90"
368 : end procedure
369 : #endif
370 :
371 : #undef setReversed_D1_SK_ENABLED
372 :
373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
374 :
375 : #define setReversed_D1_IK_ENABLED 1
376 :
377 : #if IK5_ENABLED
378 1 : module procedure test_setReversed_D1_IK5_1
379 : use pm_kind, only: IKC => IK5
380 : #include "test_pm_arrayReverse@routines.inc.F90"
381 : end procedure
382 : #endif
383 :
384 : #if IK4_ENABLED
385 1 : module procedure test_setReversed_D1_IK4_1
386 : use pm_kind, only: IKC => IK4
387 : #include "test_pm_arrayReverse@routines.inc.F90"
388 : end procedure
389 : #endif
390 :
391 : #if IK3_ENABLED
392 1 : module procedure test_setReversed_D1_IK3_1
393 : use pm_kind, only: IKC => IK3
394 : #include "test_pm_arrayReverse@routines.inc.F90"
395 : end procedure
396 : #endif
397 :
398 : #if IK2_ENABLED
399 1 : module procedure test_setReversed_D1_IK2_1
400 : use pm_kind, only: IKC => IK2
401 : #include "test_pm_arrayReverse@routines.inc.F90"
402 : end procedure
403 : #endif
404 :
405 : #if IK1_ENABLED
406 1 : module procedure test_setReversed_D1_IK1_1
407 : use pm_kind, only: IKC => IK1
408 : #include "test_pm_arrayReverse@routines.inc.F90"
409 : end procedure
410 : #endif
411 :
412 : #undef setReversed_D1_IK_ENABLED
413 :
414 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
415 :
416 : #define setReversed_D1_LK_ENABLED 1
417 :
418 : #if LK5_ENABLED
419 1 : module procedure test_setReversed_D1_LK5_1
420 : use pm_kind, only: LKC => LK5
421 : #include "test_pm_arrayReverse@routines.inc.F90"
422 : end procedure
423 : #endif
424 :
425 : #if LK4_ENABLED
426 1 : module procedure test_setReversed_D1_LK4_1
427 : use pm_kind, only: LKC => LK4
428 : #include "test_pm_arrayReverse@routines.inc.F90"
429 : end procedure
430 : #endif
431 :
432 : #if LK3_ENABLED
433 1 : module procedure test_setReversed_D1_LK3_1
434 : use pm_kind, only: LKC => LK3
435 : #include "test_pm_arrayReverse@routines.inc.F90"
436 : end procedure
437 : #endif
438 :
439 : #if LK2_ENABLED
440 1 : module procedure test_setReversed_D1_LK2_1
441 : use pm_kind, only: LKC => LK2
442 : #include "test_pm_arrayReverse@routines.inc.F90"
443 : end procedure
444 : #endif
445 :
446 : #if LK1_ENABLED
447 1 : module procedure test_setReversed_D1_LK1_1
448 : use pm_kind, only: LKC => LK1
449 : #include "test_pm_arrayReverse@routines.inc.F90"
450 : end procedure
451 : #endif
452 :
453 : #undef setReversed_D1_LK_ENABLED
454 :
455 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
456 :
457 : #define setReversed_D1_CK_ENABLED 1
458 :
459 : #if CK5_ENABLED
460 : module procedure test_setReversed_D1_CK5_1
461 : use pm_kind, only: CKC => CK5
462 : #include "test_pm_arrayReverse@routines.inc.F90"
463 : end procedure
464 : #endif
465 :
466 : #if CK4_ENABLED
467 1 : module procedure test_setReversed_D1_CK4_1
468 : use pm_kind, only: CKC => CK4
469 : #include "test_pm_arrayReverse@routines.inc.F90"
470 : end procedure
471 : #endif
472 :
473 : #if CK3_ENABLED
474 1 : module procedure test_setReversed_D1_CK3_1
475 : use pm_kind, only: CKC => CK3
476 : #include "test_pm_arrayReverse@routines.inc.F90"
477 : end procedure
478 : #endif
479 :
480 : #if CK2_ENABLED
481 1 : module procedure test_setReversed_D1_CK2_1
482 : use pm_kind, only: CKC => CK2
483 : #include "test_pm_arrayReverse@routines.inc.F90"
484 : end procedure
485 : #endif
486 :
487 : #if CK1_ENABLED
488 1 : module procedure test_setReversed_D1_CK1_1
489 : use pm_kind, only: CKC => CK1
490 : #include "test_pm_arrayReverse@routines.inc.F90"
491 : end procedure
492 : #endif
493 :
494 : #undef setReversed_D1_CK_ENABLED
495 :
496 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
497 :
498 : #define setReversed_D1_RK_ENABLED 1
499 :
500 : #if RK5_ENABLED
501 : module procedure test_setReversed_D1_RK5_1
502 : use pm_kind, only: RKC => RK5
503 : #include "test_pm_arrayReverse@routines.inc.F90"
504 : end procedure
505 : #endif
506 :
507 : #if RK4_ENABLED
508 1 : module procedure test_setReversed_D1_RK4_1
509 : use pm_kind, only: RKC => RK4
510 : #include "test_pm_arrayReverse@routines.inc.F90"
511 : end procedure
512 : #endif
513 :
514 : #if RK3_ENABLED
515 1 : module procedure test_setReversed_D1_RK3_1
516 : use pm_kind, only: RKC => RK3
517 : #include "test_pm_arrayReverse@routines.inc.F90"
518 : end procedure
519 : #endif
520 :
521 : #if RK2_ENABLED
522 1 : module procedure test_setReversed_D1_RK2_1
523 : use pm_kind, only: RKC => RK2
524 : #include "test_pm_arrayReverse@routines.inc.F90"
525 : end procedure
526 : #endif
527 :
528 : #if RK1_ENABLED
529 1 : module procedure test_setReversed_D1_RK1_1
530 : use pm_kind, only: RKC => RK1
531 : #include "test_pm_arrayReverse@routines.inc.F90"
532 : end procedure
533 : #endif
534 :
535 : #undef setReversed_D1_RK_ENABLED
536 :
537 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
538 :
539 : #undef setReversed_D1_ENABLED
540 :
541 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
542 :
543 : end submodule routines
|
