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_arrayCenter](@ref test_pm_arrayCenter).
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_arrayCenter) routines ! LCOV_EXCL_LINE
28 :
29 : use pm_kind, only: LK, IK, SK
30 : use pm_val2str, only: getStr
31 : use pm_option, only: getOption
32 : use pm_distUnif, only: setUnifRand
33 : implicit none
34 :
35 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
36 :
37 : contains
38 :
39 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40 :
41 : #define getCentered_ENABLED 1
42 :
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : #define D0_ENABLED 1
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 :
51 : #define SK_ENABLED 1
52 :
53 : #if SK5_ENABLED
54 : module procedure test_getCentered_D0_SK5_1
55 : use pm_kind, only: SKC => SK5
56 : #include "test_pm_arrayCenter@routines.inc.F90"
57 : end procedure
58 : #endif
59 :
60 : #if SK4_ENABLED
61 : module procedure test_getCentered_D0_SK4_1
62 : use pm_kind, only: SKC => SK4
63 : #include "test_pm_arrayCenter@routines.inc.F90"
64 : end procedure
65 : #endif
66 :
67 : #if SK3_ENABLED
68 : module procedure test_getCentered_D0_SK3_1
69 : use pm_kind, only: SKC => SK3
70 : #include "test_pm_arrayCenter@routines.inc.F90"
71 : end procedure
72 : #endif
73 :
74 : #if SK2_ENABLED
75 : module procedure test_getCentered_D0_SK2_1
76 : use pm_kind, only: SKC => SK2
77 : #include "test_pm_arrayCenter@routines.inc.F90"
78 : end procedure
79 : #endif
80 :
81 : #if SK1_ENABLED
82 1 : module procedure test_getCentered_D0_SK1_1
83 : use pm_kind, only: SKC => SK1
84 : #include "test_pm_arrayCenter@routines.inc.F90"
85 : end procedure
86 : #endif
87 :
88 : #undef SK_ENABLED
89 :
90 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
91 :
92 : #undef D0_ENABLED
93 :
94 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
95 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 :
98 : #define D1_ENABLED 1
99 :
100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101 :
102 : #define SK_ENABLED 1
103 :
104 : #if SK5_ENABLED
105 : module procedure test_getCentered_D1_SK5_1
106 : use pm_kind, only: SKC => SK5
107 : #include "test_pm_arrayCenter@routines.inc.F90"
108 : end procedure
109 : #endif
110 :
111 : #if SK4_ENABLED
112 : module procedure test_getCentered_D1_SK4_1
113 : use pm_kind, only: SKC => SK4
114 : #include "test_pm_arrayCenter@routines.inc.F90"
115 : end procedure
116 : #endif
117 :
118 : #if SK3_ENABLED
119 : module procedure test_getCentered_D1_SK3_1
120 : use pm_kind, only: SKC => SK3
121 : #include "test_pm_arrayCenter@routines.inc.F90"
122 : end procedure
123 : #endif
124 :
125 : #if SK2_ENABLED
126 : module procedure test_getCentered_D1_SK2_1
127 : use pm_kind, only: SKC => SK2
128 : #include "test_pm_arrayCenter@routines.inc.F90"
129 : end procedure
130 : #endif
131 :
132 : #if SK1_ENABLED
133 1 : module procedure test_getCentered_D1_SK1_1
134 : use pm_kind, only: SKC => SK1
135 : #include "test_pm_arrayCenter@routines.inc.F90"
136 : end procedure
137 : #endif
138 :
139 : #undef SK_ENABLED
140 :
141 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
142 :
143 : #define IK_ENABLED 1
144 :
145 : #if IK5_ENABLED
146 1 : module procedure test_getCentered_D1_IK5_1
147 : use pm_kind, only: IKC => IK5
148 : #include "test_pm_arrayCenter@routines.inc.F90"
149 : end procedure
150 : #endif
151 :
152 : #if IK4_ENABLED
153 1 : module procedure test_getCentered_D1_IK4_1
154 : use pm_kind, only: IKC => IK4
155 : #include "test_pm_arrayCenter@routines.inc.F90"
156 : end procedure
157 : #endif
158 :
159 : #if IK3_ENABLED
160 1 : module procedure test_getCentered_D1_IK3_1
161 : use pm_kind, only: IKC => IK3
162 : #include "test_pm_arrayCenter@routines.inc.F90"
163 : end procedure
164 : #endif
165 :
166 : #if IK2_ENABLED
167 1 : module procedure test_getCentered_D1_IK2_1
168 : use pm_kind, only: IKC => IK2
169 : #include "test_pm_arrayCenter@routines.inc.F90"
170 : end procedure
171 : #endif
172 :
173 : #if IK1_ENABLED
174 1 : module procedure test_getCentered_D1_IK1_1
175 : use pm_kind, only: IKC => IK1
176 : #include "test_pm_arrayCenter@routines.inc.F90"
177 : end procedure
178 : #endif
179 :
180 : #undef IK_ENABLED
181 :
182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
183 :
184 : #define LK_ENABLED 1
185 :
186 : #if LK5_ENABLED
187 1 : module procedure test_getCentered_D1_LK5_1
188 : use pm_kind, only: LKC => LK5
189 : #include "test_pm_arrayCenter@routines.inc.F90"
190 : end procedure
191 : #endif
192 :
193 : #if LK4_ENABLED
194 1 : module procedure test_getCentered_D1_LK4_1
195 : use pm_kind, only: LKC => LK4
196 : #include "test_pm_arrayCenter@routines.inc.F90"
197 : end procedure
198 : #endif
199 :
200 : #if LK3_ENABLED
201 1 : module procedure test_getCentered_D1_LK3_1
202 : use pm_kind, only: LKC => LK3
203 : #include "test_pm_arrayCenter@routines.inc.F90"
204 : end procedure
205 : #endif
206 :
207 : #if LK2_ENABLED
208 1 : module procedure test_getCentered_D1_LK2_1
209 : use pm_kind, only: LKC => LK2
210 : #include "test_pm_arrayCenter@routines.inc.F90"
211 : end procedure
212 : #endif
213 :
214 : #if LK1_ENABLED
215 1 : module procedure test_getCentered_D1_LK1_1
216 : use pm_kind, only: LKC => LK1
217 : #include "test_pm_arrayCenter@routines.inc.F90"
218 : end procedure
219 : #endif
220 :
221 : #undef LK_ENABLED
222 :
223 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
224 :
225 : #define CK_ENABLED 1
226 :
227 : #if CK5_ENABLED
228 : module procedure test_getCentered_D1_CK5_1
229 : use pm_kind, only: CKC => CK5
230 : #include "test_pm_arrayCenter@routines.inc.F90"
231 : end procedure
232 : #endif
233 :
234 : #if CK4_ENABLED
235 1 : module procedure test_getCentered_D1_CK4_1
236 : use pm_kind, only: CKC => CK4
237 : #include "test_pm_arrayCenter@routines.inc.F90"
238 : end procedure
239 : #endif
240 :
241 : #if CK3_ENABLED
242 1 : module procedure test_getCentered_D1_CK3_1
243 : use pm_kind, only: CKC => CK3
244 : #include "test_pm_arrayCenter@routines.inc.F90"
245 : end procedure
246 : #endif
247 :
248 : #if CK2_ENABLED
249 1 : module procedure test_getCentered_D1_CK2_1
250 : use pm_kind, only: CKC => CK2
251 : #include "test_pm_arrayCenter@routines.inc.F90"
252 : end procedure
253 : #endif
254 :
255 : #if CK1_ENABLED
256 1 : module procedure test_getCentered_D1_CK1_1
257 : use pm_kind, only: CKC => CK1
258 : #include "test_pm_arrayCenter@routines.inc.F90"
259 : end procedure
260 : #endif
261 :
262 : #undef CK_ENABLED
263 :
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 :
266 : #define RK_ENABLED 1
267 :
268 : #if RK5_ENABLED
269 : module procedure test_getCentered_D1_RK5_1
270 : use pm_kind, only: RKC => RK5
271 : #include "test_pm_arrayCenter@routines.inc.F90"
272 : end procedure
273 : #endif
274 :
275 : #if RK4_ENABLED
276 1 : module procedure test_getCentered_D1_RK4_1
277 : use pm_kind, only: RKC => RK4
278 : #include "test_pm_arrayCenter@routines.inc.F90"
279 : end procedure
280 : #endif
281 :
282 : #if RK3_ENABLED
283 1 : module procedure test_getCentered_D1_RK3_1
284 : use pm_kind, only: RKC => RK3
285 : #include "test_pm_arrayCenter@routines.inc.F90"
286 : end procedure
287 : #endif
288 :
289 : #if RK2_ENABLED
290 1 : module procedure test_getCentered_D1_RK2_1
291 : use pm_kind, only: RKC => RK2
292 : #include "test_pm_arrayCenter@routines.inc.F90"
293 : end procedure
294 : #endif
295 :
296 : #if RK1_ENABLED
297 1 : module procedure test_getCentered_D1_RK1_1
298 : use pm_kind, only: RKC => RK1
299 : #include "test_pm_arrayCenter@routines.inc.F90"
300 : end procedure
301 : #endif
302 :
303 : #undef RK_ENABLED
304 :
305 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
306 :
307 : #undef D1_ENABLED
308 :
309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 :
313 : #undef getCentered_ENABLED
314 :
315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
316 :
317 : #define setCentered_ENABLED 1
318 :
319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
321 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
322 :
323 : #define D0_ENABLED 1
324 :
325 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
326 :
327 : #define SK_ENABLED 1
328 :
329 : #if SK5_ENABLED
330 : module procedure test_setCentered_D0_SK5_1
331 : use pm_kind, only: SKC => SK5
332 : #include "test_pm_arrayCenter@routines.inc.F90"
333 : end procedure
334 : #endif
335 :
336 : #if SK4_ENABLED
337 : module procedure test_setCentered_D0_SK4_1
338 : use pm_kind, only: SKC => SK4
339 : #include "test_pm_arrayCenter@routines.inc.F90"
340 : end procedure
341 : #endif
342 :
343 : #if SK3_ENABLED
344 : module procedure test_setCentered_D0_SK3_1
345 : use pm_kind, only: SKC => SK3
346 : #include "test_pm_arrayCenter@routines.inc.F90"
347 : end procedure
348 : #endif
349 :
350 : #if SK2_ENABLED
351 : module procedure test_setCentered_D0_SK2_1
352 : use pm_kind, only: SKC => SK2
353 : #include "test_pm_arrayCenter@routines.inc.F90"
354 : end procedure
355 : #endif
356 :
357 : #if SK1_ENABLED
358 1 : module procedure test_setCentered_D0_SK1_1
359 : use pm_kind, only: SKC => SK1
360 : #include "test_pm_arrayCenter@routines.inc.F90"
361 : end procedure
362 : #endif
363 :
364 : #undef SK_ENABLED
365 :
366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367 :
368 : #undef D0_ENABLED
369 :
370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
372 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
373 :
374 : #define D1_ENABLED 1
375 :
376 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
377 :
378 : #define SK_ENABLED 1
379 :
380 : #if SK5_ENABLED
381 : module procedure test_setCentered_D1_SK5_1
382 : use pm_kind, only: SKC => SK5
383 : #include "test_pm_arrayCenter@routines.inc.F90"
384 : end procedure
385 : #endif
386 :
387 : #if SK4_ENABLED
388 : module procedure test_setCentered_D1_SK4_1
389 : use pm_kind, only: SKC => SK4
390 : #include "test_pm_arrayCenter@routines.inc.F90"
391 : end procedure
392 : #endif
393 :
394 : #if SK3_ENABLED
395 : module procedure test_setCentered_D1_SK3_1
396 : use pm_kind, only: SKC => SK3
397 : #include "test_pm_arrayCenter@routines.inc.F90"
398 : end procedure
399 : #endif
400 :
401 : #if SK2_ENABLED
402 : module procedure test_setCentered_D1_SK2_1
403 : use pm_kind, only: SKC => SK2
404 : #include "test_pm_arrayCenter@routines.inc.F90"
405 : end procedure
406 : #endif
407 :
408 : #if SK1_ENABLED
409 1 : module procedure test_setCentered_D1_SK1_1
410 : use pm_kind, only: SKC => SK1
411 : #include "test_pm_arrayCenter@routines.inc.F90"
412 : end procedure
413 : #endif
414 :
415 : #undef SK_ENABLED
416 :
417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
418 :
419 : #define IK_ENABLED 1
420 :
421 : #if IK5_ENABLED
422 1 : module procedure test_setCentered_D1_IK5_1
423 : use pm_kind, only: IKC => IK5
424 : #include "test_pm_arrayCenter@routines.inc.F90"
425 : end procedure
426 : #endif
427 :
428 : #if IK4_ENABLED
429 1 : module procedure test_setCentered_D1_IK4_1
430 : use pm_kind, only: IKC => IK4
431 : #include "test_pm_arrayCenter@routines.inc.F90"
432 : end procedure
433 : #endif
434 :
435 : #if IK3_ENABLED
436 1 : module procedure test_setCentered_D1_IK3_1
437 : use pm_kind, only: IKC => IK3
438 : #include "test_pm_arrayCenter@routines.inc.F90"
439 : end procedure
440 : #endif
441 :
442 : #if IK2_ENABLED
443 1 : module procedure test_setCentered_D1_IK2_1
444 : use pm_kind, only: IKC => IK2
445 : #include "test_pm_arrayCenter@routines.inc.F90"
446 : end procedure
447 : #endif
448 :
449 : #if IK1_ENABLED
450 1 : module procedure test_setCentered_D1_IK1_1
451 : use pm_kind, only: IKC => IK1
452 : #include "test_pm_arrayCenter@routines.inc.F90"
453 : end procedure
454 : #endif
455 :
456 : #undef IK_ENABLED
457 :
458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
459 :
460 : #define LK_ENABLED 1
461 :
462 : #if LK5_ENABLED
463 1 : module procedure test_setCentered_D1_LK5_1
464 : use pm_kind, only: LKC => LK5
465 : #include "test_pm_arrayCenter@routines.inc.F90"
466 : end procedure
467 : #endif
468 :
469 : #if LK4_ENABLED
470 1 : module procedure test_setCentered_D1_LK4_1
471 : use pm_kind, only: LKC => LK4
472 : #include "test_pm_arrayCenter@routines.inc.F90"
473 : end procedure
474 : #endif
475 :
476 : #if LK3_ENABLED
477 1 : module procedure test_setCentered_D1_LK3_1
478 : use pm_kind, only: LKC => LK3
479 : #include "test_pm_arrayCenter@routines.inc.F90"
480 : end procedure
481 : #endif
482 :
483 : #if LK2_ENABLED
484 1 : module procedure test_setCentered_D1_LK2_1
485 : use pm_kind, only: LKC => LK2
486 : #include "test_pm_arrayCenter@routines.inc.F90"
487 : end procedure
488 : #endif
489 :
490 : #if LK1_ENABLED
491 1 : module procedure test_setCentered_D1_LK1_1
492 : use pm_kind, only: LKC => LK1
493 : #include "test_pm_arrayCenter@routines.inc.F90"
494 : end procedure
495 : #endif
496 :
497 : #undef LK_ENABLED
498 :
499 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
500 :
501 : #define CK_ENABLED 1
502 :
503 : #if CK5_ENABLED
504 : module procedure test_setCentered_D1_CK5_1
505 : use pm_kind, only: CKC => CK5
506 : #include "test_pm_arrayCenter@routines.inc.F90"
507 : end procedure
508 : #endif
509 :
510 : #if CK4_ENABLED
511 1 : module procedure test_setCentered_D1_CK4_1
512 : use pm_kind, only: CKC => CK4
513 : #include "test_pm_arrayCenter@routines.inc.F90"
514 : end procedure
515 : #endif
516 :
517 : #if CK3_ENABLED
518 1 : module procedure test_setCentered_D1_CK3_1
519 : use pm_kind, only: CKC => CK3
520 : #include "test_pm_arrayCenter@routines.inc.F90"
521 : end procedure
522 : #endif
523 :
524 : #if CK2_ENABLED
525 1 : module procedure test_setCentered_D1_CK2_1
526 : use pm_kind, only: CKC => CK2
527 : #include "test_pm_arrayCenter@routines.inc.F90"
528 : end procedure
529 : #endif
530 :
531 : #if CK1_ENABLED
532 1 : module procedure test_setCentered_D1_CK1_1
533 : use pm_kind, only: CKC => CK1
534 : #include "test_pm_arrayCenter@routines.inc.F90"
535 : end procedure
536 : #endif
537 :
538 : #undef CK_ENABLED
539 :
540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541 :
542 : #define RK_ENABLED 1
543 :
544 : #if RK5_ENABLED
545 : module procedure test_setCentered_D1_RK5_1
546 : use pm_kind, only: RKC => RK5
547 : #include "test_pm_arrayCenter@routines.inc.F90"
548 : end procedure
549 : #endif
550 :
551 : #if RK4_ENABLED
552 1 : module procedure test_setCentered_D1_RK4_1
553 : use pm_kind, only: RKC => RK4
554 : #include "test_pm_arrayCenter@routines.inc.F90"
555 : end procedure
556 : #endif
557 :
558 : #if RK3_ENABLED
559 1 : module procedure test_setCentered_D1_RK3_1
560 : use pm_kind, only: RKC => RK3
561 : #include "test_pm_arrayCenter@routines.inc.F90"
562 : end procedure
563 : #endif
564 :
565 : #if RK2_ENABLED
566 1 : module procedure test_setCentered_D1_RK2_1
567 : use pm_kind, only: RKC => RK2
568 : #include "test_pm_arrayCenter@routines.inc.F90"
569 : end procedure
570 : #endif
571 :
572 : #if RK1_ENABLED
573 1 : module procedure test_setCentered_D1_RK1_1
574 : use pm_kind, only: RKC => RK1
575 : #include "test_pm_arrayCenter@routines.inc.F90"
576 : end procedure
577 : #endif
578 :
579 : #undef RK_ENABLED
580 :
581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
582 :
583 : #undef D1_ENABLED
584 :
585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
588 :
589 : #undef setCentered_ENABLED
590 :
591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
592 :
593 : end submodule routines
|
