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 [pm_arrayMerge](@ref pm_arrayMerge).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 5:03 PM, August 11, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (test_pm_arrayMerge) routines ! LCOV_EXCL_LINE
28 :
29 : use pm_distUnif, only: getUnifRand
30 : use pm_distUnif, only: setUnifRand
31 : use pm_arraySort, only: setSorted
32 : use pm_val2str, only: getStr
33 : implicit none
34 :
35 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
36 :
37 : contains
38 :
39 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40 :
41 : #define getMerged_ENABLED 1
42 :
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 :
45 : #define getMerged_D0_SK_ENABLED 1
46 :
47 : #if SK5_ENABLED
48 : module procedure test_getMerged_D0_SK5_1
49 : use pm_kind, only: SKC => SK5
50 : #include "test_pm_arrayMerge@routines.inc.F90"
51 : end procedure
52 : #endif
53 :
54 : #if SK4_ENABLED
55 : module procedure test_getMerged_D0_SK4_1
56 : use pm_kind, only: SKC => SK4
57 : #include "test_pm_arrayMerge@routines.inc.F90"
58 : end procedure
59 : #endif
60 :
61 : #if SK3_ENABLED
62 : module procedure test_getMerged_D0_SK3_1
63 : use pm_kind, only: SKC => SK3
64 : #include "test_pm_arrayMerge@routines.inc.F90"
65 : end procedure
66 : #endif
67 :
68 : #if SK2_ENABLED
69 : module procedure test_getMerged_D0_SK2_1
70 : use pm_kind, only: SKC => SK2
71 : #include "test_pm_arrayMerge@routines.inc.F90"
72 : end procedure
73 : #endif
74 :
75 : #if SK1_ENABLED
76 1 : module procedure test_getMerged_D0_SK1_1
77 : use pm_kind, only: SKC => SK1
78 : #include "test_pm_arrayMerge@routines.inc.F90"
79 : end procedure
80 : #endif
81 :
82 : #undef getMerged_D0_SK_ENABLED
83 :
84 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
85 :
86 : #define getMerged_D1_SK_ENABLED 1
87 :
88 : #if SK5_ENABLED
89 : module procedure test_getMerged_D1_SK5_1
90 : use pm_kind, only: SKC => SK5
91 : #include "test_pm_arrayMerge@routines.inc.F90"
92 : end procedure
93 : #endif
94 :
95 : #if SK4_ENABLED
96 : module procedure test_getMerged_D1_SK4_1
97 : use pm_kind, only: SKC => SK4
98 : #include "test_pm_arrayMerge@routines.inc.F90"
99 : end procedure
100 : #endif
101 :
102 : #if SK3_ENABLED
103 : module procedure test_getMerged_D1_SK3_1
104 : use pm_kind, only: SKC => SK3
105 : #include "test_pm_arrayMerge@routines.inc.F90"
106 : end procedure
107 : #endif
108 :
109 : #if SK2_ENABLED
110 : module procedure test_getMerged_D1_SK2_1
111 : use pm_kind, only: SKC => SK2
112 : #include "test_pm_arrayMerge@routines.inc.F90"
113 : end procedure
114 : #endif
115 :
116 : #if SK1_ENABLED
117 1 : module procedure test_getMerged_D1_SK1_1
118 : use pm_kind, only: SKC => SK1
119 : #include "test_pm_arrayMerge@routines.inc.F90"
120 : end procedure
121 : #endif
122 :
123 : #undef getMerged_D1_SK_ENABLED
124 :
125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
126 :
127 : #define getMerged_D1_IK_ENABLED 1
128 :
129 : #if IK5_ENABLED
130 1 : module procedure test_getMerged_D1_IK5_1
131 : use pm_kind, only: IKC => IK5
132 : #include "test_pm_arrayMerge@routines.inc.F90"
133 : end procedure
134 : #endif
135 :
136 : #if IK4_ENABLED
137 1 : module procedure test_getMerged_D1_IK4_1
138 : use pm_kind, only: IKC => IK4
139 : #include "test_pm_arrayMerge@routines.inc.F90"
140 : end procedure
141 : #endif
142 :
143 : #if IK3_ENABLED
144 1 : module procedure test_getMerged_D1_IK3_1
145 : use pm_kind, only: IKC => IK3
146 : #include "test_pm_arrayMerge@routines.inc.F90"
147 : end procedure
148 : #endif
149 :
150 : #if IK2_ENABLED
151 1 : module procedure test_getMerged_D1_IK2_1
152 : use pm_kind, only: IKC => IK2
153 : #include "test_pm_arrayMerge@routines.inc.F90"
154 : end procedure
155 : #endif
156 :
157 : #if IK1_ENABLED
158 1 : module procedure test_getMerged_D1_IK1_1
159 : use pm_kind, only: IKC => IK1
160 : #include "test_pm_arrayMerge@routines.inc.F90"
161 : end procedure
162 : #endif
163 :
164 : #undef getMerged_D1_IK_ENABLED
165 :
166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167 :
168 : #define getMerged_D1_LK_ENABLED 1
169 :
170 : #if LK5_ENABLED
171 1 : module procedure test_getMerged_D1_LK5_1
172 : use pm_kind, only: LKC => LK5
173 : #include "test_pm_arrayMerge@routines.inc.F90"
174 : end procedure
175 : #endif
176 :
177 : #if LK4_ENABLED
178 1 : module procedure test_getMerged_D1_LK4_1
179 : use pm_kind, only: LKC => LK4
180 : #include "test_pm_arrayMerge@routines.inc.F90"
181 : end procedure
182 : #endif
183 :
184 : #if LK3_ENABLED
185 1 : module procedure test_getMerged_D1_LK3_1
186 : use pm_kind, only: LKC => LK3
187 : #include "test_pm_arrayMerge@routines.inc.F90"
188 : end procedure
189 : #endif
190 :
191 : #if LK2_ENABLED
192 1 : module procedure test_getMerged_D1_LK2_1
193 : use pm_kind, only: LKC => LK2
194 : #include "test_pm_arrayMerge@routines.inc.F90"
195 : end procedure
196 : #endif
197 :
198 : #if LK1_ENABLED
199 1 : module procedure test_getMerged_D1_LK1_1
200 : use pm_kind, only: LKC => LK1
201 : #include "test_pm_arrayMerge@routines.inc.F90"
202 : end procedure
203 : #endif
204 :
205 : #undef getMerged_D1_LK_ENABLED
206 :
207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
208 :
209 : #define getMerged_D1_CK_ENABLED 1
210 :
211 : #if CK5_ENABLED
212 : module procedure test_getMerged_D1_CK5_1
213 : use pm_kind, only: CKC => CK5
214 : #include "test_pm_arrayMerge@routines.inc.F90"
215 : end procedure
216 : #endif
217 :
218 : #if CK4_ENABLED
219 1 : module procedure test_getMerged_D1_CK4_1
220 : use pm_kind, only: CKC => CK4
221 : #include "test_pm_arrayMerge@routines.inc.F90"
222 : end procedure
223 : #endif
224 :
225 : #if CK3_ENABLED
226 1 : module procedure test_getMerged_D1_CK3_1
227 : use pm_kind, only: CKC => CK3
228 : #include "test_pm_arrayMerge@routines.inc.F90"
229 : end procedure
230 : #endif
231 :
232 : #if CK2_ENABLED
233 1 : module procedure test_getMerged_D1_CK2_1
234 : use pm_kind, only: CKC => CK2
235 : #include "test_pm_arrayMerge@routines.inc.F90"
236 : end procedure
237 : #endif
238 :
239 : #if CK1_ENABLED
240 1 : module procedure test_getMerged_D1_CK1_1
241 : use pm_kind, only: CKC => CK1
242 : #include "test_pm_arrayMerge@routines.inc.F90"
243 : end procedure
244 : #endif
245 :
246 : #undef getMerged_D1_CK_ENABLED
247 :
248 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
249 :
250 : #define getMerged_D1_RK_ENABLED 1
251 :
252 : #if RK5_ENABLED
253 : module procedure test_getMerged_D1_RK5_1
254 : use pm_kind, only: RKC => RK5
255 : #include "test_pm_arrayMerge@routines.inc.F90"
256 : end procedure
257 : #endif
258 :
259 : #if RK4_ENABLED
260 1 : module procedure test_getMerged_D1_RK4_1
261 : use pm_kind, only: RKC => RK4
262 : #include "test_pm_arrayMerge@routines.inc.F90"
263 : end procedure
264 : #endif
265 :
266 : #if RK3_ENABLED
267 1 : module procedure test_getMerged_D1_RK3_1
268 : use pm_kind, only: RKC => RK3
269 : #include "test_pm_arrayMerge@routines.inc.F90"
270 : end procedure
271 : #endif
272 :
273 : #if RK2_ENABLED
274 1 : module procedure test_getMerged_D1_RK2_1
275 : use pm_kind, only: RKC => RK2
276 : #include "test_pm_arrayMerge@routines.inc.F90"
277 : end procedure
278 : #endif
279 :
280 : #if RK1_ENABLED
281 1 : module procedure test_getMerged_D1_RK1_1
282 : use pm_kind, only: RKC => RK1
283 : #include "test_pm_arrayMerge@routines.inc.F90"
284 : end procedure
285 : #endif
286 :
287 : #undef getMerged_D1_RK_ENABLED
288 :
289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
290 :
291 : #if 0
292 : #define getMerged_D1_PSSK_ENABLED 1
293 :
294 : #if SK5_ENABLED
295 : module procedure test_getMerged_D1_PSSK5_1
296 : use pm_kind, only: SKC => SK5
297 : #include "test_pm_arrayMerge@routines.inc.F90"
298 : end procedure
299 : #endif
300 :
301 : #if SK4_ENABLED
302 : module procedure test_getMerged_D1_PSSK4_1
303 : use pm_kind, only: SKC => SK4
304 : #include "test_pm_arrayMerge@routines.inc.F90"
305 : end procedure
306 : #endif
307 :
308 : #if SK3_ENABLED
309 : module procedure test_getMerged_D1_PSSK3_1
310 : use pm_kind, only: SKC => SK3
311 : #include "test_pm_arrayMerge@routines.inc.F90"
312 : end procedure
313 : #endif
314 :
315 : #if SK2_ENABLED
316 : module procedure test_getMerged_D1_PSSK2_1
317 : use pm_kind, only: SKC => SK2
318 : #include "test_pm_arrayMerge@routines.inc.F90"
319 : end procedure
320 : #endif
321 :
322 : #if SK1_ENABLED
323 : module procedure test_getMerged_D1_PSSK1_1
324 : use pm_kind, only: SKC => SK1
325 : #include "test_pm_arrayMerge@routines.inc.F90"
326 : end procedure
327 : #endif
328 :
329 : #undef getMerged_D1_PSSK_ENABLED
330 : #endif
331 :
332 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
333 :
334 : #undef getMerged_ENABLED
335 :
336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
337 :
338 : #define setMerged_ENABLED 1
339 :
340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
341 :
342 : #define setMerged_D0_SK_ENABLED 1
343 :
344 : #if SK5_ENABLED
345 : module procedure test_setMerged_D0_SK5_1
346 : use pm_kind, only: SKC => SK5
347 : #include "test_pm_arrayMerge@routines.inc.F90"
348 : end procedure
349 : #endif
350 :
351 : #if SK4_ENABLED
352 : module procedure test_setMerged_D0_SK4_1
353 : use pm_kind, only: SKC => SK4
354 : #include "test_pm_arrayMerge@routines.inc.F90"
355 : end procedure
356 : #endif
357 :
358 : #if SK3_ENABLED
359 : module procedure test_setMerged_D0_SK3_1
360 : use pm_kind, only: SKC => SK3
361 : #include "test_pm_arrayMerge@routines.inc.F90"
362 : end procedure
363 : #endif
364 :
365 : #if SK2_ENABLED
366 : module procedure test_setMerged_D0_SK2_1
367 : use pm_kind, only: SKC => SK2
368 : #include "test_pm_arrayMerge@routines.inc.F90"
369 : end procedure
370 : #endif
371 :
372 : #if SK1_ENABLED
373 1 : module procedure test_setMerged_D0_SK1_1
374 : use pm_kind, only: SKC => SK1
375 : #include "test_pm_arrayMerge@routines.inc.F90"
376 : end procedure
377 : #endif
378 :
379 : #undef setMerged_D0_SK_ENABLED
380 :
381 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
382 :
383 : #define setMerged_D1_SK_ENABLED 1
384 :
385 : #if SK5_ENABLED
386 : module procedure test_setMerged_D1_SK5_1
387 : use pm_kind, only: SKC => SK5
388 : #include "test_pm_arrayMerge@routines.inc.F90"
389 : end procedure
390 : #endif
391 :
392 : #if SK4_ENABLED
393 : module procedure test_setMerged_D1_SK4_1
394 : use pm_kind, only: SKC => SK4
395 : #include "test_pm_arrayMerge@routines.inc.F90"
396 : end procedure
397 : #endif
398 :
399 : #if SK3_ENABLED
400 : module procedure test_setMerged_D1_SK3_1
401 : use pm_kind, only: SKC => SK3
402 : #include "test_pm_arrayMerge@routines.inc.F90"
403 : end procedure
404 : #endif
405 :
406 : #if SK2_ENABLED
407 : module procedure test_setMerged_D1_SK2_1
408 : use pm_kind, only: SKC => SK2
409 : #include "test_pm_arrayMerge@routines.inc.F90"
410 : end procedure
411 : #endif
412 :
413 : #if SK1_ENABLED
414 1 : module procedure test_setMerged_D1_SK1_1
415 : use pm_kind, only: SKC => SK1
416 : #include "test_pm_arrayMerge@routines.inc.F90"
417 : end procedure
418 : #endif
419 :
420 : #undef setMerged_D1_SK_ENABLED
421 :
422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
423 :
424 : #define setMerged_D1_IK_ENABLED 1
425 :
426 : #if IK5_ENABLED
427 1 : module procedure test_setMerged_D1_IK5_1
428 : use pm_kind, only: IKC => IK5
429 : #include "test_pm_arrayMerge@routines.inc.F90"
430 : end procedure
431 : #endif
432 :
433 : #if IK4_ENABLED
434 1 : module procedure test_setMerged_D1_IK4_1
435 : use pm_kind, only: IKC => IK4
436 : #include "test_pm_arrayMerge@routines.inc.F90"
437 : end procedure
438 : #endif
439 :
440 : #if IK3_ENABLED
441 1 : module procedure test_setMerged_D1_IK3_1
442 : use pm_kind, only: IKC => IK3
443 : #include "test_pm_arrayMerge@routines.inc.F90"
444 : end procedure
445 : #endif
446 :
447 : #if IK2_ENABLED
448 1 : module procedure test_setMerged_D1_IK2_1
449 : use pm_kind, only: IKC => IK2
450 : #include "test_pm_arrayMerge@routines.inc.F90"
451 : end procedure
452 : #endif
453 :
454 : #if IK1_ENABLED
455 1 : module procedure test_setMerged_D1_IK1_1
456 : use pm_kind, only: IKC => IK1
457 : #include "test_pm_arrayMerge@routines.inc.F90"
458 : end procedure
459 : #endif
460 :
461 : #undef setMerged_D1_IK_ENABLED
462 :
463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
464 :
465 : #define setMerged_D1_LK_ENABLED 1
466 :
467 : #if LK5_ENABLED
468 1 : module procedure test_setMerged_D1_LK5_1
469 : use pm_kind, only: LKC => LK5
470 : #include "test_pm_arrayMerge@routines.inc.F90"
471 : end procedure
472 : #endif
473 :
474 : #if LK4_ENABLED
475 1 : module procedure test_setMerged_D1_LK4_1
476 : use pm_kind, only: LKC => LK4
477 : #include "test_pm_arrayMerge@routines.inc.F90"
478 : end procedure
479 : #endif
480 :
481 : #if LK3_ENABLED
482 1 : module procedure test_setMerged_D1_LK3_1
483 : use pm_kind, only: LKC => LK3
484 : #include "test_pm_arrayMerge@routines.inc.F90"
485 : end procedure
486 : #endif
487 :
488 : #if LK2_ENABLED
489 1 : module procedure test_setMerged_D1_LK2_1
490 : use pm_kind, only: LKC => LK2
491 : #include "test_pm_arrayMerge@routines.inc.F90"
492 : end procedure
493 : #endif
494 :
495 : #if LK1_ENABLED
496 1 : module procedure test_setMerged_D1_LK1_1
497 : use pm_kind, only: LKC => LK1
498 : #include "test_pm_arrayMerge@routines.inc.F90"
499 : end procedure
500 : #endif
501 :
502 : #undef setMerged_D1_LK_ENABLED
503 :
504 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
505 :
506 : #define setMerged_D1_CK_ENABLED 1
507 :
508 : #if CK5_ENABLED
509 : module procedure test_setMerged_D1_CK5_1
510 : use pm_kind, only: CKC => CK5
511 : #include "test_pm_arrayMerge@routines.inc.F90"
512 : end procedure
513 : #endif
514 :
515 : #if CK4_ENABLED
516 1 : module procedure test_setMerged_D1_CK4_1
517 : use pm_kind, only: CKC => CK4
518 : #include "test_pm_arrayMerge@routines.inc.F90"
519 : end procedure
520 : #endif
521 :
522 : #if CK3_ENABLED
523 1 : module procedure test_setMerged_D1_CK3_1
524 : use pm_kind, only: CKC => CK3
525 : #include "test_pm_arrayMerge@routines.inc.F90"
526 : end procedure
527 : #endif
528 :
529 : #if CK2_ENABLED
530 1 : module procedure test_setMerged_D1_CK2_1
531 : use pm_kind, only: CKC => CK2
532 : #include "test_pm_arrayMerge@routines.inc.F90"
533 : end procedure
534 : #endif
535 :
536 : #if CK1_ENABLED
537 1 : module procedure test_setMerged_D1_CK1_1
538 : use pm_kind, only: CKC => CK1
539 : #include "test_pm_arrayMerge@routines.inc.F90"
540 : end procedure
541 : #endif
542 :
543 : #undef setMerged_D1_CK_ENABLED
544 :
545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
546 :
547 : #define setMerged_D1_RK_ENABLED 1
548 :
549 : #if RK5_ENABLED
550 : module procedure test_setMerged_D1_RK5_1
551 : use pm_kind, only: RKC => RK5
552 : #include "test_pm_arrayMerge@routines.inc.F90"
553 : end procedure
554 : #endif
555 :
556 : #if RK4_ENABLED
557 1 : module procedure test_setMerged_D1_RK4_1
558 : use pm_kind, only: RKC => RK4
559 : #include "test_pm_arrayMerge@routines.inc.F90"
560 : end procedure
561 : #endif
562 :
563 : #if RK3_ENABLED
564 1 : module procedure test_setMerged_D1_RK3_1
565 : use pm_kind, only: RKC => RK3
566 : #include "test_pm_arrayMerge@routines.inc.F90"
567 : end procedure
568 : #endif
569 :
570 : #if RK2_ENABLED
571 1 : module procedure test_setMerged_D1_RK2_1
572 : use pm_kind, only: RKC => RK2
573 : #include "test_pm_arrayMerge@routines.inc.F90"
574 : end procedure
575 : #endif
576 :
577 : #if RK1_ENABLED
578 1 : module procedure test_setMerged_D1_RK1_1
579 : use pm_kind, only: RKC => RK1
580 : #include "test_pm_arrayMerge@routines.inc.F90"
581 : end procedure
582 : #endif
583 :
584 : #undef setMerged_D1_RK_ENABLED
585 :
586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
587 :
588 : #if 0
589 : #define setMerged_D1_PSSK_ENABLED 1
590 :
591 : #if SK5_ENABLED
592 : module procedure test_setMerged_D1_PSSK5_1
593 : use pm_kind, only: SKC => SK5
594 : #include "test_pm_arrayMerge@routines.inc.F90"
595 : end procedure
596 : #endif
597 :
598 : #if SK4_ENABLED
599 : module procedure test_setMerged_D1_PSSK4_1
600 : use pm_kind, only: SKC => SK4
601 : #include "test_pm_arrayMerge@routines.inc.F90"
602 : end procedure
603 : #endif
604 :
605 : #if SK3_ENABLED
606 : module procedure test_setMerged_D1_PSSK3_1
607 : use pm_kind, only: SKC => SK3
608 : #include "test_pm_arrayMerge@routines.inc.F90"
609 : end procedure
610 : #endif
611 :
612 : #if SK2_ENABLED
613 : module procedure test_setMerged_D1_PSSK2_1
614 : use pm_kind, only: SKC => SK2
615 : #include "test_pm_arrayMerge@routines.inc.F90"
616 : end procedure
617 : #endif
618 :
619 : #if SK1_ENABLED
620 : module procedure test_setMerged_D1_PSSK1_1
621 : use pm_kind, only: SKC => SK1
622 : #include "test_pm_arrayMerge@routines.inc.F90"
623 : end procedure
624 : #endif
625 :
626 : #undef setMerged_D1_PSSK_ENABLED
627 : #endif
628 :
629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
630 :
631 : #undef setMerged_ENABLED
632 :
633 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
634 :
635 : end submodule routines
|
