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