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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
Generate and return the input C-style escaped string where all instances of C-style escape sequences ...
Generate and return the input character where the uppercase English alphabet is converted to lowercas...
Generate and return the input character where the lowercase English alphabet is converted to uppercas...
Generate and return the location of the first occurrence of a non-whitespace character in the input s...
Generate and return the location of the first occurrence of the whitespace character in the input str...
Generate and return the input string where the uppercase English alphabets are all converted to lower...
Generate and return the input string quoted with double-quotation marks where all instances of double...
Generate and return the input string where the lowercase English alphabets are all converted to upper...
Generate and return .true. if the input (single) character is a digit or an uppercase or lowercase En...
Generate and return .true. if the input (single) character is an uppercase or lowercase English alpha...
Generate and return .true. if the input character of length 1 is a digit as in DIGIT_VEC_SK.
Generate and return .true. if the input single character contains an lowercase English alphabet ALPHA...
Generate and return .true. if the input single character contains an uppercase English alphabet ALPHA...
Generate and return .true. if the input string is all alphabetic, containing only the English alphabe...
Generate and return .true. if any characters of the input string are alphabetic, that is,...
Generate and return .true. if the input string is all alphanumeric, containing only digits or the Eng...
Generate and return .true. if any characters of the input string are alphanumeric,...
Generate and return a logical vector whose elements are .true. if and only if the corresponding chara...
Generate and return a logical vector whose elements are .true. if and only if the corresponding chara...
Generate and return .true. if all characters of the input string collectively represent a complex num...
Generate and return .true. if all characters of the input string are numeric (digits as in DIGIT_VEC_...
Generate and return .true. if any character of the input string is numeric (digits as in DIGIT_VEC_SK...
Generate and return a vector of logical values of the same size as the length of the input scalar str...
Generate and return .true. if all characters of the input string collectively represent an integer.
Generate and return .true. if the input string contains only lowercase English alphabets ALPHA_LOWER_...
Generate and return .true. if the input string contains at least one lowercase English alphabet ALPHA...
Generate and return a logical vector whose elements are .true. if and only if the corresponding chara...
Generate and return .true. if the input string collectively represents an integer,...
Generate and return .true. if all characters of the input string collectively represent a real number...
Generate and return .true. if the input string contains only uppercase English alphabets ALPHA_UPPER_...
Generate and return .true. if the input string contains at least one uppercase English alphabet ALPHA...
Generate and return a logical vector whose elements are .true. if and only if the corresponding chara...
Return the input C-style escaped string where all instances of C-style escape sequences are converted...
Replace any uppercase English alphabet in the input character with the corresponding lowercase Englis...
Replace any lowercase English alphabet in the input character with the corresponding uppercase Englis...
Replace all uppercase English alphabets in the input string with the corresponding lowercase English ...
Return the input string quoted with double-quotation marks where all instances of double-quotations w...
Replace all lowercase English alphabets in the input string with the corresponding uppercase English ...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter SK5
Definition: pm_kind.F90:326
integer, parameter SK1
Definition: pm_kind.F90:346
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter SK4
Definition: pm_kind.F90:331
integer, parameter SK2
Definition: pm_kind.F90:341
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
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
integer, parameter SK3
Definition: pm_kind.F90:336
This module contains the uncommon and hardly representable ASCII characters as well as procedures for...
Definition: pm_strASCII.F90:61
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
character(*, SK), parameter ALPHA_UPPER_STR_SK
The constant scalar of type character of default kind SK containing the ASCII uppercase English lette...
character(1, SK), parameter DC4
The scalar character constant of default kind SK of length 1 representing ASCII character: Device Con...
character(1, SK), parameter FS
The scalar character constant of default kind SK of length 1 representing ASCII character: File Separ...
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 ...
character(1, SK), parameter NAK
The scalar character constant of default kind SK of length 1 representing ASCII character: Negative A...
character(*, SK), parameter ALPHANUM_STR_SK
The constant scalar of type character of default kind SK containing the English numbers and alphabets...
character(1, SK), parameter DC3
The scalar character constant of default kind SK of length 1 representing ASCII character: Device Con...
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
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
character(1, SK), parameter DC1
The scalar character constant of default kind SK of length 1 representing ASCII character: Device Con...
character(1, SK), parameter EM
The scalar character constant of default kind SK of length 1 representing ASCII character: End of Med...
character(1, SK), parameter DC2
The scalar character constant of default kind SK of length 1 representing ASCII character: Device Con...
character(*, SK), parameter ALPHA_STR_SK
The constant scalar of type character of default kind SK containing the ASCII uppercase and lowercase...
character(1, SK), dimension(*), parameter ALPHA_UPPER_VEC_SK
The constant array of type character of default kind SK containing the uppercase English letters.
character(2, SK), parameter CRLF
The scalar character constant of default kind SK of length 2 representing ASCII characters Carriage R...
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
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
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...
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
character(1, SK), parameter ETB
The scalar character constant of default kind SK of length 1 representing ASCII character: End of Tra...
character(1, SK), parameter GS
The scalar character constant of default kind SK of length 1 representing ASCII character: Group Sepa...
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
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
character(1, SK), parameter SUB
The scalar character constant of default kind SK of length 1 representing ASCII character: Substitute...
character(1, SK), parameter US
The scalar character constant of default kind SK of length 1 representing ASCII character: Unit Separ...
character(1, SK), dimension(*), parameter ALPHA_LOWER_VEC_SK
The constant array of type character of default kind SK containing the lowercase English letters.
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 ...
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
character(*, SK), parameter INTEGER_STR_SK
The constant scalar of type character of default kind SK containing characters that might be used for...
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
character(1, SK), parameter DEL
The scalar character constant of default kind SK of length 1 representing ASCII character: Delete.
character(1, SK), parameter ESC
The scalar character constant of default kind SK of length 1 representing ASCII character: Escape.
character(*, SK), parameter ALPHA_LOWER_STR_SK
The constant scalar of type character of default kind SK containing the ASCII lowercase English lette...
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
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
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
character(1, SK), parameter CAN
The scalar character constant of default kind SK of length 1 representing ASCII character: Cancel.
character(1, SK), dimension(*), parameter ALPHA_VEC_SK
The constant array of type character of default kind SK containing the ASCII uppercase and lowercase ...
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
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
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
character(*, SK), parameter DIGIT_STR_SK
The constant scalar of type character of default kind SK containing the English numbers.
character(*, SK), parameter MODULE_NAME
Definition: pm_strASCII.F90:71
character(1, SK), dimension(*), parameter DIGIT_VEC_SK
The constant array of type character of default kind SK containing the English numbers.
character(1, SK), parameter SPC
The scalar character constant of default kind SK of length 1 representing ASCII character: Space.
character(*, SK), parameter REAL_STR_SK
The constant scalar of type character of default kind SK containing characters that might be used for...
character(1, SK), parameter SYN
The scalar character constant of default kind SK of length 1 representing ASCII character: Synchronou...
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 ...
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
character(1, SK), parameter RS
The scalar character constant of default kind SK of length 1 representing ASCII character: Record Sep...
character(*, SK), parameter COMPLEX_STR_SK
The constant scalar of type character of default kind SK containing characters that might be used for...
character(1, SK), dimension(*), parameter ALPHANUM_VEC_SK
The constant array of type character of default kind SK containing the English numbers and alphabets.
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