ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_strASCII.F90
Go to the documentation of this file.
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
58
59!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60
61module pm_strASCII
62
63 use pm_kind, only: SK, IK, LK
64
65 implicit none
66
68 integer, private :: i
70
71 character(*, SK), parameter :: MODULE_NAME = SK_"@pm_strASCII"
72
73!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
74
75 integer(IK) , parameter :: MAX_ASCII_CODE = 127_IK
76
77!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
78
79 ! ASCII Control characters.
80
81 character(1, SK), parameter :: NUL = achar(0, SK)
84 character(1, SK), parameter :: SOH = achar(1, SK)
85 character(1, SK), parameter :: STX = achar(2, SK)
86 character(1, SK), parameter :: ETX = achar(3, SK)
87 character(1, SK), parameter :: EOT = achar(4, SK)
88 character(1, SK), parameter :: ENQ = achar(5, SK)
89 character(1, SK), parameter :: ACK = achar(6, SK)
90 character(1, SK), parameter :: BEL = achar(7, SK)
91 character(1, SK), parameter :: BS = achar(8, SK)
92 character(1, SK), parameter :: HT = achar(9, SK)
93 character(1, SK), parameter :: LF = achar(10, SK)
94 character(1, SK), parameter :: VT = achar(11, SK)
95 character(1, SK), parameter :: FF = achar(12, SK)
96 character(1, SK), parameter :: CR = achar(13, SK)
97 character(1, SK), parameter :: SO = achar(14, SK)
98 character(1, SK), parameter :: SI = achar(15, SK)
99 character(1, SK), parameter :: DLE = achar(16, SK)
100 character(1, SK), parameter :: DC1 = achar(17, SK)
101 character(1, SK), parameter :: DC2 = achar(18, SK)
102 character(1, SK), parameter :: DC3 = achar(19, SK)
103 character(1, SK), parameter :: DC4 = achar(20, SK)
104 character(1, SK), parameter :: NAK = achar(21, SK)
105 character(1, SK), parameter :: SYN = achar(22, SK)
106 character(1, SK), parameter :: ETB = achar(23, SK)
107 character(1, SK), parameter :: CAN = achar(24, SK)
108 character(1, SK), parameter :: EM = achar(25, SK)
109 character(1, SK), parameter :: SUB = achar(26, SK)
110 character(1, SK), parameter :: ESC = achar(27, SK)
111 character(1, SK), parameter :: FS = achar(28, SK)
112 character(1, SK), parameter :: GS = achar(29, SK)
113 character(1, SK), parameter :: RS = achar(30, SK)
114 character(1, SK), parameter :: US = achar(31, SK)
115
116!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
117
118 ! Windows line terminator.
119 character(2, SK), parameter :: CRLF = CR//LF
121
122!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
123
124 ! ASCII printable characters.
125
126 character(1, SK), parameter :: SPC = achar(32, SK)
127 character(1, SK), parameter :: DEL = achar(127, SK)
128
129!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
130
133 character(*, SK), parameter :: ALPHA_UPPER_STR_SK = SK_"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
134
137 character(1, SK), parameter :: ALPHA_UPPER_VEC_SK(*) = [(ALPHA_UPPER_STR_SK(i:i), i = 1, len(ALPHA_UPPER_STR_SK))]
138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
139 !DIR$ ATTRIBUTES DLLEXPORT :: ALPHA_UPPER_VEC_SK
140#endif
141
142!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
143
146 character(*, SK), parameter :: ALPHA_LOWER_STR_SK = SK_"abcdefghijklmnopqrstuvwxyz"
147
150 character(1, SK), parameter :: ALPHA_LOWER_VEC_SK(*) = [(ALPHA_LOWER_STR_SK(i:i), i = 1, len(ALPHA_LOWER_STR_SK))]
151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
152 !DIR$ ATTRIBUTES DLLEXPORT :: ALPHA_LOWER_VEC_SK
153#endif
154
155!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156
159 character(*, SK), parameter :: ALPHA_STR_SK = ALPHA_UPPER_STR_SK//ALPHA_LOWER_STR_SK
160
163 character(1, SK), parameter :: ALPHA_VEC_SK(*) = [ALPHA_UPPER_VEC_SK, ALPHA_LOWER_VEC_SK]
164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
165 !DIR$ ATTRIBUTES DLLEXPORT :: ALPHA_VEC_SK
166#endif
167
168!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
169
172 integer(IK) , parameter :: UPPER_MINUS_LOWER_IK = ichar(SK_"A", kind = IK) - ichar(SK_"a", kind = IK)
173
174!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
175
178 character(*, SK), parameter :: DIGIT_STR_SK = SK_"0123456789"
179
182 character(1, SK), parameter :: DIGIT_VEC_SK(*) = [(DIGIT_STR_SK(i:i), i = 1, len(DIGIT_STR_SK))]
183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
184 !DIR$ ATTRIBUTES DLLEXPORT :: DIGIT_VEC_SK
185#endif
186
187!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
188
191 character(*, SK), parameter :: ALPHANUM_STR_SK = DIGIT_STR_SK//ALPHA_STR_SK
192
195 character(1, SK), parameter :: ALPHANUM_VEC_SK(*) = [DIGIT_VEC_SK, ALPHA_VEC_SK]
196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
197 !DIR$ ATTRIBUTES DLLEXPORT :: ALPHANUM_VEC_SK
198#endif
199
200!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
201
204 character(*, SK), parameter :: INTEGER_STR_SK = DIGIT_STR_SK//SK_"-+"
205
208 character(1, SK), parameter :: INTEGER_VEC_SK(*) = [(INTEGER_STR_SK(i:i), i = 1, len(INTEGER_STR_SK))]
209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
210 !DIR$ ATTRIBUTES DLLEXPORT :: INTEGER_VEC_SK
211#endif
212
213!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214
217 character(*, SK), parameter :: REAL_STR_SK = DIGIT_STR_SK//SK_".edED"
218
221 character(1, SK), parameter :: REAL_VEC_SK(*) = [(REAL_STR_SK(i:i), i = 1, len(REAL_STR_SK))]
222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
223 !DIR$ ATTRIBUTES DLLEXPORT :: REAL_VEC_SK
224#endif
225
226!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
227
230 character(*, SK), parameter :: COMPLEX_STR_SK = REAL_STR_SK//SK_"(),"
231
234 character(1, SK), parameter :: COMPLEX_VEC_SK(*) = [(COMPLEX_STR_SK(i:i), i = 1, len(COMPLEX_STR_SK))]
235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
236 !DIR$ ATTRIBUTES DLLEXPORT :: COMPLEX_VEC_SK
237#endif
238
239!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
240
290 interface getLocSpace
291
292 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
293
294#if SK5_ENABLED
295 pure elemental module function getLocSpace_SK5(str) result(locSpace)
296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
297 !DEC$ ATTRIBUTES DLLEXPORT :: getLocSpace_SK5
298#endif
299 use pm_kind, only: SKG => SK5
300 character(*,SKG) , intent(in) :: str
301 integer(IK) :: locSpace
302 end function
303#endif
304
305#if SK4_ENABLED
306 pure elemental module function getLocSpace_SK4(str) result(locSpace)
307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
308 !DEC$ ATTRIBUTES DLLEXPORT :: getLocSpace_SK4
309#endif
310 use pm_kind, only: SKG => SK4
311 character(*,SKG) , intent(in) :: str
312 integer(IK) :: locSpace
313 end function
314#endif
315
316#if SK3_ENABLED
317 pure elemental module function getLocSpace_SK3(str) result(locSpace)
318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
319 !DEC$ ATTRIBUTES DLLEXPORT :: getLocSpace_SK3
320#endif
321 use pm_kind, only: SKG => SK3
322 character(*,SKG) , intent(in) :: str
323 integer(IK) :: locSpace
324 end function
325#endif
326
327#if SK2_ENABLED
328 pure elemental module function getLocSpace_SK2(str) result(locSpace)
329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
330 !DEC$ ATTRIBUTES DLLEXPORT :: getLocSpace_SK2
331#endif
332 use pm_kind, only: SKG => SK2
333 character(*,SKG) , intent(in) :: str
334 integer(IK) :: locSpace
335 end function
336#endif
337
338#if SK1_ENABLED
339 pure elemental module function getLocSpace_SK1(str) result(locSpace)
340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
341 !DEC$ ATTRIBUTES DLLEXPORT :: getLocSpace_SK1
342#endif
343 use pm_kind, only: SKG => SK1
344 character(*,SKG) , intent(in) :: str
345 integer(IK) :: locSpace
346 end function
347#endif
348
349 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
350
351 end interface
352
353!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
354
404 interface getLocNonSpace
405
406 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
407
408#if SK5_ENABLED
409 pure elemental module function getLocNonSpace_SK5(str) result(locNonSpace)
410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
411 !DEC$ ATTRIBUTES DLLEXPORT :: getLocNonSpace_SK5
412#endif
413 use pm_kind, only: SKG => SK5
414 character(*,SKG) , intent(in) :: str
415 integer(IK) :: locNonSpace
416 end function
417#endif
418
419#if SK4_ENABLED
420 pure elemental module function getLocNonSpace_SK4(str) result(locNonSpace)
421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
422 !DEC$ ATTRIBUTES DLLEXPORT :: getLocNonSpace_SK4
423#endif
424 use pm_kind, only: SKG => SK4
425 character(*,SKG) , intent(in) :: str
426 integer(IK) :: locNonSpace
427 end function
428#endif
429
430#if SK3_ENABLED
431 pure elemental module function getLocNonSpace_SK3(str) result(locNonSpace)
432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
433 !DEC$ ATTRIBUTES DLLEXPORT :: getLocNonSpace_SK3
434#endif
435 use pm_kind, only: SKG => SK3
436 character(*,SKG) , intent(in) :: str
437 integer(IK) :: locNonSpace
438 end function
439#endif
440
441#if SK2_ENABLED
442 pure elemental module function getLocNonSpace_SK2(str) result(locNonSpace)
443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
444 !DEC$ ATTRIBUTES DLLEXPORT :: getLocNonSpace_SK2
445#endif
446 use pm_kind, only: SKG => SK2
447 character(*,SKG) , intent(in) :: str
448 integer(IK) :: locNonSpace
449 end function
450#endif
451
452#if SK1_ENABLED
453 pure elemental module function getLocNonSpace_SK1(str) result(locNonSpace)
454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
455 !DEC$ ATTRIBUTES DLLEXPORT :: getLocNonSpace_SK1
456#endif
457 use pm_kind, only: SKG => SK1
458 character(*,SKG) , intent(in) :: str
459 integer(IK) :: locNonSpace
460 end function
461#endif
462
463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
464
465 end interface
466
467!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
468
521 interface isCharDigit
522
523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
524
525#if SK5_ENABLED
526 pure elemental module function isCharDigit_SK5(chr) result(charIsDigit)
527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
528 !DEC$ ATTRIBUTES DLLEXPORT :: isCharDigit_SK5
529#endif
530 use pm_kind, only: SKG => SK5
531 character(1,SKG) , intent(in) :: chr
532 logical(LK) :: charIsDigit
533 end function
534#endif
535
536#if SK4_ENABLED
537 pure elemental module function isCharDigit_SK4(chr) result(charIsDigit)
538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
539 !DEC$ ATTRIBUTES DLLEXPORT :: isCharDigit_SK4
540#endif
541 use pm_kind, only: SKG => SK4
542 character(1,SKG) , intent(in) :: chr
543 logical(LK) :: charIsDigit
544 end function
545#endif
546
547#if SK3_ENABLED
548 pure elemental module function isCharDigit_SK3(chr) result(charIsDigit)
549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
550 !DEC$ ATTRIBUTES DLLEXPORT :: isCharDigit_SK3
551#endif
552 use pm_kind, only: SKG => SK3
553 character(1,SKG) , intent(in) :: chr
554 logical(LK) :: charIsDigit
555 end function
556#endif
557
558#if SK2_ENABLED
559 pure elemental module function isCharDigit_SK2(chr) result(charIsDigit)
560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
561 !DEC$ ATTRIBUTES DLLEXPORT :: isCharDigit_SK2
562#endif
563 use pm_kind, only: SKG => SK2
564 character(1,SKG) , intent(in) :: chr
565 logical(LK) :: charIsDigit
566 end function
567#endif
568
569#if SK1_ENABLED
570 pure elemental module function isCharDigit_SK1(chr) result(charIsDigit)
571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
572 !DEC$ ATTRIBUTES DLLEXPORT :: isCharDigit_SK1
573#endif
574 use pm_kind, only: SKG => SK1
575 character(1,SKG) , intent(in) :: chr
576 logical(LK) :: charIsDigit
577 end function
578#endif
579
580 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581
582 end interface
583
584!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
585
649 interface isStrDigitAll
650
651 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
652
653#if SK5_ENABLED
654 pure elemental module function isStrDigitAll_SK5(str) result(strIsDigitAll)
655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
656 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigitAll_SK5
657#endif
658 use pm_kind, only: SKG => SK5
659 character(*,SKG) , intent(in) :: str
660 logical(LK) :: strIsDigitAll
661 end function
662#endif
663
664#if SK4_ENABLED
665 pure elemental module function isStrDigitAll_SK4(str) result(strIsDigitAll)
666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
667 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigitAll_SK4
668#endif
669 use pm_kind, only: SKG => SK4
670 character(*,SKG) , intent(in) :: str
671 logical(LK) :: strIsDigitAll
672 end function
673#endif
674
675#if SK3_ENABLED
676 pure elemental module function isStrDigitAll_SK3(str) result(strIsDigitAll)
677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
678 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigitAll_SK3
679#endif
680 use pm_kind, only: SKG => SK3
681 character(*,SKG) , intent(in) :: str
682 logical(LK) :: strIsDigitAll
683 end function
684#endif
685
686#if SK2_ENABLED
687 pure elemental module function isStrDigitAll_SK2(str) result(strIsDigitAll)
688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
689 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigitAll_SK2
690#endif
691 use pm_kind, only: SKG => SK2
692 character(*,SKG) , intent(in) :: str
693 logical(LK) :: strIsDigitAll
694 end function
695#endif
696
697#if SK1_ENABLED
698 pure elemental module function isStrDigitAll_SK1(str) result(strIsDigitAll)
699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
700 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigitAll_SK1
701#endif
702 use pm_kind, only: SKG => SK1
703 character(*,SKG) , intent(in) :: str
704 logical(LK) :: strIsDigitAll
705 end function
706#endif
707
708 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
709
710 end interface
711
712!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
713
777 interface isStrDigitAny
778
779 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
780
781#if SK5_ENABLED
782 pure elemental module function isStrDigitAny_SK5(str) result(strIsDigitAny)
783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
784 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigitAny_SK5
785#endif
786 use pm_kind, only: SKG => SK5
787 character(*,SKG) , intent(in) :: str
788 logical(LK) :: strIsDigitAny
789 end function
790#endif
791
792#if SK4_ENABLED
793 pure elemental module function isStrDigitAny_SK4(str) result(strIsDigitAny)
794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
795 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigitAny_SK4
796#endif
797 use pm_kind, only: SKG => SK4
798 character(*,SKG) , intent(in) :: str
799 logical(LK) :: strIsDigitAny
800 end function
801#endif
802
803#if SK3_ENABLED
804 pure elemental module function isStrDigitAny_SK3(str) result(strIsDigitAny)
805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
806 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigitAny_SK3
807#endif
808 use pm_kind, only: SKG => SK3
809 character(*,SKG) , intent(in) :: str
810 logical(LK) :: strIsDigitAny
811 end function
812#endif
813
814#if SK2_ENABLED
815 pure elemental module function isStrDigitAny_SK2(str) result(strIsDigitAny)
816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
817 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigitAny_SK2
818#endif
819 use pm_kind, only: SKG => SK2
820 character(*,SKG) , intent(in) :: str
821 logical(LK) :: strIsDigitAny
822 end function
823#endif
824
825#if SK1_ENABLED
826 pure elemental module function isStrDigitAny_SK1(str) result(strIsDigitAny)
827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
828 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigitAny_SK1
829#endif
830 use pm_kind, only: SKG => SK1
831 character(*,SKG) , intent(in) :: str
832 logical(LK) :: strIsDigitAny
833 end function
834#endif
835
836 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
837
838 end interface
839
840!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
841
893 interface isStrDigit
894
895 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
896
897#if SK5_ENABLED
898 pure module function isStrDigit_SK5(str) result(StrIsNumeric)
899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
900 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigit_SK5
901#endif
902 use pm_kind, only: SKG => SK5
903 character(*,SKG) , intent(in) :: str
904 logical(LK) :: StrIsNumeric(len(str,IK))
905 end function
906#endif
907
908#if SK4_ENABLED
909 pure module function isStrDigit_SK4(str) result(StrIsNumeric)
910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
911 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigit_SK4
912#endif
913 use pm_kind, only: SKG => SK4
914 character(*,SKG) , intent(in) :: str
915 logical(LK) :: StrIsNumeric(len(str,IK))
916 end function
917#endif
918
919#if SK3_ENABLED
920 pure module function isStrDigit_SK3(str) result(StrIsNumeric)
921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
922 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigit_SK3
923#endif
924 use pm_kind, only: SKG => SK3
925 character(*,SKG) , intent(in) :: str
926 logical(LK) :: StrIsNumeric(len(str,IK))
927 end function
928#endif
929
930#if SK2_ENABLED
931 pure module function isStrDigit_SK2(str) result(StrIsNumeric)
932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
933 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigit_SK2
934#endif
935 use pm_kind, only: SKG => SK2
936 character(*,SKG) , intent(in) :: str
937 logical(LK) :: StrIsNumeric(len(str,IK))
938 end function
939#endif
940
941#if SK1_ENABLED
942 pure module function isStrDigit_SK1(str) result(StrIsNumeric)
943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
944 !DEC$ ATTRIBUTES DLLEXPORT :: isStrDigit_SK1
945#endif
946 use pm_kind, only: SKG => SK1
947 character(*,SKG) , intent(in) :: str
948 logical(LK) :: StrIsNumeric(len(str,IK))
949 end function
950#endif
951
952 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
953
954 end interface
955
956!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
957
1020 interface isStrReal
1021
1022 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1023
1024#if SK5_ENABLED
1025 pure elemental module function isStrReal_SK5(str) result(strIsReal)
1026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1027 !DEC$ ATTRIBUTES DLLEXPORT :: isStrReal_SK5
1028#endif
1029 use pm_kind, only: SKG => SK5
1030 character(*,SKG) , intent(in) :: str
1031 logical(LK) :: strIsReal
1032 end function
1033#endif
1034
1035#if SK4_ENABLED
1036 pure elemental module function isStrReal_SK4(str) result(strIsReal)
1037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1038 !DEC$ ATTRIBUTES DLLEXPORT :: isStrReal_SK4
1039#endif
1040 use pm_kind, only: SKG => SK4
1041 character(*,SKG) , intent(in) :: str
1042 logical(LK) :: strIsReal
1043 end function
1044#endif
1045
1046#if SK3_ENABLED
1047 pure elemental module function isStrReal_SK3(str) result(strIsReal)
1048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1049 !DEC$ ATTRIBUTES DLLEXPORT :: isStrReal_SK3
1050#endif
1051 use pm_kind, only: SKG => SK3
1052 character(*,SKG) , intent(in) :: str
1053 logical(LK) :: strIsReal
1054 end function
1055#endif
1056
1057#if SK2_ENABLED
1058 pure elemental module function isStrReal_SK2(str) result(strIsReal)
1059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1060 !DEC$ ATTRIBUTES DLLEXPORT :: isStrReal_SK2
1061#endif
1062 use pm_kind, only: SKG => SK2
1063 character(*,SKG) , intent(in) :: str
1064 logical(LK) :: strIsReal
1065 end function
1066#endif
1067
1068#if SK1_ENABLED
1069 pure elemental module function isStrReal_SK1(str) result(strIsReal)
1070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1071 !DEC$ ATTRIBUTES DLLEXPORT :: isStrReal_SK1
1072#endif
1073 use pm_kind, only: SKG => SK1
1074 character(*,SKG) , intent(in) :: str
1075 logical(LK) :: strIsReal
1076 end function
1077#endif
1078
1079 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1080
1081 end interface
1082
1083!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1084
1141 interface isStrComplex
1142
1143 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1144
1145#if SK5_ENABLED
1146 pure elemental module function isStrComplex_SK5(str) result(strIsComplex)
1147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1148 !DEC$ ATTRIBUTES DLLEXPORT :: isStrComplex_SK5
1149#endif
1150 use pm_kind, only: SKG => SK5
1151 character(*,SKG) , intent(in) :: str
1152 logical(LK) :: strIsComplex
1153 end function
1154#endif
1155
1156#if SK4_ENABLED
1157 pure elemental module function isStrComplex_SK4(str) result(strIsComplex)
1158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1159 !DEC$ ATTRIBUTES DLLEXPORT :: isStrComplex_SK4
1160#endif
1161 use pm_kind, only: SKG => SK4
1162 character(*,SKG) , intent(in) :: str
1163 logical(LK) :: strIsComplex
1164 end function
1165#endif
1166
1167#if SK3_ENABLED
1168 pure elemental module function isStrComplex_SK3(str) result(strIsComplex)
1169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1170 !DEC$ ATTRIBUTES DLLEXPORT :: isStrComplex_SK3
1171#endif
1172 use pm_kind, only: SKG => SK3
1173 character(*,SKG) , intent(in) :: str
1174 logical(LK) :: strIsComplex
1175 end function
1176#endif
1177
1178#if SK2_ENABLED
1179 pure elemental module function isStrComplex_SK2(str) result(strIsComplex)
1180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1181 !DEC$ ATTRIBUTES DLLEXPORT :: isStrComplex_SK2
1182#endif
1183 use pm_kind, only: SKG => SK2
1184 character(*,SKG) , intent(in) :: str
1185 logical(LK) :: strIsComplex
1186 end function
1187#endif
1188
1189#if SK1_ENABLED
1190 pure elemental module function isStrComplex_SK1(str) result(strIsComplex)
1191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1192 !DEC$ ATTRIBUTES DLLEXPORT :: isStrComplex_SK1
1193#endif
1194 use pm_kind, only: SKG => SK1
1195 character(*,SKG) , intent(in) :: str
1196 logical(LK) :: strIsComplex
1197 end function
1198#endif
1199
1200 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1201
1202 end interface
1203
1204!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1205
1262 interface isStrInteger
1263
1264 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1265
1266#if SK5_ENABLED
1267 pure elemental module function isStrInteger_SK5(str) result(strIsInteger)
1268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1269 !DEC$ ATTRIBUTES DLLEXPORT :: isStrInteger_SK5
1270#endif
1271 use pm_kind, only: SKG => SK5
1272 character(*,SKG) , intent(in) :: str
1273 logical(LK) :: strIsInteger
1274 end function
1275#endif
1276
1277#if SK4_ENABLED
1278 pure elemental module function isStrInteger_SK4(str) result(strIsInteger)
1279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1280 !DEC$ ATTRIBUTES DLLEXPORT :: isStrInteger_SK4
1281#endif
1282 use pm_kind, only: SKG => SK4
1283 character(*,SKG) , intent(in) :: str
1284 logical(LK) :: strIsInteger
1285 end function
1286#endif
1287
1288#if SK3_ENABLED
1289 pure elemental module function isStrInteger_SK3(str) result(strIsInteger)
1290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1291 !DEC$ ATTRIBUTES DLLEXPORT :: isStrInteger_SK3
1292#endif
1293 use pm_kind, only: SKG => SK3
1294 character(*,SKG) , intent(in) :: str
1295 logical(LK) :: strIsInteger
1296 end function
1297#endif
1298
1299#if SK2_ENABLED
1300 pure elemental module function isStrInteger_SK2(str) result(strIsInteger)
1301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1302 !DEC$ ATTRIBUTES DLLEXPORT :: isStrInteger_SK2
1303#endif
1304 use pm_kind, only: SKG => SK2
1305 character(*,SKG) , intent(in) :: str
1306 logical(LK) :: strIsInteger
1307 end function
1308#endif
1309
1310#if SK1_ENABLED
1311 pure elemental module function isStrInteger_SK1(str) result(strIsInteger)
1312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1313 !DEC$ ATTRIBUTES DLLEXPORT :: isStrInteger_SK1
1314#endif
1315 use pm_kind, only: SKG => SK1
1316 character(*,SKG) , intent(in) :: str
1317 logical(LK) :: strIsInteger
1318 end function
1319#endif
1320
1321 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1322
1323 end interface
1324
1325!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1326
1379 interface isStrNumber
1380
1381 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1382
1383#if SK5_ENABLED
1384 pure elemental module function isStrNumber_SK5(str) result(strIsNumber)
1385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1386 !DEC$ ATTRIBUTES DLLEXPORT :: isStrNumber_SK5
1387#endif
1388 use pm_kind, only: SKG => SK5
1389 character(*,SKG) , intent(in) :: str
1390 logical(LK) :: strIsNumber
1391 end function
1392#endif
1393
1394#if SK4_ENABLED
1395 pure elemental module function isStrNumber_SK4(str) result(strIsNumber)
1396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1397 !DEC$ ATTRIBUTES DLLEXPORT :: isStrNumber_SK4
1398#endif
1399 use pm_kind, only: SKG => SK4
1400 character(*,SKG) , intent(in) :: str
1401 logical(LK) :: strIsNumber
1402 end function
1403#endif
1404
1405#if SK3_ENABLED
1406 pure elemental module function isStrNumber_SK3(str) result(strIsNumber)
1407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1408 !DEC$ ATTRIBUTES DLLEXPORT :: isStrNumber_SK3
1409#endif
1410 use pm_kind, only: SKG => SK3
1411 character(*,SKG) , intent(in) :: str
1412 logical(LK) :: strIsNumber
1413 end function
1414#endif
1415
1416#if SK2_ENABLED
1417 pure elemental module function isStrNumber_SK2(str) result(strIsNumber)
1418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1419 !DEC$ ATTRIBUTES DLLEXPORT :: isStrNumber_SK2
1420#endif
1421 use pm_kind, only: SKG => SK2
1422 character(*,SKG) , intent(in) :: str
1423 logical(LK) :: strIsNumber
1424 end function
1425#endif
1426
1427#if SK1_ENABLED
1428 pure elemental module function isStrNumber_SK1(str) result(strIsNumber)
1429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1430 !DEC$ ATTRIBUTES DLLEXPORT :: isStrNumber_SK1
1431#endif
1432 use pm_kind, only: SKG => SK1
1433 character(*,SKG) , intent(in) :: str
1434 logical(LK) :: strIsNumber
1435 end function
1436#endif
1437
1438 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1439
1440 end interface
1441
1442!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1443
1496 interface isCharUpper
1497
1498 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1499
1500#if SK5_ENABLED
1501 pure elemental module function isCharUpper_SK5(chr) result(charIsUpper)
1502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1503 !DEC$ ATTRIBUTES DLLEXPORT :: isCharUpper_SK5
1504#endif
1505 use pm_kind, only: SKG => SK5
1506 character(1,SKG) , intent(in) :: chr
1507 logical(LK) :: charIsUpper
1508 end function
1509#endif
1510
1511#if SK4_ENABLED
1512 pure elemental module function isCharUpper_SK4(chr) result(charIsUpper)
1513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1514 !DEC$ ATTRIBUTES DLLEXPORT :: isCharUpper_SK4
1515#endif
1516 use pm_kind, only: SKG => SK4
1517 character(1,SKG) , intent(in) :: chr
1518 logical(LK) :: charIsUpper
1519 end function
1520#endif
1521
1522#if SK3_ENABLED
1523 pure elemental module function isCharUpper_SK3(chr) result(charIsUpper)
1524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1525 !DEC$ ATTRIBUTES DLLEXPORT :: isCharUpper_SK3
1526#endif
1527 use pm_kind, only: SKG => SK3
1528 character(1,SKG) , intent(in) :: chr
1529 logical(LK) :: charIsUpper
1530 end function
1531#endif
1532
1533#if SK2_ENABLED
1534 pure elemental module function isCharUpper_SK2(chr) result(charIsUpper)
1535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1536 !DEC$ ATTRIBUTES DLLEXPORT :: isCharUpper_SK2
1537#endif
1538 use pm_kind, only: SKG => SK2
1539 character(1,SKG) , intent(in) :: chr
1540 logical(LK) :: charIsUpper
1541 end function
1542#endif
1543
1544#if SK1_ENABLED
1545 pure elemental module function isCharUpper_SK1(chr) result(charIsUpper)
1546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1547 !DEC$ ATTRIBUTES DLLEXPORT :: isCharUpper_SK1
1548#endif
1549 use pm_kind, only: SKG => SK1
1550 character(1,SKG) , intent(in) :: chr
1551 logical(LK) :: charIsUpper
1552 end function
1553#endif
1554
1555 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1556
1557 end interface
1558
1559!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1560
1613 interface isCharLower
1614
1615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1616
1617#if SK5_ENABLED
1618 pure elemental module function isCharLower_SK5(chr) result(charIsLower)
1619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1620 !DEC$ ATTRIBUTES DLLEXPORT :: isCharLower_SK5
1621#endif
1622 use pm_kind, only: SKG => SK5
1623 character(1,SKG) , intent(in) :: chr
1624 logical(LK) :: charIsLower
1625 end function
1626#endif
1627
1628#if SK4_ENABLED
1629 pure elemental module function isCharLower_SK4(chr) result(charIsLower)
1630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1631 !DEC$ ATTRIBUTES DLLEXPORT :: isCharLower_SK4
1632#endif
1633 use pm_kind, only: SKG => SK4
1634 character(1,SKG) , intent(in) :: chr
1635 logical(LK) :: charIsLower
1636 end function
1637#endif
1638
1639#if SK3_ENABLED
1640 pure elemental module function isCharLower_SK3(chr) result(charIsLower)
1641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1642 !DEC$ ATTRIBUTES DLLEXPORT :: isCharLower_SK3
1643#endif
1644 use pm_kind, only: SKG => SK3
1645 character(1,SKG) , intent(in) :: chr
1646 logical(LK) :: charIsLower
1647 end function
1648#endif
1649
1650#if SK2_ENABLED
1651 pure elemental module function isCharLower_SK2(chr) result(charIsLower)
1652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1653 !DEC$ ATTRIBUTES DLLEXPORT :: isCharLower_SK2
1654#endif
1655 use pm_kind, only: SKG => SK2
1656 character(1,SKG) , intent(in) :: chr
1657 logical(LK) :: charIsLower
1658 end function
1659#endif
1660
1661#if SK1_ENABLED
1662 pure elemental module function isCharLower_SK1(chr) result(charIsLower)
1663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1664 !DEC$ ATTRIBUTES DLLEXPORT :: isCharLower_SK1
1665#endif
1666 use pm_kind, only: SKG => SK1
1667 character(1,SKG) , intent(in) :: chr
1668 logical(LK) :: charIsLower
1669 end function
1670#endif
1671
1672 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1673
1674 end interface
1675
1676!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1677
1741 interface isStrUpperAll
1742
1743 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1744
1745#if SK5_ENABLED
1746 pure elemental module function isStrUpperAll_SK5(str) result(strIsUpperAll)
1747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1748 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpperAll_SK5
1749#endif
1750 use pm_kind, only: SKG => SK5
1751 character(*,SKG) , intent(in) :: str
1752 logical(LK) :: strIsUpperAll
1753 end function
1754#endif
1755
1756#if SK4_ENABLED
1757 pure elemental module function isStrUpperAll_SK4(str) result(strIsUpperAll)
1758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1759 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpperAll_SK4
1760#endif
1761 use pm_kind, only: SKG => SK4
1762 character(*,SKG) , intent(in) :: str
1763 logical(LK) :: strIsUpperAll
1764 end function
1765#endif
1766
1767#if SK3_ENABLED
1768 pure elemental module function isStrUpperAll_SK3(str) result(strIsUpperAll)
1769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1770 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpperAll_SK3
1771#endif
1772 use pm_kind, only: SKG => SK3
1773 character(*,SKG) , intent(in) :: str
1774 logical(LK) :: strIsUpperAll
1775 end function
1776#endif
1777
1778#if SK2_ENABLED
1779 pure elemental module function isStrUpperAll_SK2(str) result(strIsUpperAll)
1780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1781 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpperAll_SK2
1782#endif
1783 use pm_kind, only: SKG => SK2
1784 character(*,SKG) , intent(in) :: str
1785 logical(LK) :: strIsUpperAll
1786 end function
1787#endif
1788
1789#if SK1_ENABLED
1790 pure elemental module function isStrUpperAll_SK1(str) result(strIsUpperAll)
1791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1792 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpperAll_SK1
1793#endif
1794 use pm_kind, only: SKG => SK1
1795 character(*,SKG) , intent(in) :: str
1796 logical(LK) :: strIsUpperAll
1797 end function
1798#endif
1799
1800 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1801
1802 end interface
1803
1804!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1805
1869 interface isStrUpperAny
1870
1871 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1872
1873#if SK5_ENABLED
1874 pure elemental module function isStrUpperAny_SK5(str) result(strIsUpperAny)
1875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1876 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpperAny_SK5
1877#endif
1878 use pm_kind, only: SKG => SK5
1879 character(*,SKG) , intent(in) :: str
1880 logical(LK) :: strIsUpperAny
1881 end function
1882#endif
1883
1884#if SK4_ENABLED
1885 pure elemental module function isStrUpperAny_SK4(str) result(strIsUpperAny)
1886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1887 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpperAny_SK4
1888#endif
1889 use pm_kind, only: SKG => SK4
1890 character(*,SKG) , intent(in) :: str
1891 logical(LK) :: strIsUpperAny
1892 end function
1893#endif
1894
1895#if SK3_ENABLED
1896 pure elemental module function isStrUpperAny_SK3(str) result(strIsUpperAny)
1897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1898 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpperAny_SK3
1899#endif
1900 use pm_kind, only: SKG => SK3
1901 character(*,SKG) , intent(in) :: str
1902 logical(LK) :: strIsUpperAny
1903 end function
1904#endif
1905
1906#if SK2_ENABLED
1907 pure elemental module function isStrUpperAny_SK2(str) result(strIsUpperAny)
1908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1909 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpperAny_SK2
1910#endif
1911 use pm_kind, only: SKG => SK2
1912 character(*,SKG) , intent(in) :: str
1913 logical(LK) :: strIsUpperAny
1914 end function
1915#endif
1916
1917#if SK1_ENABLED
1918 pure elemental module function isStrUpperAny_SK1(str) result(strIsUpperAny)
1919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1920 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpperAny_SK1
1921#endif
1922 use pm_kind, only: SKG => SK1
1923 character(*,SKG) , intent(in) :: str
1924 logical(LK) :: strIsUpperAny
1925 end function
1926#endif
1927
1928 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1929
1930 end interface
1931
1932!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1933
1987 interface isStrUpper
1988
1989 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1990
1991#if SK5_ENABLED
1992 pure module function isStrUpper_SK5(str) result(StrIsUpper)
1993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1994 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpper_SK5
1995#endif
1996 use pm_kind, only: SKG => SK5
1997 character(*,SKG) , intent(in) :: str
1998 logical(LK) :: StrIsUpper(len(str,IK))
1999 end function
2000#endif
2001
2002#if SK4_ENABLED
2003 pure module function isStrUpper_SK4(str) result(StrIsUpper)
2004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2005 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpper_SK4
2006#endif
2007 use pm_kind, only: SKG => SK4
2008 character(*,SKG) , intent(in) :: str
2009 logical(LK) :: StrIsUpper(len(str,IK))
2010 end function
2011#endif
2012
2013#if SK3_ENABLED
2014 pure module function isStrUpper_SK3(str) result(StrIsUpper)
2015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2016 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpper_SK3
2017#endif
2018 use pm_kind, only: SKG => SK3
2019 character(*,SKG) , intent(in) :: str
2020 logical(LK) :: StrIsUpper(len(str,IK))
2021 end function
2022#endif
2023
2024#if SK2_ENABLED
2025 pure module function isStrUpper_SK2(str) result(StrIsUpper)
2026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2027 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpper_SK2
2028#endif
2029 use pm_kind, only: SKG => SK2
2030 character(*,SKG) , intent(in) :: str
2031 logical(LK) :: StrIsUpper(len(str,IK))
2032 end function
2033#endif
2034
2035#if SK1_ENABLED
2036 pure module function isStrUpper_SK1(str) result(StrIsUpper)
2037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2038 !DEC$ ATTRIBUTES DLLEXPORT :: isStrUpper_SK1
2039#endif
2040 use pm_kind, only: SKG => SK1
2041 character(*,SKG) , intent(in) :: str
2042 logical(LK) :: StrIsUpper(len(str,IK))
2043 end function
2044#endif
2045
2046 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2047
2048 end interface
2049
2050!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2051
2116 interface isStrLowerAll
2117
2118 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2119
2120#if SK5_ENABLED
2121 pure elemental module function isStrLowerAll_SK5(str) result(strIsLowerAll)
2122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2123 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLowerAll_SK5
2124#endif
2125 use pm_kind, only: SKG => SK5
2126 character(*,SKG) , intent(in) :: str
2127 logical(LK) :: strIsLowerAll
2128 end function
2129#endif
2130
2131#if SK4_ENABLED
2132 pure elemental module function isStrLowerAll_SK4(str) result(strIsLowerAll)
2133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2134 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLowerAll_SK4
2135#endif
2136 use pm_kind, only: SKG => SK4
2137 character(*,SKG) , intent(in) :: str
2138 logical(LK) :: strIsLowerAll
2139 end function
2140#endif
2141
2142#if SK3_ENABLED
2143 pure elemental module function isStrLowerAll_SK3(str) result(strIsLowerAll)
2144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2145 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLowerAll_SK3
2146#endif
2147 use pm_kind, only: SKG => SK3
2148 character(*,SKG) , intent(in) :: str
2149 logical(LK) :: strIsLowerAll
2150 end function
2151#endif
2152
2153#if SK2_ENABLED
2154 pure elemental module function isStrLowerAll_SK2(str) result(strIsLowerAll)
2155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2156 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLowerAll_SK2
2157#endif
2158 use pm_kind, only: SKG => SK2
2159 character(*,SKG) , intent(in) :: str
2160 logical(LK) :: strIsLowerAll
2161 end function
2162#endif
2163
2164#if SK1_ENABLED
2165 pure elemental module function isStrLowerAll_SK1(str) result(strIsLowerAll)
2166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2167 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLowerAll_SK1
2168#endif
2169 use pm_kind, only: SKG => SK1
2170 character(*,SKG) , intent(in) :: str
2171 logical(LK) :: strIsLowerAll
2172 end function
2173#endif
2174
2175 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2176
2177 end interface
2178
2179!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2180
2244 interface isStrLowerAny
2245
2246 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2247
2248#if SK5_ENABLED
2249 pure elemental module function isStrLowerAny_SK5(str) result(strIsLowerAny)
2250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2251 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLowerAny_SK5
2252#endif
2253 use pm_kind, only: SKG => SK5
2254 character(*,SKG) , intent(in) :: str
2255 logical(LK) :: strIsLowerAny
2256 end function
2257#endif
2258
2259#if SK4_ENABLED
2260 pure elemental module function isStrLowerAny_SK4(str) result(strIsLowerAny)
2261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2262 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLowerAny_SK4
2263#endif
2264 use pm_kind, only: SKG => SK4
2265 character(*,SKG) , intent(in) :: str
2266 logical(LK) :: strIsLowerAny
2267 end function
2268#endif
2269
2270#if SK3_ENABLED
2271 pure elemental module function isStrLowerAny_SK3(str) result(strIsLowerAny)
2272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2273 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLowerAny_SK3
2274#endif
2275 use pm_kind, only: SKG => SK3
2276 character(*,SKG) , intent(in) :: str
2277 logical(LK) :: strIsLowerAny
2278 end function
2279#endif
2280
2281#if SK2_ENABLED
2282 pure elemental module function isStrLowerAny_SK2(str) result(strIsLowerAny)
2283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2284 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLowerAny_SK2
2285#endif
2286 use pm_kind, only: SKG => SK2
2287 character(*,SKG) , intent(in) :: str
2288 logical(LK) :: strIsLowerAny
2289 end function
2290#endif
2291
2292#if SK1_ENABLED
2293 pure elemental module function isStrLowerAny_SK1(str) result(strIsLowerAny)
2294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2295 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLowerAny_SK1
2296#endif
2297 use pm_kind, only: SKG => SK1
2298 character(*,SKG) , intent(in) :: str
2299 logical(LK) :: strIsLowerAny
2300 end function
2301#endif
2302
2303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2304
2305 end interface
2306
2307!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2308
2360 interface isStrLower
2361
2362 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2363
2364#if SK5_ENABLED
2365 pure module function isStrLower_SK5(str) result(StrIsLower)
2366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2367 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLower_SK5
2368#endif
2369 use pm_kind, only: SKG => SK5
2370 character(*,SKG) , intent(in) :: str
2371 logical(LK) :: StrIsLower(len(str,IK))
2372 end function
2373#endif
2374
2375#if SK4_ENABLED
2376 pure module function isStrLower_SK4(str) result(StrIsLower)
2377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2378 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLower_SK4
2379#endif
2380 use pm_kind, only: SKG => SK4
2381 character(*,SKG) , intent(in) :: str
2382 logical(LK) :: StrIsLower(len(str,IK))
2383 end function
2384#endif
2385
2386#if SK3_ENABLED
2387 pure module function isStrLower_SK3(str) result(StrIsLower)
2388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2389 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLower_SK3
2390#endif
2391 use pm_kind, only: SKG => SK3
2392 character(*,SKG) , intent(in) :: str
2393 logical(LK) :: StrIsLower(len(str,IK))
2394 end function
2395#endif
2396
2397#if SK2_ENABLED
2398 pure module function isStrLower_SK2(str) result(StrIsLower)
2399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2400 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLower_SK2
2401#endif
2402 use pm_kind, only: SKG => SK2
2403 character(*,SKG) , intent(in) :: str
2404 logical(LK) :: StrIsLower(len(str,IK))
2405 end function
2406#endif
2407
2408#if SK1_ENABLED
2409 pure module function isStrLower_SK1(str) result(StrIsLower)
2410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2411 !DEC$ ATTRIBUTES DLLEXPORT :: isStrLower_SK1
2412#endif
2413 use pm_kind, only: SKG => SK1
2414 character(*,SKG) , intent(in) :: str
2415 logical(LK) :: StrIsLower(len(str,IK))
2416 end function
2417#endif
2418
2419 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2420
2421 end interface
2422
2423!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2424
2478 interface isCharAlphaNum
2479
2480 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2481
2482#if SK5_ENABLED
2483 pure elemental module function isCharAlphaNum_SK5(chr) result(charIsAlphaNum)
2484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2485 !DEC$ ATTRIBUTES DLLEXPORT :: isCharAlphaNum_SK5
2486#endif
2487 use pm_kind, only: SKG => SK5
2488 character(1,SKG) , intent(in) :: chr
2489 logical(LK) :: charIsAlphaNum
2490 end function
2491#endif
2492
2493#if SK4_ENABLED
2494 pure elemental module function isCharAlphaNum_SK4(chr) result(charIsAlphaNum)
2495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2496 !DEC$ ATTRIBUTES DLLEXPORT :: isCharAlphaNum_SK4
2497#endif
2498 use pm_kind, only: SKG => SK4
2499 character(1,SKG) , intent(in) :: chr
2500 logical(LK) :: charIsAlphaNum
2501 end function
2502#endif
2503
2504#if SK3_ENABLED
2505 pure elemental module function isCharAlphaNum_SK3(chr) result(charIsAlphaNum)
2506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2507 !DEC$ ATTRIBUTES DLLEXPORT :: isCharAlphaNum_SK3
2508#endif
2509 use pm_kind, only: SKG => SK3
2510 character(1,SKG) , intent(in) :: chr
2511 logical(LK) :: charIsAlphaNum
2512 end function
2513#endif
2514
2515#if SK2_ENABLED
2516 pure elemental module function isCharAlphaNum_SK2(chr) result(charIsAlphaNum)
2517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2518 !DEC$ ATTRIBUTES DLLEXPORT :: isCharAlphaNum_SK2
2519#endif
2520 use pm_kind, only: SKG => SK2
2521 character(1,SKG) , intent(in) :: chr
2522 logical(LK) :: charIsAlphaNum
2523 end function
2524#endif
2525
2526#if SK1_ENABLED
2527 pure elemental module function isCharAlphaNum_SK1(chr) result(charIsAlphaNum)
2528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2529 !DEC$ ATTRIBUTES DLLEXPORT :: isCharAlphaNum_SK1
2530#endif
2531 use pm_kind, only: SKG => SK1
2532 character(1,SKG) , intent(in) :: chr
2533 logical(LK) :: charIsAlphaNum
2534 end function
2535#endif
2536
2537 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2538
2539 end interface
2540
2541!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2542
2607 interface isStrAlphaNumAll
2608
2609 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2610
2611#if SK5_ENABLED
2612 pure elemental module function isStrAlphaNumAll_SK5(str) result(strIsAlphaNumAll)
2613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2614 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNumAll_SK5
2615#endif
2616 use pm_kind, only: SKG => SK5
2617 character(*,SKG) , intent(in) :: str
2618 logical(LK) :: strIsAlphaNumAll
2619 end function
2620#endif
2621
2622#if SK4_ENABLED
2623 pure elemental module function isStrAlphaNumAll_SK4(str) result(strIsAlphaNumAll)
2624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2625 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNumAll_SK4
2626#endif
2627 use pm_kind, only: SKG => SK4
2628 character(*,SKG) , intent(in) :: str
2629 logical(LK) :: strIsAlphaNumAll
2630 end function
2631#endif
2632
2633#if SK3_ENABLED
2634 pure elemental module function isStrAlphaNumAll_SK3(str) result(strIsAlphaNumAll)
2635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2636 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNumAll_SK3
2637#endif
2638 use pm_kind, only: SKG => SK3
2639 character(*,SKG) , intent(in) :: str
2640 logical(LK) :: strIsAlphaNumAll
2641 end function
2642#endif
2643
2644#if SK2_ENABLED
2645 pure elemental module function isStrAlphaNumAll_SK2(str) result(strIsAlphaNumAll)
2646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2647 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNumAll_SK2
2648#endif
2649 use pm_kind, only: SKG => SK2
2650 character(*,SKG) , intent(in) :: str
2651 logical(LK) :: strIsAlphaNumAll
2652 end function
2653#endif
2654
2655#if SK1_ENABLED
2656 pure elemental module function isStrAlphaNumAll_SK1(str) result(strIsAlphaNumAll)
2657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2658 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNumAll_SK1
2659#endif
2660 use pm_kind, only: SKG => SK1
2661 character(*,SKG) , intent(in) :: str
2662 logical(LK) :: strIsAlphaNumAll
2663 end function
2664#endif
2665
2666 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2667
2668 end interface
2669
2670!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2671
2735 interface isStrAlphaNumAny
2736
2737 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2738
2739#if SK5_ENABLED
2740 pure elemental module function isStrAlphaNumAny_SK5(str) result(strIsAlphaNumAny)
2741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2742 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNumAny_SK5
2743#endif
2744 use pm_kind, only: SKG => SK5
2745 character(*,SKG) , intent(in) :: str
2746 logical(LK) :: strIsAlphaNumAny
2747 end function
2748#endif
2749
2750#if SK4_ENABLED
2751 pure elemental module function isStrAlphaNumAny_SK4(str) result(strIsAlphaNumAny)
2752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2753 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNumAny_SK4
2754#endif
2755 use pm_kind, only: SKG => SK4
2756 character(*,SKG) , intent(in) :: str
2757 logical(LK) :: strIsAlphaNumAny
2758 end function
2759#endif
2760
2761#if SK3_ENABLED
2762 pure elemental module function isStrAlphaNumAny_SK3(str) result(strIsAlphaNumAny)
2763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2764 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNumAny_SK3
2765#endif
2766 use pm_kind, only: SKG => SK3
2767 character(*,SKG) , intent(in) :: str
2768 logical(LK) :: strIsAlphaNumAny
2769 end function
2770#endif
2771
2772#if SK2_ENABLED
2773 pure elemental module function isStrAlphaNumAny_SK2(str) result(strIsAlphaNumAny)
2774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2775 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNumAny_SK2
2776#endif
2777 use pm_kind, only: SKG => SK2
2778 character(*,SKG) , intent(in) :: str
2779 logical(LK) :: strIsAlphaNumAny
2780 end function
2781#endif
2782
2783#if SK1_ENABLED
2784 pure elemental module function isStrAlphaNumAny_SK1(str) result(strIsAlphaNumAny)
2785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2786 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNumAny_SK1
2787#endif
2788 use pm_kind, only: SKG => SK1
2789 character(*,SKG) , intent(in) :: str
2790 logical(LK) :: strIsAlphaNumAny
2791 end function
2792#endif
2793
2794 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2795
2796 end interface
2797
2798!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2799
2851 interface isStrAlphaNum
2852
2853 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2854
2855#if SK5_ENABLED
2856 pure module function isStrAlphaNum_SK5(str) result(StrIsAlphaNum)
2857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2858 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNum_SK5
2859#endif
2860 use pm_kind, only: SKG => SK5
2861 character(*,SKG) , intent(in) :: str
2862 logical(LK) :: StrIsAlphaNum(len(str,IK))
2863 end function
2864#endif
2865
2866#if SK4_ENABLED
2867 pure module function isStrAlphaNum_SK4(str) result(StrIsAlphaNum)
2868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2869 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNum_SK4
2870#endif
2871 use pm_kind, only: SKG => SK4
2872 character(*,SKG) , intent(in) :: str
2873 logical(LK) :: StrIsAlphaNum(len(str,IK))
2874 end function
2875#endif
2876
2877#if SK3_ENABLED
2878 pure module function isStrAlphaNum_SK3(str) result(StrIsAlphaNum)
2879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2880 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNum_SK3
2881#endif
2882 use pm_kind, only: SKG => SK3
2883 character(*,SKG) , intent(in) :: str
2884 logical(LK) :: StrIsAlphaNum(len(str,IK))
2885 end function
2886#endif
2887
2888#if SK2_ENABLED
2889 pure module function isStrAlphaNum_SK2(str) result(StrIsAlphaNum)
2890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2891 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNum_SK2
2892#endif
2893 use pm_kind, only: SKG => SK2
2894 character(*,SKG) , intent(in) :: str
2895 logical(LK) :: StrIsAlphaNum(len(str,IK))
2896 end function
2897#endif
2898
2899#if SK1_ENABLED
2900 pure module function isStrAlphaNum_SK1(str) result(StrIsAlphaNum)
2901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2902 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaNum_SK1
2903#endif
2904 use pm_kind, only: SKG => SK1
2905 character(*,SKG) , intent(in) :: str
2906 logical(LK) :: StrIsAlphaNum(len(str,IK))
2907 end function
2908#endif
2909
2910 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2911
2912 end interface
2913
2914!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2915
2969 interface isCharAlpha
2970
2971 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2972
2973#if SK5_ENABLED
2974 pure elemental module function isCharAlpha_SK5(chr) result(charIsAlpha)
2975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2976 !DEC$ ATTRIBUTES DLLEXPORT :: isCharAlpha_SK5
2977#endif
2978 use pm_kind, only: SKG => SK5
2979 character(1,SKG) , intent(in) :: chr
2980 logical(LK) :: charIsAlpha
2981 end function
2982#endif
2983
2984#if SK4_ENABLED
2985 pure elemental module function isCharAlpha_SK4(chr) result(charIsAlpha)
2986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2987 !DEC$ ATTRIBUTES DLLEXPORT :: isCharAlpha_SK4
2988#endif
2989 use pm_kind, only: SKG => SK4
2990 character(1,SKG) , intent(in) :: chr
2991 logical(LK) :: charIsAlpha
2992 end function
2993#endif
2994
2995#if SK3_ENABLED
2996 pure elemental module function isCharAlpha_SK3(chr) result(charIsAlpha)
2997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2998 !DEC$ ATTRIBUTES DLLEXPORT :: isCharAlpha_SK3
2999#endif
3000 use pm_kind, only: SKG => SK3
3001 character(1,SKG) , intent(in) :: chr
3002 logical(LK) :: charIsAlpha
3003 end function
3004#endif
3005
3006#if SK2_ENABLED
3007 pure elemental module function isCharAlpha_SK2(chr) result(charIsAlpha)
3008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3009 !DEC$ ATTRIBUTES DLLEXPORT :: isCharAlpha_SK2
3010#endif
3011 use pm_kind, only: SKG => SK2
3012 character(1,SKG) , intent(in) :: chr
3013 logical(LK) :: charIsAlpha
3014 end function
3015#endif
3016
3017#if SK1_ENABLED
3018 pure elemental module function isCharAlpha_SK1(chr) result(charIsAlpha)
3019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3020 !DEC$ ATTRIBUTES DLLEXPORT :: isCharAlpha_SK1
3021#endif
3022 use pm_kind, only: SKG => SK1
3023 character(1,SKG) , intent(in) :: chr
3024 logical(LK) :: charIsAlpha
3025 end function
3026#endif
3027
3028 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3029
3030 end interface
3031
3032!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3033
3098 interface isStrAlphaAll
3099
3100 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3101
3102#if SK5_ENABLED
3103 pure elemental module function isStrAlphaAll_SK5(str) result(strIsAlphaAll)
3104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3105 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaAll_SK5
3106#endif
3107 use pm_kind, only: SKG => SK5
3108 character(*,SKG) , intent(in) :: str
3109 logical(LK) :: strIsAlphaAll
3110 end function
3111#endif
3112
3113#if SK4_ENABLED
3114 pure elemental module function isStrAlphaAll_SK4(str) result(strIsAlphaAll)
3115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3116 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaAll_SK4
3117#endif
3118 use pm_kind, only: SKG => SK4
3119 character(*,SKG) , intent(in) :: str
3120 logical(LK) :: strIsAlphaAll
3121 end function
3122#endif
3123
3124#if SK3_ENABLED
3125 pure elemental module function isStrAlphaAll_SK3(str) result(strIsAlphaAll)
3126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3127 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaAll_SK3
3128#endif
3129 use pm_kind, only: SKG => SK3
3130 character(*,SKG) , intent(in) :: str
3131 logical(LK) :: strIsAlphaAll
3132 end function
3133#endif
3134
3135#if SK2_ENABLED
3136 pure elemental module function isStrAlphaAll_SK2(str) result(strIsAlphaAll)
3137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3138 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaAll_SK2
3139#endif
3140 use pm_kind, only: SKG => SK2
3141 character(*,SKG) , intent(in) :: str
3142 logical(LK) :: strIsAlphaAll
3143 end function
3144#endif
3145
3146#if SK1_ENABLED
3147 pure elemental module function isStrAlphaAll_SK1(str) result(strIsAlphaAll)
3148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3149 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaAll_SK1
3150#endif
3151 use pm_kind, only: SKG => SK1
3152 character(*,SKG) , intent(in) :: str
3153 logical(LK) :: strIsAlphaAll
3154 end function
3155#endif
3156
3157 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3158
3159 end interface
3160
3161!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3162
3226 interface isStrAlphaAny
3227
3228 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3229
3230#if SK5_ENABLED
3231 pure elemental module function isStrAlphaAny_SK5(str) result(strIsAlphaAny)
3232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3233 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaAny_SK5
3234#endif
3235 use pm_kind, only: SKG => SK5
3236 character(*,SKG) , intent(in) :: str
3237 logical(LK) :: strIsAlphaAny
3238 end function
3239#endif
3240
3241#if SK4_ENABLED
3242 pure elemental module function isStrAlphaAny_SK4(str) result(strIsAlphaAny)
3243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3244 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaAny_SK4
3245#endif
3246 use pm_kind, only: SKG => SK4
3247 character(*,SKG) , intent(in) :: str
3248 logical(LK) :: strIsAlphaAny
3249 end function
3250#endif
3251
3252#if SK3_ENABLED
3253 pure elemental module function isStrAlphaAny_SK3(str) result(strIsAlphaAny)
3254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3255 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaAny_SK3
3256#endif
3257 use pm_kind, only: SKG => SK3
3258 character(*,SKG) , intent(in) :: str
3259 logical(LK) :: strIsAlphaAny
3260 end function
3261#endif
3262
3263#if SK2_ENABLED
3264 pure elemental module function isStrAlphaAny_SK2(str) result(strIsAlphaAny)
3265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3266 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaAny_SK2
3267#endif
3268 use pm_kind, only: SKG => SK2
3269 character(*,SKG) , intent(in) :: str
3270 logical(LK) :: strIsAlphaAny
3271 end function
3272#endif
3273
3274#if SK1_ENABLED
3275 pure elemental module function isStrAlphaAny_SK1(str) result(strIsAlphaAny)
3276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3277 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlphaAny_SK1
3278#endif
3279 use pm_kind, only: SKG => SK1
3280 character(*,SKG) , intent(in) :: str
3281 logical(LK) :: strIsAlphaAny
3282 end function
3283#endif
3284
3285 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3286
3287 end interface
3288
3289!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3290
3342 interface isStrAlpha
3343
3344 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3345
3346#if SK5_ENABLED
3347 pure module function isStrAlpha_SK5(str) result(StrIsAlpha)
3348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3349 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlpha_SK5
3350#endif
3351 use pm_kind, only: SKG => SK5
3352 character(*,SKG) , intent(in) :: str
3353 logical(LK) :: StrIsAlpha(len(str,IK))
3354 end function
3355#endif
3356
3357#if SK4_ENABLED
3358 pure module function isStrAlpha_SK4(str) result(StrIsAlpha)
3359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3360 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlpha_SK4
3361#endif
3362 use pm_kind, only: SKG => SK4
3363 character(*,SKG) , intent(in) :: str
3364 logical(LK) :: StrIsAlpha(len(str,IK))
3365 end function
3366#endif
3367
3368#if SK3_ENABLED
3369 pure module function isStrAlpha_SK3(str) result(StrIsAlpha)
3370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3371 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlpha_SK3
3372#endif
3373 use pm_kind, only: SKG => SK3
3374 character(*,SKG) , intent(in) :: str
3375 logical(LK) :: StrIsAlpha(len(str,IK))
3376 end function
3377#endif
3378
3379#if SK2_ENABLED
3380 pure module function isStrAlpha_SK2(str) result(StrIsAlpha)
3381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3382 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlpha_SK2
3383#endif
3384 use pm_kind, only: SKG => SK2
3385 character(*,SKG) , intent(in) :: str
3386 logical(LK) :: StrIsAlpha(len(str,IK))
3387 end function
3388#endif
3389
3390#if SK1_ENABLED
3391 pure module function isStrAlpha_SK1(str) result(StrIsAlpha)
3392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3393 !DEC$ ATTRIBUTES DLLEXPORT :: isStrAlpha_SK1
3394#endif
3395 use pm_kind, only: SKG => SK1
3396 character(*,SKG) , intent(in) :: str
3397 logical(LK) :: StrIsAlpha(len(str,IK))
3398 end function
3399#endif
3400
3401 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3402
3403 end interface
3404
3405!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3406
3453 interface getCharUpper
3454
3455 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3456
3457#if SK5_ENABLED
3458 pure elemental module function getCharUpper_SK5(chr) result(chrUpper)
3459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3460 !DEC$ ATTRIBUTES DLLEXPORT :: getCharUpper_SK5
3461#endif
3462 use pm_kind, only: SKG => SK5
3463 character(1,SKG) , intent(in) :: chr
3464 character(1,SKG) :: chrUpper
3465 end function
3466#endif
3467
3468#if SK4_ENABLED
3469 pure elemental module function getCharUpper_SK4(chr) result(chrUpper)
3470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3471 !DEC$ ATTRIBUTES DLLEXPORT :: getCharUpper_SK4
3472#endif
3473 use pm_kind, only: SKG => SK4
3474 character(1,SKG) , intent(in) :: chr
3475 character(1,SKG) :: chrUpper
3476 end function
3477#endif
3478
3479#if SK3_ENABLED
3480 pure elemental module function getCharUpper_SK3(chr) result(chrUpper)
3481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3482 !DEC$ ATTRIBUTES DLLEXPORT :: getCharUpper_SK3
3483#endif
3484 use pm_kind, only: SKG => SK3
3485 character(1,SKG) , intent(in) :: chr
3486 character(1,SKG) :: chrUpper
3487 end function
3488#endif
3489
3490#if SK2_ENABLED
3491 pure elemental module function getCharUpper_SK2(chr) result(chrUpper)
3492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3493 !DEC$ ATTRIBUTES DLLEXPORT :: getCharUpper_SK2
3494#endif
3495 use pm_kind, only: SKG => SK2
3496 character(1,SKG) , intent(in) :: chr
3497 character(1,SKG) :: chrUpper
3498 end function
3499#endif
3500
3501#if SK1_ENABLED
3502 pure elemental module function getCharUpper_SK1(chr) result(chrUpper)
3503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3504 !DEC$ ATTRIBUTES DLLEXPORT :: getCharUpper_SK1
3505#endif
3506 use pm_kind, only: SKG => SK1
3507 character(1,SKG) , intent(in) :: chr
3508 character(1,SKG) :: chrUpper
3509 end function
3510#endif
3511
3512 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3513
3514 end interface
3515
3516!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3517
3560 interface setCharUpper
3561
3562 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3563
3564#if SK5_ENABLED
3565 pure elemental module subroutine setCharUpper_SK5(chr)
3566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3567 !DEC$ ATTRIBUTES DLLEXPORT :: setCharUpper_SK5
3568#endif
3569 use pm_kind, only: SKG => SK5
3570 character(1,SKG) , intent(inout) :: chr
3571 end subroutine
3572#endif
3573
3574#if SK4_ENABLED
3575 pure elemental module subroutine setCharUpper_SK4(chr)
3576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3577 !DEC$ ATTRIBUTES DLLEXPORT :: setCharUpper_SK4
3578#endif
3579 use pm_kind, only: SKG => SK4
3580 character(1,SKG) , intent(inout) :: chr
3581 end subroutine
3582#endif
3583
3584#if SK3_ENABLED
3585 pure elemental module subroutine setCharUpper_SK3(chr)
3586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3587 !DEC$ ATTRIBUTES DLLEXPORT :: setCharUpper_SK3
3588#endif
3589 use pm_kind, only: SKG => SK3
3590 character(1,SKG) , intent(inout) :: chr
3591 end subroutine
3592#endif
3593
3594#if SK2_ENABLED
3595 pure elemental module subroutine setCharUpper_SK2(chr)
3596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3597 !DEC$ ATTRIBUTES DLLEXPORT :: setCharUpper_SK2
3598#endif
3599 use pm_kind, only: SKG => SK2
3600 character(1,SKG) , intent(inout) :: chr
3601 end subroutine
3602#endif
3603
3604#if SK1_ENABLED
3605 pure elemental module subroutine setCharUpper_SK1(chr)
3606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3607 !DEC$ ATTRIBUTES DLLEXPORT :: setCharUpper_SK1
3608#endif
3609 use pm_kind, only: SKG => SK1
3610 character(1,SKG) , intent(inout) :: chr
3611 end subroutine
3612#endif
3613
3614 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3615
3616 end interface
3617
3618!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3619
3666 interface getCharLower
3667
3668 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3669
3670#if SK5_ENABLED
3671 pure elemental module function getCharLower_SK5(chr) result(chrLower)
3672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3673 !DEC$ ATTRIBUTES DLLEXPORT :: getCharLower_SK5
3674#endif
3675 use pm_kind, only: SKG => SK5
3676 character(1,SKG) , intent(in) :: chr
3677 character(1,SKG) :: chrLower
3678 end function
3679#endif
3680
3681#if SK4_ENABLED
3682 pure elemental module function getCharLower_SK4(chr) result(chrLower)
3683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3684 !DEC$ ATTRIBUTES DLLEXPORT :: getCharLower_SK4
3685#endif
3686 use pm_kind, only: SKG => SK4
3687 character(1,SKG) , intent(in) :: chr
3688 character(1,SKG) :: chrLower
3689 end function
3690#endif
3691
3692#if SK3_ENABLED
3693 pure elemental module function getCharLower_SK3(chr) result(chrLower)
3694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3695 !DEC$ ATTRIBUTES DLLEXPORT :: getCharLower_SK3
3696#endif
3697 use pm_kind, only: SKG => SK3
3698 character(1,SKG) , intent(in) :: chr
3699 character(1,SKG) :: chrLower
3700 end function
3701#endif
3702
3703#if SK2_ENABLED
3704 pure elemental module function getCharLower_SK2(chr) result(chrLower)
3705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3706 !DEC$ ATTRIBUTES DLLEXPORT :: getCharLower_SK2
3707#endif
3708 use pm_kind, only: SKG => SK2
3709 character(1,SKG) , intent(in) :: chr
3710 character(1,SKG) :: chrLower
3711 end function
3712#endif
3713
3714#if SK1_ENABLED
3715 pure elemental module function getCharLower_SK1(chr) result(chrLower)
3716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3717 !DEC$ ATTRIBUTES DLLEXPORT :: getCharLower_SK1
3718#endif
3719 use pm_kind, only: SKG => SK1
3720 character(1,SKG) , intent(in) :: chr
3721 character(1,SKG) :: chrLower
3722 end function
3723#endif
3724
3725 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3726
3727 end interface
3728
3729!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3730
3773 interface setCharLower
3774
3775 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3776
3777#if SK5_ENABLED
3778 pure elemental module subroutine setCharLower_SK5(chr)
3779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3780 !DEC$ ATTRIBUTES DLLEXPORT :: setCharLower_SK5
3781#endif
3782 use pm_kind, only: SKG => SK5
3783 character(1,SKG) , intent(inout) :: chr
3784 end subroutine
3785#endif
3786
3787#if SK4_ENABLED
3788 pure elemental module subroutine setCharLower_SK4(chr)
3789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3790 !DEC$ ATTRIBUTES DLLEXPORT :: setCharLower_SK4
3791#endif
3792 use pm_kind, only: SKG => SK4
3793 character(1,SKG) , intent(inout) :: chr
3794 end subroutine
3795#endif
3796
3797#if SK3_ENABLED
3798 pure elemental module subroutine setCharLower_SK3(chr)
3799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3800 !DEC$ ATTRIBUTES DLLEXPORT :: setCharLower_SK3
3801#endif
3802 use pm_kind, only: SKG => SK3
3803 character(1,SKG) , intent(inout) :: chr
3804 end subroutine
3805#endif
3806
3807#if SK2_ENABLED
3808 pure elemental module subroutine setCharLower_SK2(chr)
3809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3810 !DEC$ ATTRIBUTES DLLEXPORT :: setCharLower_SK2
3811#endif
3812 use pm_kind, only: SKG => SK2
3813 character(1,SKG) , intent(inout) :: chr
3814 end subroutine
3815#endif
3816
3817#if SK1_ENABLED
3818 pure elemental module subroutine setCharLower_SK1(chr)
3819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3820 !DEC$ ATTRIBUTES DLLEXPORT :: setCharLower_SK1
3821#endif
3822 use pm_kind, only: SKG => SK1
3823 character(1,SKG) , intent(inout) :: chr
3824 end subroutine
3825#endif
3826
3827 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3828
3829 end interface
3830
3831!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3832
3879 interface getStrUpper
3880
3881 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3882
3883#if SK5_ENABLED
3884 pure elemental module function getStrUpper_SK5(str) result(strUpper)
3885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3886 !DEC$ ATTRIBUTES DLLEXPORT :: getStrUpper_SK5
3887#endif
3888 use pm_kind, only: SKG => SK5
3889 character(*,SKG) , intent(in) :: str
3890 character(len(str,IK),SKG) :: strUpper
3891 end function
3892#endif
3893
3894#if SK4_ENABLED
3895 pure elemental module function getStrUpper_SK4(str) result(strUpper)
3896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3897 !DEC$ ATTRIBUTES DLLEXPORT :: getStrUpper_SK4
3898#endif
3899 use pm_kind, only: SKG => SK4
3900 character(*,SKG) , intent(in) :: str
3901 character(len(str,IK),SKG) :: strUpper
3902 end function
3903#endif
3904
3905#if SK3_ENABLED
3906 pure elemental module function getStrUpper_SK3(str) result(strUpper)
3907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3908 !DEC$ ATTRIBUTES DLLEXPORT :: getStrUpper_SK3
3909#endif
3910 use pm_kind, only: SKG => SK3
3911 character(*,SKG) , intent(in) :: str
3912 character(len(str,IK),SKG) :: strUpper
3913 end function
3914#endif
3915
3916#if SK2_ENABLED
3917 pure elemental module function getStrUpper_SK2(str) result(strUpper)
3918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3919 !DEC$ ATTRIBUTES DLLEXPORT :: getStrUpper_SK2
3920#endif
3921 use pm_kind, only: SKG => SK2
3922 character(*,SKG) , intent(in) :: str
3923 character(len(str,IK),SKG) :: strUpper
3924 end function
3925#endif
3926
3927#if SK1_ENABLED
3928 pure elemental module function getStrUpper_SK1(str) result(strUpper)
3929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3930 !DEC$ ATTRIBUTES DLLEXPORT :: getStrUpper_SK1
3931#endif
3932 use pm_kind, only: SKG => SK1
3933 character(*,SKG) , intent(in) :: str
3934 character(len(str,IK),SKG) :: strUpper
3935 end function
3936#endif
3937
3938 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3939
3940 end interface
3941
3942!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3943
3986 interface setStrUpper
3987
3988 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3989
3990#if SK5_ENABLED
3991 pure elemental module subroutine setStrUpper_SK5(str)
3992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3993 !DEC$ ATTRIBUTES DLLEXPORT :: setStrUpper_SK5
3994#endif
3995 use pm_kind, only: SKG => SK5
3996 character(*,SKG) , intent(inout) :: str
3997 end subroutine
3998#endif
3999
4000#if SK4_ENABLED
4001 pure elemental module subroutine setStrUpper_SK4(str)
4002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4003 !DEC$ ATTRIBUTES DLLEXPORT :: setStrUpper_SK4
4004#endif
4005 use pm_kind, only: SKG => SK4
4006 character(*,SKG) , intent(inout) :: str
4007 end subroutine
4008#endif
4009
4010#if SK3_ENABLED
4011 pure elemental module subroutine setStrUpper_SK3(str)
4012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4013 !DEC$ ATTRIBUTES DLLEXPORT :: setStrUpper_SK3
4014#endif
4015 use pm_kind, only: SKG => SK3
4016 character(*,SKG) , intent(inout) :: str
4017 end subroutine
4018#endif
4019
4020#if SK2_ENABLED
4021 pure elemental module subroutine setStrUpper_SK2(str)
4022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4023 !DEC$ ATTRIBUTES DLLEXPORT :: setStrUpper_SK2
4024#endif
4025 use pm_kind, only: SKG => SK2
4026 character(*,SKG) , intent(inout) :: str
4027 end subroutine
4028#endif
4029
4030#if SK1_ENABLED
4031 pure elemental module subroutine setStrUpper_SK1(str)
4032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4033 !DEC$ ATTRIBUTES DLLEXPORT :: setStrUpper_SK1
4034#endif
4035 use pm_kind, only: SKG => SK1
4036 character(*,SKG) , intent(inout) :: str
4037 end subroutine
4038#endif
4039
4040 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4041
4042 end interface
4043
4044!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4045
4092 interface getStrLower
4093
4094 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4095
4096#if SK5_ENABLED
4097 pure elemental module function getStrLower_SK5(str) result(strLower)
4098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4099 !DEC$ ATTRIBUTES DLLEXPORT :: getStrLower_SK5
4100#endif
4101 use pm_kind, only: SKG => SK5
4102 character(*,SKG) , intent(in) :: str
4103 character(len(str,IK),SKG) :: strLower
4104 end function
4105#endif
4106
4107#if SK4_ENABLED
4108 pure elemental module function getStrLower_SK4(str) result(strLower)
4109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4110 !DEC$ ATTRIBUTES DLLEXPORT :: getStrLower_SK4
4111#endif
4112 use pm_kind, only: SKG => SK4
4113 character(*,SKG) , intent(in) :: str
4114 character(len(str,IK),SKG) :: strLower
4115 end function
4116#endif
4117
4118#if SK3_ENABLED
4119 pure elemental module function getStrLower_SK3(str) result(strLower)
4120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4121 !DEC$ ATTRIBUTES DLLEXPORT :: getStrLower_SK3
4122#endif
4123 use pm_kind, only: SKG => SK3
4124 character(*,SKG) , intent(in) :: str
4125 character(len(str,IK),SKG) :: strLower
4126 end function
4127#endif
4128
4129#if SK2_ENABLED
4130 pure elemental module function getStrLower_SK2(str) result(strLower)
4131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4132 !DEC$ ATTRIBUTES DLLEXPORT :: getStrLower_SK2
4133#endif
4134 use pm_kind, only: SKG => SK2
4135 character(*,SKG) , intent(in) :: str
4136 character(len(str,IK),SKG) :: strLower
4137 end function
4138#endif
4139
4140#if SK1_ENABLED
4141 pure elemental module function getStrLower_SK1(str) result(strLower)
4142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4143 !DEC$ ATTRIBUTES DLLEXPORT :: getStrLower_SK1
4144#endif
4145 use pm_kind, only: SKG => SK1
4146 character(*,SKG) , intent(in) :: str
4147 character(len(str,IK),SKG) :: strLower
4148 end function
4149#endif
4150
4151 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4152
4153 end interface
4154
4155!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4156
4199 interface setStrLower
4200
4201 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4202
4203#if SK5_ENABLED
4204 pure elemental module subroutine setStrLower_SK5(str)
4205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4206 !DEC$ ATTRIBUTES DLLEXPORT :: setStrLower_SK5
4207#endif
4208 use pm_kind, only: SKG => SK5
4209 character(*,SKG) , intent(inout) :: str
4210 end subroutine
4211#endif
4212
4213#if SK4_ENABLED
4214 pure elemental module subroutine setStrLower_SK4(str)
4215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4216 !DEC$ ATTRIBUTES DLLEXPORT :: setStrLower_SK4
4217#endif
4218 use pm_kind, only: SKG => SK4
4219 character(*,SKG) , intent(inout) :: str
4220 end subroutine
4221#endif
4222
4223#if SK3_ENABLED
4224 pure elemental module subroutine setStrLower_SK3(str)
4225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4226 !DEC$ ATTRIBUTES DLLEXPORT :: setStrLower_SK3
4227#endif
4228 use pm_kind, only: SKG => SK3
4229 character(*,SKG) , intent(inout) :: str
4230 end subroutine
4231#endif
4232
4233#if SK2_ENABLED
4234 pure elemental module subroutine setStrLower_SK2(str)
4235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4236 !DEC$ ATTRIBUTES DLLEXPORT :: setStrLower_SK2
4237#endif
4238 use pm_kind, only: SKG => SK2
4239 character(*,SKG) , intent(inout) :: str
4240 end subroutine
4241#endif
4242
4243#if SK1_ENABLED
4244 pure elemental module subroutine setStrLower_SK1(str)
4245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4246 !DEC$ ATTRIBUTES DLLEXPORT :: setStrLower_SK1
4247#endif
4248 use pm_kind, only: SKG => SK1
4249 character(*,SKG) , intent(inout) :: str
4250 end subroutine
4251#endif
4252
4253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4254
4255 end interface
4256
4257!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4258
4311 interface getStrQuoted
4312
4313 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4314
4315#if SK5_ENABLED
4316 pure module function getStrQuoted_SK5(str) result(strQuoted)
4317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4318 !DEC$ ATTRIBUTES DLLEXPORT :: getStrQuoted_SK5
4319#endif
4320 use pm_kind, only: SKG => SK5
4321 character(*,SKG) , intent(in) :: str
4322 character(:,SKG) , allocatable :: strQuoted
4323 end function
4324#endif
4325
4326#if SK4_ENABLED
4327 pure module function getStrQuoted_SK4(str) result(strQuoted)
4328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4329 !DEC$ ATTRIBUTES DLLEXPORT :: getStrQuoted_SK4
4330#endif
4331 use pm_kind, only: SKG => SK4
4332 character(*,SKG) , intent(in) :: str
4333 character(:,SKG) , allocatable :: strQuoted
4334 end function
4335#endif
4336
4337#if SK3_ENABLED
4338 pure module function getStrQuoted_SK3(str) result(strQuoted)
4339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4340 !DEC$ ATTRIBUTES DLLEXPORT :: getStrQuoted_SK3
4341#endif
4342 use pm_kind, only: SKG => SK3
4343 character(*,SKG) , intent(in) :: str
4344 character(:,SKG) , allocatable :: strQuoted
4345 end function
4346#endif
4347
4348#if SK2_ENABLED
4349 pure module function getStrQuoted_SK2(str) result(strQuoted)
4350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4351 !DEC$ ATTRIBUTES DLLEXPORT :: getStrQuoted_SK2
4352#endif
4353 use pm_kind, only: SKG => SK2
4354 character(*,SKG) , intent(in) :: str
4355 character(:,SKG) , allocatable :: strQuoted
4356 end function
4357#endif
4358
4359#if SK1_ENABLED
4360 pure module function getStrQuoted_SK1(str) result(strQuoted)
4361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4362 !DEC$ ATTRIBUTES DLLEXPORT :: getStrQuoted_SK1
4363#endif
4364 use pm_kind, only: SKG => SK1
4365 character(*,SKG) , intent(in) :: str
4366 character(:,SKG) , allocatable :: strQuoted
4367 end function
4368#endif
4369
4370 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4371
4372 end interface
4373
4374!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4375
4425 interface setStrQuoted
4426
4427 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4428
4429#if SK5_ENABLED
4430 pure module subroutine setStrQuoted_SK5(strQuoted, str)
4431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4432 !DEC$ ATTRIBUTES DLLEXPORT :: setStrQuoted_SK5
4433#endif
4434 use pm_kind, only: SKG => SK5
4435 character(:,SKG) , intent(out) , allocatable :: strQuoted
4436 character(*,SKG) , intent(in) :: str
4437 end subroutine
4438#endif
4439
4440#if SK4_ENABLED
4441 pure module subroutine setStrQuoted_SK4(strQuoted, str)
4442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4443 !DEC$ ATTRIBUTES DLLEXPORT :: setStrQuoted_SK4
4444#endif
4445 use pm_kind, only: SKG => SK4
4446 character(:,SKG) , intent(out) , allocatable :: strQuoted
4447 character(*,SKG) , intent(in) :: str
4448 end subroutine
4449#endif
4450
4451#if SK3_ENABLED
4452 pure module subroutine setStrQuoted_SK3(strQuoted, str)
4453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4454 !DEC$ ATTRIBUTES DLLEXPORT :: setStrQuoted_SK3
4455#endif
4456 use pm_kind, only: SKG => SK3
4457 character(:,SKG) , intent(out) , allocatable :: strQuoted
4458 character(*,SKG) , intent(in) :: str
4459 end subroutine
4460#endif
4461
4462#if SK2_ENABLED
4463 pure module subroutine setStrQuoted_SK2(strQuoted, str)
4464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4465 !DEC$ ATTRIBUTES DLLEXPORT :: setStrQuoted_SK2
4466#endif
4467 use pm_kind, only: SKG => SK2
4468 character(:,SKG) , intent(out) , allocatable :: strQuoted
4469 character(*,SKG) , intent(in) :: str
4470 end subroutine
4471#endif
4472
4473#if SK1_ENABLED
4474 pure module subroutine setStrQuoted_SK1(strQuoted, str)
4475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4476 !DEC$ ATTRIBUTES DLLEXPORT :: setStrQuoted_SK1
4477#endif
4478 use pm_kind, only: SKG => SK1
4479 character(:,SKG) , intent(out) , allocatable :: strQuoted
4480 character(*,SKG) , intent(in) :: str
4481 end subroutine
4482#endif
4483
4484 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4485
4486 end interface
4487
4488!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4489
4534 interface getAsciiFromEscaped
4535
4536 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4537
4538#if SK5_ENABLED
4539 PURE module function getAsciiFromEscapedNew_SK5(str) result(ascii)
4540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4541 !DEC$ ATTRIBUTES DLLEXPORT :: getAsciiFromEscapedNew_SK5
4542#endif
4543 use pm_kind, only: SKG => SK5
4544 character(*,SKG) , intent(in) :: str
4545 character(:,SKG) , allocatable :: ascii
4546 end function
4547#endif
4548
4549#if SK4_ENABLED
4550 PURE module function getAsciiFromEscapedNew_SK4(str) result(ascii)
4551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4552 !DEC$ ATTRIBUTES DLLEXPORT :: getAsciiFromEscapedNew_SK4
4553#endif
4554 use pm_kind, only: SKG => SK4
4555 character(*,SKG) , intent(in) :: str
4556 character(:,SKG) , allocatable :: ascii
4557 end function
4558#endif
4559
4560#if SK3_ENABLED
4561 PURE module function getAsciiFromEscapedNew_SK3(str) result(ascii)
4562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4563 !DEC$ ATTRIBUTES DLLEXPORT :: getAsciiFromEscapedNew_SK3
4564#endif
4565 use pm_kind, only: SKG => SK3
4566 character(*,SKG) , intent(in) :: str
4567 character(:,SKG) , allocatable :: ascii
4568 end function
4569#endif
4570
4571#if SK2_ENABLED
4572 PURE module function getAsciiFromEscapedNew_SK2(str) result(ascii)
4573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4574 !DEC$ ATTRIBUTES DLLEXPORT :: getAsciiFromEscapedNew_SK2
4575#endif
4576 use pm_kind, only: SKG => SK2
4577 character(*,SKG) , intent(in) :: str
4578 character(:,SKG) , allocatable :: ascii
4579 end function
4580#endif
4581
4582#if SK1_ENABLED
4583 PURE module function getAsciiFromEscapedNew_SK1(str) result(ascii)
4584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4585 !DEC$ ATTRIBUTES DLLEXPORT :: getAsciiFromEscapedNew_SK1
4586#endif
4587 use pm_kind, only: SKG => SK1
4588 character(*,SKG) , intent(in) :: str
4589 character(:,SKG) , allocatable :: ascii
4590 end function
4591#endif
4592
4593 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4594
4595 end interface
4596
4597!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4598
4733 interface setAsciiFromEscaped
4734
4735 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4736
4737#if SK5_ENABLED
4738 PURE module subroutine setAsciiFromEscapedRep_SK5(str, endloc)
4739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4740 !DEC$ ATTRIBUTES DLLEXPORT :: setAsciiFromEscapedRep_SK5
4741#endif
4742 use pm_kind, only: SKG => SK5
4743 character(*,SKG) , intent(inout) :: str
4744 integer(IK) , intent(out) :: endloc
4745 end subroutine
4746#endif
4747
4748#if SK4_ENABLED
4749 PURE module subroutine setAsciiFromEscapedRep_SK4(str, endloc)
4750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4751 !DEC$ ATTRIBUTES DLLEXPORT :: setAsciiFromEscapedRep_SK4
4752#endif
4753 use pm_kind, only: SKG => SK4
4754 character(*,SKG) , intent(inout) :: str
4755 integer(IK) , intent(out) :: endloc
4756 end subroutine
4757#endif
4758
4759#if SK3_ENABLED
4760 PURE module subroutine setAsciiFromEscapedRep_SK3(str, endloc)
4761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4762 !DEC$ ATTRIBUTES DLLEXPORT :: setAsciiFromEscapedRep_SK3
4763#endif
4764 use pm_kind, only: SKG => SK3
4765 character(*,SKG) , intent(inout) :: str
4766 integer(IK) , intent(out) :: endloc
4767 end subroutine
4768#endif
4769
4770#if SK2_ENABLED
4771 PURE module subroutine setAsciiFromEscapedRep_SK2(str, endloc)
4772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4773 !DEC$ ATTRIBUTES DLLEXPORT :: setAsciiFromEscapedRep_SK2
4774#endif
4775 use pm_kind, only: SKG => SK2
4776 character(*,SKG) , intent(inout) :: str
4777 integer(IK) , intent(out) :: endloc
4778 end subroutine
4779#endif
4780
4781#if SK1_ENABLED
4782 PURE module subroutine setAsciiFromEscapedRep_SK1(str, endloc)
4783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4784 !DEC$ ATTRIBUTES DLLEXPORT :: setAsciiFromEscapedRep_SK1
4785#endif
4786 use pm_kind, only: SKG => SK1
4787 character(*,SKG) , intent(inout) :: str
4788 integer(IK) , intent(out) :: endloc
4789 end subroutine
4790#endif
4791
4792 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4793
4794#if SK5_ENABLED
4795 PURE module subroutine setAsciiFromEscapedNew_SK5(str, ascii, endloc)
4796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4797 !DEC$ ATTRIBUTES DLLEXPORT :: setAsciiFromEscapedNew_SK5
4798#endif
4799 use pm_kind, only: SKG => SK5
4800 character(*,SKG) , intent(in) :: str
4801 character(*,SKG) , intent(out) :: ascii
4802 integer(IK) , intent(out) :: endloc
4803 end subroutine
4804#endif
4805
4806#if SK4_ENABLED
4807 PURE module subroutine setAsciiFromEscapedNew_SK4(str, ascii, endloc)
4808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4809 !DEC$ ATTRIBUTES DLLEXPORT :: setAsciiFromEscapedNew_SK4
4810#endif
4811 use pm_kind, only: SKG => SK4
4812 character(*,SKG) , intent(in) :: str
4813 character(*,SKG) , intent(out) :: ascii
4814 integer(IK) , intent(out) :: endloc
4815 end subroutine
4816#endif
4817
4818#if SK3_ENABLED
4819 PURE module subroutine setAsciiFromEscapedNew_SK3(str, ascii, endloc)
4820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4821 !DEC$ ATTRIBUTES DLLEXPORT :: setAsciiFromEscapedNew_SK3
4822#endif
4823 use pm_kind, only: SKG => SK3
4824 character(*,SKG) , intent(in) :: str
4825 character(*,SKG) , intent(out) :: ascii
4826 integer(IK) , intent(out) :: endloc
4827 end subroutine
4828#endif
4829
4830#if SK2_ENABLED
4831 PURE module subroutine setAsciiFromEscapedNew_SK2(str, ascii, endloc)
4832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4833 !DEC$ ATTRIBUTES DLLEXPORT :: setAsciiFromEscapedNew_SK2
4834#endif
4835 use pm_kind, only: SKG => SK2
4836 character(*,SKG) , intent(in) :: str
4837 character(*,SKG) , intent(out) :: ascii
4838 integer(IK) , intent(out) :: endloc
4839 end subroutine
4840#endif
4841
4842#if SK1_ENABLED
4843 PURE module subroutine setAsciiFromEscapedNew_SK1(str, ascii, endloc)
4844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4845 !DEC$ ATTRIBUTES DLLEXPORT :: setAsciiFromEscapedNew_SK1
4846#endif
4847 use pm_kind, only: SKG => SK1
4848 character(*,SKG) , intent(in) :: str
4849 character(*,SKG) , intent(out) :: ascii
4850 integer(IK) , intent(out) :: endloc
4851 end subroutine
4852#endif
4853
4854 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4855
4856 end interface
4857
4858!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4859
4860contains
4861
4862!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4863
4865 impure elemental subroutine setStrAlphaRand(strAlphaRand)
4866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4867 !DEC$ ATTRIBUTES DLLEXPORT :: setStrAlphaRand
4868#endif
4869 use pm_kind, only: SK, IK
4870 character(*, SK), intent(inout) :: strAlphaRand
4871 integer(IK) , parameter :: BOUND_LOWER_CASE_L = ichar("a", kind = IK)
4872 integer(IK) , parameter :: BOUND_UPPER_CASE_L = ichar("z", kind = IK)
4873 integer(IK) , parameter :: BOUND_LOWER_CASE_U = ichar("A", kind = IK)
4874 integer(IK) , parameter :: BOUND_UPPER_CASE_U = ichar("Z", kind = IK)
4875 real :: randUnif, randUnifUL
4876 integer(IK) :: i
4877 do i = 1, len(strAlphaRand, IK)
4878 call random_number(randUnifUL)
4879 call random_number(randUnif)
4880 if (randUnifUL < 0.5) then
4881 strAlphaRand(i:i) = char( BOUND_LOWER_CASE_L + floor(randUnif * (BOUND_UPPER_CASE_L - BOUND_LOWER_CASE_L + 1_IK)) )
4882 else
4883 strAlphaRand(i:i) = char( BOUND_LOWER_CASE_U + floor(randUnif * (BOUND_UPPER_CASE_U - BOUND_LOWER_CASE_U + 1_IK)) )
4884 end if
4885 end do
4886 end subroutine setStrAlphaRand
4888
4889!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4890
4891end module pm_strASCII ! LCOV_EXCL_LINE
pm_strASCII::getAsciiFromEscaped
Generate and return the input C-style escaped string where all instances of C-style escape sequences ...
Definition: pm_strASCII.F90:4534
pm_strASCII::getCharLower
Generate and return the input character where the uppercase English alphabet is converted to lowercas...
Definition: pm_strASCII.F90:3666
pm_strASCII::getCharUpper
Generate and return the input character where the lowercase English alphabet is converted to uppercas...
Definition: pm_strASCII.F90:3453
pm_strASCII::getLocNonSpace
Generate and return the location of the first occurrence of a non-whitespace character in the input s...
Definition: pm_strASCII.F90:404
pm_strASCII::getLocSpace
Generate and return the location of the first occurrence of the whitespace character in the input str...
Definition: pm_strASCII.F90:290
pm_strASCII::getStrLower
Generate and return the input string where the uppercase English alphabets are all converted to lower...
Definition: pm_strASCII.F90:4092
pm_strASCII::getStrQuoted
Generate and return the input string quoted with double-quotation marks where all instances of double...
Definition: pm_strASCII.F90:4311
pm_strASCII::getStrUpper
Generate and return the input string where the lowercase English alphabets are all converted to upper...
Definition: pm_strASCII.F90:3879
pm_strASCII::isCharAlphaNum
Generate and return .true. if the input (single) character is a digit or an uppercase or lowercase En...
Definition: pm_strASCII.F90:2478
pm_strASCII::isCharAlpha
Generate and return .true. if the input (single) character is an uppercase or lowercase English alpha...
Definition: pm_strASCII.F90:2969
pm_strASCII::isCharDigit
Generate and return .true. if the input character of length 1 is a digit as in DIGIT_VEC_SK.
Definition: pm_strASCII.F90:521
pm_strASCII::isCharLower
Generate and return .true. if the input single character contains an lowercase English alphabet ALPHA...
Definition: pm_strASCII.F90:1613
pm_strASCII::isCharUpper
Generate and return .true. if the input single character contains an uppercase English alphabet ALPHA...
Definition: pm_strASCII.F90:1496
pm_strASCII::isStrAlphaAll
Generate and return .true. if the input string is all alphabetic, containing only the English alphabe...
Definition: pm_strASCII.F90:3098
pm_strASCII::isStrAlphaAny
Generate and return .true. if any characters of the input string are alphabetic, that is,...
Definition: pm_strASCII.F90:3226
pm_strASCII::isStrAlphaNumAll
Generate and return .true. if the input string is all alphanumeric, containing only digits or the Eng...
Definition: pm_strASCII.F90:2607
pm_strASCII::isStrAlphaNumAny
Generate and return .true. if any characters of the input string are alphanumeric,...
Definition: pm_strASCII.F90:2735
pm_strASCII::isStrAlphaNum
Generate and return a logical vector whose elements are .true. if and only if the corresponding chara...
Definition: pm_strASCII.F90:2851
pm_strASCII::isStrAlpha
Generate and return a logical vector whose elements are .true. if and only if the corresponding chara...
Definition: pm_strASCII.F90:3342
pm_strASCII::isStrComplex
Generate and return .true. if all characters of the input string collectively represent a complex num...
Definition: pm_strASCII.F90:1141
pm_strASCII::isStrDigitAll
Generate and return .true. if all characters of the input string are numeric (digits as in DIGIT_VEC_...
Definition: pm_strASCII.F90:649
pm_strASCII::isStrDigitAny
Generate and return .true. if any character of the input string is numeric (digits as in DIGIT_VEC_SK...
Definition: pm_strASCII.F90:777
pm_strASCII::isStrDigit
Generate and return a vector of logical values of the same size as the length of the input scalar str...
Definition: pm_strASCII.F90:893
pm_strASCII::isStrInteger
Generate and return .true. if all characters of the input string collectively represent an integer.
Definition: pm_strASCII.F90:1262
pm_strASCII::isStrLowerAll
Generate and return .true. if the input string contains only lowercase English alphabets ALPHA_LOWER_...
Definition: pm_strASCII.F90:2116
pm_strASCII::isStrLowerAny
Generate and return .true. if the input string contains at least one lowercase English alphabet ALPHA...
Definition: pm_strASCII.F90:2244
pm_strASCII::isStrLower
Generate and return a logical vector whose elements are .true. if and only if the corresponding chara...
Definition: pm_strASCII.F90:2360
pm_strASCII::isStrNumber
Generate and return .true. if the input string collectively represents an integer,...
Definition: pm_strASCII.F90:1379
pm_strASCII::isStrReal
Generate and return .true. if all characters of the input string collectively represent a real number...
Definition: pm_strASCII.F90:1020
pm_strASCII::isStrUpperAll
Generate and return .true. if the input string contains only uppercase English alphabets ALPHA_UPPER_...
Definition: pm_strASCII.F90:1741
pm_strASCII::isStrUpperAny
Generate and return .true. if the input string contains at least one uppercase English alphabet ALPHA...
Definition: pm_strASCII.F90:1869
pm_strASCII::isStrUpper
Generate and return a logical vector whose elements are .true. if and only if the corresponding chara...
Definition: pm_strASCII.F90:1987
pm_strASCII::setAsciiFromEscaped
Return the input C-style escaped string where all instances of C-style escape sequences are converted...
Definition: pm_strASCII.F90:4733
pm_strASCII::setCharLower
Replace any uppercase English alphabet in the input character with the corresponding lowercase Englis...
Definition: pm_strASCII.F90:3773
pm_strASCII::setCharUpper
Replace any lowercase English alphabet in the input character with the corresponding uppercase Englis...
Definition: pm_strASCII.F90:3560
pm_strASCII::setStrLower
Replace all uppercase English alphabets in the input string with the corresponding lowercase English ...
Definition: pm_strASCII.F90:4199
pm_strASCII::setStrQuoted
Return the input string quoted with double-quotation marks where all instances of double-quotations w...
Definition: pm_strASCII.F90:4425
pm_strASCII::setStrUpper
Replace all lowercase English alphabets in the input string with the corresponding uppercase English ...
Definition: pm_strASCII.F90:3986
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::SK5
integer, parameter SK5
Definition: pm_kind.F90:326
pm_kind::SK1
integer, parameter SK1
Definition: pm_kind.F90:346
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::SK4
integer, parameter SK4
Definition: pm_kind.F90:331
pm_kind::SK2
integer, parameter SK2
Definition: pm_kind.F90:341
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::SK3
integer, parameter SK3
Definition: pm_kind.F90:336
pm_strASCII
This module contains the uncommon and hardly representable ASCII characters as well as procedures for...
Definition: pm_strASCII.F90:61
pm_strASCII::VT
character(1, SK), parameter VT
The scalar character constant of default kind SK of length 1 representing ASCII character: Vertical T...
Definition: pm_strASCII.F90:94
pm_strASCII::ALPHA_UPPER_STR_SK
character(*, SK), parameter ALPHA_UPPER_STR_SK
The constant scalar of type character of default kind SK containing the ASCII uppercase English lette...
Definition: pm_strASCII.F90:133
pm_strASCII::DC4
character(1, SK), parameter DC4
The scalar character constant of default kind SK of length 1 representing ASCII character: Device Con...
Definition: pm_strASCII.F90:103
pm_strASCII::FS
character(1, SK), parameter FS
The scalar character constant of default kind SK of length 1 representing ASCII character: File Separ...
Definition: pm_strASCII.F90:111
pm_strASCII::REAL_VEC_SK
character(1, SK), dimension(*), parameter REAL_VEC_SK
The constant array of type character of default kind SK containing characters that might be used for ...
Definition: pm_strASCII.F90:221
pm_strASCII::NAK
character(1, SK), parameter NAK
The scalar character constant of default kind SK of length 1 representing ASCII character: Negative A...
Definition: pm_strASCII.F90:104
pm_strASCII::ALPHANUM_STR_SK
character(*, SK), parameter ALPHANUM_STR_SK
The constant scalar of type character of default kind SK containing the English numbers and alphabets...
Definition: pm_strASCII.F90:191
pm_strASCII::DC3
character(1, SK), parameter DC3
The scalar character constant of default kind SK of length 1 representing ASCII character: Device Con...
Definition: pm_strASCII.F90:102
pm_strASCII::FF
character(1, SK), parameter FF
The scalar character constant of default kind SK of length 1 representing ASCII character: Form Feed.
Definition: pm_strASCII.F90:95
pm_strASCII::LF
character(1, SK), parameter LF
The scalar character constant of default kind SK of length 1 representing ASCII character: Line Feed ...
Definition: pm_strASCII.F90:93
pm_strASCII::DC1
character(1, SK), parameter DC1
The scalar character constant of default kind SK of length 1 representing ASCII character: Device Con...
Definition: pm_strASCII.F90:100
pm_strASCII::EM
character(1, SK), parameter EM
The scalar character constant of default kind SK of length 1 representing ASCII character: End of Med...
Definition: pm_strASCII.F90:108
pm_strASCII::DC2
character(1, SK), parameter DC2
The scalar character constant of default kind SK of length 1 representing ASCII character: Device Con...
Definition: pm_strASCII.F90:101
pm_strASCII::ALPHA_STR_SK
character(*, SK), parameter ALPHA_STR_SK
The constant scalar of type character of default kind SK containing the ASCII uppercase and lowercase...
Definition: pm_strASCII.F90:159
pm_strASCII::ALPHA_UPPER_VEC_SK
character(1, SK), dimension(*), parameter ALPHA_UPPER_VEC_SK
The constant array of type character of default kind SK containing the uppercase English letters.
Definition: pm_strASCII.F90:137
pm_strASCII::CRLF
character(2, SK), parameter CRLF
The scalar character constant of default kind SK of length 2 representing ASCII characters Carriage R...
Definition: pm_strASCII.F90:119
pm_strASCII::EOT
character(1, SK), parameter EOT
The scalar character constant of default kind SK of length 1 representing ASCII character: End of Tra...
Definition: pm_strASCII.F90:87
pm_strASCII::HT
character(1, SK), parameter HT
The scalar character constant of default kind SK of length 1 representing ASCII character: Horizontal...
Definition: pm_strASCII.F90:92
pm_strASCII::UPPER_MINUS_LOWER_IK
integer(IK), parameter UPPER_MINUS_LOWER_IK
The constant scalar of type integer of default kind IK representing the distance between A and a in t...
Definition: pm_strASCII.F90:172
pm_strASCII::ETX
character(1, SK), parameter ETX
The scalar character constant of default kind SK of length 1 representing ASCII character: End of Tex...
Definition: pm_strASCII.F90:86
pm_strASCII::ETB
character(1, SK), parameter ETB
The scalar character constant of default kind SK of length 1 representing ASCII character: End of Tra...
Definition: pm_strASCII.F90:106
pm_strASCII::GS
character(1, SK), parameter GS
The scalar character constant of default kind SK of length 1 representing ASCII character: Group Sepa...
Definition: pm_strASCII.F90:112
pm_strASCII::BEL
character(1, SK), parameter BEL
The scalar character constant of default kind SK of length 1 representing ASCII character: Bell (ring...
Definition: pm_strASCII.F90:90
pm_strASCII::BS
character(1, SK), parameter BS
The scalar character constant of default kind SK of length 1 representing ASCII character: Back Space...
Definition: pm_strASCII.F90:91
pm_strASCII::SUB
character(1, SK), parameter SUB
The scalar character constant of default kind SK of length 1 representing ASCII character: Substitute...
Definition: pm_strASCII.F90:109
pm_strASCII::US
character(1, SK), parameter US
The scalar character constant of default kind SK of length 1 representing ASCII character: Unit Separ...
Definition: pm_strASCII.F90:114
pm_strASCII::ALPHA_LOWER_VEC_SK
character(1, SK), dimension(*), parameter ALPHA_LOWER_VEC_SK
The constant array of type character of default kind SK containing the lowercase English letters.
Definition: pm_strASCII.F90:150
pm_strASCII::COMPLEX_VEC_SK
character(1, SK), dimension(*), parameter COMPLEX_VEC_SK
The constant array of type character of default kind SK containing characters that might be used for ...
Definition: pm_strASCII.F90:234
pm_strASCII::NUL
character(1, SK), parameter NUL
The scalar character constant of default kind SK of length 1 representing ASCII character: Null chara...
Definition: pm_strASCII.F90:81
pm_strASCII::INTEGER_STR_SK
character(*, SK), parameter INTEGER_STR_SK
The constant scalar of type character of default kind SK containing characters that might be used for...
Definition: pm_strASCII.F90:204
pm_strASCII::ENQ
character(1, SK), parameter ENQ
The scalar character constant of default kind SK of length 1 representing ASCII character: Enquiry.
Definition: pm_strASCII.F90:88
pm_strASCII::DEL
character(1, SK), parameter DEL
The scalar character constant of default kind SK of length 1 representing ASCII character: Delete.
Definition: pm_strASCII.F90:127
pm_strASCII::ESC
character(1, SK), parameter ESC
The scalar character constant of default kind SK of length 1 representing ASCII character: Escape.
Definition: pm_strASCII.F90:110
pm_strASCII::ALPHA_LOWER_STR_SK
character(*, SK), parameter ALPHA_LOWER_STR_SK
The constant scalar of type character of default kind SK containing the ASCII lowercase English lette...
Definition: pm_strASCII.F90:146
pm_strASCII::CR
character(1, SK), parameter CR
The scalar character constant of default kind SK of length 1 representing ASCII character: Carriage R...
Definition: pm_strASCII.F90:96
pm_strASCII::SO
character(1, SK), parameter SO
The scalar character constant of default kind SK of length 1 representing ASCII character: Shift Out ...
Definition: pm_strASCII.F90:97
pm_strASCII::SOH
character(1, SK), parameter SOH
The scalar character constant of default kind SK of length 1 representing ASCII character: Start of H...
Definition: pm_strASCII.F90:84
pm_strASCII::CAN
character(1, SK), parameter CAN
The scalar character constant of default kind SK of length 1 representing ASCII character: Cancel.
Definition: pm_strASCII.F90:107
pm_strASCII::ALPHA_VEC_SK
character(1, SK), dimension(*), parameter ALPHA_VEC_SK
The constant array of type character of default kind SK containing the ASCII uppercase and lowercase ...
Definition: pm_strASCII.F90:163
pm_strASCII::ACK
character(1, SK), parameter ACK
The scalar character constant of default kind SK of length 1 representing ASCII character: Acknowledg...
Definition: pm_strASCII.F90:89
pm_strASCII::DLE
character(1, SK), parameter DLE
The scalar character constant of default kind SK of length 1 representing ASCII character: Data Line ...
Definition: pm_strASCII.F90:99
pm_strASCII::SI
character(1, SK), parameter SI
The scalar character constant of default kind SK of length 1 representing ASCII character: Shift In /...
Definition: pm_strASCII.F90:98
pm_strASCII::DIGIT_STR_SK
character(*, SK), parameter DIGIT_STR_SK
The constant scalar of type character of default kind SK containing the English numbers.
Definition: pm_strASCII.F90:178
pm_strASCII::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_strASCII.F90:71
pm_strASCII::DIGIT_VEC_SK
character(1, SK), dimension(*), parameter DIGIT_VEC_SK
The constant array of type character of default kind SK containing the English numbers.
Definition: pm_strASCII.F90:182
pm_strASCII::SPC
character(1, SK), parameter SPC
The scalar character constant of default kind SK of length 1 representing ASCII character: Space.
Definition: pm_strASCII.F90:126
pm_strASCII::REAL_STR_SK
character(*, SK), parameter REAL_STR_SK
The constant scalar of type character of default kind SK containing characters that might be used for...
Definition: pm_strASCII.F90:217
pm_strASCII::SYN
character(1, SK), parameter SYN
The scalar character constant of default kind SK of length 1 representing ASCII character: Synchronou...
Definition: pm_strASCII.F90:105
pm_strASCII::INTEGER_VEC_SK
character(1, SK), dimension(*), parameter INTEGER_VEC_SK
The constant array of type character of default kind SK containing characters that might be used for ...
Definition: pm_strASCII.F90:208
pm_strASCII::MAX_ASCII_CODE
integer(IK), parameter MAX_ASCII_CODE
The scalar integer constant of default kind IK representing the maximum standard ASCII code.
Definition: pm_strASCII.F90:75
pm_strASCII::RS
character(1, SK), parameter RS
The scalar character constant of default kind SK of length 1 representing ASCII character: Record Sep...
Definition: pm_strASCII.F90:113
pm_strASCII::COMPLEX_STR_SK
character(*, SK), parameter COMPLEX_STR_SK
The constant scalar of type character of default kind SK containing characters that might be used for...
Definition: pm_strASCII.F90:230
pm_strASCII::ALPHANUM_VEC_SK
character(1, SK), dimension(*), parameter ALPHANUM_VEC_SK
The constant array of type character of default kind SK containing the English numbers and alphabets.
Definition: pm_strASCII.F90:195
pm_strASCII::STX
character(1, SK), parameter STX
The scalar character constant of default kind SK of length 1 representing ASCII character: Start of T...
Definition: pm_strASCII.F90:85