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_arrayResize](@ref test_pm_arrayResize).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 12:20 AM, October 13, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (test_pm_arrayResize) routines ! LCOV_EXCL_LINE
28 :
29 : ! \bug
30 : ! There is a viscous Intel compiler 2022 bug where the appearance of the following `use` statements
31 : ! in the body of the implementation include file `test_pm_arrayResize@routines.inc.F90` leads to various
32 : ! mistakes in parsing and preprocessing the contents of the include file.<br>
33 : ! The threshold for the maximum number of `use` statements within the entire submodule appears to be
34 : ! about `55`, because activating more than 55 procedures of the submodule
35 : ! leads to compilation failures due syntax parsing mistakes by the Intel compiler.<br>
36 : use pm_distUnif, only: getUnifRand
37 : use pm_distUnif, only: setUnifRand
38 : use pm_arrayInit, only: setCoreHalo
39 : use pm_io, only: display_type
40 : use pm_val2str, only: getStr
41 :
42 : implicit none
43 :
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : contains
47 :
48 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
49 :
50 : #define setResized_ENABLED 1
51 :
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
55 :
56 : #define setResized_D0_ENABLED 1
57 :
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 :
60 : #define setResized_D0_SK_ENABLED 1
61 :
62 : #if SK5_ENABLED
63 : module procedure test_setResized_D0_SK5_1
64 : use pm_kind, only: SKC => SK5
65 : #include "test_pm_arrayResize@routines.inc.F90"
66 : end procedure
67 : #endif
68 :
69 : #if SK4_ENABLED
70 : module procedure test_setResized_D0_SK4_1
71 : use pm_kind, only: SKC => SK4
72 : #include "test_pm_arrayResize@routines.inc.F90"
73 : end procedure
74 : #endif
75 :
76 : #if SK3_ENABLED
77 : module procedure test_setResized_D0_SK3_1
78 : use pm_kind, only: SKC => SK3
79 : #include "test_pm_arrayResize@routines.inc.F90"
80 : end procedure
81 : #endif
82 :
83 : #if SK2_ENABLED
84 : module procedure test_setResized_D0_SK2_1
85 : use pm_kind, only: SKC => SK2
86 : #include "test_pm_arrayResize@routines.inc.F90"
87 : end procedure
88 : #endif
89 :
90 : #if SK1_ENABLED
91 1 : module procedure test_setResized_D0_SK1_1
92 : use pm_kind, only: SKC => SK1
93 : #include "test_pm_arrayResize@routines.inc.F90"
94 : end procedure
95 : #endif
96 :
97 : #undef setResized_D0_SK_ENABLED
98 :
99 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
100 :
101 : #undef setResized_D0_ENABLED
102 :
103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
106 :
107 : #define setResized_D1_ENABLED 1
108 :
109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
110 :
111 : #define setResized_D1_SK_ENABLED 1
112 :
113 : #if SK5_ENABLED
114 : module procedure test_setResized_D1_SK5_1
115 : use pm_kind, only: SKC => SK5
116 : #include "test_pm_arrayResize@routines.inc.F90"
117 : end procedure
118 : #endif
119 :
120 : #if SK4_ENABLED
121 : module procedure test_setResized_D1_SK4_1
122 : use pm_kind, only: SKC => SK4
123 : #include "test_pm_arrayResize@routines.inc.F90"
124 : end procedure
125 : #endif
126 :
127 : #if SK3_ENABLED
128 : module procedure test_setResized_D1_SK3_1
129 : use pm_kind, only: SKC => SK3
130 : #include "test_pm_arrayResize@routines.inc.F90"
131 : end procedure
132 : #endif
133 :
134 : #if SK2_ENABLED
135 : module procedure test_setResized_D1_SK2_1
136 : use pm_kind, only: SKC => SK2
137 : #include "test_pm_arrayResize@routines.inc.F90"
138 : end procedure
139 : #endif
140 :
141 : #if SK1_ENABLED
142 1 : module procedure test_setResized_D1_SK1_1
143 : use pm_kind, only: SKC => SK1
144 : #include "test_pm_arrayResize@routines.inc.F90"
145 : end procedure
146 : #endif
147 :
148 : #undef setResized_D1_SK_ENABLED
149 :
150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151 :
152 : #define setResized_D1_IK_ENABLED 1
153 :
154 : #if IK5_ENABLED
155 1 : module procedure test_setResized_D1_IK5_1
156 : use pm_kind, only: IKC => IK5
157 : #include "test_pm_arrayResize@routines.inc.F90"
158 : end procedure
159 : #endif
160 :
161 : #if IK4_ENABLED
162 1 : module procedure test_setResized_D1_IK4_1
163 : use pm_kind, only: IKC => IK4
164 : #include "test_pm_arrayResize@routines.inc.F90"
165 : end procedure
166 : #endif
167 :
168 : #if IK3_ENABLED
169 1 : module procedure test_setResized_D1_IK3_1
170 : use pm_kind, only: IKC => IK3
171 : #include "test_pm_arrayResize@routines.inc.F90"
172 : end procedure
173 : #endif
174 :
175 : #if IK2_ENABLED
176 1 : module procedure test_setResized_D1_IK2_1
177 : use pm_kind, only: IKC => IK2
178 : #include "test_pm_arrayResize@routines.inc.F90"
179 : end procedure
180 : #endif
181 :
182 : #if IK1_ENABLED
183 1 : module procedure test_setResized_D1_IK1_1
184 : use pm_kind, only: IKC => IK1
185 : #include "test_pm_arrayResize@routines.inc.F90"
186 : end procedure
187 : #endif
188 :
189 : #undef setResized_D1_IK_ENABLED
190 :
191 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
192 :
193 : #define setResized_D1_LK_ENABLED 1
194 :
195 : #if LK5_ENABLED
196 1 : module procedure test_setResized_D1_LK5_1
197 : use pm_kind, only: LKC => LK5
198 : #include "test_pm_arrayResize@routines.inc.F90"
199 : end procedure
200 : #endif
201 :
202 : #if LK4_ENABLED
203 1 : module procedure test_setResized_D1_LK4_1
204 : use pm_kind, only: LKC => LK4
205 : #include "test_pm_arrayResize@routines.inc.F90"
206 : end procedure
207 : #endif
208 :
209 : #if LK3_ENABLED
210 1 : module procedure test_setResized_D1_LK3_1
211 : use pm_kind, only: LKC => LK3
212 : #include "test_pm_arrayResize@routines.inc.F90"
213 : end procedure
214 : #endif
215 :
216 : #if LK2_ENABLED
217 1 : module procedure test_setResized_D1_LK2_1
218 : use pm_kind, only: LKC => LK2
219 : #include "test_pm_arrayResize@routines.inc.F90"
220 : end procedure
221 : #endif
222 :
223 : #if LK1_ENABLED
224 1 : module procedure test_setResized_D1_LK1_1
225 : use pm_kind, only: LKC => LK1
226 : #include "test_pm_arrayResize@routines.inc.F90"
227 : end procedure
228 : #endif
229 :
230 : #undef setResized_D1_LK_ENABLED
231 :
232 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
233 :
234 : #define setResized_D1_CK_ENABLED 1
235 :
236 : #if CK5_ENABLED
237 : module procedure test_setResized_D1_CK5_1
238 : use pm_kind, only: CKC => CK5
239 : #include "test_pm_arrayResize@routines.inc.F90"
240 : end procedure
241 : #endif
242 :
243 : #if CK4_ENABLED
244 1 : module procedure test_setResized_D1_CK4_1
245 : use pm_kind, only: CKC => CK4
246 : #include "test_pm_arrayResize@routines.inc.F90"
247 : end procedure
248 : #endif
249 :
250 : #if CK3_ENABLED
251 1 : module procedure test_setResized_D1_CK3_1
252 : use pm_kind, only: CKC => CK3
253 : #include "test_pm_arrayResize@routines.inc.F90"
254 : end procedure
255 : #endif
256 :
257 : #if CK2_ENABLED
258 1 : module procedure test_setResized_D1_CK2_1
259 : use pm_kind, only: CKC => CK2
260 : #include "test_pm_arrayResize@routines.inc.F90"
261 : end procedure
262 : #endif
263 :
264 : #if CK1_ENABLED
265 1 : module procedure test_setResized_D1_CK1_1
266 : use pm_kind, only: CKC => CK1
267 : #include "test_pm_arrayResize@routines.inc.F90"
268 : end procedure
269 : #endif
270 :
271 : #undef setResized_D1_CK_ENABLED
272 :
273 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
274 :
275 : #define setResized_D1_RK_ENABLED 1
276 :
277 : #if RK5_ENABLED
278 : module procedure test_setResized_D1_RK5_1
279 : use pm_kind, only: RKC => RK5
280 : #include "test_pm_arrayResize@routines.inc.F90"
281 : end procedure
282 : #endif
283 :
284 : #if RK4_ENABLED
285 1 : module procedure test_setResized_D1_RK4_1
286 : use pm_kind, only: RKC => RK4
287 : #include "test_pm_arrayResize@routines.inc.F90"
288 : end procedure
289 : #endif
290 :
291 : #if RK3_ENABLED
292 1 : module procedure test_setResized_D1_RK3_1
293 : use pm_kind, only: RKC => RK3
294 : #include "test_pm_arrayResize@routines.inc.F90"
295 : end procedure
296 : #endif
297 :
298 : #if RK2_ENABLED
299 1 : module procedure test_setResized_D1_RK2_1
300 : use pm_kind, only: RKC => RK2
301 : #include "test_pm_arrayResize@routines.inc.F90"
302 : end procedure
303 : #endif
304 :
305 : #if RK1_ENABLED
306 1 : module procedure test_setResized_D1_RK1_1
307 : use pm_kind, only: RKC => RK1
308 : #include "test_pm_arrayResize@routines.inc.F90"
309 : end procedure
310 : #endif
311 :
312 : #undef setResized_D1_RK_ENABLED
313 :
314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 :
316 : #undef setResized_D1_ENABLED
317 :
318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
321 :
322 : #define setResized_D2_ENABLED 1
323 :
324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
325 :
326 : #define setResized_D2_SK_ENABLED 1
327 :
328 : #if SK5_ENABLED
329 : module procedure test_setResized_D2_SK5_1
330 : use pm_kind, only: SKC => SK5
331 : #include "test_pm_arrayResize@routines.inc.F90"
332 : end procedure
333 : #endif
334 :
335 : #if SK4_ENABLED
336 : module procedure test_setResized_D2_SK4_1
337 : use pm_kind, only: SKC => SK4
338 : #include "test_pm_arrayResize@routines.inc.F90"
339 : end procedure
340 : #endif
341 :
342 : #if SK3_ENABLED
343 : module procedure test_setResized_D2_SK3_1
344 : use pm_kind, only: SKC => SK3
345 : #include "test_pm_arrayResize@routines.inc.F90"
346 : end procedure
347 : #endif
348 :
349 : #if SK2_ENABLED
350 : module procedure test_setResized_D2_SK2_1
351 : use pm_kind, only: SKC => SK2
352 : #include "test_pm_arrayResize@routines.inc.F90"
353 : end procedure
354 : #endif
355 :
356 : #if SK1_ENABLED
357 1 : module procedure test_setResized_D2_SK1_1
358 : use pm_kind, only: SKC => SK1
359 : #include "test_pm_arrayResize@routines.inc.F90"
360 : end procedure
361 : #endif
362 :
363 : #undef setResized_D2_SK_ENABLED
364 :
365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
366 :
367 : #define setResized_D2_IK_ENABLED 1
368 :
369 : #if IK5_ENABLED
370 1 : module procedure test_setResized_D2_IK5_1
371 : use pm_kind, only: IKC => IK5
372 : #include "test_pm_arrayResize@routines.inc.F90"
373 : end procedure
374 : #endif
375 :
376 : #if IK4_ENABLED
377 1 : module procedure test_setResized_D2_IK4_1
378 : use pm_kind, only: IKC => IK4
379 : #include "test_pm_arrayResize@routines.inc.F90"
380 : end procedure
381 : #endif
382 :
383 : #if IK3_ENABLED
384 1 : module procedure test_setResized_D2_IK3_1
385 : use pm_kind, only: IKC => IK3
386 : #include "test_pm_arrayResize@routines.inc.F90"
387 : end procedure
388 : #endif
389 :
390 : #if IK2_ENABLED
391 1 : module procedure test_setResized_D2_IK2_1
392 : use pm_kind, only: IKC => IK2
393 : #include "test_pm_arrayResize@routines.inc.F90"
394 : end procedure
395 : #endif
396 :
397 : #if IK1_ENABLED
398 1 : module procedure test_setResized_D2_IK1_1
399 : use pm_kind, only: IKC => IK1
400 : #include "test_pm_arrayResize@routines.inc.F90"
401 : end procedure
402 : #endif
403 :
404 : #undef setResized_D2_IK_ENABLED
405 :
406 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
407 :
408 : #define setResized_D2_LK_ENABLED 1
409 :
410 : #if LK5_ENABLED
411 1 : module procedure test_setResized_D2_LK5_1
412 : use pm_kind, only: LKC => LK5
413 : #include "test_pm_arrayResize@routines.inc.F90"
414 : end procedure
415 : #endif
416 :
417 : #if LK4_ENABLED
418 1 : module procedure test_setResized_D2_LK4_1
419 : use pm_kind, only: LKC => LK4
420 : #include "test_pm_arrayResize@routines.inc.F90"
421 : end procedure
422 : #endif
423 :
424 : #if LK3_ENABLED
425 1 : module procedure test_setResized_D2_LK3_1
426 : use pm_kind, only: LKC => LK3
427 : #include "test_pm_arrayResize@routines.inc.F90"
428 : end procedure
429 : #endif
430 :
431 : #if LK2_ENABLED
432 1 : module procedure test_setResized_D2_LK2_1
433 : use pm_kind, only: LKC => LK2
434 : #include "test_pm_arrayResize@routines.inc.F90"
435 : end procedure
436 : #endif
437 :
438 : #if LK1_ENABLED
439 1 : module procedure test_setResized_D2_LK1_1
440 : use pm_kind, only: LKC => LK1
441 : #include "test_pm_arrayResize@routines.inc.F90"
442 : end procedure
443 : #endif
444 :
445 : #undef setResized_D2_LK_ENABLED
446 :
447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
448 :
449 : #define setResized_D2_CK_ENABLED 1
450 :
451 : #if CK5_ENABLED
452 : module procedure test_setResized_D2_CK5_1
453 : use pm_kind, only: CKC => CK5
454 : #include "test_pm_arrayResize@routines.inc.F90"
455 : end procedure
456 : #endif
457 :
458 : #if CK4_ENABLED
459 1 : module procedure test_setResized_D2_CK4_1
460 : use pm_kind, only: CKC => CK4
461 : #include "test_pm_arrayResize@routines.inc.F90"
462 : end procedure
463 : #endif
464 :
465 : #if CK3_ENABLED
466 1 : module procedure test_setResized_D2_CK3_1
467 : use pm_kind, only: CKC => CK3
468 : #include "test_pm_arrayResize@routines.inc.F90"
469 : end procedure
470 : #endif
471 :
472 : #if CK2_ENABLED
473 1 : module procedure test_setResized_D2_CK2_1
474 : use pm_kind, only: CKC => CK2
475 : #include "test_pm_arrayResize@routines.inc.F90"
476 : end procedure
477 : #endif
478 :
479 : #if CK1_ENABLED
480 1 : module procedure test_setResized_D2_CK1_1
481 : use pm_kind, only: CKC => CK1
482 : #include "test_pm_arrayResize@routines.inc.F90"
483 : end procedure
484 : #endif
485 :
486 : #undef setResized_D2_CK_ENABLED
487 :
488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
489 :
490 : #define setResized_D2_RK_ENABLED 1
491 :
492 : #if RK5_ENABLED
493 : module procedure test_setResized_D2_RK5_1
494 : use pm_kind, only: RKC => RK5
495 : #include "test_pm_arrayResize@routines.inc.F90"
496 : end procedure
497 : #endif
498 :
499 : #if RK4_ENABLED
500 1 : module procedure test_setResized_D2_RK4_1
501 : use pm_kind, only: RKC => RK4
502 : #include "test_pm_arrayResize@routines.inc.F90"
503 : end procedure
504 : #endif
505 :
506 : #if RK3_ENABLED
507 1 : module procedure test_setResized_D2_RK3_1
508 : use pm_kind, only: RKC => RK3
509 : #include "test_pm_arrayResize@routines.inc.F90"
510 : end procedure
511 : #endif
512 :
513 : #if RK2_ENABLED
514 1 : module procedure test_setResized_D2_RK2_1
515 : use pm_kind, only: RKC => RK2
516 : #include "test_pm_arrayResize@routines.inc.F90"
517 : end procedure
518 : #endif
519 :
520 : #if RK1_ENABLED
521 1 : module procedure test_setResized_D2_RK1_1
522 : use pm_kind, only: RKC => RK1
523 : #include "test_pm_arrayResize@routines.inc.F90"
524 : end procedure
525 : #endif
526 :
527 : #undef setResized_D2_RK_ENABLED
528 :
529 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
530 :
531 : #undef setResized_D2_ENABLED
532 :
533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
536 :
537 : #define setResized_D3_ENABLED 1
538 :
539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
540 :
541 : #define setResized_D3_SK_ENABLED 1
542 :
543 : #if SK5_ENABLED
544 : module procedure test_setResized_D3_SK5_1
545 : use pm_kind, only: SKC => SK5
546 : #include "test_pm_arrayResize@routines.inc.F90"
547 : end procedure
548 : #endif
549 :
550 : #if SK4_ENABLED
551 : module procedure test_setResized_D3_SK4_1
552 : use pm_kind, only: SKC => SK4
553 : #include "test_pm_arrayResize@routines.inc.F90"
554 : end procedure
555 : #endif
556 :
557 : #if SK3_ENABLED
558 : module procedure test_setResized_D3_SK3_1
559 : use pm_kind, only: SKC => SK3
560 : #include "test_pm_arrayResize@routines.inc.F90"
561 : end procedure
562 : #endif
563 :
564 : #if SK2_ENABLED
565 : module procedure test_setResized_D3_SK2_1
566 : use pm_kind, only: SKC => SK2
567 : #include "test_pm_arrayResize@routines.inc.F90"
568 : end procedure
569 : #endif
570 :
571 : #if SK1_ENABLED
572 1 : module procedure test_setResized_D3_SK1_1
573 : use pm_kind, only: SKC => SK1
574 : #include "test_pm_arrayResize@routines.inc.F90"
575 : end procedure
576 : #endif
577 :
578 : #undef setResized_D3_SK_ENABLED
579 :
580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581 :
582 : #define setResized_D3_IK_ENABLED 1
583 :
584 : #if IK5_ENABLED
585 1 : module procedure test_setResized_D3_IK5_1
586 : use pm_kind, only: IKC => IK5
587 : #include "test_pm_arrayResize@routines.inc.F90"
588 : end procedure
589 : #endif
590 :
591 : #if IK4_ENABLED
592 1 : module procedure test_setResized_D3_IK4_1
593 : use pm_kind, only: IKC => IK4
594 : #include "test_pm_arrayResize@routines.inc.F90"
595 : end procedure
596 : #endif
597 :
598 : #if IK3_ENABLED
599 1 : module procedure test_setResized_D3_IK3_1
600 : use pm_kind, only: IKC => IK3
601 : #include "test_pm_arrayResize@routines.inc.F90"
602 : end procedure
603 : #endif
604 :
605 : #if IK2_ENABLED
606 1 : module procedure test_setResized_D3_IK2_1
607 : use pm_kind, only: IKC => IK2
608 : #include "test_pm_arrayResize@routines.inc.F90"
609 : end procedure
610 : #endif
611 :
612 : #if IK1_ENABLED
613 1 : module procedure test_setResized_D3_IK1_1
614 : use pm_kind, only: IKC => IK1
615 : #include "test_pm_arrayResize@routines.inc.F90"
616 : end procedure
617 : #endif
618 :
619 : #undef setResized_D3_IK_ENABLED
620 :
621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
622 :
623 : #define setResized_D3_LK_ENABLED 1
624 :
625 : #if LK5_ENABLED
626 1 : module procedure test_setResized_D3_LK5_1
627 : use pm_kind, only: LKC => LK5
628 : #include "test_pm_arrayResize@routines.inc.F90"
629 : end procedure
630 : #endif
631 :
632 : #if LK4_ENABLED
633 1 : module procedure test_setResized_D3_LK4_1
634 : use pm_kind, only: LKC => LK4
635 : #include "test_pm_arrayResize@routines.inc.F90"
636 : end procedure
637 : #endif
638 :
639 : #if LK3_ENABLED
640 1 : module procedure test_setResized_D3_LK3_1
641 : use pm_kind, only: LKC => LK3
642 : #include "test_pm_arrayResize@routines.inc.F90"
643 : end procedure
644 : #endif
645 :
646 : #if LK2_ENABLED
647 1 : module procedure test_setResized_D3_LK2_1
648 : use pm_kind, only: LKC => LK2
649 : #include "test_pm_arrayResize@routines.inc.F90"
650 : end procedure
651 : #endif
652 :
653 : #if LK1_ENABLED
654 1 : module procedure test_setResized_D3_LK1_1
655 : use pm_kind, only: LKC => LK1
656 : #include "test_pm_arrayResize@routines.inc.F90"
657 : end procedure
658 : #endif
659 :
660 : #undef setResized_D3_LK_ENABLED
661 :
662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663 :
664 : #define setResized_D3_CK_ENABLED 1
665 :
666 : #if CK5_ENABLED
667 : module procedure test_setResized_D3_CK5_1
668 : use pm_kind, only: CKC => CK5
669 : #include "test_pm_arrayResize@routines.inc.F90"
670 : end procedure
671 : #endif
672 :
673 : #if CK4_ENABLED
674 1 : module procedure test_setResized_D3_CK4_1
675 : use pm_kind, only: CKC => CK4
676 : #include "test_pm_arrayResize@routines.inc.F90"
677 : end procedure
678 : #endif
679 :
680 : #if CK3_ENABLED
681 1 : module procedure test_setResized_D3_CK3_1
682 : use pm_kind, only: CKC => CK3
683 : #include "test_pm_arrayResize@routines.inc.F90"
684 : end procedure
685 : #endif
686 :
687 : #if CK2_ENABLED
688 1 : module procedure test_setResized_D3_CK2_1
689 : use pm_kind, only: CKC => CK2
690 : #include "test_pm_arrayResize@routines.inc.F90"
691 : end procedure
692 : #endif
693 :
694 : #if CK1_ENABLED
695 1 : module procedure test_setResized_D3_CK1_1
696 : use pm_kind, only: CKC => CK1
697 : #include "test_pm_arrayResize@routines.inc.F90"
698 : end procedure
699 : #endif
700 :
701 : #undef setResized_D3_CK_ENABLED
702 :
703 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
704 :
705 : #define setResized_D3_RK_ENABLED 1
706 :
707 : #if RK5_ENABLED
708 : module procedure test_setResized_D3_RK5_1
709 : use pm_kind, only: RKC => RK5
710 : #include "test_pm_arrayResize@routines.inc.F90"
711 : end procedure
712 : #endif
713 :
714 : #if RK4_ENABLED
715 1 : module procedure test_setResized_D3_RK4_1
716 : use pm_kind, only: RKC => RK4
717 : #include "test_pm_arrayResize@routines.inc.F90"
718 : end procedure
719 : #endif
720 :
721 : #if RK3_ENABLED
722 1 : module procedure test_setResized_D3_RK3_1
723 : use pm_kind, only: RKC => RK3
724 : #include "test_pm_arrayResize@routines.inc.F90"
725 : end procedure
726 : #endif
727 :
728 : #if RK2_ENABLED
729 1 : module procedure test_setResized_D3_RK2_1
730 : use pm_kind, only: RKC => RK2
731 : #include "test_pm_arrayResize@routines.inc.F90"
732 : end procedure
733 : #endif
734 :
735 : #if RK1_ENABLED
736 1 : module procedure test_setResized_D3_RK1_1
737 : use pm_kind, only: RKC => RK1
738 : #include "test_pm_arrayResize@routines.inc.F90"
739 : end procedure
740 : #endif
741 :
742 : #undef setResized_D3_RK_ENABLED
743 :
744 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
745 :
746 : #undef setResized_D3_ENABLED
747 :
748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
749 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
750 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
751 :
752 : #undef setResized_ENABLED
753 :
754 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
755 :
756 : end submodule routines
|
