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_arrayVerbose](@ref test_pm_arrayVerbose).
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_arrayVerbose) routines ! LCOV_EXCL_LINE
28 :
29 : use pm_kind, only: LK, SK
30 : use pm_arrayCompact, only: getCompact
31 : use pm_distUnif, only: setUnifRand, getUnifRand
32 : use pm_option, only: getOption
33 : use pm_val2str, only: getStr
34 : implicit none
35 :
36 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37 :
38 : contains
39 :
40 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41 :
42 : #define getVerbose_ENABLED 1
43 :
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 :
48 : #define D0_ENABLED 1
49 :
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 :
52 : #define SK_ENABLED 1
53 :
54 : #if SK5_ENABLED
55 : module procedure test_getVerbose_D0_SK5_1
56 : use pm_kind, only: SKC => SK5
57 : #include "test_pm_arrayVerbose@routines.inc.F90"
58 : end procedure
59 : #endif
60 :
61 : #if SK4_ENABLED
62 : module procedure test_getVerbose_D0_SK4_1
63 : use pm_kind, only: SKC => SK4
64 : #include "test_pm_arrayVerbose@routines.inc.F90"
65 : end procedure
66 : #endif
67 :
68 : #if SK3_ENABLED
69 : module procedure test_getVerbose_D0_SK3_1
70 : use pm_kind, only: SKC => SK3
71 : #include "test_pm_arrayVerbose@routines.inc.F90"
72 : end procedure
73 : #endif
74 :
75 : #if SK2_ENABLED
76 : module procedure test_getVerbose_D0_SK2_1
77 : use pm_kind, only: SKC => SK2
78 : #include "test_pm_arrayVerbose@routines.inc.F90"
79 : end procedure
80 : #endif
81 :
82 : #if SK1_ENABLED
83 1 : module procedure test_getVerbose_D0_SK1_1
84 : use pm_kind, only: SKC => SK1
85 : #include "test_pm_arrayVerbose@routines.inc.F90"
86 : end procedure
87 : #endif
88 :
89 : #undef SK_ENABLED
90 :
91 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
92 :
93 : #undef D0_ENABLED
94 :
95 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98 :
99 : #define D1_ENABLED 1
100 :
101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102 :
103 : #define SK_ENABLED 1
104 :
105 : #if SK5_ENABLED
106 : module procedure test_getVerbose_D1_SK5_1
107 : use pm_kind, only: SKC => SK5
108 : #include "test_pm_arrayVerbose@routines.inc.F90"
109 : end procedure
110 : #endif
111 :
112 : #if SK4_ENABLED
113 : module procedure test_getVerbose_D1_SK4_1
114 : use pm_kind, only: SKC => SK4
115 : #include "test_pm_arrayVerbose@routines.inc.F90"
116 : end procedure
117 : #endif
118 :
119 : #if SK3_ENABLED
120 : module procedure test_getVerbose_D1_SK3_1
121 : use pm_kind, only: SKC => SK3
122 : #include "test_pm_arrayVerbose@routines.inc.F90"
123 : end procedure
124 : #endif
125 :
126 : #if SK2_ENABLED
127 : module procedure test_getVerbose_D1_SK2_1
128 : use pm_kind, only: SKC => SK2
129 : #include "test_pm_arrayVerbose@routines.inc.F90"
130 : end procedure
131 : #endif
132 :
133 : #if SK1_ENABLED
134 1 : module procedure test_getVerbose_D1_SK1_1
135 : use pm_kind, only: SKC => SK1
136 : #include "test_pm_arrayVerbose@routines.inc.F90"
137 : end procedure
138 : #endif
139 :
140 : #undef SK_ENABLED
141 :
142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
143 :
144 : #define IK_ENABLED 1
145 :
146 : #if IK5_ENABLED
147 1 : module procedure test_getVerbose_D1_IK5_1
148 : use pm_kind, only: IKC => IK5
149 : #include "test_pm_arrayVerbose@routines.inc.F90"
150 : end procedure
151 : #endif
152 :
153 : #if IK4_ENABLED
154 1 : module procedure test_getVerbose_D1_IK4_1
155 : use pm_kind, only: IKC => IK4
156 : #include "test_pm_arrayVerbose@routines.inc.F90"
157 : end procedure
158 : #endif
159 :
160 : #if IK3_ENABLED
161 1 : module procedure test_getVerbose_D1_IK3_1
162 : use pm_kind, only: IKC => IK3
163 : #include "test_pm_arrayVerbose@routines.inc.F90"
164 : end procedure
165 : #endif
166 :
167 : #if IK2_ENABLED
168 1 : module procedure test_getVerbose_D1_IK2_1
169 : use pm_kind, only: IKC => IK2
170 : #include "test_pm_arrayVerbose@routines.inc.F90"
171 : end procedure
172 : #endif
173 :
174 : #if IK1_ENABLED
175 1 : module procedure test_getVerbose_D1_IK1_1
176 : use pm_kind, only: IKC => IK1
177 : #include "test_pm_arrayVerbose@routines.inc.F90"
178 : end procedure
179 : #endif
180 :
181 : #undef IK_ENABLED
182 :
183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
184 :
185 : #define LK_ENABLED 1
186 :
187 : #if LK5_ENABLED
188 1 : module procedure test_getVerbose_D1_LK5_1
189 : use pm_kind, only: LKC => LK5
190 : #include "test_pm_arrayVerbose@routines.inc.F90"
191 : end procedure
192 : #endif
193 :
194 : #if LK4_ENABLED
195 1 : module procedure test_getVerbose_D1_LK4_1
196 : use pm_kind, only: LKC => LK4
197 : #include "test_pm_arrayVerbose@routines.inc.F90"
198 : end procedure
199 : #endif
200 :
201 : #if LK3_ENABLED
202 1 : module procedure test_getVerbose_D1_LK3_1
203 : use pm_kind, only: LKC => LK3
204 : #include "test_pm_arrayVerbose@routines.inc.F90"
205 : end procedure
206 : #endif
207 :
208 : #if LK2_ENABLED
209 1 : module procedure test_getVerbose_D1_LK2_1
210 : use pm_kind, only: LKC => LK2
211 : #include "test_pm_arrayVerbose@routines.inc.F90"
212 : end procedure
213 : #endif
214 :
215 : #if LK1_ENABLED
216 1 : module procedure test_getVerbose_D1_LK1_1
217 : use pm_kind, only: LKC => LK1
218 : #include "test_pm_arrayVerbose@routines.inc.F90"
219 : end procedure
220 : #endif
221 :
222 : #undef LK_ENABLED
223 :
224 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
225 :
226 : #define CK_ENABLED 1
227 :
228 : #if CK5_ENABLED
229 : module procedure test_getVerbose_D1_CK5_1
230 : use pm_kind, only: CKC => CK5
231 : #include "test_pm_arrayVerbose@routines.inc.F90"
232 : end procedure
233 : #endif
234 :
235 : #if CK4_ENABLED
236 1 : module procedure test_getVerbose_D1_CK4_1
237 : use pm_kind, only: CKC => CK4
238 : #include "test_pm_arrayVerbose@routines.inc.F90"
239 : end procedure
240 : #endif
241 :
242 : #if CK3_ENABLED
243 1 : module procedure test_getVerbose_D1_CK3_1
244 : use pm_kind, only: CKC => CK3
245 : #include "test_pm_arrayVerbose@routines.inc.F90"
246 : end procedure
247 : #endif
248 :
249 : #if CK2_ENABLED
250 1 : module procedure test_getVerbose_D1_CK2_1
251 : use pm_kind, only: CKC => CK2
252 : #include "test_pm_arrayVerbose@routines.inc.F90"
253 : end procedure
254 : #endif
255 :
256 : #if CK1_ENABLED
257 1 : module procedure test_getVerbose_D1_CK1_1
258 : use pm_kind, only: CKC => CK1
259 : #include "test_pm_arrayVerbose@routines.inc.F90"
260 : end procedure
261 : #endif
262 :
263 : #undef CK_ENABLED
264 :
265 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
266 :
267 : #define RK_ENABLED 1
268 :
269 : #if RK5_ENABLED
270 : module procedure test_getVerbose_D1_RK5_1
271 : use pm_kind, only: RKC => RK5
272 : #include "test_pm_arrayVerbose@routines.inc.F90"
273 : end procedure
274 : #endif
275 :
276 : #if RK4_ENABLED
277 1 : module procedure test_getVerbose_D1_RK4_1
278 : use pm_kind, only: RKC => RK4
279 : #include "test_pm_arrayVerbose@routines.inc.F90"
280 : end procedure
281 : #endif
282 :
283 : #if RK3_ENABLED
284 1 : module procedure test_getVerbose_D1_RK3_1
285 : use pm_kind, only: RKC => RK3
286 : #include "test_pm_arrayVerbose@routines.inc.F90"
287 : end procedure
288 : #endif
289 :
290 : #if RK2_ENABLED
291 1 : module procedure test_getVerbose_D1_RK2_1
292 : use pm_kind, only: RKC => RK2
293 : #include "test_pm_arrayVerbose@routines.inc.F90"
294 : end procedure
295 : #endif
296 :
297 : #if RK1_ENABLED
298 1 : module procedure test_getVerbose_D1_RK1_1
299 : use pm_kind, only: RKC => RK1
300 : #include "test_pm_arrayVerbose@routines.inc.F90"
301 : end procedure
302 : #endif
303 :
304 : #undef RK_ENABLED
305 :
306 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
307 :
308 : #undef D1_ENABLED
309 :
310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 :
314 : #define D2_ENABLED 1
315 :
316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 :
318 : #define SK_ENABLED 1
319 :
320 : #if SK5_ENABLED
321 : module procedure test_getVerbose_D2_SK5_1
322 : use pm_kind, only: SKC => SK5
323 : #include "test_pm_arrayVerbose@routines.inc.F90"
324 : end procedure
325 : #endif
326 :
327 : #if SK4_ENABLED
328 : module procedure test_getVerbose_D2_SK4_1
329 : use pm_kind, only: SKC => SK4
330 : #include "test_pm_arrayVerbose@routines.inc.F90"
331 : end procedure
332 : #endif
333 :
334 : #if SK3_ENABLED
335 : module procedure test_getVerbose_D2_SK3_1
336 : use pm_kind, only: SKC => SK3
337 : #include "test_pm_arrayVerbose@routines.inc.F90"
338 : end procedure
339 : #endif
340 :
341 : #if SK2_ENABLED
342 : module procedure test_getVerbose_D2_SK2_1
343 : use pm_kind, only: SKC => SK2
344 : #include "test_pm_arrayVerbose@routines.inc.F90"
345 : end procedure
346 : #endif
347 :
348 : #if SK1_ENABLED
349 1 : module procedure test_getVerbose_D2_SK1_1
350 : use pm_kind, only: SKC => SK1
351 : #include "test_pm_arrayVerbose@routines.inc.F90"
352 : end procedure
353 : #endif
354 :
355 : #undef SK_ENABLED
356 :
357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
358 :
359 : #define IK_ENABLED 1
360 :
361 : #if IK5_ENABLED
362 1 : module procedure test_getVerbose_D2_IK5_1
363 : use pm_kind, only: IKC => IK5
364 : #include "test_pm_arrayVerbose@routines.inc.F90"
365 : end procedure
366 : #endif
367 :
368 : #if IK4_ENABLED
369 1 : module procedure test_getVerbose_D2_IK4_1
370 : use pm_kind, only: IKC => IK4
371 : #include "test_pm_arrayVerbose@routines.inc.F90"
372 : end procedure
373 : #endif
374 :
375 : #if IK3_ENABLED
376 1 : module procedure test_getVerbose_D2_IK3_1
377 : use pm_kind, only: IKC => IK3
378 : #include "test_pm_arrayVerbose@routines.inc.F90"
379 : end procedure
380 : #endif
381 :
382 : #if IK2_ENABLED
383 1 : module procedure test_getVerbose_D2_IK2_1
384 : use pm_kind, only: IKC => IK2
385 : #include "test_pm_arrayVerbose@routines.inc.F90"
386 : end procedure
387 : #endif
388 :
389 : #if IK1_ENABLED
390 1 : module procedure test_getVerbose_D2_IK1_1
391 : use pm_kind, only: IKC => IK1
392 : #include "test_pm_arrayVerbose@routines.inc.F90"
393 : end procedure
394 : #endif
395 :
396 : #undef IK_ENABLED
397 :
398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
399 :
400 : #define LK_ENABLED 1
401 :
402 : #if LK5_ENABLED
403 1 : module procedure test_getVerbose_D2_LK5_1
404 : use pm_kind, only: LKC => LK5
405 : #include "test_pm_arrayVerbose@routines.inc.F90"
406 : end procedure
407 : #endif
408 :
409 : #if LK4_ENABLED
410 1 : module procedure test_getVerbose_D2_LK4_1
411 : use pm_kind, only: LKC => LK4
412 : #include "test_pm_arrayVerbose@routines.inc.F90"
413 : end procedure
414 : #endif
415 :
416 : #if LK3_ENABLED
417 1 : module procedure test_getVerbose_D2_LK3_1
418 : use pm_kind, only: LKC => LK3
419 : #include "test_pm_arrayVerbose@routines.inc.F90"
420 : end procedure
421 : #endif
422 :
423 : #if LK2_ENABLED
424 1 : module procedure test_getVerbose_D2_LK2_1
425 : use pm_kind, only: LKC => LK2
426 : #include "test_pm_arrayVerbose@routines.inc.F90"
427 : end procedure
428 : #endif
429 :
430 : #if LK1_ENABLED
431 1 : module procedure test_getVerbose_D2_LK1_1
432 : use pm_kind, only: LKC => LK1
433 : #include "test_pm_arrayVerbose@routines.inc.F90"
434 : end procedure
435 : #endif
436 :
437 : #undef LK_ENABLED
438 :
439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
440 :
441 : #define CK_ENABLED 1
442 :
443 : #if CK5_ENABLED
444 : module procedure test_getVerbose_D2_CK5_1
445 : use pm_kind, only: CKC => CK5
446 : #include "test_pm_arrayVerbose@routines.inc.F90"
447 : end procedure
448 : #endif
449 :
450 : #if CK4_ENABLED
451 1 : module procedure test_getVerbose_D2_CK4_1
452 : use pm_kind, only: CKC => CK4
453 : #include "test_pm_arrayVerbose@routines.inc.F90"
454 : end procedure
455 : #endif
456 :
457 : #if CK3_ENABLED
458 1 : module procedure test_getVerbose_D2_CK3_1
459 : use pm_kind, only: CKC => CK3
460 : #include "test_pm_arrayVerbose@routines.inc.F90"
461 : end procedure
462 : #endif
463 :
464 : #if CK2_ENABLED
465 1 : module procedure test_getVerbose_D2_CK2_1
466 : use pm_kind, only: CKC => CK2
467 : #include "test_pm_arrayVerbose@routines.inc.F90"
468 : end procedure
469 : #endif
470 :
471 : #if CK1_ENABLED
472 1 : module procedure test_getVerbose_D2_CK1_1
473 : use pm_kind, only: CKC => CK1
474 : #include "test_pm_arrayVerbose@routines.inc.F90"
475 : end procedure
476 : #endif
477 :
478 : #undef CK_ENABLED
479 :
480 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
481 :
482 : #define RK_ENABLED 1
483 :
484 : #if RK5_ENABLED
485 : module procedure test_getVerbose_D2_RK5_1
486 : use pm_kind, only: RKC => RK5
487 : #include "test_pm_arrayVerbose@routines.inc.F90"
488 : end procedure
489 : #endif
490 :
491 : #if RK4_ENABLED
492 1 : module procedure test_getVerbose_D2_RK4_1
493 : use pm_kind, only: RKC => RK4
494 : #include "test_pm_arrayVerbose@routines.inc.F90"
495 : end procedure
496 : #endif
497 :
498 : #if RK3_ENABLED
499 1 : module procedure test_getVerbose_D2_RK3_1
500 : use pm_kind, only: RKC => RK3
501 : #include "test_pm_arrayVerbose@routines.inc.F90"
502 : end procedure
503 : #endif
504 :
505 : #if RK2_ENABLED
506 1 : module procedure test_getVerbose_D2_RK2_1
507 : use pm_kind, only: RKC => RK2
508 : #include "test_pm_arrayVerbose@routines.inc.F90"
509 : end procedure
510 : #endif
511 :
512 : #if RK1_ENABLED
513 1 : module procedure test_getVerbose_D2_RK1_1
514 : use pm_kind, only: RKC => RK1
515 : #include "test_pm_arrayVerbose@routines.inc.F90"
516 : end procedure
517 : #endif
518 :
519 : #undef RK_ENABLED
520 :
521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
522 :
523 : #undef D2_ENABLED
524 :
525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528 :
529 : #undef getVerbose_ENABLED
530 :
531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
532 : !
533 : !#define setVerbose_ENABLED 1
534 : !
535 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
536 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
537 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
538 : !
539 : !#define D0_ENABLED 1
540 : !
541 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
542 : !
543 : !#define SK_ENABLED 1
544 : !
545 : !#if SK5_ENABLED
546 : ! module procedure test_setVerbose_D0_SK5_1
547 : ! use pm_kind, only: SKC => SK5
548 : !#include "test_pm_arrayVerbose@routines.inc.F90"
549 : ! end procedure
550 : !#endif
551 : !
552 : !#if SK4_ENABLED
553 : ! module procedure test_setVerbose_D0_SK4_1
554 : ! use pm_kind, only: SKC => SK4
555 : !#include "test_pm_arrayVerbose@routines.inc.F90"
556 : ! end procedure
557 : !#endif
558 : !
559 : !#if SK3_ENABLED
560 : ! module procedure test_setVerbose_D0_SK3_1
561 : ! use pm_kind, only: SKC => SK3
562 : !#include "test_pm_arrayVerbose@routines.inc.F90"
563 : ! end procedure
564 : !#endif
565 : !
566 : !#if SK2_ENABLED
567 : ! module procedure test_setVerbose_D0_SK2_1
568 : ! use pm_kind, only: SKC => SK2
569 : !#include "test_pm_arrayVerbose@routines.inc.F90"
570 : ! end procedure
571 : !#endif
572 : !
573 : !#if SK1_ENABLED
574 : ! module procedure test_setVerbose_D0_SK1_1
575 : ! use pm_kind, only: SKC => SK1
576 : !#include "test_pm_arrayVerbose@routines.inc.F90"
577 : ! end procedure
578 : !#endif
579 : !
580 : !#undef SK_ENABLED
581 : !
582 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
583 : !
584 : !#undef D0_ENABLED
585 : !
586 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
587 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
588 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
589 : !
590 : !#define D1_ENABLED 1
591 : !
592 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
593 : !
594 : !#define SK_ENABLED 1
595 : !
596 : !#if SK5_ENABLED
597 : ! module procedure test_setVerbose_D1_SK5_1
598 : ! use pm_kind, only: SKC => SK5
599 : !#include "test_pm_arrayVerbose@routines.inc.F90"
600 : ! end procedure
601 : !#endif
602 : !
603 : !#if SK4_ENABLED
604 : ! module procedure test_setVerbose_D1_SK4_1
605 : ! use pm_kind, only: SKC => SK4
606 : !#include "test_pm_arrayVerbose@routines.inc.F90"
607 : ! end procedure
608 : !#endif
609 : !
610 : !#if SK3_ENABLED
611 : ! module procedure test_setVerbose_D1_SK3_1
612 : ! use pm_kind, only: SKC => SK3
613 : !#include "test_pm_arrayVerbose@routines.inc.F90"
614 : ! end procedure
615 : !#endif
616 : !
617 : !#if SK2_ENABLED
618 : ! module procedure test_setVerbose_D1_SK2_1
619 : ! use pm_kind, only: SKC => SK2
620 : !#include "test_pm_arrayVerbose@routines.inc.F90"
621 : ! end procedure
622 : !#endif
623 : !
624 : !#if SK1_ENABLED
625 : ! module procedure test_setVerbose_D1_SK1_1
626 : ! use pm_kind, only: SKC => SK1
627 : !#include "test_pm_arrayVerbose@routines.inc.F90"
628 : ! end procedure
629 : !#endif
630 : !
631 : !#undef SK_ENABLED
632 : !
633 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
634 : !
635 : !#define IK_ENABLED 1
636 : !
637 : !#if IK5_ENABLED
638 : ! module procedure test_setVerbose_D1_IK5_1
639 : ! use pm_kind, only: IKC => IK5
640 : !#include "test_pm_arrayVerbose@routines.inc.F90"
641 : ! end procedure
642 : !#endif
643 : !
644 : !#if IK4_ENABLED
645 : ! module procedure test_setVerbose_D1_IK4_1
646 : ! use pm_kind, only: IKC => IK4
647 : !#include "test_pm_arrayVerbose@routines.inc.F90"
648 : ! end procedure
649 : !#endif
650 : !
651 : !#if IK3_ENABLED
652 : ! module procedure test_setVerbose_D1_IK3_1
653 : ! use pm_kind, only: IKC => IK3
654 : !#include "test_pm_arrayVerbose@routines.inc.F90"
655 : ! end procedure
656 : !#endif
657 : !
658 : !#if IK2_ENABLED
659 : ! module procedure test_setVerbose_D1_IK2_1
660 : ! use pm_kind, only: IKC => IK2
661 : !#include "test_pm_arrayVerbose@routines.inc.F90"
662 : ! end procedure
663 : !#endif
664 : !
665 : !#if IK1_ENABLED
666 : ! module procedure test_setVerbose_D1_IK1_1
667 : ! use pm_kind, only: IKC => IK1
668 : !#include "test_pm_arrayVerbose@routines.inc.F90"
669 : ! end procedure
670 : !#endif
671 : !
672 : !#undef IK_ENABLED
673 : !
674 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
675 : !
676 : !#define LK_ENABLED 1
677 : !
678 : !#if LK5_ENABLED
679 : ! module procedure test_setVerbose_D1_LK5_1
680 : ! use pm_kind, only: LKC => LK5
681 : !#include "test_pm_arrayVerbose@routines.inc.F90"
682 : ! end procedure
683 : !#endif
684 : !
685 : !#if LK4_ENABLED
686 : ! module procedure test_setVerbose_D1_LK4_1
687 : ! use pm_kind, only: LKC => LK4
688 : !#include "test_pm_arrayVerbose@routines.inc.F90"
689 : ! end procedure
690 : !#endif
691 : !
692 : !#if LK3_ENABLED
693 : ! module procedure test_setVerbose_D1_LK3_1
694 : ! use pm_kind, only: LKC => LK3
695 : !#include "test_pm_arrayVerbose@routines.inc.F90"
696 : ! end procedure
697 : !#endif
698 : !
699 : !#if LK2_ENABLED
700 : ! module procedure test_setVerbose_D1_LK2_1
701 : ! use pm_kind, only: LKC => LK2
702 : !#include "test_pm_arrayVerbose@routines.inc.F90"
703 : ! end procedure
704 : !#endif
705 : !
706 : !#if LK1_ENABLED
707 : ! module procedure test_setVerbose_D1_LK1_1
708 : ! use pm_kind, only: LKC => LK1
709 : !#include "test_pm_arrayVerbose@routines.inc.F90"
710 : ! end procedure
711 : !#endif
712 : !
713 : !#undef LK_ENABLED
714 : !
715 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
716 : !
717 : !#define CK_ENABLED 1
718 : !
719 : !#if CK5_ENABLED
720 : ! module procedure test_setVerbose_D1_CK5_1
721 : ! use pm_kind, only: CKC => CK5
722 : !#include "test_pm_arrayVerbose@routines.inc.F90"
723 : ! end procedure
724 : !#endif
725 : !
726 : !#if CK4_ENABLED
727 : ! module procedure test_setVerbose_D1_CK4_1
728 : ! use pm_kind, only: CKC => CK4
729 : !#include "test_pm_arrayVerbose@routines.inc.F90"
730 : ! end procedure
731 : !#endif
732 : !
733 : !#if CK3_ENABLED
734 : ! module procedure test_setVerbose_D1_CK3_1
735 : ! use pm_kind, only: CKC => CK3
736 : !#include "test_pm_arrayVerbose@routines.inc.F90"
737 : ! end procedure
738 : !#endif
739 : !
740 : !#if CK2_ENABLED
741 : ! module procedure test_setVerbose_D1_CK2_1
742 : ! use pm_kind, only: CKC => CK2
743 : !#include "test_pm_arrayVerbose@routines.inc.F90"
744 : ! end procedure
745 : !#endif
746 : !
747 : !#if CK1_ENABLED
748 : ! module procedure test_setVerbose_D1_CK1_1
749 : ! use pm_kind, only: CKC => CK1
750 : !#include "test_pm_arrayVerbose@routines.inc.F90"
751 : ! end procedure
752 : !#endif
753 : !
754 : !#undef CK_ENABLED
755 : !
756 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
757 : !
758 : !#define RK_ENABLED 1
759 : !
760 : !#if RK5_ENABLED
761 : ! module procedure test_setVerbose_D1_RK5_1
762 : ! use pm_kind, only: RKC => RK5
763 : !#include "test_pm_arrayVerbose@routines.inc.F90"
764 : ! end procedure
765 : !#endif
766 : !
767 : !#if RK4_ENABLED
768 : ! module procedure test_setVerbose_D1_RK4_1
769 : ! use pm_kind, only: RKC => RK4
770 : !#include "test_pm_arrayVerbose@routines.inc.F90"
771 : ! end procedure
772 : !#endif
773 : !
774 : !#if RK3_ENABLED
775 : ! module procedure test_setVerbose_D1_RK3_1
776 : ! use pm_kind, only: RKC => RK3
777 : !#include "test_pm_arrayVerbose@routines.inc.F90"
778 : ! end procedure
779 : !#endif
780 : !
781 : !#if RK2_ENABLED
782 : ! module procedure test_setVerbose_D1_RK2_1
783 : ! use pm_kind, only: RKC => RK2
784 : !#include "test_pm_arrayVerbose@routines.inc.F90"
785 : ! end procedure
786 : !#endif
787 : !
788 : !#if RK1_ENABLED
789 : ! module procedure test_setVerbose_D1_RK1_1
790 : ! use pm_kind, only: RKC => RK1
791 : !#include "test_pm_arrayVerbose@routines.inc.F90"
792 : ! end procedure
793 : !#endif
794 : !
795 : !#undef RK_ENABLED
796 : !
797 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
798 : !
799 : !#undef D1_ENABLED
800 : !
801 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
802 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
803 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
804 : !
805 : !#define D2_ENABLED 1
806 : !
807 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
808 : !
809 : !#define SK_ENABLED 1
810 : !
811 : !#if SK5_ENABLED
812 : ! module procedure test_setVerbose_D2_SK5_1
813 : ! use pm_kind, only: SKC => SK5
814 : !#include "test_pm_arrayVerbose@routines.inc.F90"
815 : ! end procedure
816 : !#endif
817 : !
818 : !#if SK4_ENABLED
819 : ! module procedure test_setVerbose_D2_SK4_1
820 : ! use pm_kind, only: SKC => SK4
821 : !#include "test_pm_arrayVerbose@routines.inc.F90"
822 : ! end procedure
823 : !#endif
824 : !
825 : !#if SK3_ENABLED
826 : ! module procedure test_setVerbose_D2_SK3_1
827 : ! use pm_kind, only: SKC => SK3
828 : !#include "test_pm_arrayVerbose@routines.inc.F90"
829 : ! end procedure
830 : !#endif
831 : !
832 : !#if SK2_ENABLED
833 : ! module procedure test_setVerbose_D2_SK2_1
834 : ! use pm_kind, only: SKC => SK2
835 : !#include "test_pm_arrayVerbose@routines.inc.F90"
836 : ! end procedure
837 : !#endif
838 : !
839 : !#if SK1_ENABLED
840 : ! module procedure test_setVerbose_D2_SK1_1
841 : ! use pm_kind, only: SKC => SK1
842 : !#include "test_pm_arrayVerbose@routines.inc.F90"
843 : ! end procedure
844 : !#endif
845 : !
846 : !#undef SK_ENABLED
847 : !
848 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
849 : !
850 : !#define IK_ENABLED 1
851 : !
852 : !#if IK5_ENABLED
853 : ! module procedure test_setVerbose_D2_IK5_1
854 : ! use pm_kind, only: IKC => IK5
855 : !#include "test_pm_arrayVerbose@routines.inc.F90"
856 : ! end procedure
857 : !#endif
858 : !
859 : !#if IK4_ENABLED
860 : ! module procedure test_setVerbose_D2_IK4_1
861 : ! use pm_kind, only: IKC => IK4
862 : !#include "test_pm_arrayVerbose@routines.inc.F90"
863 : ! end procedure
864 : !#endif
865 : !
866 : !#if IK3_ENABLED
867 : ! module procedure test_setVerbose_D2_IK3_1
868 : ! use pm_kind, only: IKC => IK3
869 : !#include "test_pm_arrayVerbose@routines.inc.F90"
870 : ! end procedure
871 : !#endif
872 : !
873 : !#if IK2_ENABLED
874 : ! module procedure test_setVerbose_D2_IK2_1
875 : ! use pm_kind, only: IKC => IK2
876 : !#include "test_pm_arrayVerbose@routines.inc.F90"
877 : ! end procedure
878 : !#endif
879 : !
880 : !#if IK1_ENABLED
881 : ! module procedure test_setVerbose_D2_IK1_1
882 : ! use pm_kind, only: IKC => IK1
883 : !#include "test_pm_arrayVerbose@routines.inc.F90"
884 : ! end procedure
885 : !#endif
886 : !
887 : !#undef IK_ENABLED
888 : !
889 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
890 : !
891 : !#define LK_ENABLED 1
892 : !
893 : !#if LK5_ENABLED
894 : ! module procedure test_setVerbose_D2_LK5_1
895 : ! use pm_kind, only: LKC => LK5
896 : !#include "test_pm_arrayVerbose@routines.inc.F90"
897 : ! end procedure
898 : !#endif
899 : !
900 : !#if LK4_ENABLED
901 : ! module procedure test_setVerbose_D2_LK4_1
902 : ! use pm_kind, only: LKC => LK4
903 : !#include "test_pm_arrayVerbose@routines.inc.F90"
904 : ! end procedure
905 : !#endif
906 : !
907 : !#if LK3_ENABLED
908 : ! module procedure test_setVerbose_D2_LK3_1
909 : ! use pm_kind, only: LKC => LK3
910 : !#include "test_pm_arrayVerbose@routines.inc.F90"
911 : ! end procedure
912 : !#endif
913 : !
914 : !#if LK2_ENABLED
915 : ! module procedure test_setVerbose_D2_LK2_1
916 : ! use pm_kind, only: LKC => LK2
917 : !#include "test_pm_arrayVerbose@routines.inc.F90"
918 : ! end procedure
919 : !#endif
920 : !
921 : !#if LK1_ENABLED
922 : ! module procedure test_setVerbose_D2_LK1_1
923 : ! use pm_kind, only: LKC => LK1
924 : !#include "test_pm_arrayVerbose@routines.inc.F90"
925 : ! end procedure
926 : !#endif
927 : !
928 : !#undef LK_ENABLED
929 : !
930 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
931 : !
932 : !#define CK_ENABLED 1
933 : !
934 : !#if CK5_ENABLED
935 : ! module procedure test_setVerbose_D2_CK5_1
936 : ! use pm_kind, only: CKC => CK5
937 : !#include "test_pm_arrayVerbose@routines.inc.F90"
938 : ! end procedure
939 : !#endif
940 : !
941 : !#if CK4_ENABLED
942 : ! module procedure test_setVerbose_D2_CK4_1
943 : ! use pm_kind, only: CKC => CK4
944 : !#include "test_pm_arrayVerbose@routines.inc.F90"
945 : ! end procedure
946 : !#endif
947 : !
948 : !#if CK3_ENABLED
949 : ! module procedure test_setVerbose_D2_CK3_1
950 : ! use pm_kind, only: CKC => CK3
951 : !#include "test_pm_arrayVerbose@routines.inc.F90"
952 : ! end procedure
953 : !#endif
954 : !
955 : !#if CK2_ENABLED
956 : ! module procedure test_setVerbose_D2_CK2_1
957 : ! use pm_kind, only: CKC => CK2
958 : !#include "test_pm_arrayVerbose@routines.inc.F90"
959 : ! end procedure
960 : !#endif
961 : !
962 : !#if CK1_ENABLED
963 : ! module procedure test_setVerbose_D2_CK1_1
964 : ! use pm_kind, only: CKC => CK1
965 : !#include "test_pm_arrayVerbose@routines.inc.F90"
966 : ! end procedure
967 : !#endif
968 : !
969 : !#undef CK_ENABLED
970 : !
971 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
972 : !
973 : !#define RK_ENABLED 1
974 : !
975 : !#if RK5_ENABLED
976 : ! module procedure test_setVerbose_D2_RK5_1
977 : ! use pm_kind, only: RKC => RK5
978 : !#include "test_pm_arrayVerbose@routines.inc.F90"
979 : ! end procedure
980 : !#endif
981 : !
982 : !#if RK4_ENABLED
983 : ! module procedure test_setVerbose_D2_RK4_1
984 : ! use pm_kind, only: RKC => RK4
985 : !#include "test_pm_arrayVerbose@routines.inc.F90"
986 : ! end procedure
987 : !#endif
988 : !
989 : !#if RK3_ENABLED
990 : ! module procedure test_setVerbose_D2_RK3_1
991 : ! use pm_kind, only: RKC => RK3
992 : !#include "test_pm_arrayVerbose@routines.inc.F90"
993 : ! end procedure
994 : !#endif
995 : !
996 : !#if RK2_ENABLED
997 : ! module procedure test_setVerbose_D2_RK2_1
998 : ! use pm_kind, only: RKC => RK2
999 : !#include "test_pm_arrayVerbose@routines.inc.F90"
1000 : ! end procedure
1001 : !#endif
1002 : !
1003 : !#if RK1_ENABLED
1004 : ! module procedure test_setVerbose_D2_RK1_1
1005 : ! use pm_kind, only: RKC => RK1
1006 : !#include "test_pm_arrayVerbose@routines.inc.F90"
1007 : ! end procedure
1008 : !#endif
1009 : !
1010 : !#undef RK_ENABLED
1011 : !
1012 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1013 : !
1014 : !#undef D2_ENABLED
1015 : !
1016 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1017 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1018 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1019 : !
1020 : !#undef setVerbose_ENABLED
1021 : !
1022 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1023 :
1024 : end submodule routines
|
