83 character(
*,
SK),
parameter ::
SPACE = SK_
" "
84#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
85 !DIR$ ATTRIBUTES DLLEXPORT ::
SPACE
88 character(
*,
SK),
parameter ::
NLC = new_line(SK_
"a")
89#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
90 !DIR$ ATTRIBUTES DLLEXPORT ::
NLC
94#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
162 interface operator(.alleq.)
167 pure elemental module function alleq_SK5(str1, str2)
result(allEqual)
168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
169 !DEC$ ATTRIBUTES DLLEXPORT :: alleq_SK5
172 character(
*,SKG),
intent(in) :: str1, str2
173 logical(LK) :: allEqual
178 pure elemental module function alleq_SK4(str1, str2)
result(allEqual)
179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
180 !DEC$ ATTRIBUTES DLLEXPORT :: alleq_SK4
183 character(
*,SKG),
intent(in) :: str1, str2
184 logical(LK) :: allEqual
189 pure elemental module function alleq_SK3(str1, str2)
result(allEqual)
190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
191 !DEC$ ATTRIBUTES DLLEXPORT :: alleq_SK3
194 character(
*,SKG),
intent(in) :: str1, str2
195 logical(LK) :: allEqual
200 pure elemental module function alleq_SK2(str1, str2)
result(allEqual)
201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
202 !DEC$ ATTRIBUTES DLLEXPORT :: alleq_SK2
205 character(
*,SKG),
intent(in) :: str1, str2
206 logical(LK) :: allEqual
211 pure elemental module function alleq_SK1(str1, str2)
result(allEqual)
212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
213 !DEC$ ATTRIBUTES DLLEXPORT :: alleq_SK1
216 character(
*,SKG),
intent(in) :: str1, str2
217 logical(LK) :: allEqual
299 pure elemental module function isEndedWith_SK5(str, suffix)
result(endedWith)
300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
301 !DEC$ ATTRIBUTES DLLEXPORT :: isEndedWith_SK5
304 character(
*,SKG) ,
intent(in) :: str, suffix
305 logical(LK) :: endedWith
310 pure elemental module function isEndedWith_SK4(str, suffix)
result(endedWith)
311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
312 !DEC$ ATTRIBUTES DLLEXPORT :: isEndedWith_SK4
315 character(
*,SKG) ,
intent(in) :: str, suffix
316 logical(LK) :: endedWith
321 pure elemental module function isEndedWith_SK3(str, suffix)
result(endedWith)
322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
323 !DEC$ ATTRIBUTES DLLEXPORT :: isEndedWith_SK3
326 character(
*,SKG) ,
intent(in) :: str, suffix
327 logical(LK) :: endedWith
332 pure elemental module function isEndedWith_SK2(str, suffix)
result(endedWith)
333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
334 !DEC$ ATTRIBUTES DLLEXPORT :: isEndedWith_SK2
337 character(
*,SKG) ,
intent(in) :: str, suffix
338 logical(LK) :: endedWith
343 pure elemental module function isEndedWith_SK1(str, suffix)
result(endedWith)
344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
345 !DEC$ ATTRIBUTES DLLEXPORT :: isEndedWith_SK1
348 character(
*,SKG) ,
intent(in) :: str, suffix
349 logical(LK) :: endedWith
358 pure elemental module function isEndedWith_PSSK5(str, suffix)
result(endedWith)
359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
360 !DEC$ ATTRIBUTES DLLEXPORT :: isEndedWith_PSSK5
363 type(css_pdt(SKG)) ,
intent(in) :: str, suffix
364 logical(LK) :: endedWith
369 pure elemental module function isEndedWith_PSSK4(str, suffix)
result(endedWith)
370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
371 !DEC$ ATTRIBUTES DLLEXPORT :: isEndedWith_PSSK4
374 type(css_pdt(SKG)) ,
intent(in) :: str, suffix
375 logical(LK) :: endedWith
380 pure elemental module function isEndedWith_PSSK3(str, suffix)
result(endedWith)
381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
382 !DEC$ ATTRIBUTES DLLEXPORT :: isEndedWith_PSSK3
385 type(css_pdt(SKG)) ,
intent(in) :: str, suffix
386 logical(LK) :: endedWith
391 pure elemental module function isEndedWith_PSSK2(str, suffix)
result(endedWith)
392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
393 !DEC$ ATTRIBUTES DLLEXPORT :: isEndedWith_PSSK2
396 type(css_pdt(SKG)) ,
intent(in) :: str, suffix
397 logical(LK) :: endedWith
402 pure elemental module function isEndedWith_PSSK1(str, suffix)
result(endedWith)
403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
404 !DEC$ ATTRIBUTES DLLEXPORT :: isEndedWith_PSSK1
407 type(css_pdt(SKG)) ,
intent(in) :: str, suffix
408 logical(LK) :: endedWith
417 pure elemental module function isEndedWith_BSSK(str, suffix)
result(endedWith)
418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
419 !DEC$ ATTRIBUTES DLLEXPORT :: isEndedWith_BSSK
422 type(css_type) ,
intent(in) :: str, suffix
423 logical(LK) :: endedWith
498 PURE elemental module function getMinLocNoMask_SK5(str, back)
result(minLoc)
499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
500 !DEC$ ATTRIBUTES DLLEXPORT :: getMinLocNoMask_SK5
503 character(
*,SKG),
intent(in) :: str
504 logical(LK) ,
intent(in),
optional :: back
505 integer(IK) :: minLoc
510 PURE elemental module function getMinLocNoMask_SK4(str, back)
result(minLoc)
511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
512 !DEC$ ATTRIBUTES DLLEXPORT :: getMinLocNoMask_SK4
515 character(
*,SKG),
intent(in) :: str
516 logical(LK) ,
intent(in),
optional :: back
517 integer(IK) :: minLoc
522 PURE elemental module function getMinLocNoMask_SK3(str, back)
result(minLoc)
523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
524 !DEC$ ATTRIBUTES DLLEXPORT :: getMinLocNoMask_SK3
527 character(
*,SKG),
intent(in) :: str
528 logical(LK) ,
intent(in),
optional :: back
529 integer(IK) :: minLoc
534 PURE elemental module function getMinLocNoMask_SK2(str, back)
result(minLoc)
535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
536 !DEC$ ATTRIBUTES DLLEXPORT :: getMinLocNoMask_SK2
539 character(
*,SKG),
intent(in) :: str
540 logical(LK) ,
intent(in),
optional :: back
541 integer(IK) :: minLoc
546 PURE elemental module function getMinLocNoMask_SK1(str, back)
result(minLoc)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: getMinLocNoMask_SK1
551 character(
*,SKG),
intent(in) :: str
552 logical(LK) ,
intent(in),
optional :: back
553 integer(IK) :: minLoc
560 PURE module function getMinLocMasked_SK5(str, mask, back)
result(minLoc)
561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
562 !DEC$ ATTRIBUTES DLLEXPORT :: getMinLocMasked_SK5
565 character(
*,SKG),
intent(in) :: str
566 logical(LK) ,
intent(in),
contiguous :: mask(:)
567 logical(LK) ,
intent(in),
optional :: back
568 integer(IK) :: minLoc
573 PURE module function getMinLocMasked_SK4(str, mask, back)
result(minLoc)
574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
575 !DEC$ ATTRIBUTES DLLEXPORT :: getMinLocMasked_SK4
578 character(
*,SKG),
intent(in) :: str
579 logical(LK) ,
intent(in),
contiguous :: mask(:)
580 logical(LK) ,
intent(in),
optional :: back
581 integer(IK) :: minLoc
586 PURE module function getMinLocMasked_SK3(str, mask, back)
result(minLoc)
587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
588 !DEC$ ATTRIBUTES DLLEXPORT :: getMinLocMasked_SK3
591 character(
*,SKG),
intent(in) :: str
592 logical(LK) ,
intent(in),
contiguous :: mask(:)
593 logical(LK) ,
intent(in),
optional :: back
594 integer(IK) :: minLoc
599 PURE module function getMinLocMasked_SK2(str, mask, back)
result(minLoc)
600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
601 !DEC$ ATTRIBUTES DLLEXPORT :: getMinLocMasked_SK2
604 character(
*,SKG),
intent(in) :: str
605 logical(LK) ,
intent(in),
contiguous :: mask(:)
606 logical(LK) ,
intent(in),
optional :: back
607 integer(IK) :: minLoc
612 PURE module function getMinLocMasked_SK1(str, mask, back)
result(minLoc)
613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
614 !DEC$ ATTRIBUTES DLLEXPORT :: getMinLocMasked_SK1
617 character(
*,SKG),
intent(in) :: str
618 logical(LK) ,
intent(in),
contiguous :: mask(:)
619 logical(LK) ,
intent(in),
optional :: back
620 integer(IK) :: minLoc
696 PURE elemental module function getMaxLocNoMask_SK5(str, back)
result(maxLoc)
697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
698 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxLocNoMask_SK5
701 character(
*,SKG),
intent(in) :: str
702 logical(LK) ,
intent(in),
optional :: back
703 integer(IK) :: maxLoc
708 PURE elemental module function getMaxLocNoMask_SK4(str, back)
result(maxLoc)
709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
710 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxLocNoMask_SK4
713 character(
*,SKG),
intent(in) :: str
714 logical(LK) ,
intent(in),
optional :: back
715 integer(IK) :: maxLoc
720 PURE elemental module function getMaxLocNoMask_SK3(str, back)
result(maxLoc)
721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
722 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxLocNoMask_SK3
725 character(
*,SKG),
intent(in) :: str
726 logical(LK) ,
intent(in),
optional :: back
727 integer(IK) :: maxLoc
732 PURE elemental module function getMaxLocNoMask_SK2(str, back)
result(maxLoc)
733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
734 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxLocNoMask_SK2
737 character(
*,SKG),
intent(in) :: str
738 logical(LK) ,
intent(in),
optional :: back
739 integer(IK) :: maxLoc
744 PURE elemental module function getMaxLocNoMask_SK1(str, back)
result(maxLoc)
745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
746 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxLocNoMask_SK1
749 character(
*,SKG),
intent(in) :: str
750 logical(LK) ,
intent(in),
optional :: back
751 integer(IK) :: maxLoc
758 PURE module function getMaxLocMasked_SK5(str, mask, back)
result(maxLoc)
759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
760 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxLocMasked_SK5
763 character(
*,SKG),
intent(in) :: str
764 logical(LK) ,
intent(in),
contiguous :: mask(:)
765 logical(LK) ,
intent(in),
optional :: back
766 integer(IK) :: maxLoc
771 PURE module function getMaxLocMasked_SK4(str, mask, back)
result(maxLoc)
772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
773 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxLocMasked_SK4
776 character(
*,SKG),
intent(in) :: str
777 logical(LK) ,
intent(in),
contiguous :: mask(:)
778 logical(LK) ,
intent(in),
optional :: back
779 integer(IK) :: maxLoc
784 PURE module function getMaxLocMasked_SK3(str, mask, back)
result(maxLoc)
785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
786 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxLocMasked_SK3
789 character(
*,SKG),
intent(in) :: str
790 logical(LK) ,
intent(in),
contiguous :: mask(:)
791 logical(LK) ,
intent(in),
optional :: back
792 integer(IK) :: maxLoc
797 PURE module function getMaxLocMasked_SK2(str, mask, back)
result(maxLoc)
798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
799 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxLocMasked_SK2
802 character(
*,SKG),
intent(in) :: str
803 logical(LK) ,
intent(in),
contiguous :: mask(:)
804 logical(LK) ,
intent(in),
optional :: back
805 integer(IK) :: maxLoc
810 PURE module function getMaxLocMasked_SK1(str, mask, back)
result(maxLoc)
811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
812 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxLocMasked_SK1
815 character(
*,SKG),
intent(in) :: str
816 logical(LK) ,
intent(in),
contiguous :: mask(:)
817 logical(LK) ,
intent(in),
optional :: back
818 integer(IK) :: maxLoc
894 PURE elemental module function getMinValNoMask_SK5(str)
result(minVal)
895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
896 !DEC$ ATTRIBUTES DLLEXPORT :: getMinValNoMask_SK5
899 character(
*,SKG),
intent(in) :: str
900 character(
1,SKG) :: minVal
905 PURE elemental module function getMinValNoMask_SK4(str)
result(minVal)
906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
907 !DEC$ ATTRIBUTES DLLEXPORT :: getMinValNoMask_SK4
910 character(
*,SKG),
intent(in) :: str
911 character(
1,SKG) :: minVal
916 PURE elemental module function getMinValNoMask_SK3(str)
result(minVal)
917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
918 !DEC$ ATTRIBUTES DLLEXPORT :: getMinValNoMask_SK3
921 character(
*,SKG),
intent(in) :: str
922 character(
1,SKG) :: minVal
927 PURE elemental module function getMinValNoMask_SK2(str)
result(minVal)
928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
929 !DEC$ ATTRIBUTES DLLEXPORT :: getMinValNoMask_SK2
932 character(
*,SKG),
intent(in) :: str
933 character(
1,SKG) :: minVal
938 PURE elemental module function getMinValNoMask_SK1(str)
result(minVal)
939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
940 !DEC$ ATTRIBUTES DLLEXPORT :: getMinValNoMask_SK1
943 character(
*,SKG),
intent(in) :: str
944 character(
1,SKG) :: minVal
951 PURE module function getMinValMasked_SK5(str, mask)
result(minVal)
952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
953 !DEC$ ATTRIBUTES DLLEXPORT :: getMinValMasked_SK5
956 character(
*,SKG),
intent(in) :: str
957 logical(LK) ,
intent(in),
contiguous :: mask(:)
958 character(
1,SKG) :: minVal
963 PURE module function getMinValMasked_SK4(str, mask)
result(minVal)
964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
965 !DEC$ ATTRIBUTES DLLEXPORT :: getMinValMasked_SK4
968 character(
*,SKG),
intent(in) :: str
969 logical(LK) ,
intent(in),
contiguous :: mask(:)
970 character(
1,SKG) :: minVal
975 PURE module function getMinValMasked_SK3(str, mask)
result(minVal)
976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
977 !DEC$ ATTRIBUTES DLLEXPORT :: getMinValMasked_SK3
980 character(
*,SKG),
intent(in) :: str
981 logical(LK) ,
intent(in),
contiguous :: mask(:)
982 character(
1,SKG) :: minVal
987 PURE module function getMinValMasked_SK2(str, mask)
result(minVal)
988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
989 !DEC$ ATTRIBUTES DLLEXPORT :: getMinValMasked_SK2
992 character(
*,SKG),
intent(in) :: str
993 logical(LK) ,
intent(in),
contiguous :: mask(:)
994 character(
1,SKG) :: minVal
999 PURE module function getMinValMasked_SK1(str, mask)
result(minVal)
1000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1001 !DEC$ ATTRIBUTES DLLEXPORT :: getMinValMasked_SK1
1004 character(
*,SKG),
intent(in) :: str
1005 logical(LK) ,
intent(in),
contiguous :: mask(:)
1006 character(
1,SKG) :: minVal
1082 PURE elemental module function getMaxValNoMask_SK5(str)
result(maxVal)
1083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1084 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxValNoMask_SK5
1087 character(
*,SKG),
intent(in) :: str
1088 character(
1,SKG) :: maxVal
1093 PURE elemental module function getMaxValNoMask_SK4(str)
result(maxVal)
1094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1095 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxValNoMask_SK4
1098 character(
*,SKG),
intent(in) :: str
1099 character(
1,SKG) :: maxVal
1104 PURE elemental module function getMaxValNoMask_SK3(str)
result(maxVal)
1105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1106 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxValNoMask_SK3
1109 character(
*,SKG),
intent(in) :: str
1110 character(
1,SKG) :: maxVal
1115 PURE elemental module function getMaxValNoMask_SK2(str)
result(maxVal)
1116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1117 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxValNoMask_SK2
1120 character(
*,SKG),
intent(in) :: str
1121 character(
1,SKG) :: maxVal
1126 PURE elemental module function getMaxValNoMask_SK1(str)
result(maxVal)
1127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1128 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxValNoMask_SK1
1131 character(
*,SKG),
intent(in) :: str
1132 character(
1,SKG) :: maxVal
1139 PURE module function getMaxValMasked_SK5(str, mask)
result(maxVal)
1140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1141 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxValMasked_SK5
1144 character(
*,SKG),
intent(in) :: str
1145 logical(LK) ,
intent(in),
contiguous :: mask(:)
1146 character(
1,SKG) :: maxVal
1151 PURE module function getMaxValMasked_SK4(str, mask)
result(maxVal)
1152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1153 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxValMasked_SK4
1156 character(
*,SKG),
intent(in) :: str
1157 logical(LK) ,
intent(in),
contiguous :: mask(:)
1158 character(
1,SKG) :: maxVal
1163 PURE module function getMaxValMasked_SK3(str, mask)
result(maxVal)
1164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1165 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxValMasked_SK3
1168 character(
*,SKG),
intent(in) :: str
1169 logical(LK) ,
intent(in),
contiguous :: mask(:)
1170 character(
1,SKG) :: maxVal
1175 PURE module function getMaxValMasked_SK2(str, mask)
result(maxVal)
1176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1177 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxValMasked_SK2
1180 character(
*,SKG),
intent(in) :: str
1181 logical(LK) ,
intent(in),
contiguous :: mask(:)
1182 character(
1,SKG) :: maxVal
1187 PURE module function getMaxValMasked_SK1(str, mask)
result(maxVal)
1188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1189 !DEC$ ATTRIBUTES DLLEXPORT :: getMaxValMasked_SK1
1192 character(
*,SKG),
intent(in) :: str
1193 logical(LK) ,
intent(in),
contiguous :: mask(:)
1194 character(
1,SKG) :: maxVal
1247 pure module function getCharVec_SK5(str)
result(charVec)
1248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1249 !DEC$ ATTRIBUTES DLLEXPORT :: getCharVec_SK5
1252 character(
*,SKG),
intent(in) :: str
1253 character(
1,SKG) :: charVec(
len(str, IK))
1258 pure module function getCharVec_SK4(str)
result(charVec)
1259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1260 !DEC$ ATTRIBUTES DLLEXPORT :: getCharVec_SK4
1263 character(
*,SKG),
intent(in) :: str
1264 character(
1,SKG) :: charVec(
len(str, IK))
1269 pure module function getCharVec_SK3(str)
result(charVec)
1270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1271 !DEC$ ATTRIBUTES DLLEXPORT :: getCharVec_SK3
1274 character(
*,SKG),
intent(in) :: str
1275 character(
1,SKG) :: charVec(
len(str, IK))
1280 pure module function getCharVec_SK2(str)
result(charVec)
1281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1282 !DEC$ ATTRIBUTES DLLEXPORT :: getCharVec_SK2
1285 character(
*,SKG),
intent(in) :: str
1286 character(
1,SKG) :: charVec(
len(str, IK))
1291 pure module function getCharVec_SK1(str)
result(charVec)
1292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1293 !DEC$ ATTRIBUTES DLLEXPORT :: getCharVec_SK1
1296 character(
*,SKG),
intent(in) :: str
1297 character(
1,SKG) :: charVec(
len(str, IK))
1352 pure module function getCharSeq_SK5(charVec)
result(str)
1353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1354 !DEC$ ATTRIBUTES DLLEXPORT :: getCharSeq_SK5
1357 character(
1,SKG),
intent(in),
contiguous :: charVec(:)
1358 character(
size(charVec,
1,IK),SKG) :: str
1363 pure module function getCharSeq_SK4(charVec)
result(str)
1364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1365 !DEC$ ATTRIBUTES DLLEXPORT :: getCharSeq_SK4
1368 character(
1,SKG),
intent(in),
contiguous :: charVec(:)
1369 character(
size(charVec,
1,IK),SKG) :: str
1374 pure module function getCharSeq_SK3(charVec)
result(str)
1375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1376 !DEC$ ATTRIBUTES DLLEXPORT :: getCharSeq_SK3
1379 character(
1,SKG),
intent(in),
contiguous :: charVec(:)
1380 character(
size(charVec,
1,IK),SKG) :: str
1385 pure module function getCharSeq_SK2(charVec)
result(str)
1386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1387 !DEC$ ATTRIBUTES DLLEXPORT :: getCharSeq_SK2
1390 character(
1,SKG),
intent(in),
contiguous :: charVec(:)
1391 character(
size(charVec,
1,IK),SKG) :: str
1396 pure module function getCharSeq_SK1(charVec)
result(str)
1397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1398 !DEC$ ATTRIBUTES DLLEXPORT :: getCharSeq_SK1
1401 character(
1,SKG),
intent(in),
contiguous :: charVec(:)
1402 character(
size(charVec,
1,IK),SKG) :: str
1454 pure module function getTrimmedTZ_SK5(str)
result(strt)
1455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1456 !DEC$ ATTRIBUTES DLLEXPORT :: getTrimmedTZ_SK5
1459 character(
*,SKG),
intent(in) :: str
1460 character(:,SKG) ,
allocatable :: strt
1465 pure module function getTrimmedTZ_SK4(str)
result(strt)
1466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1467 !DEC$ ATTRIBUTES DLLEXPORT :: getTrimmedTZ_SK4
1470 character(
*,SKG),
intent(in) :: str
1471 character(:,SKG) ,
allocatable :: strt
1476 pure module function getTrimmedTZ_SK3(str)
result(strt)
1477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1478 !DEC$ ATTRIBUTES DLLEXPORT :: getTrimmedTZ_SK3
1481 character(
*,SKG),
intent(in) :: str
1482 character(:,SKG) ,
allocatable :: strt
1487 pure module function getTrimmedTZ_SK2(str)
result(strt)
1488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1489 !DEC$ ATTRIBUTES DLLEXPORT :: getTrimmedTZ_SK2
1492 character(
*,SKG),
intent(in) :: str
1493 character(:,SKG) ,
allocatable :: strt
1498 pure module function getTrimmedTZ_SK1(str)
result(strt)
1499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1500 !DEC$ ATTRIBUTES DLLEXPORT :: getTrimmedTZ_SK1
1503 character(
*,SKG),
intent(in) :: str
1504 character(:,SKG) ,
allocatable :: strt
1622 impure module function getStrWrapped_SK5(str, prefix, indent, break, newline, linefeed, width, maxwidth)
result(strWrapped)
1623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1624 !DEC$ ATTRIBUTES DLLEXPORT :: getStrWrapped_SK5
1627 character(
*,SKG) ,
intent(in) :: str
1628 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline, linefeed
1629 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1630 character(:,SKG) ,
allocatable :: strWrapped
1635 impure module function getStrWrapped_SK4(str, prefix, indent, break, newline, linefeed, width, maxwidth)
result(strWrapped)
1636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1637 !DEC$ ATTRIBUTES DLLEXPORT :: getStrWrapped_SK4
1640 character(
*,SKG) ,
intent(in) :: str
1641 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline, linefeed
1642 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1643 character(:,SKG) ,
allocatable :: strWrapped
1648 impure module function getStrWrapped_SK3(str, prefix, indent, break, newline, linefeed, width, maxwidth)
result(strWrapped)
1649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1650 !DEC$ ATTRIBUTES DLLEXPORT :: getStrWrapped_SK3
1653 character(
*,SKG) ,
intent(in) :: str
1654 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline, linefeed
1655 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1656 character(:,SKG) ,
allocatable :: strWrapped
1661 impure module function getStrWrapped_SK2(str, prefix, indent, break, newline, linefeed, width, maxwidth)
result(strWrapped)
1662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1663 !DEC$ ATTRIBUTES DLLEXPORT :: getStrWrapped_SK2
1666 character(
*,SKG) ,
intent(in) :: str
1667 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline, linefeed
1668 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1669 character(:,SKG) ,
allocatable :: strWrapped
1674 impure module function getStrWrapped_SK1(str, prefix, indent, break, newline, linefeed, width, maxwidth)
result(strWrapped)
1675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1676 !DEC$ ATTRIBUTES DLLEXPORT :: getStrWrapped_SK1
1679 character(
*,SKG) ,
intent(in) :: str
1680 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline, linefeed
1681 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1682 character(:,SKG) ,
allocatable :: strWrapped
1751 pure elemental module function getLenIndent_SK5(str, pattern)
result(lenIndent)
1752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1753 !DEC$ ATTRIBUTES DLLEXPORT :: getLenIndent_SK5
1756 character(
*,SKG) ,
intent(in) :: str, pattern
1757 integer(IK) :: lenIndent
1762 pure elemental module function getLenIndent_SK4(str, pattern)
result(lenIndent)
1763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1764 !DEC$ ATTRIBUTES DLLEXPORT :: getLenIndent_SK4
1767 character(
*,SKG) ,
intent(in) :: str, pattern
1768 integer(IK) :: lenIndent
1773 pure elemental module function getLenIndent_SK3(str, pattern)
result(lenIndent)
1774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1775 !DEC$ ATTRIBUTES DLLEXPORT :: getLenIndent_SK3
1778 character(
*,SKG) ,
intent(in) :: str, pattern
1779 integer(IK) :: lenIndent
1784 pure elemental module function getLenIndent_SK2(str, pattern)
result(lenIndent)
1785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1786 !DEC$ ATTRIBUTES DLLEXPORT :: getLenIndent_SK2
1789 character(
*,SKG) ,
intent(in) :: str, pattern
1790 integer(IK) :: lenIndent
1795 pure elemental module function getLenIndent_SK1(str, pattern)
result(lenIndent)
1796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1797 !DEC$ ATTRIBUTES DLLEXPORT :: getLenIndent_SK1
1800 character(
*,SKG) ,
intent(in) :: str, pattern
1801 integer(IK) :: lenIndent
2127end module pm_str ! LCOV_EXCL_LINE
Generate and return a scalar string resulting from the concatenation of the individual elements (sing...
Generate and return a vector of single-characters each element of which corresponds to one character ...
Generate and return the number of non-overlapping repetitions of the input pattern in the input str u...
Generate and return the location of the first occurrence of the maximum of the input string(s).
Generate and return maximum character value in the input string(s).
Generate and return the location of the first occurrence of the minimum of the input string(s).
Generate and return minimum character value in the input string(s).
Generate and return the input scalar string wrapped within the specified width while optionally prefi...
Generate and return a vector of single-characters each element of which corresponds to one character ...
Generate and return the location of the first occurrence of the minimum of the input string(s).
This module contains the derived types for generating allocatable containers of scalar,...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains classes and procedures for various string manipulations and inquiries.
character(*, SK), parameter UNDEFINED
The scalar character parameter of default kind SK containing "UNDEFINED".
character(*, SK), parameter SPACE
The space character of default kind SK of length 1.
character(*, SK), parameter MODULE_NAME
character(*, SK), parameter NLC
The newline character of default kind SK as returned by new_line(SK_"a").
This is the css_pdt parameterized type for generating instances of container of scalar of string obje...
This is the css_type type for generating instances of container of scalar of string objects.