68#define LEN_ARRAY len(array)
98 function iseq_D0_D0_SK5(segment, pattern)
result(equivalent)
99#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
100 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_SK5
103 character(
*,SKG) ,
intent(in) :: segment
104 character(
*,SKG) ,
intent(in) :: pattern
105 logical(
LK) :: equivalent
110 function iseq_D0_D0_SK4(segment, pattern)
result(equivalent)
111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
112 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_SK4
115 character(
*,SKG) ,
intent(in) :: segment
116 character(
*,SKG) ,
intent(in) :: pattern
117 logical(
LK) :: equivalent
122 function iseq_D0_D0_SK3(segment, pattern)
result(equivalent)
123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
124 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_SK3
127 character(
*,SKG) ,
intent(in) :: segment
128 character(
*,SKG) ,
intent(in) :: pattern
129 logical(
LK) :: equivalent
134 function iseq_D0_D0_SK2(segment, pattern)
result(equivalent)
135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
136 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_SK2
139 character(
*,SKG) ,
intent(in) :: segment
140 character(
*,SKG) ,
intent(in) :: pattern
141 logical(
LK) :: equivalent
146 function iseq_D0_D0_SK1(segment, pattern)
result(equivalent)
147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
148 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_SK1
151 character(
*,SKG) ,
intent(in) :: segment
152 character(
*,SKG) ,
intent(in) :: pattern
153 logical(
LK) :: equivalent
160 function iseq_D0_D0_IK5(segment, pattern)
result(equivalent)
161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
162 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_IK5
165 integer(IKG) ,
intent(in) :: segment
166 integer(IKG) ,
intent(in) :: pattern
167 logical(
LK) :: equivalent
172 function iseq_D0_D0_IK4(segment, pattern)
result(equivalent)
173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
174 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_IK4
177 integer(IKG) ,
intent(in) :: segment
178 integer(IKG) ,
intent(in) :: pattern
179 logical(
LK) :: equivalent
184 function iseq_D0_D0_IK3(segment, pattern)
result(equivalent)
185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
186 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_IK3
189 integer(IKG) ,
intent(in) :: segment
190 integer(IKG) ,
intent(in) :: pattern
191 logical(
LK) :: equivalent
196 function iseq_D0_D0_IK2(segment, pattern)
result(equivalent)
197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
198 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_IK2
201 integer(IKG) ,
intent(in) :: segment
202 integer(IKG) ,
intent(in) :: pattern
203 logical(
LK) :: equivalent
208 function iseq_D0_D0_IK1(segment, pattern)
result(equivalent)
209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
210 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_IK1
213 integer(IKG) ,
intent(in) :: segment
214 integer(IKG) ,
intent(in) :: pattern
215 logical(
LK) :: equivalent
222 function iseq_D0_D0_LK5(segment, pattern)
result(equivalent)
223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
224 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_LK5
227 logical(LKG) ,
intent(in) :: segment
228 logical(LKG) ,
intent(in) :: pattern
229 logical(
LK) :: equivalent
234 function iseq_D0_D0_LK4(segment, pattern)
result(equivalent)
235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
236 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_LK4
239 logical(LKG) ,
intent(in) :: segment
240 logical(LKG) ,
intent(in) :: pattern
241 logical(
LK) :: equivalent
246 function iseq_D0_D0_LK3(segment, pattern)
result(equivalent)
247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
248 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_LK3
251 logical(LKG) ,
intent(in) :: segment
252 logical(LKG) ,
intent(in) :: pattern
253 logical(
LK) :: equivalent
258 function iseq_D0_D0_LK2(segment, pattern)
result(equivalent)
259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
260 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_LK2
263 logical(LKG) ,
intent(in) :: segment
264 logical(LKG) ,
intent(in) :: pattern
265 logical(
LK) :: equivalent
270 function iseq_D0_D0_LK1(segment, pattern)
result(equivalent)
271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
272 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_LK1
275 logical(LKG) ,
intent(in) :: segment
276 logical(LKG) ,
intent(in) :: pattern
277 logical(
LK) :: equivalent
284 function iseq_D0_D0_CK5(segment, pattern)
result(equivalent)
285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
286 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_CK5
289 complex(CKG) ,
intent(in) :: segment
290 complex(CKG) ,
intent(in) :: pattern
291 logical(
LK) :: equivalent
296 function iseq_D0_D0_CK4(segment, pattern)
result(equivalent)
297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
298 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_CK4
301 complex(CKG) ,
intent(in) :: segment
302 complex(CKG) ,
intent(in) :: pattern
303 logical(
LK) :: equivalent
308 function iseq_D0_D0_CK3(segment, pattern)
result(equivalent)
309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
310 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_CK3
313 complex(CKG) ,
intent(in) :: segment
314 complex(CKG) ,
intent(in) :: pattern
315 logical(
LK) :: equivalent
320 function iseq_D0_D0_CK2(segment, pattern)
result(equivalent)
321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
322 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_CK2
325 complex(CKG) ,
intent(in) :: segment
326 complex(CKG) ,
intent(in) :: pattern
327 logical(
LK) :: equivalent
332 function iseq_D0_D0_CK1(segment, pattern)
result(equivalent)
333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
334 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_CK1
337 complex(CKG) ,
intent(in) :: segment
338 complex(CKG) ,
intent(in) :: pattern
339 logical(
LK) :: equivalent
346 function iseq_D0_D0_RK5(segment, pattern)
result(equivalent)
347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
348 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_RK5
351 real(RKG) ,
intent(in) :: segment
352 real(RKG) ,
intent(in) :: pattern
353 logical(
LK) :: equivalent
358 function iseq_D0_D0_RK4(segment, pattern)
result(equivalent)
359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
360 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_RK4
363 real(RKG) ,
intent(in) :: segment
364 real(RKG) ,
intent(in) :: pattern
365 logical(
LK) :: equivalent
370 function iseq_D0_D0_RK3(segment, pattern)
result(equivalent)
371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
372 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_RK3
375 real(RKG) ,
intent(in) :: segment
376 real(RKG) ,
intent(in) :: pattern
377 logical(
LK) :: equivalent
382 function iseq_D0_D0_RK2(segment, pattern)
result(equivalent)
383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
384 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_RK2
387 real(RKG) ,
intent(in) :: segment
388 real(RKG) ,
intent(in) :: pattern
389 logical(
LK) :: equivalent
394 function iseq_D0_D0_RK1(segment, pattern)
result(equivalent)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D0_D0_RK1
399 real(RKG) ,
intent(in) :: segment
400 real(RKG) ,
intent(in) :: pattern
401 logical(
LK) :: equivalent
414 function iseq_D1_D1_SK5(segment, pattern)
result(equivalent)
415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
416 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_SK5
419 character(
*,SKG) ,
intent(in) ,
contiguous :: segment(:)
420 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
421 logical(
LK) :: equivalent
426 function iseq_D1_D1_SK4(segment, pattern)
result(equivalent)
427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
428 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_SK4
431 character(
*,SKG) ,
intent(in) ,
contiguous :: segment(:)
432 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
433 logical(
LK) :: equivalent
438 function iseq_D1_D1_SK3(segment, pattern)
result(equivalent)
439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
440 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_SK3
443 character(
*,SKG) ,
intent(in) ,
contiguous :: segment(:)
444 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
445 logical(
LK) :: equivalent
450 function iseq_D1_D1_SK2(segment, pattern)
result(equivalent)
451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
452 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_SK2
455 character(
*,SKG) ,
intent(in) ,
contiguous :: segment(:)
456 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
457 logical(
LK) :: equivalent
462 function iseq_D1_D1_SK1(segment, pattern)
result(equivalent)
463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
464 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_SK1
467 character(
*,SKG) ,
intent(in) ,
contiguous :: segment(:)
468 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
469 logical(
LK) :: equivalent
476 function iseq_D1_D1_IK5(segment, pattern)
result(equivalent)
477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
478 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_IK5
481 integer(IKG) ,
intent(in) ,
contiguous :: segment(:)
482 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
483 logical(
LK) :: equivalent
488 function iseq_D1_D1_IK4(segment, pattern)
result(equivalent)
489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
490 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_IK4
493 integer(IKG) ,
intent(in) ,
contiguous :: segment(:)
494 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
495 logical(
LK) :: equivalent
500 function iseq_D1_D1_IK3(segment, pattern)
result(equivalent)
501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
502 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_IK3
505 integer(IKG) ,
intent(in) ,
contiguous :: segment(:)
506 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
507 logical(
LK) :: equivalent
512 function iseq_D1_D1_IK2(segment, pattern)
result(equivalent)
513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
514 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_IK2
517 integer(IKG) ,
intent(in) ,
contiguous :: segment(:)
518 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
519 logical(
LK) :: equivalent
524 function iseq_D1_D1_IK1(segment, pattern)
result(equivalent)
525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
526 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_IK1
529 integer(IKG) ,
intent(in) ,
contiguous :: segment(:)
530 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
531 logical(
LK) :: equivalent
538 function iseq_D1_D1_LK5(segment, pattern)
result(equivalent)
539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
540 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_LK5
543 logical(LKG) ,
intent(in) ,
contiguous :: segment(:)
544 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
545 logical(
LK) :: equivalent
550 function iseq_D1_D1_LK4(segment, pattern)
result(equivalent)
551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
552 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_LK4
555 logical(LKG) ,
intent(in) ,
contiguous :: segment(:)
556 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
557 logical(
LK) :: equivalent
562 function iseq_D1_D1_LK3(segment, pattern)
result(equivalent)
563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
564 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_LK3
567 logical(LKG) ,
intent(in) ,
contiguous :: segment(:)
568 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
569 logical(
LK) :: equivalent
574 function iseq_D1_D1_LK2(segment, pattern)
result(equivalent)
575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
576 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_LK2
579 logical(LKG) ,
intent(in) ,
contiguous :: segment(:)
580 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
581 logical(
LK) :: equivalent
586 function iseq_D1_D1_LK1(segment, pattern)
result(equivalent)
587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
588 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_LK1
591 logical(LKG) ,
intent(in) ,
contiguous :: segment(:)
592 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
593 logical(
LK) :: equivalent
600 function iseq_D1_D1_CK5(segment, pattern)
result(equivalent)
601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
602 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_CK5
605 complex(CKG) ,
intent(in) ,
contiguous :: segment(:)
606 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
607 logical(
LK) :: equivalent
612 function iseq_D1_D1_CK4(segment, pattern)
result(equivalent)
613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
614 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_CK4
617 complex(CKG) ,
intent(in) ,
contiguous :: segment(:)
618 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
619 logical(
LK) :: equivalent
624 function iseq_D1_D1_CK3(segment, pattern)
result(equivalent)
625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
626 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_CK3
629 complex(CKG) ,
intent(in) ,
contiguous :: segment(:)
630 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
631 logical(
LK) :: equivalent
636 function iseq_D1_D1_CK2(segment, pattern)
result(equivalent)
637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
638 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_CK2
641 complex(CKG) ,
intent(in) ,
contiguous :: segment(:)
642 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
643 logical(
LK) :: equivalent
648 function iseq_D1_D1_CK1(segment, pattern)
result(equivalent)
649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
650 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_CK1
653 complex(CKG) ,
intent(in) ,
contiguous :: segment(:)
654 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
655 logical(
LK) :: equivalent
662 function iseq_D1_D1_RK5(segment, pattern)
result(equivalent)
663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
664 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_RK5
667 real(RKG) ,
intent(in) ,
contiguous :: segment(:)
668 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
669 logical(
LK) :: equivalent
674 function iseq_D1_D1_RK4(segment, pattern)
result(equivalent)
675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
676 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_RK4
679 real(RKG) ,
intent(in) ,
contiguous :: segment(:)
680 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
681 logical(
LK) :: equivalent
686 function iseq_D1_D1_RK3(segment, pattern)
result(equivalent)
687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
688 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_RK3
691 real(RKG) ,
intent(in) ,
contiguous :: segment(:)
692 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
693 logical(
LK) :: equivalent
698 function iseq_D1_D1_RK2(segment, pattern)
result(equivalent)
699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
700 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_RK2
703 real(RKG) ,
intent(in) ,
contiguous :: segment(:)
704 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
705 logical(
LK) :: equivalent
710 function iseq_D1_D1_RK1(segment, pattern)
result(equivalent)
711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
712 !DEC$ ATTRIBUTES DLLEXPORT :: iseq_D1_D1_RK1
715 real(RKG) ,
intent(in) ,
contiguous :: segment(:)
716 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
717 logical(
LK) :: equivalent
1001 PURE module function getReplacedDefComDefIns_D0_D0_D0_SK5(array, pattern, replacement)
result(arrayNew)
1002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1003 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D0_D0_D0_SK5
1006 character(
*,SKG) ,
intent(in) :: array
1007 character(
*,SKG) ,
intent(in) :: pattern
1008 character(
*,SKG) ,
intent(in) :: replacement
1009 character(:,SKG) ,
allocatable :: arrayNew
1014 PURE module function getReplacedDefComDefIns_D0_D0_D0_SK4(array, pattern, replacement)
result(arrayNew)
1015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1016 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D0_D0_D0_SK4
1019 character(
*,SKG) ,
intent(in) :: array
1020 character(
*,SKG) ,
intent(in) :: pattern
1021 character(
*,SKG) ,
intent(in) :: replacement
1022 character(:,SKG) ,
allocatable :: arrayNew
1027 PURE module function getReplacedDefComDefIns_D0_D0_D0_SK3(array, pattern, replacement)
result(arrayNew)
1028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1029 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D0_D0_D0_SK3
1032 character(
*,SKG) ,
intent(in) :: array
1033 character(
*,SKG) ,
intent(in) :: pattern
1034 character(
*,SKG) ,
intent(in) :: replacement
1035 character(:,SKG) ,
allocatable :: arrayNew
1040 PURE module function getReplacedDefComDefIns_D0_D0_D0_SK2(array, pattern, replacement)
result(arrayNew)
1041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1042 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D0_D0_D0_SK2
1045 character(
*,SKG) ,
intent(in) :: array
1046 character(
*,SKG) ,
intent(in) :: pattern
1047 character(
*,SKG) ,
intent(in) :: replacement
1048 character(:,SKG) ,
allocatable :: arrayNew
1054 PURE module function getReplacedDefComDefIns_D0_D0_D0_SK1(array, pattern, replacement)
result(arrayNew)
1055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1056 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D0_D0_D0_SK1
1059 character(
*,SKG) ,
intent(in) :: array
1060 character(
*,SKG) ,
intent(in) :: pattern
1061 character(
*,SKG) ,
intent(in) :: replacement
1062 character(:,SKG) ,
allocatable :: arrayNew
1075 PURE module function getReplacedDefComDefIns_D1_D0_D0_SK5(array, pattern, replacement)
result(arrayNew)
1076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1077 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_SK5
1080 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1081 character(
*,SKG) ,
intent(in) :: pattern
1082 character(
*,SKG) ,
intent(in) :: replacement
1083 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1088 PURE module function getReplacedDefComDefIns_D1_D0_D0_SK4(array, pattern, replacement)
result(arrayNew)
1089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1090 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_SK4
1093 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1094 character(
*,SKG) ,
intent(in) :: pattern
1095 character(
*,SKG) ,
intent(in) :: replacement
1096 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1101 PURE module function getReplacedDefComDefIns_D1_D0_D0_SK3(array, pattern, replacement)
result(arrayNew)
1102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1103 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_SK3
1106 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1107 character(
*,SKG) ,
intent(in) :: pattern
1108 character(
*,SKG) ,
intent(in) :: replacement
1109 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1114 PURE module function getReplacedDefComDefIns_D1_D0_D0_SK2(array, pattern, replacement)
result(arrayNew)
1115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1116 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_SK2
1119 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1120 character(
*,SKG) ,
intent(in) :: pattern
1121 character(
*,SKG) ,
intent(in) :: replacement
1122 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1128 PURE module function getReplacedDefComDefIns_D1_D0_D0_SK1(array, pattern, replacement)
result(arrayNew)
1129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1130 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_SK1
1133 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1134 character(
*,SKG) ,
intent(in) :: pattern
1135 character(
*,SKG) ,
intent(in) :: replacement
1136 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1143 PURE module function getReplacedDefComDefIns_D1_D0_D0_IK5(array, pattern, replacement)
result(arrayNew)
1144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1145 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_IK5
1148 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1149 integer(IKG) ,
intent(in) :: pattern
1150 integer(IKG) ,
intent(in) :: replacement
1151 integer(IKG) ,
allocatable :: arrayNew(:)
1156 PURE module function getReplacedDefComDefIns_D1_D0_D0_IK4(array, pattern, replacement)
result(arrayNew)
1157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1158 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_IK4
1161 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1162 integer(IKG) ,
intent(in) :: pattern
1163 integer(IKG) ,
intent(in) :: replacement
1164 integer(IKG) ,
allocatable :: arrayNew(:)
1169 PURE module function getReplacedDefComDefIns_D1_D0_D0_IK3(array, pattern, replacement)
result(arrayNew)
1170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1171 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_IK3
1174 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1175 integer(IKG) ,
intent(in) :: pattern
1176 integer(IKG) ,
intent(in) :: replacement
1177 integer(IKG) ,
allocatable :: arrayNew(:)
1182 PURE module function getReplacedDefComDefIns_D1_D0_D0_IK2(array, pattern, replacement)
result(arrayNew)
1183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1184 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_IK2
1187 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1188 integer(IKG) ,
intent(in) :: pattern
1189 integer(IKG) ,
intent(in) :: replacement
1190 integer(IKG) ,
allocatable :: arrayNew(:)
1196 PURE module function getReplacedDefComDefIns_D1_D0_D0_IK1(array, pattern, replacement)
result(arrayNew)
1197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1198 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_IK1
1201 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1202 integer(IKG) ,
intent(in) :: pattern
1203 integer(IKG) ,
intent(in) :: replacement
1204 integer(IKG) ,
allocatable :: arrayNew(:)
1211 PURE module function getReplacedDefComDefIns_D1_D0_D0_LK5(array, pattern, replacement)
result(arrayNew)
1212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1213 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_LK5
1216 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1217 logical(LKG) ,
intent(in) :: pattern
1218 logical(LKG) ,
intent(in) :: replacement
1219 logical(LKG) ,
allocatable :: arrayNew(:)
1224 PURE module function getReplacedDefComDefIns_D1_D0_D0_LK4(array, pattern, replacement)
result(arrayNew)
1225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1226 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_LK4
1229 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1230 logical(LKG) ,
intent(in) :: pattern
1231 logical(LKG) ,
intent(in) :: replacement
1232 logical(LKG) ,
allocatable :: arrayNew(:)
1237 PURE module function getReplacedDefComDefIns_D1_D0_D0_LK3(array, pattern, replacement)
result(arrayNew)
1238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1239 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_LK3
1242 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1243 logical(LKG) ,
intent(in) :: pattern
1244 logical(LKG) ,
intent(in) :: replacement
1245 logical(LKG) ,
allocatable :: arrayNew(:)
1250 PURE module function getReplacedDefComDefIns_D1_D0_D0_LK2(array, pattern, replacement)
result(arrayNew)
1251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1252 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_LK2
1255 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1256 logical(LKG) ,
intent(in) :: pattern
1257 logical(LKG) ,
intent(in) :: replacement
1258 logical(LKG) ,
allocatable :: arrayNew(:)
1264 PURE module function getReplacedDefComDefIns_D1_D0_D0_LK1(array, pattern, replacement)
result(arrayNew)
1265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1266 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_LK1
1269 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1270 logical(LKG) ,
intent(in) :: pattern
1271 logical(LKG) ,
intent(in) :: replacement
1272 logical(LKG) ,
allocatable :: arrayNew(:)
1279 PURE module function getReplacedDefComDefIns_D1_D0_D0_CK5(array, pattern, replacement)
result(arrayNew)
1280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1281 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_CK5
1284 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1285 complex(CKG) ,
intent(in) :: pattern
1286 complex(CKG) ,
intent(in) :: replacement
1287 complex(CKG) ,
allocatable :: arrayNew(:)
1292 PURE module function getReplacedDefComDefIns_D1_D0_D0_CK4(array, pattern, replacement)
result(arrayNew)
1293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1294 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_CK4
1297 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1298 complex(CKG) ,
intent(in) :: pattern
1299 complex(CKG) ,
intent(in) :: replacement
1300 complex(CKG) ,
allocatable :: arrayNew(:)
1305 PURE module function getReplacedDefComDefIns_D1_D0_D0_CK3(array, pattern, replacement)
result(arrayNew)
1306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1307 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_CK3
1310 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1311 complex(CKG) ,
intent(in) :: pattern
1312 complex(CKG) ,
intent(in) :: replacement
1313 complex(CKG) ,
allocatable :: arrayNew(:)
1318 PURE module function getReplacedDefComDefIns_D1_D0_D0_CK2(array, pattern, replacement)
result(arrayNew)
1319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1320 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_CK2
1323 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1324 complex(CKG) ,
intent(in) :: pattern
1325 complex(CKG) ,
intent(in) :: replacement
1326 complex(CKG) ,
allocatable :: arrayNew(:)
1332 PURE module function getReplacedDefComDefIns_D1_D0_D0_CK1(array, pattern, replacement)
result(arrayNew)
1333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1334 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_CK1
1337 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1338 complex(CKG) ,
intent(in) :: pattern
1339 complex(CKG) ,
intent(in) :: replacement
1340 complex(CKG) ,
allocatable :: arrayNew(:)
1347 PURE module function getReplacedDefComDefIns_D1_D0_D0_RK5(array, pattern, replacement)
result(arrayNew)
1348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1349 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_RK5
1352 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1353 real(RKG) ,
intent(in) :: pattern
1354 real(RKG) ,
intent(in) :: replacement
1355 real(RKG) ,
allocatable :: arrayNew(:)
1360 PURE module function getReplacedDefComDefIns_D1_D0_D0_RK4(array, pattern, replacement)
result(arrayNew)
1361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1362 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_RK4
1365 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1366 real(RKG) ,
intent(in) :: pattern
1367 real(RKG) ,
intent(in) :: replacement
1368 real(RKG) ,
allocatable :: arrayNew(:)
1373 PURE module function getReplacedDefComDefIns_D1_D0_D0_RK3(array, pattern, replacement)
result(arrayNew)
1374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1375 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_RK3
1378 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1379 real(RKG) ,
intent(in) :: pattern
1380 real(RKG) ,
intent(in) :: replacement
1381 real(RKG) ,
allocatable :: arrayNew(:)
1386 PURE module function getReplacedDefComDefIns_D1_D0_D0_RK2(array, pattern, replacement)
result(arrayNew)
1387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1388 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_RK2
1391 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1392 real(RKG) ,
intent(in) :: pattern
1393 real(RKG) ,
intent(in) :: replacement
1394 real(RKG) ,
allocatable :: arrayNew(:)
1400 PURE module function getReplacedDefComDefIns_D1_D0_D0_RK1(array, pattern, replacement)
result(arrayNew)
1401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1402 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D0_RK1
1405 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1406 real(RKG) ,
intent(in) :: pattern
1407 real(RKG) ,
intent(in) :: replacement
1408 real(RKG) ,
allocatable :: arrayNew(:)
1421 PURE module function getReplacedDefComDefIns_D1_D0_D1_SK5(array, pattern, replacement)
result(arrayNew)
1422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1423 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_SK5
1426 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1427 character(
*,SKG) ,
intent(in) :: pattern
1428 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
1429 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1434 PURE module function getReplacedDefComDefIns_D1_D0_D1_SK4(array, pattern, replacement)
result(arrayNew)
1435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1436 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_SK4
1439 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1440 character(
*,SKG) ,
intent(in) :: pattern
1441 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
1442 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1447 PURE module function getReplacedDefComDefIns_D1_D0_D1_SK3(array, pattern, replacement)
result(arrayNew)
1448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1449 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_SK3
1452 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1453 character(
*,SKG) ,
intent(in) :: pattern
1454 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
1455 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1460 PURE module function getReplacedDefComDefIns_D1_D0_D1_SK2(array, pattern, replacement)
result(arrayNew)
1461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1462 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_SK2
1465 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1466 character(
*,SKG) ,
intent(in) :: pattern
1467 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
1468 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1474 PURE module function getReplacedDefComDefIns_D1_D0_D1_SK1(array, pattern, replacement)
result(arrayNew)
1475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1476 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_SK1
1479 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1480 character(
*,SKG) ,
intent(in) :: pattern
1481 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
1482 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1489 PURE module function getReplacedDefComDefIns_D1_D0_D1_IK5(array, pattern, replacement)
result(arrayNew)
1490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1491 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_IK5
1494 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1495 integer(IKG) ,
intent(in) :: pattern
1496 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
1497 integer(IKG) ,
allocatable :: arrayNew(:)
1502 PURE module function getReplacedDefComDefIns_D1_D0_D1_IK4(array, pattern, replacement)
result(arrayNew)
1503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1504 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_IK4
1507 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1508 integer(IKG) ,
intent(in) :: pattern
1509 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
1510 integer(IKG) ,
allocatable :: arrayNew(:)
1515 PURE module function getReplacedDefComDefIns_D1_D0_D1_IK3(array, pattern, replacement)
result(arrayNew)
1516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1517 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_IK3
1520 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1521 integer(IKG) ,
intent(in) :: pattern
1522 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
1523 integer(IKG) ,
allocatable :: arrayNew(:)
1528 PURE module function getReplacedDefComDefIns_D1_D0_D1_IK2(array, pattern, replacement)
result(arrayNew)
1529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1530 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_IK2
1533 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1534 integer(IKG) ,
intent(in) :: pattern
1535 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
1536 integer(IKG) ,
allocatable :: arrayNew(:)
1542 PURE module function getReplacedDefComDefIns_D1_D0_D1_IK1(array, pattern, replacement)
result(arrayNew)
1543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1544 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_IK1
1547 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1548 integer(IKG) ,
intent(in) :: pattern
1549 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
1550 integer(IKG) ,
allocatable :: arrayNew(:)
1557 PURE module function getReplacedDefComDefIns_D1_D0_D1_LK5(array, pattern, replacement)
result(arrayNew)
1558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1559 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_LK5
1562 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1563 logical(LKG) ,
intent(in) :: pattern
1564 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
1565 logical(LKG) ,
allocatable :: arrayNew(:)
1570 PURE module function getReplacedDefComDefIns_D1_D0_D1_LK4(array, pattern, replacement)
result(arrayNew)
1571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1572 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_LK4
1575 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1576 logical(LKG) ,
intent(in) :: pattern
1577 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
1578 logical(LKG) ,
allocatable :: arrayNew(:)
1583 PURE module function getReplacedDefComDefIns_D1_D0_D1_LK3(array, pattern, replacement)
result(arrayNew)
1584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1585 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_LK3
1588 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1589 logical(LKG) ,
intent(in) :: pattern
1590 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
1591 logical(LKG) ,
allocatable :: arrayNew(:)
1596 PURE module function getReplacedDefComDefIns_D1_D0_D1_LK2(array, pattern, replacement)
result(arrayNew)
1597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1598 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_LK2
1601 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1602 logical(LKG) ,
intent(in) :: pattern
1603 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
1604 logical(LKG) ,
allocatable :: arrayNew(:)
1610 PURE module function getReplacedDefComDefIns_D1_D0_D1_LK1(array, pattern, replacement)
result(arrayNew)
1611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1612 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_LK1
1615 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1616 logical(LKG) ,
intent(in) :: pattern
1617 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
1618 logical(LKG) ,
allocatable :: arrayNew(:)
1625 PURE module function getReplacedDefComDefIns_D1_D0_D1_CK5(array, pattern, replacement)
result(arrayNew)
1626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1627 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_CK5
1630 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1631 complex(CKG) ,
intent(in) :: pattern
1632 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
1633 complex(CKG) ,
allocatable :: arrayNew(:)
1638 PURE module function getReplacedDefComDefIns_D1_D0_D1_CK4(array, pattern, replacement)
result(arrayNew)
1639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1640 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_CK4
1643 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1644 complex(CKG) ,
intent(in) :: pattern
1645 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
1646 complex(CKG) ,
allocatable :: arrayNew(:)
1651 PURE module function getReplacedDefComDefIns_D1_D0_D1_CK3(array, pattern, replacement)
result(arrayNew)
1652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1653 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_CK3
1656 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1657 complex(CKG) ,
intent(in) :: pattern
1658 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
1659 complex(CKG) ,
allocatable :: arrayNew(:)
1664 PURE module function getReplacedDefComDefIns_D1_D0_D1_CK2(array, pattern, replacement)
result(arrayNew)
1665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1666 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_CK2
1669 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1670 complex(CKG) ,
intent(in) :: pattern
1671 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
1672 complex(CKG) ,
allocatable :: arrayNew(:)
1678 PURE module function getReplacedDefComDefIns_D1_D0_D1_CK1(array, pattern, replacement)
result(arrayNew)
1679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1680 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_CK1
1683 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1684 complex(CKG) ,
intent(in) :: pattern
1685 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
1686 complex(CKG) ,
allocatable :: arrayNew(:)
1693 PURE module function getReplacedDefComDefIns_D1_D0_D1_RK5(array, pattern, replacement)
result(arrayNew)
1694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1695 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_RK5
1698 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1699 real(RKG) ,
intent(in) :: pattern
1700 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
1701 real(RKG) ,
allocatable :: arrayNew(:)
1706 PURE module function getReplacedDefComDefIns_D1_D0_D1_RK4(array, pattern, replacement)
result(arrayNew)
1707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1708 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_RK4
1711 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1712 real(RKG) ,
intent(in) :: pattern
1713 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
1714 real(RKG) ,
allocatable :: arrayNew(:)
1719 PURE module function getReplacedDefComDefIns_D1_D0_D1_RK3(array, pattern, replacement)
result(arrayNew)
1720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1721 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_RK3
1724 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1725 real(RKG) ,
intent(in) :: pattern
1726 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
1727 real(RKG) ,
allocatable :: arrayNew(:)
1732 PURE module function getReplacedDefComDefIns_D1_D0_D1_RK2(array, pattern, replacement)
result(arrayNew)
1733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1734 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_RK2
1737 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1738 real(RKG) ,
intent(in) :: pattern
1739 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
1740 real(RKG) ,
allocatable :: arrayNew(:)
1746 PURE module function getReplacedDefComDefIns_D1_D0_D1_RK1(array, pattern, replacement)
result(arrayNew)
1747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1748 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D0_D1_RK1
1751 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1752 real(RKG) ,
intent(in) :: pattern
1753 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
1754 real(RKG) ,
allocatable :: arrayNew(:)
1767 PURE module function getReplacedDefComDefIns_D1_D1_D0_SK5(array, pattern, replacement)
result(arrayNew)
1768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1769 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_SK5
1772 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1773 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
1774 character(
*,SKG) ,
intent(in) :: replacement
1775 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1780 PURE module function getReplacedDefComDefIns_D1_D1_D0_SK4(array, pattern, replacement)
result(arrayNew)
1781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1782 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_SK4
1785 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1786 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
1787 character(
*,SKG) ,
intent(in) :: replacement
1788 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1793 PURE module function getReplacedDefComDefIns_D1_D1_D0_SK3(array, pattern, replacement)
result(arrayNew)
1794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1795 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_SK3
1798 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1799 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
1800 character(
*,SKG) ,
intent(in) :: replacement
1801 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1806 PURE module function getReplacedDefComDefIns_D1_D1_D0_SK2(array, pattern, replacement)
result(arrayNew)
1807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1808 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_SK2
1811 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1812 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
1813 character(
*,SKG) ,
intent(in) :: replacement
1814 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1820 PURE module function getReplacedDefComDefIns_D1_D1_D0_SK1(array, pattern, replacement)
result(arrayNew)
1821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1822 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_SK1
1825 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1826 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
1827 character(
*,SKG) ,
intent(in) :: replacement
1828 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
1835 PURE module function getReplacedDefComDefIns_D1_D1_D0_IK5(array, pattern, replacement)
result(arrayNew)
1836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1837 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_IK5
1840 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1841 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
1842 integer(IKG) ,
intent(in) :: replacement
1843 integer(IKG) ,
allocatable :: arrayNew(:)
1848 PURE module function getReplacedDefComDefIns_D1_D1_D0_IK4(array, pattern, replacement)
result(arrayNew)
1849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1850 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_IK4
1853 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1854 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
1855 integer(IKG) ,
intent(in) :: replacement
1856 integer(IKG) ,
allocatable :: arrayNew(:)
1861 PURE module function getReplacedDefComDefIns_D1_D1_D0_IK3(array, pattern, replacement)
result(arrayNew)
1862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1863 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_IK3
1866 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1867 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
1868 integer(IKG) ,
intent(in) :: replacement
1869 integer(IKG) ,
allocatable :: arrayNew(:)
1874 PURE module function getReplacedDefComDefIns_D1_D1_D0_IK2(array, pattern, replacement)
result(arrayNew)
1875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1876 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_IK2
1879 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1880 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
1881 integer(IKG) ,
intent(in) :: replacement
1882 integer(IKG) ,
allocatable :: arrayNew(:)
1888 PURE module function getReplacedDefComDefIns_D1_D1_D0_IK1(array, pattern, replacement)
result(arrayNew)
1889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1890 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_IK1
1893 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1894 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
1895 integer(IKG) ,
intent(in) :: replacement
1896 integer(IKG) ,
allocatable :: arrayNew(:)
1903 PURE module function getReplacedDefComDefIns_D1_D1_D0_LK5(array, pattern, replacement)
result(arrayNew)
1904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1905 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_LK5
1908 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1909 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
1910 logical(LKG) ,
intent(in) :: replacement
1911 logical(LKG) ,
allocatable :: arrayNew(:)
1916 PURE module function getReplacedDefComDefIns_D1_D1_D0_LK4(array, pattern, replacement)
result(arrayNew)
1917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1918 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_LK4
1921 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1922 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
1923 logical(LKG) ,
intent(in) :: replacement
1924 logical(LKG) ,
allocatable :: arrayNew(:)
1929 PURE module function getReplacedDefComDefIns_D1_D1_D0_LK3(array, pattern, replacement)
result(arrayNew)
1930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1931 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_LK3
1934 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1935 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
1936 logical(LKG) ,
intent(in) :: replacement
1937 logical(LKG) ,
allocatable :: arrayNew(:)
1942 PURE module function getReplacedDefComDefIns_D1_D1_D0_LK2(array, pattern, replacement)
result(arrayNew)
1943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1944 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_LK2
1947 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1948 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
1949 logical(LKG) ,
intent(in) :: replacement
1950 logical(LKG) ,
allocatable :: arrayNew(:)
1956 PURE module function getReplacedDefComDefIns_D1_D1_D0_LK1(array, pattern, replacement)
result(arrayNew)
1957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1958 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_LK1
1961 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1962 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
1963 logical(LKG) ,
intent(in) :: replacement
1964 logical(LKG) ,
allocatable :: arrayNew(:)
1971 PURE module function getReplacedDefComDefIns_D1_D1_D0_CK5(array, pattern, replacement)
result(arrayNew)
1972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1973 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_CK5
1976 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1977 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
1978 complex(CKG) ,
intent(in) :: replacement
1979 complex(CKG) ,
allocatable :: arrayNew(:)
1984 PURE module function getReplacedDefComDefIns_D1_D1_D0_CK4(array, pattern, replacement)
result(arrayNew)
1985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1986 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_CK4
1989 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1990 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
1991 complex(CKG) ,
intent(in) :: replacement
1992 complex(CKG) ,
allocatable :: arrayNew(:)
1997 PURE module function getReplacedDefComDefIns_D1_D1_D0_CK3(array, pattern, replacement)
result(arrayNew)
1998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1999 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_CK3
2002 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2003 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2004 complex(CKG) ,
intent(in) :: replacement
2005 complex(CKG) ,
allocatable :: arrayNew(:)
2010 PURE module function getReplacedDefComDefIns_D1_D1_D0_CK2(array, pattern, replacement)
result(arrayNew)
2011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2012 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_CK2
2015 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2016 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2017 complex(CKG) ,
intent(in) :: replacement
2018 complex(CKG) ,
allocatable :: arrayNew(:)
2024 PURE module function getReplacedDefComDefIns_D1_D1_D0_CK1(array, pattern, replacement)
result(arrayNew)
2025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2026 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_CK1
2029 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2030 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2031 complex(CKG) ,
intent(in) :: replacement
2032 complex(CKG) ,
allocatable :: arrayNew(:)
2039 PURE module function getReplacedDefComDefIns_D1_D1_D0_RK5(array, pattern, replacement)
result(arrayNew)
2040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2041 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_RK5
2044 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2045 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2046 real(RKG) ,
intent(in) :: replacement
2047 real(RKG) ,
allocatable :: arrayNew(:)
2052 PURE module function getReplacedDefComDefIns_D1_D1_D0_RK4(array, pattern, replacement)
result(arrayNew)
2053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2054 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_RK4
2057 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2058 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2059 real(RKG) ,
intent(in) :: replacement
2060 real(RKG) ,
allocatable :: arrayNew(:)
2065 PURE module function getReplacedDefComDefIns_D1_D1_D0_RK3(array, pattern, replacement)
result(arrayNew)
2066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2067 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_RK3
2070 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2071 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2072 real(RKG) ,
intent(in) :: replacement
2073 real(RKG) ,
allocatable :: arrayNew(:)
2078 PURE module function getReplacedDefComDefIns_D1_D1_D0_RK2(array, pattern, replacement)
result(arrayNew)
2079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2080 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_RK2
2083 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2084 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2085 real(RKG) ,
intent(in) :: replacement
2086 real(RKG) ,
allocatable :: arrayNew(:)
2092 PURE module function getReplacedDefComDefIns_D1_D1_D0_RK1(array, pattern, replacement)
result(arrayNew)
2093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2094 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D0_RK1
2097 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2098 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2099 real(RKG) ,
intent(in) :: replacement
2100 real(RKG) ,
allocatable :: arrayNew(:)
2113 PURE module function getReplacedDefComDefIns_D1_D1_D1_SK5(array, pattern, replacement)
result(arrayNew)
2114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2115 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_SK5
2118 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2119 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
2120 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
2121 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
2126 PURE module function getReplacedDefComDefIns_D1_D1_D1_SK4(array, pattern, replacement)
result(arrayNew)
2127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2128 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_SK4
2131 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2132 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
2133 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
2134 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
2139 PURE module function getReplacedDefComDefIns_D1_D1_D1_SK3(array, pattern, replacement)
result(arrayNew)
2140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2141 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_SK3
2144 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2145 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
2146 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
2147 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
2152 PURE module function getReplacedDefComDefIns_D1_D1_D1_SK2(array, pattern, replacement)
result(arrayNew)
2153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2154 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_SK2
2157 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2158 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
2159 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
2160 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
2166 PURE module function getReplacedDefComDefIns_D1_D1_D1_SK1(array, pattern, replacement)
result(arrayNew)
2167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2168 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_SK1
2171 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2172 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
2173 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
2174 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
2181 PURE module function getReplacedDefComDefIns_D1_D1_D1_IK5(array, pattern, replacement)
result(arrayNew)
2182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2183 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_IK5
2186 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2187 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2188 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
2189 integer(IKG) ,
allocatable :: arrayNew(:)
2194 PURE module function getReplacedDefComDefIns_D1_D1_D1_IK4(array, pattern, replacement)
result(arrayNew)
2195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2196 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_IK4
2199 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2200 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2201 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
2202 integer(IKG) ,
allocatable :: arrayNew(:)
2207 PURE module function getReplacedDefComDefIns_D1_D1_D1_IK3(array, pattern, replacement)
result(arrayNew)
2208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2209 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_IK3
2212 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2213 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2214 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
2215 integer(IKG) ,
allocatable :: arrayNew(:)
2220 PURE module function getReplacedDefComDefIns_D1_D1_D1_IK2(array, pattern, replacement)
result(arrayNew)
2221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2222 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_IK2
2225 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2226 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2227 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
2228 integer(IKG) ,
allocatable :: arrayNew(:)
2234 PURE module function getReplacedDefComDefIns_D1_D1_D1_IK1(array, pattern, replacement)
result(arrayNew)
2235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2236 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_IK1
2239 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2240 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2241 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
2242 integer(IKG) ,
allocatable :: arrayNew(:)
2249 PURE module function getReplacedDefComDefIns_D1_D1_D1_LK5(array, pattern, replacement)
result(arrayNew)
2250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2251 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_LK5
2254 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2255 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2256 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
2257 logical(LKG) ,
allocatable :: arrayNew(:)
2262 PURE module function getReplacedDefComDefIns_D1_D1_D1_LK4(array, pattern, replacement)
result(arrayNew)
2263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2264 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_LK4
2267 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2268 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2269 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
2270 logical(LKG) ,
allocatable :: arrayNew(:)
2275 PURE module function getReplacedDefComDefIns_D1_D1_D1_LK3(array, pattern, replacement)
result(arrayNew)
2276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2277 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_LK3
2280 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2281 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2282 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
2283 logical(LKG) ,
allocatable :: arrayNew(:)
2288 PURE module function getReplacedDefComDefIns_D1_D1_D1_LK2(array, pattern, replacement)
result(arrayNew)
2289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2290 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_LK2
2293 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2294 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2295 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
2296 logical(LKG) ,
allocatable :: arrayNew(:)
2302 PURE module function getReplacedDefComDefIns_D1_D1_D1_LK1(array, pattern, replacement)
result(arrayNew)
2303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2304 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_LK1
2307 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2308 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2309 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
2310 logical(LKG) ,
allocatable :: arrayNew(:)
2317 PURE module function getReplacedDefComDefIns_D1_D1_D1_CK5(array, pattern, replacement)
result(arrayNew)
2318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2319 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_CK5
2322 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2323 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2324 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
2325 complex(CKG) ,
allocatable :: arrayNew(:)
2330 PURE module function getReplacedDefComDefIns_D1_D1_D1_CK4(array, pattern, replacement)
result(arrayNew)
2331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2332 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_CK4
2335 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2336 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2337 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
2338 complex(CKG) ,
allocatable :: arrayNew(:)
2343 PURE module function getReplacedDefComDefIns_D1_D1_D1_CK3(array, pattern, replacement)
result(arrayNew)
2344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2345 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_CK3
2348 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2349 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2350 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
2351 complex(CKG) ,
allocatable :: arrayNew(:)
2356 PURE module function getReplacedDefComDefIns_D1_D1_D1_CK2(array, pattern, replacement)
result(arrayNew)
2357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2358 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_CK2
2361 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2362 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2363 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
2364 complex(CKG) ,
allocatable :: arrayNew(:)
2370 PURE module function getReplacedDefComDefIns_D1_D1_D1_CK1(array, pattern, replacement)
result(arrayNew)
2371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2372 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_CK1
2375 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2376 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2377 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
2378 complex(CKG) ,
allocatable :: arrayNew(:)
2385 PURE module function getReplacedDefComDefIns_D1_D1_D1_RK5(array, pattern, replacement)
result(arrayNew)
2386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2387 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_RK5
2390 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2391 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2392 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
2393 real(RKG) ,
allocatable :: arrayNew(:)
2398 PURE module function getReplacedDefComDefIns_D1_D1_D1_RK4(array, pattern, replacement)
result(arrayNew)
2399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2400 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_RK4
2403 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2404 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2405 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
2406 real(RKG) ,
allocatable :: arrayNew(:)
2411 PURE module function getReplacedDefComDefIns_D1_D1_D1_RK3(array, pattern, replacement)
result(arrayNew)
2412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2413 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_RK3
2416 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2417 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2418 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
2419 real(RKG) ,
allocatable :: arrayNew(:)
2424 PURE module function getReplacedDefComDefIns_D1_D1_D1_RK2(array, pattern, replacement)
result(arrayNew)
2425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2426 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_RK2
2429 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2430 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2431 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
2432 real(RKG) ,
allocatable :: arrayNew(:)
2438 PURE module function getReplacedDefComDefIns_D1_D1_D1_RK1(array, pattern, replacement)
result(arrayNew)
2439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2440 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComDefIns_D1_D1_D1_RK1
2443 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2444 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2445 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
2446 real(RKG) ,
allocatable :: arrayNew(:)
2465 module function getReplacedCusComDefIns_D0_D0_D0_SK5(array, pattern, replacement, iseq)
result(arrayNew)
2466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2467 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D0_D0_D0_SK5
2470 character(
*,SKG) ,
intent(in) :: array
2471 character(
*,SKG) ,
intent(in) :: pattern
2472 character(
*,SKG) ,
intent(in) :: replacement
2474 procedure(
logical(LK)) :: iseq
2475 character(:,SKG) ,
allocatable :: arrayNew
2480 module function getReplacedCusComDefIns_D0_D0_D0_SK4(array, pattern, replacement, iseq)
result(arrayNew)
2481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2482 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D0_D0_D0_SK4
2485 character(
*,SKG) ,
intent(in) :: array
2486 character(
*,SKG) ,
intent(in) :: pattern
2487 character(
*,SKG) ,
intent(in) :: replacement
2489 procedure(
logical(LK)) :: iseq
2490 character(:,SKG) ,
allocatable :: arrayNew
2495 module function getReplacedCusComDefIns_D0_D0_D0_SK3(array, pattern, replacement, iseq)
result(arrayNew)
2496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2497 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D0_D0_D0_SK3
2500 character(
*,SKG) ,
intent(in) :: array
2501 character(
*,SKG) ,
intent(in) :: pattern
2502 character(
*,SKG) ,
intent(in) :: replacement
2504 procedure(
logical(LK)) :: iseq
2505 character(:,SKG) ,
allocatable :: arrayNew
2510 module function getReplacedCusComDefIns_D0_D0_D0_SK2(array, pattern, replacement, iseq)
result(arrayNew)
2511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2512 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D0_D0_D0_SK2
2515 character(
*,SKG) ,
intent(in) :: array
2516 character(
*,SKG) ,
intent(in) :: pattern
2517 character(
*,SKG) ,
intent(in) :: replacement
2519 procedure(
logical(LK)) :: iseq
2520 character(:,SKG) ,
allocatable :: arrayNew
2526 module function getReplacedCusComDefIns_D0_D0_D0_SK1(array, pattern, replacement, iseq)
result(arrayNew)
2527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2528 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D0_D0_D0_SK1
2531 character(
*,SKG) ,
intent(in) :: array
2532 character(
*,SKG) ,
intent(in) :: pattern
2533 character(
*,SKG) ,
intent(in) :: replacement
2535 procedure(
logical(LK)) :: iseq
2536 character(:,SKG) ,
allocatable :: arrayNew
2549 module function getReplacedCusComDefIns_D1_D0_D0_SK5(array, pattern, replacement, iseq)
result(arrayNew)
2550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2551 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_SK5
2554 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2555 character(
*,SKG) ,
intent(in) :: pattern
2556 character(
*,SKG) ,
intent(in) :: replacement
2558 procedure(
logical(LK)) :: iseq
2559 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
2564 module function getReplacedCusComDefIns_D1_D0_D0_SK4(array, pattern, replacement, iseq)
result(arrayNew)
2565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2566 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_SK4
2569 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2570 character(
*,SKG) ,
intent(in) :: pattern
2571 character(
*,SKG) ,
intent(in) :: replacement
2573 procedure(
logical(LK)) :: iseq
2574 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
2579 module function getReplacedCusComDefIns_D1_D0_D0_SK3(array, pattern, replacement, iseq)
result(arrayNew)
2580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2581 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_SK3
2584 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2585 character(
*,SKG) ,
intent(in) :: pattern
2586 character(
*,SKG) ,
intent(in) :: replacement
2588 procedure(
logical(LK)) :: iseq
2589 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
2594 module function getReplacedCusComDefIns_D1_D0_D0_SK2(array, pattern, replacement, iseq)
result(arrayNew)
2595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2596 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_SK2
2599 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2600 character(
*,SKG) ,
intent(in) :: pattern
2601 character(
*,SKG) ,
intent(in) :: replacement
2603 procedure(
logical(LK)) :: iseq
2604 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
2610 module function getReplacedCusComDefIns_D1_D0_D0_SK1(array, pattern, replacement, iseq)
result(arrayNew)
2611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2612 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_SK1
2615 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2616 character(
*,SKG) ,
intent(in) :: pattern
2617 character(
*,SKG) ,
intent(in) :: replacement
2619 procedure(
logical(LK)) :: iseq
2620 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
2627 module function getReplacedCusComDefIns_D1_D0_D0_IK5(array, pattern, replacement, iseq)
result(arrayNew)
2628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2629 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_IK5
2632 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2633 integer(IKG) ,
intent(in) :: pattern
2634 integer(IKG) ,
intent(in) :: replacement
2636 procedure(
logical(LK)) :: iseq
2637 integer(IKG) ,
allocatable :: arrayNew(:)
2642 module function getReplacedCusComDefIns_D1_D0_D0_IK4(array, pattern, replacement, iseq)
result(arrayNew)
2643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2644 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_IK4
2647 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2648 integer(IKG) ,
intent(in) :: pattern
2649 integer(IKG) ,
intent(in) :: replacement
2651 procedure(
logical(LK)) :: iseq
2652 integer(IKG) ,
allocatable :: arrayNew(:)
2657 module function getReplacedCusComDefIns_D1_D0_D0_IK3(array, pattern, replacement, iseq)
result(arrayNew)
2658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2659 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_IK3
2662 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2663 integer(IKG) ,
intent(in) :: pattern
2664 integer(IKG) ,
intent(in) :: replacement
2666 procedure(
logical(LK)) :: iseq
2667 integer(IKG) ,
allocatable :: arrayNew(:)
2672 module function getReplacedCusComDefIns_D1_D0_D0_IK2(array, pattern, replacement, iseq)
result(arrayNew)
2673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2674 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_IK2
2677 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2678 integer(IKG) ,
intent(in) :: pattern
2679 integer(IKG) ,
intent(in) :: replacement
2681 procedure(
logical(LK)) :: iseq
2682 integer(IKG) ,
allocatable :: arrayNew(:)
2688 module function getReplacedCusComDefIns_D1_D0_D0_IK1(array, pattern, replacement, iseq)
result(arrayNew)
2689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2690 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_IK1
2693 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2694 integer(IKG) ,
intent(in) :: pattern
2695 integer(IKG) ,
intent(in) :: replacement
2697 procedure(
logical(LK)) :: iseq
2698 integer(IKG) ,
allocatable :: arrayNew(:)
2705 module function getReplacedCusComDefIns_D1_D0_D0_LK5(array, pattern, replacement, iseq)
result(arrayNew)
2706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2707 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_LK5
2710 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2711 logical(LKG) ,
intent(in) :: pattern
2712 logical(LKG) ,
intent(in) :: replacement
2714 procedure(
logical(LK)) :: iseq
2715 logical(LKG) ,
allocatable :: arrayNew(:)
2720 module function getReplacedCusComDefIns_D1_D0_D0_LK4(array, pattern, replacement, iseq)
result(arrayNew)
2721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2722 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_LK4
2725 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2726 logical(LKG) ,
intent(in) :: pattern
2727 logical(LKG) ,
intent(in) :: replacement
2729 procedure(
logical(LK)) :: iseq
2730 logical(LKG) ,
allocatable :: arrayNew(:)
2735 module function getReplacedCusComDefIns_D1_D0_D0_LK3(array, pattern, replacement, iseq)
result(arrayNew)
2736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2737 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_LK3
2740 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2741 logical(LKG) ,
intent(in) :: pattern
2742 logical(LKG) ,
intent(in) :: replacement
2744 procedure(
logical(LK)) :: iseq
2745 logical(LKG) ,
allocatable :: arrayNew(:)
2750 module function getReplacedCusComDefIns_D1_D0_D0_LK2(array, pattern, replacement, iseq)
result(arrayNew)
2751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2752 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_LK2
2755 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2756 logical(LKG) ,
intent(in) :: pattern
2757 logical(LKG) ,
intent(in) :: replacement
2759 procedure(
logical(LK)) :: iseq
2760 logical(LKG) ,
allocatable :: arrayNew(:)
2766 module function getReplacedCusComDefIns_D1_D0_D0_LK1(array, pattern, replacement, iseq)
result(arrayNew)
2767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2768 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_LK1
2771 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2772 logical(LKG) ,
intent(in) :: pattern
2773 logical(LKG) ,
intent(in) :: replacement
2775 procedure(
logical(LK)) :: iseq
2776 logical(LKG) ,
allocatable :: arrayNew(:)
2783 module function getReplacedCusComDefIns_D1_D0_D0_CK5(array, pattern, replacement, iseq)
result(arrayNew)
2784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2785 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_CK5
2788 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2789 complex(CKG) ,
intent(in) :: pattern
2790 complex(CKG) ,
intent(in) :: replacement
2792 procedure(
logical(LK)) :: iseq
2793 complex(CKG) ,
allocatable :: arrayNew(:)
2798 module function getReplacedCusComDefIns_D1_D0_D0_CK4(array, pattern, replacement, iseq)
result(arrayNew)
2799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2800 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_CK4
2803 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2804 complex(CKG) ,
intent(in) :: pattern
2805 complex(CKG) ,
intent(in) :: replacement
2807 procedure(
logical(LK)) :: iseq
2808 complex(CKG) ,
allocatable :: arrayNew(:)
2813 module function getReplacedCusComDefIns_D1_D0_D0_CK3(array, pattern, replacement, iseq)
result(arrayNew)
2814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2815 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_CK3
2818 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2819 complex(CKG) ,
intent(in) :: pattern
2820 complex(CKG) ,
intent(in) :: replacement
2822 procedure(
logical(LK)) :: iseq
2823 complex(CKG) ,
allocatable :: arrayNew(:)
2828 module function getReplacedCusComDefIns_D1_D0_D0_CK2(array, pattern, replacement, iseq)
result(arrayNew)
2829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2830 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_CK2
2833 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2834 complex(CKG) ,
intent(in) :: pattern
2835 complex(CKG) ,
intent(in) :: replacement
2837 procedure(
logical(LK)) :: iseq
2838 complex(CKG) ,
allocatable :: arrayNew(:)
2844 module function getReplacedCusComDefIns_D1_D0_D0_CK1(array, pattern, replacement, iseq)
result(arrayNew)
2845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2846 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_CK1
2849 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2850 complex(CKG) ,
intent(in) :: pattern
2851 complex(CKG) ,
intent(in) :: replacement
2853 procedure(
logical(LK)) :: iseq
2854 complex(CKG) ,
allocatable :: arrayNew(:)
2861 module function getReplacedCusComDefIns_D1_D0_D0_RK5(array, pattern, replacement, iseq)
result(arrayNew)
2862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2863 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_RK5
2866 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2867 real(RKG) ,
intent(in) :: pattern
2868 real(RKG) ,
intent(in) :: replacement
2870 procedure(
logical(LK)) :: iseq
2871 real(RKG) ,
allocatable :: arrayNew(:)
2876 module function getReplacedCusComDefIns_D1_D0_D0_RK4(array, pattern, replacement, iseq)
result(arrayNew)
2877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2878 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_RK4
2881 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2882 real(RKG) ,
intent(in) :: pattern
2883 real(RKG) ,
intent(in) :: replacement
2885 procedure(
logical(LK)) :: iseq
2886 real(RKG) ,
allocatable :: arrayNew(:)
2891 module function getReplacedCusComDefIns_D1_D0_D0_RK3(array, pattern, replacement, iseq)
result(arrayNew)
2892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2893 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_RK3
2896 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2897 real(RKG) ,
intent(in) :: pattern
2898 real(RKG) ,
intent(in) :: replacement
2900 procedure(
logical(LK)) :: iseq
2901 real(RKG) ,
allocatable :: arrayNew(:)
2906 module function getReplacedCusComDefIns_D1_D0_D0_RK2(array, pattern, replacement, iseq)
result(arrayNew)
2907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2908 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_RK2
2911 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2912 real(RKG) ,
intent(in) :: pattern
2913 real(RKG) ,
intent(in) :: replacement
2915 procedure(
logical(LK)) :: iseq
2916 real(RKG) ,
allocatable :: arrayNew(:)
2922 module function getReplacedCusComDefIns_D1_D0_D0_RK1(array, pattern, replacement, iseq)
result(arrayNew)
2923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2924 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D0_RK1
2927 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2928 real(RKG) ,
intent(in) :: pattern
2929 real(RKG) ,
intent(in) :: replacement
2931 procedure(
logical(LK)) :: iseq
2932 real(RKG) ,
allocatable :: arrayNew(:)
2945 module function getReplacedCusComDefIns_D1_D0_D1_SK5(array, pattern, replacement, iseq)
result(arrayNew)
2946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2947 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_SK5
2950 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2951 character(
*,SKG) ,
intent(in) :: pattern
2952 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
2954 procedure(
logical(LK)) :: iseq
2955 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
2960 module function getReplacedCusComDefIns_D1_D0_D1_SK4(array, pattern, replacement, iseq)
result(arrayNew)
2961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2962 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_SK4
2965 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2966 character(
*,SKG) ,
intent(in) :: pattern
2967 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
2969 procedure(
logical(LK)) :: iseq
2970 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
2975 module function getReplacedCusComDefIns_D1_D0_D1_SK3(array, pattern, replacement, iseq)
result(arrayNew)
2976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2977 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_SK3
2980 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2981 character(
*,SKG) ,
intent(in) :: pattern
2982 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
2984 procedure(
logical(LK)) :: iseq
2985 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
2990 module function getReplacedCusComDefIns_D1_D0_D1_SK2(array, pattern, replacement, iseq)
result(arrayNew)
2991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2992 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_SK2
2995 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2996 character(
*,SKG) ,
intent(in) :: pattern
2997 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
2999 procedure(
logical(LK)) :: iseq
3000 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
3006 module function getReplacedCusComDefIns_D1_D0_D1_SK1(array, pattern, replacement, iseq)
result(arrayNew)
3007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3008 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_SK1
3011 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3012 character(
*,SKG) ,
intent(in) :: pattern
3013 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
3015 procedure(
logical(LK)) :: iseq
3016 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
3023 module function getReplacedCusComDefIns_D1_D0_D1_IK5(array, pattern, replacement, iseq)
result(arrayNew)
3024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3025 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_IK5
3028 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3029 integer(IKG) ,
intent(in) :: pattern
3030 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
3032 procedure(
logical(LK)) :: iseq
3033 integer(IKG) ,
allocatable :: arrayNew(:)
3038 module function getReplacedCusComDefIns_D1_D0_D1_IK4(array, pattern, replacement, iseq)
result(arrayNew)
3039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3040 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_IK4
3043 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3044 integer(IKG) ,
intent(in) :: pattern
3045 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
3047 procedure(
logical(LK)) :: iseq
3048 integer(IKG) ,
allocatable :: arrayNew(:)
3053 module function getReplacedCusComDefIns_D1_D0_D1_IK3(array, pattern, replacement, iseq)
result(arrayNew)
3054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3055 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_IK3
3058 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3059 integer(IKG) ,
intent(in) :: pattern
3060 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
3062 procedure(
logical(LK)) :: iseq
3063 integer(IKG) ,
allocatable :: arrayNew(:)
3068 module function getReplacedCusComDefIns_D1_D0_D1_IK2(array, pattern, replacement, iseq)
result(arrayNew)
3069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3070 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_IK2
3073 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3074 integer(IKG) ,
intent(in) :: pattern
3075 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
3077 procedure(
logical(LK)) :: iseq
3078 integer(IKG) ,
allocatable :: arrayNew(:)
3084 module function getReplacedCusComDefIns_D1_D0_D1_IK1(array, pattern, replacement, iseq)
result(arrayNew)
3085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3086 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_IK1
3089 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3090 integer(IKG) ,
intent(in) :: pattern
3091 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
3093 procedure(
logical(LK)) :: iseq
3094 integer(IKG) ,
allocatable :: arrayNew(:)
3101 module function getReplacedCusComDefIns_D1_D0_D1_LK5(array, pattern, replacement, iseq)
result(arrayNew)
3102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3103 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_LK5
3106 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3107 logical(LKG) ,
intent(in) :: pattern
3108 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
3110 procedure(
logical(LK)) :: iseq
3111 logical(LKG) ,
allocatable :: arrayNew(:)
3116 module function getReplacedCusComDefIns_D1_D0_D1_LK4(array, pattern, replacement, iseq)
result(arrayNew)
3117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3118 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_LK4
3121 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3122 logical(LKG) ,
intent(in) :: pattern
3123 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
3125 procedure(
logical(LK)) :: iseq
3126 logical(LKG) ,
allocatable :: arrayNew(:)
3131 module function getReplacedCusComDefIns_D1_D0_D1_LK3(array, pattern, replacement, iseq)
result(arrayNew)
3132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3133 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_LK3
3136 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3137 logical(LKG) ,
intent(in) :: pattern
3138 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
3140 procedure(
logical(LK)) :: iseq
3141 logical(LKG) ,
allocatable :: arrayNew(:)
3146 module function getReplacedCusComDefIns_D1_D0_D1_LK2(array, pattern, replacement, iseq)
result(arrayNew)
3147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3148 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_LK2
3151 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3152 logical(LKG) ,
intent(in) :: pattern
3153 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
3155 procedure(
logical(LK)) :: iseq
3156 logical(LKG) ,
allocatable :: arrayNew(:)
3162 module function getReplacedCusComDefIns_D1_D0_D1_LK1(array, pattern, replacement, iseq)
result(arrayNew)
3163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3164 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_LK1
3167 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3168 logical(LKG) ,
intent(in) :: pattern
3169 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
3171 procedure(
logical(LK)) :: iseq
3172 logical(LKG) ,
allocatable :: arrayNew(:)
3179 module function getReplacedCusComDefIns_D1_D0_D1_CK5(array, pattern, replacement, iseq)
result(arrayNew)
3180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3181 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_CK5
3184 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3185 complex(CKG) ,
intent(in) :: pattern
3186 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
3188 procedure(
logical(LK)) :: iseq
3189 complex(CKG) ,
allocatable :: arrayNew(:)
3194 module function getReplacedCusComDefIns_D1_D0_D1_CK4(array, pattern, replacement, iseq)
result(arrayNew)
3195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3196 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_CK4
3199 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3200 complex(CKG) ,
intent(in) :: pattern
3201 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
3203 procedure(
logical(LK)) :: iseq
3204 complex(CKG) ,
allocatable :: arrayNew(:)
3209 module function getReplacedCusComDefIns_D1_D0_D1_CK3(array, pattern, replacement, iseq)
result(arrayNew)
3210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3211 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_CK3
3214 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3215 complex(CKG) ,
intent(in) :: pattern
3216 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
3218 procedure(
logical(LK)) :: iseq
3219 complex(CKG) ,
allocatable :: arrayNew(:)
3224 module function getReplacedCusComDefIns_D1_D0_D1_CK2(array, pattern, replacement, iseq)
result(arrayNew)
3225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3226 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_CK2
3229 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3230 complex(CKG) ,
intent(in) :: pattern
3231 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
3233 procedure(
logical(LK)) :: iseq
3234 complex(CKG) ,
allocatable :: arrayNew(:)
3240 module function getReplacedCusComDefIns_D1_D0_D1_CK1(array, pattern, replacement, iseq)
result(arrayNew)
3241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3242 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_CK1
3245 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3246 complex(CKG) ,
intent(in) :: pattern
3247 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
3249 procedure(
logical(LK)) :: iseq
3250 complex(CKG) ,
allocatable :: arrayNew(:)
3257 module function getReplacedCusComDefIns_D1_D0_D1_RK5(array, pattern, replacement, iseq)
result(arrayNew)
3258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3259 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_RK5
3262 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3263 real(RKG) ,
intent(in) :: pattern
3264 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
3266 procedure(
logical(LK)) :: iseq
3267 real(RKG) ,
allocatable :: arrayNew(:)
3272 module function getReplacedCusComDefIns_D1_D0_D1_RK4(array, pattern, replacement, iseq)
result(arrayNew)
3273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3274 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_RK4
3277 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3278 real(RKG) ,
intent(in) :: pattern
3279 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
3281 procedure(
logical(LK)) :: iseq
3282 real(RKG) ,
allocatable :: arrayNew(:)
3287 module function getReplacedCusComDefIns_D1_D0_D1_RK3(array, pattern, replacement, iseq)
result(arrayNew)
3288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3289 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_RK3
3292 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3293 real(RKG) ,
intent(in) :: pattern
3294 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
3296 procedure(
logical(LK)) :: iseq
3297 real(RKG) ,
allocatable :: arrayNew(:)
3302 module function getReplacedCusComDefIns_D1_D0_D1_RK2(array, pattern, replacement, iseq)
result(arrayNew)
3303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3304 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_RK2
3307 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3308 real(RKG) ,
intent(in) :: pattern
3309 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
3311 procedure(
logical(LK)) :: iseq
3312 real(RKG) ,
allocatable :: arrayNew(:)
3318 module function getReplacedCusComDefIns_D1_D0_D1_RK1(array, pattern, replacement, iseq)
result(arrayNew)
3319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3320 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D0_D1_RK1
3323 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3324 real(RKG) ,
intent(in) :: pattern
3325 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
3327 procedure(
logical(LK)) :: iseq
3328 real(RKG) ,
allocatable :: arrayNew(:)
3341 module function getReplacedCusComDefIns_D1_D1_D0_SK5(array, pattern, replacement, iseq)
result(arrayNew)
3342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3343 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_SK5
3346 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3347 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
3348 character(
*,SKG) ,
intent(in) :: replacement
3350 procedure(
logical(LK)) :: iseq
3351 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
3356 module function getReplacedCusComDefIns_D1_D1_D0_SK4(array, pattern, replacement, iseq)
result(arrayNew)
3357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3358 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_SK4
3361 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3362 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
3363 character(
*,SKG) ,
intent(in) :: replacement
3365 procedure(
logical(LK)) :: iseq
3366 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
3371 module function getReplacedCusComDefIns_D1_D1_D0_SK3(array, pattern, replacement, iseq)
result(arrayNew)
3372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3373 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_SK3
3376 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3377 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
3378 character(
*,SKG) ,
intent(in) :: replacement
3380 procedure(
logical(LK)) :: iseq
3381 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
3386 module function getReplacedCusComDefIns_D1_D1_D0_SK2(array, pattern, replacement, iseq)
result(arrayNew)
3387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3388 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_SK2
3391 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3392 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
3393 character(
*,SKG) ,
intent(in) :: replacement
3395 procedure(
logical(LK)) :: iseq
3396 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
3402 module function getReplacedCusComDefIns_D1_D1_D0_SK1(array, pattern, replacement, iseq)
result(arrayNew)
3403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3404 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_SK1
3407 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3408 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
3409 character(
*,SKG) ,
intent(in) :: replacement
3411 procedure(
logical(LK)) :: iseq
3412 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
3419 module function getReplacedCusComDefIns_D1_D1_D0_IK5(array, pattern, replacement, iseq)
result(arrayNew)
3420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3421 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_IK5
3424 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3425 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
3426 integer(IKG) ,
intent(in) :: replacement
3428 procedure(
logical(LK)) :: iseq
3429 integer(IKG) ,
allocatable :: arrayNew(:)
3434 module function getReplacedCusComDefIns_D1_D1_D0_IK4(array, pattern, replacement, iseq)
result(arrayNew)
3435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3436 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_IK4
3439 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3440 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
3441 integer(IKG) ,
intent(in) :: replacement
3443 procedure(
logical(LK)) :: iseq
3444 integer(IKG) ,
allocatable :: arrayNew(:)
3449 module function getReplacedCusComDefIns_D1_D1_D0_IK3(array, pattern, replacement, iseq)
result(arrayNew)
3450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3451 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_IK3
3454 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3455 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
3456 integer(IKG) ,
intent(in) :: replacement
3458 procedure(
logical(LK)) :: iseq
3459 integer(IKG) ,
allocatable :: arrayNew(:)
3464 module function getReplacedCusComDefIns_D1_D1_D0_IK2(array, pattern, replacement, iseq)
result(arrayNew)
3465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3466 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_IK2
3469 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3470 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
3471 integer(IKG) ,
intent(in) :: replacement
3473 procedure(
logical(LK)) :: iseq
3474 integer(IKG) ,
allocatable :: arrayNew(:)
3480 module function getReplacedCusComDefIns_D1_D1_D0_IK1(array, pattern, replacement, iseq)
result(arrayNew)
3481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3482 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_IK1
3485 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3486 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
3487 integer(IKG) ,
intent(in) :: replacement
3489 procedure(
logical(LK)) :: iseq
3490 integer(IKG) ,
allocatable :: arrayNew(:)
3497 module function getReplacedCusComDefIns_D1_D1_D0_LK5(array, pattern, replacement, iseq)
result(arrayNew)
3498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3499 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_LK5
3502 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3503 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
3504 logical(LKG) ,
intent(in) :: replacement
3506 procedure(
logical(LK)) :: iseq
3507 logical(LKG) ,
allocatable :: arrayNew(:)
3512 module function getReplacedCusComDefIns_D1_D1_D0_LK4(array, pattern, replacement, iseq)
result(arrayNew)
3513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3514 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_LK4
3517 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3518 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
3519 logical(LKG) ,
intent(in) :: replacement
3521 procedure(
logical(LK)) :: iseq
3522 logical(LKG) ,
allocatable :: arrayNew(:)
3527 module function getReplacedCusComDefIns_D1_D1_D0_LK3(array, pattern, replacement, iseq)
result(arrayNew)
3528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3529 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_LK3
3532 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3533 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
3534 logical(LKG) ,
intent(in) :: replacement
3536 procedure(
logical(LK)) :: iseq
3537 logical(LKG) ,
allocatable :: arrayNew(:)
3542 module function getReplacedCusComDefIns_D1_D1_D0_LK2(array, pattern, replacement, iseq)
result(arrayNew)
3543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3544 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_LK2
3547 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3548 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
3549 logical(LKG) ,
intent(in) :: replacement
3551 procedure(
logical(LK)) :: iseq
3552 logical(LKG) ,
allocatable :: arrayNew(:)
3558 module function getReplacedCusComDefIns_D1_D1_D0_LK1(array, pattern, replacement, iseq)
result(arrayNew)
3559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3560 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_LK1
3563 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3564 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
3565 logical(LKG) ,
intent(in) :: replacement
3567 procedure(
logical(LK)) :: iseq
3568 logical(LKG) ,
allocatable :: arrayNew(:)
3575 module function getReplacedCusComDefIns_D1_D1_D0_CK5(array, pattern, replacement, iseq)
result(arrayNew)
3576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3577 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_CK5
3580 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3581 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
3582 complex(CKG) ,
intent(in) :: replacement
3584 procedure(
logical(LK)) :: iseq
3585 complex(CKG) ,
allocatable :: arrayNew(:)
3590 module function getReplacedCusComDefIns_D1_D1_D0_CK4(array, pattern, replacement, iseq)
result(arrayNew)
3591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3592 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_CK4
3595 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3596 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
3597 complex(CKG) ,
intent(in) :: replacement
3599 procedure(
logical(LK)) :: iseq
3600 complex(CKG) ,
allocatable :: arrayNew(:)
3605 module function getReplacedCusComDefIns_D1_D1_D0_CK3(array, pattern, replacement, iseq)
result(arrayNew)
3606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3607 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_CK3
3610 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3611 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
3612 complex(CKG) ,
intent(in) :: replacement
3614 procedure(
logical(LK)) :: iseq
3615 complex(CKG) ,
allocatable :: arrayNew(:)
3620 module function getReplacedCusComDefIns_D1_D1_D0_CK2(array, pattern, replacement, iseq)
result(arrayNew)
3621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3622 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_CK2
3625 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3626 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
3627 complex(CKG) ,
intent(in) :: replacement
3629 procedure(
logical(LK)) :: iseq
3630 complex(CKG) ,
allocatable :: arrayNew(:)
3636 module function getReplacedCusComDefIns_D1_D1_D0_CK1(array, pattern, replacement, iseq)
result(arrayNew)
3637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3638 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_CK1
3641 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3642 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
3643 complex(CKG) ,
intent(in) :: replacement
3645 procedure(
logical(LK)) :: iseq
3646 complex(CKG) ,
allocatable :: arrayNew(:)
3653 module function getReplacedCusComDefIns_D1_D1_D0_RK5(array, pattern, replacement, iseq)
result(arrayNew)
3654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3655 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_RK5
3658 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3659 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
3660 real(RKG) ,
intent(in) :: replacement
3662 procedure(
logical(LK)) :: iseq
3663 real(RKG) ,
allocatable :: arrayNew(:)
3668 module function getReplacedCusComDefIns_D1_D1_D0_RK4(array, pattern, replacement, iseq)
result(arrayNew)
3669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3670 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_RK4
3673 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3674 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
3675 real(RKG) ,
intent(in) :: replacement
3677 procedure(
logical(LK)) :: iseq
3678 real(RKG) ,
allocatable :: arrayNew(:)
3683 module function getReplacedCusComDefIns_D1_D1_D0_RK3(array, pattern, replacement, iseq)
result(arrayNew)
3684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3685 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_RK3
3688 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3689 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
3690 real(RKG) ,
intent(in) :: replacement
3692 procedure(
logical(LK)) :: iseq
3693 real(RKG) ,
allocatable :: arrayNew(:)
3698 module function getReplacedCusComDefIns_D1_D1_D0_RK2(array, pattern, replacement, iseq)
result(arrayNew)
3699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3700 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_RK2
3703 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3704 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
3705 real(RKG) ,
intent(in) :: replacement
3707 procedure(
logical(LK)) :: iseq
3708 real(RKG) ,
allocatable :: arrayNew(:)
3714 module function getReplacedCusComDefIns_D1_D1_D0_RK1(array, pattern, replacement, iseq)
result(arrayNew)
3715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3716 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D0_RK1
3719 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3720 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
3721 real(RKG) ,
intent(in) :: replacement
3723 procedure(
logical(LK)) :: iseq
3724 real(RKG) ,
allocatable :: arrayNew(:)
3737 module function getReplacedCusComDefIns_D1_D1_D1_SK5(array, pattern, replacement, iseq)
result(arrayNew)
3738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3739 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_SK5
3742 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3743 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
3744 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
3746 procedure(
logical(LK)) :: iseq
3747 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
3752 module function getReplacedCusComDefIns_D1_D1_D1_SK4(array, pattern, replacement, iseq)
result(arrayNew)
3753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3754 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_SK4
3757 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3758 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
3759 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
3761 procedure(
logical(LK)) :: iseq
3762 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
3767 module function getReplacedCusComDefIns_D1_D1_D1_SK3(array, pattern, replacement, iseq)
result(arrayNew)
3768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3769 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_SK3
3772 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3773 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
3774 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
3776 procedure(
logical(LK)) :: iseq
3777 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
3782 module function getReplacedCusComDefIns_D1_D1_D1_SK2(array, pattern, replacement, iseq)
result(arrayNew)
3783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3784 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_SK2
3787 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3788 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
3789 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
3791 procedure(
logical(LK)) :: iseq
3792 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
3798 module function getReplacedCusComDefIns_D1_D1_D1_SK1(array, pattern, replacement, iseq)
result(arrayNew)
3799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3800 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_SK1
3803 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3804 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
3805 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
3807 procedure(
logical(LK)) :: iseq
3808 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
3815 module function getReplacedCusComDefIns_D1_D1_D1_IK5(array, pattern, replacement, iseq)
result(arrayNew)
3816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3817 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_IK5
3820 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3821 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
3822 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
3824 procedure(
logical(LK)) :: iseq
3825 integer(IKG) ,
allocatable :: arrayNew(:)
3830 module function getReplacedCusComDefIns_D1_D1_D1_IK4(array, pattern, replacement, iseq)
result(arrayNew)
3831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3832 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_IK4
3835 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3836 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
3837 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
3839 procedure(
logical(LK)) :: iseq
3840 integer(IKG) ,
allocatable :: arrayNew(:)
3845 module function getReplacedCusComDefIns_D1_D1_D1_IK3(array, pattern, replacement, iseq)
result(arrayNew)
3846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3847 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_IK3
3850 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3851 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
3852 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
3854 procedure(
logical(LK)) :: iseq
3855 integer(IKG) ,
allocatable :: arrayNew(:)
3860 module function getReplacedCusComDefIns_D1_D1_D1_IK2(array, pattern, replacement, iseq)
result(arrayNew)
3861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3862 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_IK2
3865 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3866 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
3867 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
3869 procedure(
logical(LK)) :: iseq
3870 integer(IKG) ,
allocatable :: arrayNew(:)
3876 module function getReplacedCusComDefIns_D1_D1_D1_IK1(array, pattern, replacement, iseq)
result(arrayNew)
3877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3878 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_IK1
3881 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3882 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
3883 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
3885 procedure(
logical(LK)) :: iseq
3886 integer(IKG) ,
allocatable :: arrayNew(:)
3893 module function getReplacedCusComDefIns_D1_D1_D1_LK5(array, pattern, replacement, iseq)
result(arrayNew)
3894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3895 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_LK5
3898 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3899 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
3900 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
3902 procedure(
logical(LK)) :: iseq
3903 logical(LKG) ,
allocatable :: arrayNew(:)
3908 module function getReplacedCusComDefIns_D1_D1_D1_LK4(array, pattern, replacement, iseq)
result(arrayNew)
3909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3910 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_LK4
3913 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3914 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
3915 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
3917 procedure(
logical(LK)) :: iseq
3918 logical(LKG) ,
allocatable :: arrayNew(:)
3923 module function getReplacedCusComDefIns_D1_D1_D1_LK3(array, pattern, replacement, iseq)
result(arrayNew)
3924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3925 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_LK3
3928 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3929 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
3930 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
3932 procedure(
logical(LK)) :: iseq
3933 logical(LKG) ,
allocatable :: arrayNew(:)
3938 module function getReplacedCusComDefIns_D1_D1_D1_LK2(array, pattern, replacement, iseq)
result(arrayNew)
3939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3940 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_LK2
3943 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3944 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
3945 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
3947 procedure(
logical(LK)) :: iseq
3948 logical(LKG) ,
allocatable :: arrayNew(:)
3954 module function getReplacedCusComDefIns_D1_D1_D1_LK1(array, pattern, replacement, iseq)
result(arrayNew)
3955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3956 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_LK1
3959 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3960 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
3961 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
3963 procedure(
logical(LK)) :: iseq
3964 logical(LKG) ,
allocatable :: arrayNew(:)
3971 module function getReplacedCusComDefIns_D1_D1_D1_CK5(array, pattern, replacement, iseq)
result(arrayNew)
3972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3973 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_CK5
3976 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3977 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
3978 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
3980 procedure(
logical(LK)) :: iseq
3981 complex(CKG) ,
allocatable :: arrayNew(:)
3986 module function getReplacedCusComDefIns_D1_D1_D1_CK4(array, pattern, replacement, iseq)
result(arrayNew)
3987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3988 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_CK4
3991 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3992 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
3993 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
3995 procedure(
logical(LK)) :: iseq
3996 complex(CKG) ,
allocatable :: arrayNew(:)
4001 module function getReplacedCusComDefIns_D1_D1_D1_CK3(array, pattern, replacement, iseq)
result(arrayNew)
4002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4003 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_CK3
4006 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4007 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
4008 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
4010 procedure(
logical(LK)) :: iseq
4011 complex(CKG) ,
allocatable :: arrayNew(:)
4016 module function getReplacedCusComDefIns_D1_D1_D1_CK2(array, pattern, replacement, iseq)
result(arrayNew)
4017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4018 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_CK2
4021 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4022 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
4023 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
4025 procedure(
logical(LK)) :: iseq
4026 complex(CKG) ,
allocatable :: arrayNew(:)
4032 module function getReplacedCusComDefIns_D1_D1_D1_CK1(array, pattern, replacement, iseq)
result(arrayNew)
4033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4034 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_CK1
4037 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4038 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
4039 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
4041 procedure(
logical(LK)) :: iseq
4042 complex(CKG) ,
allocatable :: arrayNew(:)
4049 module function getReplacedCusComDefIns_D1_D1_D1_RK5(array, pattern, replacement, iseq)
result(arrayNew)
4050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4051 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_RK5
4054 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4055 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
4056 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
4058 procedure(
logical(LK)) :: iseq
4059 real(RKG) ,
allocatable :: arrayNew(:)
4064 module function getReplacedCusComDefIns_D1_D1_D1_RK4(array, pattern, replacement, iseq)
result(arrayNew)
4065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4066 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_RK4
4069 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4070 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
4071 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
4073 procedure(
logical(LK)) :: iseq
4074 real(RKG) ,
allocatable :: arrayNew(:)
4079 module function getReplacedCusComDefIns_D1_D1_D1_RK3(array, pattern, replacement, iseq)
result(arrayNew)
4080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4081 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_RK3
4084 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4085 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
4086 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
4088 procedure(
logical(LK)) :: iseq
4089 real(RKG) ,
allocatable :: arrayNew(:)
4094 module function getReplacedCusComDefIns_D1_D1_D1_RK2(array, pattern, replacement, iseq)
result(arrayNew)
4095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4096 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_RK2
4099 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4100 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
4101 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
4103 procedure(
logical(LK)) :: iseq
4104 real(RKG) ,
allocatable :: arrayNew(:)
4110 module function getReplacedCusComDefIns_D1_D1_D1_RK1(array, pattern, replacement, iseq)
result(arrayNew)
4111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4112 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComDefIns_D1_D1_D1_RK1
4115 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4116 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
4117 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
4119 procedure(
logical(LK)) :: iseq
4120 real(RKG) ,
allocatable :: arrayNew(:)
4139 PURE module function getReplacedDefComCusIns_D0_D0_D0_SK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4141 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D0_D0_D0_SK5
4144 character(
*,SKG) ,
intent(in) :: array
4145 character(
*,SKG) ,
intent(in) :: pattern
4146 character(
*,SKG) ,
intent(in) :: replacement
4147 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4148 logical(LK) ,
intent(in) ,
optional :: sorted
4149 logical(LK) ,
intent(in) ,
optional :: unique
4150 character(:,SKG) ,
allocatable :: arrayNew
4155 PURE module function getReplacedDefComCusIns_D0_D0_D0_SK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4157 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D0_D0_D0_SK4
4160 character(
*,SKG) ,
intent(in) :: array
4161 character(
*,SKG) ,
intent(in) :: pattern
4162 character(
*,SKG) ,
intent(in) :: replacement
4163 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4164 logical(LK) ,
intent(in) ,
optional :: sorted
4165 logical(LK) ,
intent(in) ,
optional :: unique
4166 character(:,SKG) ,
allocatable :: arrayNew
4171 PURE module function getReplacedDefComCusIns_D0_D0_D0_SK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4173 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D0_D0_D0_SK3
4176 character(
*,SKG) ,
intent(in) :: array
4177 character(
*,SKG) ,
intent(in) :: pattern
4178 character(
*,SKG) ,
intent(in) :: replacement
4179 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4180 logical(LK) ,
intent(in) ,
optional :: sorted
4181 logical(LK) ,
intent(in) ,
optional :: unique
4182 character(:,SKG) ,
allocatable :: arrayNew
4187 PURE module function getReplacedDefComCusIns_D0_D0_D0_SK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4189 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D0_D0_D0_SK2
4192 character(
*,SKG) ,
intent(in) :: array
4193 character(
*,SKG) ,
intent(in) :: pattern
4194 character(
*,SKG) ,
intent(in) :: replacement
4195 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4196 logical(LK) ,
intent(in) ,
optional :: sorted
4197 logical(LK) ,
intent(in) ,
optional :: unique
4198 character(:,SKG) ,
allocatable :: arrayNew
4204 PURE module function getReplacedDefComCusIns_D0_D0_D0_SK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4206 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D0_D0_D0_SK1
4209 character(
*,SKG) ,
intent(in) :: array
4210 character(
*,SKG) ,
intent(in) :: pattern
4211 character(
*,SKG) ,
intent(in) :: replacement
4212 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4213 logical(LK) ,
intent(in) ,
optional :: sorted
4214 logical(LK) ,
intent(in) ,
optional :: unique
4215 character(:,SKG) ,
allocatable :: arrayNew
4228 PURE module function getReplacedDefComCusIns_D1_D0_D0_SK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4230 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_SK5
4233 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4234 character(
*,SKG) ,
intent(in) :: pattern
4235 character(
*,SKG) ,
intent(in) :: replacement
4236 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4237 logical(LK) ,
intent(in) ,
optional :: sorted
4238 logical(LK) ,
intent(in) ,
optional :: unique
4239 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
4244 PURE module function getReplacedDefComCusIns_D1_D0_D0_SK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4246 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_SK4
4249 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4250 character(
*,SKG) ,
intent(in) :: pattern
4251 character(
*,SKG) ,
intent(in) :: replacement
4252 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4253 logical(LK) ,
intent(in) ,
optional :: sorted
4254 logical(LK) ,
intent(in) ,
optional :: unique
4255 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
4260 PURE module function getReplacedDefComCusIns_D1_D0_D0_SK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4262 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_SK3
4265 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4266 character(
*,SKG) ,
intent(in) :: pattern
4267 character(
*,SKG) ,
intent(in) :: replacement
4268 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4269 logical(LK) ,
intent(in) ,
optional :: sorted
4270 logical(LK) ,
intent(in) ,
optional :: unique
4271 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
4276 PURE module function getReplacedDefComCusIns_D1_D0_D0_SK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4278 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_SK2
4281 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4282 character(
*,SKG) ,
intent(in) :: pattern
4283 character(
*,SKG) ,
intent(in) :: replacement
4284 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4285 logical(LK) ,
intent(in) ,
optional :: sorted
4286 logical(LK) ,
intent(in) ,
optional :: unique
4287 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
4293 PURE module function getReplacedDefComCusIns_D1_D0_D0_SK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4295 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_SK1
4298 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4299 character(
*,SKG) ,
intent(in) :: pattern
4300 character(
*,SKG) ,
intent(in) :: replacement
4301 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4302 logical(LK) ,
intent(in) ,
optional :: sorted
4303 logical(LK) ,
intent(in) ,
optional :: unique
4304 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
4311 PURE module function getReplacedDefComCusIns_D1_D0_D0_IK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4313 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_IK5
4316 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4317 integer(IKG) ,
intent(in) :: pattern
4318 integer(IKG) ,
intent(in) :: replacement
4319 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4320 logical(LK) ,
intent(in) ,
optional :: sorted
4321 logical(LK) ,
intent(in) ,
optional :: unique
4322 integer(IKG) ,
allocatable :: arrayNew(:)
4327 PURE module function getReplacedDefComCusIns_D1_D0_D0_IK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4329 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_IK4
4332 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4333 integer(IKG) ,
intent(in) :: pattern
4334 integer(IKG) ,
intent(in) :: replacement
4335 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4336 logical(LK) ,
intent(in) ,
optional :: sorted
4337 logical(LK) ,
intent(in) ,
optional :: unique
4338 integer(IKG) ,
allocatable :: arrayNew(:)
4343 PURE module function getReplacedDefComCusIns_D1_D0_D0_IK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4345 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_IK3
4348 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4349 integer(IKG) ,
intent(in) :: pattern
4350 integer(IKG) ,
intent(in) :: replacement
4351 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4352 logical(LK) ,
intent(in) ,
optional :: sorted
4353 logical(LK) ,
intent(in) ,
optional :: unique
4354 integer(IKG) ,
allocatable :: arrayNew(:)
4359 PURE module function getReplacedDefComCusIns_D1_D0_D0_IK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4361 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_IK2
4364 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4365 integer(IKG) ,
intent(in) :: pattern
4366 integer(IKG) ,
intent(in) :: replacement
4367 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4368 logical(LK) ,
intent(in) ,
optional :: sorted
4369 logical(LK) ,
intent(in) ,
optional :: unique
4370 integer(IKG) ,
allocatable :: arrayNew(:)
4376 PURE module function getReplacedDefComCusIns_D1_D0_D0_IK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4378 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_IK1
4381 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4382 integer(IKG) ,
intent(in) :: pattern
4383 integer(IKG) ,
intent(in) :: replacement
4384 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4385 logical(LK) ,
intent(in) ,
optional :: sorted
4386 logical(LK) ,
intent(in) ,
optional :: unique
4387 integer(IKG) ,
allocatable :: arrayNew(:)
4394 PURE module function getReplacedDefComCusIns_D1_D0_D0_LK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4396 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_LK5
4399 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4400 logical(LKG) ,
intent(in) :: pattern
4401 logical(LKG) ,
intent(in) :: replacement
4402 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4403 logical(LK) ,
intent(in) ,
optional :: sorted
4404 logical(LK) ,
intent(in) ,
optional :: unique
4405 logical(LKG) ,
allocatable :: arrayNew(:)
4410 PURE module function getReplacedDefComCusIns_D1_D0_D0_LK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4412 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_LK4
4415 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4416 logical(LKG) ,
intent(in) :: pattern
4417 logical(LKG) ,
intent(in) :: replacement
4418 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4419 logical(LK) ,
intent(in) ,
optional :: sorted
4420 logical(LK) ,
intent(in) ,
optional :: unique
4421 logical(LKG) ,
allocatable :: arrayNew(:)
4426 PURE module function getReplacedDefComCusIns_D1_D0_D0_LK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4428 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_LK3
4431 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4432 logical(LKG) ,
intent(in) :: pattern
4433 logical(LKG) ,
intent(in) :: replacement
4434 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4435 logical(LK) ,
intent(in) ,
optional :: sorted
4436 logical(LK) ,
intent(in) ,
optional :: unique
4437 logical(LKG) ,
allocatable :: arrayNew(:)
4442 PURE module function getReplacedDefComCusIns_D1_D0_D0_LK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4444 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_LK2
4447 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4448 logical(LKG) ,
intent(in) :: pattern
4449 logical(LKG) ,
intent(in) :: replacement
4450 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4451 logical(LK) ,
intent(in) ,
optional :: sorted
4452 logical(LK) ,
intent(in) ,
optional :: unique
4453 logical(LKG) ,
allocatable :: arrayNew(:)
4459 PURE module function getReplacedDefComCusIns_D1_D0_D0_LK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4461 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_LK1
4464 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4465 logical(LKG) ,
intent(in) :: pattern
4466 logical(LKG) ,
intent(in) :: replacement
4467 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4468 logical(LK) ,
intent(in) ,
optional :: sorted
4469 logical(LK) ,
intent(in) ,
optional :: unique
4470 logical(LKG) ,
allocatable :: arrayNew(:)
4477 PURE module function getReplacedDefComCusIns_D1_D0_D0_CK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4479 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_CK5
4482 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4483 complex(CKG) ,
intent(in) :: pattern
4484 complex(CKG) ,
intent(in) :: replacement
4485 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4486 logical(LK) ,
intent(in) ,
optional :: sorted
4487 logical(LK) ,
intent(in) ,
optional :: unique
4488 complex(CKG) ,
allocatable :: arrayNew(:)
4493 PURE module function getReplacedDefComCusIns_D1_D0_D0_CK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4495 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_CK4
4498 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4499 complex(CKG) ,
intent(in) :: pattern
4500 complex(CKG) ,
intent(in) :: replacement
4501 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4502 logical(LK) ,
intent(in) ,
optional :: sorted
4503 logical(LK) ,
intent(in) ,
optional :: unique
4504 complex(CKG) ,
allocatable :: arrayNew(:)
4509 PURE module function getReplacedDefComCusIns_D1_D0_D0_CK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4511 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_CK3
4514 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4515 complex(CKG) ,
intent(in) :: pattern
4516 complex(CKG) ,
intent(in) :: replacement
4517 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4518 logical(LK) ,
intent(in) ,
optional :: sorted
4519 logical(LK) ,
intent(in) ,
optional :: unique
4520 complex(CKG) ,
allocatable :: arrayNew(:)
4525 PURE module function getReplacedDefComCusIns_D1_D0_D0_CK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4527 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_CK2
4530 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4531 complex(CKG) ,
intent(in) :: pattern
4532 complex(CKG) ,
intent(in) :: replacement
4533 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4534 logical(LK) ,
intent(in) ,
optional :: sorted
4535 logical(LK) ,
intent(in) ,
optional :: unique
4536 complex(CKG) ,
allocatable :: arrayNew(:)
4542 PURE module function getReplacedDefComCusIns_D1_D0_D0_CK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4544 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_CK1
4547 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4548 complex(CKG) ,
intent(in) :: pattern
4549 complex(CKG) ,
intent(in) :: replacement
4550 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4551 logical(LK) ,
intent(in) ,
optional :: sorted
4552 logical(LK) ,
intent(in) ,
optional :: unique
4553 complex(CKG) ,
allocatable :: arrayNew(:)
4560 PURE module function getReplacedDefComCusIns_D1_D0_D0_RK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4562 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_RK5
4565 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4566 real(RKG) ,
intent(in) :: pattern
4567 real(RKG) ,
intent(in) :: replacement
4568 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4569 logical(LK) ,
intent(in) ,
optional :: sorted
4570 logical(LK) ,
intent(in) ,
optional :: unique
4571 real(RKG) ,
allocatable :: arrayNew(:)
4576 PURE module function getReplacedDefComCusIns_D1_D0_D0_RK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4578 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_RK4
4581 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4582 real(RKG) ,
intent(in) :: pattern
4583 real(RKG) ,
intent(in) :: replacement
4584 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4585 logical(LK) ,
intent(in) ,
optional :: sorted
4586 logical(LK) ,
intent(in) ,
optional :: unique
4587 real(RKG) ,
allocatable :: arrayNew(:)
4592 PURE module function getReplacedDefComCusIns_D1_D0_D0_RK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4594 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_RK3
4597 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4598 real(RKG) ,
intent(in) :: pattern
4599 real(RKG) ,
intent(in) :: replacement
4600 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4601 logical(LK) ,
intent(in) ,
optional :: sorted
4602 logical(LK) ,
intent(in) ,
optional :: unique
4603 real(RKG) ,
allocatable :: arrayNew(:)
4608 PURE module function getReplacedDefComCusIns_D1_D0_D0_RK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4610 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_RK2
4613 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4614 real(RKG) ,
intent(in) :: pattern
4615 real(RKG) ,
intent(in) :: replacement
4616 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4617 logical(LK) ,
intent(in) ,
optional :: sorted
4618 logical(LK) ,
intent(in) ,
optional :: unique
4619 real(RKG) ,
allocatable :: arrayNew(:)
4625 PURE module function getReplacedDefComCusIns_D1_D0_D0_RK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4627 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D0_RK1
4630 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4631 real(RKG) ,
intent(in) :: pattern
4632 real(RKG) ,
intent(in) :: replacement
4633 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4634 logical(LK) ,
intent(in) ,
optional :: sorted
4635 logical(LK) ,
intent(in) ,
optional :: unique
4636 real(RKG) ,
allocatable :: arrayNew(:)
4649 PURE module function getReplacedDefComCusIns_D1_D0_D1_SK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4651 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_SK5
4654 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4655 character(
*,SKG) ,
intent(in) :: pattern
4656 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
4657 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4658 logical(LK) ,
intent(in) ,
optional :: sorted
4659 logical(LK) ,
intent(in) ,
optional :: unique
4660 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
4665 PURE module function getReplacedDefComCusIns_D1_D0_D1_SK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4667 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_SK4
4670 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4671 character(
*,SKG) ,
intent(in) :: pattern
4672 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
4673 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4674 logical(LK) ,
intent(in) ,
optional :: sorted
4675 logical(LK) ,
intent(in) ,
optional :: unique
4676 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
4681 PURE module function getReplacedDefComCusIns_D1_D0_D1_SK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4683 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_SK3
4686 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4687 character(
*,SKG) ,
intent(in) :: pattern
4688 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
4689 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4690 logical(LK) ,
intent(in) ,
optional :: sorted
4691 logical(LK) ,
intent(in) ,
optional :: unique
4692 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
4697 PURE module function getReplacedDefComCusIns_D1_D0_D1_SK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4699 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_SK2
4702 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4703 character(
*,SKG) ,
intent(in) :: pattern
4704 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
4705 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4706 logical(LK) ,
intent(in) ,
optional :: sorted
4707 logical(LK) ,
intent(in) ,
optional :: unique
4708 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
4714 PURE module function getReplacedDefComCusIns_D1_D0_D1_SK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4716 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_SK1
4719 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4720 character(
*,SKG) ,
intent(in) :: pattern
4721 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
4722 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4723 logical(LK) ,
intent(in) ,
optional :: sorted
4724 logical(LK) ,
intent(in) ,
optional :: unique
4725 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
4732 PURE module function getReplacedDefComCusIns_D1_D0_D1_IK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4734 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_IK5
4737 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4738 integer(IKG) ,
intent(in) :: pattern
4739 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
4740 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4741 logical(LK) ,
intent(in) ,
optional :: sorted
4742 logical(LK) ,
intent(in) ,
optional :: unique
4743 integer(IKG) ,
allocatable :: arrayNew(:)
4748 PURE module function getReplacedDefComCusIns_D1_D0_D1_IK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4750 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_IK4
4753 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4754 integer(IKG) ,
intent(in) :: pattern
4755 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
4756 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4757 logical(LK) ,
intent(in) ,
optional :: sorted
4758 logical(LK) ,
intent(in) ,
optional :: unique
4759 integer(IKG) ,
allocatable :: arrayNew(:)
4764 PURE module function getReplacedDefComCusIns_D1_D0_D1_IK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4766 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_IK3
4769 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4770 integer(IKG) ,
intent(in) :: pattern
4771 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
4772 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4773 logical(LK) ,
intent(in) ,
optional :: sorted
4774 logical(LK) ,
intent(in) ,
optional :: unique
4775 integer(IKG) ,
allocatable :: arrayNew(:)
4780 PURE module function getReplacedDefComCusIns_D1_D0_D1_IK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4782 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_IK2
4785 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4786 integer(IKG) ,
intent(in) :: pattern
4787 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
4788 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4789 logical(LK) ,
intent(in) ,
optional :: sorted
4790 logical(LK) ,
intent(in) ,
optional :: unique
4791 integer(IKG) ,
allocatable :: arrayNew(:)
4797 PURE module function getReplacedDefComCusIns_D1_D0_D1_IK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4799 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_IK1
4802 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4803 integer(IKG) ,
intent(in) :: pattern
4804 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
4805 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4806 logical(LK) ,
intent(in) ,
optional :: sorted
4807 logical(LK) ,
intent(in) ,
optional :: unique
4808 integer(IKG) ,
allocatable :: arrayNew(:)
4815 PURE module function getReplacedDefComCusIns_D1_D0_D1_LK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4817 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_LK5
4820 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4821 logical(LKG) ,
intent(in) :: pattern
4822 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
4823 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4824 logical(LK) ,
intent(in) ,
optional :: sorted
4825 logical(LK) ,
intent(in) ,
optional :: unique
4826 logical(LKG) ,
allocatable :: arrayNew(:)
4831 PURE module function getReplacedDefComCusIns_D1_D0_D1_LK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4833 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_LK4
4836 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4837 logical(LKG) ,
intent(in) :: pattern
4838 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
4839 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4840 logical(LK) ,
intent(in) ,
optional :: sorted
4841 logical(LK) ,
intent(in) ,
optional :: unique
4842 logical(LKG) ,
allocatable :: arrayNew(:)
4847 PURE module function getReplacedDefComCusIns_D1_D0_D1_LK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4849 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_LK3
4852 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4853 logical(LKG) ,
intent(in) :: pattern
4854 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
4855 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4856 logical(LK) ,
intent(in) ,
optional :: sorted
4857 logical(LK) ,
intent(in) ,
optional :: unique
4858 logical(LKG) ,
allocatable :: arrayNew(:)
4863 PURE module function getReplacedDefComCusIns_D1_D0_D1_LK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4865 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_LK2
4868 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4869 logical(LKG) ,
intent(in) :: pattern
4870 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
4871 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4872 logical(LK) ,
intent(in) ,
optional :: sorted
4873 logical(LK) ,
intent(in) ,
optional :: unique
4874 logical(LKG) ,
allocatable :: arrayNew(:)
4880 PURE module function getReplacedDefComCusIns_D1_D0_D1_LK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4882 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_LK1
4885 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4886 logical(LKG) ,
intent(in) :: pattern
4887 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
4888 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4889 logical(LK) ,
intent(in) ,
optional :: sorted
4890 logical(LK) ,
intent(in) ,
optional :: unique
4891 logical(LKG) ,
allocatable :: arrayNew(:)
4898 PURE module function getReplacedDefComCusIns_D1_D0_D1_CK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4900 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_CK5
4903 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4904 complex(CKG) ,
intent(in) :: pattern
4905 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
4906 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4907 logical(LK) ,
intent(in) ,
optional :: sorted
4908 logical(LK) ,
intent(in) ,
optional :: unique
4909 complex(CKG) ,
allocatable :: arrayNew(:)
4914 PURE module function getReplacedDefComCusIns_D1_D0_D1_CK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4916 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_CK4
4919 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4920 complex(CKG) ,
intent(in) :: pattern
4921 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
4922 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4923 logical(LK) ,
intent(in) ,
optional :: sorted
4924 logical(LK) ,
intent(in) ,
optional :: unique
4925 complex(CKG) ,
allocatable :: arrayNew(:)
4930 PURE module function getReplacedDefComCusIns_D1_D0_D1_CK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4932 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_CK3
4935 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4936 complex(CKG) ,
intent(in) :: pattern
4937 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
4938 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4939 logical(LK) ,
intent(in) ,
optional :: sorted
4940 logical(LK) ,
intent(in) ,
optional :: unique
4941 complex(CKG) ,
allocatable :: arrayNew(:)
4946 PURE module function getReplacedDefComCusIns_D1_D0_D1_CK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4948 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_CK2
4951 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4952 complex(CKG) ,
intent(in) :: pattern
4953 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
4954 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4955 logical(LK) ,
intent(in) ,
optional :: sorted
4956 logical(LK) ,
intent(in) ,
optional :: unique
4957 complex(CKG) ,
allocatable :: arrayNew(:)
4963 PURE module function getReplacedDefComCusIns_D1_D0_D1_CK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4965 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_CK1
4968 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4969 complex(CKG) ,
intent(in) :: pattern
4970 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
4971 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4972 logical(LK) ,
intent(in) ,
optional :: sorted
4973 logical(LK) ,
intent(in) ,
optional :: unique
4974 complex(CKG) ,
allocatable :: arrayNew(:)
4981 PURE module function getReplacedDefComCusIns_D1_D0_D1_RK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4983 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_RK5
4986 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4987 real(RKG) ,
intent(in) :: pattern
4988 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
4989 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
4990 logical(LK) ,
intent(in) ,
optional :: sorted
4991 logical(LK) ,
intent(in) ,
optional :: unique
4992 real(RKG) ,
allocatable :: arrayNew(:)
4997 PURE module function getReplacedDefComCusIns_D1_D0_D1_RK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
4998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4999 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_RK4
5002 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5003 real(RKG) ,
intent(in) :: pattern
5004 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
5005 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5006 logical(LK) ,
intent(in) ,
optional :: sorted
5007 logical(LK) ,
intent(in) ,
optional :: unique
5008 real(RKG) ,
allocatable :: arrayNew(:)
5013 PURE module function getReplacedDefComCusIns_D1_D0_D1_RK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5015 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_RK3
5018 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5019 real(RKG) ,
intent(in) :: pattern
5020 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
5021 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5022 logical(LK) ,
intent(in) ,
optional :: sorted
5023 logical(LK) ,
intent(in) ,
optional :: unique
5024 real(RKG) ,
allocatable :: arrayNew(:)
5029 PURE module function getReplacedDefComCusIns_D1_D0_D1_RK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5031 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_RK2
5034 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5035 real(RKG) ,
intent(in) :: pattern
5036 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
5037 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5038 logical(LK) ,
intent(in) ,
optional :: sorted
5039 logical(LK) ,
intent(in) ,
optional :: unique
5040 real(RKG) ,
allocatable :: arrayNew(:)
5046 PURE module function getReplacedDefComCusIns_D1_D0_D1_RK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5048 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D0_D1_RK1
5051 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5052 real(RKG) ,
intent(in) :: pattern
5053 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
5054 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5055 logical(LK) ,
intent(in) ,
optional :: sorted
5056 logical(LK) ,
intent(in) ,
optional :: unique
5057 real(RKG) ,
allocatable :: arrayNew(:)
5070 PURE module function getReplacedDefComCusIns_D1_D1_D0_SK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5072 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_SK5
5075 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5076 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5077 character(
*,SKG) ,
intent(in) :: replacement
5078 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5079 logical(LK) ,
intent(in) ,
optional :: sorted
5080 logical(LK) ,
intent(in) ,
optional :: unique
5081 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
5086 PURE module function getReplacedDefComCusIns_D1_D1_D0_SK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5088 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_SK4
5091 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5092 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5093 character(
*,SKG) ,
intent(in) :: replacement
5094 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5095 logical(LK) ,
intent(in) ,
optional :: sorted
5096 logical(LK) ,
intent(in) ,
optional :: unique
5097 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
5102 PURE module function getReplacedDefComCusIns_D1_D1_D0_SK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5104 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_SK3
5107 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5108 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5109 character(
*,SKG) ,
intent(in) :: replacement
5110 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5111 logical(LK) ,
intent(in) ,
optional :: sorted
5112 logical(LK) ,
intent(in) ,
optional :: unique
5113 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
5118 PURE module function getReplacedDefComCusIns_D1_D1_D0_SK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5120 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_SK2
5123 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5124 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5125 character(
*,SKG) ,
intent(in) :: replacement
5126 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5127 logical(LK) ,
intent(in) ,
optional :: sorted
5128 logical(LK) ,
intent(in) ,
optional :: unique
5129 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
5135 PURE module function getReplacedDefComCusIns_D1_D1_D0_SK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5137 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_SK1
5140 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5141 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5142 character(
*,SKG) ,
intent(in) :: replacement
5143 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5144 logical(LK) ,
intent(in) ,
optional :: sorted
5145 logical(LK) ,
intent(in) ,
optional :: unique
5146 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
5153 PURE module function getReplacedDefComCusIns_D1_D1_D0_IK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5155 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_IK5
5158 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5159 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5160 integer(IKG) ,
intent(in) :: replacement
5161 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5162 logical(LK) ,
intent(in) ,
optional :: sorted
5163 logical(LK) ,
intent(in) ,
optional :: unique
5164 integer(IKG) ,
allocatable :: arrayNew(:)
5169 PURE module function getReplacedDefComCusIns_D1_D1_D0_IK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5171 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_IK4
5174 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5175 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5176 integer(IKG) ,
intent(in) :: replacement
5177 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5178 logical(LK) ,
intent(in) ,
optional :: sorted
5179 logical(LK) ,
intent(in) ,
optional :: unique
5180 integer(IKG) ,
allocatable :: arrayNew(:)
5185 PURE module function getReplacedDefComCusIns_D1_D1_D0_IK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5187 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_IK3
5190 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5191 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5192 integer(IKG) ,
intent(in) :: replacement
5193 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5194 logical(LK) ,
intent(in) ,
optional :: sorted
5195 logical(LK) ,
intent(in) ,
optional :: unique
5196 integer(IKG) ,
allocatable :: arrayNew(:)
5201 PURE module function getReplacedDefComCusIns_D1_D1_D0_IK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5203 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_IK2
5206 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5207 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5208 integer(IKG) ,
intent(in) :: replacement
5209 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5210 logical(LK) ,
intent(in) ,
optional :: sorted
5211 logical(LK) ,
intent(in) ,
optional :: unique
5212 integer(IKG) ,
allocatable :: arrayNew(:)
5218 PURE module function getReplacedDefComCusIns_D1_D1_D0_IK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5220 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_IK1
5223 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5224 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5225 integer(IKG) ,
intent(in) :: replacement
5226 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5227 logical(LK) ,
intent(in) ,
optional :: sorted
5228 logical(LK) ,
intent(in) ,
optional :: unique
5229 integer(IKG) ,
allocatable :: arrayNew(:)
5236 PURE module function getReplacedDefComCusIns_D1_D1_D0_LK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5238 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_LK5
5241 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5242 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5243 logical(LKG) ,
intent(in) :: replacement
5244 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5245 logical(LK) ,
intent(in) ,
optional :: sorted
5246 logical(LK) ,
intent(in) ,
optional :: unique
5247 logical(LKG) ,
allocatable :: arrayNew(:)
5252 PURE module function getReplacedDefComCusIns_D1_D1_D0_LK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5254 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_LK4
5257 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5258 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5259 logical(LKG) ,
intent(in) :: replacement
5260 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5261 logical(LK) ,
intent(in) ,
optional :: sorted
5262 logical(LK) ,
intent(in) ,
optional :: unique
5263 logical(LKG) ,
allocatable :: arrayNew(:)
5268 PURE module function getReplacedDefComCusIns_D1_D1_D0_LK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5270 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_LK3
5273 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5274 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5275 logical(LKG) ,
intent(in) :: replacement
5276 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5277 logical(LK) ,
intent(in) ,
optional :: sorted
5278 logical(LK) ,
intent(in) ,
optional :: unique
5279 logical(LKG) ,
allocatable :: arrayNew(:)
5284 PURE module function getReplacedDefComCusIns_D1_D1_D0_LK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5286 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_LK2
5289 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5290 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5291 logical(LKG) ,
intent(in) :: replacement
5292 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5293 logical(LK) ,
intent(in) ,
optional :: sorted
5294 logical(LK) ,
intent(in) ,
optional :: unique
5295 logical(LKG) ,
allocatable :: arrayNew(:)
5301 PURE module function getReplacedDefComCusIns_D1_D1_D0_LK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5303 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_LK1
5306 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5307 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5308 logical(LKG) ,
intent(in) :: replacement
5309 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5310 logical(LK) ,
intent(in) ,
optional :: sorted
5311 logical(LK) ,
intent(in) ,
optional :: unique
5312 logical(LKG) ,
allocatable :: arrayNew(:)
5319 PURE module function getReplacedDefComCusIns_D1_D1_D0_CK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5321 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_CK5
5324 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5325 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5326 complex(CKG) ,
intent(in) :: replacement
5327 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5328 logical(LK) ,
intent(in) ,
optional :: sorted
5329 logical(LK) ,
intent(in) ,
optional :: unique
5330 complex(CKG) ,
allocatable :: arrayNew(:)
5335 PURE module function getReplacedDefComCusIns_D1_D1_D0_CK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5337 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_CK4
5340 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5341 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5342 complex(CKG) ,
intent(in) :: replacement
5343 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5344 logical(LK) ,
intent(in) ,
optional :: sorted
5345 logical(LK) ,
intent(in) ,
optional :: unique
5346 complex(CKG) ,
allocatable :: arrayNew(:)
5351 PURE module function getReplacedDefComCusIns_D1_D1_D0_CK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5353 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_CK3
5356 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5357 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5358 complex(CKG) ,
intent(in) :: replacement
5359 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5360 logical(LK) ,
intent(in) ,
optional :: sorted
5361 logical(LK) ,
intent(in) ,
optional :: unique
5362 complex(CKG) ,
allocatable :: arrayNew(:)
5367 PURE module function getReplacedDefComCusIns_D1_D1_D0_CK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5369 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_CK2
5372 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5373 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5374 complex(CKG) ,
intent(in) :: replacement
5375 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5376 logical(LK) ,
intent(in) ,
optional :: sorted
5377 logical(LK) ,
intent(in) ,
optional :: unique
5378 complex(CKG) ,
allocatable :: arrayNew(:)
5384 PURE module function getReplacedDefComCusIns_D1_D1_D0_CK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5386 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_CK1
5389 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5390 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5391 complex(CKG) ,
intent(in) :: replacement
5392 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5393 logical(LK) ,
intent(in) ,
optional :: sorted
5394 logical(LK) ,
intent(in) ,
optional :: unique
5395 complex(CKG) ,
allocatable :: arrayNew(:)
5402 PURE module function getReplacedDefComCusIns_D1_D1_D0_RK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5404 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_RK5
5407 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5408 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
5409 real(RKG) ,
intent(in) :: replacement
5410 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5411 logical(LK) ,
intent(in) ,
optional :: sorted
5412 logical(LK) ,
intent(in) ,
optional :: unique
5413 real(RKG) ,
allocatable :: arrayNew(:)
5418 PURE module function getReplacedDefComCusIns_D1_D1_D0_RK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5420 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_RK4
5423 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5424 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
5425 real(RKG) ,
intent(in) :: replacement
5426 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5427 logical(LK) ,
intent(in) ,
optional :: sorted
5428 logical(LK) ,
intent(in) ,
optional :: unique
5429 real(RKG) ,
allocatable :: arrayNew(:)
5434 PURE module function getReplacedDefComCusIns_D1_D1_D0_RK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5436 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_RK3
5439 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5440 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
5441 real(RKG) ,
intent(in) :: replacement
5442 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5443 logical(LK) ,
intent(in) ,
optional :: sorted
5444 logical(LK) ,
intent(in) ,
optional :: unique
5445 real(RKG) ,
allocatable :: arrayNew(:)
5450 PURE module function getReplacedDefComCusIns_D1_D1_D0_RK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5452 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_RK2
5455 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5456 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
5457 real(RKG) ,
intent(in) :: replacement
5458 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5459 logical(LK) ,
intent(in) ,
optional :: sorted
5460 logical(LK) ,
intent(in) ,
optional :: unique
5461 real(RKG) ,
allocatable :: arrayNew(:)
5467 PURE module function getReplacedDefComCusIns_D1_D1_D0_RK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5469 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D0_RK1
5472 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5473 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
5474 real(RKG) ,
intent(in) :: replacement
5475 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5476 logical(LK) ,
intent(in) ,
optional :: sorted
5477 logical(LK) ,
intent(in) ,
optional :: unique
5478 real(RKG) ,
allocatable :: arrayNew(:)
5491 PURE module function getReplacedDefComCusIns_D1_D1_D1_SK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5493 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_SK5
5496 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5497 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5498 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
5499 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5500 logical(LK) ,
intent(in) ,
optional :: sorted
5501 logical(LK) ,
intent(in) ,
optional :: unique
5502 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
5507 PURE module function getReplacedDefComCusIns_D1_D1_D1_SK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5509 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_SK4
5512 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5513 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5514 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
5515 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5516 logical(LK) ,
intent(in) ,
optional :: sorted
5517 logical(LK) ,
intent(in) ,
optional :: unique
5518 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
5523 PURE module function getReplacedDefComCusIns_D1_D1_D1_SK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5525 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_SK3
5528 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5529 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5530 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
5531 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5532 logical(LK) ,
intent(in) ,
optional :: sorted
5533 logical(LK) ,
intent(in) ,
optional :: unique
5534 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
5539 PURE module function getReplacedDefComCusIns_D1_D1_D1_SK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5541 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_SK2
5544 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5545 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5546 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
5547 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5548 logical(LK) ,
intent(in) ,
optional :: sorted
5549 logical(LK) ,
intent(in) ,
optional :: unique
5550 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
5556 PURE module function getReplacedDefComCusIns_D1_D1_D1_SK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5558 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_SK1
5561 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5562 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5563 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
5564 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5565 logical(LK) ,
intent(in) ,
optional :: sorted
5566 logical(LK) ,
intent(in) ,
optional :: unique
5567 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
5574 PURE module function getReplacedDefComCusIns_D1_D1_D1_IK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5576 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_IK5
5579 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5580 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5581 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
5582 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5583 logical(LK) ,
intent(in) ,
optional :: sorted
5584 logical(LK) ,
intent(in) ,
optional :: unique
5585 integer(IKG) ,
allocatable :: arrayNew(:)
5590 PURE module function getReplacedDefComCusIns_D1_D1_D1_IK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5592 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_IK4
5595 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5596 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5597 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
5598 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5599 logical(LK) ,
intent(in) ,
optional :: sorted
5600 logical(LK) ,
intent(in) ,
optional :: unique
5601 integer(IKG) ,
allocatable :: arrayNew(:)
5606 PURE module function getReplacedDefComCusIns_D1_D1_D1_IK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5608 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_IK3
5611 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5612 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5613 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
5614 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5615 logical(LK) ,
intent(in) ,
optional :: sorted
5616 logical(LK) ,
intent(in) ,
optional :: unique
5617 integer(IKG) ,
allocatable :: arrayNew(:)
5622 PURE module function getReplacedDefComCusIns_D1_D1_D1_IK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5624 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_IK2
5627 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5628 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5629 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
5630 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5631 logical(LK) ,
intent(in) ,
optional :: sorted
5632 logical(LK) ,
intent(in) ,
optional :: unique
5633 integer(IKG) ,
allocatable :: arrayNew(:)
5639 PURE module function getReplacedDefComCusIns_D1_D1_D1_IK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5641 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_IK1
5644 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5645 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5646 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
5647 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5648 logical(LK) ,
intent(in) ,
optional :: sorted
5649 logical(LK) ,
intent(in) ,
optional :: unique
5650 integer(IKG) ,
allocatable :: arrayNew(:)
5657 PURE module function getReplacedDefComCusIns_D1_D1_D1_LK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5659 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_LK5
5662 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5663 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5664 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
5665 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5666 logical(LK) ,
intent(in) ,
optional :: sorted
5667 logical(LK) ,
intent(in) ,
optional :: unique
5668 logical(LKG) ,
allocatable :: arrayNew(:)
5673 PURE module function getReplacedDefComCusIns_D1_D1_D1_LK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5675 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_LK4
5678 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5679 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5680 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
5681 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5682 logical(LK) ,
intent(in) ,
optional :: sorted
5683 logical(LK) ,
intent(in) ,
optional :: unique
5684 logical(LKG) ,
allocatable :: arrayNew(:)
5689 PURE module function getReplacedDefComCusIns_D1_D1_D1_LK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5691 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_LK3
5694 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5695 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5696 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
5697 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5698 logical(LK) ,
intent(in) ,
optional :: sorted
5699 logical(LK) ,
intent(in) ,
optional :: unique
5700 logical(LKG) ,
allocatable :: arrayNew(:)
5705 PURE module function getReplacedDefComCusIns_D1_D1_D1_LK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5707 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_LK2
5710 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5711 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5712 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
5713 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5714 logical(LK) ,
intent(in) ,
optional :: sorted
5715 logical(LK) ,
intent(in) ,
optional :: unique
5716 logical(LKG) ,
allocatable :: arrayNew(:)
5722 PURE module function getReplacedDefComCusIns_D1_D1_D1_LK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5724 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_LK1
5727 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5728 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5729 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
5730 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5731 logical(LK) ,
intent(in) ,
optional :: sorted
5732 logical(LK) ,
intent(in) ,
optional :: unique
5733 logical(LKG) ,
allocatable :: arrayNew(:)
5740 PURE module function getReplacedDefComCusIns_D1_D1_D1_CK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5742 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_CK5
5745 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5746 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5747 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
5748 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5749 logical(LK) ,
intent(in) ,
optional :: sorted
5750 logical(LK) ,
intent(in) ,
optional :: unique
5751 complex(CKG) ,
allocatable :: arrayNew(:)
5756 PURE module function getReplacedDefComCusIns_D1_D1_D1_CK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5758 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_CK4
5761 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5762 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5763 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
5764 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5765 logical(LK) ,
intent(in) ,
optional :: sorted
5766 logical(LK) ,
intent(in) ,
optional :: unique
5767 complex(CKG) ,
allocatable :: arrayNew(:)
5772 PURE module function getReplacedDefComCusIns_D1_D1_D1_CK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5774 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_CK3
5777 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5778 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5779 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
5780 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5781 logical(LK) ,
intent(in) ,
optional :: sorted
5782 logical(LK) ,
intent(in) ,
optional :: unique
5783 complex(CKG) ,
allocatable :: arrayNew(:)
5788 PURE module function getReplacedDefComCusIns_D1_D1_D1_CK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5790 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_CK2
5793 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5794 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5795 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
5796 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5797 logical(LK) ,
intent(in) ,
optional :: sorted
5798 logical(LK) ,
intent(in) ,
optional :: unique
5799 complex(CKG) ,
allocatable :: arrayNew(:)
5805 PURE module function getReplacedDefComCusIns_D1_D1_D1_CK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5807 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_CK1
5810 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5811 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5812 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
5813 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5814 logical(LK) ,
intent(in) ,
optional :: sorted
5815 logical(LK) ,
intent(in) ,
optional :: unique
5816 complex(CKG) ,
allocatable :: arrayNew(:)
5823 PURE module function getReplacedDefComCusIns_D1_D1_D1_RK5(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5825 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_RK5
5828 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5829 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
5830 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
5831 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5832 logical(LK) ,
intent(in) ,
optional :: sorted
5833 logical(LK) ,
intent(in) ,
optional :: unique
5834 real(RKG) ,
allocatable :: arrayNew(:)
5839 PURE module function getReplacedDefComCusIns_D1_D1_D1_RK4(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5841 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_RK4
5844 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5845 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
5846 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
5847 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5848 logical(LK) ,
intent(in) ,
optional :: sorted
5849 logical(LK) ,
intent(in) ,
optional :: unique
5850 real(RKG) ,
allocatable :: arrayNew(:)
5855 PURE module function getReplacedDefComCusIns_D1_D1_D1_RK3(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5857 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_RK3
5860 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5861 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
5862 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
5863 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5864 logical(LK) ,
intent(in) ,
optional :: sorted
5865 logical(LK) ,
intent(in) ,
optional :: unique
5866 real(RKG) ,
allocatable :: arrayNew(:)
5871 PURE module function getReplacedDefComCusIns_D1_D1_D1_RK2(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5873 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_RK2
5876 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5877 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
5878 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
5879 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5880 logical(LK) ,
intent(in) ,
optional :: sorted
5881 logical(LK) ,
intent(in) ,
optional :: unique
5882 real(RKG) ,
allocatable :: arrayNew(:)
5888 PURE module function getReplacedDefComCusIns_D1_D1_D1_RK1(array, pattern, replacement, instance, sorted, unique)
result(arrayNew)
5889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5890 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedDefComCusIns_D1_D1_D1_RK1
5893 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5894 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
5895 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
5896 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5897 logical(LK) ,
intent(in) ,
optional :: sorted
5898 logical(LK) ,
intent(in) ,
optional :: unique
5899 real(RKG) ,
allocatable :: arrayNew(:)
5918 module function getReplacedCusComCusIns_D0_D0_D0_SK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
5919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5920 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D0_D0_D0_SK5
5923 character(
*,SKG) ,
intent(in) :: array
5924 character(
*,SKG) ,
intent(in) :: pattern
5925 character(
*,SKG) ,
intent(in) :: replacement
5927 procedure(
logical(LK)) :: iseq
5928 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5929 logical(LK) ,
intent(in) ,
optional :: sorted
5930 logical(LK) ,
intent(in) ,
optional :: unique
5931 character(:,SKG) ,
allocatable :: arrayNew
5936 module function getReplacedCusComCusIns_D0_D0_D0_SK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
5937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5938 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D0_D0_D0_SK4
5941 character(
*,SKG) ,
intent(in) :: array
5942 character(
*,SKG) ,
intent(in) :: pattern
5943 character(
*,SKG) ,
intent(in) :: replacement
5945 procedure(
logical(LK)) :: iseq
5946 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5947 logical(LK) ,
intent(in) ,
optional :: sorted
5948 logical(LK) ,
intent(in) ,
optional :: unique
5949 character(:,SKG) ,
allocatable :: arrayNew
5954 module function getReplacedCusComCusIns_D0_D0_D0_SK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
5955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5956 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D0_D0_D0_SK3
5959 character(
*,SKG) ,
intent(in) :: array
5960 character(
*,SKG) ,
intent(in) :: pattern
5961 character(
*,SKG) ,
intent(in) :: replacement
5963 procedure(
logical(LK)) :: iseq
5964 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5965 logical(LK) ,
intent(in) ,
optional :: sorted
5966 logical(LK) ,
intent(in) ,
optional :: unique
5967 character(:,SKG) ,
allocatable :: arrayNew
5972 module function getReplacedCusComCusIns_D0_D0_D0_SK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
5973#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5974 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D0_D0_D0_SK2
5977 character(
*,SKG) ,
intent(in) :: array
5978 character(
*,SKG) ,
intent(in) :: pattern
5979 character(
*,SKG) ,
intent(in) :: replacement
5981 procedure(
logical(LK)) :: iseq
5982 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
5983 logical(LK) ,
intent(in) ,
optional :: sorted
5984 logical(LK) ,
intent(in) ,
optional :: unique
5985 character(:,SKG) ,
allocatable :: arrayNew
5991 module function getReplacedCusComCusIns_D0_D0_D0_SK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
5992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5993 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D0_D0_D0_SK1
5996 character(
*,SKG) ,
intent(in) :: array
5997 character(
*,SKG) ,
intent(in) :: pattern
5998 character(
*,SKG) ,
intent(in) :: replacement
6000 procedure(
logical(LK)) :: iseq
6001 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6002 logical(LK) ,
intent(in) ,
optional :: sorted
6003 logical(LK) ,
intent(in) ,
optional :: unique
6004 character(:,SKG) ,
allocatable :: arrayNew
6017 module function getReplacedCusComCusIns_D1_D0_D0_SK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6019 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_SK5
6022 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
6023 character(
*,SKG) ,
intent(in) :: pattern
6024 character(
*,SKG) ,
intent(in) :: replacement
6026 procedure(
logical(LK)) :: iseq
6027 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6028 logical(LK) ,
intent(in) ,
optional :: sorted
6029 logical(LK) ,
intent(in) ,
optional :: unique
6030 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
6035 module function getReplacedCusComCusIns_D1_D0_D0_SK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6037 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_SK4
6040 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
6041 character(
*,SKG) ,
intent(in) :: pattern
6042 character(
*,SKG) ,
intent(in) :: replacement
6044 procedure(
logical(LK)) :: iseq
6045 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6046 logical(LK) ,
intent(in) ,
optional :: sorted
6047 logical(LK) ,
intent(in) ,
optional :: unique
6048 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
6053 module function getReplacedCusComCusIns_D1_D0_D0_SK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6055 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_SK3
6058 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
6059 character(
*,SKG) ,
intent(in) :: pattern
6060 character(
*,SKG) ,
intent(in) :: replacement
6062 procedure(
logical(LK)) :: iseq
6063 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6064 logical(LK) ,
intent(in) ,
optional :: sorted
6065 logical(LK) ,
intent(in) ,
optional :: unique
6066 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
6071 module function getReplacedCusComCusIns_D1_D0_D0_SK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6073 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_SK2
6076 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
6077 character(
*,SKG) ,
intent(in) :: pattern
6078 character(
*,SKG) ,
intent(in) :: replacement
6080 procedure(
logical(LK)) :: iseq
6081 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6082 logical(LK) ,
intent(in) ,
optional :: sorted
6083 logical(LK) ,
intent(in) ,
optional :: unique
6084 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
6090 module function getReplacedCusComCusIns_D1_D0_D0_SK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6092 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_SK1
6095 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
6096 character(
*,SKG) ,
intent(in) :: pattern
6097 character(
*,SKG) ,
intent(in) :: replacement
6099 procedure(
logical(LK)) :: iseq
6100 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6101 logical(LK) ,
intent(in) ,
optional :: sorted
6102 logical(LK) ,
intent(in) ,
optional :: unique
6103 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
6110 module function getReplacedCusComCusIns_D1_D0_D0_IK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6112 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_IK5
6115 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
6116 integer(IKG) ,
intent(in) :: pattern
6117 integer(IKG) ,
intent(in) :: replacement
6119 procedure(
logical(LK)) :: iseq
6120 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6121 logical(LK) ,
intent(in) ,
optional :: sorted
6122 logical(LK) ,
intent(in) ,
optional :: unique
6123 integer(IKG) ,
allocatable :: arrayNew(:)
6128 module function getReplacedCusComCusIns_D1_D0_D0_IK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6130 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_IK4
6133 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
6134 integer(IKG) ,
intent(in) :: pattern
6135 integer(IKG) ,
intent(in) :: replacement
6137 procedure(
logical(LK)) :: iseq
6138 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6139 logical(LK) ,
intent(in) ,
optional :: sorted
6140 logical(LK) ,
intent(in) ,
optional :: unique
6141 integer(IKG) ,
allocatable :: arrayNew(:)
6146 module function getReplacedCusComCusIns_D1_D0_D0_IK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6148 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_IK3
6151 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
6152 integer(IKG) ,
intent(in) :: pattern
6153 integer(IKG) ,
intent(in) :: replacement
6155 procedure(
logical(LK)) :: iseq
6156 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6157 logical(LK) ,
intent(in) ,
optional :: sorted
6158 logical(LK) ,
intent(in) ,
optional :: unique
6159 integer(IKG) ,
allocatable :: arrayNew(:)
6164 module function getReplacedCusComCusIns_D1_D0_D0_IK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6166 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_IK2
6169 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
6170 integer(IKG) ,
intent(in) :: pattern
6171 integer(IKG) ,
intent(in) :: replacement
6173 procedure(
logical(LK)) :: iseq
6174 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6175 logical(LK) ,
intent(in) ,
optional :: sorted
6176 logical(LK) ,
intent(in) ,
optional :: unique
6177 integer(IKG) ,
allocatable :: arrayNew(:)
6183 module function getReplacedCusComCusIns_D1_D0_D0_IK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6185 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_IK1
6188 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
6189 integer(IKG) ,
intent(in) :: pattern
6190 integer(IKG) ,
intent(in) :: replacement
6192 procedure(
logical(LK)) :: iseq
6193 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6194 logical(LK) ,
intent(in) ,
optional :: sorted
6195 logical(LK) ,
intent(in) ,
optional :: unique
6196 integer(IKG) ,
allocatable :: arrayNew(:)
6203 module function getReplacedCusComCusIns_D1_D0_D0_LK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6205 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_LK5
6208 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
6209 logical(LKG) ,
intent(in) :: pattern
6210 logical(LKG) ,
intent(in) :: replacement
6212 procedure(
logical(LK)) :: iseq
6213 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6214 logical(LK) ,
intent(in) ,
optional :: sorted
6215 logical(LK) ,
intent(in) ,
optional :: unique
6216 logical(LKG) ,
allocatable :: arrayNew(:)
6221 module function getReplacedCusComCusIns_D1_D0_D0_LK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6223 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_LK4
6226 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
6227 logical(LKG) ,
intent(in) :: pattern
6228 logical(LKG) ,
intent(in) :: replacement
6230 procedure(
logical(LK)) :: iseq
6231 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6232 logical(LK) ,
intent(in) ,
optional :: sorted
6233 logical(LK) ,
intent(in) ,
optional :: unique
6234 logical(LKG) ,
allocatable :: arrayNew(:)
6239 module function getReplacedCusComCusIns_D1_D0_D0_LK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6241 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_LK3
6244 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
6245 logical(LKG) ,
intent(in) :: pattern
6246 logical(LKG) ,
intent(in) :: replacement
6248 procedure(
logical(LK)) :: iseq
6249 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6250 logical(LK) ,
intent(in) ,
optional :: sorted
6251 logical(LK) ,
intent(in) ,
optional :: unique
6252 logical(LKG) ,
allocatable :: arrayNew(:)
6257 module function getReplacedCusComCusIns_D1_D0_D0_LK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6259 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_LK2
6262 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
6263 logical(LKG) ,
intent(in) :: pattern
6264 logical(LKG) ,
intent(in) :: replacement
6266 procedure(
logical(LK)) :: iseq
6267 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6268 logical(LK) ,
intent(in) ,
optional :: sorted
6269 logical(LK) ,
intent(in) ,
optional :: unique
6270 logical(LKG) ,
allocatable :: arrayNew(:)
6276 module function getReplacedCusComCusIns_D1_D0_D0_LK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6278 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_LK1
6281 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
6282 logical(LKG) ,
intent(in) :: pattern
6283 logical(LKG) ,
intent(in) :: replacement
6285 procedure(
logical(LK)) :: iseq
6286 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6287 logical(LK) ,
intent(in) ,
optional :: sorted
6288 logical(LK) ,
intent(in) ,
optional :: unique
6289 logical(LKG) ,
allocatable :: arrayNew(:)
6296 module function getReplacedCusComCusIns_D1_D0_D0_CK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6298 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_CK5
6301 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
6302 complex(CKG) ,
intent(in) :: pattern
6303 complex(CKG) ,
intent(in) :: replacement
6305 procedure(
logical(LK)) :: iseq
6306 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6307 logical(LK) ,
intent(in) ,
optional :: sorted
6308 logical(LK) ,
intent(in) ,
optional :: unique
6309 complex(CKG) ,
allocatable :: arrayNew(:)
6314 module function getReplacedCusComCusIns_D1_D0_D0_CK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6316 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_CK4
6319 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
6320 complex(CKG) ,
intent(in) :: pattern
6321 complex(CKG) ,
intent(in) :: replacement
6323 procedure(
logical(LK)) :: iseq
6324 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6325 logical(LK) ,
intent(in) ,
optional :: sorted
6326 logical(LK) ,
intent(in) ,
optional :: unique
6327 complex(CKG) ,
allocatable :: arrayNew(:)
6332 module function getReplacedCusComCusIns_D1_D0_D0_CK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6334 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_CK3
6337 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
6338 complex(CKG) ,
intent(in) :: pattern
6339 complex(CKG) ,
intent(in) :: replacement
6341 procedure(
logical(LK)) :: iseq
6342 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6343 logical(LK) ,
intent(in) ,
optional :: sorted
6344 logical(LK) ,
intent(in) ,
optional :: unique
6345 complex(CKG) ,
allocatable :: arrayNew(:)
6350 module function getReplacedCusComCusIns_D1_D0_D0_CK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6352 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_CK2
6355 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
6356 complex(CKG) ,
intent(in) :: pattern
6357 complex(CKG) ,
intent(in) :: replacement
6359 procedure(
logical(LK)) :: iseq
6360 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6361 logical(LK) ,
intent(in) ,
optional :: sorted
6362 logical(LK) ,
intent(in) ,
optional :: unique
6363 complex(CKG) ,
allocatable :: arrayNew(:)
6369 module function getReplacedCusComCusIns_D1_D0_D0_CK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6371 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_CK1
6374 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
6375 complex(CKG) ,
intent(in) :: pattern
6376 complex(CKG) ,
intent(in) :: replacement
6378 procedure(
logical(LK)) :: iseq
6379 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6380 logical(LK) ,
intent(in) ,
optional :: sorted
6381 logical(LK) ,
intent(in) ,
optional :: unique
6382 complex(CKG) ,
allocatable :: arrayNew(:)
6389 module function getReplacedCusComCusIns_D1_D0_D0_RK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6391 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_RK5
6394 real(RKG) ,
intent(in) ,
contiguous :: array(:)
6395 real(RKG) ,
intent(in) :: pattern
6396 real(RKG) ,
intent(in) :: replacement
6398 procedure(
logical(LK)) :: iseq
6399 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6400 logical(LK) ,
intent(in) ,
optional :: sorted
6401 logical(LK) ,
intent(in) ,
optional :: unique
6402 real(RKG) ,
allocatable :: arrayNew(:)
6407 module function getReplacedCusComCusIns_D1_D0_D0_RK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6409 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_RK4
6412 real(RKG) ,
intent(in) ,
contiguous :: array(:)
6413 real(RKG) ,
intent(in) :: pattern
6414 real(RKG) ,
intent(in) :: replacement
6416 procedure(
logical(LK)) :: iseq
6417 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6418 logical(LK) ,
intent(in) ,
optional :: sorted
6419 logical(LK) ,
intent(in) ,
optional :: unique
6420 real(RKG) ,
allocatable :: arrayNew(:)
6425 module function getReplacedCusComCusIns_D1_D0_D0_RK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6427 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_RK3
6430 real(RKG) ,
intent(in) ,
contiguous :: array(:)
6431 real(RKG) ,
intent(in) :: pattern
6432 real(RKG) ,
intent(in) :: replacement
6434 procedure(
logical(LK)) :: iseq
6435 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6436 logical(LK) ,
intent(in) ,
optional :: sorted
6437 logical(LK) ,
intent(in) ,
optional :: unique
6438 real(RKG) ,
allocatable :: arrayNew(:)
6443 module function getReplacedCusComCusIns_D1_D0_D0_RK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6445 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_RK2
6448 real(RKG) ,
intent(in) ,
contiguous :: array(:)
6449 real(RKG) ,
intent(in) :: pattern
6450 real(RKG) ,
intent(in) :: replacement
6452 procedure(
logical(LK)) :: iseq
6453 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6454 logical(LK) ,
intent(in) ,
optional :: sorted
6455 logical(LK) ,
intent(in) ,
optional :: unique
6456 real(RKG) ,
allocatable :: arrayNew(:)
6462 module function getReplacedCusComCusIns_D1_D0_D0_RK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6464 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D0_RK1
6467 real(RKG) ,
intent(in) ,
contiguous :: array(:)
6468 real(RKG) ,
intent(in) :: pattern
6469 real(RKG) ,
intent(in) :: replacement
6471 procedure(
logical(LK)) :: iseq
6472 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6473 logical(LK) ,
intent(in) ,
optional :: sorted
6474 logical(LK) ,
intent(in) ,
optional :: unique
6475 real(RKG) ,
allocatable :: arrayNew(:)
6488 module function getReplacedCusComCusIns_D1_D0_D1_SK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6490 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_SK5
6493 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
6494 character(
*,SKG) ,
intent(in) :: pattern
6495 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
6497 procedure(
logical(LK)) :: iseq
6498 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6499 logical(LK) ,
intent(in) ,
optional :: sorted
6500 logical(LK) ,
intent(in) ,
optional :: unique
6501 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
6506 module function getReplacedCusComCusIns_D1_D0_D1_SK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6508 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_SK4
6511 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
6512 character(
*,SKG) ,
intent(in) :: pattern
6513 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
6515 procedure(
logical(LK)) :: iseq
6516 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6517 logical(LK) ,
intent(in) ,
optional :: sorted
6518 logical(LK) ,
intent(in) ,
optional :: unique
6519 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
6524 module function getReplacedCusComCusIns_D1_D0_D1_SK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6526 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_SK3
6529 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
6530 character(
*,SKG) ,
intent(in) :: pattern
6531 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
6533 procedure(
logical(LK)) :: iseq
6534 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6535 logical(LK) ,
intent(in) ,
optional :: sorted
6536 logical(LK) ,
intent(in) ,
optional :: unique
6537 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
6542 module function getReplacedCusComCusIns_D1_D0_D1_SK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6544 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_SK2
6547 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
6548 character(
*,SKG) ,
intent(in) :: pattern
6549 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
6551 procedure(
logical(LK)) :: iseq
6552 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6553 logical(LK) ,
intent(in) ,
optional :: sorted
6554 logical(LK) ,
intent(in) ,
optional :: unique
6555 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
6561 module function getReplacedCusComCusIns_D1_D0_D1_SK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6563 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_SK1
6566 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
6567 character(
*,SKG) ,
intent(in) :: pattern
6568 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
6570 procedure(
logical(LK)) :: iseq
6571 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6572 logical(LK) ,
intent(in) ,
optional :: sorted
6573 logical(LK) ,
intent(in) ,
optional :: unique
6574 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
6581 module function getReplacedCusComCusIns_D1_D0_D1_IK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6583 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_IK5
6586 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
6587 integer(IKG) ,
intent(in) :: pattern
6588 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
6590 procedure(
logical(LK)) :: iseq
6591 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6592 logical(LK) ,
intent(in) ,
optional :: sorted
6593 logical(LK) ,
intent(in) ,
optional :: unique
6594 integer(IKG) ,
allocatable :: arrayNew(:)
6599 module function getReplacedCusComCusIns_D1_D0_D1_IK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6601 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_IK4
6604 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
6605 integer(IKG) ,
intent(in) :: pattern
6606 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
6608 procedure(
logical(LK)) :: iseq
6609 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6610 logical(LK) ,
intent(in) ,
optional :: sorted
6611 logical(LK) ,
intent(in) ,
optional :: unique
6612 integer(IKG) ,
allocatable :: arrayNew(:)
6617 module function getReplacedCusComCusIns_D1_D0_D1_IK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6619 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_IK3
6622 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
6623 integer(IKG) ,
intent(in) :: pattern
6624 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
6626 procedure(
logical(LK)) :: iseq
6627 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6628 logical(LK) ,
intent(in) ,
optional :: sorted
6629 logical(LK) ,
intent(in) ,
optional :: unique
6630 integer(IKG) ,
allocatable :: arrayNew(:)
6635 module function getReplacedCusComCusIns_D1_D0_D1_IK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6637 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_IK2
6640 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
6641 integer(IKG) ,
intent(in) :: pattern
6642 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
6644 procedure(
logical(LK)) :: iseq
6645 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6646 logical(LK) ,
intent(in) ,
optional :: sorted
6647 logical(LK) ,
intent(in) ,
optional :: unique
6648 integer(IKG) ,
allocatable :: arrayNew(:)
6654 module function getReplacedCusComCusIns_D1_D0_D1_IK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6656 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_IK1
6659 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
6660 integer(IKG) ,
intent(in) :: pattern
6661 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
6663 procedure(
logical(LK)) :: iseq
6664 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6665 logical(LK) ,
intent(in) ,
optional :: sorted
6666 logical(LK) ,
intent(in) ,
optional :: unique
6667 integer(IKG) ,
allocatable :: arrayNew(:)
6674 module function getReplacedCusComCusIns_D1_D0_D1_LK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6676 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_LK5
6679 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
6680 logical(LKG) ,
intent(in) :: pattern
6681 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
6683 procedure(
logical(LK)) :: iseq
6684 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6685 logical(LK) ,
intent(in) ,
optional :: sorted
6686 logical(LK) ,
intent(in) ,
optional :: unique
6687 logical(LKG) ,
allocatable :: arrayNew(:)
6692 module function getReplacedCusComCusIns_D1_D0_D1_LK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6694 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_LK4
6697 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
6698 logical(LKG) ,
intent(in) :: pattern
6699 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
6701 procedure(
logical(LK)) :: iseq
6702 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6703 logical(LK) ,
intent(in) ,
optional :: sorted
6704 logical(LK) ,
intent(in) ,
optional :: unique
6705 logical(LKG) ,
allocatable :: arrayNew(:)
6710 module function getReplacedCusComCusIns_D1_D0_D1_LK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6712 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_LK3
6715 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
6716 logical(LKG) ,
intent(in) :: pattern
6717 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
6719 procedure(
logical(LK)) :: iseq
6720 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6721 logical(LK) ,
intent(in) ,
optional :: sorted
6722 logical(LK) ,
intent(in) ,
optional :: unique
6723 logical(LKG) ,
allocatable :: arrayNew(:)
6728 module function getReplacedCusComCusIns_D1_D0_D1_LK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6730 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_LK2
6733 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
6734 logical(LKG) ,
intent(in) :: pattern
6735 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
6737 procedure(
logical(LK)) :: iseq
6738 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6739 logical(LK) ,
intent(in) ,
optional :: sorted
6740 logical(LK) ,
intent(in) ,
optional :: unique
6741 logical(LKG) ,
allocatable :: arrayNew(:)
6747 module function getReplacedCusComCusIns_D1_D0_D1_LK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6749 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_LK1
6752 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
6753 logical(LKG) ,
intent(in) :: pattern
6754 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
6756 procedure(
logical(LK)) :: iseq
6757 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6758 logical(LK) ,
intent(in) ,
optional :: sorted
6759 logical(LK) ,
intent(in) ,
optional :: unique
6760 logical(LKG) ,
allocatable :: arrayNew(:)
6767 module function getReplacedCusComCusIns_D1_D0_D1_CK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6769 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_CK5
6772 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
6773 complex(CKG) ,
intent(in) :: pattern
6774 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
6776 procedure(
logical(LK)) :: iseq
6777 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6778 logical(LK) ,
intent(in) ,
optional :: sorted
6779 logical(LK) ,
intent(in) ,
optional :: unique
6780 complex(CKG) ,
allocatable :: arrayNew(:)
6785 module function getReplacedCusComCusIns_D1_D0_D1_CK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6787 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_CK4
6790 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
6791 complex(CKG) ,
intent(in) :: pattern
6792 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
6794 procedure(
logical(LK)) :: iseq
6795 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6796 logical(LK) ,
intent(in) ,
optional :: sorted
6797 logical(LK) ,
intent(in) ,
optional :: unique
6798 complex(CKG) ,
allocatable :: arrayNew(:)
6803 module function getReplacedCusComCusIns_D1_D0_D1_CK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6805 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_CK3
6808 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
6809 complex(CKG) ,
intent(in) :: pattern
6810 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
6812 procedure(
logical(LK)) :: iseq
6813 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6814 logical(LK) ,
intent(in) ,
optional :: sorted
6815 logical(LK) ,
intent(in) ,
optional :: unique
6816 complex(CKG) ,
allocatable :: arrayNew(:)
6821 module function getReplacedCusComCusIns_D1_D0_D1_CK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6823 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_CK2
6826 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
6827 complex(CKG) ,
intent(in) :: pattern
6828 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
6830 procedure(
logical(LK)) :: iseq
6831 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6832 logical(LK) ,
intent(in) ,
optional :: sorted
6833 logical(LK) ,
intent(in) ,
optional :: unique
6834 complex(CKG) ,
allocatable :: arrayNew(:)
6840 module function getReplacedCusComCusIns_D1_D0_D1_CK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6842 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_CK1
6845 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
6846 complex(CKG) ,
intent(in) :: pattern
6847 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
6849 procedure(
logical(LK)) :: iseq
6850 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6851 logical(LK) ,
intent(in) ,
optional :: sorted
6852 logical(LK) ,
intent(in) ,
optional :: unique
6853 complex(CKG) ,
allocatable :: arrayNew(:)
6860 module function getReplacedCusComCusIns_D1_D0_D1_RK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6862 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_RK5
6865 real(RKG) ,
intent(in) ,
contiguous :: array(:)
6866 real(RKG) ,
intent(in) :: pattern
6867 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
6869 procedure(
logical(LK)) :: iseq
6870 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6871 logical(LK) ,
intent(in) ,
optional :: sorted
6872 logical(LK) ,
intent(in) ,
optional :: unique
6873 real(RKG) ,
allocatable :: arrayNew(:)
6878 module function getReplacedCusComCusIns_D1_D0_D1_RK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6880 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_RK4
6883 real(RKG) ,
intent(in) ,
contiguous :: array(:)
6884 real(RKG) ,
intent(in) :: pattern
6885 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
6887 procedure(
logical(LK)) :: iseq
6888 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6889 logical(LK) ,
intent(in) ,
optional :: sorted
6890 logical(LK) ,
intent(in) ,
optional :: unique
6891 real(RKG) ,
allocatable :: arrayNew(:)
6896 module function getReplacedCusComCusIns_D1_D0_D1_RK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6898 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_RK3
6901 real(RKG) ,
intent(in) ,
contiguous :: array(:)
6902 real(RKG) ,
intent(in) :: pattern
6903 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
6905 procedure(
logical(LK)) :: iseq
6906 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6907 logical(LK) ,
intent(in) ,
optional :: sorted
6908 logical(LK) ,
intent(in) ,
optional :: unique
6909 real(RKG) ,
allocatable :: arrayNew(:)
6914 module function getReplacedCusComCusIns_D1_D0_D1_RK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6916 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_RK2
6919 real(RKG) ,
intent(in) ,
contiguous :: array(:)
6920 real(RKG) ,
intent(in) :: pattern
6921 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
6923 procedure(
logical(LK)) :: iseq
6924 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6925 logical(LK) ,
intent(in) ,
optional :: sorted
6926 logical(LK) ,
intent(in) ,
optional :: unique
6927 real(RKG) ,
allocatable :: arrayNew(:)
6933 module function getReplacedCusComCusIns_D1_D0_D1_RK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6935 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D0_D1_RK1
6938 real(RKG) ,
intent(in) ,
contiguous :: array(:)
6939 real(RKG) ,
intent(in) :: pattern
6940 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
6942 procedure(
logical(LK)) :: iseq
6943 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6944 logical(LK) ,
intent(in) ,
optional :: sorted
6945 logical(LK) ,
intent(in) ,
optional :: unique
6946 real(RKG) ,
allocatable :: arrayNew(:)
6959 module function getReplacedCusComCusIns_D1_D1_D0_SK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6961 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_SK5
6964 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
6965 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
6966 character(
*,SKG) ,
intent(in) :: replacement
6968 procedure(
logical(LK)) :: iseq
6969 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6970 logical(LK) ,
intent(in) ,
optional :: sorted
6971 logical(LK) ,
intent(in) ,
optional :: unique
6972 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
6977 module function getReplacedCusComCusIns_D1_D1_D0_SK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6979 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_SK4
6982 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
6983 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
6984 character(
*,SKG) ,
intent(in) :: replacement
6986 procedure(
logical(LK)) :: iseq
6987 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
6988 logical(LK) ,
intent(in) ,
optional :: sorted
6989 logical(LK) ,
intent(in) ,
optional :: unique
6990 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
6995 module function getReplacedCusComCusIns_D1_D1_D0_SK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
6996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6997 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_SK3
7000 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
7001 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
7002 character(
*,SKG) ,
intent(in) :: replacement
7004 procedure(
logical(LK)) :: iseq
7005 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7006 logical(LK) ,
intent(in) ,
optional :: sorted
7007 logical(LK) ,
intent(in) ,
optional :: unique
7008 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
7013 module function getReplacedCusComCusIns_D1_D1_D0_SK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7015 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_SK2
7018 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
7019 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
7020 character(
*,SKG) ,
intent(in) :: replacement
7022 procedure(
logical(LK)) :: iseq
7023 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7024 logical(LK) ,
intent(in) ,
optional :: sorted
7025 logical(LK) ,
intent(in) ,
optional :: unique
7026 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
7032 module function getReplacedCusComCusIns_D1_D1_D0_SK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7034 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_SK1
7037 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
7038 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
7039 character(
*,SKG) ,
intent(in) :: replacement
7041 procedure(
logical(LK)) :: iseq
7042 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7043 logical(LK) ,
intent(in) ,
optional :: sorted
7044 logical(LK) ,
intent(in) ,
optional :: unique
7045 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
7052 module function getReplacedCusComCusIns_D1_D1_D0_IK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7054 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_IK5
7057 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
7058 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
7059 integer(IKG) ,
intent(in) :: replacement
7061 procedure(
logical(LK)) :: iseq
7062 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7063 logical(LK) ,
intent(in) ,
optional :: sorted
7064 logical(LK) ,
intent(in) ,
optional :: unique
7065 integer(IKG) ,
allocatable :: arrayNew(:)
7070 module function getReplacedCusComCusIns_D1_D1_D0_IK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7072 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_IK4
7075 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
7076 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
7077 integer(IKG) ,
intent(in) :: replacement
7079 procedure(
logical(LK)) :: iseq
7080 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7081 logical(LK) ,
intent(in) ,
optional :: sorted
7082 logical(LK) ,
intent(in) ,
optional :: unique
7083 integer(IKG) ,
allocatable :: arrayNew(:)
7088 module function getReplacedCusComCusIns_D1_D1_D0_IK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7090 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_IK3
7093 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
7094 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
7095 integer(IKG) ,
intent(in) :: replacement
7097 procedure(
logical(LK)) :: iseq
7098 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7099 logical(LK) ,
intent(in) ,
optional :: sorted
7100 logical(LK) ,
intent(in) ,
optional :: unique
7101 integer(IKG) ,
allocatable :: arrayNew(:)
7106 module function getReplacedCusComCusIns_D1_D1_D0_IK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7108 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_IK2
7111 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
7112 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
7113 integer(IKG) ,
intent(in) :: replacement
7115 procedure(
logical(LK)) :: iseq
7116 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7117 logical(LK) ,
intent(in) ,
optional :: sorted
7118 logical(LK) ,
intent(in) ,
optional :: unique
7119 integer(IKG) ,
allocatable :: arrayNew(:)
7125 module function getReplacedCusComCusIns_D1_D1_D0_IK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7127 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_IK1
7130 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
7131 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
7132 integer(IKG) ,
intent(in) :: replacement
7134 procedure(
logical(LK)) :: iseq
7135 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7136 logical(LK) ,
intent(in) ,
optional :: sorted
7137 logical(LK) ,
intent(in) ,
optional :: unique
7138 integer(IKG) ,
allocatable :: arrayNew(:)
7145 module function getReplacedCusComCusIns_D1_D1_D0_LK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7147 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_LK5
7150 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
7151 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
7152 logical(LKG) ,
intent(in) :: replacement
7154 procedure(
logical(LK)) :: iseq
7155 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7156 logical(LK) ,
intent(in) ,
optional :: sorted
7157 logical(LK) ,
intent(in) ,
optional :: unique
7158 logical(LKG) ,
allocatable :: arrayNew(:)
7163 module function getReplacedCusComCusIns_D1_D1_D0_LK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7165 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_LK4
7168 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
7169 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
7170 logical(LKG) ,
intent(in) :: replacement
7172 procedure(
logical(LK)) :: iseq
7173 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7174 logical(LK) ,
intent(in) ,
optional :: sorted
7175 logical(LK) ,
intent(in) ,
optional :: unique
7176 logical(LKG) ,
allocatable :: arrayNew(:)
7181 module function getReplacedCusComCusIns_D1_D1_D0_LK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7183 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_LK3
7186 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
7187 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
7188 logical(LKG) ,
intent(in) :: replacement
7190 procedure(
logical(LK)) :: iseq
7191 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7192 logical(LK) ,
intent(in) ,
optional :: sorted
7193 logical(LK) ,
intent(in) ,
optional :: unique
7194 logical(LKG) ,
allocatable :: arrayNew(:)
7199 module function getReplacedCusComCusIns_D1_D1_D0_LK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7201 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_LK2
7204 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
7205 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
7206 logical(LKG) ,
intent(in) :: replacement
7208 procedure(
logical(LK)) :: iseq
7209 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7210 logical(LK) ,
intent(in) ,
optional :: sorted
7211 logical(LK) ,
intent(in) ,
optional :: unique
7212 logical(LKG) ,
allocatable :: arrayNew(:)
7218 module function getReplacedCusComCusIns_D1_D1_D0_LK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7220 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_LK1
7223 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
7224 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
7225 logical(LKG) ,
intent(in) :: replacement
7227 procedure(
logical(LK)) :: iseq
7228 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7229 logical(LK) ,
intent(in) ,
optional :: sorted
7230 logical(LK) ,
intent(in) ,
optional :: unique
7231 logical(LKG) ,
allocatable :: arrayNew(:)
7238 module function getReplacedCusComCusIns_D1_D1_D0_CK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7240 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_CK5
7243 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
7244 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
7245 complex(CKG) ,
intent(in) :: replacement
7247 procedure(
logical(LK)) :: iseq
7248 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7249 logical(LK) ,
intent(in) ,
optional :: sorted
7250 logical(LK) ,
intent(in) ,
optional :: unique
7251 complex(CKG) ,
allocatable :: arrayNew(:)
7256 module function getReplacedCusComCusIns_D1_D1_D0_CK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7258 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_CK4
7261 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
7262 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
7263 complex(CKG) ,
intent(in) :: replacement
7265 procedure(
logical(LK)) :: iseq
7266 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7267 logical(LK) ,
intent(in) ,
optional :: sorted
7268 logical(LK) ,
intent(in) ,
optional :: unique
7269 complex(CKG) ,
allocatable :: arrayNew(:)
7274 module function getReplacedCusComCusIns_D1_D1_D0_CK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7276 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_CK3
7279 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
7280 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
7281 complex(CKG) ,
intent(in) :: replacement
7283 procedure(
logical(LK)) :: iseq
7284 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7285 logical(LK) ,
intent(in) ,
optional :: sorted
7286 logical(LK) ,
intent(in) ,
optional :: unique
7287 complex(CKG) ,
allocatable :: arrayNew(:)
7292 module function getReplacedCusComCusIns_D1_D1_D0_CK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7294 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_CK2
7297 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
7298 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
7299 complex(CKG) ,
intent(in) :: replacement
7301 procedure(
logical(LK)) :: iseq
7302 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7303 logical(LK) ,
intent(in) ,
optional :: sorted
7304 logical(LK) ,
intent(in) ,
optional :: unique
7305 complex(CKG) ,
allocatable :: arrayNew(:)
7311 module function getReplacedCusComCusIns_D1_D1_D0_CK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7313 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_CK1
7316 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
7317 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
7318 complex(CKG) ,
intent(in) :: replacement
7320 procedure(
logical(LK)) :: iseq
7321 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7322 logical(LK) ,
intent(in) ,
optional :: sorted
7323 logical(LK) ,
intent(in) ,
optional :: unique
7324 complex(CKG) ,
allocatable :: arrayNew(:)
7331 module function getReplacedCusComCusIns_D1_D1_D0_RK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7333 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_RK5
7336 real(RKG) ,
intent(in) ,
contiguous :: array(:)
7337 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
7338 real(RKG) ,
intent(in) :: replacement
7340 procedure(
logical(LK)) :: iseq
7341 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7342 logical(LK) ,
intent(in) ,
optional :: sorted
7343 logical(LK) ,
intent(in) ,
optional :: unique
7344 real(RKG) ,
allocatable :: arrayNew(:)
7349 module function getReplacedCusComCusIns_D1_D1_D0_RK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7351 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_RK4
7354 real(RKG) ,
intent(in) ,
contiguous :: array(:)
7355 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
7356 real(RKG) ,
intent(in) :: replacement
7358 procedure(
logical(LK)) :: iseq
7359 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7360 logical(LK) ,
intent(in) ,
optional :: sorted
7361 logical(LK) ,
intent(in) ,
optional :: unique
7362 real(RKG) ,
allocatable :: arrayNew(:)
7367 module function getReplacedCusComCusIns_D1_D1_D0_RK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7369 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_RK3
7372 real(RKG) ,
intent(in) ,
contiguous :: array(:)
7373 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
7374 real(RKG) ,
intent(in) :: replacement
7376 procedure(
logical(LK)) :: iseq
7377 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7378 logical(LK) ,
intent(in) ,
optional :: sorted
7379 logical(LK) ,
intent(in) ,
optional :: unique
7380 real(RKG) ,
allocatable :: arrayNew(:)
7385 module function getReplacedCusComCusIns_D1_D1_D0_RK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7387 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_RK2
7390 real(RKG) ,
intent(in) ,
contiguous :: array(:)
7391 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
7392 real(RKG) ,
intent(in) :: replacement
7394 procedure(
logical(LK)) :: iseq
7395 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7396 logical(LK) ,
intent(in) ,
optional :: sorted
7397 logical(LK) ,
intent(in) ,
optional :: unique
7398 real(RKG) ,
allocatable :: arrayNew(:)
7404 module function getReplacedCusComCusIns_D1_D1_D0_RK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7406 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D0_RK1
7409 real(RKG) ,
intent(in) ,
contiguous :: array(:)
7410 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
7411 real(RKG) ,
intent(in) :: replacement
7413 procedure(
logical(LK)) :: iseq
7414 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7415 logical(LK) ,
intent(in) ,
optional :: sorted
7416 logical(LK) ,
intent(in) ,
optional :: unique
7417 real(RKG) ,
allocatable :: arrayNew(:)
7430 module function getReplacedCusComCusIns_D1_D1_D1_SK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7432 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_SK5
7435 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
7436 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
7437 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
7439 procedure(
logical(LK)) :: iseq
7440 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7441 logical(LK) ,
intent(in) ,
optional :: sorted
7442 logical(LK) ,
intent(in) ,
optional :: unique
7443 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
7448 module function getReplacedCusComCusIns_D1_D1_D1_SK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7450 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_SK4
7453 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
7454 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
7455 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
7457 procedure(
logical(LK)) :: iseq
7458 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7459 logical(LK) ,
intent(in) ,
optional :: sorted
7460 logical(LK) ,
intent(in) ,
optional :: unique
7461 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
7466 module function getReplacedCusComCusIns_D1_D1_D1_SK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7468 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_SK3
7471 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
7472 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
7473 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
7475 procedure(
logical(LK)) :: iseq
7476 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7477 logical(LK) ,
intent(in) ,
optional :: sorted
7478 logical(LK) ,
intent(in) ,
optional :: unique
7479 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
7484 module function getReplacedCusComCusIns_D1_D1_D1_SK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7486 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_SK2
7489 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
7490 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
7491 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
7493 procedure(
logical(LK)) :: iseq
7494 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7495 logical(LK) ,
intent(in) ,
optional :: sorted
7496 logical(LK) ,
intent(in) ,
optional :: unique
7497 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
7503 module function getReplacedCusComCusIns_D1_D1_D1_SK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7505 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_SK1
7508 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
7509 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
7510 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
7512 procedure(
logical(LK)) :: iseq
7513 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7514 logical(LK) ,
intent(in) ,
optional :: sorted
7515 logical(LK) ,
intent(in) ,
optional :: unique
7516 character(LEN_ARRAY,SKG) ,
allocatable :: arrayNew(:)
7523 module function getReplacedCusComCusIns_D1_D1_D1_IK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7525 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_IK5
7528 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
7529 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
7530 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
7532 procedure(
logical(LK)) :: iseq
7533 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7534 logical(LK) ,
intent(in) ,
optional :: sorted
7535 logical(LK) ,
intent(in) ,
optional :: unique
7536 integer(IKG) ,
allocatable :: arrayNew(:)
7541 module function getReplacedCusComCusIns_D1_D1_D1_IK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7543 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_IK4
7546 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
7547 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
7548 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
7550 procedure(
logical(LK)) :: iseq
7551 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7552 logical(LK) ,
intent(in) ,
optional :: sorted
7553 logical(LK) ,
intent(in) ,
optional :: unique
7554 integer(IKG) ,
allocatable :: arrayNew(:)
7559 module function getReplacedCusComCusIns_D1_D1_D1_IK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7561 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_IK3
7564 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
7565 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
7566 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
7568 procedure(
logical(LK)) :: iseq
7569 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7570 logical(LK) ,
intent(in) ,
optional :: sorted
7571 logical(LK) ,
intent(in) ,
optional :: unique
7572 integer(IKG) ,
allocatable :: arrayNew(:)
7577 module function getReplacedCusComCusIns_D1_D1_D1_IK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7579 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_IK2
7582 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
7583 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
7584 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
7586 procedure(
logical(LK)) :: iseq
7587 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7588 logical(LK) ,
intent(in) ,
optional :: sorted
7589 logical(LK) ,
intent(in) ,
optional :: unique
7590 integer(IKG) ,
allocatable :: arrayNew(:)
7596 module function getReplacedCusComCusIns_D1_D1_D1_IK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7598 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_IK1
7601 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
7602 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
7603 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
7605 procedure(
logical(LK)) :: iseq
7606 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7607 logical(LK) ,
intent(in) ,
optional :: sorted
7608 logical(LK) ,
intent(in) ,
optional :: unique
7609 integer(IKG) ,
allocatable :: arrayNew(:)
7616 module function getReplacedCusComCusIns_D1_D1_D1_LK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7618 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_LK5
7621 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
7622 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
7623 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
7625 procedure(
logical(LK)) :: iseq
7626 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7627 logical(LK) ,
intent(in) ,
optional :: sorted
7628 logical(LK) ,
intent(in) ,
optional :: unique
7629 logical(LKG) ,
allocatable :: arrayNew(:)
7634 module function getReplacedCusComCusIns_D1_D1_D1_LK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7636 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_LK4
7639 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
7640 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
7641 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
7643 procedure(
logical(LK)) :: iseq
7644 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7645 logical(LK) ,
intent(in) ,
optional :: sorted
7646 logical(LK) ,
intent(in) ,
optional :: unique
7647 logical(LKG) ,
allocatable :: arrayNew(:)
7652 module function getReplacedCusComCusIns_D1_D1_D1_LK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7654 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_LK3
7657 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
7658 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
7659 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
7661 procedure(
logical(LK)) :: iseq
7662 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7663 logical(LK) ,
intent(in) ,
optional :: sorted
7664 logical(LK) ,
intent(in) ,
optional :: unique
7665 logical(LKG) ,
allocatable :: arrayNew(:)
7670 module function getReplacedCusComCusIns_D1_D1_D1_LK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7672 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_LK2
7675 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
7676 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
7677 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
7679 procedure(
logical(LK)) :: iseq
7680 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7681 logical(LK) ,
intent(in) ,
optional :: sorted
7682 logical(LK) ,
intent(in) ,
optional :: unique
7683 logical(LKG) ,
allocatable :: arrayNew(:)
7689 module function getReplacedCusComCusIns_D1_D1_D1_LK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7691 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_LK1
7694 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
7695 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
7696 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
7698 procedure(
logical(LK)) :: iseq
7699 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7700 logical(LK) ,
intent(in) ,
optional :: sorted
7701 logical(LK) ,
intent(in) ,
optional :: unique
7702 logical(LKG) ,
allocatable :: arrayNew(:)
7709 module function getReplacedCusComCusIns_D1_D1_D1_CK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7711 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_CK5
7714 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
7715 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
7716 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
7718 procedure(
logical(LK)) :: iseq
7719 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7720 logical(LK) ,
intent(in) ,
optional :: sorted
7721 logical(LK) ,
intent(in) ,
optional :: unique
7722 complex(CKG) ,
allocatable :: arrayNew(:)
7727 module function getReplacedCusComCusIns_D1_D1_D1_CK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7729 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_CK4
7732 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
7733 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
7734 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
7736 procedure(
logical(LK)) :: iseq
7737 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7738 logical(LK) ,
intent(in) ,
optional :: sorted
7739 logical(LK) ,
intent(in) ,
optional :: unique
7740 complex(CKG) ,
allocatable :: arrayNew(:)
7745 module function getReplacedCusComCusIns_D1_D1_D1_CK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7747 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_CK3
7750 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
7751 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
7752 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
7754 procedure(
logical(LK)) :: iseq
7755 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7756 logical(LK) ,
intent(in) ,
optional :: sorted
7757 logical(LK) ,
intent(in) ,
optional :: unique
7758 complex(CKG) ,
allocatable :: arrayNew(:)
7763 module function getReplacedCusComCusIns_D1_D1_D1_CK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7765 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_CK2
7768 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
7769 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
7770 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
7772 procedure(
logical(LK)) :: iseq
7773 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7774 logical(LK) ,
intent(in) ,
optional :: sorted
7775 logical(LK) ,
intent(in) ,
optional :: unique
7776 complex(CKG) ,
allocatable :: arrayNew(:)
7782 module function getReplacedCusComCusIns_D1_D1_D1_CK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7784 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_CK1
7787 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
7788 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
7789 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
7791 procedure(
logical(LK)) :: iseq
7792 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7793 logical(LK) ,
intent(in) ,
optional :: sorted
7794 logical(LK) ,
intent(in) ,
optional :: unique
7795 complex(CKG) ,
allocatable :: arrayNew(:)
7802 module function getReplacedCusComCusIns_D1_D1_D1_RK5(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7804 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_RK5
7807 real(RKG) ,
intent(in) ,
contiguous :: array(:)
7808 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
7809 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
7811 procedure(
logical(LK)) :: iseq
7812 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7813 logical(LK) ,
intent(in) ,
optional :: sorted
7814 logical(LK) ,
intent(in) ,
optional :: unique
7815 real(RKG) ,
allocatable :: arrayNew(:)
7820 module function getReplacedCusComCusIns_D1_D1_D1_RK4(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7822 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_RK4
7825 real(RKG) ,
intent(in) ,
contiguous :: array(:)
7826 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
7827 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
7829 procedure(
logical(LK)) :: iseq
7830 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7831 logical(LK) ,
intent(in) ,
optional :: sorted
7832 logical(LK) ,
intent(in) ,
optional :: unique
7833 real(RKG) ,
allocatable :: arrayNew(:)
7838 module function getReplacedCusComCusIns_D1_D1_D1_RK3(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7840 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_RK3
7843 real(RKG) ,
intent(in) ,
contiguous :: array(:)
7844 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
7845 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
7847 procedure(
logical(LK)) :: iseq
7848 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7849 logical(LK) ,
intent(in) ,
optional :: sorted
7850 logical(LK) ,
intent(in) ,
optional :: unique
7851 real(RKG) ,
allocatable :: arrayNew(:)
7856 module function getReplacedCusComCusIns_D1_D1_D1_RK2(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7858 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_RK2
7861 real(RKG) ,
intent(in) ,
contiguous :: array(:)
7862 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
7863 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
7865 procedure(
logical(LK)) :: iseq
7866 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7867 logical(LK) ,
intent(in) ,
optional :: sorted
7868 logical(LK) ,
intent(in) ,
optional :: unique
7869 real(RKG) ,
allocatable :: arrayNew(:)
7875 module function getReplacedCusComCusIns_D1_D1_D1_RK1(array, pattern, replacement, iseq, instance, sorted, unique)
result(arrayNew)
7876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7877 !DEC$ ATTRIBUTES DLLEXPORT :: getReplacedCusComCusIns_D1_D1_D1_RK1
7880 real(RKG) ,
intent(in) ,
contiguous :: array(:)
7881 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
7882 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
7884 procedure(
logical(LK)) :: iseq
7885 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7886 logical(LK) ,
intent(in) ,
optional :: sorted
7887 logical(LK) ,
intent(in) ,
optional :: unique
7888 real(RKG) ,
allocatable :: arrayNew(:)
8091 PURE module subroutine setReplacedDefComDefIns_D0_D0_D0_SK5(array, pattern, replacement)
8092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8093 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D0_D0_D0_SK5
8096 character(:,SKG) ,
intent(inout) ,
allocatable :: array
8097 character(
*,SKG) ,
intent(in) :: pattern
8098 character(
*,SKG) ,
intent(in) :: replacement
8103 PURE module subroutine setReplacedDefComDefIns_D0_D0_D0_SK4(array, pattern, replacement)
8104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8105 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D0_D0_D0_SK4
8108 character(:,SKG) ,
intent(inout) ,
allocatable :: array
8109 character(
*,SKG) ,
intent(in) :: pattern
8110 character(
*,SKG) ,
intent(in) :: replacement
8115 PURE module subroutine setReplacedDefComDefIns_D0_D0_D0_SK3(array, pattern, replacement)
8116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8117 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D0_D0_D0_SK3
8120 character(:,SKG) ,
intent(inout) ,
allocatable :: array
8121 character(
*,SKG) ,
intent(in) :: pattern
8122 character(
*,SKG) ,
intent(in) :: replacement
8127 PURE module subroutine setReplacedDefComDefIns_D0_D0_D0_SK2(array, pattern, replacement)
8128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8129 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D0_D0_D0_SK2
8132 character(:,SKG) ,
intent(inout) ,
allocatable :: array
8133 character(
*,SKG) ,
intent(in) :: pattern
8134 character(
*,SKG) ,
intent(in) :: replacement
8140 PURE module subroutine setReplacedDefComDefIns_D0_D0_D0_SK1(array, pattern, replacement)
8141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8142 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D0_D0_D0_SK1
8145 character(:,SKG) ,
intent(inout) ,
allocatable :: array
8146 character(
*,SKG) ,
intent(in) :: pattern
8147 character(
*,SKG) ,
intent(in) :: replacement
8160 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_SK5(array, pattern, replacement)
8161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8162 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_SK5
8165 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8166 character(
*,SKG) ,
intent(in) :: pattern
8167 character(
*,SKG) ,
intent(in) :: replacement
8172 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_SK4(array, pattern, replacement)
8173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8174 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_SK4
8177 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8178 character(
*,SKG) ,
intent(in) :: pattern
8179 character(
*,SKG) ,
intent(in) :: replacement
8184 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_SK3(array, pattern, replacement)
8185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8186 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_SK3
8189 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8190 character(
*,SKG) ,
intent(in) :: pattern
8191 character(
*,SKG) ,
intent(in) :: replacement
8196 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_SK2(array, pattern, replacement)
8197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8198 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_SK2
8201 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8202 character(
*,SKG) ,
intent(in) :: pattern
8203 character(
*,SKG) ,
intent(in) :: replacement
8209 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_SK1(array, pattern, replacement)
8210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8211 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_SK1
8214 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8215 character(
*,SKG) ,
intent(in) :: pattern
8216 character(
*,SKG) ,
intent(in) :: replacement
8223 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_IK5(array, pattern, replacement)
8224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8225 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_IK5
8228 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8229 integer(IKG) ,
intent(in) :: pattern
8230 integer(IKG) ,
intent(in) :: replacement
8235 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_IK4(array, pattern, replacement)
8236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8237 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_IK4
8240 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8241 integer(IKG) ,
intent(in) :: pattern
8242 integer(IKG) ,
intent(in) :: replacement
8247 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_IK3(array, pattern, replacement)
8248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8249 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_IK3
8252 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8253 integer(IKG) ,
intent(in) :: pattern
8254 integer(IKG) ,
intent(in) :: replacement
8259 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_IK2(array, pattern, replacement)
8260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8261 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_IK2
8264 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8265 integer(IKG) ,
intent(in) :: pattern
8266 integer(IKG) ,
intent(in) :: replacement
8272 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_IK1(array, pattern, replacement)
8273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8274 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_IK1
8277 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8278 integer(IKG) ,
intent(in) :: pattern
8279 integer(IKG) ,
intent(in) :: replacement
8286 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_LK5(array, pattern, replacement)
8287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8288 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_LK5
8291 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8292 logical(LKG) ,
intent(in) :: pattern
8293 logical(LKG) ,
intent(in) :: replacement
8298 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_LK4(array, pattern, replacement)
8299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8300 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_LK4
8303 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8304 logical(LKG) ,
intent(in) :: pattern
8305 logical(LKG) ,
intent(in) :: replacement
8310 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_LK3(array, pattern, replacement)
8311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8312 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_LK3
8315 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8316 logical(LKG) ,
intent(in) :: pattern
8317 logical(LKG) ,
intent(in) :: replacement
8322 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_LK2(array, pattern, replacement)
8323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8324 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_LK2
8327 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8328 logical(LKG) ,
intent(in) :: pattern
8329 logical(LKG) ,
intent(in) :: replacement
8335 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_LK1(array, pattern, replacement)
8336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8337 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_LK1
8340 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8341 logical(LKG) ,
intent(in) :: pattern
8342 logical(LKG) ,
intent(in) :: replacement
8349 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_CK5(array, pattern, replacement)
8350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8351 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_CK5
8354 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
8355 complex(CKG) ,
intent(in) :: pattern
8356 complex(CKG) ,
intent(in) :: replacement
8361 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_CK4(array, pattern, replacement)
8362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8363 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_CK4
8366 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
8367 complex(CKG) ,
intent(in) :: pattern
8368 complex(CKG) ,
intent(in) :: replacement
8373 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_CK3(array, pattern, replacement)
8374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8375 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_CK3
8378 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
8379 complex(CKG) ,
intent(in) :: pattern
8380 complex(CKG) ,
intent(in) :: replacement
8385 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_CK2(array, pattern, replacement)
8386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8387 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_CK2
8390 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
8391 complex(CKG) ,
intent(in) :: pattern
8392 complex(CKG) ,
intent(in) :: replacement
8398 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_CK1(array, pattern, replacement)
8399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8400 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_CK1
8403 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
8404 complex(CKG) ,
intent(in) :: pattern
8405 complex(CKG) ,
intent(in) :: replacement
8412 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_RK5(array, pattern, replacement)
8413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8414 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_RK5
8417 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
8418 real(RKG) ,
intent(in) :: pattern
8419 real(RKG) ,
intent(in) :: replacement
8424 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_RK4(array, pattern, replacement)
8425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8426 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_RK4
8429 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
8430 real(RKG) ,
intent(in) :: pattern
8431 real(RKG) ,
intent(in) :: replacement
8436 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_RK3(array, pattern, replacement)
8437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8438 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_RK3
8441 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
8442 real(RKG) ,
intent(in) :: pattern
8443 real(RKG) ,
intent(in) :: replacement
8448 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_RK2(array, pattern, replacement)
8449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8450 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_RK2
8453 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
8454 real(RKG) ,
intent(in) :: pattern
8455 real(RKG) ,
intent(in) :: replacement
8461 PURE module subroutine setReplacedDefComDefIns_D1_D0_D0_RK1(array, pattern, replacement)
8462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8463 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D0_RK1
8466 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
8467 real(RKG) ,
intent(in) :: pattern
8468 real(RKG) ,
intent(in) :: replacement
8481 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_SK5(array, pattern, replacement)
8482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8483 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_SK5
8486 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8487 character(
*,SKG) ,
intent(in) :: pattern
8488 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
8493 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_SK4(array, pattern, replacement)
8494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8495 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_SK4
8498 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8499 character(
*,SKG) ,
intent(in) :: pattern
8500 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
8505 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_SK3(array, pattern, replacement)
8506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8507 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_SK3
8510 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8511 character(
*,SKG) ,
intent(in) :: pattern
8512 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
8517 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_SK2(array, pattern, replacement)
8518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8519 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_SK2
8522 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8523 character(
*,SKG) ,
intent(in) :: pattern
8524 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
8530 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_SK1(array, pattern, replacement)
8531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8532 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_SK1
8535 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8536 character(
*,SKG) ,
intent(in) :: pattern
8537 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
8544 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_IK5(array, pattern, replacement)
8545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8546 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_IK5
8549 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8550 integer(IKG) ,
intent(in) :: pattern
8551 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
8556 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_IK4(array, pattern, replacement)
8557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8558 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_IK4
8561 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8562 integer(IKG) ,
intent(in) :: pattern
8563 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
8568 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_IK3(array, pattern, replacement)
8569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8570 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_IK3
8573 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8574 integer(IKG) ,
intent(in) :: pattern
8575 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
8580 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_IK2(array, pattern, replacement)
8581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8582 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_IK2
8585 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8586 integer(IKG) ,
intent(in) :: pattern
8587 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
8593 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_IK1(array, pattern, replacement)
8594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8595 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_IK1
8598 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8599 integer(IKG) ,
intent(in) :: pattern
8600 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
8607 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_LK5(array, pattern, replacement)
8608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8609 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_LK5
8612 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8613 logical(LKG) ,
intent(in) :: pattern
8614 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
8619 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_LK4(array, pattern, replacement)
8620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8621 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_LK4
8624 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8625 logical(LKG) ,
intent(in) :: pattern
8626 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
8631 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_LK3(array, pattern, replacement)
8632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8633 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_LK3
8636 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8637 logical(LKG) ,
intent(in) :: pattern
8638 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
8643 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_LK2(array, pattern, replacement)
8644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8645 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_LK2
8648 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8649 logical(LKG) ,
intent(in) :: pattern
8650 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
8656 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_LK1(array, pattern, replacement)
8657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8658 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_LK1
8661 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8662 logical(LKG) ,
intent(in) :: pattern
8663 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
8670 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_CK5(array, pattern, replacement)
8671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8672 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_CK5
8675 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
8676 complex(CKG) ,
intent(in) :: pattern
8677 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
8682 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_CK4(array, pattern, replacement)
8683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8684 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_CK4
8687 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
8688 complex(CKG) ,
intent(in) :: pattern
8689 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
8694 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_CK3(array, pattern, replacement)
8695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8696 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_CK3
8699 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
8700 complex(CKG) ,
intent(in) :: pattern
8701 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
8706 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_CK2(array, pattern, replacement)
8707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8708 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_CK2
8711 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
8712 complex(CKG) ,
intent(in) :: pattern
8713 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
8719 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_CK1(array, pattern, replacement)
8720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8721 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_CK1
8724 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
8725 complex(CKG) ,
intent(in) :: pattern
8726 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
8733 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_RK5(array, pattern, replacement)
8734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8735 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_RK5
8738 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
8739 real(RKG) ,
intent(in) :: pattern
8740 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
8745 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_RK4(array, pattern, replacement)
8746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8747 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_RK4
8750 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
8751 real(RKG) ,
intent(in) :: pattern
8752 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
8757 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_RK3(array, pattern, replacement)
8758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8759 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_RK3
8762 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
8763 real(RKG) ,
intent(in) :: pattern
8764 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
8769 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_RK2(array, pattern, replacement)
8770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8771 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_RK2
8774 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
8775 real(RKG) ,
intent(in) :: pattern
8776 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
8782 PURE module subroutine setReplacedDefComDefIns_D1_D0_D1_RK1(array, pattern, replacement)
8783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8784 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D0_D1_RK1
8787 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
8788 real(RKG) ,
intent(in) :: pattern
8789 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
8802 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_SK5(array, pattern, replacement)
8803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8804 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_SK5
8807 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8808 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
8809 character(
*,SKG) ,
intent(in) :: replacement
8814 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_SK4(array, pattern, replacement)
8815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8816 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_SK4
8819 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8820 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
8821 character(
*,SKG) ,
intent(in) :: replacement
8826 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_SK3(array, pattern, replacement)
8827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8828 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_SK3
8831 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8832 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
8833 character(
*,SKG) ,
intent(in) :: replacement
8838 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_SK2(array, pattern, replacement)
8839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8840 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_SK2
8843 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8844 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
8845 character(
*,SKG) ,
intent(in) :: replacement
8851 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_SK1(array, pattern, replacement)
8852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8853 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_SK1
8856 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
8857 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
8858 character(
*,SKG) ,
intent(in) :: replacement
8865 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_IK5(array, pattern, replacement)
8866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8867 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_IK5
8870 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8871 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
8872 integer(IKG) ,
intent(in) :: replacement
8877 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_IK4(array, pattern, replacement)
8878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8879 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_IK4
8882 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8883 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
8884 integer(IKG) ,
intent(in) :: replacement
8889 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_IK3(array, pattern, replacement)
8890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8891 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_IK3
8894 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8895 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
8896 integer(IKG) ,
intent(in) :: replacement
8901 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_IK2(array, pattern, replacement)
8902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8903 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_IK2
8906 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8907 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
8908 integer(IKG) ,
intent(in) :: replacement
8914 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_IK1(array, pattern, replacement)
8915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8916 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_IK1
8919 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
8920 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
8921 integer(IKG) ,
intent(in) :: replacement
8928 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_LK5(array, pattern, replacement)
8929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8930 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_LK5
8933 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8934 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
8935 logical(LKG) ,
intent(in) :: replacement
8940 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_LK4(array, pattern, replacement)
8941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8942 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_LK4
8945 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8946 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
8947 logical(LKG) ,
intent(in) :: replacement
8952 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_LK3(array, pattern, replacement)
8953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8954 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_LK3
8957 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8958 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
8959 logical(LKG) ,
intent(in) :: replacement
8964 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_LK2(array, pattern, replacement)
8965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8966 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_LK2
8969 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8970 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
8971 logical(LKG) ,
intent(in) :: replacement
8977 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_LK1(array, pattern, replacement)
8978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8979 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_LK1
8982 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
8983 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
8984 logical(LKG) ,
intent(in) :: replacement
8991 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_CK5(array, pattern, replacement)
8992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8993 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_CK5
8996 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
8997 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
8998 complex(CKG) ,
intent(in) :: replacement
9003 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_CK4(array, pattern, replacement)
9004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9005 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_CK4
9008 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9009 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9010 complex(CKG) ,
intent(in) :: replacement
9015 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_CK3(array, pattern, replacement)
9016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9017 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_CK3
9020 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9021 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9022 complex(CKG) ,
intent(in) :: replacement
9027 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_CK2(array, pattern, replacement)
9028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9029 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_CK2
9032 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9033 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9034 complex(CKG) ,
intent(in) :: replacement
9040 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_CK1(array, pattern, replacement)
9041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9042 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_CK1
9045 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9046 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9047 complex(CKG) ,
intent(in) :: replacement
9054 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_RK5(array, pattern, replacement)
9055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9056 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_RK5
9059 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9060 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
9061 real(RKG) ,
intent(in) :: replacement
9066 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_RK4(array, pattern, replacement)
9067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9068 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_RK4
9071 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9072 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
9073 real(RKG) ,
intent(in) :: replacement
9078 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_RK3(array, pattern, replacement)
9079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9080 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_RK3
9083 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9084 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
9085 real(RKG) ,
intent(in) :: replacement
9090 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_RK2(array, pattern, replacement)
9091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9092 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_RK2
9095 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9096 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
9097 real(RKG) ,
intent(in) :: replacement
9103 PURE module subroutine setReplacedDefComDefIns_D1_D1_D0_RK1(array, pattern, replacement)
9104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9105 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D0_RK1
9108 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9109 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
9110 real(RKG) ,
intent(in) :: replacement
9123 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_SK5(array, pattern, replacement)
9124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9125 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_SK5
9128 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9129 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
9130 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
9135 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_SK4(array, pattern, replacement)
9136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9137 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_SK4
9140 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9141 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
9142 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
9147 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_SK3(array, pattern, replacement)
9148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9149 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_SK3
9152 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9153 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
9154 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
9159 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_SK2(array, pattern, replacement)
9160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9161 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_SK2
9164 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9165 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
9166 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
9172 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_SK1(array, pattern, replacement)
9173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9174 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_SK1
9177 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9178 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
9179 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
9186 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_IK5(array, pattern, replacement)
9187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9188 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_IK5
9191 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
9192 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
9193 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
9198 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_IK4(array, pattern, replacement)
9199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9200 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_IK4
9203 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
9204 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
9205 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
9210 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_IK3(array, pattern, replacement)
9211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9212 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_IK3
9215 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
9216 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
9217 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
9222 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_IK2(array, pattern, replacement)
9223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9224 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_IK2
9227 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
9228 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
9229 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
9235 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_IK1(array, pattern, replacement)
9236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9237 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_IK1
9240 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
9241 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
9242 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
9249 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_LK5(array, pattern, replacement)
9250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9251 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_LK5
9254 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
9255 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
9256 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
9261 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_LK4(array, pattern, replacement)
9262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9263 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_LK4
9266 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
9267 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
9268 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
9273 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_LK3(array, pattern, replacement)
9274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9275 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_LK3
9278 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
9279 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
9280 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
9285 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_LK2(array, pattern, replacement)
9286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9287 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_LK2
9290 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
9291 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
9292 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
9298 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_LK1(array, pattern, replacement)
9299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9300 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_LK1
9303 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
9304 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
9305 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
9312 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_CK5(array, pattern, replacement)
9313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9314 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_CK5
9317 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9318 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9319 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
9324 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_CK4(array, pattern, replacement)
9325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9326 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_CK4
9329 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9330 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9331 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
9336 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_CK3(array, pattern, replacement)
9337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9338 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_CK3
9341 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9342 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9343 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
9348 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_CK2(array, pattern, replacement)
9349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9350 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_CK2
9353 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9354 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9355 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
9361 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_CK1(array, pattern, replacement)
9362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9363 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_CK1
9366 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9367 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9368 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
9375 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_RK5(array, pattern, replacement)
9376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9377 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_RK5
9380 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9381 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
9382 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
9387 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_RK4(array, pattern, replacement)
9388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9389 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_RK4
9392 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9393 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
9394 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
9399 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_RK3(array, pattern, replacement)
9400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9401 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_RK3
9404 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9405 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
9406 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
9411 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_RK2(array, pattern, replacement)
9412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9413 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_RK2
9416 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9417 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
9418 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
9424 PURE module subroutine setReplacedDefComDefIns_D1_D1_D1_RK1(array, pattern, replacement)
9425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9426 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComDefIns_D1_D1_D1_RK1
9429 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9430 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
9431 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
9450 module subroutine setReplacedCusComDefIns_D0_D0_D0_SK5(array, pattern, replacement, iseq)
9451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9452 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D0_D0_D0_SK5
9455 character(:,SKG) ,
intent(inout) ,
allocatable :: array
9456 character(
*,SKG) ,
intent(in) :: pattern
9457 character(
*,SKG) ,
intent(in) :: replacement
9459 procedure(
logical(LK)) :: iseq
9464 module subroutine setReplacedCusComDefIns_D0_D0_D0_SK4(array, pattern, replacement, iseq)
9465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9466 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D0_D0_D0_SK4
9469 character(:,SKG) ,
intent(inout) ,
allocatable :: array
9470 character(
*,SKG) ,
intent(in) :: pattern
9471 character(
*,SKG) ,
intent(in) :: replacement
9473 procedure(
logical(LK)) :: iseq
9478 module subroutine setReplacedCusComDefIns_D0_D0_D0_SK3(array, pattern, replacement, iseq)
9479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9480 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D0_D0_D0_SK3
9483 character(:,SKG) ,
intent(inout) ,
allocatable :: array
9484 character(
*,SKG) ,
intent(in) :: pattern
9485 character(
*,SKG) ,
intent(in) :: replacement
9487 procedure(
logical(LK)) :: iseq
9492 module subroutine setReplacedCusComDefIns_D0_D0_D0_SK2(array, pattern, replacement, iseq)
9493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9494 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D0_D0_D0_SK2
9497 character(:,SKG) ,
intent(inout) ,
allocatable :: array
9498 character(
*,SKG) ,
intent(in) :: pattern
9499 character(
*,SKG) ,
intent(in) :: replacement
9501 procedure(
logical(LK)) :: iseq
9507 module subroutine setReplacedCusComDefIns_D0_D0_D0_SK1(array, pattern, replacement, iseq)
9508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9509 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D0_D0_D0_SK1
9512 character(:,SKG) ,
intent(inout) ,
allocatable :: array
9513 character(
*,SKG) ,
intent(in) :: pattern
9514 character(
*,SKG) ,
intent(in) :: replacement
9516 procedure(
logical(LK)) :: iseq
9529 module subroutine setReplacedCusComDefIns_D1_D0_D0_SK5(array, pattern, replacement, iseq)
9530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9531 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_SK5
9534 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9535 character(
*,SKG) ,
intent(in) :: pattern
9536 character(
*,SKG) ,
intent(in) :: replacement
9538 procedure(
logical(LK)) :: iseq
9543 module subroutine setReplacedCusComDefIns_D1_D0_D0_SK4(array, pattern, replacement, iseq)
9544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9545 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_SK4
9548 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9549 character(
*,SKG) ,
intent(in) :: pattern
9550 character(
*,SKG) ,
intent(in) :: replacement
9552 procedure(
logical(LK)) :: iseq
9557 module subroutine setReplacedCusComDefIns_D1_D0_D0_SK3(array, pattern, replacement, iseq)
9558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9559 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_SK3
9562 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9563 character(
*,SKG) ,
intent(in) :: pattern
9564 character(
*,SKG) ,
intent(in) :: replacement
9566 procedure(
logical(LK)) :: iseq
9571 module subroutine setReplacedCusComDefIns_D1_D0_D0_SK2(array, pattern, replacement, iseq)
9572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9573 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_SK2
9576 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9577 character(
*,SKG) ,
intent(in) :: pattern
9578 character(
*,SKG) ,
intent(in) :: replacement
9580 procedure(
logical(LK)) :: iseq
9586 module subroutine setReplacedCusComDefIns_D1_D0_D0_SK1(array, pattern, replacement, iseq)
9587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9588 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_SK1
9591 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9592 character(
*,SKG) ,
intent(in) :: pattern
9593 character(
*,SKG) ,
intent(in) :: replacement
9595 procedure(
logical(LK)) :: iseq
9602 module subroutine setReplacedCusComDefIns_D1_D0_D0_IK5(array, pattern, replacement, iseq)
9603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9604 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_IK5
9607 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
9608 integer(IKG) ,
intent(in) :: pattern
9609 integer(IKG) ,
intent(in) :: replacement
9611 procedure(
logical(LK)) :: iseq
9616 module subroutine setReplacedCusComDefIns_D1_D0_D0_IK4(array, pattern, replacement, iseq)
9617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9618 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_IK4
9621 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
9622 integer(IKG) ,
intent(in) :: pattern
9623 integer(IKG) ,
intent(in) :: replacement
9625 procedure(
logical(LK)) :: iseq
9630 module subroutine setReplacedCusComDefIns_D1_D0_D0_IK3(array, pattern, replacement, iseq)
9631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9632 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_IK3
9635 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
9636 integer(IKG) ,
intent(in) :: pattern
9637 integer(IKG) ,
intent(in) :: replacement
9639 procedure(
logical(LK)) :: iseq
9644 module subroutine setReplacedCusComDefIns_D1_D0_D0_IK2(array, pattern, replacement, iseq)
9645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9646 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_IK2
9649 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
9650 integer(IKG) ,
intent(in) :: pattern
9651 integer(IKG) ,
intent(in) :: replacement
9653 procedure(
logical(LK)) :: iseq
9659 module subroutine setReplacedCusComDefIns_D1_D0_D0_IK1(array, pattern, replacement, iseq)
9660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9661 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_IK1
9664 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
9665 integer(IKG) ,
intent(in) :: pattern
9666 integer(IKG) ,
intent(in) :: replacement
9668 procedure(
logical(LK)) :: iseq
9675 module subroutine setReplacedCusComDefIns_D1_D0_D0_LK5(array, pattern, replacement, iseq)
9676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9677 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_LK5
9680 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
9681 logical(LKG) ,
intent(in) :: pattern
9682 logical(LKG) ,
intent(in) :: replacement
9684 procedure(
logical(LK)) :: iseq
9689 module subroutine setReplacedCusComDefIns_D1_D0_D0_LK4(array, pattern, replacement, iseq)
9690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9691 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_LK4
9694 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
9695 logical(LKG) ,
intent(in) :: pattern
9696 logical(LKG) ,
intent(in) :: replacement
9698 procedure(
logical(LK)) :: iseq
9703 module subroutine setReplacedCusComDefIns_D1_D0_D0_LK3(array, pattern, replacement, iseq)
9704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9705 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_LK3
9708 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
9709 logical(LKG) ,
intent(in) :: pattern
9710 logical(LKG) ,
intent(in) :: replacement
9712 procedure(
logical(LK)) :: iseq
9717 module subroutine setReplacedCusComDefIns_D1_D0_D0_LK2(array, pattern, replacement, iseq)
9718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9719 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_LK2
9722 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
9723 logical(LKG) ,
intent(in) :: pattern
9724 logical(LKG) ,
intent(in) :: replacement
9726 procedure(
logical(LK)) :: iseq
9732 module subroutine setReplacedCusComDefIns_D1_D0_D0_LK1(array, pattern, replacement, iseq)
9733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9734 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_LK1
9737 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
9738 logical(LKG) ,
intent(in) :: pattern
9739 logical(LKG) ,
intent(in) :: replacement
9741 procedure(
logical(LK)) :: iseq
9748 module subroutine setReplacedCusComDefIns_D1_D0_D0_CK5(array, pattern, replacement, iseq)
9749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9750 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_CK5
9753 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9754 complex(CKG) ,
intent(in) :: pattern
9755 complex(CKG) ,
intent(in) :: replacement
9757 procedure(
logical(LK)) :: iseq
9762 module subroutine setReplacedCusComDefIns_D1_D0_D0_CK4(array, pattern, replacement, iseq)
9763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9764 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_CK4
9767 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9768 complex(CKG) ,
intent(in) :: pattern
9769 complex(CKG) ,
intent(in) :: replacement
9771 procedure(
logical(LK)) :: iseq
9776 module subroutine setReplacedCusComDefIns_D1_D0_D0_CK3(array, pattern, replacement, iseq)
9777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9778 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_CK3
9781 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9782 complex(CKG) ,
intent(in) :: pattern
9783 complex(CKG) ,
intent(in) :: replacement
9785 procedure(
logical(LK)) :: iseq
9790 module subroutine setReplacedCusComDefIns_D1_D0_D0_CK2(array, pattern, replacement, iseq)
9791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9792 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_CK2
9795 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9796 complex(CKG) ,
intent(in) :: pattern
9797 complex(CKG) ,
intent(in) :: replacement
9799 procedure(
logical(LK)) :: iseq
9805 module subroutine setReplacedCusComDefIns_D1_D0_D0_CK1(array, pattern, replacement, iseq)
9806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9807 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_CK1
9810 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
9811 complex(CKG) ,
intent(in) :: pattern
9812 complex(CKG) ,
intent(in) :: replacement
9814 procedure(
logical(LK)) :: iseq
9821 module subroutine setReplacedCusComDefIns_D1_D0_D0_RK5(array, pattern, replacement, iseq)
9822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9823 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_RK5
9826 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9827 real(RKG) ,
intent(in) :: pattern
9828 real(RKG) ,
intent(in) :: replacement
9830 procedure(
logical(LK)) :: iseq
9835 module subroutine setReplacedCusComDefIns_D1_D0_D0_RK4(array, pattern, replacement, iseq)
9836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9837 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_RK4
9840 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9841 real(RKG) ,
intent(in) :: pattern
9842 real(RKG) ,
intent(in) :: replacement
9844 procedure(
logical(LK)) :: iseq
9849 module subroutine setReplacedCusComDefIns_D1_D0_D0_RK3(array, pattern, replacement, iseq)
9850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9851 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_RK3
9854 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9855 real(RKG) ,
intent(in) :: pattern
9856 real(RKG) ,
intent(in) :: replacement
9858 procedure(
logical(LK)) :: iseq
9863 module subroutine setReplacedCusComDefIns_D1_D0_D0_RK2(array, pattern, replacement, iseq)
9864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9865 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_RK2
9868 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9869 real(RKG) ,
intent(in) :: pattern
9870 real(RKG) ,
intent(in) :: replacement
9872 procedure(
logical(LK)) :: iseq
9878 module subroutine setReplacedCusComDefIns_D1_D0_D0_RK1(array, pattern, replacement, iseq)
9879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9880 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D0_RK1
9883 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
9884 real(RKG) ,
intent(in) :: pattern
9885 real(RKG) ,
intent(in) :: replacement
9887 procedure(
logical(LK)) :: iseq
9900 module subroutine setReplacedCusComDefIns_D1_D0_D1_SK5(array, pattern, replacement, iseq)
9901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9902 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_SK5
9905 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9906 character(
*,SKG) ,
intent(in) :: pattern
9907 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
9909 procedure(
logical(LK)) :: iseq
9914 module subroutine setReplacedCusComDefIns_D1_D0_D1_SK4(array, pattern, replacement, iseq)
9915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9916 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_SK4
9919 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9920 character(
*,SKG) ,
intent(in) :: pattern
9921 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
9923 procedure(
logical(LK)) :: iseq
9928 module subroutine setReplacedCusComDefIns_D1_D0_D1_SK3(array, pattern, replacement, iseq)
9929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9930 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_SK3
9933 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9934 character(
*,SKG) ,
intent(in) :: pattern
9935 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
9937 procedure(
logical(LK)) :: iseq
9942 module subroutine setReplacedCusComDefIns_D1_D0_D1_SK2(array, pattern, replacement, iseq)
9943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9944 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_SK2
9947 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9948 character(
*,SKG) ,
intent(in) :: pattern
9949 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
9951 procedure(
logical(LK)) :: iseq
9957 module subroutine setReplacedCusComDefIns_D1_D0_D1_SK1(array, pattern, replacement, iseq)
9958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9959 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_SK1
9962 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
9963 character(
*,SKG) ,
intent(in) :: pattern
9964 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
9966 procedure(
logical(LK)) :: iseq
9973 module subroutine setReplacedCusComDefIns_D1_D0_D1_IK5(array, pattern, replacement, iseq)
9974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9975 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_IK5
9978 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
9979 integer(IKG) ,
intent(in) :: pattern
9980 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
9982 procedure(
logical(LK)) :: iseq
9987 module subroutine setReplacedCusComDefIns_D1_D0_D1_IK4(array, pattern, replacement, iseq)
9988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9989 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_IK4
9992 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
9993 integer(IKG) ,
intent(in) :: pattern
9994 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
9996 procedure(
logical(LK)) :: iseq
10001 module subroutine setReplacedCusComDefIns_D1_D0_D1_IK3(array, pattern, replacement, iseq)
10002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10003 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_IK3
10006 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
10007 integer(IKG) ,
intent(in) :: pattern
10008 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
10010 procedure(
logical(LK)) :: iseq
10015 module subroutine setReplacedCusComDefIns_D1_D0_D1_IK2(array, pattern, replacement, iseq)
10016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10017 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_IK2
10020 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
10021 integer(IKG) ,
intent(in) :: pattern
10022 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
10024 procedure(
logical(LK)) :: iseq
10030 module subroutine setReplacedCusComDefIns_D1_D0_D1_IK1(array, pattern, replacement, iseq)
10031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10032 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_IK1
10035 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
10036 integer(IKG) ,
intent(in) :: pattern
10037 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
10039 procedure(
logical(LK)) :: iseq
10046 module subroutine setReplacedCusComDefIns_D1_D0_D1_LK5(array, pattern, replacement, iseq)
10047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10048 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_LK5
10051 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10052 logical(LKG) ,
intent(in) :: pattern
10053 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
10055 procedure(
logical(LK)) :: iseq
10060 module subroutine setReplacedCusComDefIns_D1_D0_D1_LK4(array, pattern, replacement, iseq)
10061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10062 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_LK4
10065 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10066 logical(LKG) ,
intent(in) :: pattern
10067 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
10069 procedure(
logical(LK)) :: iseq
10074 module subroutine setReplacedCusComDefIns_D1_D0_D1_LK3(array, pattern, replacement, iseq)
10075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10076 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_LK3
10079 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10080 logical(LKG) ,
intent(in) :: pattern
10081 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
10083 procedure(
logical(LK)) :: iseq
10088 module subroutine setReplacedCusComDefIns_D1_D0_D1_LK2(array, pattern, replacement, iseq)
10089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10090 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_LK2
10093 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10094 logical(LKG) ,
intent(in) :: pattern
10095 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
10097 procedure(
logical(LK)) :: iseq
10103 module subroutine setReplacedCusComDefIns_D1_D0_D1_LK1(array, pattern, replacement, iseq)
10104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10105 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_LK1
10108 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10109 logical(LKG) ,
intent(in) :: pattern
10110 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
10112 procedure(
logical(LK)) :: iseq
10119 module subroutine setReplacedCusComDefIns_D1_D0_D1_CK5(array, pattern, replacement, iseq)
10120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10121 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_CK5
10124 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10125 complex(CKG) ,
intent(in) :: pattern
10126 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
10128 procedure(
logical(LK)) :: iseq
10133 module subroutine setReplacedCusComDefIns_D1_D0_D1_CK4(array, pattern, replacement, iseq)
10134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10135 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_CK4
10138 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10139 complex(CKG) ,
intent(in) :: pattern
10140 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
10142 procedure(
logical(LK)) :: iseq
10147 module subroutine setReplacedCusComDefIns_D1_D0_D1_CK3(array, pattern, replacement, iseq)
10148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10149 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_CK3
10152 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10153 complex(CKG) ,
intent(in) :: pattern
10154 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
10156 procedure(
logical(LK)) :: iseq
10161 module subroutine setReplacedCusComDefIns_D1_D0_D1_CK2(array, pattern, replacement, iseq)
10162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10163 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_CK2
10166 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10167 complex(CKG) ,
intent(in) :: pattern
10168 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
10170 procedure(
logical(LK)) :: iseq
10176 module subroutine setReplacedCusComDefIns_D1_D0_D1_CK1(array, pattern, replacement, iseq)
10177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10178 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_CK1
10181 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10182 complex(CKG) ,
intent(in) :: pattern
10183 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
10185 procedure(
logical(LK)) :: iseq
10192 module subroutine setReplacedCusComDefIns_D1_D0_D1_RK5(array, pattern, replacement, iseq)
10193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10194 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_RK5
10197 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10198 real(RKG) ,
intent(in) :: pattern
10199 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
10201 procedure(
logical(LK)) :: iseq
10206 module subroutine setReplacedCusComDefIns_D1_D0_D1_RK4(array, pattern, replacement, iseq)
10207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10208 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_RK4
10211 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10212 real(RKG) ,
intent(in) :: pattern
10213 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
10215 procedure(
logical(LK)) :: iseq
10220 module subroutine setReplacedCusComDefIns_D1_D0_D1_RK3(array, pattern, replacement, iseq)
10221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10222 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_RK3
10225 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10226 real(RKG) ,
intent(in) :: pattern
10227 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
10229 procedure(
logical(LK)) :: iseq
10234 module subroutine setReplacedCusComDefIns_D1_D0_D1_RK2(array, pattern, replacement, iseq)
10235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10236 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_RK2
10239 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10240 real(RKG) ,
intent(in) :: pattern
10241 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
10243 procedure(
logical(LK)) :: iseq
10249 module subroutine setReplacedCusComDefIns_D1_D0_D1_RK1(array, pattern, replacement, iseq)
10250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10251 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D0_D1_RK1
10254 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10255 real(RKG) ,
intent(in) :: pattern
10256 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
10258 procedure(
logical(LK)) :: iseq
10271 module subroutine setReplacedCusComDefIns_D1_D1_D0_SK5(array, pattern, replacement, iseq)
10272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10273 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_SK5
10276 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
10277 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10278 character(
*,SKG) ,
intent(in) :: replacement
10280 procedure(
logical(LK)) :: iseq
10285 module subroutine setReplacedCusComDefIns_D1_D1_D0_SK4(array, pattern, replacement, iseq)
10286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10287 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_SK4
10290 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
10291 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10292 character(
*,SKG) ,
intent(in) :: replacement
10294 procedure(
logical(LK)) :: iseq
10299 module subroutine setReplacedCusComDefIns_D1_D1_D0_SK3(array, pattern, replacement, iseq)
10300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10301 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_SK3
10304 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
10305 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10306 character(
*,SKG) ,
intent(in) :: replacement
10308 procedure(
logical(LK)) :: iseq
10313 module subroutine setReplacedCusComDefIns_D1_D1_D0_SK2(array, pattern, replacement, iseq)
10314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10315 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_SK2
10318 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
10319 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10320 character(
*,SKG) ,
intent(in) :: replacement
10322 procedure(
logical(LK)) :: iseq
10328 module subroutine setReplacedCusComDefIns_D1_D1_D0_SK1(array, pattern, replacement, iseq)
10329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10330 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_SK1
10333 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
10334 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10335 character(
*,SKG) ,
intent(in) :: replacement
10337 procedure(
logical(LK)) :: iseq
10344 module subroutine setReplacedCusComDefIns_D1_D1_D0_IK5(array, pattern, replacement, iseq)
10345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10346 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_IK5
10349 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
10350 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10351 integer(IKG) ,
intent(in) :: replacement
10353 procedure(
logical(LK)) :: iseq
10358 module subroutine setReplacedCusComDefIns_D1_D1_D0_IK4(array, pattern, replacement, iseq)
10359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10360 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_IK4
10363 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
10364 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10365 integer(IKG) ,
intent(in) :: replacement
10367 procedure(
logical(LK)) :: iseq
10372 module subroutine setReplacedCusComDefIns_D1_D1_D0_IK3(array, pattern, replacement, iseq)
10373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10374 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_IK3
10377 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
10378 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10379 integer(IKG) ,
intent(in) :: replacement
10381 procedure(
logical(LK)) :: iseq
10386 module subroutine setReplacedCusComDefIns_D1_D1_D0_IK2(array, pattern, replacement, iseq)
10387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10388 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_IK2
10391 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
10392 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10393 integer(IKG) ,
intent(in) :: replacement
10395 procedure(
logical(LK)) :: iseq
10401 module subroutine setReplacedCusComDefIns_D1_D1_D0_IK1(array, pattern, replacement, iseq)
10402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10403 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_IK1
10406 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
10407 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10408 integer(IKG) ,
intent(in) :: replacement
10410 procedure(
logical(LK)) :: iseq
10417 module subroutine setReplacedCusComDefIns_D1_D1_D0_LK5(array, pattern, replacement, iseq)
10418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10419 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_LK5
10422 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10423 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10424 logical(LKG) ,
intent(in) :: replacement
10426 procedure(
logical(LK)) :: iseq
10431 module subroutine setReplacedCusComDefIns_D1_D1_D0_LK4(array, pattern, replacement, iseq)
10432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10433 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_LK4
10436 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10437 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10438 logical(LKG) ,
intent(in) :: replacement
10440 procedure(
logical(LK)) :: iseq
10445 module subroutine setReplacedCusComDefIns_D1_D1_D0_LK3(array, pattern, replacement, iseq)
10446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10447 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_LK3
10450 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10451 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10452 logical(LKG) ,
intent(in) :: replacement
10454 procedure(
logical(LK)) :: iseq
10459 module subroutine setReplacedCusComDefIns_D1_D1_D0_LK2(array, pattern, replacement, iseq)
10460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10461 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_LK2
10464 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10465 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10466 logical(LKG) ,
intent(in) :: replacement
10468 procedure(
logical(LK)) :: iseq
10474 module subroutine setReplacedCusComDefIns_D1_D1_D0_LK1(array, pattern, replacement, iseq)
10475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10476 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_LK1
10479 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10480 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10481 logical(LKG) ,
intent(in) :: replacement
10483 procedure(
logical(LK)) :: iseq
10490 module subroutine setReplacedCusComDefIns_D1_D1_D0_CK5(array, pattern, replacement, iseq)
10491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10492 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_CK5
10495 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10496 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10497 complex(CKG) ,
intent(in) :: replacement
10499 procedure(
logical(LK)) :: iseq
10504 module subroutine setReplacedCusComDefIns_D1_D1_D0_CK4(array, pattern, replacement, iseq)
10505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10506 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_CK4
10509 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10510 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10511 complex(CKG) ,
intent(in) :: replacement
10513 procedure(
logical(LK)) :: iseq
10518 module subroutine setReplacedCusComDefIns_D1_D1_D0_CK3(array, pattern, replacement, iseq)
10519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10520 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_CK3
10523 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10524 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10525 complex(CKG) ,
intent(in) :: replacement
10527 procedure(
logical(LK)) :: iseq
10532 module subroutine setReplacedCusComDefIns_D1_D1_D0_CK2(array, pattern, replacement, iseq)
10533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10534 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_CK2
10537 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10538 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10539 complex(CKG) ,
intent(in) :: replacement
10541 procedure(
logical(LK)) :: iseq
10547 module subroutine setReplacedCusComDefIns_D1_D1_D0_CK1(array, pattern, replacement, iseq)
10548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10549 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_CK1
10552 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10553 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10554 complex(CKG) ,
intent(in) :: replacement
10556 procedure(
logical(LK)) :: iseq
10563 module subroutine setReplacedCusComDefIns_D1_D1_D0_RK5(array, pattern, replacement, iseq)
10564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10565 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_RK5
10568 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10569 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10570 real(RKG) ,
intent(in) :: replacement
10572 procedure(
logical(LK)) :: iseq
10577 module subroutine setReplacedCusComDefIns_D1_D1_D0_RK4(array, pattern, replacement, iseq)
10578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10579 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_RK4
10582 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10583 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10584 real(RKG) ,
intent(in) :: replacement
10586 procedure(
logical(LK)) :: iseq
10591 module subroutine setReplacedCusComDefIns_D1_D1_D0_RK3(array, pattern, replacement, iseq)
10592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10593 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_RK3
10596 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10597 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10598 real(RKG) ,
intent(in) :: replacement
10600 procedure(
logical(LK)) :: iseq
10605 module subroutine setReplacedCusComDefIns_D1_D1_D0_RK2(array, pattern, replacement, iseq)
10606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10607 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_RK2
10610 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10611 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10612 real(RKG) ,
intent(in) :: replacement
10614 procedure(
logical(LK)) :: iseq
10620 module subroutine setReplacedCusComDefIns_D1_D1_D0_RK1(array, pattern, replacement, iseq)
10621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10622 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D0_RK1
10625 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10626 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10627 real(RKG) ,
intent(in) :: replacement
10629 procedure(
logical(LK)) :: iseq
10642 module subroutine setReplacedCusComDefIns_D1_D1_D1_SK5(array, pattern, replacement, iseq)
10643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10644 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_SK5
10647 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
10648 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10649 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
10651 procedure(
logical(LK)) :: iseq
10656 module subroutine setReplacedCusComDefIns_D1_D1_D1_SK4(array, pattern, replacement, iseq)
10657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10658 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_SK4
10661 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
10662 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10663 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
10665 procedure(
logical(LK)) :: iseq
10670 module subroutine setReplacedCusComDefIns_D1_D1_D1_SK3(array, pattern, replacement, iseq)
10671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10672 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_SK3
10675 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
10676 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10677 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
10679 procedure(
logical(LK)) :: iseq
10684 module subroutine setReplacedCusComDefIns_D1_D1_D1_SK2(array, pattern, replacement, iseq)
10685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10686 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_SK2
10689 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
10690 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10691 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
10693 procedure(
logical(LK)) :: iseq
10699 module subroutine setReplacedCusComDefIns_D1_D1_D1_SK1(array, pattern, replacement, iseq)
10700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10701 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_SK1
10704 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
10705 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10706 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
10708 procedure(
logical(LK)) :: iseq
10715 module subroutine setReplacedCusComDefIns_D1_D1_D1_IK5(array, pattern, replacement, iseq)
10716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10717 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_IK5
10720 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
10721 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10722 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
10724 procedure(
logical(LK)) :: iseq
10729 module subroutine setReplacedCusComDefIns_D1_D1_D1_IK4(array, pattern, replacement, iseq)
10730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10731 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_IK4
10734 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
10735 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10736 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
10738 procedure(
logical(LK)) :: iseq
10743 module subroutine setReplacedCusComDefIns_D1_D1_D1_IK3(array, pattern, replacement, iseq)
10744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10745 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_IK3
10748 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
10749 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10750 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
10752 procedure(
logical(LK)) :: iseq
10757 module subroutine setReplacedCusComDefIns_D1_D1_D1_IK2(array, pattern, replacement, iseq)
10758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10759 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_IK2
10762 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
10763 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10764 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
10766 procedure(
logical(LK)) :: iseq
10772 module subroutine setReplacedCusComDefIns_D1_D1_D1_IK1(array, pattern, replacement, iseq)
10773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10774 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_IK1
10777 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
10778 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10779 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
10781 procedure(
logical(LK)) :: iseq
10788 module subroutine setReplacedCusComDefIns_D1_D1_D1_LK5(array, pattern, replacement, iseq)
10789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10790 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_LK5
10793 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10794 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10795 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
10797 procedure(
logical(LK)) :: iseq
10802 module subroutine setReplacedCusComDefIns_D1_D1_D1_LK4(array, pattern, replacement, iseq)
10803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10804 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_LK4
10807 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10808 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10809 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
10811 procedure(
logical(LK)) :: iseq
10816 module subroutine setReplacedCusComDefIns_D1_D1_D1_LK3(array, pattern, replacement, iseq)
10817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10818 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_LK3
10821 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10822 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10823 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
10825 procedure(
logical(LK)) :: iseq
10830 module subroutine setReplacedCusComDefIns_D1_D1_D1_LK2(array, pattern, replacement, iseq)
10831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10832 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_LK2
10835 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10836 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10837 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
10839 procedure(
logical(LK)) :: iseq
10845 module subroutine setReplacedCusComDefIns_D1_D1_D1_LK1(array, pattern, replacement, iseq)
10846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10847 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_LK1
10850 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
10851 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10852 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
10854 procedure(
logical(LK)) :: iseq
10861 module subroutine setReplacedCusComDefIns_D1_D1_D1_CK5(array, pattern, replacement, iseq)
10862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10863 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_CK5
10866 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10867 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10868 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
10870 procedure(
logical(LK)) :: iseq
10875 module subroutine setReplacedCusComDefIns_D1_D1_D1_CK4(array, pattern, replacement, iseq)
10876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10877 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_CK4
10880 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10881 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10882 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
10884 procedure(
logical(LK)) :: iseq
10889 module subroutine setReplacedCusComDefIns_D1_D1_D1_CK3(array, pattern, replacement, iseq)
10890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10891 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_CK3
10894 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10895 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10896 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
10898 procedure(
logical(LK)) :: iseq
10903 module subroutine setReplacedCusComDefIns_D1_D1_D1_CK2(array, pattern, replacement, iseq)
10904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10905 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_CK2
10908 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10909 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10910 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
10912 procedure(
logical(LK)) :: iseq
10918 module subroutine setReplacedCusComDefIns_D1_D1_D1_CK1(array, pattern, replacement, iseq)
10919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10920 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_CK1
10923 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
10924 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10925 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
10927 procedure(
logical(LK)) :: iseq
10934 module subroutine setReplacedCusComDefIns_D1_D1_D1_RK5(array, pattern, replacement, iseq)
10935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10936 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_RK5
10939 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10940 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10941 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
10943 procedure(
logical(LK)) :: iseq
10948 module subroutine setReplacedCusComDefIns_D1_D1_D1_RK4(array, pattern, replacement, iseq)
10949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10950 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_RK4
10953 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10954 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10955 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
10957 procedure(
logical(LK)) :: iseq
10962 module subroutine setReplacedCusComDefIns_D1_D1_D1_RK3(array, pattern, replacement, iseq)
10963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10964 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_RK3
10967 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10968 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10969 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
10971 procedure(
logical(LK)) :: iseq
10976 module subroutine setReplacedCusComDefIns_D1_D1_D1_RK2(array, pattern, replacement, iseq)
10977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10978 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_RK2
10981 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10982 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10983 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
10985 procedure(
logical(LK)) :: iseq
10991 module subroutine setReplacedCusComDefIns_D1_D1_D1_RK1(array, pattern, replacement, iseq)
10992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10993 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComDefIns_D1_D1_D1_RK1
10996 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
10997 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10998 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
11000 procedure(
logical(LK)) :: iseq
11019 PURE module subroutine setReplacedDefComCusIns_D0_D0_D0_SK5(array, pattern, replacement, instance, sorted, unique)
11020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11021 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D0_D0_D0_SK5
11024 character(:,SKG) ,
intent(inout) ,
allocatable :: array
11025 character(
*,SKG) ,
intent(in) :: pattern
11026 character(
*,SKG) ,
intent(in) :: replacement
11027 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11028 logical(LK) ,
intent(in) ,
optional :: sorted
11029 logical(LK) ,
intent(in) ,
optional :: unique
11034 PURE module subroutine setReplacedDefComCusIns_D0_D0_D0_SK4(array, pattern, replacement, instance, sorted, unique)
11035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11036 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D0_D0_D0_SK4
11039 character(:,SKG) ,
intent(inout) ,
allocatable :: array
11040 character(
*,SKG) ,
intent(in) :: pattern
11041 character(
*,SKG) ,
intent(in) :: replacement
11042 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11043 logical(LK) ,
intent(in) ,
optional :: sorted
11044 logical(LK) ,
intent(in) ,
optional :: unique
11049 PURE module subroutine setReplacedDefComCusIns_D0_D0_D0_SK3(array, pattern, replacement, instance, sorted, unique)
11050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11051 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D0_D0_D0_SK3
11054 character(:,SKG) ,
intent(inout) ,
allocatable :: array
11055 character(
*,SKG) ,
intent(in) :: pattern
11056 character(
*,SKG) ,
intent(in) :: replacement
11057 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11058 logical(LK) ,
intent(in) ,
optional :: sorted
11059 logical(LK) ,
intent(in) ,
optional :: unique
11064 PURE module subroutine setReplacedDefComCusIns_D0_D0_D0_SK2(array, pattern, replacement, instance, sorted, unique)
11065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11066 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D0_D0_D0_SK2
11069 character(:,SKG) ,
intent(inout) ,
allocatable :: array
11070 character(
*,SKG) ,
intent(in) :: pattern
11071 character(
*,SKG) ,
intent(in) :: replacement
11072 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11073 logical(LK) ,
intent(in) ,
optional :: sorted
11074 logical(LK) ,
intent(in) ,
optional :: unique
11080 PURE module subroutine setReplacedDefComCusIns_D0_D0_D0_SK1(array, pattern, replacement, instance, sorted, unique)
11081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11082 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D0_D0_D0_SK1
11085 character(:,SKG) ,
intent(inout) ,
allocatable :: array
11086 character(
*,SKG) ,
intent(in) :: pattern
11087 character(
*,SKG) ,
intent(in) :: replacement
11088 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11089 logical(LK) ,
intent(in) ,
optional :: sorted
11090 logical(LK) ,
intent(in) ,
optional :: unique
11103 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_SK5(array, pattern, replacement, instance, sorted, unique)
11104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11105 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_SK5
11108 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11109 character(
*,SKG) ,
intent(in) :: pattern
11110 character(
*,SKG) ,
intent(in) :: replacement
11111 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11112 logical(LK) ,
intent(in) ,
optional :: sorted
11113 logical(LK) ,
intent(in) ,
optional :: unique
11118 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_SK4(array, pattern, replacement, instance, sorted, unique)
11119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11120 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_SK4
11123 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11124 character(
*,SKG) ,
intent(in) :: pattern
11125 character(
*,SKG) ,
intent(in) :: replacement
11126 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11127 logical(LK) ,
intent(in) ,
optional :: sorted
11128 logical(LK) ,
intent(in) ,
optional :: unique
11133 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_SK3(array, pattern, replacement, instance, sorted, unique)
11134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11135 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_SK3
11138 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11139 character(
*,SKG) ,
intent(in) :: pattern
11140 character(
*,SKG) ,
intent(in) :: replacement
11141 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11142 logical(LK) ,
intent(in) ,
optional :: sorted
11143 logical(LK) ,
intent(in) ,
optional :: unique
11148 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_SK2(array, pattern, replacement, instance, sorted, unique)
11149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11150 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_SK2
11153 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11154 character(
*,SKG) ,
intent(in) :: pattern
11155 character(
*,SKG) ,
intent(in) :: replacement
11156 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11157 logical(LK) ,
intent(in) ,
optional :: sorted
11158 logical(LK) ,
intent(in) ,
optional :: unique
11164 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_SK1(array, pattern, replacement, instance, sorted, unique)
11165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11166 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_SK1
11169 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11170 character(
*,SKG) ,
intent(in) :: pattern
11171 character(
*,SKG) ,
intent(in) :: replacement
11172 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11173 logical(LK) ,
intent(in) ,
optional :: sorted
11174 logical(LK) ,
intent(in) ,
optional :: unique
11181 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_IK5(array, pattern, replacement, instance, sorted, unique)
11182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11183 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_IK5
11186 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
11187 integer(IKG) ,
intent(in) :: pattern
11188 integer(IKG) ,
intent(in) :: replacement
11189 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11190 logical(LK) ,
intent(in) ,
optional :: sorted
11191 logical(LK) ,
intent(in) ,
optional :: unique
11196 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_IK4(array, pattern, replacement, instance, sorted, unique)
11197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11198 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_IK4
11201 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
11202 integer(IKG) ,
intent(in) :: pattern
11203 integer(IKG) ,
intent(in) :: replacement
11204 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11205 logical(LK) ,
intent(in) ,
optional :: sorted
11206 logical(LK) ,
intent(in) ,
optional :: unique
11211 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_IK3(array, pattern, replacement, instance, sorted, unique)
11212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11213 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_IK3
11216 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
11217 integer(IKG) ,
intent(in) :: pattern
11218 integer(IKG) ,
intent(in) :: replacement
11219 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11220 logical(LK) ,
intent(in) ,
optional :: sorted
11221 logical(LK) ,
intent(in) ,
optional :: unique
11226 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_IK2(array, pattern, replacement, instance, sorted, unique)
11227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11228 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_IK2
11231 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
11232 integer(IKG) ,
intent(in) :: pattern
11233 integer(IKG) ,
intent(in) :: replacement
11234 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11235 logical(LK) ,
intent(in) ,
optional :: sorted
11236 logical(LK) ,
intent(in) ,
optional :: unique
11242 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_IK1(array, pattern, replacement, instance, sorted, unique)
11243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11244 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_IK1
11247 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
11248 integer(IKG) ,
intent(in) :: pattern
11249 integer(IKG) ,
intent(in) :: replacement
11250 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11251 logical(LK) ,
intent(in) ,
optional :: sorted
11252 logical(LK) ,
intent(in) ,
optional :: unique
11259 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_LK5(array, pattern, replacement, instance, sorted, unique)
11260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11261 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_LK5
11264 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
11265 logical(LKG) ,
intent(in) :: pattern
11266 logical(LKG) ,
intent(in) :: replacement
11267 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11268 logical(LK) ,
intent(in) ,
optional :: sorted
11269 logical(LK) ,
intent(in) ,
optional :: unique
11274 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_LK4(array, pattern, replacement, instance, sorted, unique)
11275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11276 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_LK4
11279 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
11280 logical(LKG) ,
intent(in) :: pattern
11281 logical(LKG) ,
intent(in) :: replacement
11282 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11283 logical(LK) ,
intent(in) ,
optional :: sorted
11284 logical(LK) ,
intent(in) ,
optional :: unique
11289 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_LK3(array, pattern, replacement, instance, sorted, unique)
11290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11291 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_LK3
11294 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
11295 logical(LKG) ,
intent(in) :: pattern
11296 logical(LKG) ,
intent(in) :: replacement
11297 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11298 logical(LK) ,
intent(in) ,
optional :: sorted
11299 logical(LK) ,
intent(in) ,
optional :: unique
11304 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_LK2(array, pattern, replacement, instance, sorted, unique)
11305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11306 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_LK2
11309 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
11310 logical(LKG) ,
intent(in) :: pattern
11311 logical(LKG) ,
intent(in) :: replacement
11312 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11313 logical(LK) ,
intent(in) ,
optional :: sorted
11314 logical(LK) ,
intent(in) ,
optional :: unique
11320 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_LK1(array, pattern, replacement, instance, sorted, unique)
11321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11322 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_LK1
11325 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
11326 logical(LKG) ,
intent(in) :: pattern
11327 logical(LKG) ,
intent(in) :: replacement
11328 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11329 logical(LK) ,
intent(in) ,
optional :: sorted
11330 logical(LK) ,
intent(in) ,
optional :: unique
11337 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_CK5(array, pattern, replacement, instance, sorted, unique)
11338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11339 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_CK5
11342 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
11343 complex(CKG) ,
intent(in) :: pattern
11344 complex(CKG) ,
intent(in) :: replacement
11345 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11346 logical(LK) ,
intent(in) ,
optional :: sorted
11347 logical(LK) ,
intent(in) ,
optional :: unique
11352 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_CK4(array, pattern, replacement, instance, sorted, unique)
11353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11354 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_CK4
11357 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
11358 complex(CKG) ,
intent(in) :: pattern
11359 complex(CKG) ,
intent(in) :: replacement
11360 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11361 logical(LK) ,
intent(in) ,
optional :: sorted
11362 logical(LK) ,
intent(in) ,
optional :: unique
11367 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_CK3(array, pattern, replacement, instance, sorted, unique)
11368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11369 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_CK3
11372 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
11373 complex(CKG) ,
intent(in) :: pattern
11374 complex(CKG) ,
intent(in) :: replacement
11375 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11376 logical(LK) ,
intent(in) ,
optional :: sorted
11377 logical(LK) ,
intent(in) ,
optional :: unique
11382 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_CK2(array, pattern, replacement, instance, sorted, unique)
11383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11384 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_CK2
11387 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
11388 complex(CKG) ,
intent(in) :: pattern
11389 complex(CKG) ,
intent(in) :: replacement
11390 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11391 logical(LK) ,
intent(in) ,
optional :: sorted
11392 logical(LK) ,
intent(in) ,
optional :: unique
11398 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_CK1(array, pattern, replacement, instance, sorted, unique)
11399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11400 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_CK1
11403 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
11404 complex(CKG) ,
intent(in) :: pattern
11405 complex(CKG) ,
intent(in) :: replacement
11406 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11407 logical(LK) ,
intent(in) ,
optional :: sorted
11408 logical(LK) ,
intent(in) ,
optional :: unique
11415 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_RK5(array, pattern, replacement, instance, sorted, unique)
11416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11417 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_RK5
11420 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
11421 real(RKG) ,
intent(in) :: pattern
11422 real(RKG) ,
intent(in) :: replacement
11423 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11424 logical(LK) ,
intent(in) ,
optional :: sorted
11425 logical(LK) ,
intent(in) ,
optional :: unique
11430 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_RK4(array, pattern, replacement, instance, sorted, unique)
11431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11432 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_RK4
11435 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
11436 real(RKG) ,
intent(in) :: pattern
11437 real(RKG) ,
intent(in) :: replacement
11438 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11439 logical(LK) ,
intent(in) ,
optional :: sorted
11440 logical(LK) ,
intent(in) ,
optional :: unique
11445 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_RK3(array, pattern, replacement, instance, sorted, unique)
11446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11447 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_RK3
11450 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
11451 real(RKG) ,
intent(in) :: pattern
11452 real(RKG) ,
intent(in) :: replacement
11453 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11454 logical(LK) ,
intent(in) ,
optional :: sorted
11455 logical(LK) ,
intent(in) ,
optional :: unique
11460 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_RK2(array, pattern, replacement, instance, sorted, unique)
11461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11462 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_RK2
11465 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
11466 real(RKG) ,
intent(in) :: pattern
11467 real(RKG) ,
intent(in) :: replacement
11468 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11469 logical(LK) ,
intent(in) ,
optional :: sorted
11470 logical(LK) ,
intent(in) ,
optional :: unique
11476 PURE module subroutine setReplacedDefComCusIns_D1_D0_D0_RK1(array, pattern, replacement, instance, sorted, unique)
11477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11478 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D0_RK1
11481 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
11482 real(RKG) ,
intent(in) :: pattern
11483 real(RKG) ,
intent(in) :: replacement
11484 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11485 logical(LK) ,
intent(in) ,
optional :: sorted
11486 logical(LK) ,
intent(in) ,
optional :: unique
11499 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_SK5(array, pattern, replacement, instance, sorted, unique)
11500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11501 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_SK5
11504 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11505 character(
*,SKG) ,
intent(in) :: pattern
11506 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
11507 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11508 logical(LK) ,
intent(in) ,
optional :: sorted
11509 logical(LK) ,
intent(in) ,
optional :: unique
11514 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_SK4(array, pattern, replacement, instance, sorted, unique)
11515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11516 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_SK4
11519 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11520 character(
*,SKG) ,
intent(in) :: pattern
11521 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
11522 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11523 logical(LK) ,
intent(in) ,
optional :: sorted
11524 logical(LK) ,
intent(in) ,
optional :: unique
11529 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_SK3(array, pattern, replacement, instance, sorted, unique)
11530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11531 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_SK3
11534 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11535 character(
*,SKG) ,
intent(in) :: pattern
11536 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
11537 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11538 logical(LK) ,
intent(in) ,
optional :: sorted
11539 logical(LK) ,
intent(in) ,
optional :: unique
11544 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_SK2(array, pattern, replacement, instance, sorted, unique)
11545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11546 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_SK2
11549 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11550 character(
*,SKG) ,
intent(in) :: pattern
11551 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
11552 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11553 logical(LK) ,
intent(in) ,
optional :: sorted
11554 logical(LK) ,
intent(in) ,
optional :: unique
11560 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_SK1(array, pattern, replacement, instance, sorted, unique)
11561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11562 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_SK1
11565 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11566 character(
*,SKG) ,
intent(in) :: pattern
11567 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
11568 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11569 logical(LK) ,
intent(in) ,
optional :: sorted
11570 logical(LK) ,
intent(in) ,
optional :: unique
11577 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_IK5(array, pattern, replacement, instance, sorted, unique)
11578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11579 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_IK5
11582 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
11583 integer(IKG) ,
intent(in) :: pattern
11584 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
11585 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11586 logical(LK) ,
intent(in) ,
optional :: sorted
11587 logical(LK) ,
intent(in) ,
optional :: unique
11592 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_IK4(array, pattern, replacement, instance, sorted, unique)
11593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11594 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_IK4
11597 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
11598 integer(IKG) ,
intent(in) :: pattern
11599 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
11600 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11601 logical(LK) ,
intent(in) ,
optional :: sorted
11602 logical(LK) ,
intent(in) ,
optional :: unique
11607 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_IK3(array, pattern, replacement, instance, sorted, unique)
11608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11609 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_IK3
11612 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
11613 integer(IKG) ,
intent(in) :: pattern
11614 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
11615 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11616 logical(LK) ,
intent(in) ,
optional :: sorted
11617 logical(LK) ,
intent(in) ,
optional :: unique
11622 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_IK2(array, pattern, replacement, instance, sorted, unique)
11623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11624 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_IK2
11627 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
11628 integer(IKG) ,
intent(in) :: pattern
11629 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
11630 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11631 logical(LK) ,
intent(in) ,
optional :: sorted
11632 logical(LK) ,
intent(in) ,
optional :: unique
11638 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_IK1(array, pattern, replacement, instance, sorted, unique)
11639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11640 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_IK1
11643 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
11644 integer(IKG) ,
intent(in) :: pattern
11645 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
11646 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11647 logical(LK) ,
intent(in) ,
optional :: sorted
11648 logical(LK) ,
intent(in) ,
optional :: unique
11655 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_LK5(array, pattern, replacement, instance, sorted, unique)
11656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11657 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_LK5
11660 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
11661 logical(LKG) ,
intent(in) :: pattern
11662 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
11663 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11664 logical(LK) ,
intent(in) ,
optional :: sorted
11665 logical(LK) ,
intent(in) ,
optional :: unique
11670 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_LK4(array, pattern, replacement, instance, sorted, unique)
11671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11672 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_LK4
11675 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
11676 logical(LKG) ,
intent(in) :: pattern
11677 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
11678 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11679 logical(LK) ,
intent(in) ,
optional :: sorted
11680 logical(LK) ,
intent(in) ,
optional :: unique
11685 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_LK3(array, pattern, replacement, instance, sorted, unique)
11686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11687 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_LK3
11690 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
11691 logical(LKG) ,
intent(in) :: pattern
11692 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
11693 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11694 logical(LK) ,
intent(in) ,
optional :: sorted
11695 logical(LK) ,
intent(in) ,
optional :: unique
11700 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_LK2(array, pattern, replacement, instance, sorted, unique)
11701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11702 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_LK2
11705 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
11706 logical(LKG) ,
intent(in) :: pattern
11707 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
11708 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11709 logical(LK) ,
intent(in) ,
optional :: sorted
11710 logical(LK) ,
intent(in) ,
optional :: unique
11716 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_LK1(array, pattern, replacement, instance, sorted, unique)
11717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11718 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_LK1
11721 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
11722 logical(LKG) ,
intent(in) :: pattern
11723 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
11724 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11725 logical(LK) ,
intent(in) ,
optional :: sorted
11726 logical(LK) ,
intent(in) ,
optional :: unique
11733 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_CK5(array, pattern, replacement, instance, sorted, unique)
11734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11735 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_CK5
11738 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
11739 complex(CKG) ,
intent(in) :: pattern
11740 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
11741 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11742 logical(LK) ,
intent(in) ,
optional :: sorted
11743 logical(LK) ,
intent(in) ,
optional :: unique
11748 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_CK4(array, pattern, replacement, instance, sorted, unique)
11749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11750 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_CK4
11753 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
11754 complex(CKG) ,
intent(in) :: pattern
11755 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
11756 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11757 logical(LK) ,
intent(in) ,
optional :: sorted
11758 logical(LK) ,
intent(in) ,
optional :: unique
11763 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_CK3(array, pattern, replacement, instance, sorted, unique)
11764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11765 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_CK3
11768 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
11769 complex(CKG) ,
intent(in) :: pattern
11770 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
11771 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11772 logical(LK) ,
intent(in) ,
optional :: sorted
11773 logical(LK) ,
intent(in) ,
optional :: unique
11778 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_CK2(array, pattern, replacement, instance, sorted, unique)
11779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11780 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_CK2
11783 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
11784 complex(CKG) ,
intent(in) :: pattern
11785 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
11786 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11787 logical(LK) ,
intent(in) ,
optional :: sorted
11788 logical(LK) ,
intent(in) ,
optional :: unique
11794 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_CK1(array, pattern, replacement, instance, sorted, unique)
11795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11796 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_CK1
11799 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
11800 complex(CKG) ,
intent(in) :: pattern
11801 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
11802 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11803 logical(LK) ,
intent(in) ,
optional :: sorted
11804 logical(LK) ,
intent(in) ,
optional :: unique
11811 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_RK5(array, pattern, replacement, instance, sorted, unique)
11812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11813 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_RK5
11816 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
11817 real(RKG) ,
intent(in) :: pattern
11818 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
11819 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11820 logical(LK) ,
intent(in) ,
optional :: sorted
11821 logical(LK) ,
intent(in) ,
optional :: unique
11826 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_RK4(array, pattern, replacement, instance, sorted, unique)
11827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11828 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_RK4
11831 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
11832 real(RKG) ,
intent(in) :: pattern
11833 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
11834 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11835 logical(LK) ,
intent(in) ,
optional :: sorted
11836 logical(LK) ,
intent(in) ,
optional :: unique
11841 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_RK3(array, pattern, replacement, instance, sorted, unique)
11842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11843 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_RK3
11846 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
11847 real(RKG) ,
intent(in) :: pattern
11848 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
11849 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11850 logical(LK) ,
intent(in) ,
optional :: sorted
11851 logical(LK) ,
intent(in) ,
optional :: unique
11856 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_RK2(array, pattern, replacement, instance, sorted, unique)
11857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11858 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_RK2
11861 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
11862 real(RKG) ,
intent(in) :: pattern
11863 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
11864 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11865 logical(LK) ,
intent(in) ,
optional :: sorted
11866 logical(LK) ,
intent(in) ,
optional :: unique
11872 PURE module subroutine setReplacedDefComCusIns_D1_D0_D1_RK1(array, pattern, replacement, instance, sorted, unique)
11873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11874 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D0_D1_RK1
11877 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
11878 real(RKG) ,
intent(in) :: pattern
11879 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
11880 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11881 logical(LK) ,
intent(in) ,
optional :: sorted
11882 logical(LK) ,
intent(in) ,
optional :: unique
11895 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_SK5(array, pattern, replacement, instance, sorted, unique)
11896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11897 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_SK5
11900 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11901 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
11902 character(
*,SKG) ,
intent(in) :: replacement
11903 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11904 logical(LK) ,
intent(in) ,
optional :: sorted
11905 logical(LK) ,
intent(in) ,
optional :: unique
11910 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_SK4(array, pattern, replacement, instance, sorted, unique)
11911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11912 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_SK4
11915 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11916 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
11917 character(
*,SKG) ,
intent(in) :: replacement
11918 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11919 logical(LK) ,
intent(in) ,
optional :: sorted
11920 logical(LK) ,
intent(in) ,
optional :: unique
11925 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_SK3(array, pattern, replacement, instance, sorted, unique)
11926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11927 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_SK3
11930 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11931 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
11932 character(
*,SKG) ,
intent(in) :: replacement
11933 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11934 logical(LK) ,
intent(in) ,
optional :: sorted
11935 logical(LK) ,
intent(in) ,
optional :: unique
11940 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_SK2(array, pattern, replacement, instance, sorted, unique)
11941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11942 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_SK2
11945 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11946 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
11947 character(
*,SKG) ,
intent(in) :: replacement
11948 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11949 logical(LK) ,
intent(in) ,
optional :: sorted
11950 logical(LK) ,
intent(in) ,
optional :: unique
11956 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_SK1(array, pattern, replacement, instance, sorted, unique)
11957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11958 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_SK1
11961 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
11962 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
11963 character(
*,SKG) ,
intent(in) :: replacement
11964 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11965 logical(LK) ,
intent(in) ,
optional :: sorted
11966 logical(LK) ,
intent(in) ,
optional :: unique
11973 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_IK5(array, pattern, replacement, instance, sorted, unique)
11974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11975 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_IK5
11978 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
11979 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
11980 integer(IKG) ,
intent(in) :: replacement
11981 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11982 logical(LK) ,
intent(in) ,
optional :: sorted
11983 logical(LK) ,
intent(in) ,
optional :: unique
11988 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_IK4(array, pattern, replacement, instance, sorted, unique)
11989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11990 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_IK4
11993 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
11994 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
11995 integer(IKG) ,
intent(in) :: replacement
11996 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11997 logical(LK) ,
intent(in) ,
optional :: sorted
11998 logical(LK) ,
intent(in) ,
optional :: unique
12003 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_IK3(array, pattern, replacement, instance, sorted, unique)
12004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12005 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_IK3
12008 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
12009 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
12010 integer(IKG) ,
intent(in) :: replacement
12011 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12012 logical(LK) ,
intent(in) ,
optional :: sorted
12013 logical(LK) ,
intent(in) ,
optional :: unique
12018 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_IK2(array, pattern, replacement, instance, sorted, unique)
12019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12020 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_IK2
12023 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
12024 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
12025 integer(IKG) ,
intent(in) :: replacement
12026 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12027 logical(LK) ,
intent(in) ,
optional :: sorted
12028 logical(LK) ,
intent(in) ,
optional :: unique
12034 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_IK1(array, pattern, replacement, instance, sorted, unique)
12035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12036 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_IK1
12039 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
12040 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
12041 integer(IKG) ,
intent(in) :: replacement
12042 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12043 logical(LK) ,
intent(in) ,
optional :: sorted
12044 logical(LK) ,
intent(in) ,
optional :: unique
12051 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_LK5(array, pattern, replacement, instance, sorted, unique)
12052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12053 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_LK5
12056 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
12057 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
12058 logical(LKG) ,
intent(in) :: replacement
12059 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12060 logical(LK) ,
intent(in) ,
optional :: sorted
12061 logical(LK) ,
intent(in) ,
optional :: unique
12066 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_LK4(array, pattern, replacement, instance, sorted, unique)
12067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12068 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_LK4
12071 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
12072 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
12073 logical(LKG) ,
intent(in) :: replacement
12074 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12075 logical(LK) ,
intent(in) ,
optional :: sorted
12076 logical(LK) ,
intent(in) ,
optional :: unique
12081 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_LK3(array, pattern, replacement, instance, sorted, unique)
12082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12083 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_LK3
12086 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
12087 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
12088 logical(LKG) ,
intent(in) :: replacement
12089 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12090 logical(LK) ,
intent(in) ,
optional :: sorted
12091 logical(LK) ,
intent(in) ,
optional :: unique
12096 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_LK2(array, pattern, replacement, instance, sorted, unique)
12097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12098 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_LK2
12101 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
12102 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
12103 logical(LKG) ,
intent(in) :: replacement
12104 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12105 logical(LK) ,
intent(in) ,
optional :: sorted
12106 logical(LK) ,
intent(in) ,
optional :: unique
12112 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_LK1(array, pattern, replacement, instance, sorted, unique)
12113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12114 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_LK1
12117 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
12118 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
12119 logical(LKG) ,
intent(in) :: replacement
12120 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12121 logical(LK) ,
intent(in) ,
optional :: sorted
12122 logical(LK) ,
intent(in) ,
optional :: unique
12129 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_CK5(array, pattern, replacement, instance, sorted, unique)
12130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12131 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_CK5
12134 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
12135 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
12136 complex(CKG) ,
intent(in) :: replacement
12137 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12138 logical(LK) ,
intent(in) ,
optional :: sorted
12139 logical(LK) ,
intent(in) ,
optional :: unique
12144 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_CK4(array, pattern, replacement, instance, sorted, unique)
12145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12146 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_CK4
12149 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
12150 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
12151 complex(CKG) ,
intent(in) :: replacement
12152 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12153 logical(LK) ,
intent(in) ,
optional :: sorted
12154 logical(LK) ,
intent(in) ,
optional :: unique
12159 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_CK3(array, pattern, replacement, instance, sorted, unique)
12160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12161 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_CK3
12164 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
12165 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
12166 complex(CKG) ,
intent(in) :: replacement
12167 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12168 logical(LK) ,
intent(in) ,
optional :: sorted
12169 logical(LK) ,
intent(in) ,
optional :: unique
12174 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_CK2(array, pattern, replacement, instance, sorted, unique)
12175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12176 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_CK2
12179 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
12180 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
12181 complex(CKG) ,
intent(in) :: replacement
12182 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12183 logical(LK) ,
intent(in) ,
optional :: sorted
12184 logical(LK) ,
intent(in) ,
optional :: unique
12190 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_CK1(array, pattern, replacement, instance, sorted, unique)
12191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12192 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_CK1
12195 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
12196 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
12197 complex(CKG) ,
intent(in) :: replacement
12198 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12199 logical(LK) ,
intent(in) ,
optional :: sorted
12200 logical(LK) ,
intent(in) ,
optional :: unique
12207 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_RK5(array, pattern, replacement, instance, sorted, unique)
12208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12209 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_RK5
12212 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
12213 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
12214 real(RKG) ,
intent(in) :: replacement
12215 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12216 logical(LK) ,
intent(in) ,
optional :: sorted
12217 logical(LK) ,
intent(in) ,
optional :: unique
12222 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_RK4(array, pattern, replacement, instance, sorted, unique)
12223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12224 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_RK4
12227 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
12228 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
12229 real(RKG) ,
intent(in) :: replacement
12230 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12231 logical(LK) ,
intent(in) ,
optional :: sorted
12232 logical(LK) ,
intent(in) ,
optional :: unique
12237 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_RK3(array, pattern, replacement, instance, sorted, unique)
12238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12239 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_RK3
12242 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
12243 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
12244 real(RKG) ,
intent(in) :: replacement
12245 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12246 logical(LK) ,
intent(in) ,
optional :: sorted
12247 logical(LK) ,
intent(in) ,
optional :: unique
12252 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_RK2(array, pattern, replacement, instance, sorted, unique)
12253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12254 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_RK2
12257 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
12258 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
12259 real(RKG) ,
intent(in) :: replacement
12260 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12261 logical(LK) ,
intent(in) ,
optional :: sorted
12262 logical(LK) ,
intent(in) ,
optional :: unique
12268 PURE module subroutine setReplacedDefComCusIns_D1_D1_D0_RK1(array, pattern, replacement, instance, sorted, unique)
12269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12270 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D0_RK1
12273 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
12274 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
12275 real(RKG) ,
intent(in) :: replacement
12276 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12277 logical(LK) ,
intent(in) ,
optional :: sorted
12278 logical(LK) ,
intent(in) ,
optional :: unique
12291 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_SK5(array, pattern, replacement, instance, sorted, unique)
12292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12293 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_SK5
12296 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
12297 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
12298 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
12299 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12300 logical(LK) ,
intent(in) ,
optional :: sorted
12301 logical(LK) ,
intent(in) ,
optional :: unique
12306 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_SK4(array, pattern, replacement, instance, sorted, unique)
12307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12308 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_SK4
12311 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
12312 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
12313 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
12314 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12315 logical(LK) ,
intent(in) ,
optional :: sorted
12316 logical(LK) ,
intent(in) ,
optional :: unique
12321 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_SK3(array, pattern, replacement, instance, sorted, unique)
12322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12323 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_SK3
12326 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
12327 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
12328 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
12329 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12330 logical(LK) ,
intent(in) ,
optional :: sorted
12331 logical(LK) ,
intent(in) ,
optional :: unique
12336 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_SK2(array, pattern, replacement, instance, sorted, unique)
12337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12338 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_SK2
12341 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
12342 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
12343 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
12344 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12345 logical(LK) ,
intent(in) ,
optional :: sorted
12346 logical(LK) ,
intent(in) ,
optional :: unique
12352 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_SK1(array, pattern, replacement, instance, sorted, unique)
12353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12354 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_SK1
12357 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
12358 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
12359 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
12360 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12361 logical(LK) ,
intent(in) ,
optional :: sorted
12362 logical(LK) ,
intent(in) ,
optional :: unique
12369 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_IK5(array, pattern, replacement, instance, sorted, unique)
12370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12371 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_IK5
12374 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
12375 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
12376 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
12377 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12378 logical(LK) ,
intent(in) ,
optional :: sorted
12379 logical(LK) ,
intent(in) ,
optional :: unique
12384 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_IK4(array, pattern, replacement, instance, sorted, unique)
12385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12386 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_IK4
12389 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
12390 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
12391 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
12392 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12393 logical(LK) ,
intent(in) ,
optional :: sorted
12394 logical(LK) ,
intent(in) ,
optional :: unique
12399 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_IK3(array, pattern, replacement, instance, sorted, unique)
12400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12401 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_IK3
12404 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
12405 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
12406 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
12407 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12408 logical(LK) ,
intent(in) ,
optional :: sorted
12409 logical(LK) ,
intent(in) ,
optional :: unique
12414 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_IK2(array, pattern, replacement, instance, sorted, unique)
12415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12416 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_IK2
12419 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
12420 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
12421 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
12422 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12423 logical(LK) ,
intent(in) ,
optional :: sorted
12424 logical(LK) ,
intent(in) ,
optional :: unique
12430 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_IK1(array, pattern, replacement, instance, sorted, unique)
12431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12432 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_IK1
12435 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
12436 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
12437 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
12438 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12439 logical(LK) ,
intent(in) ,
optional :: sorted
12440 logical(LK) ,
intent(in) ,
optional :: unique
12447 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_LK5(array, pattern, replacement, instance, sorted, unique)
12448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12449 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_LK5
12452 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
12453 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
12454 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
12455 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12456 logical(LK) ,
intent(in) ,
optional :: sorted
12457 logical(LK) ,
intent(in) ,
optional :: unique
12462 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_LK4(array, pattern, replacement, instance, sorted, unique)
12463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12464 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_LK4
12467 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
12468 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
12469 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
12470 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12471 logical(LK) ,
intent(in) ,
optional :: sorted
12472 logical(LK) ,
intent(in) ,
optional :: unique
12477 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_LK3(array, pattern, replacement, instance, sorted, unique)
12478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12479 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_LK3
12482 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
12483 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
12484 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
12485 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12486 logical(LK) ,
intent(in) ,
optional :: sorted
12487 logical(LK) ,
intent(in) ,
optional :: unique
12492 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_LK2(array, pattern, replacement, instance, sorted, unique)
12493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12494 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_LK2
12497 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
12498 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
12499 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
12500 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12501 logical(LK) ,
intent(in) ,
optional :: sorted
12502 logical(LK) ,
intent(in) ,
optional :: unique
12508 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_LK1(array, pattern, replacement, instance, sorted, unique)
12509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12510 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_LK1
12513 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
12514 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
12515 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
12516 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12517 logical(LK) ,
intent(in) ,
optional :: sorted
12518 logical(LK) ,
intent(in) ,
optional :: unique
12525 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_CK5(array, pattern, replacement, instance, sorted, unique)
12526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12527 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_CK5
12530 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
12531 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
12532 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
12533 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12534 logical(LK) ,
intent(in) ,
optional :: sorted
12535 logical(LK) ,
intent(in) ,
optional :: unique
12540 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_CK4(array, pattern, replacement, instance, sorted, unique)
12541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12542 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_CK4
12545 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
12546 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
12547 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
12548 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12549 logical(LK) ,
intent(in) ,
optional :: sorted
12550 logical(LK) ,
intent(in) ,
optional :: unique
12555 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_CK3(array, pattern, replacement, instance, sorted, unique)
12556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12557 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_CK3
12560 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
12561 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
12562 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
12563 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12564 logical(LK) ,
intent(in) ,
optional :: sorted
12565 logical(LK) ,
intent(in) ,
optional :: unique
12570 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_CK2(array, pattern, replacement, instance, sorted, unique)
12571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12572 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_CK2
12575 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
12576 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
12577 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
12578 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12579 logical(LK) ,
intent(in) ,
optional :: sorted
12580 logical(LK) ,
intent(in) ,
optional :: unique
12586 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_CK1(array, pattern, replacement, instance, sorted, unique)
12587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12588 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_CK1
12591 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
12592 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
12593 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
12594 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12595 logical(LK) ,
intent(in) ,
optional :: sorted
12596 logical(LK) ,
intent(in) ,
optional :: unique
12603 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_RK5(array, pattern, replacement, instance, sorted, unique)
12604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12605 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_RK5
12608 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
12609 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
12610 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
12611 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12612 logical(LK) ,
intent(in) ,
optional :: sorted
12613 logical(LK) ,
intent(in) ,
optional :: unique
12618 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_RK4(array, pattern, replacement, instance, sorted, unique)
12619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12620 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_RK4
12623 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
12624 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
12625 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
12626 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12627 logical(LK) ,
intent(in) ,
optional :: sorted
12628 logical(LK) ,
intent(in) ,
optional :: unique
12633 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_RK3(array, pattern, replacement, instance, sorted, unique)
12634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12635 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_RK3
12638 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
12639 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
12640 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
12641 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12642 logical(LK) ,
intent(in) ,
optional :: sorted
12643 logical(LK) ,
intent(in) ,
optional :: unique
12648 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_RK2(array, pattern, replacement, instance, sorted, unique)
12649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12650 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_RK2
12653 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
12654 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
12655 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
12656 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12657 logical(LK) ,
intent(in) ,
optional :: sorted
12658 logical(LK) ,
intent(in) ,
optional :: unique
12664 PURE module subroutine setReplacedDefComCusIns_D1_D1_D1_RK1(array, pattern, replacement, instance, sorted, unique)
12665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12666 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedDefComCusIns_D1_D1_D1_RK1
12669 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
12670 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
12671 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
12672 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12673 logical(LK) ,
intent(in) ,
optional :: sorted
12674 logical(LK) ,
intent(in) ,
optional :: unique
12693 module subroutine setReplacedCusComCusIns_D0_D0_D0_SK5(array, pattern, replacement, iseq, instance, sorted, unique)
12694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12695 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D0_D0_D0_SK5
12698 character(:,SKG) ,
intent(inout) ,
allocatable :: array
12699 character(
*,SKG) ,
intent(in) :: pattern
12700 character(
*,SKG) ,
intent(in) :: replacement
12702 procedure(
logical(LK)) :: iseq
12703 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12704 logical(LK) ,
intent(in) ,
optional :: sorted
12705 logical(LK) ,
intent(in) ,
optional :: unique
12710 module subroutine setReplacedCusComCusIns_D0_D0_D0_SK4(array, pattern, replacement, iseq, instance, sorted, unique)
12711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12712 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D0_D0_D0_SK4
12715 character(:,SKG) ,
intent(inout) ,
allocatable :: array
12716 character(
*,SKG) ,
intent(in) :: pattern
12717 character(
*,SKG) ,
intent(in) :: replacement
12719 procedure(
logical(LK)) :: iseq
12720 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12721 logical(LK) ,
intent(in) ,
optional :: sorted
12722 logical(LK) ,
intent(in) ,
optional :: unique
12727 module subroutine setReplacedCusComCusIns_D0_D0_D0_SK3(array, pattern, replacement, iseq, instance, sorted, unique)
12728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12729 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D0_D0_D0_SK3
12732 character(:,SKG) ,
intent(inout) ,
allocatable :: array
12733 character(
*,SKG) ,
intent(in) :: pattern
12734 character(
*,SKG) ,
intent(in) :: replacement
12736 procedure(
logical(LK)) :: iseq
12737 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12738 logical(LK) ,
intent(in) ,
optional :: sorted
12739 logical(LK) ,
intent(in) ,
optional :: unique
12744 module subroutine setReplacedCusComCusIns_D0_D0_D0_SK2(array, pattern, replacement, iseq, instance, sorted, unique)
12745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12746 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D0_D0_D0_SK2
12749 character(:,SKG) ,
intent(inout) ,
allocatable :: array
12750 character(
*,SKG) ,
intent(in) :: pattern
12751 character(
*,SKG) ,
intent(in) :: replacement
12753 procedure(
logical(LK)) :: iseq
12754 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12755 logical(LK) ,
intent(in) ,
optional :: sorted
12756 logical(LK) ,
intent(in) ,
optional :: unique
12762 module subroutine setReplacedCusComCusIns_D0_D0_D0_SK1(array, pattern, replacement, iseq, instance, sorted, unique)
12763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12764 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D0_D0_D0_SK1
12767 character(:,SKG) ,
intent(inout) ,
allocatable :: array
12768 character(
*,SKG) ,
intent(in) :: pattern
12769 character(
*,SKG) ,
intent(in) :: replacement
12771 procedure(
logical(LK)) :: iseq
12772 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12773 logical(LK) ,
intent(in) ,
optional :: sorted
12774 logical(LK) ,
intent(in) ,
optional :: unique
12787 module subroutine setReplacedCusComCusIns_D1_D0_D0_SK5(array, pattern, replacement, iseq, instance, sorted, unique)
12788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12789 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_SK5
12792 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
12793 character(
*,SKG) ,
intent(in) :: pattern
12794 character(
*,SKG) ,
intent(in) :: replacement
12796 procedure(
logical(LK)) :: iseq
12797 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12798 logical(LK) ,
intent(in) ,
optional :: sorted
12799 logical(LK) ,
intent(in) ,
optional :: unique
12804 module subroutine setReplacedCusComCusIns_D1_D0_D0_SK4(array, pattern, replacement, iseq, instance, sorted, unique)
12805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12806 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_SK4
12809 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
12810 character(
*,SKG) ,
intent(in) :: pattern
12811 character(
*,SKG) ,
intent(in) :: replacement
12813 procedure(
logical(LK)) :: iseq
12814 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12815 logical(LK) ,
intent(in) ,
optional :: sorted
12816 logical(LK) ,
intent(in) ,
optional :: unique
12821 module subroutine setReplacedCusComCusIns_D1_D0_D0_SK3(array, pattern, replacement, iseq, instance, sorted, unique)
12822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12823 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_SK3
12826 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
12827 character(
*,SKG) ,
intent(in) :: pattern
12828 character(
*,SKG) ,
intent(in) :: replacement
12830 procedure(
logical(LK)) :: iseq
12831 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12832 logical(LK) ,
intent(in) ,
optional :: sorted
12833 logical(LK) ,
intent(in) ,
optional :: unique
12838 module subroutine setReplacedCusComCusIns_D1_D0_D0_SK2(array, pattern, replacement, iseq, instance, sorted, unique)
12839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12840 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_SK2
12843 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
12844 character(
*,SKG) ,
intent(in) :: pattern
12845 character(
*,SKG) ,
intent(in) :: replacement
12847 procedure(
logical(LK)) :: iseq
12848 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12849 logical(LK) ,
intent(in) ,
optional :: sorted
12850 logical(LK) ,
intent(in) ,
optional :: unique
12856 module subroutine setReplacedCusComCusIns_D1_D0_D0_SK1(array, pattern, replacement, iseq, instance, sorted, unique)
12857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12858 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_SK1
12861 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
12862 character(
*,SKG) ,
intent(in) :: pattern
12863 character(
*,SKG) ,
intent(in) :: replacement
12865 procedure(
logical(LK)) :: iseq
12866 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12867 logical(LK) ,
intent(in) ,
optional :: sorted
12868 logical(LK) ,
intent(in) ,
optional :: unique
12875 module subroutine setReplacedCusComCusIns_D1_D0_D0_IK5(array, pattern, replacement, iseq, instance, sorted, unique)
12876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12877 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_IK5
12880 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
12881 integer(IKG) ,
intent(in) :: pattern
12882 integer(IKG) ,
intent(in) :: replacement
12884 procedure(
logical(LK)) :: iseq
12885 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12886 logical(LK) ,
intent(in) ,
optional :: sorted
12887 logical(LK) ,
intent(in) ,
optional :: unique
12892 module subroutine setReplacedCusComCusIns_D1_D0_D0_IK4(array, pattern, replacement, iseq, instance, sorted, unique)
12893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12894 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_IK4
12897 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
12898 integer(IKG) ,
intent(in) :: pattern
12899 integer(IKG) ,
intent(in) :: replacement
12901 procedure(
logical(LK)) :: iseq
12902 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12903 logical(LK) ,
intent(in) ,
optional :: sorted
12904 logical(LK) ,
intent(in) ,
optional :: unique
12909 module subroutine setReplacedCusComCusIns_D1_D0_D0_IK3(array, pattern, replacement, iseq, instance, sorted, unique)
12910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12911 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_IK3
12914 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
12915 integer(IKG) ,
intent(in) :: pattern
12916 integer(IKG) ,
intent(in) :: replacement
12918 procedure(
logical(LK)) :: iseq
12919 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12920 logical(LK) ,
intent(in) ,
optional :: sorted
12921 logical(LK) ,
intent(in) ,
optional :: unique
12926 module subroutine setReplacedCusComCusIns_D1_D0_D0_IK2(array, pattern, replacement, iseq, instance, sorted, unique)
12927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12928 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_IK2
12931 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
12932 integer(IKG) ,
intent(in) :: pattern
12933 integer(IKG) ,
intent(in) :: replacement
12935 procedure(
logical(LK)) :: iseq
12936 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12937 logical(LK) ,
intent(in) ,
optional :: sorted
12938 logical(LK) ,
intent(in) ,
optional :: unique
12944 module subroutine setReplacedCusComCusIns_D1_D0_D0_IK1(array, pattern, replacement, iseq, instance, sorted, unique)
12945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12946 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_IK1
12949 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
12950 integer(IKG) ,
intent(in) :: pattern
12951 integer(IKG) ,
intent(in) :: replacement
12953 procedure(
logical(LK)) :: iseq
12954 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12955 logical(LK) ,
intent(in) ,
optional :: sorted
12956 logical(LK) ,
intent(in) ,
optional :: unique
12963 module subroutine setReplacedCusComCusIns_D1_D0_D0_LK5(array, pattern, replacement, iseq, instance, sorted, unique)
12964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12965 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_LK5
12968 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
12969 logical(LKG) ,
intent(in) :: pattern
12970 logical(LKG) ,
intent(in) :: replacement
12972 procedure(
logical(LK)) :: iseq
12973 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12974 logical(LK) ,
intent(in) ,
optional :: sorted
12975 logical(LK) ,
intent(in) ,
optional :: unique
12980 module subroutine setReplacedCusComCusIns_D1_D0_D0_LK4(array, pattern, replacement, iseq, instance, sorted, unique)
12981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12982 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_LK4
12985 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
12986 logical(LKG) ,
intent(in) :: pattern
12987 logical(LKG) ,
intent(in) :: replacement
12989 procedure(
logical(LK)) :: iseq
12990 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
12991 logical(LK) ,
intent(in) ,
optional :: sorted
12992 logical(LK) ,
intent(in) ,
optional :: unique
12997 module subroutine setReplacedCusComCusIns_D1_D0_D0_LK3(array, pattern, replacement, iseq, instance, sorted, unique)
12998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12999 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_LK3
13002 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
13003 logical(LKG) ,
intent(in) :: pattern
13004 logical(LKG) ,
intent(in) :: replacement
13006 procedure(
logical(LK)) :: iseq
13007 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13008 logical(LK) ,
intent(in) ,
optional :: sorted
13009 logical(LK) ,
intent(in) ,
optional :: unique
13014 module subroutine setReplacedCusComCusIns_D1_D0_D0_LK2(array, pattern, replacement, iseq, instance, sorted, unique)
13015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13016 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_LK2
13019 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
13020 logical(LKG) ,
intent(in) :: pattern
13021 logical(LKG) ,
intent(in) :: replacement
13023 procedure(
logical(LK)) :: iseq
13024 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13025 logical(LK) ,
intent(in) ,
optional :: sorted
13026 logical(LK) ,
intent(in) ,
optional :: unique
13032 module subroutine setReplacedCusComCusIns_D1_D0_D0_LK1(array, pattern, replacement, iseq, instance, sorted, unique)
13033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13034 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_LK1
13037 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
13038 logical(LKG) ,
intent(in) :: pattern
13039 logical(LKG) ,
intent(in) :: replacement
13041 procedure(
logical(LK)) :: iseq
13042 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13043 logical(LK) ,
intent(in) ,
optional :: sorted
13044 logical(LK) ,
intent(in) ,
optional :: unique
13051 module subroutine setReplacedCusComCusIns_D1_D0_D0_CK5(array, pattern, replacement, iseq, instance, sorted, unique)
13052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13053 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_CK5
13056 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
13057 complex(CKG) ,
intent(in) :: pattern
13058 complex(CKG) ,
intent(in) :: replacement
13060 procedure(
logical(LK)) :: iseq
13061 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13062 logical(LK) ,
intent(in) ,
optional :: sorted
13063 logical(LK) ,
intent(in) ,
optional :: unique
13068 module subroutine setReplacedCusComCusIns_D1_D0_D0_CK4(array, pattern, replacement, iseq, instance, sorted, unique)
13069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13070 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_CK4
13073 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
13074 complex(CKG) ,
intent(in) :: pattern
13075 complex(CKG) ,
intent(in) :: replacement
13077 procedure(
logical(LK)) :: iseq
13078 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13079 logical(LK) ,
intent(in) ,
optional :: sorted
13080 logical(LK) ,
intent(in) ,
optional :: unique
13085 module subroutine setReplacedCusComCusIns_D1_D0_D0_CK3(array, pattern, replacement, iseq, instance, sorted, unique)
13086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13087 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_CK3
13090 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
13091 complex(CKG) ,
intent(in) :: pattern
13092 complex(CKG) ,
intent(in) :: replacement
13094 procedure(
logical(LK)) :: iseq
13095 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13096 logical(LK) ,
intent(in) ,
optional :: sorted
13097 logical(LK) ,
intent(in) ,
optional :: unique
13102 module subroutine setReplacedCusComCusIns_D1_D0_D0_CK2(array, pattern, replacement, iseq, instance, sorted, unique)
13103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13104 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_CK2
13107 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
13108 complex(CKG) ,
intent(in) :: pattern
13109 complex(CKG) ,
intent(in) :: replacement
13111 procedure(
logical(LK)) :: iseq
13112 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13113 logical(LK) ,
intent(in) ,
optional :: sorted
13114 logical(LK) ,
intent(in) ,
optional :: unique
13120 module subroutine setReplacedCusComCusIns_D1_D0_D0_CK1(array, pattern, replacement, iseq, instance, sorted, unique)
13121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13122 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_CK1
13125 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
13126 complex(CKG) ,
intent(in) :: pattern
13127 complex(CKG) ,
intent(in) :: replacement
13129 procedure(
logical(LK)) :: iseq
13130 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13131 logical(LK) ,
intent(in) ,
optional :: sorted
13132 logical(LK) ,
intent(in) ,
optional :: unique
13139 module subroutine setReplacedCusComCusIns_D1_D0_D0_RK5(array, pattern, replacement, iseq, instance, sorted, unique)
13140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13141 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_RK5
13144 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
13145 real(RKG) ,
intent(in) :: pattern
13146 real(RKG) ,
intent(in) :: replacement
13148 procedure(
logical(LK)) :: iseq
13149 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13150 logical(LK) ,
intent(in) ,
optional :: sorted
13151 logical(LK) ,
intent(in) ,
optional :: unique
13156 module subroutine setReplacedCusComCusIns_D1_D0_D0_RK4(array, pattern, replacement, iseq, instance, sorted, unique)
13157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13158 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_RK4
13161 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
13162 real(RKG) ,
intent(in) :: pattern
13163 real(RKG) ,
intent(in) :: replacement
13165 procedure(
logical(LK)) :: iseq
13166 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13167 logical(LK) ,
intent(in) ,
optional :: sorted
13168 logical(LK) ,
intent(in) ,
optional :: unique
13173 module subroutine setReplacedCusComCusIns_D1_D0_D0_RK3(array, pattern, replacement, iseq, instance, sorted, unique)
13174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13175 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_RK3
13178 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
13179 real(RKG) ,
intent(in) :: pattern
13180 real(RKG) ,
intent(in) :: replacement
13182 procedure(
logical(LK)) :: iseq
13183 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13184 logical(LK) ,
intent(in) ,
optional :: sorted
13185 logical(LK) ,
intent(in) ,
optional :: unique
13190 module subroutine setReplacedCusComCusIns_D1_D0_D0_RK2(array, pattern, replacement, iseq, instance, sorted, unique)
13191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13192 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_RK2
13195 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
13196 real(RKG) ,
intent(in) :: pattern
13197 real(RKG) ,
intent(in) :: replacement
13199 procedure(
logical(LK)) :: iseq
13200 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13201 logical(LK) ,
intent(in) ,
optional :: sorted
13202 logical(LK) ,
intent(in) ,
optional :: unique
13208 module subroutine setReplacedCusComCusIns_D1_D0_D0_RK1(array, pattern, replacement, iseq, instance, sorted, unique)
13209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13210 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D0_RK1
13213 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
13214 real(RKG) ,
intent(in) :: pattern
13215 real(RKG) ,
intent(in) :: replacement
13217 procedure(
logical(LK)) :: iseq
13218 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13219 logical(LK) ,
intent(in) ,
optional :: sorted
13220 logical(LK) ,
intent(in) ,
optional :: unique
13233 module subroutine setReplacedCusComCusIns_D1_D0_D1_SK5(array, pattern, replacement, iseq, instance, sorted, unique)
13234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13235 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_SK5
13238 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
13239 character(
*,SKG) ,
intent(in) :: pattern
13240 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
13242 procedure(
logical(LK)) :: iseq
13243 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13244 logical(LK) ,
intent(in) ,
optional :: sorted
13245 logical(LK) ,
intent(in) ,
optional :: unique
13250 module subroutine setReplacedCusComCusIns_D1_D0_D1_SK4(array, pattern, replacement, iseq, instance, sorted, unique)
13251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13252 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_SK4
13255 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
13256 character(
*,SKG) ,
intent(in) :: pattern
13257 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
13259 procedure(
logical(LK)) :: iseq
13260 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13261 logical(LK) ,
intent(in) ,
optional :: sorted
13262 logical(LK) ,
intent(in) ,
optional :: unique
13267 module subroutine setReplacedCusComCusIns_D1_D0_D1_SK3(array, pattern, replacement, iseq, instance, sorted, unique)
13268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13269 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_SK3
13272 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
13273 character(
*,SKG) ,
intent(in) :: pattern
13274 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
13276 procedure(
logical(LK)) :: iseq
13277 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13278 logical(LK) ,
intent(in) ,
optional :: sorted
13279 logical(LK) ,
intent(in) ,
optional :: unique
13284 module subroutine setReplacedCusComCusIns_D1_D0_D1_SK2(array, pattern, replacement, iseq, instance, sorted, unique)
13285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13286 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_SK2
13289 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
13290 character(
*,SKG) ,
intent(in) :: pattern
13291 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
13293 procedure(
logical(LK)) :: iseq
13294 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13295 logical(LK) ,
intent(in) ,
optional :: sorted
13296 logical(LK) ,
intent(in) ,
optional :: unique
13302 module subroutine setReplacedCusComCusIns_D1_D0_D1_SK1(array, pattern, replacement, iseq, instance, sorted, unique)
13303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13304 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_SK1
13307 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
13308 character(
*,SKG) ,
intent(in) :: pattern
13309 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
13311 procedure(
logical(LK)) :: iseq
13312 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13313 logical(LK) ,
intent(in) ,
optional :: sorted
13314 logical(LK) ,
intent(in) ,
optional :: unique
13321 module subroutine setReplacedCusComCusIns_D1_D0_D1_IK5(array, pattern, replacement, iseq, instance, sorted, unique)
13322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13323 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_IK5
13326 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
13327 integer(IKG) ,
intent(in) :: pattern
13328 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
13330 procedure(
logical(LK)) :: iseq
13331 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13332 logical(LK) ,
intent(in) ,
optional :: sorted
13333 logical(LK) ,
intent(in) ,
optional :: unique
13338 module subroutine setReplacedCusComCusIns_D1_D0_D1_IK4(array, pattern, replacement, iseq, instance, sorted, unique)
13339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13340 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_IK4
13343 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
13344 integer(IKG) ,
intent(in) :: pattern
13345 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
13347 procedure(
logical(LK)) :: iseq
13348 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13349 logical(LK) ,
intent(in) ,
optional :: sorted
13350 logical(LK) ,
intent(in) ,
optional :: unique
13355 module subroutine setReplacedCusComCusIns_D1_D0_D1_IK3(array, pattern, replacement, iseq, instance, sorted, unique)
13356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13357 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_IK3
13360 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
13361 integer(IKG) ,
intent(in) :: pattern
13362 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
13364 procedure(
logical(LK)) :: iseq
13365 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13366 logical(LK) ,
intent(in) ,
optional :: sorted
13367 logical(LK) ,
intent(in) ,
optional :: unique
13372 module subroutine setReplacedCusComCusIns_D1_D0_D1_IK2(array, pattern, replacement, iseq, instance, sorted, unique)
13373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13374 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_IK2
13377 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
13378 integer(IKG) ,
intent(in) :: pattern
13379 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
13381 procedure(
logical(LK)) :: iseq
13382 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13383 logical(LK) ,
intent(in) ,
optional :: sorted
13384 logical(LK) ,
intent(in) ,
optional :: unique
13390 module subroutine setReplacedCusComCusIns_D1_D0_D1_IK1(array, pattern, replacement, iseq, instance, sorted, unique)
13391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13392 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_IK1
13395 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
13396 integer(IKG) ,
intent(in) :: pattern
13397 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
13399 procedure(
logical(LK)) :: iseq
13400 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13401 logical(LK) ,
intent(in) ,
optional :: sorted
13402 logical(LK) ,
intent(in) ,
optional :: unique
13409 module subroutine setReplacedCusComCusIns_D1_D0_D1_LK5(array, pattern, replacement, iseq, instance, sorted, unique)
13410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13411 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_LK5
13414 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
13415 logical(LKG) ,
intent(in) :: pattern
13416 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
13418 procedure(
logical(LK)) :: iseq
13419 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13420 logical(LK) ,
intent(in) ,
optional :: sorted
13421 logical(LK) ,
intent(in) ,
optional :: unique
13426 module subroutine setReplacedCusComCusIns_D1_D0_D1_LK4(array, pattern, replacement, iseq, instance, sorted, unique)
13427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13428 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_LK4
13431 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
13432 logical(LKG) ,
intent(in) :: pattern
13433 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
13435 procedure(
logical(LK)) :: iseq
13436 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13437 logical(LK) ,
intent(in) ,
optional :: sorted
13438 logical(LK) ,
intent(in) ,
optional :: unique
13443 module subroutine setReplacedCusComCusIns_D1_D0_D1_LK3(array, pattern, replacement, iseq, instance, sorted, unique)
13444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13445 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_LK3
13448 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
13449 logical(LKG) ,
intent(in) :: pattern
13450 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
13452 procedure(
logical(LK)) :: iseq
13453 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13454 logical(LK) ,
intent(in) ,
optional :: sorted
13455 logical(LK) ,
intent(in) ,
optional :: unique
13460 module subroutine setReplacedCusComCusIns_D1_D0_D1_LK2(array, pattern, replacement, iseq, instance, sorted, unique)
13461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13462 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_LK2
13465 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
13466 logical(LKG) ,
intent(in) :: pattern
13467 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
13469 procedure(
logical(LK)) :: iseq
13470 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13471 logical(LK) ,
intent(in) ,
optional :: sorted
13472 logical(LK) ,
intent(in) ,
optional :: unique
13478 module subroutine setReplacedCusComCusIns_D1_D0_D1_LK1(array, pattern, replacement, iseq, instance, sorted, unique)
13479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13480 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_LK1
13483 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
13484 logical(LKG) ,
intent(in) :: pattern
13485 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
13487 procedure(
logical(LK)) :: iseq
13488 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13489 logical(LK) ,
intent(in) ,
optional :: sorted
13490 logical(LK) ,
intent(in) ,
optional :: unique
13497 module subroutine setReplacedCusComCusIns_D1_D0_D1_CK5(array, pattern, replacement, iseq, instance, sorted, unique)
13498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13499 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_CK5
13502 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
13503 complex(CKG) ,
intent(in) :: pattern
13504 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
13506 procedure(
logical(LK)) :: iseq
13507 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13508 logical(LK) ,
intent(in) ,
optional :: sorted
13509 logical(LK) ,
intent(in) ,
optional :: unique
13514 module subroutine setReplacedCusComCusIns_D1_D0_D1_CK4(array, pattern, replacement, iseq, instance, sorted, unique)
13515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13516 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_CK4
13519 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
13520 complex(CKG) ,
intent(in) :: pattern
13521 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
13523 procedure(
logical(LK)) :: iseq
13524 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13525 logical(LK) ,
intent(in) ,
optional :: sorted
13526 logical(LK) ,
intent(in) ,
optional :: unique
13531 module subroutine setReplacedCusComCusIns_D1_D0_D1_CK3(array, pattern, replacement, iseq, instance, sorted, unique)
13532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13533 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_CK3
13536 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
13537 complex(CKG) ,
intent(in) :: pattern
13538 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
13540 procedure(
logical(LK)) :: iseq
13541 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13542 logical(LK) ,
intent(in) ,
optional :: sorted
13543 logical(LK) ,
intent(in) ,
optional :: unique
13548 module subroutine setReplacedCusComCusIns_D1_D0_D1_CK2(array, pattern, replacement, iseq, instance, sorted, unique)
13549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13550 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_CK2
13553 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
13554 complex(CKG) ,
intent(in) :: pattern
13555 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
13557 procedure(
logical(LK)) :: iseq
13558 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13559 logical(LK) ,
intent(in) ,
optional :: sorted
13560 logical(LK) ,
intent(in) ,
optional :: unique
13566 module subroutine setReplacedCusComCusIns_D1_D0_D1_CK1(array, pattern, replacement, iseq, instance, sorted, unique)
13567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13568 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_CK1
13571 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
13572 complex(CKG) ,
intent(in) :: pattern
13573 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
13575 procedure(
logical(LK)) :: iseq
13576 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13577 logical(LK) ,
intent(in) ,
optional :: sorted
13578 logical(LK) ,
intent(in) ,
optional :: unique
13585 module subroutine setReplacedCusComCusIns_D1_D0_D1_RK5(array, pattern, replacement, iseq, instance, sorted, unique)
13586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13587 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_RK5
13590 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
13591 real(RKG) ,
intent(in) :: pattern
13592 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
13594 procedure(
logical(LK)) :: iseq
13595 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13596 logical(LK) ,
intent(in) ,
optional :: sorted
13597 logical(LK) ,
intent(in) ,
optional :: unique
13602 module subroutine setReplacedCusComCusIns_D1_D0_D1_RK4(array, pattern, replacement, iseq, instance, sorted, unique)
13603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13604 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_RK4
13607 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
13608 real(RKG) ,
intent(in) :: pattern
13609 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
13611 procedure(
logical(LK)) :: iseq
13612 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13613 logical(LK) ,
intent(in) ,
optional :: sorted
13614 logical(LK) ,
intent(in) ,
optional :: unique
13619 module subroutine setReplacedCusComCusIns_D1_D0_D1_RK3(array, pattern, replacement, iseq, instance, sorted, unique)
13620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13621 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_RK3
13624 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
13625 real(RKG) ,
intent(in) :: pattern
13626 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
13628 procedure(
logical(LK)) :: iseq
13629 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13630 logical(LK) ,
intent(in) ,
optional :: sorted
13631 logical(LK) ,
intent(in) ,
optional :: unique
13636 module subroutine setReplacedCusComCusIns_D1_D0_D1_RK2(array, pattern, replacement, iseq, instance, sorted, unique)
13637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13638 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_RK2
13641 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
13642 real(RKG) ,
intent(in) :: pattern
13643 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
13645 procedure(
logical(LK)) :: iseq
13646 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13647 logical(LK) ,
intent(in) ,
optional :: sorted
13648 logical(LK) ,
intent(in) ,
optional :: unique
13654 module subroutine setReplacedCusComCusIns_D1_D0_D1_RK1(array, pattern, replacement, iseq, instance, sorted, unique)
13655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13656 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D0_D1_RK1
13659 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
13660 real(RKG) ,
intent(in) :: pattern
13661 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
13663 procedure(
logical(LK)) :: iseq
13664 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13665 logical(LK) ,
intent(in) ,
optional :: sorted
13666 logical(LK) ,
intent(in) ,
optional :: unique
13679 module subroutine setReplacedCusComCusIns_D1_D1_D0_SK5(array, pattern, replacement, iseq, instance, sorted, unique)
13680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13681 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_SK5
13684 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
13685 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
13686 character(
*,SKG) ,
intent(in) :: replacement
13688 procedure(
logical(LK)) :: iseq
13689 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13690 logical(LK) ,
intent(in) ,
optional :: sorted
13691 logical(LK) ,
intent(in) ,
optional :: unique
13696 module subroutine setReplacedCusComCusIns_D1_D1_D0_SK4(array, pattern, replacement, iseq, instance, sorted, unique)
13697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13698 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_SK4
13701 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
13702 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
13703 character(
*,SKG) ,
intent(in) :: replacement
13705 procedure(
logical(LK)) :: iseq
13706 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13707 logical(LK) ,
intent(in) ,
optional :: sorted
13708 logical(LK) ,
intent(in) ,
optional :: unique
13713 module subroutine setReplacedCusComCusIns_D1_D1_D0_SK3(array, pattern, replacement, iseq, instance, sorted, unique)
13714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13715 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_SK3
13718 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
13719 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
13720 character(
*,SKG) ,
intent(in) :: replacement
13722 procedure(
logical(LK)) :: iseq
13723 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13724 logical(LK) ,
intent(in) ,
optional :: sorted
13725 logical(LK) ,
intent(in) ,
optional :: unique
13730 module subroutine setReplacedCusComCusIns_D1_D1_D0_SK2(array, pattern, replacement, iseq, instance, sorted, unique)
13731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13732 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_SK2
13735 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
13736 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
13737 character(
*,SKG) ,
intent(in) :: replacement
13739 procedure(
logical(LK)) :: iseq
13740 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13741 logical(LK) ,
intent(in) ,
optional :: sorted
13742 logical(LK) ,
intent(in) ,
optional :: unique
13748 module subroutine setReplacedCusComCusIns_D1_D1_D0_SK1(array, pattern, replacement, iseq, instance, sorted, unique)
13749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13750 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_SK1
13753 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
13754 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
13755 character(
*,SKG) ,
intent(in) :: replacement
13757 procedure(
logical(LK)) :: iseq
13758 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13759 logical(LK) ,
intent(in) ,
optional :: sorted
13760 logical(LK) ,
intent(in) ,
optional :: unique
13767 module subroutine setReplacedCusComCusIns_D1_D1_D0_IK5(array, pattern, replacement, iseq, instance, sorted, unique)
13768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13769 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_IK5
13772 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
13773 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
13774 integer(IKG) ,
intent(in) :: replacement
13776 procedure(
logical(LK)) :: iseq
13777 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13778 logical(LK) ,
intent(in) ,
optional :: sorted
13779 logical(LK) ,
intent(in) ,
optional :: unique
13784 module subroutine setReplacedCusComCusIns_D1_D1_D0_IK4(array, pattern, replacement, iseq, instance, sorted, unique)
13785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13786 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_IK4
13789 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
13790 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
13791 integer(IKG) ,
intent(in) :: replacement
13793 procedure(
logical(LK)) :: iseq
13794 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13795 logical(LK) ,
intent(in) ,
optional :: sorted
13796 logical(LK) ,
intent(in) ,
optional :: unique
13801 module subroutine setReplacedCusComCusIns_D1_D1_D0_IK3(array, pattern, replacement, iseq, instance, sorted, unique)
13802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13803 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_IK3
13806 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
13807 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
13808 integer(IKG) ,
intent(in) :: replacement
13810 procedure(
logical(LK)) :: iseq
13811 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13812 logical(LK) ,
intent(in) ,
optional :: sorted
13813 logical(LK) ,
intent(in) ,
optional :: unique
13818 module subroutine setReplacedCusComCusIns_D1_D1_D0_IK2(array, pattern, replacement, iseq, instance, sorted, unique)
13819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13820 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_IK2
13823 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
13824 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
13825 integer(IKG) ,
intent(in) :: replacement
13827 procedure(
logical(LK)) :: iseq
13828 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13829 logical(LK) ,
intent(in) ,
optional :: sorted
13830 logical(LK) ,
intent(in) ,
optional :: unique
13836 module subroutine setReplacedCusComCusIns_D1_D1_D0_IK1(array, pattern, replacement, iseq, instance, sorted, unique)
13837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13838 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_IK1
13841 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
13842 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
13843 integer(IKG) ,
intent(in) :: replacement
13845 procedure(
logical(LK)) :: iseq
13846 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13847 logical(LK) ,
intent(in) ,
optional :: sorted
13848 logical(LK) ,
intent(in) ,
optional :: unique
13855 module subroutine setReplacedCusComCusIns_D1_D1_D0_LK5(array, pattern, replacement, iseq, instance, sorted, unique)
13856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13857 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_LK5
13860 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
13861 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
13862 logical(LKG) ,
intent(in) :: replacement
13864 procedure(
logical(LK)) :: iseq
13865 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13866 logical(LK) ,
intent(in) ,
optional :: sorted
13867 logical(LK) ,
intent(in) ,
optional :: unique
13872 module subroutine setReplacedCusComCusIns_D1_D1_D0_LK4(array, pattern, replacement, iseq, instance, sorted, unique)
13873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13874 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_LK4
13877 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
13878 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
13879 logical(LKG) ,
intent(in) :: replacement
13881 procedure(
logical(LK)) :: iseq
13882 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13883 logical(LK) ,
intent(in) ,
optional :: sorted
13884 logical(LK) ,
intent(in) ,
optional :: unique
13889 module subroutine setReplacedCusComCusIns_D1_D1_D0_LK3(array, pattern, replacement, iseq, instance, sorted, unique)
13890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13891 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_LK3
13894 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
13895 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
13896 logical(LKG) ,
intent(in) :: replacement
13898 procedure(
logical(LK)) :: iseq
13899 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13900 logical(LK) ,
intent(in) ,
optional :: sorted
13901 logical(LK) ,
intent(in) ,
optional :: unique
13906 module subroutine setReplacedCusComCusIns_D1_D1_D0_LK2(array, pattern, replacement, iseq, instance, sorted, unique)
13907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13908 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_LK2
13911 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
13912 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
13913 logical(LKG) ,
intent(in) :: replacement
13915 procedure(
logical(LK)) :: iseq
13916 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13917 logical(LK) ,
intent(in) ,
optional :: sorted
13918 logical(LK) ,
intent(in) ,
optional :: unique
13924 module subroutine setReplacedCusComCusIns_D1_D1_D0_LK1(array, pattern, replacement, iseq, instance, sorted, unique)
13925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13926 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_LK1
13929 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
13930 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
13931 logical(LKG) ,
intent(in) :: replacement
13933 procedure(
logical(LK)) :: iseq
13934 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13935 logical(LK) ,
intent(in) ,
optional :: sorted
13936 logical(LK) ,
intent(in) ,
optional :: unique
13943 module subroutine setReplacedCusComCusIns_D1_D1_D0_CK5(array, pattern, replacement, iseq, instance, sorted, unique)
13944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13945 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_CK5
13948 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
13949 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
13950 complex(CKG) ,
intent(in) :: replacement
13952 procedure(
logical(LK)) :: iseq
13953 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13954 logical(LK) ,
intent(in) ,
optional :: sorted
13955 logical(LK) ,
intent(in) ,
optional :: unique
13960 module subroutine setReplacedCusComCusIns_D1_D1_D0_CK4(array, pattern, replacement, iseq, instance, sorted, unique)
13961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13962 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_CK4
13965 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
13966 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
13967 complex(CKG) ,
intent(in) :: replacement
13969 procedure(
logical(LK)) :: iseq
13970 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13971 logical(LK) ,
intent(in) ,
optional :: sorted
13972 logical(LK) ,
intent(in) ,
optional :: unique
13977 module subroutine setReplacedCusComCusIns_D1_D1_D0_CK3(array, pattern, replacement, iseq, instance, sorted, unique)
13978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13979 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_CK3
13982 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
13983 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
13984 complex(CKG) ,
intent(in) :: replacement
13986 procedure(
logical(LK)) :: iseq
13987 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
13988 logical(LK) ,
intent(in) ,
optional :: sorted
13989 logical(LK) ,
intent(in) ,
optional :: unique
13994 module subroutine setReplacedCusComCusIns_D1_D1_D0_CK2(array, pattern, replacement, iseq, instance, sorted, unique)
13995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13996 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_CK2
13999 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
14000 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
14001 complex(CKG) ,
intent(in) :: replacement
14003 procedure(
logical(LK)) :: iseq
14004 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14005 logical(LK) ,
intent(in) ,
optional :: sorted
14006 logical(LK) ,
intent(in) ,
optional :: unique
14012 module subroutine setReplacedCusComCusIns_D1_D1_D0_CK1(array, pattern, replacement, iseq, instance, sorted, unique)
14013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14014 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_CK1
14017 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
14018 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
14019 complex(CKG) ,
intent(in) :: replacement
14021 procedure(
logical(LK)) :: iseq
14022 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14023 logical(LK) ,
intent(in) ,
optional :: sorted
14024 logical(LK) ,
intent(in) ,
optional :: unique
14031 module subroutine setReplacedCusComCusIns_D1_D1_D0_RK5(array, pattern, replacement, iseq, instance, sorted, unique)
14032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14033 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_RK5
14036 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
14037 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
14038 real(RKG) ,
intent(in) :: replacement
14040 procedure(
logical(LK)) :: iseq
14041 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14042 logical(LK) ,
intent(in) ,
optional :: sorted
14043 logical(LK) ,
intent(in) ,
optional :: unique
14048 module subroutine setReplacedCusComCusIns_D1_D1_D0_RK4(array, pattern, replacement, iseq, instance, sorted, unique)
14049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14050 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_RK4
14053 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
14054 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
14055 real(RKG) ,
intent(in) :: replacement
14057 procedure(
logical(LK)) :: iseq
14058 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14059 logical(LK) ,
intent(in) ,
optional :: sorted
14060 logical(LK) ,
intent(in) ,
optional :: unique
14065 module subroutine setReplacedCusComCusIns_D1_D1_D0_RK3(array, pattern, replacement, iseq, instance, sorted, unique)
14066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14067 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_RK3
14070 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
14071 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
14072 real(RKG) ,
intent(in) :: replacement
14074 procedure(
logical(LK)) :: iseq
14075 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14076 logical(LK) ,
intent(in) ,
optional :: sorted
14077 logical(LK) ,
intent(in) ,
optional :: unique
14082 module subroutine setReplacedCusComCusIns_D1_D1_D0_RK2(array, pattern, replacement, iseq, instance, sorted, unique)
14083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14084 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_RK2
14087 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
14088 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
14089 real(RKG) ,
intent(in) :: replacement
14091 procedure(
logical(LK)) :: iseq
14092 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14093 logical(LK) ,
intent(in) ,
optional :: sorted
14094 logical(LK) ,
intent(in) ,
optional :: unique
14100 module subroutine setReplacedCusComCusIns_D1_D1_D0_RK1(array, pattern, replacement, iseq, instance, sorted, unique)
14101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14102 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D0_RK1
14105 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
14106 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
14107 real(RKG) ,
intent(in) :: replacement
14109 procedure(
logical(LK)) :: iseq
14110 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14111 logical(LK) ,
intent(in) ,
optional :: sorted
14112 logical(LK) ,
intent(in) ,
optional :: unique
14125 module subroutine setReplacedCusComCusIns_D1_D1_D1_SK5(array, pattern, replacement, iseq, instance, sorted, unique)
14126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14127 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_SK5
14130 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
14131 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
14132 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
14134 procedure(
logical(LK)) :: iseq
14135 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14136 logical(LK) ,
intent(in) ,
optional :: sorted
14137 logical(LK) ,
intent(in) ,
optional :: unique
14142 module subroutine setReplacedCusComCusIns_D1_D1_D1_SK4(array, pattern, replacement, iseq, instance, sorted, unique)
14143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14144 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_SK4
14147 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
14148 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
14149 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
14151 procedure(
logical(LK)) :: iseq
14152 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14153 logical(LK) ,
intent(in) ,
optional :: sorted
14154 logical(LK) ,
intent(in) ,
optional :: unique
14159 module subroutine setReplacedCusComCusIns_D1_D1_D1_SK3(array, pattern, replacement, iseq, instance, sorted, unique)
14160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14161 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_SK3
14164 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
14165 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
14166 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
14168 procedure(
logical(LK)) :: iseq
14169 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14170 logical(LK) ,
intent(in) ,
optional :: sorted
14171 logical(LK) ,
intent(in) ,
optional :: unique
14176 module subroutine setReplacedCusComCusIns_D1_D1_D1_SK2(array, pattern, replacement, iseq, instance, sorted, unique)
14177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14178 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_SK2
14181 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
14182 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
14183 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
14185 procedure(
logical(LK)) :: iseq
14186 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14187 logical(LK) ,
intent(in) ,
optional :: sorted
14188 logical(LK) ,
intent(in) ,
optional :: unique
14194 module subroutine setReplacedCusComCusIns_D1_D1_D1_SK1(array, pattern, replacement, iseq, instance, sorted, unique)
14195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14196 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_SK1
14199 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
14200 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
14201 character(
*,SKG) ,
intent(in) ,
contiguous :: replacement(:)
14203 procedure(
logical(LK)) :: iseq
14204 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14205 logical(LK) ,
intent(in) ,
optional :: sorted
14206 logical(LK) ,
intent(in) ,
optional :: unique
14213 module subroutine setReplacedCusComCusIns_D1_D1_D1_IK5(array, pattern, replacement, iseq, instance, sorted, unique)
14214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14215 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_IK5
14218 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
14219 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
14220 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
14222 procedure(
logical(LK)) :: iseq
14223 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14224 logical(LK) ,
intent(in) ,
optional :: sorted
14225 logical(LK) ,
intent(in) ,
optional :: unique
14230 module subroutine setReplacedCusComCusIns_D1_D1_D1_IK4(array, pattern, replacement, iseq, instance, sorted, unique)
14231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14232 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_IK4
14235 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
14236 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
14237 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
14239 procedure(
logical(LK)) :: iseq
14240 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14241 logical(LK) ,
intent(in) ,
optional :: sorted
14242 logical(LK) ,
intent(in) ,
optional :: unique
14247 module subroutine setReplacedCusComCusIns_D1_D1_D1_IK3(array, pattern, replacement, iseq, instance, sorted, unique)
14248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14249 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_IK3
14252 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
14253 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
14254 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
14256 procedure(
logical(LK)) :: iseq
14257 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14258 logical(LK) ,
intent(in) ,
optional :: sorted
14259 logical(LK) ,
intent(in) ,
optional :: unique
14264 module subroutine setReplacedCusComCusIns_D1_D1_D1_IK2(array, pattern, replacement, iseq, instance, sorted, unique)
14265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14266 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_IK2
14269 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
14270 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
14271 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
14273 procedure(
logical(LK)) :: iseq
14274 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14275 logical(LK) ,
intent(in) ,
optional :: sorted
14276 logical(LK) ,
intent(in) ,
optional :: unique
14282 module subroutine setReplacedCusComCusIns_D1_D1_D1_IK1(array, pattern, replacement, iseq, instance, sorted, unique)
14283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14284 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_IK1
14287 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
14288 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
14289 integer(IKG) ,
intent(in) ,
contiguous :: replacement(:)
14291 procedure(
logical(LK)) :: iseq
14292 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14293 logical(LK) ,
intent(in) ,
optional :: sorted
14294 logical(LK) ,
intent(in) ,
optional :: unique
14301 module subroutine setReplacedCusComCusIns_D1_D1_D1_LK5(array, pattern, replacement, iseq, instance, sorted, unique)
14302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14303 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_LK5
14306 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
14307 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
14308 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
14310 procedure(
logical(LK)) :: iseq
14311 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14312 logical(LK) ,
intent(in) ,
optional :: sorted
14313 logical(LK) ,
intent(in) ,
optional :: unique
14318 module subroutine setReplacedCusComCusIns_D1_D1_D1_LK4(array, pattern, replacement, iseq, instance, sorted, unique)
14319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14320 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_LK4
14323 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
14324 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
14325 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
14327 procedure(
logical(LK)) :: iseq
14328 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14329 logical(LK) ,
intent(in) ,
optional :: sorted
14330 logical(LK) ,
intent(in) ,
optional :: unique
14335 module subroutine setReplacedCusComCusIns_D1_D1_D1_LK3(array, pattern, replacement, iseq, instance, sorted, unique)
14336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14337 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_LK3
14340 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
14341 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
14342 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
14344 procedure(
logical(LK)) :: iseq
14345 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14346 logical(LK) ,
intent(in) ,
optional :: sorted
14347 logical(LK) ,
intent(in) ,
optional :: unique
14352 module subroutine setReplacedCusComCusIns_D1_D1_D1_LK2(array, pattern, replacement, iseq, instance, sorted, unique)
14353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14354 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_LK2
14357 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
14358 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
14359 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
14361 procedure(
logical(LK)) :: iseq
14362 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14363 logical(LK) ,
intent(in) ,
optional :: sorted
14364 logical(LK) ,
intent(in) ,
optional :: unique
14370 module subroutine setReplacedCusComCusIns_D1_D1_D1_LK1(array, pattern, replacement, iseq, instance, sorted, unique)
14371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14372 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_LK1
14375 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
14376 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
14377 logical(LKG) ,
intent(in) ,
contiguous :: replacement(:)
14379 procedure(
logical(LK)) :: iseq
14380 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14381 logical(LK) ,
intent(in) ,
optional :: sorted
14382 logical(LK) ,
intent(in) ,
optional :: unique
14389 module subroutine setReplacedCusComCusIns_D1_D1_D1_CK5(array, pattern, replacement, iseq, instance, sorted, unique)
14390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14391 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_CK5
14394 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
14395 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
14396 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
14398 procedure(
logical(LK)) :: iseq
14399 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14400 logical(LK) ,
intent(in) ,
optional :: sorted
14401 logical(LK) ,
intent(in) ,
optional :: unique
14406 module subroutine setReplacedCusComCusIns_D1_D1_D1_CK4(array, pattern, replacement, iseq, instance, sorted, unique)
14407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14408 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_CK4
14411 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
14412 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
14413 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
14415 procedure(
logical(LK)) :: iseq
14416 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14417 logical(LK) ,
intent(in) ,
optional :: sorted
14418 logical(LK) ,
intent(in) ,
optional :: unique
14423 module subroutine setReplacedCusComCusIns_D1_D1_D1_CK3(array, pattern, replacement, iseq, instance, sorted, unique)
14424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14425 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_CK3
14428 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
14429 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
14430 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
14432 procedure(
logical(LK)) :: iseq
14433 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14434 logical(LK) ,
intent(in) ,
optional :: sorted
14435 logical(LK) ,
intent(in) ,
optional :: unique
14440 module subroutine setReplacedCusComCusIns_D1_D1_D1_CK2(array, pattern, replacement, iseq, instance, sorted, unique)
14441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14442 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_CK2
14445 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
14446 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
14447 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
14449 procedure(
logical(LK)) :: iseq
14450 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14451 logical(LK) ,
intent(in) ,
optional :: sorted
14452 logical(LK) ,
intent(in) ,
optional :: unique
14458 module subroutine setReplacedCusComCusIns_D1_D1_D1_CK1(array, pattern, replacement, iseq, instance, sorted, unique)
14459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14460 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_CK1
14463 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
14464 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
14465 complex(CKG) ,
intent(in) ,
contiguous :: replacement(:)
14467 procedure(
logical(LK)) :: iseq
14468 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14469 logical(LK) ,
intent(in) ,
optional :: sorted
14470 logical(LK) ,
intent(in) ,
optional :: unique
14477 module subroutine setReplacedCusComCusIns_D1_D1_D1_RK5(array, pattern, replacement, iseq, instance, sorted, unique)
14478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14479 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_RK5
14482 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
14483 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
14484 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
14486 procedure(
logical(LK)) :: iseq
14487 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14488 logical(LK) ,
intent(in) ,
optional :: sorted
14489 logical(LK) ,
intent(in) ,
optional :: unique
14494 module subroutine setReplacedCusComCusIns_D1_D1_D1_RK4(array, pattern, replacement, iseq, instance, sorted, unique)
14495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14496 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_RK4
14499 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
14500 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
14501 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
14503 procedure(
logical(LK)) :: iseq
14504 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14505 logical(LK) ,
intent(in) ,
optional :: sorted
14506 logical(LK) ,
intent(in) ,
optional :: unique
14511 module subroutine setReplacedCusComCusIns_D1_D1_D1_RK3(array, pattern, replacement, iseq, instance, sorted, unique)
14512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14513 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_RK3
14516 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
14517 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
14518 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
14520 procedure(
logical(LK)) :: iseq
14521 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14522 logical(LK) ,
intent(in) ,
optional :: sorted
14523 logical(LK) ,
intent(in) ,
optional :: unique
14528 module subroutine setReplacedCusComCusIns_D1_D1_D1_RK2(array, pattern, replacement, iseq, instance, sorted, unique)
14529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14530 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_RK2
14533 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
14534 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
14535 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
14537 procedure(
logical(LK)) :: iseq
14538 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14539 logical(LK) ,
intent(in) ,
optional :: sorted
14540 logical(LK) ,
intent(in) ,
optional :: unique
14546 module subroutine setReplacedCusComCusIns_D1_D1_D1_RK1(array, pattern, replacement, iseq, instance, sorted, unique)
14547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14548 !DEC$ ATTRIBUTES DLLEXPORT :: setReplacedCusComCusIns_D1_D1_D1_RK1
14551 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
14552 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
14553 real(RKG) ,
intent(in) ,
contiguous :: replacement(:)
14555 procedure(
logical(LK)) :: iseq
14556 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
14557 logical(LK) ,
intent(in) ,
optional :: sorted
14558 logical(LK) ,
intent(in) ,
optional :: unique
14613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14618 character(
*,
SK),
intent(in) :: array, pattern, replacement
14619 character(:,
SK),
allocatable :: arrayNew
14620 integer(
IK) :: i, lenArray, lenPattern
14621 lenArray
= len(array)
14622 lenPattern
= len(pattern)
14623 if (lenArray
== 0_IK .or. lenPattern
== 0_IK)
then
14626 elseif (lenArray
< lenPattern)
then
14632 if (array(i:i
+lenPattern
-1)
== pattern)
then
14633 arrayNew
= array(
1:i
-1)
// replacement
// getReplaced_recurs_alloc(array(i
+lenPattern:lenArray), pattern, replacement)
14636 if (i
+lenPattern
> lenArray)
then
Generate and return an arrayNew of the same type and kind as the input array, in which the requested ...
Replace the requested instances of the input pattern with the input replacement in the allocatable in...
This module contains procedures and generic interfaces for replacing patterns within arrays of variou...
pure recursive character(:, SK) function, allocatable getReplaced_recurs_alloc(array, pattern, replacement)
[LEGACY code] Generate and return a copy of the input array where all instances of the input pattern...
character(*, SK), parameter MODULE_NAME
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...