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