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_arraySelect](@ref pm_arraySelect).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 5:03 PM, August 11, 2021, Dallas, TX
24 :
25 : submodule (test_pm_arraySelect) routines ! LCOV_EXCL_LINE
26 :
27 : use pm_kind, only: LK
28 : use pm_arraySort, only: setSorted
29 : use pm_distUnif, only: getUnifRand
30 : use pm_distUnif, only: setUnifRand
31 : implicit none
32 :
33 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
34 :
35 : contains
36 :
37 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
38 :
39 : #define getSelected_ENABLED 1
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : #define getSelected_D0_SK_ENABLED 1
44 :
45 : #if SK5_ENABLED
46 : module procedure test_getSelected_D0_SK5_1
47 : use pm_kind, only: SKC => SK5
48 : #include "test_pm_arraySelect@routines.inc.F90"
49 : end procedure
50 : #endif
51 :
52 : #if SK4_ENABLED
53 : module procedure test_getSelected_D0_SK4_1
54 : use pm_kind, only: SKC => SK4
55 : #include "test_pm_arraySelect@routines.inc.F90"
56 : end procedure
57 : #endif
58 :
59 : #if SK3_ENABLED
60 : module procedure test_getSelected_D0_SK3_1
61 : use pm_kind, only: SKC => SK3
62 : #include "test_pm_arraySelect@routines.inc.F90"
63 : end procedure
64 : #endif
65 :
66 : #if SK2_ENABLED
67 : module procedure test_getSelected_D0_SK2_1
68 : use pm_kind, only: SKC => SK2
69 : #include "test_pm_arraySelect@routines.inc.F90"
70 : end procedure
71 : #endif
72 :
73 : #if SK1_ENABLED
74 1 : module procedure test_getSelected_D0_SK1_1
75 : use pm_kind, only: SKC => SK1
76 : #include "test_pm_arraySelect@routines.inc.F90"
77 : end procedure
78 : #endif
79 :
80 : #undef getSelected_D0_SK_ENABLED
81 :
82 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
83 :
84 : #define getSelected_D1_SK_ENABLED 1
85 :
86 : #if SK5_ENABLED
87 : module procedure test_getSelected_D1_SK5_1
88 : use pm_kind, only: SKC => SK5
89 : #include "test_pm_arraySelect@routines.inc.F90"
90 : end procedure
91 : #endif
92 :
93 : #if SK4_ENABLED
94 : module procedure test_getSelected_D1_SK4_1
95 : use pm_kind, only: SKC => SK4
96 : #include "test_pm_arraySelect@routines.inc.F90"
97 : end procedure
98 : #endif
99 :
100 : #if SK3_ENABLED
101 : module procedure test_getSelected_D1_SK3_1
102 : use pm_kind, only: SKC => SK3
103 : #include "test_pm_arraySelect@routines.inc.F90"
104 : end procedure
105 : #endif
106 :
107 : #if SK2_ENABLED
108 : module procedure test_getSelected_D1_SK2_1
109 : use pm_kind, only: SKC => SK2
110 : #include "test_pm_arraySelect@routines.inc.F90"
111 : end procedure
112 : #endif
113 :
114 : #if SK1_ENABLED
115 1 : module procedure test_getSelected_D1_SK1_1
116 : use pm_kind, only: SKC => SK1
117 : #include "test_pm_arraySelect@routines.inc.F90"
118 : end procedure
119 : #endif
120 :
121 : #undef getSelected_D1_SK_ENABLED
122 :
123 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
124 :
125 : #define getSelected_D1_IK_ENABLED 1
126 :
127 : #if IK5_ENABLED
128 1 : module procedure test_getSelected_D1_IK5_1
129 : use pm_kind, only: IKC => IK5
130 : #include "test_pm_arraySelect@routines.inc.F90"
131 : end procedure
132 : #endif
133 :
134 : #if IK4_ENABLED
135 1 : module procedure test_getSelected_D1_IK4_1
136 : use pm_kind, only: IKC => IK4
137 : #include "test_pm_arraySelect@routines.inc.F90"
138 : end procedure
139 : #endif
140 :
141 : #if IK3_ENABLED
142 1 : module procedure test_getSelected_D1_IK3_1
143 : use pm_kind, only: IKC => IK3
144 : #include "test_pm_arraySelect@routines.inc.F90"
145 : end procedure
146 : #endif
147 :
148 : #if IK2_ENABLED
149 1 : module procedure test_getSelected_D1_IK2_1
150 : use pm_kind, only: IKC => IK2
151 : #include "test_pm_arraySelect@routines.inc.F90"
152 : end procedure
153 : #endif
154 :
155 : #if IK1_ENABLED
156 1 : module procedure test_getSelected_D1_IK1_1
157 : use pm_kind, only: IKC => IK1
158 : #include "test_pm_arraySelect@routines.inc.F90"
159 : end procedure
160 : #endif
161 :
162 : #undef getSelected_D1_IK_ENABLED
163 :
164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
165 :
166 : #define getSelected_D1_LK_ENABLED 1
167 :
168 : #if LK5_ENABLED
169 1 : module procedure test_getSelected_D1_LK5_1
170 : use pm_kind, only: LKC => LK5
171 : #include "test_pm_arraySelect@routines.inc.F90"
172 : end procedure
173 : #endif
174 :
175 : #if LK4_ENABLED
176 1 : module procedure test_getSelected_D1_LK4_1
177 : use pm_kind, only: LKC => LK4
178 : #include "test_pm_arraySelect@routines.inc.F90"
179 : end procedure
180 : #endif
181 :
182 : #if LK3_ENABLED
183 1 : module procedure test_getSelected_D1_LK3_1
184 : use pm_kind, only: LKC => LK3
185 : #include "test_pm_arraySelect@routines.inc.F90"
186 : end procedure
187 : #endif
188 :
189 : #if LK2_ENABLED
190 1 : module procedure test_getSelected_D1_LK2_1
191 : use pm_kind, only: LKC => LK2
192 : #include "test_pm_arraySelect@routines.inc.F90"
193 : end procedure
194 : #endif
195 :
196 : #if LK1_ENABLED
197 1 : module procedure test_getSelected_D1_LK1_1
198 : use pm_kind, only: LKC => LK1
199 : #include "test_pm_arraySelect@routines.inc.F90"
200 : end procedure
201 : #endif
202 :
203 : #undef getSelected_D1_LK_ENABLED
204 :
205 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
206 :
207 : #define getSelected_D1_CK_ENABLED 1
208 :
209 : #if CK5_ENABLED
210 : module procedure test_getSelected_D1_CK5_1
211 : use pm_kind, only: CKC => CK5
212 : #include "test_pm_arraySelect@routines.inc.F90"
213 : end procedure
214 : #endif
215 :
216 : #if CK4_ENABLED
217 1 : module procedure test_getSelected_D1_CK4_1
218 : use pm_kind, only: CKC => CK4
219 : #include "test_pm_arraySelect@routines.inc.F90"
220 : end procedure
221 : #endif
222 :
223 : #if CK3_ENABLED
224 1 : module procedure test_getSelected_D1_CK3_1
225 : use pm_kind, only: CKC => CK3
226 : #include "test_pm_arraySelect@routines.inc.F90"
227 : end procedure
228 : #endif
229 :
230 : #if CK2_ENABLED
231 1 : module procedure test_getSelected_D1_CK2_1
232 : use pm_kind, only: CKC => CK2
233 : #include "test_pm_arraySelect@routines.inc.F90"
234 : end procedure
235 : #endif
236 :
237 : #if CK1_ENABLED
238 1 : module procedure test_getSelected_D1_CK1_1
239 : use pm_kind, only: CKC => CK1
240 : #include "test_pm_arraySelect@routines.inc.F90"
241 : end procedure
242 : #endif
243 :
244 : #undef getSelected_D1_CK_ENABLED
245 :
246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247 :
248 : #define getSelected_D1_RK_ENABLED 1
249 :
250 : #if RK5_ENABLED
251 : module procedure test_getSelected_D1_RK5_1
252 : use pm_kind, only: RKC => RK5
253 : #include "test_pm_arraySelect@routines.inc.F90"
254 : end procedure
255 : #endif
256 :
257 : #if RK4_ENABLED
258 1 : module procedure test_getSelected_D1_RK4_1
259 : use pm_kind, only: RKC => RK4
260 : #include "test_pm_arraySelect@routines.inc.F90"
261 : end procedure
262 : #endif
263 :
264 : #if RK3_ENABLED
265 1 : module procedure test_getSelected_D1_RK3_1
266 : use pm_kind, only: RKC => RK3
267 : #include "test_pm_arraySelect@routines.inc.F90"
268 : end procedure
269 : #endif
270 :
271 : #if RK2_ENABLED
272 1 : module procedure test_getSelected_D1_RK2_1
273 : use pm_kind, only: RKC => RK2
274 : #include "test_pm_arraySelect@routines.inc.F90"
275 : end procedure
276 : #endif
277 :
278 : #if RK1_ENABLED
279 1 : module procedure test_getSelected_D1_RK1_1
280 : use pm_kind, only: RKC => RK1
281 : #include "test_pm_arraySelect@routines.inc.F90"
282 : end procedure
283 : #endif
284 :
285 : #undef getSelected_D1_RK_ENABLED
286 :
287 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
288 : #if 0
289 : #define getSelected_D1_PSSK_ENABLED 1
290 :
291 : #if SK5_ENABLED
292 : module procedure test_getSelected_D1_PSSK5_1
293 : use pm_kind, only: SKC => SK5
294 : use pm_container, only: css_pdt, operator(>=), operator(<=)
295 : #include "test_pm_arraySelect@routines.inc.F90"
296 : end procedure
297 : #endif
298 :
299 : #if SK4_ENABLED
300 : module procedure test_getSelected_D1_PSSK4_1
301 : use pm_kind, only: SKC => SK4
302 : use pm_container, only: css_pdt, operator(>=), operator(<=)
303 : #include "test_pm_arraySelect@routines.inc.F90"
304 : end procedure
305 : #endif
306 :
307 : #if SK3_ENABLED
308 : module procedure test_getSelected_D1_PSSK3_1
309 : use pm_kind, only: SKC => SK3
310 : use pm_container, only: css_pdt, operator(>=), operator(<=)
311 : #include "test_pm_arraySelect@routines.inc.F90"
312 : end procedure
313 : #endif
314 :
315 : #if SK2_ENABLED
316 : module procedure test_getSelected_D1_PSSK2_1
317 : use pm_kind, only: SKC => SK2
318 : use pm_container, only: css_pdt, operator(>=), operator(<=)
319 : #include "test_pm_arraySelect@routines.inc.F90"
320 : end procedure
321 : #endif
322 :
323 : #if SK1_ENABLED
324 : module procedure test_getSelected_D1_PSSK1_1
325 : use pm_kind, only: SKC => SK1
326 : use pm_container, only: css_pdt, operator(>=), operator(<=)
327 : #include "test_pm_arraySelect@routines.inc.F90"
328 : end procedure
329 : #endif
330 :
331 : #undef getSelected_D1_PSSK_ENABLED
332 : #endif
333 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
334 :
335 : #undef getSelected_ENABLED
336 :
337 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
338 :
339 : #define setSelected_ENABLED 1
340 :
341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
342 :
343 : #define setSelected_D0_SK_ENABLED 1
344 :
345 : #if SK5_ENABLED
346 : module procedure test_setSelected_D0_SK5_1
347 : use pm_kind, only: SKC => SK5
348 : #include "test_pm_arraySelect@routines.inc.F90"
349 : end procedure
350 : #endif
351 :
352 : #if SK4_ENABLED
353 : module procedure test_setSelected_D0_SK4_1
354 : use pm_kind, only: SKC => SK4
355 : #include "test_pm_arraySelect@routines.inc.F90"
356 : end procedure
357 : #endif
358 :
359 : #if SK3_ENABLED
360 : module procedure test_setSelected_D0_SK3_1
361 : use pm_kind, only: SKC => SK3
362 : #include "test_pm_arraySelect@routines.inc.F90"
363 : end procedure
364 : #endif
365 :
366 : #if SK2_ENABLED
367 : module procedure test_setSelected_D0_SK2_1
368 : use pm_kind, only: SKC => SK2
369 : #include "test_pm_arraySelect@routines.inc.F90"
370 : end procedure
371 : #endif
372 :
373 : #if SK1_ENABLED
374 1 : module procedure test_setSelected_D0_SK1_1
375 : use pm_kind, only: SKC => SK1
376 : #include "test_pm_arraySelect@routines.inc.F90"
377 : end procedure
378 : #endif
379 :
380 : #undef setSelected_D0_SK_ENABLED
381 :
382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
383 :
384 : #define setSelected_D1_SK_ENABLED 1
385 :
386 : #if SK5_ENABLED
387 : module procedure test_setSelected_D1_SK5_1
388 : use pm_kind, only: SKC => SK5
389 : #include "test_pm_arraySelect@routines.inc.F90"
390 : end procedure
391 : #endif
392 :
393 : #if SK4_ENABLED
394 : module procedure test_setSelected_D1_SK4_1
395 : use pm_kind, only: SKC => SK4
396 : #include "test_pm_arraySelect@routines.inc.F90"
397 : end procedure
398 : #endif
399 :
400 : #if SK3_ENABLED
401 : module procedure test_setSelected_D1_SK3_1
402 : use pm_kind, only: SKC => SK3
403 : #include "test_pm_arraySelect@routines.inc.F90"
404 : end procedure
405 : #endif
406 :
407 : #if SK2_ENABLED
408 : module procedure test_setSelected_D1_SK2_1
409 : use pm_kind, only: SKC => SK2
410 : #include "test_pm_arraySelect@routines.inc.F90"
411 : end procedure
412 : #endif
413 :
414 : #if SK1_ENABLED
415 1 : module procedure test_setSelected_D1_SK1_1
416 : use pm_kind, only: SKC => SK1
417 : #include "test_pm_arraySelect@routines.inc.F90"
418 : end procedure
419 : #endif
420 :
421 : #undef setSelected_D1_SK_ENABLED
422 :
423 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
424 :
425 : #define setSelected_D1_IK_ENABLED 1
426 :
427 : #if IK5_ENABLED
428 1 : module procedure test_setSelected_D1_IK5_1
429 : use pm_kind, only: IKC => IK5
430 : #include "test_pm_arraySelect@routines.inc.F90"
431 : end procedure
432 : #endif
433 :
434 : #if IK4_ENABLED
435 1 : module procedure test_setSelected_D1_IK4_1
436 : use pm_kind, only: IKC => IK4
437 : #include "test_pm_arraySelect@routines.inc.F90"
438 : end procedure
439 : #endif
440 :
441 : #if IK3_ENABLED
442 1 : module procedure test_setSelected_D1_IK3_1
443 : use pm_kind, only: IKC => IK3
444 : #include "test_pm_arraySelect@routines.inc.F90"
445 : end procedure
446 : #endif
447 :
448 : #if IK2_ENABLED
449 1 : module procedure test_setSelected_D1_IK2_1
450 : use pm_kind, only: IKC => IK2
451 : #include "test_pm_arraySelect@routines.inc.F90"
452 : end procedure
453 : #endif
454 :
455 : #if IK1_ENABLED
456 1 : module procedure test_setSelected_D1_IK1_1
457 : use pm_kind, only: IKC => IK1
458 : #include "test_pm_arraySelect@routines.inc.F90"
459 : end procedure
460 : #endif
461 :
462 : #undef setSelected_D1_IK_ENABLED
463 :
464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
465 :
466 : #define setSelected_D1_LK_ENABLED 1
467 :
468 : #if LK5_ENABLED
469 1 : module procedure test_setSelected_D1_LK5_1
470 : use pm_kind, only: LKC => LK5
471 : #include "test_pm_arraySelect@routines.inc.F90"
472 : end procedure
473 : #endif
474 :
475 : #if LK4_ENABLED
476 1 : module procedure test_setSelected_D1_LK4_1
477 : use pm_kind, only: LKC => LK4
478 : #include "test_pm_arraySelect@routines.inc.F90"
479 : end procedure
480 : #endif
481 :
482 : #if LK3_ENABLED
483 1 : module procedure test_setSelected_D1_LK3_1
484 : use pm_kind, only: LKC => LK3
485 : #include "test_pm_arraySelect@routines.inc.F90"
486 : end procedure
487 : #endif
488 :
489 : #if LK2_ENABLED
490 1 : module procedure test_setSelected_D1_LK2_1
491 : use pm_kind, only: LKC => LK2
492 : #include "test_pm_arraySelect@routines.inc.F90"
493 : end procedure
494 : #endif
495 :
496 : #if LK1_ENABLED
497 1 : module procedure test_setSelected_D1_LK1_1
498 : use pm_kind, only: LKC => LK1
499 : #include "test_pm_arraySelect@routines.inc.F90"
500 : end procedure
501 : #endif
502 :
503 : #undef setSelected_D1_LK_ENABLED
504 :
505 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
506 :
507 : #define setSelected_D1_CK_ENABLED 1
508 :
509 : #if CK5_ENABLED
510 : module procedure test_setSelected_D1_CK5_1
511 : use pm_kind, only: CKC => CK5
512 : #include "test_pm_arraySelect@routines.inc.F90"
513 : end procedure
514 : #endif
515 :
516 : #if CK4_ENABLED
517 1 : module procedure test_setSelected_D1_CK4_1
518 : use pm_kind, only: CKC => CK4
519 : #include "test_pm_arraySelect@routines.inc.F90"
520 : end procedure
521 : #endif
522 :
523 : #if CK3_ENABLED
524 1 : module procedure test_setSelected_D1_CK3_1
525 : use pm_kind, only: CKC => CK3
526 : #include "test_pm_arraySelect@routines.inc.F90"
527 : end procedure
528 : #endif
529 :
530 : #if CK2_ENABLED
531 1 : module procedure test_setSelected_D1_CK2_1
532 : use pm_kind, only: CKC => CK2
533 : #include "test_pm_arraySelect@routines.inc.F90"
534 : end procedure
535 : #endif
536 :
537 : #if CK1_ENABLED
538 1 : module procedure test_setSelected_D1_CK1_1
539 : use pm_kind, only: CKC => CK1
540 : #include "test_pm_arraySelect@routines.inc.F90"
541 : end procedure
542 : #endif
543 :
544 : #undef setSelected_D1_CK_ENABLED
545 :
546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
547 :
548 : #define setSelected_D1_RK_ENABLED 1
549 :
550 : #if RK5_ENABLED
551 : module procedure test_setSelected_D1_RK5_1
552 : use pm_kind, only: RKC => RK5
553 : #include "test_pm_arraySelect@routines.inc.F90"
554 : end procedure
555 : #endif
556 :
557 : #if RK4_ENABLED
558 1 : module procedure test_setSelected_D1_RK4_1
559 : use pm_kind, only: RKC => RK4
560 : #include "test_pm_arraySelect@routines.inc.F90"
561 : end procedure
562 : #endif
563 :
564 : #if RK3_ENABLED
565 1 : module procedure test_setSelected_D1_RK3_1
566 : use pm_kind, only: RKC => RK3
567 : #include "test_pm_arraySelect@routines.inc.F90"
568 : end procedure
569 : #endif
570 :
571 : #if RK2_ENABLED
572 1 : module procedure test_setSelected_D1_RK2_1
573 : use pm_kind, only: RKC => RK2
574 : #include "test_pm_arraySelect@routines.inc.F90"
575 : end procedure
576 : #endif
577 :
578 : #if RK1_ENABLED
579 1 : module procedure test_setSelected_D1_RK1_1
580 : use pm_kind, only: RKC => RK1
581 : #include "test_pm_arraySelect@routines.inc.F90"
582 : end procedure
583 : #endif
584 :
585 : #undef setSelected_D1_RK_ENABLED
586 :
587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
588 : #if 0
589 : #define setSelected_D1_PSSK_ENABLED 1
590 :
591 : #if SK5_ENABLED
592 : module procedure test_setSelected_D1_PSSK5_1
593 : use pm_kind, only: SKC => SK5
594 : use pm_container, only: css_pdt, operator(>=), operator(<=)
595 : #include "test_pm_arraySelect@routines.inc.F90"
596 : end procedure
597 : #endif
598 :
599 : #if SK4_ENABLED
600 : module procedure test_setSelected_D1_PSSK4_1
601 : use pm_kind, only: SKC => SK4
602 : use pm_container, only: css_pdt, operator(>=), operator(<=)
603 : #include "test_pm_arraySelect@routines.inc.F90"
604 : end procedure
605 : #endif
606 :
607 : #if SK3_ENABLED
608 : module procedure test_setSelected_D1_PSSK3_1
609 : use pm_kind, only: SKC => SK3
610 : use pm_container, only: css_pdt, operator(>=), operator(<=)
611 : #include "test_pm_arraySelect@routines.inc.F90"
612 : end procedure
613 : #endif
614 :
615 : #if SK2_ENABLED
616 : module procedure test_setSelected_D1_PSSK2_1
617 : use pm_kind, only: SKC => SK2
618 : use pm_container, only: css_pdt, operator(>=), operator(<=)
619 : #include "test_pm_arraySelect@routines.inc.F90"
620 : end procedure
621 : #endif
622 :
623 : #if SK1_ENABLED
624 : module procedure test_setSelected_D1_PSSK1_1
625 : use pm_kind, only: SKC => SK1
626 : use pm_container, only: css_pdt, operator(>=), operator(<=)
627 : #include "test_pm_arraySelect@routines.inc.F90"
628 : end procedure
629 : #endif
630 :
631 : #undef setSelected_D1_PSSK_ENABLED
632 : #endif
633 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
634 :
635 : #undef setSelected_ENABLED
636 :
637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
638 :
639 : end submodule routines
|
