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_strASCII](@ref pm_strASCII).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Monday 2:21 AM, August 30, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_strASCII) routines ! LCOV_EXCL_LINE
28 :
29 : #if CHECK_ENABLED
30 : use pm_err, only: getFine
31 : use pm_val2str, only: getStr
32 : use pm_err, only: setAsserted
33 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
34 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
35 : #else
36 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
37 : #endif
38 :
39 : implicit none
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : contains
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : #define getLocSpace_ENABLED 1
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 :
51 : #define SK_ENABLED 1
52 :
53 : #if SK5_ENABLED
54 : module procedure getLocSpace_SK5
55 : use pm_kind, only: SKC => SK5
56 : #include "pm_strASCII@routines.inc.F90"
57 : end procedure
58 : #endif
59 :
60 : #if SK4_ENABLED
61 : module procedure getLocSpace_SK4
62 : use pm_kind, only: SKC => SK4
63 : #include "pm_strASCII@routines.inc.F90"
64 : end procedure
65 : #endif
66 :
67 : #if SK3_ENABLED
68 : module procedure getLocSpace_SK3
69 : use pm_kind, only: SKC => SK3
70 : #include "pm_strASCII@routines.inc.F90"
71 : end procedure
72 : #endif
73 :
74 : #if SK2_ENABLED
75 : module procedure getLocSpace_SK2
76 : use pm_kind, only: SKC => SK2
77 : #include "pm_strASCII@routines.inc.F90"
78 : end procedure
79 : #endif
80 :
81 : #if SK1_ENABLED
82 8 : module procedure getLocSpace_SK1
83 : use pm_kind, only: SKC => SK1
84 : #include "pm_strASCII@routines.inc.F90"
85 : end procedure
86 : #endif
87 :
88 : #undef SK_ENABLED
89 :
90 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
91 :
92 : #undef getLocSpace_ENABLED
93 :
94 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
95 :
96 : #define getLocNonSpace_ENABLED 1
97 :
98 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
99 :
100 : #define SK_ENABLED 1
101 :
102 : #if SK5_ENABLED
103 : module procedure getLocNonSpace_SK5
104 : use pm_kind, only: SKC => SK5
105 : #include "pm_strASCII@routines.inc.F90"
106 : end procedure
107 : #endif
108 :
109 : #if SK4_ENABLED
110 : module procedure getLocNonSpace_SK4
111 : use pm_kind, only: SKC => SK4
112 : #include "pm_strASCII@routines.inc.F90"
113 : end procedure
114 : #endif
115 :
116 : #if SK3_ENABLED
117 : module procedure getLocNonSpace_SK3
118 : use pm_kind, only: SKC => SK3
119 : #include "pm_strASCII@routines.inc.F90"
120 : end procedure
121 : #endif
122 :
123 : #if SK2_ENABLED
124 : module procedure getLocNonSpace_SK2
125 : use pm_kind, only: SKC => SK2
126 : #include "pm_strASCII@routines.inc.F90"
127 : end procedure
128 : #endif
129 :
130 : #if SK1_ENABLED
131 3276 : module procedure getLocNonSpace_SK1
132 : use pm_kind, only: SKC => SK1
133 : #include "pm_strASCII@routines.inc.F90"
134 : end procedure
135 : #endif
136 :
137 : #undef SK_ENABLED
138 :
139 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
140 :
141 : #undef getLocNonSpace_ENABLED
142 :
143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
144 :
145 : #define isCharDigit_ENABLED 1
146 :
147 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
148 :
149 : #define SK_ENABLED 1
150 :
151 : #if SK5_ENABLED
152 : module procedure isCharDigit_SK5
153 : use pm_kind, only: SKC => SK5
154 : #include "pm_strASCII@routines.inc.F90"
155 : end procedure
156 : #endif
157 :
158 : #if SK4_ENABLED
159 : module procedure isCharDigit_SK4
160 : use pm_kind, only: SKC => SK4
161 : #include "pm_strASCII@routines.inc.F90"
162 : end procedure
163 : #endif
164 :
165 : #if SK3_ENABLED
166 : module procedure isCharDigit_SK3
167 : use pm_kind, only: SKC => SK3
168 : #include "pm_strASCII@routines.inc.F90"
169 : end procedure
170 : #endif
171 :
172 : #if SK2_ENABLED
173 : module procedure isCharDigit_SK2
174 : use pm_kind, only: SKC => SK2
175 : #include "pm_strASCII@routines.inc.F90"
176 : end procedure
177 : #endif
178 :
179 : #if SK1_ENABLED
180 3496 : module procedure isCharDigit_SK1
181 : use pm_kind, only: SKC => SK1
182 : #include "pm_strASCII@routines.inc.F90"
183 3496 : end procedure
184 : #endif
185 :
186 : #undef SK_ENABLED
187 :
188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
189 :
190 : #undef isCharDigit_ENABLED
191 :
192 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
193 :
194 : #define isStrDigitAll_ENABLED 1
195 :
196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197 :
198 : #define SK_ENABLED 1
199 :
200 : #if SK5_ENABLED
201 : module procedure isStrDigitAll_SK5
202 : use pm_kind, only: SKC => SK5
203 : #include "pm_strASCII@routines.inc.F90"
204 : end procedure
205 : #endif
206 :
207 : #if SK4_ENABLED
208 : module procedure isStrDigitAll_SK4
209 : use pm_kind, only: SKC => SK4
210 : #include "pm_strASCII@routines.inc.F90"
211 : end procedure
212 : #endif
213 :
214 : #if SK3_ENABLED
215 : module procedure isStrDigitAll_SK3
216 : use pm_kind, only: SKC => SK3
217 : #include "pm_strASCII@routines.inc.F90"
218 : end procedure
219 : #endif
220 :
221 : #if SK2_ENABLED
222 : module procedure isStrDigitAll_SK2
223 : use pm_kind, only: SKC => SK2
224 : #include "pm_strASCII@routines.inc.F90"
225 : end procedure
226 : #endif
227 :
228 : #if SK1_ENABLED
229 8 : module procedure isStrDigitAll_SK1
230 : use pm_kind, only: SKC => SK1
231 : #include "pm_strASCII@routines.inc.F90"
232 : end procedure
233 : #endif
234 :
235 : #undef SK_ENABLED
236 :
237 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
238 :
239 : #undef isStrDigitAll_ENABLED
240 :
241 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
242 :
243 : #define isStrDigitAny_ENABLED 1
244 :
245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
246 :
247 : #define SK_ENABLED 1
248 :
249 : #if SK5_ENABLED
250 : module procedure isStrDigitAny_SK5
251 : use pm_kind, only: SKC => SK5
252 : #include "pm_strASCII@routines.inc.F90"
253 : end procedure
254 : #endif
255 :
256 : #if SK4_ENABLED
257 : module procedure isStrDigitAny_SK4
258 : use pm_kind, only: SKC => SK4
259 : #include "pm_strASCII@routines.inc.F90"
260 : end procedure
261 : #endif
262 :
263 : #if SK3_ENABLED
264 : module procedure isStrDigitAny_SK3
265 : use pm_kind, only: SKC => SK3
266 : #include "pm_strASCII@routines.inc.F90"
267 : end procedure
268 : #endif
269 :
270 : #if SK2_ENABLED
271 : module procedure isStrDigitAny_SK2
272 : use pm_kind, only: SKC => SK2
273 : #include "pm_strASCII@routines.inc.F90"
274 : end procedure
275 : #endif
276 :
277 : #if SK1_ENABLED
278 8 : module procedure isStrDigitAny_SK1
279 : use pm_kind, only: SKC => SK1
280 : #include "pm_strASCII@routines.inc.F90"
281 : end procedure
282 : #endif
283 :
284 : #undef SK_ENABLED
285 :
286 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
287 :
288 : #undef isStrDigitAny_ENABLED
289 :
290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
291 :
292 : #define isStrDigit_ENABLED 1
293 :
294 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
295 :
296 : #define SK_ENABLED 1
297 :
298 : #if SK5_ENABLED
299 : module procedure isStrDigit_SK5
300 : use pm_kind, only: SKC => SK5
301 : #include "pm_strASCII@routines.inc.F90"
302 : end procedure
303 : #endif
304 :
305 : #if SK4_ENABLED
306 : module procedure isStrDigit_SK4
307 : use pm_kind, only: SKC => SK4
308 : #include "pm_strASCII@routines.inc.F90"
309 : end procedure
310 : #endif
311 :
312 : #if SK3_ENABLED
313 : module procedure isStrDigit_SK3
314 : use pm_kind, only: SKC => SK3
315 : #include "pm_strASCII@routines.inc.F90"
316 : end procedure
317 : #endif
318 :
319 : #if SK2_ENABLED
320 : module procedure isStrDigit_SK2
321 : use pm_kind, only: SKC => SK2
322 : #include "pm_strASCII@routines.inc.F90"
323 : end procedure
324 : #endif
325 :
326 : #if SK1_ENABLED
327 6 : module procedure isStrDigit_SK1
328 : use pm_kind, only: SKC => SK1
329 : #include "pm_strASCII@routines.inc.F90"
330 6 : end procedure
331 : #endif
332 :
333 : #undef SK_ENABLED
334 :
335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
336 :
337 : #undef isStrDigit_ENABLED
338 :
339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
340 :
341 : #define isStrInteger_ENABLED 1
342 :
343 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
344 :
345 : #define SK_ENABLED 1
346 :
347 : #if SK5_ENABLED
348 : module procedure isStrInteger_SK5
349 : use pm_kind, only: SKC => SK5
350 : #include "pm_strASCII@routines.inc.F90"
351 : end procedure
352 : #endif
353 :
354 : #if SK4_ENABLED
355 : module procedure isStrInteger_SK4
356 : use pm_kind, only: SKC => SK4
357 : #include "pm_strASCII@routines.inc.F90"
358 : end procedure
359 : #endif
360 :
361 : #if SK3_ENABLED
362 : module procedure isStrInteger_SK3
363 : use pm_kind, only: SKC => SK3
364 : #include "pm_strASCII@routines.inc.F90"
365 : end procedure
366 : #endif
367 :
368 : #if SK2_ENABLED
369 : module procedure isStrInteger_SK2
370 : use pm_kind, only: SKC => SK2
371 : #include "pm_strASCII@routines.inc.F90"
372 : end procedure
373 : #endif
374 :
375 : #if SK1_ENABLED
376 3198 : module procedure isStrInteger_SK1
377 : use pm_kind, only: SKC => SK1
378 : #include "pm_strASCII@routines.inc.F90"
379 : end procedure
380 : #endif
381 :
382 : #undef SK_ENABLED
383 :
384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
385 :
386 : #undef isStrInteger_ENABLED
387 :
388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
389 :
390 : #define isStrComplex_ENABLED 1
391 :
392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393 :
394 : #define SK_ENABLED 1
395 :
396 : #if SK5_ENABLED
397 : module procedure isStrComplex_SK5
398 : use pm_kind, only: SKC => SK5
399 : #include "pm_strASCII@routines.inc.F90"
400 : end procedure
401 : #endif
402 :
403 : #if SK4_ENABLED
404 : module procedure isStrComplex_SK4
405 : use pm_kind, only: SKC => SK4
406 : #include "pm_strASCII@routines.inc.F90"
407 : end procedure
408 : #endif
409 :
410 : #if SK3_ENABLED
411 : module procedure isStrComplex_SK3
412 : use pm_kind, only: SKC => SK3
413 : #include "pm_strASCII@routines.inc.F90"
414 : end procedure
415 : #endif
416 :
417 : #if SK2_ENABLED
418 : module procedure isStrComplex_SK2
419 : use pm_kind, only: SKC => SK2
420 : #include "pm_strASCII@routines.inc.F90"
421 : end procedure
422 : #endif
423 :
424 : #if SK1_ENABLED
425 42 : module procedure isStrComplex_SK1
426 : use pm_kind, only: SKC => SK1
427 : #include "pm_strASCII@routines.inc.F90"
428 : end procedure
429 : #endif
430 :
431 : #undef SK_ENABLED
432 :
433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
434 :
435 : #undef isStrComplex_ENABLED
436 :
437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
438 :
439 : #define isStrReal_ENABLED 1
440 :
441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
442 :
443 : #define SK_ENABLED 1
444 :
445 : #if SK5_ENABLED
446 : module procedure isStrReal_SK5
447 : use pm_kind, only: SKC => SK5
448 : #include "pm_strASCII@routines.inc.F90"
449 : end procedure
450 : #endif
451 :
452 : #if SK4_ENABLED
453 : module procedure isStrReal_SK4
454 : use pm_kind, only: SKC => SK4
455 : #include "pm_strASCII@routines.inc.F90"
456 : end procedure
457 : #endif
458 :
459 : #if SK3_ENABLED
460 : module procedure isStrReal_SK3
461 : use pm_kind, only: SKC => SK3
462 : #include "pm_strASCII@routines.inc.F90"
463 : end procedure
464 : #endif
465 :
466 : #if SK2_ENABLED
467 : module procedure isStrReal_SK2
468 : use pm_kind, only: SKC => SK2
469 : #include "pm_strASCII@routines.inc.F90"
470 : end procedure
471 : #endif
472 :
473 : #if SK1_ENABLED
474 74 : module procedure isStrReal_SK1
475 : use pm_kind, only: SKC => SK1
476 : #include "pm_strASCII@routines.inc.F90"
477 : end procedure
478 : #endif
479 :
480 : #undef SK_ENABLED
481 :
482 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
483 :
484 : #undef isStrReal_ENABLED
485 :
486 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
487 :
488 : #define isStrNumber_ENABLED 1
489 :
490 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
491 :
492 : #define SK_ENABLED 1
493 :
494 : #if SK5_ENABLED
495 : module procedure isStrNumber_SK5
496 : use pm_kind, only: SKC => SK5
497 : #include "pm_strASCII@routines.inc.F90"
498 : end procedure
499 : #endif
500 :
501 : #if SK4_ENABLED
502 : module procedure isStrNumber_SK4
503 : use pm_kind, only: SKC => SK4
504 : #include "pm_strASCII@routines.inc.F90"
505 : end procedure
506 : #endif
507 :
508 : #if SK3_ENABLED
509 : module procedure isStrNumber_SK3
510 : use pm_kind, only: SKC => SK3
511 : #include "pm_strASCII@routines.inc.F90"
512 : end procedure
513 : #endif
514 :
515 : #if SK2_ENABLED
516 : module procedure isStrNumber_SK2
517 : use pm_kind, only: SKC => SK2
518 : #include "pm_strASCII@routines.inc.F90"
519 : end procedure
520 : #endif
521 :
522 : #if SK1_ENABLED
523 16 : module procedure isStrNumber_SK1
524 : use pm_kind, only: SKC => SK1
525 : #include "pm_strASCII@routines.inc.F90"
526 16 : end procedure
527 : #endif
528 :
529 : #undef SK_ENABLED
530 :
531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
532 :
533 : #undef isStrNumber_ENABLED
534 :
535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
536 :
537 : #define isCharUpper_ENABLED 1
538 :
539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
540 :
541 : #define SK_ENABLED 1
542 :
543 : #if SK5_ENABLED
544 : module procedure isCharUpper_SK5
545 : use pm_kind, only: SKC => SK5
546 : #include "pm_strASCII@routines.inc.F90"
547 : end procedure
548 : #endif
549 :
550 : #if SK4_ENABLED
551 : module procedure isCharUpper_SK4
552 : use pm_kind, only: SKC => SK4
553 : #include "pm_strASCII@routines.inc.F90"
554 : end procedure
555 : #endif
556 :
557 : #if SK3_ENABLED
558 : module procedure isCharUpper_SK3
559 : use pm_kind, only: SKC => SK3
560 : #include "pm_strASCII@routines.inc.F90"
561 : end procedure
562 : #endif
563 :
564 : #if SK2_ENABLED
565 : module procedure isCharUpper_SK2
566 : use pm_kind, only: SKC => SK2
567 : #include "pm_strASCII@routines.inc.F90"
568 : end procedure
569 : #endif
570 :
571 : #if SK1_ENABLED
572 94 : module procedure isCharUpper_SK1
573 : use pm_kind, only: SKC => SK1
574 : #include "pm_strASCII@routines.inc.F90"
575 94 : end procedure
576 : #endif
577 :
578 : #undef SK_ENABLED
579 :
580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581 :
582 : #undef isCharUpper_ENABLED
583 :
584 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
585 :
586 : #define isCharLower_ENABLED 1
587 :
588 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
589 :
590 : #define SK_ENABLED 1
591 :
592 : #if SK5_ENABLED
593 : module procedure isCharLower_SK5
594 : use pm_kind, only: SKC => SK5
595 : #include "pm_strASCII@routines.inc.F90"
596 : end procedure
597 : #endif
598 :
599 : #if SK4_ENABLED
600 : module procedure isCharLower_SK4
601 : use pm_kind, only: SKC => SK4
602 : #include "pm_strASCII@routines.inc.F90"
603 : end procedure
604 : #endif
605 :
606 : #if SK3_ENABLED
607 : module procedure isCharLower_SK3
608 : use pm_kind, only: SKC => SK3
609 : #include "pm_strASCII@routines.inc.F90"
610 : end procedure
611 : #endif
612 :
613 : #if SK2_ENABLED
614 : module procedure isCharLower_SK2
615 : use pm_kind, only: SKC => SK2
616 : #include "pm_strASCII@routines.inc.F90"
617 : end procedure
618 : #endif
619 :
620 : #if SK1_ENABLED
621 94 : module procedure isCharLower_SK1
622 : use pm_kind, only: SKC => SK1
623 : #include "pm_strASCII@routines.inc.F90"
624 94 : end procedure
625 : #endif
626 :
627 : #undef SK_ENABLED
628 :
629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
630 :
631 : #undef isCharLower_ENABLED
632 :
633 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
634 :
635 : #define isStrUpperAll_ENABLED 1
636 :
637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
638 :
639 : #define SK_ENABLED 1
640 :
641 : #if SK5_ENABLED
642 : module procedure isStrUpperAll_SK5
643 : use pm_kind, only: SKC => SK5
644 : #include "pm_strASCII@routines.inc.F90"
645 : end procedure
646 : #endif
647 :
648 : #if SK4_ENABLED
649 : module procedure isStrUpperAll_SK4
650 : use pm_kind, only: SKC => SK4
651 : #include "pm_strASCII@routines.inc.F90"
652 : end procedure
653 : #endif
654 :
655 : #if SK3_ENABLED
656 : module procedure isStrUpperAll_SK3
657 : use pm_kind, only: SKC => SK3
658 : #include "pm_strASCII@routines.inc.F90"
659 : end procedure
660 : #endif
661 :
662 : #if SK2_ENABLED
663 : module procedure isStrUpperAll_SK2
664 : use pm_kind, only: SKC => SK2
665 : #include "pm_strASCII@routines.inc.F90"
666 : end procedure
667 : #endif
668 :
669 : #if SK1_ENABLED
670 21 : module procedure isStrUpperAll_SK1
671 : use pm_kind, only: SKC => SK1
672 : #include "pm_strASCII@routines.inc.F90"
673 : end procedure
674 : #endif
675 :
676 : #undef SK_ENABLED
677 :
678 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
679 :
680 : #undef isStrUpperAll_ENABLED
681 :
682 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
683 :
684 : #define isStrLowerAll_ENABLED 1
685 :
686 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
687 :
688 : #define SK_ENABLED 1
689 :
690 : #if SK5_ENABLED
691 : module procedure isStrLowerAll_SK5
692 : use pm_kind, only: SKC => SK5
693 : #include "pm_strASCII@routines.inc.F90"
694 : end procedure
695 : #endif
696 :
697 : #if SK4_ENABLED
698 : module procedure isStrLowerAll_SK4
699 : use pm_kind, only: SKC => SK4
700 : #include "pm_strASCII@routines.inc.F90"
701 : end procedure
702 : #endif
703 :
704 : #if SK3_ENABLED
705 : module procedure isStrLowerAll_SK3
706 : use pm_kind, only: SKC => SK3
707 : #include "pm_strASCII@routines.inc.F90"
708 : end procedure
709 : #endif
710 :
711 : #if SK2_ENABLED
712 : module procedure isStrLowerAll_SK2
713 : use pm_kind, only: SKC => SK2
714 : #include "pm_strASCII@routines.inc.F90"
715 : end procedure
716 : #endif
717 :
718 : #if SK1_ENABLED
719 21 : module procedure isStrLowerAll_SK1
720 : use pm_kind, only: SKC => SK1
721 : #include "pm_strASCII@routines.inc.F90"
722 : end procedure
723 : #endif
724 :
725 : #undef SK_ENABLED
726 :
727 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
728 :
729 : #undef isStrLowerAll_ENABLED
730 :
731 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
732 :
733 : #define isStrUpperAny_ENABLED 1
734 :
735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
736 :
737 : #define SK_ENABLED 1
738 :
739 : #if SK5_ENABLED
740 : module procedure isStrUpperAny_SK5
741 : use pm_kind, only: SKC => SK5
742 : #include "pm_strASCII@routines.inc.F90"
743 : end procedure
744 : #endif
745 :
746 : #if SK4_ENABLED
747 : module procedure isStrUpperAny_SK4
748 : use pm_kind, only: SKC => SK4
749 : #include "pm_strASCII@routines.inc.F90"
750 : end procedure
751 : #endif
752 :
753 : #if SK3_ENABLED
754 : module procedure isStrUpperAny_SK3
755 : use pm_kind, only: SKC => SK3
756 : #include "pm_strASCII@routines.inc.F90"
757 : end procedure
758 : #endif
759 :
760 : #if SK2_ENABLED
761 : module procedure isStrUpperAny_SK2
762 : use pm_kind, only: SKC => SK2
763 : #include "pm_strASCII@routines.inc.F90"
764 : end procedure
765 : #endif
766 :
767 : #if SK1_ENABLED
768 21 : module procedure isStrUpperAny_SK1
769 : use pm_kind, only: SKC => SK1
770 : #include "pm_strASCII@routines.inc.F90"
771 : end procedure
772 : #endif
773 :
774 : #undef SK_ENABLED
775 :
776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
777 :
778 : #undef isStrUpperAny_ENABLED
779 :
780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
781 :
782 : #define isStrLowerAny_ENABLED 1
783 :
784 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
785 :
786 : #define SK_ENABLED 1
787 :
788 : #if SK5_ENABLED
789 : module procedure isStrLowerAny_SK5
790 : use pm_kind, only: SKC => SK5
791 : #include "pm_strASCII@routines.inc.F90"
792 : end procedure
793 : #endif
794 :
795 : #if SK4_ENABLED
796 : module procedure isStrLowerAny_SK4
797 : use pm_kind, only: SKC => SK4
798 : #include "pm_strASCII@routines.inc.F90"
799 : end procedure
800 : #endif
801 :
802 : #if SK3_ENABLED
803 : module procedure isStrLowerAny_SK3
804 : use pm_kind, only: SKC => SK3
805 : #include "pm_strASCII@routines.inc.F90"
806 : end procedure
807 : #endif
808 :
809 : #if SK2_ENABLED
810 : module procedure isStrLowerAny_SK2
811 : use pm_kind, only: SKC => SK2
812 : #include "pm_strASCII@routines.inc.F90"
813 : end procedure
814 : #endif
815 :
816 : #if SK1_ENABLED
817 21 : module procedure isStrLowerAny_SK1
818 : use pm_kind, only: SKC => SK1
819 : #include "pm_strASCII@routines.inc.F90"
820 : end procedure
821 : #endif
822 :
823 : #undef SK_ENABLED
824 :
825 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
826 :
827 : #undef isStrLowerAny_ENABLED
828 :
829 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
830 :
831 : #define isStrUpper_ENABLED 1
832 :
833 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
834 :
835 : #define SK_ENABLED 1
836 :
837 : #if SK5_ENABLED
838 : module procedure isStrUpper_SK5
839 : use pm_kind, only: SKC => SK5
840 : #include "pm_strASCII@routines.inc.F90"
841 : end procedure
842 : #endif
843 :
844 : #if SK4_ENABLED
845 : module procedure isStrUpper_SK4
846 : use pm_kind, only: SKC => SK4
847 : #include "pm_strASCII@routines.inc.F90"
848 : end procedure
849 : #endif
850 :
851 : #if SK3_ENABLED
852 : module procedure isStrUpper_SK3
853 : use pm_kind, only: SKC => SK3
854 : #include "pm_strASCII@routines.inc.F90"
855 : end procedure
856 : #endif
857 :
858 : #if SK2_ENABLED
859 : module procedure isStrUpper_SK2
860 : use pm_kind, only: SKC => SK2
861 : #include "pm_strASCII@routines.inc.F90"
862 : end procedure
863 : #endif
864 :
865 : #if SK1_ENABLED
866 9 : module procedure isStrUpper_SK1
867 : use pm_kind, only: SKC => SK1
868 : #include "pm_strASCII@routines.inc.F90"
869 9 : end procedure
870 : #endif
871 :
872 : #undef SK_ENABLED
873 :
874 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
875 :
876 : #undef isStrUpper_ENABLED
877 :
878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
879 :
880 : #define isStrLower_ENABLED 1
881 :
882 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
883 :
884 : #define SK_ENABLED 1
885 :
886 : #if SK5_ENABLED
887 : module procedure isStrLower_SK5
888 : use pm_kind, only: SKC => SK5
889 : #include "pm_strASCII@routines.inc.F90"
890 : end procedure
891 : #endif
892 :
893 : #if SK4_ENABLED
894 : module procedure isStrLower_SK4
895 : use pm_kind, only: SKC => SK4
896 : #include "pm_strASCII@routines.inc.F90"
897 : end procedure
898 : #endif
899 :
900 : #if SK3_ENABLED
901 : module procedure isStrLower_SK3
902 : use pm_kind, only: SKC => SK3
903 : #include "pm_strASCII@routines.inc.F90"
904 : end procedure
905 : #endif
906 :
907 : #if SK2_ENABLED
908 : module procedure isStrLower_SK2
909 : use pm_kind, only: SKC => SK2
910 : #include "pm_strASCII@routines.inc.F90"
911 : end procedure
912 : #endif
913 :
914 : #if SK1_ENABLED
915 9 : module procedure isStrLower_SK1
916 : use pm_kind, only: SKC => SK1
917 : #include "pm_strASCII@routines.inc.F90"
918 9 : end procedure
919 : #endif
920 :
921 : #undef SK_ENABLED
922 :
923 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
924 :
925 : #undef isStrLower_ENABLED
926 :
927 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
928 :
929 : #define isCharAlphaNum_ENABLED 1
930 :
931 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
932 :
933 : #define SK_ENABLED 1
934 :
935 : #if SK5_ENABLED
936 : module procedure isCharAlphaNum_SK5
937 : use pm_kind, only: SKC => SK5
938 : #include "pm_strASCII@routines.inc.F90"
939 : end procedure
940 : #endif
941 :
942 : #if SK4_ENABLED
943 : module procedure isCharAlphaNum_SK4
944 : use pm_kind, only: SKC => SK4
945 : #include "pm_strASCII@routines.inc.F90"
946 : end procedure
947 : #endif
948 :
949 : #if SK3_ENABLED
950 : module procedure isCharAlphaNum_SK3
951 : use pm_kind, only: SKC => SK3
952 : #include "pm_strASCII@routines.inc.F90"
953 : end procedure
954 : #endif
955 :
956 : #if SK2_ENABLED
957 : module procedure isCharAlphaNum_SK2
958 : use pm_kind, only: SKC => SK2
959 : #include "pm_strASCII@routines.inc.F90"
960 : end procedure
961 : #endif
962 :
963 : #if SK1_ENABLED
964 8 : module procedure isCharAlphaNum_SK1
965 : use pm_kind, only: SKC => SK1
966 : #include "pm_strASCII@routines.inc.F90"
967 8 : end procedure
968 : #endif
969 :
970 : #undef SK_ENABLED
971 :
972 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
973 :
974 : #undef isCharAlphaNum_ENABLED
975 :
976 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
977 :
978 : #define isStrAlphaNumAll_ENABLED 1
979 :
980 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
981 :
982 : #define SK_ENABLED 1
983 :
984 : #if SK5_ENABLED
985 : module procedure isStrAlphaNumAll_SK5
986 : use pm_kind, only: SKC => SK5
987 : #include "pm_strASCII@routines.inc.F90"
988 : end procedure
989 : #endif
990 :
991 : #if SK4_ENABLED
992 : module procedure isStrAlphaNumAll_SK4
993 : use pm_kind, only: SKC => SK4
994 : #include "pm_strASCII@routines.inc.F90"
995 : end procedure
996 : #endif
997 :
998 : #if SK3_ENABLED
999 : module procedure isStrAlphaNumAll_SK3
1000 : use pm_kind, only: SKC => SK3
1001 : #include "pm_strASCII@routines.inc.F90"
1002 : end procedure
1003 : #endif
1004 :
1005 : #if SK2_ENABLED
1006 : module procedure isStrAlphaNumAll_SK2
1007 : use pm_kind, only: SKC => SK2
1008 : #include "pm_strASCII@routines.inc.F90"
1009 : end procedure
1010 : #endif
1011 :
1012 : #if SK1_ENABLED
1013 14 : module procedure isStrAlphaNumAll_SK1
1014 : use pm_kind, only: SKC => SK1
1015 : #include "pm_strASCII@routines.inc.F90"
1016 : end procedure
1017 : #endif
1018 :
1019 : #undef SK_ENABLED
1020 :
1021 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1022 :
1023 : #undef isStrAlphaNumAll_ENABLED
1024 :
1025 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1026 :
1027 : #define isStrAlphaNumAny_ENABLED 1
1028 :
1029 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1030 :
1031 : #define SK_ENABLED 1
1032 :
1033 : #if SK5_ENABLED
1034 : module procedure isStrAlphaNumAny_SK5
1035 : use pm_kind, only: SKC => SK5
1036 : #include "pm_strASCII@routines.inc.F90"
1037 : end procedure
1038 : #endif
1039 :
1040 : #if SK4_ENABLED
1041 : module procedure isStrAlphaNumAny_SK4
1042 : use pm_kind, only: SKC => SK4
1043 : #include "pm_strASCII@routines.inc.F90"
1044 : end procedure
1045 : #endif
1046 :
1047 : #if SK3_ENABLED
1048 : module procedure isStrAlphaNumAny_SK3
1049 : use pm_kind, only: SKC => SK3
1050 : #include "pm_strASCII@routines.inc.F90"
1051 : end procedure
1052 : #endif
1053 :
1054 : #if SK2_ENABLED
1055 : module procedure isStrAlphaNumAny_SK2
1056 : use pm_kind, only: SKC => SK2
1057 : #include "pm_strASCII@routines.inc.F90"
1058 : end procedure
1059 : #endif
1060 :
1061 : #if SK1_ENABLED
1062 14 : module procedure isStrAlphaNumAny_SK1
1063 : use pm_kind, only: SKC => SK1
1064 : #include "pm_strASCII@routines.inc.F90"
1065 : end procedure
1066 : #endif
1067 :
1068 : #undef SK_ENABLED
1069 :
1070 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1071 :
1072 : #undef isStrAlphaNumAny_ENABLED
1073 :
1074 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1075 :
1076 : #define isStrAlphaNum_ENABLED 1
1077 :
1078 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1079 :
1080 : #define SK_ENABLED 1
1081 :
1082 : #if SK5_ENABLED
1083 : module procedure isStrAlphaNum_SK5
1084 : use pm_kind, only: SKC => SK5
1085 : #include "pm_strASCII@routines.inc.F90"
1086 : end procedure
1087 : #endif
1088 :
1089 : #if SK4_ENABLED
1090 : module procedure isStrAlphaNum_SK4
1091 : use pm_kind, only: SKC => SK4
1092 : #include "pm_strASCII@routines.inc.F90"
1093 : end procedure
1094 : #endif
1095 :
1096 : #if SK3_ENABLED
1097 : module procedure isStrAlphaNum_SK3
1098 : use pm_kind, only: SKC => SK3
1099 : #include "pm_strASCII@routines.inc.F90"
1100 : end procedure
1101 : #endif
1102 :
1103 : #if SK2_ENABLED
1104 : module procedure isStrAlphaNum_SK2
1105 : use pm_kind, only: SKC => SK2
1106 : #include "pm_strASCII@routines.inc.F90"
1107 : end procedure
1108 : #endif
1109 :
1110 : #if SK1_ENABLED
1111 8 : module procedure isStrAlphaNum_SK1
1112 : use pm_kind, only: SKC => SK1
1113 : #include "pm_strASCII@routines.inc.F90"
1114 8 : end procedure
1115 : #endif
1116 :
1117 : #undef SK_ENABLED
1118 :
1119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1120 :
1121 : #undef isStrAlphaNum_ENABLED
1122 :
1123 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1124 :
1125 : #define isCharAlpha_ENABLED 1
1126 :
1127 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1128 :
1129 : #define SK_ENABLED 1
1130 :
1131 : #if SK5_ENABLED
1132 : module procedure isCharAlpha_SK5
1133 : use pm_kind, only: SKC => SK5
1134 : #include "pm_strASCII@routines.inc.F90"
1135 : end procedure
1136 : #endif
1137 :
1138 : #if SK4_ENABLED
1139 : module procedure isCharAlpha_SK4
1140 : use pm_kind, only: SKC => SK4
1141 : #include "pm_strASCII@routines.inc.F90"
1142 : end procedure
1143 : #endif
1144 :
1145 : #if SK3_ENABLED
1146 : module procedure isCharAlpha_SK3
1147 : use pm_kind, only: SKC => SK3
1148 : #include "pm_strASCII@routines.inc.F90"
1149 : end procedure
1150 : #endif
1151 :
1152 : #if SK2_ENABLED
1153 : module procedure isCharAlpha_SK2
1154 : use pm_kind, only: SKC => SK2
1155 : #include "pm_strASCII@routines.inc.F90"
1156 : end procedure
1157 : #endif
1158 :
1159 : #if SK1_ENABLED
1160 120 : module procedure isCharAlpha_SK1
1161 : use pm_kind, only: SKC => SK1
1162 : #include "pm_strASCII@routines.inc.F90"
1163 120 : end procedure
1164 : #endif
1165 :
1166 : #undef SK_ENABLED
1167 :
1168 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1169 :
1170 : #undef isCharAlpha_ENABLED
1171 :
1172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1173 :
1174 : #define isStrAlphaAll_ENABLED 1
1175 :
1176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1177 :
1178 : #define SK_ENABLED 1
1179 :
1180 : #if SK5_ENABLED
1181 : module procedure isStrAlphaAll_SK5
1182 : use pm_kind, only: SKC => SK5
1183 : #include "pm_strASCII@routines.inc.F90"
1184 : end procedure
1185 : #endif
1186 :
1187 : #if SK4_ENABLED
1188 : module procedure isStrAlphaAll_SK4
1189 : use pm_kind, only: SKC => SK4
1190 : #include "pm_strASCII@routines.inc.F90"
1191 : end procedure
1192 : #endif
1193 :
1194 : #if SK3_ENABLED
1195 : module procedure isStrAlphaAll_SK3
1196 : use pm_kind, only: SKC => SK3
1197 : #include "pm_strASCII@routines.inc.F90"
1198 : end procedure
1199 : #endif
1200 :
1201 : #if SK2_ENABLED
1202 : module procedure isStrAlphaAll_SK2
1203 : use pm_kind, only: SKC => SK2
1204 : #include "pm_strASCII@routines.inc.F90"
1205 : end procedure
1206 : #endif
1207 :
1208 : #if SK1_ENABLED
1209 18 : module procedure isStrAlphaAll_SK1
1210 : use pm_kind, only: SKC => SK1
1211 : #include "pm_strASCII@routines.inc.F90"
1212 : end procedure
1213 : #endif
1214 :
1215 : #undef SK_ENABLED
1216 :
1217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1218 :
1219 : #undef isStrAlphaAll_ENABLED
1220 :
1221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1222 :
1223 : #define isStrAlphaAny_ENABLED 1
1224 :
1225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1226 :
1227 : #define SK_ENABLED 1
1228 :
1229 : #if SK5_ENABLED
1230 : module procedure isStrAlphaAny_SK5
1231 : use pm_kind, only: SKC => SK5
1232 : #include "pm_strASCII@routines.inc.F90"
1233 : end procedure
1234 : #endif
1235 :
1236 : #if SK4_ENABLED
1237 : module procedure isStrAlphaAny_SK4
1238 : use pm_kind, only: SKC => SK4
1239 : #include "pm_strASCII@routines.inc.F90"
1240 : end procedure
1241 : #endif
1242 :
1243 : #if SK3_ENABLED
1244 : module procedure isStrAlphaAny_SK3
1245 : use pm_kind, only: SKC => SK3
1246 : #include "pm_strASCII@routines.inc.F90"
1247 : end procedure
1248 : #endif
1249 :
1250 : #if SK2_ENABLED
1251 : module procedure isStrAlphaAny_SK2
1252 : use pm_kind, only: SKC => SK2
1253 : #include "pm_strASCII@routines.inc.F90"
1254 : end procedure
1255 : #endif
1256 :
1257 : #if SK1_ENABLED
1258 18 : module procedure isStrAlphaAny_SK1
1259 : use pm_kind, only: SKC => SK1
1260 : #include "pm_strASCII@routines.inc.F90"
1261 : end procedure
1262 : #endif
1263 :
1264 : #undef SK_ENABLED
1265 :
1266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1267 :
1268 : #undef isStrAlphaAny_ENABLED
1269 :
1270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1271 :
1272 : #define isStrAlpha_ENABLED 1
1273 :
1274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1275 :
1276 : #define SK_ENABLED 1
1277 :
1278 : #if SK5_ENABLED
1279 : module procedure isStrAlpha_SK5
1280 : use pm_kind, only: SKC => SK5
1281 : #include "pm_strASCII@routines.inc.F90"
1282 : end procedure
1283 : #endif
1284 :
1285 : #if SK4_ENABLED
1286 : module procedure isStrAlpha_SK4
1287 : use pm_kind, only: SKC => SK4
1288 : #include "pm_strASCII@routines.inc.F90"
1289 : end procedure
1290 : #endif
1291 :
1292 : #if SK3_ENABLED
1293 : module procedure isStrAlpha_SK3
1294 : use pm_kind, only: SKC => SK3
1295 : #include "pm_strASCII@routines.inc.F90"
1296 : end procedure
1297 : #endif
1298 :
1299 : #if SK2_ENABLED
1300 : module procedure isStrAlpha_SK2
1301 : use pm_kind, only: SKC => SK2
1302 : #include "pm_strASCII@routines.inc.F90"
1303 : end procedure
1304 : #endif
1305 :
1306 : #if SK1_ENABLED
1307 9 : module procedure isStrAlpha_SK1
1308 : use pm_kind, only: SKC => SK1
1309 : #include "pm_strASCII@routines.inc.F90"
1310 9 : end procedure
1311 : #endif
1312 :
1313 : #undef SK_ENABLED
1314 :
1315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1316 :
1317 : #undef isStrAlpha_ENABLED
1318 :
1319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1320 :
1321 : #define getCharUpper_ENABLED 1
1322 :
1323 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1324 :
1325 : #define SK_ENABLED 1
1326 :
1327 : #if SK5_ENABLED
1328 : module procedure getCharUpper_SK5
1329 : use pm_kind, only: SKC => SK5
1330 : #include "pm_strASCII@routines.inc.F90"
1331 : end procedure
1332 : #endif
1333 :
1334 : #if SK4_ENABLED
1335 : module procedure getCharUpper_SK4
1336 : use pm_kind, only: SKC => SK4
1337 : #include "pm_strASCII@routines.inc.F90"
1338 : end procedure
1339 : #endif
1340 :
1341 : #if SK3_ENABLED
1342 : module procedure getCharUpper_SK3
1343 : use pm_kind, only: SKC => SK3
1344 : #include "pm_strASCII@routines.inc.F90"
1345 : end procedure
1346 : #endif
1347 :
1348 : #if SK2_ENABLED
1349 : module procedure getCharUpper_SK2
1350 : use pm_kind, only: SKC => SK2
1351 : #include "pm_strASCII@routines.inc.F90"
1352 : end procedure
1353 : #endif
1354 :
1355 : #if SK1_ENABLED
1356 7 : module procedure getCharUpper_SK1
1357 : use pm_kind, only: SKC => SK1
1358 : #include "pm_strASCII@routines.inc.F90"
1359 7 : end procedure
1360 : #endif
1361 :
1362 : #undef SK_ENABLED
1363 :
1364 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1365 :
1366 : #undef getCharUpper_ENABLED
1367 :
1368 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1369 :
1370 : #define setCharUpper_ENABLED 1
1371 :
1372 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1373 :
1374 : #define SK_ENABLED 1
1375 :
1376 : #if SK5_ENABLED
1377 : module procedure setCharUpper_SK5
1378 : use pm_kind, only: SKC => SK5
1379 : #include "pm_strASCII@routines.inc.F90"
1380 : end procedure
1381 : #endif
1382 :
1383 : #if SK4_ENABLED
1384 : module procedure setCharUpper_SK4
1385 : use pm_kind, only: SKC => SK4
1386 : #include "pm_strASCII@routines.inc.F90"
1387 : end procedure
1388 : #endif
1389 :
1390 : #if SK3_ENABLED
1391 : module procedure setCharUpper_SK3
1392 : use pm_kind, only: SKC => SK3
1393 : #include "pm_strASCII@routines.inc.F90"
1394 : end procedure
1395 : #endif
1396 :
1397 : #if SK2_ENABLED
1398 : module procedure setCharUpper_SK2
1399 : use pm_kind, only: SKC => SK2
1400 : #include "pm_strASCII@routines.inc.F90"
1401 : end procedure
1402 : #endif
1403 :
1404 : #if SK1_ENABLED
1405 7 : module procedure setCharUpper_SK1
1406 : use pm_kind, only: SKC => SK1
1407 : #include "pm_strASCII@routines.inc.F90"
1408 7 : end procedure
1409 : #endif
1410 :
1411 : #undef SK_ENABLED
1412 :
1413 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1414 :
1415 : #undef setCharUpper_ENABLED
1416 :
1417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1418 :
1419 : #define getCharLower_ENABLED 1
1420 :
1421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1422 :
1423 : #define SK_ENABLED 1
1424 :
1425 : #if SK5_ENABLED
1426 : module procedure getCharLower_SK5
1427 : use pm_kind, only: SKC => SK5
1428 : #include "pm_strASCII@routines.inc.F90"
1429 : end procedure
1430 : #endif
1431 :
1432 : #if SK4_ENABLED
1433 : module procedure getCharLower_SK4
1434 : use pm_kind, only: SKC => SK4
1435 : #include "pm_strASCII@routines.inc.F90"
1436 : end procedure
1437 : #endif
1438 :
1439 : #if SK3_ENABLED
1440 : module procedure getCharLower_SK3
1441 : use pm_kind, only: SKC => SK3
1442 : #include "pm_strASCII@routines.inc.F90"
1443 : end procedure
1444 : #endif
1445 :
1446 : #if SK2_ENABLED
1447 : module procedure getCharLower_SK2
1448 : use pm_kind, only: SKC => SK2
1449 : #include "pm_strASCII@routines.inc.F90"
1450 : end procedure
1451 : #endif
1452 :
1453 : #if SK1_ENABLED
1454 187 : module procedure getCharLower_SK1
1455 : use pm_kind, only: SKC => SK1
1456 : #include "pm_strASCII@routines.inc.F90"
1457 187 : end procedure
1458 : #endif
1459 :
1460 : #undef SK_ENABLED
1461 :
1462 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1463 :
1464 : #undef getCharLower_ENABLED
1465 :
1466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1467 :
1468 : #define setCharLower_ENABLED 1
1469 :
1470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1471 :
1472 : #define SK_ENABLED 1
1473 :
1474 : #if SK5_ENABLED
1475 : module procedure setCharLower_SK5
1476 : use pm_kind, only: SKC => SK5
1477 : #include "pm_strASCII@routines.inc.F90"
1478 : end procedure
1479 : #endif
1480 :
1481 : #if SK4_ENABLED
1482 : module procedure setCharLower_SK4
1483 : use pm_kind, only: SKC => SK4
1484 : #include "pm_strASCII@routines.inc.F90"
1485 : end procedure
1486 : #endif
1487 :
1488 : #if SK3_ENABLED
1489 : module procedure setCharLower_SK3
1490 : use pm_kind, only: SKC => SK3
1491 : #include "pm_strASCII@routines.inc.F90"
1492 : end procedure
1493 : #endif
1494 :
1495 : #if SK2_ENABLED
1496 : module procedure setCharLower_SK2
1497 : use pm_kind, only: SKC => SK2
1498 : #include "pm_strASCII@routines.inc.F90"
1499 : end procedure
1500 : #endif
1501 :
1502 : #if SK1_ENABLED
1503 7 : module procedure setCharLower_SK1
1504 : use pm_kind, only: SKC => SK1
1505 : #include "pm_strASCII@routines.inc.F90"
1506 7 : end procedure
1507 : #endif
1508 :
1509 : #undef SK_ENABLED
1510 :
1511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1512 :
1513 : #undef setCharLower_ENABLED
1514 :
1515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1516 :
1517 : #define getStrUpper_ENABLED 1
1518 :
1519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1520 :
1521 : #define SK_ENABLED 1
1522 :
1523 : #if SK5_ENABLED
1524 : module procedure getStrUpper_SK5
1525 : use pm_kind, only: SKC => SK5
1526 : #include "pm_strASCII@routines.inc.F90"
1527 : end procedure
1528 : #endif
1529 :
1530 : #if SK4_ENABLED
1531 : module procedure getStrUpper_SK4
1532 : use pm_kind, only: SKC => SK4
1533 : #include "pm_strASCII@routines.inc.F90"
1534 : end procedure
1535 : #endif
1536 :
1537 : #if SK3_ENABLED
1538 : module procedure getStrUpper_SK3
1539 : use pm_kind, only: SKC => SK3
1540 : #include "pm_strASCII@routines.inc.F90"
1541 : end procedure
1542 : #endif
1543 :
1544 : #if SK2_ENABLED
1545 : module procedure getStrUpper_SK2
1546 : use pm_kind, only: SKC => SK2
1547 : #include "pm_strASCII@routines.inc.F90"
1548 : end procedure
1549 : #endif
1550 :
1551 : #if SK1_ENABLED
1552 88 : module procedure getStrUpper_SK1
1553 : use pm_kind, only: SKC => SK1
1554 : #include "pm_strASCII@routines.inc.F90"
1555 88 : end procedure
1556 : #endif
1557 :
1558 : #undef SK_ENABLED
1559 :
1560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1561 :
1562 : #undef getStrUpper_ENABLED
1563 :
1564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1565 :
1566 : #define setStrUpper_ENABLED 1
1567 :
1568 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1569 :
1570 : #define SK_ENABLED 1
1571 :
1572 : #if SK5_ENABLED
1573 : module procedure setStrUpper_SK5
1574 : use pm_kind, only: SKC => SK5
1575 : #include "pm_strASCII@routines.inc.F90"
1576 : end procedure
1577 : #endif
1578 :
1579 : #if SK4_ENABLED
1580 : module procedure setStrUpper_SK4
1581 : use pm_kind, only: SKC => SK4
1582 : #include "pm_strASCII@routines.inc.F90"
1583 : end procedure
1584 : #endif
1585 :
1586 : #if SK3_ENABLED
1587 : module procedure setStrUpper_SK3
1588 : use pm_kind, only: SKC => SK3
1589 : #include "pm_strASCII@routines.inc.F90"
1590 : end procedure
1591 : #endif
1592 :
1593 : #if SK2_ENABLED
1594 : module procedure setStrUpper_SK2
1595 : use pm_kind, only: SKC => SK2
1596 : #include "pm_strASCII@routines.inc.F90"
1597 : end procedure
1598 : #endif
1599 :
1600 : #if SK1_ENABLED
1601 10 : module procedure setStrUpper_SK1
1602 : use pm_kind, only: SKC => SK1
1603 : #include "pm_strASCII@routines.inc.F90"
1604 10 : end procedure
1605 : #endif
1606 :
1607 : #undef SK_ENABLED
1608 :
1609 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1610 :
1611 : #undef setStrUpper_ENABLED
1612 :
1613 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1614 :
1615 : #define getStrLower_ENABLED 1
1616 :
1617 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1618 :
1619 : #define SK_ENABLED 1
1620 :
1621 : #if SK5_ENABLED
1622 : module procedure getStrLower_SK5
1623 : use pm_kind, only: SKC => SK5
1624 : #include "pm_strASCII@routines.inc.F90"
1625 : end procedure
1626 : #endif
1627 :
1628 : #if SK4_ENABLED
1629 : module procedure getStrLower_SK4
1630 : use pm_kind, only: SKC => SK4
1631 : #include "pm_strASCII@routines.inc.F90"
1632 : end procedure
1633 : #endif
1634 :
1635 : #if SK3_ENABLED
1636 : module procedure getStrLower_SK3
1637 : use pm_kind, only: SKC => SK3
1638 : #include "pm_strASCII@routines.inc.F90"
1639 : end procedure
1640 : #endif
1641 :
1642 : #if SK2_ENABLED
1643 : module procedure getStrLower_SK2
1644 : use pm_kind, only: SKC => SK2
1645 : #include "pm_strASCII@routines.inc.F90"
1646 : end procedure
1647 : #endif
1648 :
1649 : #if SK1_ENABLED
1650 5160 : module procedure getStrLower_SK1
1651 : use pm_kind, only: SKC => SK1
1652 : #include "pm_strASCII@routines.inc.F90"
1653 5160 : end procedure
1654 : #endif
1655 :
1656 : #undef SK_ENABLED
1657 :
1658 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1659 :
1660 : #undef getStrLower_ENABLED
1661 :
1662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1663 :
1664 : #define setStrLower_ENABLED 1
1665 :
1666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1667 :
1668 : #define SK_ENABLED 1
1669 :
1670 : #if SK5_ENABLED
1671 : module procedure setStrLower_SK5
1672 : use pm_kind, only: SKC => SK5
1673 : #include "pm_strASCII@routines.inc.F90"
1674 : end procedure
1675 : #endif
1676 :
1677 : #if SK4_ENABLED
1678 : module procedure setStrLower_SK4
1679 : use pm_kind, only: SKC => SK4
1680 : #include "pm_strASCII@routines.inc.F90"
1681 : end procedure
1682 : #endif
1683 :
1684 : #if SK3_ENABLED
1685 : module procedure setStrLower_SK3
1686 : use pm_kind, only: SKC => SK3
1687 : #include "pm_strASCII@routines.inc.F90"
1688 : end procedure
1689 : #endif
1690 :
1691 : #if SK2_ENABLED
1692 : module procedure setStrLower_SK2
1693 : use pm_kind, only: SKC => SK2
1694 : #include "pm_strASCII@routines.inc.F90"
1695 : end procedure
1696 : #endif
1697 :
1698 : #if SK1_ENABLED
1699 66 : module procedure setStrLower_SK1
1700 : use pm_kind, only: SKC => SK1
1701 : #include "pm_strASCII@routines.inc.F90"
1702 66 : end procedure
1703 : #endif
1704 :
1705 : #undef SK_ENABLED
1706 :
1707 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1708 :
1709 : #undef setStrLower_ENABLED
1710 :
1711 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1712 :
1713 : #define getStrQuoted_ENABLED 1
1714 :
1715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1716 :
1717 : #define SK_ENABLED 1
1718 :
1719 : #if SK5_ENABLED
1720 : module procedure getStrQuoted_SK5
1721 : use pm_kind, only: SKC => SK5
1722 : #include "pm_strASCII@routines.inc.F90"
1723 : end procedure
1724 : #endif
1725 :
1726 : #if SK4_ENABLED
1727 : module procedure getStrQuoted_SK4
1728 : use pm_kind, only: SKC => SK4
1729 : #include "pm_strASCII@routines.inc.F90"
1730 : end procedure
1731 : #endif
1732 :
1733 : #if SK3_ENABLED
1734 : module procedure getStrQuoted_SK3
1735 : use pm_kind, only: SKC => SK3
1736 : #include "pm_strASCII@routines.inc.F90"
1737 : end procedure
1738 : #endif
1739 :
1740 : #if SK2_ENABLED
1741 : module procedure getStrQuoted_SK2
1742 : use pm_kind, only: SKC => SK2
1743 : #include "pm_strASCII@routines.inc.F90"
1744 : end procedure
1745 : #endif
1746 :
1747 : #if SK1_ENABLED
1748 991032 : module procedure getStrQuoted_SK1
1749 : use pm_kind, only: SKC => SK1
1750 : #include "pm_strASCII@routines.inc.F90"
1751 991032 : end procedure
1752 : #endif
1753 :
1754 : #undef SK_ENABLED
1755 :
1756 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1757 :
1758 : #undef getStrQuoted_ENABLED
1759 :
1760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1761 :
1762 : #define setStrQuoted_ENABLED 1
1763 :
1764 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1765 :
1766 : #define SK_ENABLED 1
1767 :
1768 : #if SK5_ENABLED
1769 : module procedure setStrQuoted_SK5
1770 : use pm_kind, only: SKC => SK5
1771 : #include "pm_strASCII@routines.inc.F90"
1772 : end procedure
1773 : #endif
1774 :
1775 : #if SK4_ENABLED
1776 : module procedure setStrQuoted_SK4
1777 : use pm_kind, only: SKC => SK4
1778 : #include "pm_strASCII@routines.inc.F90"
1779 : end procedure
1780 : #endif
1781 :
1782 : #if SK3_ENABLED
1783 : module procedure setStrQuoted_SK3
1784 : use pm_kind, only: SKC => SK3
1785 : #include "pm_strASCII@routines.inc.F90"
1786 : end procedure
1787 : #endif
1788 :
1789 : #if SK2_ENABLED
1790 : module procedure setStrQuoted_SK2
1791 : use pm_kind, only: SKC => SK2
1792 : #include "pm_strASCII@routines.inc.F90"
1793 : end procedure
1794 : #endif
1795 :
1796 : #if SK1_ENABLED
1797 7 : module procedure setStrQuoted_SK1
1798 : use pm_kind, only: SKC => SK1
1799 : #include "pm_strASCII@routines.inc.F90"
1800 7 : end procedure
1801 : #endif
1802 :
1803 : #undef SK_ENABLED
1804 :
1805 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1806 :
1807 : #undef setStrQuoted_ENABLED
1808 :
1809 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1810 :
1811 : #define getAsciiFromEscaped_ENABLED 1
1812 :
1813 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1814 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1815 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1816 :
1817 : #define New_ENABLED 1
1818 :
1819 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1820 :
1821 : #define SK_ENABLED 1
1822 :
1823 : #if SK5_ENABLED
1824 : module procedure getAsciiFromEscapedNew_SK5
1825 : use pm_mathNumSys, only: getDecimal
1826 : use pm_kind, only: SKC => SK5
1827 : #include "pm_strASCII@routines.inc.F90"
1828 : end procedure
1829 : #endif
1830 :
1831 : #if SK4_ENABLED
1832 : module procedure getAsciiFromEscapedNew_SK4
1833 : use pm_mathNumSys, only: getDecimal
1834 : use pm_kind, only: SKC => SK4
1835 : #include "pm_strASCII@routines.inc.F90"
1836 : end procedure
1837 : #endif
1838 :
1839 : #if SK3_ENABLED
1840 : module procedure getAsciiFromEscapedNew_SK3
1841 : use pm_mathNumSys, only: getDecimal
1842 : use pm_kind, only: SKC => SK3
1843 : #include "pm_strASCII@routines.inc.F90"
1844 : end procedure
1845 : #endif
1846 :
1847 : #if SK2_ENABLED
1848 : module procedure getAsciiFromEscapedNew_SK2
1849 : use pm_mathNumSys, only: getDecimal
1850 : use pm_kind, only: SKC => SK2
1851 : #include "pm_strASCII@routines.inc.F90"
1852 : end procedure
1853 : #endif
1854 :
1855 : #if SK1_ENABLED
1856 20 : module procedure getAsciiFromEscapedNew_SK1
1857 : use pm_mathNumSys, only: getDecimal
1858 : use pm_kind, only: SKC => SK1
1859 : #include "pm_strASCII@routines.inc.F90"
1860 20 : end procedure
1861 : #endif
1862 :
1863 : #undef SK_ENABLED
1864 :
1865 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1866 :
1867 : #undef New_ENABLED
1868 :
1869 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1871 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1872 :
1873 : #undef getAsciiFromEscaped_ENABLED
1874 :
1875 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1876 :
1877 : #define setAsciiFromEscaped_ENABLED 1
1878 :
1879 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1880 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1881 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1882 :
1883 : #define Rep_ENABLED 1
1884 :
1885 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1886 :
1887 : #define SK_ENABLED 1
1888 :
1889 : #if SK5_ENABLED
1890 : module procedure setAsciiFromEscapedRep_SK5
1891 : use pm_mathNumSys, only: getDecimal
1892 : use pm_kind, only: SKC => SK5
1893 : #include "pm_strASCII@routines.inc.F90"
1894 : end procedure
1895 : #endif
1896 :
1897 : #if SK4_ENABLED
1898 : module procedure setAsciiFromEscapedRep_SK4
1899 : use pm_mathNumSys, only: getDecimal
1900 : use pm_kind, only: SKC => SK4
1901 : #include "pm_strASCII@routines.inc.F90"
1902 : end procedure
1903 : #endif
1904 :
1905 : #if SK3_ENABLED
1906 : module procedure setAsciiFromEscapedRep_SK3
1907 : use pm_mathNumSys, only: getDecimal
1908 : use pm_kind, only: SKC => SK3
1909 : #include "pm_strASCII@routines.inc.F90"
1910 : end procedure
1911 : #endif
1912 :
1913 : #if SK2_ENABLED
1914 : module procedure setAsciiFromEscapedRep_SK2
1915 : use pm_mathNumSys, only: getDecimal
1916 : use pm_kind, only: SKC => SK2
1917 : #include "pm_strASCII@routines.inc.F90"
1918 : end procedure
1919 : #endif
1920 :
1921 : #if SK1_ENABLED
1922 1445 : module procedure setAsciiFromEscapedRep_SK1
1923 : use pm_mathNumSys, only: getDecimal
1924 : use pm_kind, only: SKC => SK1
1925 : #include "pm_strASCII@routines.inc.F90"
1926 : end procedure
1927 : #endif
1928 :
1929 : #undef SK_ENABLED
1930 :
1931 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1932 :
1933 : #undef Rep_ENABLED
1934 :
1935 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1936 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1937 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1938 :
1939 : #define New_ENABLED 1
1940 :
1941 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1942 :
1943 : #define SK_ENABLED 1
1944 :
1945 : #if SK5_ENABLED
1946 : module procedure setAsciiFromEscapedNew_SK5
1947 : use pm_mathNumSys, only: getDecimal
1948 : use pm_kind, only: SKC => SK5
1949 : #include "pm_strASCII@routines.inc.F90"
1950 : end procedure
1951 : #endif
1952 :
1953 : #if SK4_ENABLED
1954 : module procedure setAsciiFromEscapedNew_SK4
1955 : use pm_mathNumSys, only: getDecimal
1956 : use pm_kind, only: SKC => SK4
1957 : #include "pm_strASCII@routines.inc.F90"
1958 : end procedure
1959 : #endif
1960 :
1961 : #if SK3_ENABLED
1962 : module procedure setAsciiFromEscapedNew_SK3
1963 : use pm_mathNumSys, only: getDecimal
1964 : use pm_kind, only: SKC => SK3
1965 : #include "pm_strASCII@routines.inc.F90"
1966 : end procedure
1967 : #endif
1968 :
1969 : #if SK2_ENABLED
1970 : module procedure setAsciiFromEscapedNew_SK2
1971 : use pm_mathNumSys, only: getDecimal
1972 : use pm_kind, only: SKC => SK2
1973 : #include "pm_strASCII@routines.inc.F90"
1974 : end procedure
1975 : #endif
1976 :
1977 : #if SK1_ENABLED
1978 5 : module procedure setAsciiFromEscapedNew_SK1
1979 : use pm_mathNumSys, only: getDecimal
1980 : use pm_kind, only: SKC => SK1
1981 : #include "pm_strASCII@routines.inc.F90"
1982 : end procedure
1983 : #endif
1984 :
1985 : #undef SK_ENABLED
1986 :
1987 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1988 :
1989 : #undef New_ENABLED
1990 :
1991 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1992 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1993 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1994 :
1995 : #undef setAsciiFromEscaped_ENABLED
1996 :
1997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1998 :
1999 : #undef CHECK_ASSERTION
2000 :
2001 : end submodule routines
|
