ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_arrayReplace.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
51
52!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53
54module pm_arrayReplace
55
56 use pm_kind, only: SK, IK, LK
57
58 implicit none
59
60 character(*, SK), parameter :: MODULE_NAME = "@pm_arrayReplace"
61
63! \bug
64! The following bypasses the bug reported below that creates a conflict between Intel and gfortran.
65#if __INTEL_COMPILER
66#define LEN_ARRAY :
67#else
68#define LEN_ARRAY len(array)
69#endif
70
71
72!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
73
74 !abstract interface
75 !function iseq_proc_CK3(object1, object2) result(equivalent)
76 ! use pm_kind, only: CK => CK3
77 ! complex(CK) , intent(in) :: Object1(:), Object2(:)
78 ! logical(LK) :: equivalent
79 !end function
80 !end interface
81
82!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
83
85#if 0
86 ! gfortran 11 cannot run examples that contain procedure dummy arguments with explicit interface,
87 ! yielding the following error: Fortran runtime error: array bound mismatch for dimension 1 of array 'segment' (0/7021782950660276225)
88 ! Intel ifort 2021.6 can successfully compile and run the examples.
89 abstract interface
90
91 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
92 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
93 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
94
95 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
96
97#if SK5_ENABLED
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
101#endif
102 use pm_kind, only: LK, SKG => SK5
103 character(*,SKG) , intent(in) :: segment
104 character(*,SKG) , intent(in) :: pattern
105 logical(LK) :: equivalent
106 end function
107#endif
108
109#if SK4_ENABLED
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
113#endif
114 use pm_kind, only: LK, SKG => SK4
115 character(*,SKG) , intent(in) :: segment
116 character(*,SKG) , intent(in) :: pattern
117 logical(LK) :: equivalent
118 end function
119#endif
120
121#if SK3_ENABLED
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
125#endif
126 use pm_kind, only: LK, SKG => SK3
127 character(*,SKG) , intent(in) :: segment
128 character(*,SKG) , intent(in) :: pattern
129 logical(LK) :: equivalent
130 end function
131#endif
132
133#if SK2_ENABLED
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
137#endif
138 use pm_kind, only: LK, SKG => SK2
139 character(*,SKG) , intent(in) :: segment
140 character(*,SKG) , intent(in) :: pattern
141 logical(LK) :: equivalent
142 end function
143#endif
144
145#if SK1_ENABLED
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
149#endif
150 use pm_kind, only: LK, SKG => SK1
151 character(*,SKG) , intent(in) :: segment
152 character(*,SKG) , intent(in) :: pattern
153 logical(LK) :: equivalent
154 end function
155#endif
156
157 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
158
159#if IK5_ENABLED
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
163#endif
164 use pm_kind, only: LK, IKG => IK5
165 integer(IKG) , intent(in) :: segment
166 integer(IKG) , intent(in) :: pattern
167 logical(LK) :: equivalent
168 end function
169#endif
170
171#if IK4_ENABLED
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
175#endif
176 use pm_kind, only: LK, IKG => IK4
177 integer(IKG) , intent(in) :: segment
178 integer(IKG) , intent(in) :: pattern
179 logical(LK) :: equivalent
180 end function
181#endif
182
183#if IK3_ENABLED
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
187#endif
188 use pm_kind, only: LK, IKG => IK3
189 integer(IKG) , intent(in) :: segment
190 integer(IKG) , intent(in) :: pattern
191 logical(LK) :: equivalent
192 end function
193#endif
194
195#if IK2_ENABLED
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
199#endif
200 use pm_kind, only: LK, IKG => IK2
201 integer(IKG) , intent(in) :: segment
202 integer(IKG) , intent(in) :: pattern
203 logical(LK) :: equivalent
204 end function
205#endif
206
207#if IK1_ENABLED
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
211#endif
212 use pm_kind, only: LK, IKG => IK1
213 integer(IKG) , intent(in) :: segment
214 integer(IKG) , intent(in) :: pattern
215 logical(LK) :: equivalent
216 end function
217#endif
218
219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
220
221#if LK5_ENABLED
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
225#endif
226 use pm_kind, only: LK, LKG => LK5
227 logical(LKG) , intent(in) :: segment
228 logical(LKG) , intent(in) :: pattern
229 logical(LK) :: equivalent
230 end function
231#endif
232
233#if LK4_ENABLED
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
237#endif
238 use pm_kind, only: LK, LKG => LK4
239 logical(LKG) , intent(in) :: segment
240 logical(LKG) , intent(in) :: pattern
241 logical(LK) :: equivalent
242 end function
243#endif
244
245#if LK3_ENABLED
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
249#endif
250 use pm_kind, only: LK, LKG => LK3
251 logical(LKG) , intent(in) :: segment
252 logical(LKG) , intent(in) :: pattern
253 logical(LK) :: equivalent
254 end function
255#endif
256
257#if LK2_ENABLED
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
261#endif
262 use pm_kind, only: LK, LKG => LK2
263 logical(LKG) , intent(in) :: segment
264 logical(LKG) , intent(in) :: pattern
265 logical(LK) :: equivalent
266 end function
267#endif
268
269#if LK1_ENABLED
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
273#endif
274 use pm_kind, only: LK, LKG => LK1
275 logical(LKG) , intent(in) :: segment
276 logical(LKG) , intent(in) :: pattern
277 logical(LK) :: equivalent
278 end function
279#endif
280
281 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
282
283#if CK5_ENABLED
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
287#endif
288 use pm_kind, only: LK, CKG => CK5
289 complex(CKG) , intent(in) :: segment
290 complex(CKG) , intent(in) :: pattern
291 logical(LK) :: equivalent
292 end function
293#endif
294
295#if CK4_ENABLED
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
299#endif
300 use pm_kind, only: LK, CKG => CK4
301 complex(CKG) , intent(in) :: segment
302 complex(CKG) , intent(in) :: pattern
303 logical(LK) :: equivalent
304 end function
305#endif
306
307#if CK3_ENABLED
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
311#endif
312 use pm_kind, only: LK, CKG => CK3
313 complex(CKG) , intent(in) :: segment
314 complex(CKG) , intent(in) :: pattern
315 logical(LK) :: equivalent
316 end function
317#endif
318
319#if CK2_ENABLED
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
323#endif
324 use pm_kind, only: LK, CKG => CK2
325 complex(CKG) , intent(in) :: segment
326 complex(CKG) , intent(in) :: pattern
327 logical(LK) :: equivalent
328 end function
329#endif
330
331#if CK1_ENABLED
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
335#endif
336 use pm_kind, only: LK, CKG => CK1
337 complex(CKG) , intent(in) :: segment
338 complex(CKG) , intent(in) :: pattern
339 logical(LK) :: equivalent
340 end function
341#endif
342
343 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
344
345#if RK5_ENABLED
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
349#endif
350 use pm_kind, only: LK, RKG => RK5
351 real(RKG) , intent(in) :: segment
352 real(RKG) , intent(in) :: pattern
353 logical(LK) :: equivalent
354 end function
355#endif
356
357#if RK4_ENABLED
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
361#endif
362 use pm_kind, only: LK, RKG => RK4
363 real(RKG) , intent(in) :: segment
364 real(RKG) , intent(in) :: pattern
365 logical(LK) :: equivalent
366 end function
367#endif
368
369#if RK3_ENABLED
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
373#endif
374 use pm_kind, only: LK, RKG => RK3
375 real(RKG) , intent(in) :: segment
376 real(RKG) , intent(in) :: pattern
377 logical(LK) :: equivalent
378 end function
379#endif
380
381#if RK2_ENABLED
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
385#endif
386 use pm_kind, only: LK, RKG => RK2
387 real(RKG) , intent(in) :: segment
388 real(RKG) , intent(in) :: pattern
389 logical(LK) :: equivalent
390 end function
391#endif
392
393#if RK1_ENABLED
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
397#endif
398 use pm_kind, only: LK, RKG => RK1
399 real(RKG) , intent(in) :: segment
400 real(RKG) , intent(in) :: pattern
401 logical(LK) :: equivalent
402 end function
403#endif
404
405 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
406
407 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
408 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
409 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
410
411 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
412
413#if SK5_ENABLED
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
417#endif
418 use pm_kind, only: LK, SKG => SK5
419 character(*,SKG) , intent(in) , contiguous :: segment(:)
420 character(*,SKG) , intent(in) , contiguous :: pattern(:)
421 logical(LK) :: equivalent
422 end function
423#endif
424
425#if SK4_ENABLED
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
429#endif
430 use pm_kind, only: LK, SKG => SK4
431 character(*,SKG) , intent(in) , contiguous :: segment(:)
432 character(*,SKG) , intent(in) , contiguous :: pattern(:)
433 logical(LK) :: equivalent
434 end function
435#endif
436
437#if SK3_ENABLED
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
441#endif
442 use pm_kind, only: LK, SKG => SK3
443 character(*,SKG) , intent(in) , contiguous :: segment(:)
444 character(*,SKG) , intent(in) , contiguous :: pattern(:)
445 logical(LK) :: equivalent
446 end function
447#endif
448
449#if SK2_ENABLED
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
453#endif
454 use pm_kind, only: LK, SKG => SK2
455 character(*,SKG) , intent(in) , contiguous :: segment(:)
456 character(*,SKG) , intent(in) , contiguous :: pattern(:)
457 logical(LK) :: equivalent
458 end function
459#endif
460
461#if SK1_ENABLED
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
465#endif
466 use pm_kind, only: LK, SKG => SK1
467 character(*,SKG) , intent(in) , contiguous :: segment(:)
468 character(*,SKG) , intent(in) , contiguous :: pattern(:)
469 logical(LK) :: equivalent
470 end function
471#endif
472
473 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
474
475#if IK5_ENABLED
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
479#endif
480 use pm_kind, only: LK, IKG => IK5
481 integer(IKG) , intent(in) , contiguous :: segment(:)
482 integer(IKG) , intent(in) , contiguous :: pattern(:)
483 logical(LK) :: equivalent
484 end function
485#endif
486
487#if IK4_ENABLED
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
491#endif
492 use pm_kind, only: LK, IKG => IK4
493 integer(IKG) , intent(in) , contiguous :: segment(:)
494 integer(IKG) , intent(in) , contiguous :: pattern(:)
495 logical(LK) :: equivalent
496 end function
497#endif
498
499#if IK3_ENABLED
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
503#endif
504 use pm_kind, only: LK, IKG => IK3
505 integer(IKG) , intent(in) , contiguous :: segment(:)
506 integer(IKG) , intent(in) , contiguous :: pattern(:)
507 logical(LK) :: equivalent
508 end function
509#endif
510
511#if IK2_ENABLED
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
515#endif
516 use pm_kind, only: LK, IKG => IK2
517 integer(IKG) , intent(in) , contiguous :: segment(:)
518 integer(IKG) , intent(in) , contiguous :: pattern(:)
519 logical(LK) :: equivalent
520 end function
521#endif
522
523#if IK1_ENABLED
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
527#endif
528 use pm_kind, only: LK, IKG => IK1
529 integer(IKG) , intent(in) , contiguous :: segment(:)
530 integer(IKG) , intent(in) , contiguous :: pattern(:)
531 logical(LK) :: equivalent
532 end function
533#endif
534
535 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
536
537#if LK5_ENABLED
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
541#endif
542 use pm_kind, only: LK, LKG => LK5
543 logical(LKG) , intent(in) , contiguous :: segment(:)
544 logical(LKG) , intent(in) , contiguous :: pattern(:)
545 logical(LK) :: equivalent
546 end function
547#endif
548
549#if LK4_ENABLED
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
553#endif
554 use pm_kind, only: LK, LKG => LK4
555 logical(LKG) , intent(in) , contiguous :: segment(:)
556 logical(LKG) , intent(in) , contiguous :: pattern(:)
557 logical(LK) :: equivalent
558 end function
559#endif
560
561#if LK3_ENABLED
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
565#endif
566 use pm_kind, only: LK, LKG => LK3
567 logical(LKG) , intent(in) , contiguous :: segment(:)
568 logical(LKG) , intent(in) , contiguous :: pattern(:)
569 logical(LK) :: equivalent
570 end function
571#endif
572
573#if LK2_ENABLED
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
577#endif
578 use pm_kind, only: LK, LKG => LK2
579 logical(LKG) , intent(in) , contiguous :: segment(:)
580 logical(LKG) , intent(in) , contiguous :: pattern(:)
581 logical(LK) :: equivalent
582 end function
583#endif
584
585#if LK1_ENABLED
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
589#endif
590 use pm_kind, only: LK, LKG => LK1
591 logical(LKG) , intent(in) , contiguous :: segment(:)
592 logical(LKG) , intent(in) , contiguous :: pattern(:)
593 logical(LK) :: equivalent
594 end function
595#endif
596
597 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
598
599#if CK5_ENABLED
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
603#endif
604 use pm_kind, only: LK, CKG => CK5
605 complex(CKG) , intent(in) , contiguous :: segment(:)
606 complex(CKG) , intent(in) , contiguous :: pattern(:)
607 logical(LK) :: equivalent
608 end function
609#endif
610
611#if CK4_ENABLED
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
615#endif
616 use pm_kind, only: LK, CKG => CK4
617 complex(CKG) , intent(in) , contiguous :: segment(:)
618 complex(CKG) , intent(in) , contiguous :: pattern(:)
619 logical(LK) :: equivalent
620 end function
621#endif
622
623#if CK3_ENABLED
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
627#endif
628 use pm_kind, only: LK, CKG => CK3
629 complex(CKG) , intent(in) , contiguous :: segment(:)
630 complex(CKG) , intent(in) , contiguous :: pattern(:)
631 logical(LK) :: equivalent
632 end function
633#endif
634
635#if CK2_ENABLED
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
639#endif
640 use pm_kind, only: LK, CKG => CK2
641 complex(CKG) , intent(in) , contiguous :: segment(:)
642 complex(CKG) , intent(in) , contiguous :: pattern(:)
643 logical(LK) :: equivalent
644 end function
645#endif
646
647#if CK1_ENABLED
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
651#endif
652 use pm_kind, only: LK, CKG => CK1
653 complex(CKG) , intent(in) , contiguous :: segment(:)
654 complex(CKG) , intent(in) , contiguous :: pattern(:)
655 logical(LK) :: equivalent
656 end function
657#endif
658
659 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
660
661#if RK5_ENABLED
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
665#endif
666 use pm_kind, only: LK, RKG => RK5
667 real(RKG) , intent(in) , contiguous :: segment(:)
668 real(RKG) , intent(in) , contiguous :: pattern(:)
669 logical(LK) :: equivalent
670 end function
671#endif
672
673#if RK4_ENABLED
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
677#endif
678 use pm_kind, only: LK, RKG => RK4
679 real(RKG) , intent(in) , contiguous :: segment(:)
680 real(RKG) , intent(in) , contiguous :: pattern(:)
681 logical(LK) :: equivalent
682 end function
683#endif
684
685#if RK3_ENABLED
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
689#endif
690 use pm_kind, only: LK, RKG => RK3
691 real(RKG) , intent(in) , contiguous :: segment(:)
692 real(RKG) , intent(in) , contiguous :: pattern(:)
693 logical(LK) :: equivalent
694 end function
695#endif
696
697#if RK2_ENABLED
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
701#endif
702 use pm_kind, only: LK, RKG => RK2
703 real(RKG) , intent(in) , contiguous :: segment(:)
704 real(RKG) , intent(in) , contiguous :: pattern(:)
705 logical(LK) :: equivalent
706 end function
707#endif
708
709#if RK1_ENABLED
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
713#endif
714 use pm_kind, only: LK, RKG => RK1
715 real(RKG) , intent(in) , contiguous :: segment(:)
716 real(RKG) , intent(in) , contiguous :: pattern(:)
717 logical(LK) :: equivalent
718 end function
719#endif
720
721 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
722
723 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
724 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
725 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
726
727 end interface
728#endif
729
730
731!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
732
986 interface getReplaced
987
988 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
989 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
990 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
991 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
992 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
993 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
994 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
995 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
996 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
997
998 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
999
1000#if SK5_ENABLED
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
1004#endif
1005 use pm_kind, only: SKG => SK5
1006 character(*,SKG) , intent(in) :: array
1007 character(*,SKG) , intent(in) :: pattern
1008 character(*,SKG) , intent(in) :: replacement
1009 character(:,SKG) , allocatable :: arrayNew
1010 end function
1011#endif
1012
1013#if SK4_ENABLED
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
1017#endif
1018 use pm_kind, only: SKG => SK4
1019 character(*,SKG) , intent(in) :: array
1020 character(*,SKG) , intent(in) :: pattern
1021 character(*,SKG) , intent(in) :: replacement
1022 character(:,SKG) , allocatable :: arrayNew
1023 end function
1024#endif
1025
1026#if SK3_ENABLED
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
1030#endif
1031 use pm_kind, only: SKG => SK3
1032 character(*,SKG) , intent(in) :: array
1033 character(*,SKG) , intent(in) :: pattern
1034 character(*,SKG) , intent(in) :: replacement
1035 character(:,SKG) , allocatable :: arrayNew
1036 end function
1037#endif
1038
1039#if SK2_ENABLED
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
1043#endif
1044 use pm_kind, only: SKG => SK2
1045 character(*,SKG) , intent(in) :: array
1046 character(*,SKG) , intent(in) :: pattern
1047 character(*,SKG) , intent(in) :: replacement
1048 character(:,SKG) , allocatable :: arrayNew
1049 end function
1050
1051#endif
1052
1053#if SK1_ENABLED
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
1057#endif
1058 use pm_kind, only: SKG => SK1
1059 character(*,SKG) , intent(in) :: array
1060 character(*,SKG) , intent(in) :: pattern
1061 character(*,SKG) , intent(in) :: replacement
1062 character(:,SKG) , allocatable :: arrayNew
1063 end function
1064#endif
1065
1066 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1067
1068 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1069 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1070 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1071
1072 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1073
1074#if SK5_ENABLED
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
1078#endif
1079 use pm_kind, only: SKG => 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(:)
1084 end function
1085#endif
1086
1087#if SK4_ENABLED
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
1091#endif
1092 use pm_kind, only: SKG => 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(:)
1097 end function
1098#endif
1099
1100#if SK3_ENABLED
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
1104#endif
1105 use pm_kind, only: SKG => 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(:)
1110 end function
1111#endif
1112
1113#if SK2_ENABLED
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
1117#endif
1118 use pm_kind, only: SKG => 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(:)
1123 end function
1124
1125#endif
1126
1127#if SK1_ENABLED
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
1131#endif
1132 use pm_kind, only: SKG => 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(:)
1137 end function
1138#endif
1139
1140 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1141
1142#if IK5_ENABLED
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
1146#endif
1147 use pm_kind, only: IKG => 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(:)
1152 end function
1153#endif
1154
1155#if IK4_ENABLED
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
1159#endif
1160 use pm_kind, only: IKG => 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(:)
1165 end function
1166#endif
1167
1168#if IK3_ENABLED
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
1172#endif
1173 use pm_kind, only: IKG => 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(:)
1178 end function
1179#endif
1180
1181#if IK2_ENABLED
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
1185#endif
1186 use pm_kind, only: IKG => 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(:)
1191 end function
1192
1193#endif
1194
1195#if IK1_ENABLED
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
1199#endif
1200 use pm_kind, only: IKG => 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(:)
1205 end function
1206#endif
1207
1208 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1209
1210#if LK5_ENABLED
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
1214#endif
1215 use pm_kind, only: LKG => 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(:)
1220 end function
1221#endif
1222
1223#if LK4_ENABLED
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
1227#endif
1228 use pm_kind, only: LKG => 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(:)
1233 end function
1234#endif
1235
1236#if LK3_ENABLED
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
1240#endif
1241 use pm_kind, only: LKG => 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(:)
1246 end function
1247#endif
1248
1249#if LK2_ENABLED
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
1253#endif
1254 use pm_kind, only: LKG => 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(:)
1259 end function
1260
1261#endif
1262
1263#if LK1_ENABLED
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
1267#endif
1268 use pm_kind, only: LKG => 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(:)
1273 end function
1274#endif
1275
1276 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1277
1278#if CK5_ENABLED
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
1282#endif
1283 use pm_kind, only: CKG => 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(:)
1288 end function
1289#endif
1290
1291#if CK4_ENABLED
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
1295#endif
1296 use pm_kind, only: CKG => 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(:)
1301 end function
1302#endif
1303
1304#if CK3_ENABLED
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
1308#endif
1309 use pm_kind, only: CKG => 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(:)
1314 end function
1315#endif
1316
1317#if CK2_ENABLED
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
1321#endif
1322 use pm_kind, only: CKG => 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(:)
1327 end function
1328
1329#endif
1330
1331#if CK1_ENABLED
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
1335#endif
1336 use pm_kind, only: CKG => 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(:)
1341 end function
1342#endif
1343
1344 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1345
1346#if RK5_ENABLED
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
1350#endif
1351 use pm_kind, only: RKG => 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(:)
1356 end function
1357#endif
1358
1359#if RK4_ENABLED
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
1363#endif
1364 use pm_kind, only: RKG => 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(:)
1369 end function
1370#endif
1371
1372#if RK3_ENABLED
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
1376#endif
1377 use pm_kind, only: RKG => 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(:)
1382 end function
1383#endif
1384
1385#if RK2_ENABLED
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
1389#endif
1390 use pm_kind, only: RKG => 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(:)
1395 end function
1396
1397#endif
1398
1399#if RK1_ENABLED
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
1403#endif
1404 use pm_kind, only: RKG => 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(:)
1409 end function
1410#endif
1411
1412 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1413
1414 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1415 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1416 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1417
1418 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1419
1420#if SK5_ENABLED
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
1424#endif
1425 use pm_kind, only: SKG => 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(:)
1430 end function
1431#endif
1432
1433#if SK4_ENABLED
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
1437#endif
1438 use pm_kind, only: SKG => 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(:)
1443 end function
1444#endif
1445
1446#if SK3_ENABLED
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
1450#endif
1451 use pm_kind, only: SKG => 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(:)
1456 end function
1457#endif
1458
1459#if SK2_ENABLED
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
1463#endif
1464 use pm_kind, only: SKG => 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(:)
1469 end function
1470
1471#endif
1472
1473#if SK1_ENABLED
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
1477#endif
1478 use pm_kind, only: SKG => 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(:)
1483 end function
1484#endif
1485
1486 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1487
1488#if IK5_ENABLED
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
1492#endif
1493 use pm_kind, only: IKG => 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(:)
1498 end function
1499#endif
1500
1501#if IK4_ENABLED
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
1505#endif
1506 use pm_kind, only: IKG => 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(:)
1511 end function
1512#endif
1513
1514#if IK3_ENABLED
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
1518#endif
1519 use pm_kind, only: IKG => 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(:)
1524 end function
1525#endif
1526
1527#if IK2_ENABLED
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
1531#endif
1532 use pm_kind, only: IKG => 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(:)
1537 end function
1538
1539#endif
1540
1541#if IK1_ENABLED
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
1545#endif
1546 use pm_kind, only: IKG => 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(:)
1551 end function
1552#endif
1553
1554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1555
1556#if LK5_ENABLED
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
1560#endif
1561 use pm_kind, only: LKG => 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(:)
1566 end function
1567#endif
1568
1569#if LK4_ENABLED
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
1573#endif
1574 use pm_kind, only: LKG => 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(:)
1579 end function
1580#endif
1581
1582#if LK3_ENABLED
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
1586#endif
1587 use pm_kind, only: LKG => 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(:)
1592 end function
1593#endif
1594
1595#if LK2_ENABLED
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
1599#endif
1600 use pm_kind, only: LKG => 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(:)
1605 end function
1606
1607#endif
1608
1609#if LK1_ENABLED
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
1613#endif
1614 use pm_kind, only: LKG => 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(:)
1619 end function
1620#endif
1621
1622 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1623
1624#if CK5_ENABLED
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
1628#endif
1629 use pm_kind, only: CKG => 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(:)
1634 end function
1635#endif
1636
1637#if CK4_ENABLED
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
1641#endif
1642 use pm_kind, only: CKG => 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(:)
1647 end function
1648#endif
1649
1650#if CK3_ENABLED
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
1654#endif
1655 use pm_kind, only: CKG => 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(:)
1660 end function
1661#endif
1662
1663#if CK2_ENABLED
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
1667#endif
1668 use pm_kind, only: CKG => 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(:)
1673 end function
1674
1675#endif
1676
1677#if CK1_ENABLED
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
1681#endif
1682 use pm_kind, only: CKG => 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(:)
1687 end function
1688#endif
1689
1690 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1691
1692#if RK5_ENABLED
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
1696#endif
1697 use pm_kind, only: RKG => 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(:)
1702 end function
1703#endif
1704
1705#if RK4_ENABLED
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
1709#endif
1710 use pm_kind, only: RKG => 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(:)
1715 end function
1716#endif
1717
1718#if RK3_ENABLED
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
1722#endif
1723 use pm_kind, only: RKG => 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(:)
1728 end function
1729#endif
1730
1731#if RK2_ENABLED
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
1735#endif
1736 use pm_kind, only: RKG => 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(:)
1741 end function
1742
1743#endif
1744
1745#if RK1_ENABLED
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
1749#endif
1750 use pm_kind, only: RKG => 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(:)
1755 end function
1756#endif
1757
1758 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1759
1760 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1761 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1762 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1763
1764 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1765
1766#if SK5_ENABLED
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
1770#endif
1771 use pm_kind, only: SKG => 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(:)
1776 end function
1777#endif
1778
1779#if SK4_ENABLED
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
1783#endif
1784 use pm_kind, only: SKG => 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(:)
1789 end function
1790#endif
1791
1792#if SK3_ENABLED
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
1796#endif
1797 use pm_kind, only: SKG => 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(:)
1802 end function
1803#endif
1804
1805#if SK2_ENABLED
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
1809#endif
1810 use pm_kind, only: SKG => 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(:)
1815 end function
1816
1817#endif
1818
1819#if SK1_ENABLED
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
1823#endif
1824 use pm_kind, only: SKG => 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(:)
1829 end function
1830#endif
1831
1832 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1833
1834#if IK5_ENABLED
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
1838#endif
1839 use pm_kind, only: IKG => 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(:)
1844 end function
1845#endif
1846
1847#if IK4_ENABLED
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
1851#endif
1852 use pm_kind, only: IKG => 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(:)
1857 end function
1858#endif
1859
1860#if IK3_ENABLED
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
1864#endif
1865 use pm_kind, only: IKG => 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(:)
1870 end function
1871#endif
1872
1873#if IK2_ENABLED
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
1877#endif
1878 use pm_kind, only: IKG => 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(:)
1883 end function
1884
1885#endif
1886
1887#if IK1_ENABLED
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
1891#endif
1892 use pm_kind, only: IKG => 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(:)
1897 end function
1898#endif
1899
1900 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1901
1902#if LK5_ENABLED
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
1906#endif
1907 use pm_kind, only: LKG => 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(:)
1912 end function
1913#endif
1914
1915#if LK4_ENABLED
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
1919#endif
1920 use pm_kind, only: LKG => 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(:)
1925 end function
1926#endif
1927
1928#if LK3_ENABLED
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
1932#endif
1933 use pm_kind, only: LKG => 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(:)
1938 end function
1939#endif
1940
1941#if LK2_ENABLED
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
1945#endif
1946 use pm_kind, only: LKG => 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(:)
1951 end function
1952
1953#endif
1954
1955#if LK1_ENABLED
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
1959#endif
1960 use pm_kind, only: LKG => 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(:)
1965 end function
1966#endif
1967
1968 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1969
1970#if CK5_ENABLED
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
1974#endif
1975 use pm_kind, only: CKG => 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(:)
1980 end function
1981#endif
1982
1983#if CK4_ENABLED
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
1987#endif
1988 use pm_kind, only: CKG => 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(:)
1993 end function
1994#endif
1995
1996#if CK3_ENABLED
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
2000#endif
2001 use pm_kind, only: CKG => 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(:)
2006 end function
2007#endif
2008
2009#if CK2_ENABLED
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
2013#endif
2014 use pm_kind, only: CKG => 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(:)
2019 end function
2020
2021#endif
2022
2023#if CK1_ENABLED
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
2027#endif
2028 use pm_kind, only: CKG => 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(:)
2033 end function
2034#endif
2035
2036 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2037
2038#if RK5_ENABLED
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
2042#endif
2043 use pm_kind, only: RKG => 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(:)
2048 end function
2049#endif
2050
2051#if RK4_ENABLED
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
2055#endif
2056 use pm_kind, only: RKG => 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(:)
2061 end function
2062#endif
2063
2064#if RK3_ENABLED
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
2068#endif
2069 use pm_kind, only: RKG => 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(:)
2074 end function
2075#endif
2076
2077#if RK2_ENABLED
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
2081#endif
2082 use pm_kind, only: RKG => 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(:)
2087 end function
2088
2089#endif
2090
2091#if RK1_ENABLED
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
2095#endif
2096 use pm_kind, only: RKG => 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(:)
2101 end function
2102#endif
2103
2104 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2105
2106 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2107 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2108 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2109
2110 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2111
2112#if SK5_ENABLED
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
2116#endif
2117 use pm_kind, only: SKG => 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(:)
2122 end function
2123#endif
2124
2125#if SK4_ENABLED
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
2129#endif
2130 use pm_kind, only: SKG => 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(:)
2135 end function
2136#endif
2137
2138#if SK3_ENABLED
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
2142#endif
2143 use pm_kind, only: SKG => 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(:)
2148 end function
2149#endif
2150
2151#if SK2_ENABLED
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
2155#endif
2156 use pm_kind, only: SKG => 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(:)
2161 end function
2162
2163#endif
2164
2165#if SK1_ENABLED
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
2169#endif
2170 use pm_kind, only: SKG => 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(:)
2175 end function
2176#endif
2177
2178 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2179
2180#if IK5_ENABLED
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
2184#endif
2185 use pm_kind, only: IKG => 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(:)
2190 end function
2191#endif
2192
2193#if IK4_ENABLED
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
2197#endif
2198 use pm_kind, only: IKG => 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(:)
2203 end function
2204#endif
2205
2206#if IK3_ENABLED
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
2210#endif
2211 use pm_kind, only: IKG => 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(:)
2216 end function
2217#endif
2218
2219#if IK2_ENABLED
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
2223#endif
2224 use pm_kind, only: IKG => 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(:)
2229 end function
2230
2231#endif
2232
2233#if IK1_ENABLED
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
2237#endif
2238 use pm_kind, only: IKG => 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(:)
2243 end function
2244#endif
2245
2246 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2247
2248#if LK5_ENABLED
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
2252#endif
2253 use pm_kind, only: LKG => 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(:)
2258 end function
2259#endif
2260
2261#if LK4_ENABLED
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
2265#endif
2266 use pm_kind, only: LKG => 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(:)
2271 end function
2272#endif
2273
2274#if LK3_ENABLED
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
2278#endif
2279 use pm_kind, only: LKG => 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(:)
2284 end function
2285#endif
2286
2287#if LK2_ENABLED
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
2291#endif
2292 use pm_kind, only: LKG => 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(:)
2297 end function
2298
2299#endif
2300
2301#if LK1_ENABLED
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
2305#endif
2306 use pm_kind, only: LKG => 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(:)
2311 end function
2312#endif
2313
2314 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2315
2316#if CK5_ENABLED
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
2320#endif
2321 use pm_kind, only: CKG => 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(:)
2326 end function
2327#endif
2328
2329#if CK4_ENABLED
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
2333#endif
2334 use pm_kind, only: CKG => 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(:)
2339 end function
2340#endif
2341
2342#if CK3_ENABLED
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
2346#endif
2347 use pm_kind, only: CKG => 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(:)
2352 end function
2353#endif
2354
2355#if CK2_ENABLED
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
2359#endif
2360 use pm_kind, only: CKG => 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(:)
2365 end function
2366
2367#endif
2368
2369#if CK1_ENABLED
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
2373#endif
2374 use pm_kind, only: CKG => 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(:)
2379 end function
2380#endif
2381
2382 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2383
2384#if RK5_ENABLED
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
2388#endif
2389 use pm_kind, only: RKG => 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(:)
2394 end function
2395#endif
2396
2397#if RK4_ENABLED
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
2401#endif
2402 use pm_kind, only: RKG => 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(:)
2407 end function
2408#endif
2409
2410#if RK3_ENABLED
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
2414#endif
2415 use pm_kind, only: RKG => 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(:)
2420 end function
2421#endif
2422
2423#if RK2_ENABLED
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
2427#endif
2428 use pm_kind, only: RKG => 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(:)
2433 end function
2434
2435#endif
2436
2437#if RK1_ENABLED
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
2441#endif
2442 use pm_kind, only: RKG => 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(:)
2447 end function
2448#endif
2449
2450 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2451
2452 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2454 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2455 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2456 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2457 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2458 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2459 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2460 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2461
2462 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2463
2464#if SK5_ENABLED
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
2468#endif
2469 use pm_kind, only: SKG => SK5
2470 character(*,SKG) , intent(in) :: array
2471 character(*,SKG) , intent(in) :: pattern
2472 character(*,SKG) , intent(in) :: replacement
2473 !procedure(iseq_D0_D0_SK5) :: iseq
2474 procedure(logical(LK)) :: iseq
2475 character(:,SKG) , allocatable :: arrayNew
2476 end function
2477#endif
2478
2479#if SK4_ENABLED
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
2483#endif
2484 use pm_kind, only: SKG => SK4
2485 character(*,SKG) , intent(in) :: array
2486 character(*,SKG) , intent(in) :: pattern
2487 character(*,SKG) , intent(in) :: replacement
2488 !procedure(iseq_D0_D0_SK4) :: iseq
2489 procedure(logical(LK)) :: iseq
2490 character(:,SKG) , allocatable :: arrayNew
2491 end function
2492#endif
2493
2494#if SK3_ENABLED
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
2498#endif
2499 use pm_kind, only: SKG => SK3
2500 character(*,SKG) , intent(in) :: array
2501 character(*,SKG) , intent(in) :: pattern
2502 character(*,SKG) , intent(in) :: replacement
2503 !procedure(iseq_D0_D0_SK3) :: iseq
2504 procedure(logical(LK)) :: iseq
2505 character(:,SKG) , allocatable :: arrayNew
2506 end function
2507#endif
2508
2509#if SK2_ENABLED
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
2513#endif
2514 use pm_kind, only: SKG => SK2
2515 character(*,SKG) , intent(in) :: array
2516 character(*,SKG) , intent(in) :: pattern
2517 character(*,SKG) , intent(in) :: replacement
2518 !procedure(iseq_D0_D0_SK2) :: iseq
2519 procedure(logical(LK)) :: iseq
2520 character(:,SKG) , allocatable :: arrayNew
2521 end function
2522
2523#endif
2524
2525#if SK1_ENABLED
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
2529#endif
2530 use pm_kind, only: SKG => SK1
2531 character(*,SKG) , intent(in) :: array
2532 character(*,SKG) , intent(in) :: pattern
2533 character(*,SKG) , intent(in) :: replacement
2534 !procedure(iseq_D0_D0_SK1) :: iseq
2535 procedure(logical(LK)) :: iseq
2536 character(:,SKG) , allocatable :: arrayNew
2537 end function
2538#endif
2539
2540 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2541
2542 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2544 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2545
2546 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2547
2548#if SK5_ENABLED
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
2552#endif
2553 use pm_kind, only: SKG => SK5
2554 character(*,SKG) , intent(in) , contiguous :: array(:)
2555 character(*,SKG) , intent(in) :: pattern
2556 character(*,SKG) , intent(in) :: replacement
2557 !procedure(iseq_D0_D0_SK5) :: iseq
2558 procedure(logical(LK)) :: iseq
2559 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
2560 end function
2561#endif
2562
2563#if SK4_ENABLED
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
2567#endif
2568 use pm_kind, only: SKG => SK4
2569 character(*,SKG) , intent(in) , contiguous :: array(:)
2570 character(*,SKG) , intent(in) :: pattern
2571 character(*,SKG) , intent(in) :: replacement
2572 !procedure(iseq_D0_D0_SK4) :: iseq
2573 procedure(logical(LK)) :: iseq
2574 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
2575 end function
2576#endif
2577
2578#if SK3_ENABLED
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
2582#endif
2583 use pm_kind, only: SKG => SK3
2584 character(*,SKG) , intent(in) , contiguous :: array(:)
2585 character(*,SKG) , intent(in) :: pattern
2586 character(*,SKG) , intent(in) :: replacement
2587 !procedure(iseq_D0_D0_SK3) :: iseq
2588 procedure(logical(LK)) :: iseq
2589 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
2590 end function
2591#endif
2592
2593#if SK2_ENABLED
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
2597#endif
2598 use pm_kind, only: SKG => SK2
2599 character(*,SKG) , intent(in) , contiguous :: array(:)
2600 character(*,SKG) , intent(in) :: pattern
2601 character(*,SKG) , intent(in) :: replacement
2602 !procedure(iseq_D0_D0_SK2) :: iseq
2603 procedure(logical(LK)) :: iseq
2604 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
2605 end function
2606
2607#endif
2608
2609#if SK1_ENABLED
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
2613#endif
2614 use pm_kind, only: SKG => SK1
2615 character(*,SKG) , intent(in) , contiguous :: array(:)
2616 character(*,SKG) , intent(in) :: pattern
2617 character(*,SKG) , intent(in) :: replacement
2618 !procedure(iseq_D0_D0_SK1) :: iseq
2619 procedure(logical(LK)) :: iseq
2620 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
2621 end function
2622#endif
2623
2624 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2625
2626#if IK5_ENABLED
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
2630#endif
2631 use pm_kind, only: IKG => IK5
2632 integer(IKG) , intent(in) , contiguous :: array(:)
2633 integer(IKG) , intent(in) :: pattern
2634 integer(IKG) , intent(in) :: replacement
2635 !procedure(iseq_D0_D0_IK5) :: iseq
2636 procedure(logical(LK)) :: iseq
2637 integer(IKG) , allocatable :: arrayNew(:)
2638 end function
2639#endif
2640
2641#if IK4_ENABLED
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
2645#endif
2646 use pm_kind, only: IKG => IK4
2647 integer(IKG) , intent(in) , contiguous :: array(:)
2648 integer(IKG) , intent(in) :: pattern
2649 integer(IKG) , intent(in) :: replacement
2650 !procedure(iseq_D0_D0_IK4) :: iseq
2651 procedure(logical(LK)) :: iseq
2652 integer(IKG) , allocatable :: arrayNew(:)
2653 end function
2654#endif
2655
2656#if IK3_ENABLED
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
2660#endif
2661 use pm_kind, only: IKG => IK3
2662 integer(IKG) , intent(in) , contiguous :: array(:)
2663 integer(IKG) , intent(in) :: pattern
2664 integer(IKG) , intent(in) :: replacement
2665 !procedure(iseq_D0_D0_IK3) :: iseq
2666 procedure(logical(LK)) :: iseq
2667 integer(IKG) , allocatable :: arrayNew(:)
2668 end function
2669#endif
2670
2671#if IK2_ENABLED
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
2675#endif
2676 use pm_kind, only: IKG => IK2
2677 integer(IKG) , intent(in) , contiguous :: array(:)
2678 integer(IKG) , intent(in) :: pattern
2679 integer(IKG) , intent(in) :: replacement
2680 !procedure(iseq_D0_D0_IK2) :: iseq
2681 procedure(logical(LK)) :: iseq
2682 integer(IKG) , allocatable :: arrayNew(:)
2683 end function
2684
2685#endif
2686
2687#if IK1_ENABLED
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
2691#endif
2692 use pm_kind, only: IKG => IK1
2693 integer(IKG) , intent(in) , contiguous :: array(:)
2694 integer(IKG) , intent(in) :: pattern
2695 integer(IKG) , intent(in) :: replacement
2696 !procedure(iseq_D0_D0_IK1) :: iseq
2697 procedure(logical(LK)) :: iseq
2698 integer(IKG) , allocatable :: arrayNew(:)
2699 end function
2700#endif
2701
2702 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2703
2704#if LK5_ENABLED
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
2708#endif
2709 use pm_kind, only: LKG => LK5
2710 logical(LKG) , intent(in) , contiguous :: array(:)
2711 logical(LKG) , intent(in) :: pattern
2712 logical(LKG) , intent(in) :: replacement
2713 !procedure(iseq_D0_D0_LK5) :: iseq
2714 procedure(logical(LK)) :: iseq
2715 logical(LKG) , allocatable :: arrayNew(:)
2716 end function
2717#endif
2718
2719#if LK4_ENABLED
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
2723#endif
2724 use pm_kind, only: LKG => LK4
2725 logical(LKG) , intent(in) , contiguous :: array(:)
2726 logical(LKG) , intent(in) :: pattern
2727 logical(LKG) , intent(in) :: replacement
2728 !procedure(iseq_D0_D0_LK4) :: iseq
2729 procedure(logical(LK)) :: iseq
2730 logical(LKG) , allocatable :: arrayNew(:)
2731 end function
2732#endif
2733
2734#if LK3_ENABLED
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
2738#endif
2739 use pm_kind, only: LKG => LK3
2740 logical(LKG) , intent(in) , contiguous :: array(:)
2741 logical(LKG) , intent(in) :: pattern
2742 logical(LKG) , intent(in) :: replacement
2743 !procedure(iseq_D0_D0_LK3) :: iseq
2744 procedure(logical(LK)) :: iseq
2745 logical(LKG) , allocatable :: arrayNew(:)
2746 end function
2747#endif
2748
2749#if LK2_ENABLED
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
2753#endif
2754 use pm_kind, only: LKG => LK2
2755 logical(LKG) , intent(in) , contiguous :: array(:)
2756 logical(LKG) , intent(in) :: pattern
2757 logical(LKG) , intent(in) :: replacement
2758 !procedure(iseq_D0_D0_LK2) :: iseq
2759 procedure(logical(LK)) :: iseq
2760 logical(LKG) , allocatable :: arrayNew(:)
2761 end function
2762
2763#endif
2764
2765#if LK1_ENABLED
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
2769#endif
2770 use pm_kind, only: LKG => LK1
2771 logical(LKG) , intent(in) , contiguous :: array(:)
2772 logical(LKG) , intent(in) :: pattern
2773 logical(LKG) , intent(in) :: replacement
2774 !procedure(iseq_D0_D0_LK1) :: iseq
2775 procedure(logical(LK)) :: iseq
2776 logical(LKG) , allocatable :: arrayNew(:)
2777 end function
2778#endif
2779
2780 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2781
2782#if CK5_ENABLED
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
2786#endif
2787 use pm_kind, only: CKG => CK5
2788 complex(CKG) , intent(in) , contiguous :: array(:)
2789 complex(CKG) , intent(in) :: pattern
2790 complex(CKG) , intent(in) :: replacement
2791 !procedure(iseq_D0_D0_CK5) :: iseq
2792 procedure(logical(LK)) :: iseq
2793 complex(CKG) , allocatable :: arrayNew(:)
2794 end function
2795#endif
2796
2797#if CK4_ENABLED
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
2801#endif
2802 use pm_kind, only: CKG => CK4
2803 complex(CKG) , intent(in) , contiguous :: array(:)
2804 complex(CKG) , intent(in) :: pattern
2805 complex(CKG) , intent(in) :: replacement
2806 !procedure(iseq_D0_D0_CK4) :: iseq
2807 procedure(logical(LK)) :: iseq
2808 complex(CKG) , allocatable :: arrayNew(:)
2809 end function
2810#endif
2811
2812#if CK3_ENABLED
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
2816#endif
2817 use pm_kind, only: CKG => CK3
2818 complex(CKG) , intent(in) , contiguous :: array(:)
2819 complex(CKG) , intent(in) :: pattern
2820 complex(CKG) , intent(in) :: replacement
2821 !procedure(iseq_D0_D0_CK3) :: iseq
2822 procedure(logical(LK)) :: iseq
2823 complex(CKG) , allocatable :: arrayNew(:)
2824 end function
2825#endif
2826
2827#if CK2_ENABLED
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
2831#endif
2832 use pm_kind, only: CKG => CK2
2833 complex(CKG) , intent(in) , contiguous :: array(:)
2834 complex(CKG) , intent(in) :: pattern
2835 complex(CKG) , intent(in) :: replacement
2836 !procedure(iseq_D0_D0_CK2) :: iseq
2837 procedure(logical(LK)) :: iseq
2838 complex(CKG) , allocatable :: arrayNew(:)
2839 end function
2840
2841#endif
2842
2843#if CK1_ENABLED
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
2847#endif
2848 use pm_kind, only: CKG => CK1
2849 complex(CKG) , intent(in) , contiguous :: array(:)
2850 complex(CKG) , intent(in) :: pattern
2851 complex(CKG) , intent(in) :: replacement
2852 !procedure(iseq_D0_D0_CK1) :: iseq
2853 procedure(logical(LK)) :: iseq
2854 complex(CKG) , allocatable :: arrayNew(:)
2855 end function
2856#endif
2857
2858 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2859
2860#if RK5_ENABLED
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
2864#endif
2865 use pm_kind, only: RKG => RK5
2866 real(RKG) , intent(in) , contiguous :: array(:)
2867 real(RKG) , intent(in) :: pattern
2868 real(RKG) , intent(in) :: replacement
2869 !procedure(iseq_D0_D0_RK5) :: iseq
2870 procedure(logical(LK)) :: iseq
2871 real(RKG) , allocatable :: arrayNew(:)
2872 end function
2873#endif
2874
2875#if RK4_ENABLED
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
2879#endif
2880 use pm_kind, only: RKG => RK4
2881 real(RKG) , intent(in) , contiguous :: array(:)
2882 real(RKG) , intent(in) :: pattern
2883 real(RKG) , intent(in) :: replacement
2884 !procedure(iseq_D0_D0_RK4) :: iseq
2885 procedure(logical(LK)) :: iseq
2886 real(RKG) , allocatable :: arrayNew(:)
2887 end function
2888#endif
2889
2890#if RK3_ENABLED
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
2894#endif
2895 use pm_kind, only: RKG => RK3
2896 real(RKG) , intent(in) , contiguous :: array(:)
2897 real(RKG) , intent(in) :: pattern
2898 real(RKG) , intent(in) :: replacement
2899 !procedure(iseq_D0_D0_RK3) :: iseq
2900 procedure(logical(LK)) :: iseq
2901 real(RKG) , allocatable :: arrayNew(:)
2902 end function
2903#endif
2904
2905#if RK2_ENABLED
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
2909#endif
2910 use pm_kind, only: RKG => RK2
2911 real(RKG) , intent(in) , contiguous :: array(:)
2912 real(RKG) , intent(in) :: pattern
2913 real(RKG) , intent(in) :: replacement
2914 !procedure(iseq_D0_D0_RK2) :: iseq
2915 procedure(logical(LK)) :: iseq
2916 real(RKG) , allocatable :: arrayNew(:)
2917 end function
2918
2919#endif
2920
2921#if RK1_ENABLED
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
2925#endif
2926 use pm_kind, only: RKG => RK1
2927 real(RKG) , intent(in) , contiguous :: array(:)
2928 real(RKG) , intent(in) :: pattern
2929 real(RKG) , intent(in) :: replacement
2930 !procedure(iseq_D0_D0_RK1) :: iseq
2931 procedure(logical(LK)) :: iseq
2932 real(RKG) , allocatable :: arrayNew(:)
2933 end function
2934#endif
2935
2936 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2937
2938 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2939 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2940 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2941
2942 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2943
2944#if SK5_ENABLED
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
2948#endif
2949 use pm_kind, only: SKG => SK5
2950 character(*,SKG) , intent(in) , contiguous :: array(:)
2951 character(*,SKG) , intent(in) :: pattern
2952 character(*,SKG) , intent(in) , contiguous :: replacement(:)
2953 !procedure(iseq_D0_D0_SK5) :: iseq
2954 procedure(logical(LK)) :: iseq
2955 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
2956 end function
2957#endif
2958
2959#if SK4_ENABLED
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
2963#endif
2964 use pm_kind, only: SKG => SK4
2965 character(*,SKG) , intent(in) , contiguous :: array(:)
2966 character(*,SKG) , intent(in) :: pattern
2967 character(*,SKG) , intent(in) , contiguous :: replacement(:)
2968 !procedure(iseq_D0_D0_SK4) :: iseq
2969 procedure(logical(LK)) :: iseq
2970 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
2971 end function
2972#endif
2973
2974#if SK3_ENABLED
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
2978#endif
2979 use pm_kind, only: SKG => SK3
2980 character(*,SKG) , intent(in) , contiguous :: array(:)
2981 character(*,SKG) , intent(in) :: pattern
2982 character(*,SKG) , intent(in) , contiguous :: replacement(:)
2983 !procedure(iseq_D0_D0_SK3) :: iseq
2984 procedure(logical(LK)) :: iseq
2985 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
2986 end function
2987#endif
2988
2989#if SK2_ENABLED
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
2993#endif
2994 use pm_kind, only: SKG => SK2
2995 character(*,SKG) , intent(in) , contiguous :: array(:)
2996 character(*,SKG) , intent(in) :: pattern
2997 character(*,SKG) , intent(in) , contiguous :: replacement(:)
2998 !procedure(iseq_D0_D0_SK2) :: iseq
2999 procedure(logical(LK)) :: iseq
3000 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
3001 end function
3002
3003#endif
3004
3005#if SK1_ENABLED
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
3009#endif
3010 use pm_kind, only: SKG => SK1
3011 character(*,SKG) , intent(in) , contiguous :: array(:)
3012 character(*,SKG) , intent(in) :: pattern
3013 character(*,SKG) , intent(in) , contiguous :: replacement(:)
3014 !procedure(iseq_D0_D0_SK1) :: iseq
3015 procedure(logical(LK)) :: iseq
3016 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
3017 end function
3018#endif
3019
3020 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3021
3022#if IK5_ENABLED
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
3026#endif
3027 use pm_kind, only: IKG => IK5
3028 integer(IKG) , intent(in) , contiguous :: array(:)
3029 integer(IKG) , intent(in) :: pattern
3030 integer(IKG) , intent(in) , contiguous :: replacement(:)
3031 !procedure(iseq_D0_D0_IK5) :: iseq
3032 procedure(logical(LK)) :: iseq
3033 integer(IKG) , allocatable :: arrayNew(:)
3034 end function
3035#endif
3036
3037#if IK4_ENABLED
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
3041#endif
3042 use pm_kind, only: IKG => IK4
3043 integer(IKG) , intent(in) , contiguous :: array(:)
3044 integer(IKG) , intent(in) :: pattern
3045 integer(IKG) , intent(in) , contiguous :: replacement(:)
3046 !procedure(iseq_D0_D0_IK4) :: iseq
3047 procedure(logical(LK)) :: iseq
3048 integer(IKG) , allocatable :: arrayNew(:)
3049 end function
3050#endif
3051
3052#if IK3_ENABLED
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
3056#endif
3057 use pm_kind, only: IKG => IK3
3058 integer(IKG) , intent(in) , contiguous :: array(:)
3059 integer(IKG) , intent(in) :: pattern
3060 integer(IKG) , intent(in) , contiguous :: replacement(:)
3061 !procedure(iseq_D0_D0_IK3) :: iseq
3062 procedure(logical(LK)) :: iseq
3063 integer(IKG) , allocatable :: arrayNew(:)
3064 end function
3065#endif
3066
3067#if IK2_ENABLED
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
3071#endif
3072 use pm_kind, only: IKG => IK2
3073 integer(IKG) , intent(in) , contiguous :: array(:)
3074 integer(IKG) , intent(in) :: pattern
3075 integer(IKG) , intent(in) , contiguous :: replacement(:)
3076 !procedure(iseq_D0_D0_IK2) :: iseq
3077 procedure(logical(LK)) :: iseq
3078 integer(IKG) , allocatable :: arrayNew(:)
3079 end function
3080
3081#endif
3082
3083#if IK1_ENABLED
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
3087#endif
3088 use pm_kind, only: IKG => IK1
3089 integer(IKG) , intent(in) , contiguous :: array(:)
3090 integer(IKG) , intent(in) :: pattern
3091 integer(IKG) , intent(in) , contiguous :: replacement(:)
3092 !procedure(iseq_D0_D0_IK1) :: iseq
3093 procedure(logical(LK)) :: iseq
3094 integer(IKG) , allocatable :: arrayNew(:)
3095 end function
3096#endif
3097
3098 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3099
3100#if LK5_ENABLED
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
3104#endif
3105 use pm_kind, only: LKG => LK5
3106 logical(LKG) , intent(in) , contiguous :: array(:)
3107 logical(LKG) , intent(in) :: pattern
3108 logical(LKG) , intent(in) , contiguous :: replacement(:)
3109 !procedure(iseq_D0_D0_LK5) :: iseq
3110 procedure(logical(LK)) :: iseq
3111 logical(LKG) , allocatable :: arrayNew(:)
3112 end function
3113#endif
3114
3115#if LK4_ENABLED
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
3119#endif
3120 use pm_kind, only: LKG => LK4
3121 logical(LKG) , intent(in) , contiguous :: array(:)
3122 logical(LKG) , intent(in) :: pattern
3123 logical(LKG) , intent(in) , contiguous :: replacement(:)
3124 !procedure(iseq_D0_D0_LK4) :: iseq
3125 procedure(logical(LK)) :: iseq
3126 logical(LKG) , allocatable :: arrayNew(:)
3127 end function
3128#endif
3129
3130#if LK3_ENABLED
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
3134#endif
3135 use pm_kind, only: LKG => LK3
3136 logical(LKG) , intent(in) , contiguous :: array(:)
3137 logical(LKG) , intent(in) :: pattern
3138 logical(LKG) , intent(in) , contiguous :: replacement(:)
3139 !procedure(iseq_D0_D0_LK3) :: iseq
3140 procedure(logical(LK)) :: iseq
3141 logical(LKG) , allocatable :: arrayNew(:)
3142 end function
3143#endif
3144
3145#if LK2_ENABLED
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
3149#endif
3150 use pm_kind, only: LKG => LK2
3151 logical(LKG) , intent(in) , contiguous :: array(:)
3152 logical(LKG) , intent(in) :: pattern
3153 logical(LKG) , intent(in) , contiguous :: replacement(:)
3154 !procedure(iseq_D0_D0_LK2) :: iseq
3155 procedure(logical(LK)) :: iseq
3156 logical(LKG) , allocatable :: arrayNew(:)
3157 end function
3158
3159#endif
3160
3161#if LK1_ENABLED
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
3165#endif
3166 use pm_kind, only: LKG => LK1
3167 logical(LKG) , intent(in) , contiguous :: array(:)
3168 logical(LKG) , intent(in) :: pattern
3169 logical(LKG) , intent(in) , contiguous :: replacement(:)
3170 !procedure(iseq_D0_D0_LK1) :: iseq
3171 procedure(logical(LK)) :: iseq
3172 logical(LKG) , allocatable :: arrayNew(:)
3173 end function
3174#endif
3175
3176 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3177
3178#if CK5_ENABLED
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
3182#endif
3183 use pm_kind, only: CKG => CK5
3184 complex(CKG) , intent(in) , contiguous :: array(:)
3185 complex(CKG) , intent(in) :: pattern
3186 complex(CKG) , intent(in) , contiguous :: replacement(:)
3187 !procedure(iseq_D0_D0_CK5) :: iseq
3188 procedure(logical(LK)) :: iseq
3189 complex(CKG) , allocatable :: arrayNew(:)
3190 end function
3191#endif
3192
3193#if CK4_ENABLED
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
3197#endif
3198 use pm_kind, only: CKG => CK4
3199 complex(CKG) , intent(in) , contiguous :: array(:)
3200 complex(CKG) , intent(in) :: pattern
3201 complex(CKG) , intent(in) , contiguous :: replacement(:)
3202 !procedure(iseq_D0_D0_CK4) :: iseq
3203 procedure(logical(LK)) :: iseq
3204 complex(CKG) , allocatable :: arrayNew(:)
3205 end function
3206#endif
3207
3208#if CK3_ENABLED
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
3212#endif
3213 use pm_kind, only: CKG => CK3
3214 complex(CKG) , intent(in) , contiguous :: array(:)
3215 complex(CKG) , intent(in) :: pattern
3216 complex(CKG) , intent(in) , contiguous :: replacement(:)
3217 !procedure(iseq_D0_D0_CK3) :: iseq
3218 procedure(logical(LK)) :: iseq
3219 complex(CKG) , allocatable :: arrayNew(:)
3220 end function
3221#endif
3222
3223#if CK2_ENABLED
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
3227#endif
3228 use pm_kind, only: CKG => CK2
3229 complex(CKG) , intent(in) , contiguous :: array(:)
3230 complex(CKG) , intent(in) :: pattern
3231 complex(CKG) , intent(in) , contiguous :: replacement(:)
3232 !procedure(iseq_D0_D0_CK2) :: iseq
3233 procedure(logical(LK)) :: iseq
3234 complex(CKG) , allocatable :: arrayNew(:)
3235 end function
3236
3237#endif
3238
3239#if CK1_ENABLED
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
3243#endif
3244 use pm_kind, only: CKG => CK1
3245 complex(CKG) , intent(in) , contiguous :: array(:)
3246 complex(CKG) , intent(in) :: pattern
3247 complex(CKG) , intent(in) , contiguous :: replacement(:)
3248 !procedure(iseq_D0_D0_CK1) :: iseq
3249 procedure(logical(LK)) :: iseq
3250 complex(CKG) , allocatable :: arrayNew(:)
3251 end function
3252#endif
3253
3254 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3255
3256#if RK5_ENABLED
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
3260#endif
3261 use pm_kind, only: RKG => RK5
3262 real(RKG) , intent(in) , contiguous :: array(:)
3263 real(RKG) , intent(in) :: pattern
3264 real(RKG) , intent(in) , contiguous :: replacement(:)
3265 !procedure(iseq_D0_D0_RK5) :: iseq
3266 procedure(logical(LK)) :: iseq
3267 real(RKG) , allocatable :: arrayNew(:)
3268 end function
3269#endif
3270
3271#if RK4_ENABLED
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
3275#endif
3276 use pm_kind, only: RKG => RK4
3277 real(RKG) , intent(in) , contiguous :: array(:)
3278 real(RKG) , intent(in) :: pattern
3279 real(RKG) , intent(in) , contiguous :: replacement(:)
3280 !procedure(iseq_D0_D0_RK4) :: iseq
3281 procedure(logical(LK)) :: iseq
3282 real(RKG) , allocatable :: arrayNew(:)
3283 end function
3284#endif
3285
3286#if RK3_ENABLED
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
3290#endif
3291 use pm_kind, only: RKG => RK3
3292 real(RKG) , intent(in) , contiguous :: array(:)
3293 real(RKG) , intent(in) :: pattern
3294 real(RKG) , intent(in) , contiguous :: replacement(:)
3295 !procedure(iseq_D0_D0_RK3) :: iseq
3296 procedure(logical(LK)) :: iseq
3297 real(RKG) , allocatable :: arrayNew(:)
3298 end function
3299#endif
3300
3301#if RK2_ENABLED
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
3305#endif
3306 use pm_kind, only: RKG => RK2
3307 real(RKG) , intent(in) , contiguous :: array(:)
3308 real(RKG) , intent(in) :: pattern
3309 real(RKG) , intent(in) , contiguous :: replacement(:)
3310 !procedure(iseq_D0_D0_RK2) :: iseq
3311 procedure(logical(LK)) :: iseq
3312 real(RKG) , allocatable :: arrayNew(:)
3313 end function
3314
3315#endif
3316
3317#if RK1_ENABLED
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
3321#endif
3322 use pm_kind, only: RKG => RK1
3323 real(RKG) , intent(in) , contiguous :: array(:)
3324 real(RKG) , intent(in) :: pattern
3325 real(RKG) , intent(in) , contiguous :: replacement(:)
3326 !procedure(iseq_D0_D0_RK1) :: iseq
3327 procedure(logical(LK)) :: iseq
3328 real(RKG) , allocatable :: arrayNew(:)
3329 end function
3330#endif
3331
3332 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3333
3334 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3335 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3336 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3337
3338 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3339
3340#if SK5_ENABLED
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
3344#endif
3345 use pm_kind, only: SKG => SK5
3346 character(*,SKG) , intent(in) , contiguous :: array(:)
3347 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3348 character(*,SKG) , intent(in) :: replacement
3349 !procedure(iseq_D1_D1_SK5) :: iseq
3350 procedure(logical(LK)) :: iseq
3351 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
3352 end function
3353#endif
3354
3355#if SK4_ENABLED
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
3359#endif
3360 use pm_kind, only: SKG => SK4
3361 character(*,SKG) , intent(in) , contiguous :: array(:)
3362 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3363 character(*,SKG) , intent(in) :: replacement
3364 !procedure(iseq_D1_D1_SK4) :: iseq
3365 procedure(logical(LK)) :: iseq
3366 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
3367 end function
3368#endif
3369
3370#if SK3_ENABLED
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
3374#endif
3375 use pm_kind, only: SKG => SK3
3376 character(*,SKG) , intent(in) , contiguous :: array(:)
3377 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3378 character(*,SKG) , intent(in) :: replacement
3379 !procedure(iseq_D1_D1_SK3) :: iseq
3380 procedure(logical(LK)) :: iseq
3381 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
3382 end function
3383#endif
3384
3385#if SK2_ENABLED
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
3389#endif
3390 use pm_kind, only: SKG => SK2
3391 character(*,SKG) , intent(in) , contiguous :: array(:)
3392 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3393 character(*,SKG) , intent(in) :: replacement
3394 !procedure(iseq_D1_D1_SK2) :: iseq
3395 procedure(logical(LK)) :: iseq
3396 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
3397 end function
3398
3399#endif
3400
3401#if SK1_ENABLED
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
3405#endif
3406 use pm_kind, only: SKG => SK1
3407 character(*,SKG) , intent(in) , contiguous :: array(:)
3408 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3409 character(*,SKG) , intent(in) :: replacement
3410 !procedure(iseq_D1_D1_SK1) :: iseq
3411 procedure(logical(LK)) :: iseq
3412 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
3413 end function
3414#endif
3415
3416 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3417
3418#if IK5_ENABLED
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
3422#endif
3423 use pm_kind, only: IKG => IK5
3424 integer(IKG) , intent(in) , contiguous :: array(:)
3425 integer(IKG) , intent(in) , contiguous :: pattern(:)
3426 integer(IKG) , intent(in) :: replacement
3427 !procedure(iseq_D1_D1_IK5) :: iseq
3428 procedure(logical(LK)) :: iseq
3429 integer(IKG) , allocatable :: arrayNew(:)
3430 end function
3431#endif
3432
3433#if IK4_ENABLED
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
3437#endif
3438 use pm_kind, only: IKG => IK4
3439 integer(IKG) , intent(in) , contiguous :: array(:)
3440 integer(IKG) , intent(in) , contiguous :: pattern(:)
3441 integer(IKG) , intent(in) :: replacement
3442 !procedure(iseq_D1_D1_IK4) :: iseq
3443 procedure(logical(LK)) :: iseq
3444 integer(IKG) , allocatable :: arrayNew(:)
3445 end function
3446#endif
3447
3448#if IK3_ENABLED
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
3452#endif
3453 use pm_kind, only: IKG => IK3
3454 integer(IKG) , intent(in) , contiguous :: array(:)
3455 integer(IKG) , intent(in) , contiguous :: pattern(:)
3456 integer(IKG) , intent(in) :: replacement
3457 !procedure(iseq_D1_D1_IK3) :: iseq
3458 procedure(logical(LK)) :: iseq
3459 integer(IKG) , allocatable :: arrayNew(:)
3460 end function
3461#endif
3462
3463#if IK2_ENABLED
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
3467#endif
3468 use pm_kind, only: IKG => IK2
3469 integer(IKG) , intent(in) , contiguous :: array(:)
3470 integer(IKG) , intent(in) , contiguous :: pattern(:)
3471 integer(IKG) , intent(in) :: replacement
3472 !procedure(iseq_D1_D1_IK2) :: iseq
3473 procedure(logical(LK)) :: iseq
3474 integer(IKG) , allocatable :: arrayNew(:)
3475 end function
3476
3477#endif
3478
3479#if IK1_ENABLED
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
3483#endif
3484 use pm_kind, only: IKG => IK1
3485 integer(IKG) , intent(in) , contiguous :: array(:)
3486 integer(IKG) , intent(in) , contiguous :: pattern(:)
3487 integer(IKG) , intent(in) :: replacement
3488 !procedure(iseq_D1_D1_IK1) :: iseq
3489 procedure(logical(LK)) :: iseq
3490 integer(IKG) , allocatable :: arrayNew(:)
3491 end function
3492#endif
3493
3494 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3495
3496#if LK5_ENABLED
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
3500#endif
3501 use pm_kind, only: LKG => LK5
3502 logical(LKG) , intent(in) , contiguous :: array(:)
3503 logical(LKG) , intent(in) , contiguous :: pattern(:)
3504 logical(LKG) , intent(in) :: replacement
3505 !procedure(iseq_D1_D1_LK5) :: iseq
3506 procedure(logical(LK)) :: iseq
3507 logical(LKG) , allocatable :: arrayNew(:)
3508 end function
3509#endif
3510
3511#if LK4_ENABLED
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
3515#endif
3516 use pm_kind, only: LKG => LK4
3517 logical(LKG) , intent(in) , contiguous :: array(:)
3518 logical(LKG) , intent(in) , contiguous :: pattern(:)
3519 logical(LKG) , intent(in) :: replacement
3520 !procedure(iseq_D1_D1_LK4) :: iseq
3521 procedure(logical(LK)) :: iseq
3522 logical(LKG) , allocatable :: arrayNew(:)
3523 end function
3524#endif
3525
3526#if LK3_ENABLED
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
3530#endif
3531 use pm_kind, only: LKG => LK3
3532 logical(LKG) , intent(in) , contiguous :: array(:)
3533 logical(LKG) , intent(in) , contiguous :: pattern(:)
3534 logical(LKG) , intent(in) :: replacement
3535 !procedure(iseq_D1_D1_LK3) :: iseq
3536 procedure(logical(LK)) :: iseq
3537 logical(LKG) , allocatable :: arrayNew(:)
3538 end function
3539#endif
3540
3541#if LK2_ENABLED
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
3545#endif
3546 use pm_kind, only: LKG => LK2
3547 logical(LKG) , intent(in) , contiguous :: array(:)
3548 logical(LKG) , intent(in) , contiguous :: pattern(:)
3549 logical(LKG) , intent(in) :: replacement
3550 !procedure(iseq_D1_D1_LK2) :: iseq
3551 procedure(logical(LK)) :: iseq
3552 logical(LKG) , allocatable :: arrayNew(:)
3553 end function
3554
3555#endif
3556
3557#if LK1_ENABLED
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
3561#endif
3562 use pm_kind, only: LKG => LK1
3563 logical(LKG) , intent(in) , contiguous :: array(:)
3564 logical(LKG) , intent(in) , contiguous :: pattern(:)
3565 logical(LKG) , intent(in) :: replacement
3566 !procedure(iseq_D1_D1_LK1) :: iseq
3567 procedure(logical(LK)) :: iseq
3568 logical(LKG) , allocatable :: arrayNew(:)
3569 end function
3570#endif
3571
3572 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3573
3574#if CK5_ENABLED
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
3578#endif
3579 use pm_kind, only: CKG => CK5
3580 complex(CKG) , intent(in) , contiguous :: array(:)
3581 complex(CKG) , intent(in) , contiguous :: pattern(:)
3582 complex(CKG) , intent(in) :: replacement
3583 !procedure(iseq_D1_D1_CK5) :: iseq
3584 procedure(logical(LK)) :: iseq
3585 complex(CKG) , allocatable :: arrayNew(:)
3586 end function
3587#endif
3588
3589#if CK4_ENABLED
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
3593#endif
3594 use pm_kind, only: CKG => CK4
3595 complex(CKG) , intent(in) , contiguous :: array(:)
3596 complex(CKG) , intent(in) , contiguous :: pattern(:)
3597 complex(CKG) , intent(in) :: replacement
3598 !procedure(iseq_D1_D1_CK4) :: iseq
3599 procedure(logical(LK)) :: iseq
3600 complex(CKG) , allocatable :: arrayNew(:)
3601 end function
3602#endif
3603
3604#if CK3_ENABLED
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
3608#endif
3609 use pm_kind, only: CKG => CK3
3610 complex(CKG) , intent(in) , contiguous :: array(:)
3611 complex(CKG) , intent(in) , contiguous :: pattern(:)
3612 complex(CKG) , intent(in) :: replacement
3613 !procedure(iseq_D1_D1_CK3) :: iseq
3614 procedure(logical(LK)) :: iseq
3615 complex(CKG) , allocatable :: arrayNew(:)
3616 end function
3617#endif
3618
3619#if CK2_ENABLED
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
3623#endif
3624 use pm_kind, only: CKG => CK2
3625 complex(CKG) , intent(in) , contiguous :: array(:)
3626 complex(CKG) , intent(in) , contiguous :: pattern(:)
3627 complex(CKG) , intent(in) :: replacement
3628 !procedure(iseq_D1_D1_CK2) :: iseq
3629 procedure(logical(LK)) :: iseq
3630 complex(CKG) , allocatable :: arrayNew(:)
3631 end function
3632
3633#endif
3634
3635#if CK1_ENABLED
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
3639#endif
3640 use pm_kind, only: CKG => CK1
3641 complex(CKG) , intent(in) , contiguous :: array(:)
3642 complex(CKG) , intent(in) , contiguous :: pattern(:)
3643 complex(CKG) , intent(in) :: replacement
3644 !procedure(iseq_D1_D1_CK1) :: iseq
3645 procedure(logical(LK)) :: iseq
3646 complex(CKG) , allocatable :: arrayNew(:)
3647 end function
3648#endif
3649
3650 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3651
3652#if RK5_ENABLED
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
3656#endif
3657 use pm_kind, only: RKG => RK5
3658 real(RKG) , intent(in) , contiguous :: array(:)
3659 real(RKG) , intent(in) , contiguous :: pattern(:)
3660 real(RKG) , intent(in) :: replacement
3661 !procedure(iseq_D1_D1_RK5) :: iseq
3662 procedure(logical(LK)) :: iseq
3663 real(RKG) , allocatable :: arrayNew(:)
3664 end function
3665#endif
3666
3667#if RK4_ENABLED
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
3671#endif
3672 use pm_kind, only: RKG => RK4
3673 real(RKG) , intent(in) , contiguous :: array(:)
3674 real(RKG) , intent(in) , contiguous :: pattern(:)
3675 real(RKG) , intent(in) :: replacement
3676 !procedure(iseq_D1_D1_RK4) :: iseq
3677 procedure(logical(LK)) :: iseq
3678 real(RKG) , allocatable :: arrayNew(:)
3679 end function
3680#endif
3681
3682#if RK3_ENABLED
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
3686#endif
3687 use pm_kind, only: RKG => RK3
3688 real(RKG) , intent(in) , contiguous :: array(:)
3689 real(RKG) , intent(in) , contiguous :: pattern(:)
3690 real(RKG) , intent(in) :: replacement
3691 !procedure(iseq_D1_D1_RK3) :: iseq
3692 procedure(logical(LK)) :: iseq
3693 real(RKG) , allocatable :: arrayNew(:)
3694 end function
3695#endif
3696
3697#if RK2_ENABLED
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
3701#endif
3702 use pm_kind, only: RKG => RK2
3703 real(RKG) , intent(in) , contiguous :: array(:)
3704 real(RKG) , intent(in) , contiguous :: pattern(:)
3705 real(RKG) , intent(in) :: replacement
3706 !procedure(iseq_D1_D1_RK2) :: iseq
3707 procedure(logical(LK)) :: iseq
3708 real(RKG) , allocatable :: arrayNew(:)
3709 end function
3710
3711#endif
3712
3713#if RK1_ENABLED
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
3717#endif
3718 use pm_kind, only: RKG => RK1
3719 real(RKG) , intent(in) , contiguous :: array(:)
3720 real(RKG) , intent(in) , contiguous :: pattern(:)
3721 real(RKG) , intent(in) :: replacement
3722 !procedure(iseq_D1_D1_RK1) :: iseq
3723 procedure(logical(LK)) :: iseq
3724 real(RKG) , allocatable :: arrayNew(:)
3725 end function
3726#endif
3727
3728 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3729
3730 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3731 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3732 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3733
3734 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3735
3736#if SK5_ENABLED
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
3740#endif
3741 use pm_kind, only: SKG => SK5
3742 character(*,SKG) , intent(in) , contiguous :: array(:)
3743 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3744 character(*,SKG) , intent(in) , contiguous :: replacement(:)
3745 !procedure(iseq_D1_D1_SK5) :: iseq
3746 procedure(logical(LK)) :: iseq
3747 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
3748 end function
3749#endif
3750
3751#if SK4_ENABLED
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
3755#endif
3756 use pm_kind, only: SKG => SK4
3757 character(*,SKG) , intent(in) , contiguous :: array(:)
3758 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3759 character(*,SKG) , intent(in) , contiguous :: replacement(:)
3760 !procedure(iseq_D1_D1_SK4) :: iseq
3761 procedure(logical(LK)) :: iseq
3762 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
3763 end function
3764#endif
3765
3766#if SK3_ENABLED
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
3770#endif
3771 use pm_kind, only: SKG => SK3
3772 character(*,SKG) , intent(in) , contiguous :: array(:)
3773 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3774 character(*,SKG) , intent(in) , contiguous :: replacement(:)
3775 !procedure(iseq_D1_D1_SK3) :: iseq
3776 procedure(logical(LK)) :: iseq
3777 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
3778 end function
3779#endif
3780
3781#if SK2_ENABLED
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
3785#endif
3786 use pm_kind, only: SKG => SK2
3787 character(*,SKG) , intent(in) , contiguous :: array(:)
3788 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3789 character(*,SKG) , intent(in) , contiguous :: replacement(:)
3790 !procedure(iseq_D1_D1_SK2) :: iseq
3791 procedure(logical(LK)) :: iseq
3792 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
3793 end function
3794
3795#endif
3796
3797#if SK1_ENABLED
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
3801#endif
3802 use pm_kind, only: SKG => SK1
3803 character(*,SKG) , intent(in) , contiguous :: array(:)
3804 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3805 character(*,SKG) , intent(in) , contiguous :: replacement(:)
3806 !procedure(iseq_D1_D1_SK1) :: iseq
3807 procedure(logical(LK)) :: iseq
3808 character(LEN_ARRAY,SKG) , allocatable :: arrayNew(:)
3809 end function
3810#endif
3811
3812 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3813
3814#if IK5_ENABLED
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
3818#endif
3819 use pm_kind, only: IKG => IK5
3820 integer(IKG) , intent(in) , contiguous :: array(:)
3821 integer(IKG) , intent(in) , contiguous :: pattern(:)
3822 integer(IKG) , intent(in) , contiguous :: replacement(:)
3823 !procedure(iseq_D1_D1_IK5) :: iseq
3824 procedure(logical(LK)) :: iseq
3825 integer(IKG) , allocatable :: arrayNew(:)
3826 end function
3827#endif
3828
3829#if IK4_ENABLED
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
3833#endif
3834 use pm_kind, only: IKG => IK4
3835 integer(IKG) , intent(in) , contiguous :: array(:)
3836 integer(IKG) , intent(in) , contiguous :: pattern(:)
3837 integer(IKG) , intent(in) , contiguous :: replacement(:)
3838 !procedure(iseq_D1_D1_IK4) :: iseq
3839 procedure(logical(LK)) :: iseq
3840 integer(IKG) , allocatable :: arrayNew(:)
3841 end function
3842#endif
3843
3844#if IK3_ENABLED
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
3848#endif
3849 use pm_kind, only: IKG => IK3
3850 integer(IKG) , intent(in) , contiguous :: array(:)
3851 integer(IKG) , intent(in) , contiguous :: pattern(:)
3852 integer(IKG) , intent(in) , contiguous :: replacement(:)
3853 !procedure(iseq_D1_D1_IK3) :: iseq
3854 procedure(logical(LK)) :: iseq
3855 integer(IKG) , allocatable :: arrayNew(:)
3856 end function
3857#endif
3858
3859#if IK2_ENABLED
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
3863#endif
3864 use pm_kind, only: IKG => IK2
3865 integer(IKG) , intent(in) , contiguous :: array(:)
3866 integer(IKG) , intent(in) , contiguous :: pattern(:)
3867 integer(IKG) , intent(in) , contiguous :: replacement(:)
3868 !procedure(iseq_D1_D1_IK2) :: iseq
3869 procedure(logical(LK)) :: iseq
3870 integer(IKG) , allocatable :: arrayNew(:)
3871 end function
3872
3873#endif
3874
3875#if IK1_ENABLED
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
3879#endif
3880 use pm_kind, only: IKG => IK1
3881 integer(IKG) , intent(in) , contiguous :: array(:)
3882 integer(IKG) , intent(in) , contiguous :: pattern(:)
3883 integer(IKG) , intent(in) , contiguous :: replacement(:)
3884 !procedure(iseq_D1_D1_IK1) :: iseq
3885 procedure(logical(LK)) :: iseq
3886 integer(IKG) , allocatable :: arrayNew(:)
3887 end function
3888#endif
3889
3890 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3891
3892#if LK5_ENABLED
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
3896#endif
3897 use pm_kind, only: LKG => LK5
3898 logical(LKG) , intent(in) , contiguous :: array(:)
3899 logical(LKG) , intent(in) , contiguous :: pattern(:)
3900 logical(LKG) , intent(in) , contiguous :: replacement(:)
3901 !procedure(iseq_D1_D1_LK5) :: iseq
3902 procedure(logical(LK)) :: iseq
3903 logical(LKG) , allocatable :: arrayNew(:)
3904 end function
3905#endif
3906
3907#if LK4_ENABLED
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
3911#endif
3912 use pm_kind, only: LKG => LK4
3913 logical(LKG) , intent(in) , contiguous :: array(:)
3914 logical(LKG) , intent(in) , contiguous :: pattern(:)
3915 logical(LKG) , intent(in) , contiguous :: replacement(:)
3916 !procedure(iseq_D1_D1_LK4) :: iseq
3917 procedure(logical(LK)) :: iseq
3918 logical(LKG) , allocatable :: arrayNew(:)
3919 end function
3920#endif
3921
3922#if LK3_ENABLED
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
3926#endif
3927 use pm_kind, only: LKG => LK3
3928 logical(LKG) , intent(in) , contiguous :: array(:)
3929 logical(LKG) , intent(in) , contiguous :: pattern(:)
3930 logical(LKG) , intent(in) , contiguous :: replacement(:)
3931 !procedure(iseq_D1_D1_LK3) :: iseq
3932 procedure(logical(LK)) :: iseq
3933 logical(LKG) , allocatable :: arrayNew(:)
3934 end function
3935#endif
3936
3937#if LK2_ENABLED
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
3941#endif
3942 use pm_kind, only: LKG => LK2
3943 logical(LKG) , intent(in) , contiguous :: array(:)
3944 logical(LKG) , intent(in) , contiguous :: pattern(:)
3945 logical(LKG) , intent(in) , contiguous :: replacement(:)
3946 !procedure(iseq_D1_D1_LK2) :: iseq
3947 procedure(logical(LK)) :: iseq
3948 logical(LKG) , allocatable :: arrayNew(:)
3949 end function
3950
3951#endif
3952
3953#if LK1_ENABLED
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
3957#endif
3958 use pm_kind, only: LKG => LK1
3959 logical(LKG) , intent(in) , contiguous :: array(:)
3960 logical(LKG) , intent(in) , contiguous :: pattern(:)
3961 logical(LKG) , intent(in) , contiguous :: replacement(:)
3962 !procedure(iseq_D1_D1_LK1) :: iseq
3963 procedure(logical(LK)) :: iseq
3964 logical(LKG) , allocatable :: arrayNew(:)
3965 end function
3966#endif
3967
3968 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3969
3970#if CK5_ENABLED
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
3974#endif
3975 use pm_kind, only: CKG => CK5
3976 complex(CKG) , intent(in) , contiguous :: array(:)
3977 complex(CKG) , intent(in) , contiguous :: pattern(:)
3978 complex(CKG) , intent(in) , contiguous :: replacement(:)
3979 !procedure(iseq_D1_D1_CK5) :: iseq
3980 procedure(logical(LK)) :: iseq
3981 complex(CKG) , allocatable :: arrayNew(:)
3982 end function
3983#endif
3984
3985#if CK4_ENABLED
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
3989#endif
3990 use pm_kind, only: CKG => CK4
3991 complex(CKG) , intent(in) , contiguous :: array(:)
3992 complex(CKG) , intent(in) , contiguous :: pattern(:)
3993 complex(CKG) , intent(in) , contiguous :: replacement(:)
3994 !procedure(iseq_D1_D1_CK4) :: iseq
3995 procedure(logical(LK)) :: iseq
3996 complex(CKG) , allocatable :: arrayNew(:)
3997 end function
3998#endif
3999
4000#if CK3_ENABLED
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
4004#endif
4005 use pm_kind, only: CKG => CK3
4006 complex(CKG) , intent(in) , contiguous :: array(:)
4007 complex(CKG) , intent(in) , contiguous :: pattern(:)
4008 complex(CKG) , intent(in) , contiguous :: replacement(:)
4009 !procedure(iseq_D1_D1_CK3) :: iseq
4010 procedure(logical(LK)) :: iseq
4011 complex(CKG) , allocatable :: arrayNew(:)
4012 end function
4013#endif
4014
4015#if CK2_ENABLED
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
4019#endif
4020 use pm_kind, only: CKG => CK2
4021 complex(CKG) , intent(in) , contiguous :: array(:)
4022 complex(CKG) , intent(in) , contiguous :: pattern(:)
4023 complex(CKG) , intent(in) , contiguous :: replacement(:)
4024 !procedure(iseq_D1_D1_CK2) :: iseq
4025 procedure(logical(LK)) :: iseq
4026 complex(CKG) , allocatable :: arrayNew(:)
4027 end function
4028
4029#endif
4030
4031#if CK1_ENABLED
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
4035#endif
4036 use pm_kind, only: CKG => CK1
4037 complex(CKG) , intent(in) , contiguous :: array(:)
4038 complex(CKG) , intent(in) , contiguous :: pattern(:)
4039 complex(CKG) , intent(in) , contiguous :: replacement(:)
4040 !procedure(iseq_D1_D1_CK1) :: iseq
4041 procedure(logical(LK)) :: iseq
4042 complex(CKG) , allocatable :: arrayNew(:)
4043 end function
4044#endif
4045
4046 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4047
4048#if RK5_ENABLED
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
4052#endif
4053 use pm_kind, only: RKG => RK5
4054 real(RKG) , intent(in) , contiguous :: array(:)
4055 real(RKG) , intent(in) , contiguous :: pattern(:)
4056 real(RKG) , intent(in) , contiguous :: replacement(:)
4057 !procedure(iseq_D1_D1_RK5) :: iseq
4058 procedure(logical(LK)) :: iseq
4059 real(RKG) , allocatable :: arrayNew(:)
4060 end function
4061#endif
4062
4063#if RK4_ENABLED
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
4067#endif
4068 use pm_kind, only: RKG => RK4
4069 real(RKG) , intent(in) , contiguous :: array(:)
4070 real(RKG) , intent(in) , contiguous :: pattern(:)
4071 real(RKG) , intent(in) , contiguous :: replacement(:)
4072 !procedure(iseq_D1_D1_RK4) :: iseq
4073 procedure(logical(LK)) :: iseq
4074 real(RKG) , allocatable :: arrayNew(:)
4075 end function
4076#endif
4077
4078#if RK3_ENABLED
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
4082#endif
4083 use pm_kind, only: RKG => RK3
4084 real(RKG) , intent(in) , contiguous :: array(:)
4085 real(RKG) , intent(in) , contiguous :: pattern(:)
4086 real(RKG) , intent(in) , contiguous :: replacement(:)
4087 !procedure(iseq_D1_D1_RK3) :: iseq
4088 procedure(logical(LK)) :: iseq
4089 real(RKG) , allocatable :: arrayNew(:)
4090 end function
4091#endif
4092
4093#if RK2_ENABLED
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
4097#endif
4098 use pm_kind, only: RKG => RK2
4099 real(RKG) , intent(in) , contiguous :: array(:)
4100 real(RKG) , intent(in) , contiguous :: pattern(:)
4101 real(RKG) , intent(in) , contiguous :: replacement(:)
4102 !procedure(iseq_D1_D1_RK2) :: iseq
4103 procedure(logical(LK)) :: iseq
4104 real(RKG) , allocatable :: arrayNew(:)
4105 end function
4106
4107#endif
4108
4109#if RK1_ENABLED
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
4113#endif
4114 use pm_kind, only: RKG => RK1
4115 real(RKG) , intent(in) , contiguous :: array(:)
4116 real(RKG) , intent(in) , contiguous :: pattern(:)
4117 real(RKG) , intent(in) , contiguous :: replacement(:)
4118 !procedure(iseq_D1_D1_RK1) :: iseq
4119 procedure(logical(LK)) :: iseq
4120 real(RKG) , allocatable :: arrayNew(:)
4121 end function
4122#endif
4123
4124 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4125
4126 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4127 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4128 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4129 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4130 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4131 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4132 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4133 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4134 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4135
4136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4137
4138#if SK5_ENABLED
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
4142#endif
4143 use pm_kind, only: SKG => 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
4151 end function
4152#endif
4153
4154#if SK4_ENABLED
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
4158#endif
4159 use pm_kind, only: SKG => 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
4167 end function
4168#endif
4169
4170#if SK3_ENABLED
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
4174#endif
4175 use pm_kind, only: SKG => 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
4183 end function
4184#endif
4185
4186#if SK2_ENABLED
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
4190#endif
4191 use pm_kind, only: SKG => 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
4199 end function
4200
4201#endif
4202
4203#if SK1_ENABLED
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
4207#endif
4208 use pm_kind, only: SKG => 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
4216 end function
4217#endif
4218
4219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4220
4221 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4223 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4224
4225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4226
4227#if SK5_ENABLED
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
4231#endif
4232 use pm_kind, only: SKG => 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(:)
4240 end function
4241#endif
4242
4243#if SK4_ENABLED
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
4247#endif
4248 use pm_kind, only: SKG => 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(:)
4256 end function
4257#endif
4258
4259#if SK3_ENABLED
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
4263#endif
4264 use pm_kind, only: SKG => 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(:)
4272 end function
4273#endif
4274
4275#if SK2_ENABLED
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
4279#endif
4280 use pm_kind, only: SKG => 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(:)
4288 end function
4289
4290#endif
4291
4292#if SK1_ENABLED
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
4296#endif
4297 use pm_kind, only: SKG => 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(:)
4305 end function
4306#endif
4307
4308 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4309
4310#if IK5_ENABLED
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
4314#endif
4315 use pm_kind, only: IKG => 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(:)
4323 end function
4324#endif
4325
4326#if IK4_ENABLED
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
4330#endif
4331 use pm_kind, only: IKG => 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(:)
4339 end function
4340#endif
4341
4342#if IK3_ENABLED
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
4346#endif
4347 use pm_kind, only: IKG => 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(:)
4355 end function
4356#endif
4357
4358#if IK2_ENABLED
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
4362#endif
4363 use pm_kind, only: IKG => 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(:)
4371 end function
4372
4373#endif
4374
4375#if IK1_ENABLED
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
4379#endif
4380 use pm_kind, only: IKG => 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(:)
4388 end function
4389#endif
4390
4391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4392
4393#if LK5_ENABLED
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
4397#endif
4398 use pm_kind, only: LKG => 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(:)
4406 end function
4407#endif
4408
4409#if LK4_ENABLED
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
4413#endif
4414 use pm_kind, only: LKG => 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(:)
4422 end function
4423#endif
4424
4425#if LK3_ENABLED
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
4429#endif
4430 use pm_kind, only: LKG => 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(:)
4438 end function
4439#endif
4440
4441#if LK2_ENABLED
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
4445#endif
4446 use pm_kind, only: LKG => 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(:)
4454 end function
4455
4456#endif
4457
4458#if LK1_ENABLED
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
4462#endif
4463 use pm_kind, only: LKG => 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(:)
4471 end function
4472#endif
4473
4474 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4475
4476#if CK5_ENABLED
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
4480#endif
4481 use pm_kind, only: CKG => 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(:)
4489 end function
4490#endif
4491
4492#if CK4_ENABLED
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
4496#endif
4497 use pm_kind, only: CKG => 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(:)
4505 end function
4506#endif
4507
4508#if CK3_ENABLED
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
4512#endif
4513 use pm_kind, only: CKG => 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(:)
4521 end function
4522#endif
4523
4524#if CK2_ENABLED
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
4528#endif
4529 use pm_kind, only: CKG => 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(:)
4537 end function
4538
4539#endif
4540
4541#if CK1_ENABLED
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
4545#endif
4546 use pm_kind, only: CKG => 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(:)
4554 end function
4555#endif
4556
4557 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4558
4559#if RK5_ENABLED
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
4563#endif
4564 use pm_kind, only: RKG => 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(:)
4572 end function
4573#endif
4574
4575#if RK4_ENABLED
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
4579#endif
4580 use pm_kind, only: RKG => 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(:)
4588 end function
4589#endif
4590
4591#if RK3_ENABLED
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
4595#endif
4596 use pm_kind, only: RKG => 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(:)
4604 end function
4605#endif
4606
4607#if RK2_ENABLED
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
4611#endif
4612 use pm_kind, only: RKG => 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(:)
4620 end function
4621
4622#endif
4623
4624#if RK1_ENABLED
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
4628#endif
4629 use pm_kind, only: RKG => 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(:)
4637 end function
4638#endif
4639
4640 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4641
4642 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4643 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4644 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4645
4646 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4647
4648#if SK5_ENABLED
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
4652#endif
4653 use pm_kind, only: SKG => 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(:)
4661 end function
4662#endif
4663
4664#if SK4_ENABLED
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
4668#endif
4669 use pm_kind, only: SKG => 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(:)
4677 end function
4678#endif
4679
4680#if SK3_ENABLED
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
4684#endif
4685 use pm_kind, only: SKG => 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(:)
4693 end function
4694#endif
4695
4696#if SK2_ENABLED
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
4700#endif
4701 use pm_kind, only: SKG => 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(:)
4709 end function
4710
4711#endif
4712
4713#if SK1_ENABLED
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
4717#endif
4718 use pm_kind, only: SKG => 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(:)
4726 end function
4727#endif
4728
4729 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4730
4731#if IK5_ENABLED
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
4735#endif
4736 use pm_kind, only: IKG => 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(:)
4744 end function
4745#endif
4746
4747#if IK4_ENABLED
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
4751#endif
4752 use pm_kind, only: IKG => 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(:)
4760 end function
4761#endif
4762
4763#if IK3_ENABLED
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
4767#endif
4768 use pm_kind, only: IKG => 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(:)
4776 end function
4777#endif
4778
4779#if IK2_ENABLED
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
4783#endif
4784 use pm_kind, only: IKG => 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(:)
4792 end function
4793
4794#endif
4795
4796#if IK1_ENABLED
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
4800#endif
4801 use pm_kind, only: IKG => 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(:)
4809 end function
4810#endif
4811
4812 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4813
4814#if LK5_ENABLED
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
4818#endif
4819 use pm_kind, only: LKG => 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(:)
4827 end function
4828#endif
4829
4830#if LK4_ENABLED
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
4834#endif
4835 use pm_kind, only: LKG => 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(:)
4843 end function
4844#endif
4845
4846#if LK3_ENABLED
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
4850#endif
4851 use pm_kind, only: LKG => 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(:)
4859 end function
4860#endif
4861
4862#if LK2_ENABLED
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
4866#endif
4867 use pm_kind, only: LKG => 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(:)
4875 end function
4876
4877#endif
4878
4879#if LK1_ENABLED
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
4883#endif
4884 use pm_kind, only: LKG => 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(:)
4892 end function
4893#endif
4894
4895 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4896
4897#if CK5_ENABLED
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
4901#endif
4902 use pm_kind, only: CKG => 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(:)
4910 end function
4911#endif
4912
4913#if CK4_ENABLED
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
4917#endif
4918 use pm_kind, only: CKG => 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(:)
4926 end function
4927#endif
4928
4929#if CK3_ENABLED
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
4933#endif
4934 use pm_kind, only: CKG => 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(:)
4942 end function
4943#endif
4944
4945#if CK2_ENABLED
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
4949#endif
4950 use pm_kind, only: CKG => 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(:)
4958 end function
4959
4960#endif
4961
4962#if CK1_ENABLED
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
4966#endif
4967 use pm_kind, only: CKG => 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(:)
4975 end function
4976#endif
4977
4978 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4979
4980#if RK5_ENABLED
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
4984#endif
4985 use pm_kind, only: RKG => 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(:)
4993 end function
4994#endif
4995
4996#if RK4_ENABLED
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
5000#endif
5001 use pm_kind, only: RKG => 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(:)
5009 end function
5010#endif
5011
5012#if RK3_ENABLED
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
5016#endif
5017 use pm_kind, only: RKG => 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(:)
5025 end function
5026#endif
5027
5028#if RK2_ENABLED
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
5032#endif
5033 use pm_kind, only: RKG => 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(:)
5041 end function
5042
5043#endif
5044
5045#if RK1_ENABLED
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
5049#endif
5050 use pm_kind, only: RKG => 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(:)
5058 end function
5059#endif
5060
5061 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5062
5063 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5064 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5065 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5066
5067 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5068
5069#if SK5_ENABLED
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
5073#endif
5074 use pm_kind, only: SKG => 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(:)
5082 end function
5083#endif
5084
5085#if SK4_ENABLED
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
5089#endif
5090 use pm_kind, only: SKG => 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(:)
5098 end function
5099#endif
5100
5101#if SK3_ENABLED
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
5105#endif
5106 use pm_kind, only: SKG => 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(:)
5114 end function
5115#endif
5116
5117#if SK2_ENABLED
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
5121#endif
5122 use pm_kind, only: SKG => 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(:)
5130 end function
5131
5132#endif
5133
5134#if SK1_ENABLED
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
5138#endif
5139 use pm_kind, only: SKG => 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(:)
5147 end function
5148#endif
5149
5150 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5151
5152#if IK5_ENABLED
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
5156#endif
5157 use pm_kind, only: IKG => 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(:)
5165 end function
5166#endif
5167
5168#if IK4_ENABLED
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
5172#endif
5173 use pm_kind, only: IKG => 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(:)
5181 end function
5182#endif
5183
5184#if IK3_ENABLED
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
5188#endif
5189 use pm_kind, only: IKG => 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(:)
5197 end function
5198#endif
5199
5200#if IK2_ENABLED
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
5204#endif
5205 use pm_kind, only: IKG => 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(:)
5213 end function
5214
5215#endif
5216
5217#if IK1_ENABLED
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
5221#endif
5222 use pm_kind, only: IKG => 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(:)
5230 end function
5231#endif
5232
5233 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5234
5235#if LK5_ENABLED
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
5239#endif
5240 use pm_kind, only: LKG => 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(:)
5248 end function
5249#endif
5250
5251#if LK4_ENABLED
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
5255#endif
5256 use pm_kind, only: LKG => 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(:)
5264 end function
5265#endif
5266
5267#if LK3_ENABLED
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
5271#endif
5272 use pm_kind, only: LKG => 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(:)
5280 end function
5281#endif
5282
5283#if LK2_ENABLED
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
5287#endif
5288 use pm_kind, only: LKG => 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(:)
5296 end function
5297
5298#endif
5299
5300#if LK1_ENABLED
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
5304#endif
5305 use pm_kind, only: LKG => 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(:)
5313 end function
5314#endif
5315
5316 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5317
5318#if CK5_ENABLED
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
5322#endif
5323 use pm_kind, only: CKG => 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(:)
5331 end function
5332#endif
5333
5334#if CK4_ENABLED
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
5338#endif
5339 use pm_kind, only: CKG => 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(:)
5347 end function
5348#endif
5349
5350#if CK3_ENABLED
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
5354#endif
5355 use pm_kind, only: CKG => 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(:)
5363 end function
5364#endif
5365
5366#if CK2_ENABLED
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
5370#endif
5371 use pm_kind, only: CKG => 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(:)
5379 end function
5380
5381#endif
5382
5383#if CK1_ENABLED
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
5387#endif
5388 use pm_kind, only: CKG => 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(:)
5396 end function
5397#endif
5398
5399 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5400
5401#if RK5_ENABLED
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
5405#endif
5406 use pm_kind, only: RKG => 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(:)
5414 end function
5415#endif
5416
5417#if RK4_ENABLED
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
5421#endif
5422 use pm_kind, only: RKG => 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(:)
5430 end function
5431#endif
5432
5433#if RK3_ENABLED
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
5437#endif
5438 use pm_kind, only: RKG => 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(:)
5446 end function
5447#endif
5448
5449#if RK2_ENABLED
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
5453#endif
5454 use pm_kind, only: RKG => 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(:)
5462 end function
5463
5464#endif
5465
5466#if RK1_ENABLED
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
5470#endif
5471 use pm_kind, only: RKG => 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(:)
5479 end function
5480#endif
5481
5482 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5483
5484 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5485 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5486 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5487
5488 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5489
5490#if SK5_ENABLED
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
5494#endif
5495 use pm_kind, only: SKG => 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(:)
5503 end function
5504#endif
5505
5506#if SK4_ENABLED
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
5510#endif
5511 use pm_kind, only: SKG => 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(:)
5519 end function
5520#endif
5521
5522#if SK3_ENABLED
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
5526#endif
5527 use pm_kind, only: SKG => 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(:)
5535 end function
5536#endif
5537
5538#if SK2_ENABLED
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
5542#endif
5543 use pm_kind, only: SKG => 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(:)
5551 end function
5552
5553#endif
5554
5555#if SK1_ENABLED
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
5559#endif
5560 use pm_kind, only: SKG => 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(:)
5568 end function
5569#endif
5570
5571 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5572
5573#if IK5_ENABLED
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
5577#endif
5578 use pm_kind, only: IKG => 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(:)
5586 end function
5587#endif
5588
5589#if IK4_ENABLED
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
5593#endif
5594 use pm_kind, only: IKG => 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(:)
5602 end function
5603#endif
5604
5605#if IK3_ENABLED
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
5609#endif
5610 use pm_kind, only: IKG => 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(:)
5618 end function
5619#endif
5620
5621#if IK2_ENABLED
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
5625#endif
5626 use pm_kind, only: IKG => 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(:)
5634 end function
5635
5636#endif
5637
5638#if IK1_ENABLED
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
5642#endif
5643 use pm_kind, only: IKG => 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(:)
5651 end function
5652#endif
5653
5654 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5655
5656#if LK5_ENABLED
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
5660#endif
5661 use pm_kind, only: LKG => 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(:)
5669 end function
5670#endif
5671
5672#if LK4_ENABLED
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
5676#endif
5677 use pm_kind, only: LKG => 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(:)
5685 end function
5686#endif
5687
5688#if LK3_ENABLED
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
5692#endif
5693 use pm_kind, only: LKG => 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(:)
5701 end function
5702#endif
5703
5704#if LK2_ENABLED
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
5708#endif
5709 use pm_kind, only: LKG => 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(:)
5717 end function
5718
5719#endif
5720
5721#if LK1_ENABLED
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
5725#endif
5726 use pm_kind, only: LKG => 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(:)
5734 end function
5735#endif
5736
5737 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5738
5739#if CK5_ENABLED
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
5743#endif
5744 use pm_kind, only: CKG => 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(:)
5752 end function
5753#endif
5754
5755#if CK4_ENABLED
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
5759#endif
5760 use pm_kind, only: CKG => 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(:)
5768 end function
5769#endif
5770
5771#if CK3_ENABLED
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
5775#endif
5776 use pm_kind, only: CKG => 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(:)
5784 end function
5785#endif
5786
5787#if CK2_ENABLED
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
5791#endif
5792 use pm_kind, only: CKG => 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(:)
5800 end function
5801
5802#endif
5803
5804#if CK1_ENABLED
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
5808#endif
5809 use pm_kind, only: CKG => 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(:)
5817 end function
5818#endif
5819
5820 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5821
5822#if RK5_ENABLED
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
5826#endif
5827 use pm_kind, only: RKG => 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(:)
5835 end function
5836#endif
5837
5838#if RK4_ENABLED
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
5842#endif
5843 use pm_kind, only: RKG => 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(:)
5851 end function
5852#endif
5853
5854#if RK3_ENABLED
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
5858#endif
5859 use pm_kind, only: RKG => 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(:)
5867 end function
5868#endif
5869
5870#if RK2_ENABLED
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
5874#endif
5875 use pm_kind, only: RKG => 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(:)
5883 end function
5884
5885#endif
5886
5887#if RK1_ENABLED
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
5891#endif
5892 use pm_kind, only: RKG => 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(:)
5900 end function
5901#endif
5902
5903 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5904
5905 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5906 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5907 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5908 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5909 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5910 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5911 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5912 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5913 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5914
5915 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5916
5917#if SK5_ENABLED
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
5921#endif
5922 use pm_kind, only: SKG => SK5
5923 character(*,SKG) , intent(in) :: array
5924 character(*,SKG) , intent(in) :: pattern
5925 character(*,SKG) , intent(in) :: replacement
5926 !procedure(iseq_D0_D0_SK5) :: iseq
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
5932 end function
5933#endif
5934
5935#if SK4_ENABLED
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
5939#endif
5940 use pm_kind, only: SKG => SK4
5941 character(*,SKG) , intent(in) :: array
5942 character(*,SKG) , intent(in) :: pattern
5943 character(*,SKG) , intent(in) :: replacement
5944 !procedure(iseq_D0_D0_SK4) :: iseq
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
5950 end function
5951#endif
5952
5953#if SK3_ENABLED
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
5957#endif
5958 use pm_kind, only: SKG => SK3
5959 character(*,SKG) , intent(in) :: array
5960 character(*,SKG) , intent(in) :: pattern
5961 character(*,SKG) , intent(in) :: replacement
5962 !procedure(iseq_D0_D0_SK3) :: iseq
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
5968 end function
5969#endif
5970
5971#if SK2_ENABLED
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
5975#endif
5976 use pm_kind, only: SKG => SK2
5977 character(*,SKG) , intent(in) :: array
5978 character(*,SKG) , intent(in) :: pattern
5979 character(*,SKG) , intent(in) :: replacement
5980 !procedure(iseq_D0_D0_SK2) :: iseq
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
5986 end function
5987
5988#endif
5989
5990#if SK1_ENABLED
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
5994#endif
5995 use pm_kind, only: SKG => SK1
5996 character(*,SKG) , intent(in) :: array
5997 character(*,SKG) , intent(in) :: pattern
5998 character(*,SKG) , intent(in) :: replacement
5999 !procedure(iseq_D0_D0_SK1) :: iseq
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
6005 end function
6006#endif
6007
6008 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6009
6010 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6011 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6012 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6013
6014 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6015
6016#if SK5_ENABLED
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
6020#endif
6021 use pm_kind, only: SKG => SK5
6022 character(*,SKG) , intent(in) , contiguous :: array(:)
6023 character(*,SKG) , intent(in) :: pattern
6024 character(*,SKG) , intent(in) :: replacement
6025 !procedure(iseq_D0_D0_SK5) :: iseq
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(:)
6031 end function
6032#endif
6033
6034#if SK4_ENABLED
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
6038#endif
6039 use pm_kind, only: SKG => SK4
6040 character(*,SKG) , intent(in) , contiguous :: array(:)
6041 character(*,SKG) , intent(in) :: pattern
6042 character(*,SKG) , intent(in) :: replacement
6043 !procedure(iseq_D0_D0_SK4) :: iseq
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(:)
6049 end function
6050#endif
6051
6052#if SK3_ENABLED
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
6056#endif
6057 use pm_kind, only: SKG => SK3
6058 character(*,SKG) , intent(in) , contiguous :: array(:)
6059 character(*,SKG) , intent(in) :: pattern
6060 character(*,SKG) , intent(in) :: replacement
6061 !procedure(iseq_D0_D0_SK3) :: iseq
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(:)
6067 end function
6068#endif
6069
6070#if SK2_ENABLED
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
6074#endif
6075 use pm_kind, only: SKG => SK2
6076 character(*,SKG) , intent(in) , contiguous :: array(:)
6077 character(*,SKG) , intent(in) :: pattern
6078 character(*,SKG) , intent(in) :: replacement
6079 !procedure(iseq_D0_D0_SK2) :: iseq
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(:)
6085 end function
6086
6087#endif
6088
6089#if SK1_ENABLED
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
6093#endif
6094 use pm_kind, only: SKG => SK1
6095 character(*,SKG) , intent(in) , contiguous :: array(:)
6096 character(*,SKG) , intent(in) :: pattern
6097 character(*,SKG) , intent(in) :: replacement
6098 !procedure(iseq_D0_D0_SK1) :: iseq
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(:)
6104 end function
6105#endif
6106
6107 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6108
6109#if IK5_ENABLED
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
6113#endif
6114 use pm_kind, only: IKG => IK5
6115 integer(IKG) , intent(in) , contiguous :: array(:)
6116 integer(IKG) , intent(in) :: pattern
6117 integer(IKG) , intent(in) :: replacement
6118 !procedure(iseq_D0_D0_IK5) :: iseq
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(:)
6124 end function
6125#endif
6126
6127#if IK4_ENABLED
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
6131#endif
6132 use pm_kind, only: IKG => IK4
6133 integer(IKG) , intent(in) , contiguous :: array(:)
6134 integer(IKG) , intent(in) :: pattern
6135 integer(IKG) , intent(in) :: replacement
6136 !procedure(iseq_D0_D0_IK4) :: iseq
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(:)
6142 end function
6143#endif
6144
6145#if IK3_ENABLED
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
6149#endif
6150 use pm_kind, only: IKG => IK3
6151 integer(IKG) , intent(in) , contiguous :: array(:)
6152 integer(IKG) , intent(in) :: pattern
6153 integer(IKG) , intent(in) :: replacement
6154 !procedure(iseq_D0_D0_IK3) :: iseq
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(:)
6160 end function
6161#endif
6162
6163#if IK2_ENABLED
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
6167#endif
6168 use pm_kind, only: IKG => IK2
6169 integer(IKG) , intent(in) , contiguous :: array(:)
6170 integer(IKG) , intent(in) :: pattern
6171 integer(IKG) , intent(in) :: replacement
6172 !procedure(iseq_D0_D0_IK2) :: iseq
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(:)
6178 end function
6179
6180#endif
6181
6182#if IK1_ENABLED
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
6186#endif
6187 use pm_kind, only: IKG => IK1
6188 integer(IKG) , intent(in) , contiguous :: array(:)
6189 integer(IKG) , intent(in) :: pattern
6190 integer(IKG) , intent(in) :: replacement
6191 !procedure(iseq_D0_D0_IK1) :: iseq
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(:)
6197 end function
6198#endif
6199
6200 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6201
6202#if LK5_ENABLED
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
6206#endif
6207 use pm_kind, only: LKG => LK5
6208 logical(LKG) , intent(in) , contiguous :: array(:)
6209 logical(LKG) , intent(in) :: pattern
6210 logical(LKG) , intent(in) :: replacement
6211 !procedure(iseq_D0_D0_LK5) :: iseq
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(:)
6217 end function
6218#endif
6219
6220#if LK4_ENABLED
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
6224#endif
6225 use pm_kind, only: LKG => LK4
6226 logical(LKG) , intent(in) , contiguous :: array(:)
6227 logical(LKG) , intent(in) :: pattern
6228 logical(LKG) , intent(in) :: replacement
6229 !procedure(iseq_D0_D0_LK4) :: iseq
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(:)
6235 end function
6236#endif
6237
6238#if LK3_ENABLED
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
6242#endif
6243 use pm_kind, only: LKG => LK3
6244 logical(LKG) , intent(in) , contiguous :: array(:)
6245 logical(LKG) , intent(in) :: pattern
6246 logical(LKG) , intent(in) :: replacement
6247 !procedure(iseq_D0_D0_LK3) :: iseq
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(:)
6253 end function
6254#endif
6255
6256#if LK2_ENABLED
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
6260#endif
6261 use pm_kind, only: LKG => LK2
6262 logical(LKG) , intent(in) , contiguous :: array(:)
6263 logical(LKG) , intent(in) :: pattern
6264 logical(LKG) , intent(in) :: replacement
6265 !procedure(iseq_D0_D0_LK2) :: iseq
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(:)
6271 end function
6272
6273#endif
6274
6275#if LK1_ENABLED
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
6279#endif
6280 use pm_kind, only: LKG => LK1
6281 logical(LKG) , intent(in) , contiguous :: array(:)
6282 logical(LKG) , intent(in) :: pattern
6283 logical(LKG) , intent(in) :: replacement
6284 !procedure(iseq_D0_D0_LK1) :: iseq
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(:)
6290 end function
6291#endif
6292
6293 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6294
6295#if CK5_ENABLED
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
6299#endif
6300 use pm_kind, only: CKG => CK5
6301 complex(CKG) , intent(in) , contiguous :: array(:)
6302 complex(CKG) , intent(in) :: pattern
6303 complex(CKG) , intent(in) :: replacement
6304 !procedure(iseq_D0_D0_CK5) :: iseq
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(:)
6310 end function
6311#endif
6312
6313#if CK4_ENABLED
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
6317#endif
6318 use pm_kind, only: CKG => CK4
6319 complex(CKG) , intent(in) , contiguous :: array(:)
6320 complex(CKG) , intent(in) :: pattern
6321 complex(CKG) , intent(in) :: replacement
6322 !procedure(iseq_D0_D0_CK4) :: iseq
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(:)
6328 end function
6329#endif
6330
6331#if CK3_ENABLED
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
6335#endif
6336 use pm_kind, only: CKG => CK3
6337 complex(CKG) , intent(in) , contiguous :: array(:)
6338 complex(CKG) , intent(in) :: pattern
6339 complex(CKG) , intent(in) :: replacement
6340 !procedure(iseq_D0_D0_CK3) :: iseq
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(:)
6346 end function
6347#endif
6348
6349#if CK2_ENABLED
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
6353#endif
6354 use pm_kind, only: CKG => CK2
6355 complex(CKG) , intent(in) , contiguous :: array(:)
6356 complex(CKG) , intent(in) :: pattern
6357 complex(CKG) , intent(in) :: replacement
6358 !procedure(iseq_D0_D0_CK2) :: iseq
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(:)
6364 end function
6365
6366#endif
6367
6368#if CK1_ENABLED
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
6372#endif
6373 use pm_kind, only: CKG => CK1
6374 complex(CKG) , intent(in) , contiguous :: array(:)
6375 complex(CKG) , intent(in) :: pattern
6376 complex(CKG) , intent(in) :: replacement
6377 !procedure(iseq_D0_D0_CK1) :: iseq
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(:)
6383 end function
6384#endif
6385
6386 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6387
6388#if RK5_ENABLED
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
6392#endif
6393 use pm_kind, only: RKG => RK5
6394 real(RKG) , intent(in) , contiguous :: array(:)
6395 real(RKG) , intent(in) :: pattern
6396 real(RKG) , intent(in) :: replacement
6397 !procedure(iseq_D0_D0_RK5) :: iseq
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(:)
6403 end function
6404#endif
6405
6406#if RK4_ENABLED
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
6410#endif
6411 use pm_kind, only: RKG => RK4
6412 real(RKG) , intent(in) , contiguous :: array(:)
6413 real(RKG) , intent(in) :: pattern
6414 real(RKG) , intent(in) :: replacement
6415 !procedure(iseq_D0_D0_RK4) :: iseq
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(:)
6421 end function
6422#endif
6423
6424#if RK3_ENABLED
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
6428#endif
6429 use pm_kind, only: RKG => RK3
6430 real(RKG) , intent(in) , contiguous :: array(:)
6431 real(RKG) , intent(in) :: pattern
6432 real(RKG) , intent(in) :: replacement
6433 !procedure(iseq_D0_D0_RK3) :: iseq
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(:)
6439 end function
6440#endif
6441
6442#if RK2_ENABLED
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
6446#endif
6447 use pm_kind, only: RKG => RK2
6448 real(RKG) , intent(in) , contiguous :: array(:)
6449 real(RKG) , intent(in) :: pattern
6450 real(RKG) , intent(in) :: replacement
6451 !procedure(iseq_D0_D0_RK2) :: iseq
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(:)
6457 end function
6458
6459#endif
6460
6461#if RK1_ENABLED
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
6465#endif
6466 use pm_kind, only: RKG => RK1
6467 real(RKG) , intent(in) , contiguous :: array(:)
6468 real(RKG) , intent(in) :: pattern
6469 real(RKG) , intent(in) :: replacement
6470 !procedure(iseq_D0_D0_RK1) :: iseq
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(:)
6476 end function
6477#endif
6478
6479 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6480
6481 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6482 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6483 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6484
6485 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6486
6487#if SK5_ENABLED
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
6491#endif
6492 use pm_kind, only: SKG => SK5
6493 character(*,SKG) , intent(in) , contiguous :: array(:)
6494 character(*,SKG) , intent(in) :: pattern
6495 character(*,SKG) , intent(in) , contiguous :: replacement(:)
6496 !procedure(iseq_D0_D0_SK5) :: iseq
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(:)
6502 end function
6503#endif
6504
6505#if SK4_ENABLED
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
6509#endif
6510 use pm_kind, only: SKG => SK4
6511 character(*,SKG) , intent(in) , contiguous :: array(:)
6512 character(*,SKG) , intent(in) :: pattern
6513 character(*,SKG) , intent(in) , contiguous :: replacement(:)
6514 !procedure(iseq_D0_D0_SK4) :: iseq
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(:)
6520 end function
6521#endif
6522
6523#if SK3_ENABLED
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
6527#endif
6528 use pm_kind, only: SKG => SK3
6529 character(*,SKG) , intent(in) , contiguous :: array(:)
6530 character(*,SKG) , intent(in) :: pattern
6531 character(*,SKG) , intent(in) , contiguous :: replacement(:)
6532 !procedure(iseq_D0_D0_SK3) :: iseq
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(:)
6538 end function
6539#endif
6540
6541#if SK2_ENABLED
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
6545#endif
6546 use pm_kind, only: SKG => SK2
6547 character(*,SKG) , intent(in) , contiguous :: array(:)
6548 character(*,SKG) , intent(in) :: pattern
6549 character(*,SKG) , intent(in) , contiguous :: replacement(:)
6550 !procedure(iseq_D0_D0_SK2) :: iseq
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(:)
6556 end function
6557
6558#endif
6559
6560#if SK1_ENABLED
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
6564#endif
6565 use pm_kind, only: SKG => SK1
6566 character(*,SKG) , intent(in) , contiguous :: array(:)
6567 character(*,SKG) , intent(in) :: pattern
6568 character(*,SKG) , intent(in) , contiguous :: replacement(:)
6569 !procedure(iseq_D0_D0_SK1) :: iseq
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(:)
6575 end function
6576#endif
6577
6578 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6579
6580#if IK5_ENABLED
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
6584#endif
6585 use pm_kind, only: IKG => IK5
6586 integer(IKG) , intent(in) , contiguous :: array(:)
6587 integer(IKG) , intent(in) :: pattern
6588 integer(IKG) , intent(in) , contiguous :: replacement(:)
6589 !procedure(iseq_D0_D0_IK5) :: iseq
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(:)
6595 end function
6596#endif
6597
6598#if IK4_ENABLED
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
6602#endif
6603 use pm_kind, only: IKG => IK4
6604 integer(IKG) , intent(in) , contiguous :: array(:)
6605 integer(IKG) , intent(in) :: pattern
6606 integer(IKG) , intent(in) , contiguous :: replacement(:)
6607 !procedure(iseq_D0_D0_IK4) :: iseq
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(:)
6613 end function
6614#endif
6615
6616#if IK3_ENABLED
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
6620#endif
6621 use pm_kind, only: IKG => IK3
6622 integer(IKG) , intent(in) , contiguous :: array(:)
6623 integer(IKG) , intent(in) :: pattern
6624 integer(IKG) , intent(in) , contiguous :: replacement(:)
6625 !procedure(iseq_D0_D0_IK3) :: iseq
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(:)
6631 end function
6632#endif
6633
6634#if IK2_ENABLED
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
6638#endif
6639 use pm_kind, only: IKG => IK2
6640 integer(IKG) , intent(in) , contiguous :: array(:)
6641 integer(IKG) , intent(in) :: pattern
6642 integer(IKG) , intent(in) , contiguous :: replacement(:)
6643 !procedure(iseq_D0_D0_IK2) :: iseq
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(:)
6649 end function
6650
6651#endif
6652
6653#if IK1_ENABLED
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
6657#endif
6658 use pm_kind, only: IKG => IK1
6659 integer(IKG) , intent(in) , contiguous :: array(:)
6660 integer(IKG) , intent(in) :: pattern
6661 integer(IKG) , intent(in) , contiguous :: replacement(:)
6662 !procedure(iseq_D0_D0_IK1) :: iseq
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(:)
6668 end function
6669#endif
6670
6671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6672
6673#if LK5_ENABLED
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
6677#endif
6678 use pm_kind, only: LKG => LK5
6679 logical(LKG) , intent(in) , contiguous :: array(:)
6680 logical(LKG) , intent(in) :: pattern
6681 logical(LKG) , intent(in) , contiguous :: replacement(:)
6682 !procedure(iseq_D0_D0_LK5) :: iseq
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(:)
6688 end function
6689#endif
6690
6691#if LK4_ENABLED
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
6695#endif
6696 use pm_kind, only: LKG => LK4
6697 logical(LKG) , intent(in) , contiguous :: array(:)
6698 logical(LKG) , intent(in) :: pattern
6699 logical(LKG) , intent(in) , contiguous :: replacement(:)
6700 !procedure(iseq_D0_D0_LK4) :: iseq
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(:)
6706 end function
6707#endif
6708
6709#if LK3_ENABLED
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
6713#endif
6714 use pm_kind, only: LKG => LK3
6715 logical(LKG) , intent(in) , contiguous :: array(:)
6716 logical(LKG) , intent(in) :: pattern
6717 logical(LKG) , intent(in) , contiguous :: replacement(:)
6718 !procedure(iseq_D0_D0_LK3) :: iseq
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(:)
6724 end function
6725#endif
6726
6727#if LK2_ENABLED
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
6731#endif
6732 use pm_kind, only: LKG => LK2
6733 logical(LKG) , intent(in) , contiguous :: array(:)
6734 logical(LKG) , intent(in) :: pattern
6735 logical(LKG) , intent(in) , contiguous :: replacement(:)
6736 !procedure(iseq_D0_D0_LK2) :: iseq
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(:)
6742 end function
6743
6744#endif
6745
6746#if LK1_ENABLED
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
6750#endif
6751 use pm_kind, only: LKG => LK1
6752 logical(LKG) , intent(in) , contiguous :: array(:)
6753 logical(LKG) , intent(in) :: pattern
6754 logical(LKG) , intent(in) , contiguous :: replacement(:)
6755 !procedure(iseq_D0_D0_LK1) :: iseq
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(:)
6761 end function
6762#endif
6763
6764 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6765
6766#if CK5_ENABLED
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
6770#endif
6771 use pm_kind, only: CKG => CK5
6772 complex(CKG) , intent(in) , contiguous :: array(:)
6773 complex(CKG) , intent(in) :: pattern
6774 complex(CKG) , intent(in) , contiguous :: replacement(:)
6775 !procedure(iseq_D0_D0_CK5) :: iseq
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(:)
6781 end function
6782#endif
6783
6784#if CK4_ENABLED
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
6788#endif
6789 use pm_kind, only: CKG => CK4
6790 complex(CKG) , intent(in) , contiguous :: array(:)
6791 complex(CKG) , intent(in) :: pattern
6792 complex(CKG) , intent(in) , contiguous :: replacement(:)
6793 !procedure(iseq_D0_D0_CK4) :: iseq
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(:)
6799 end function
6800#endif
6801
6802#if CK3_ENABLED
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
6806#endif
6807 use pm_kind, only: CKG => CK3
6808 complex(CKG) , intent(in) , contiguous :: array(:)
6809 complex(CKG) , intent(in) :: pattern
6810 complex(CKG) , intent(in) , contiguous :: replacement(:)
6811 !procedure(iseq_D0_D0_CK3) :: iseq
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(:)
6817 end function
6818#endif
6819
6820#if CK2_ENABLED
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
6824#endif
6825 use pm_kind, only: CKG => CK2
6826 complex(CKG) , intent(in) , contiguous :: array(:)
6827 complex(CKG) , intent(in) :: pattern
6828 complex(CKG) , intent(in) , contiguous :: replacement(:)
6829 !procedure(iseq_D0_D0_CK2) :: iseq
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(:)
6835 end function
6836
6837#endif
6838
6839#if CK1_ENABLED
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
6843#endif
6844 use pm_kind, only: CKG => CK1
6845 complex(CKG) , intent(in) , contiguous :: array(:)
6846 complex(CKG) , intent(in) :: pattern
6847 complex(CKG) , intent(in) , contiguous :: replacement(:)
6848 !procedure(iseq_D0_D0_CK1) :: iseq
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(:)
6854 end function
6855#endif
6856
6857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6858
6859#if RK5_ENABLED
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
6863#endif
6864 use pm_kind, only: RKG => RK5
6865 real(RKG) , intent(in) , contiguous :: array(:)
6866 real(RKG) , intent(in) :: pattern
6867 real(RKG) , intent(in) , contiguous :: replacement(:)
6868 !procedure(iseq_D0_D0_RK5) :: iseq
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(:)
6874 end function
6875#endif
6876
6877#if RK4_ENABLED
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
6881#endif
6882 use pm_kind, only: RKG => RK4
6883 real(RKG) , intent(in) , contiguous :: array(:)
6884 real(RKG) , intent(in) :: pattern
6885 real(RKG) , intent(in) , contiguous :: replacement(:)
6886 !procedure(iseq_D0_D0_RK4) :: iseq
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(:)
6892 end function
6893#endif
6894
6895#if RK3_ENABLED
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
6899#endif
6900 use pm_kind, only: RKG => RK3
6901 real(RKG) , intent(in) , contiguous :: array(:)
6902 real(RKG) , intent(in) :: pattern
6903 real(RKG) , intent(in) , contiguous :: replacement(:)
6904 !procedure(iseq_D0_D0_RK3) :: iseq
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(:)
6910 end function
6911#endif
6912
6913#if RK2_ENABLED
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
6917#endif
6918 use pm_kind, only: RKG => RK2
6919 real(RKG) , intent(in) , contiguous :: array(:)
6920 real(RKG) , intent(in) :: pattern
6921 real(RKG) , intent(in) , contiguous :: replacement(:)
6922 !procedure(iseq_D0_D0_RK2) :: iseq
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(:)
6928 end function
6929
6930#endif
6931
6932#if RK1_ENABLED
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
6936#endif
6937 use pm_kind, only: RKG => RK1
6938 real(RKG) , intent(in) , contiguous :: array(:)
6939 real(RKG) , intent(in) :: pattern
6940 real(RKG) , intent(in) , contiguous :: replacement(:)
6941 !procedure(iseq_D0_D0_RK1) :: iseq
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(:)
6947 end function
6948#endif
6949
6950 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6951
6952 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6953 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6954 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6955
6956 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6957
6958#if SK5_ENABLED
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
6962#endif
6963 use pm_kind, only: SKG => SK5
6964 character(*,SKG) , intent(in) , contiguous :: array(:)
6965 character(*,SKG) , intent(in) , contiguous :: pattern(:)
6966 character(*,SKG) , intent(in) :: replacement
6967 !procedure(iseq_D1_D1_SK5) :: iseq
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(:)
6973 end function
6974#endif
6975
6976#if SK4_ENABLED
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
6980#endif
6981 use pm_kind, only: SKG => SK4
6982 character(*,SKG) , intent(in) , contiguous :: array(:)
6983 character(*,SKG) , intent(in) , contiguous :: pattern(:)
6984 character(*,SKG) , intent(in) :: replacement
6985 !procedure(iseq_D1_D1_SK4) :: iseq
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(:)
6991 end function
6992#endif
6993
6994#if SK3_ENABLED
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
6998#endif
6999 use pm_kind, only: SKG => SK3
7000 character(*,SKG) , intent(in) , contiguous :: array(:)
7001 character(*,SKG) , intent(in) , contiguous :: pattern(:)
7002 character(*,SKG) , intent(in) :: replacement
7003 !procedure(iseq_D1_D1_SK3) :: iseq
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(:)
7009 end function
7010#endif
7011
7012#if SK2_ENABLED
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
7016#endif
7017 use pm_kind, only: SKG => SK2
7018 character(*,SKG) , intent(in) , contiguous :: array(:)
7019 character(*,SKG) , intent(in) , contiguous :: pattern(:)
7020 character(*,SKG) , intent(in) :: replacement
7021 !procedure(iseq_D1_D1_SK2) :: iseq
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(:)
7027 end function
7028
7029#endif
7030
7031#if SK1_ENABLED
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
7035#endif
7036 use pm_kind, only: SKG => SK1
7037 character(*,SKG) , intent(in) , contiguous :: array(:)
7038 character(*,SKG) , intent(in) , contiguous :: pattern(:)
7039 character(*,SKG) , intent(in) :: replacement
7040 !procedure(iseq_D1_D1_SK1) :: iseq
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(:)
7046 end function
7047#endif
7048
7049 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7050
7051#if IK5_ENABLED
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
7055#endif
7056 use pm_kind, only: IKG => IK5
7057 integer(IKG) , intent(in) , contiguous :: array(:)
7058 integer(IKG) , intent(in) , contiguous :: pattern(:)
7059 integer(IKG) , intent(in) :: replacement
7060 !procedure(iseq_D1_D1_IK5) :: iseq
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(:)
7066 end function
7067#endif
7068
7069#if IK4_ENABLED
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
7073#endif
7074 use pm_kind, only: IKG => IK4
7075 integer(IKG) , intent(in) , contiguous :: array(:)
7076 integer(IKG) , intent(in) , contiguous :: pattern(:)
7077 integer(IKG) , intent(in) :: replacement
7078 !procedure(iseq_D1_D1_IK4) :: iseq
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(:)
7084 end function
7085#endif
7086
7087#if IK3_ENABLED
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
7091#endif
7092 use pm_kind, only: IKG => IK3
7093 integer(IKG) , intent(in) , contiguous :: array(:)
7094 integer(IKG) , intent(in) , contiguous :: pattern(:)
7095 integer(IKG) , intent(in) :: replacement
7096 !procedure(iseq_D1_D1_IK3) :: iseq
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(:)
7102 end function
7103#endif
7104
7105#if IK2_ENABLED
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
7109#endif
7110 use pm_kind, only: IKG => IK2
7111 integer(IKG) , intent(in) , contiguous :: array(:)
7112 integer(IKG) , intent(in) , contiguous :: pattern(:)
7113 integer(IKG) , intent(in) :: replacement
7114 !procedure(iseq_D1_D1_IK2) :: iseq
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(:)
7120 end function
7121
7122#endif
7123
7124#if IK1_ENABLED
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
7128#endif
7129 use pm_kind, only: IKG => IK1
7130 integer(IKG) , intent(in) , contiguous :: array(:)
7131 integer(IKG) , intent(in) , contiguous :: pattern(:)
7132 integer(IKG) , intent(in) :: replacement
7133 !procedure(iseq_D1_D1_IK1) :: iseq
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(:)
7139 end function
7140#endif
7141
7142 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7143
7144#if LK5_ENABLED
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
7148#endif
7149 use pm_kind, only: LKG => LK5
7150 logical(LKG) , intent(in) , contiguous :: array(:)
7151 logical(LKG) , intent(in) , contiguous :: pattern(:)
7152 logical(LKG) , intent(in) :: replacement
7153 !procedure(iseq_D1_D1_LK5) :: iseq
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(:)
7159 end function
7160#endif
7161
7162#if LK4_ENABLED
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
7166#endif
7167 use pm_kind, only: LKG => LK4
7168 logical(LKG) , intent(in) , contiguous :: array(:)
7169 logical(LKG) , intent(in) , contiguous :: pattern(:)
7170 logical(LKG) , intent(in) :: replacement
7171 !procedure(iseq_D1_D1_LK4) :: iseq
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(:)
7177 end function
7178#endif
7179
7180#if LK3_ENABLED
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
7184#endif
7185 use pm_kind, only: LKG => LK3
7186 logical(LKG) , intent(in) , contiguous :: array(:)
7187 logical(LKG) , intent(in) , contiguous :: pattern(:)
7188 logical(LKG) , intent(in) :: replacement
7189 !procedure(iseq_D1_D1_LK3) :: iseq
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(:)
7195 end function
7196#endif
7197
7198#if LK2_ENABLED
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
7202#endif
7203 use pm_kind, only: LKG => LK2
7204 logical(LKG) , intent(in) , contiguous :: array(:)
7205 logical(LKG) , intent(in) , contiguous :: pattern(:)
7206 logical(LKG) , intent(in) :: replacement
7207 !procedure(iseq_D1_D1_LK2) :: iseq
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(:)
7213 end function
7214
7215#endif
7216
7217#if LK1_ENABLED
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
7221#endif
7222 use pm_kind, only: LKG => LK1
7223 logical(LKG) , intent(in) , contiguous :: array(:)
7224 logical(LKG) , intent(in) , contiguous :: pattern(:)
7225 logical(LKG) , intent(in) :: replacement
7226 !procedure(iseq_D1_D1_LK1) :: iseq
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(:)
7232 end function
7233#endif
7234
7235 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7236
7237#if CK5_ENABLED
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
7241#endif
7242 use pm_kind, only: CKG => CK5
7243 complex(CKG) , intent(in) , contiguous :: array(:)
7244 complex(CKG) , intent(in) , contiguous :: pattern(:)
7245 complex(CKG) , intent(in) :: replacement
7246 !procedure(iseq_D1_D1_CK5) :: iseq
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(:)
7252 end function
7253#endif
7254
7255#if CK4_ENABLED
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
7259#endif
7260 use pm_kind, only: CKG => CK4
7261 complex(CKG) , intent(in) , contiguous :: array(:)
7262 complex(CKG) , intent(in) , contiguous :: pattern(:)
7263 complex(CKG) , intent(in) :: replacement
7264 !procedure(iseq_D1_D1_CK4) :: iseq
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(:)
7270 end function
7271#endif
7272
7273#if CK3_ENABLED
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
7277#endif
7278 use pm_kind, only: CKG => CK3
7279 complex(CKG) , intent(in) , contiguous :: array(:)
7280 complex(CKG) , intent(in) , contiguous :: pattern(:)
7281 complex(CKG) , intent(in) :: replacement
7282 !procedure(iseq_D1_D1_CK3) :: iseq
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(:)
7288 end function
7289#endif
7290
7291#if CK2_ENABLED
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
7295#endif
7296 use pm_kind, only: CKG => CK2
7297 complex(CKG) , intent(in) , contiguous :: array(:)
7298 complex(CKG) , intent(in) , contiguous :: pattern(:)
7299 complex(CKG) , intent(in) :: replacement
7300 !procedure(iseq_D1_D1_CK2) :: iseq
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(:)
7306 end function
7307
7308#endif
7309
7310#if CK1_ENABLED
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
7314#endif
7315 use pm_kind, only: CKG => CK1
7316 complex(CKG) , intent(in) , contiguous :: array(:)
7317 complex(CKG) , intent(in) , contiguous :: pattern(:)
7318 complex(CKG) , intent(in) :: replacement
7319 !procedure(iseq_D1_D1_CK1) :: iseq
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(:)
7325 end function
7326#endif
7327
7328 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7329
7330#if RK5_ENABLED
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
7334#endif
7335 use pm_kind, only: RKG => RK5
7336 real(RKG) , intent(in) , contiguous :: array(:)
7337 real(RKG) , intent(in) , contiguous :: pattern(:)
7338 real(RKG) , intent(in) :: replacement
7339 !procedure(iseq_D1_D1_RK5) :: iseq
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(:)
7345 end function
7346#endif
7347
7348#if RK4_ENABLED
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
7352#endif
7353 use pm_kind, only: RKG => RK4
7354 real(RKG) , intent(in) , contiguous :: array(:)
7355 real(RKG) , intent(in) , contiguous :: pattern(:)
7356 real(RKG) , intent(in) :: replacement
7357 !procedure(iseq_D1_D1_RK4) :: iseq
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(:)
7363 end function
7364#endif
7365
7366#if RK3_ENABLED
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
7370#endif
7371 use pm_kind, only: RKG => RK3
7372 real(RKG) , intent(in) , contiguous :: array(:)
7373 real(RKG) , intent(in) , contiguous :: pattern(:)
7374 real(RKG) , intent(in) :: replacement
7375 !procedure(iseq_D1_D1_RK3) :: iseq
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(:)
7381 end function
7382#endif
7383
7384#if RK2_ENABLED
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
7388#endif
7389 use pm_kind, only: RKG => RK2
7390 real(RKG) , intent(in) , contiguous :: array(:)
7391 real(RKG) , intent(in) , contiguous :: pattern(:)
7392 real(RKG) , intent(in) :: replacement
7393 !procedure(iseq_D1_D1_RK2) :: iseq
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(:)
7399 end function
7400
7401#endif
7402
7403#if RK1_ENABLED
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
7407#endif
7408 use pm_kind, only: RKG => RK1
7409 real(RKG) , intent(in) , contiguous :: array(:)
7410 real(RKG) , intent(in) , contiguous :: pattern(:)
7411 real(RKG) , intent(in) :: replacement
7412 !procedure(iseq_D1_D1_RK1) :: iseq
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(:)
7418 end function
7419#endif
7420
7421 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7422
7423 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7424 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7425 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7426
7427 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7428
7429#if SK5_ENABLED
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
7433#endif
7434 use pm_kind, only: SKG => SK5
7435 character(*,SKG) , intent(in) , contiguous :: array(:)
7436 character(*,SKG) , intent(in) , contiguous :: pattern(:)
7437 character(*,SKG) , intent(in) , contiguous :: replacement(:)
7438 !procedure(iseq_D1_D1_SK5) :: iseq
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(:)
7444 end function
7445#endif
7446
7447#if SK4_ENABLED
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
7451#endif
7452 use pm_kind, only: SKG => SK4
7453 character(*,SKG) , intent(in) , contiguous :: array(:)
7454 character(*,SKG) , intent(in) , contiguous :: pattern(:)
7455 character(*,SKG) , intent(in) , contiguous :: replacement(:)
7456 !procedure(iseq_D1_D1_SK4) :: iseq
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(:)
7462 end function
7463#endif
7464
7465#if SK3_ENABLED
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
7469#endif
7470 use pm_kind, only: SKG => SK3
7471 character(*,SKG) , intent(in) , contiguous :: array(:)
7472 character(*,SKG) , intent(in) , contiguous :: pattern(:)
7473 character(*,SKG) , intent(in) , contiguous :: replacement(:)
7474 !procedure(iseq_D1_D1_SK3) :: iseq
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(:)
7480 end function
7481#endif
7482
7483#if SK2_ENABLED
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
7487#endif
7488 use pm_kind, only: SKG => SK2
7489 character(*,SKG) , intent(in) , contiguous :: array(:)
7490 character(*,SKG) , intent(in) , contiguous :: pattern(:)
7491 character(*,SKG) , intent(in) , contiguous :: replacement(:)
7492 !procedure(iseq_D1_D1_SK2) :: iseq
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(:)
7498 end function
7499
7500#endif
7501
7502#if SK1_ENABLED
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
7506#endif
7507 use pm_kind, only: SKG => SK1
7508 character(*,SKG) , intent(in) , contiguous :: array(:)
7509 character(*,SKG) , intent(in) , contiguous :: pattern(:)
7510 character(*,SKG) , intent(in) , contiguous :: replacement(:)
7511 !procedure(iseq_D1_D1_SK1) :: iseq
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(:)
7517 end function
7518#endif
7519
7520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7521
7522#if IK5_ENABLED
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
7526#endif
7527 use pm_kind, only: IKG => IK5
7528 integer(IKG) , intent(in) , contiguous :: array(:)
7529 integer(IKG) , intent(in) , contiguous :: pattern(:)
7530 integer(IKG) , intent(in) , contiguous :: replacement(:)
7531 !procedure(iseq_D1_D1_IK5) :: iseq
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(:)
7537 end function
7538#endif
7539
7540#if IK4_ENABLED
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
7544#endif
7545 use pm_kind, only: IKG => IK4
7546 integer(IKG) , intent(in) , contiguous :: array(:)
7547 integer(IKG) , intent(in) , contiguous :: pattern(:)
7548 integer(IKG) , intent(in) , contiguous :: replacement(:)
7549 !procedure(iseq_D1_D1_IK4) :: iseq
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(:)
7555 end function
7556#endif
7557
7558#if IK3_ENABLED
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
7562#endif
7563 use pm_kind, only: IKG => IK3
7564 integer(IKG) , intent(in) , contiguous :: array(:)
7565 integer(IKG) , intent(in) , contiguous :: pattern(:)
7566 integer(IKG) , intent(in) , contiguous :: replacement(:)
7567 !procedure(iseq_D1_D1_IK3) :: iseq
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(:)
7573 end function
7574#endif
7575
7576#if IK2_ENABLED
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
7580#endif
7581 use pm_kind, only: IKG => IK2
7582 integer(IKG) , intent(in) , contiguous :: array(:)
7583 integer(IKG) , intent(in) , contiguous :: pattern(:)
7584 integer(IKG) , intent(in) , contiguous :: replacement(:)
7585 !procedure(iseq_D1_D1_IK2) :: iseq
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(:)
7591 end function
7592
7593#endif
7594
7595#if IK1_ENABLED
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
7599#endif
7600 use pm_kind, only: IKG => IK1
7601 integer(IKG) , intent(in) , contiguous :: array(:)
7602 integer(IKG) , intent(in) , contiguous :: pattern(:)
7603 integer(IKG) , intent(in) , contiguous :: replacement(:)
7604 !procedure(iseq_D1_D1_IK1) :: iseq
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(:)
7610 end function
7611#endif
7612
7613 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7614
7615#if LK5_ENABLED
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
7619#endif
7620 use pm_kind, only: LKG => LK5
7621 logical(LKG) , intent(in) , contiguous :: array(:)
7622 logical(LKG) , intent(in) , contiguous :: pattern(:)
7623 logical(LKG) , intent(in) , contiguous :: replacement(:)
7624 !procedure(iseq_D1_D1_LK5) :: iseq
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(:)
7630 end function
7631#endif
7632
7633#if LK4_ENABLED
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
7637#endif
7638 use pm_kind, only: LKG => LK4
7639 logical(LKG) , intent(in) , contiguous :: array(:)
7640 logical(LKG) , intent(in) , contiguous :: pattern(:)
7641 logical(LKG) , intent(in) , contiguous :: replacement(:)
7642 !procedure(iseq_D1_D1_LK4) :: iseq
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(:)
7648 end function
7649#endif
7650
7651#if LK3_ENABLED
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
7655#endif
7656 use pm_kind, only: LKG => LK3
7657 logical(LKG) , intent(in) , contiguous :: array(:)
7658 logical(LKG) , intent(in) , contiguous :: pattern(:)
7659 logical(LKG) , intent(in) , contiguous :: replacement(:)
7660 !procedure(iseq_D1_D1_LK3) :: iseq
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(:)
7666 end function
7667#endif
7668
7669#if LK2_ENABLED
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
7673#endif
7674 use pm_kind, only: LKG => LK2
7675 logical(LKG) , intent(in) , contiguous :: array(:)
7676 logical(LKG) , intent(in) , contiguous :: pattern(:)
7677 logical(LKG) , intent(in) , contiguous :: replacement(:)
7678 !procedure(iseq_D1_D1_LK2) :: iseq
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(:)
7684 end function
7685
7686#endif
7687
7688#if LK1_ENABLED
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
7692#endif
7693 use pm_kind, only: LKG => LK1
7694 logical(LKG) , intent(in) , contiguous :: array(:)
7695 logical(LKG) , intent(in) , contiguous :: pattern(:)
7696 logical(LKG) , intent(in) , contiguous :: replacement(:)
7697 !procedure(iseq_D1_D1_LK1) :: iseq
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(:)
7703 end function
7704#endif
7705
7706 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7707
7708#if CK5_ENABLED
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
7712#endif
7713 use pm_kind, only: CKG => CK5
7714 complex(CKG) , intent(in) , contiguous :: array(:)
7715 complex(CKG) , intent(in) , contiguous :: pattern(:)
7716 complex(CKG) , intent(in) , contiguous :: replacement(:)
7717 !procedure(iseq_D1_D1_CK5) :: iseq
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(:)
7723 end function
7724#endif
7725
7726#if CK4_ENABLED
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
7730#endif
7731 use pm_kind, only: CKG => CK4
7732 complex(CKG) , intent(in) , contiguous :: array(:)
7733 complex(CKG) , intent(in) , contiguous :: pattern(:)
7734 complex(CKG) , intent(in) , contiguous :: replacement(:)
7735 !procedure(iseq_D1_D1_CK4) :: iseq
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(:)
7741 end function
7742#endif
7743
7744#if CK3_ENABLED
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
7748#endif
7749 use pm_kind, only: CKG => CK3
7750 complex(CKG) , intent(in) , contiguous :: array(:)
7751 complex(CKG) , intent(in) , contiguous :: pattern(:)
7752 complex(CKG) , intent(in) , contiguous :: replacement(:)
7753 !procedure(iseq_D1_D1_CK3) :: iseq
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(:)
7759 end function
7760#endif
7761
7762#if CK2_ENABLED
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
7766#endif
7767 use pm_kind, only: CKG => CK2
7768 complex(CKG) , intent(in) , contiguous :: array(:)
7769 complex(CKG) , intent(in) , contiguous :: pattern(:)
7770 complex(CKG) , intent(in) , contiguous :: replacement(:)
7771 !procedure(iseq_D1_D1_CK2) :: iseq
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(:)
7777 end function
7778
7779#endif
7780
7781#if CK1_ENABLED
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
7785#endif
7786 use pm_kind, only: CKG => CK1
7787 complex(CKG) , intent(in) , contiguous :: array(:)
7788 complex(CKG) , intent(in) , contiguous :: pattern(:)
7789 complex(CKG) , intent(in) , contiguous :: replacement(:)
7790 !procedure(iseq_D1_D1_CK1) :: iseq
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(:)
7796 end function
7797#endif
7798
7799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7800
7801#if RK5_ENABLED
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
7805#endif
7806 use pm_kind, only: RKG => RK5
7807 real(RKG) , intent(in) , contiguous :: array(:)
7808 real(RKG) , intent(in) , contiguous :: pattern(:)
7809 real(RKG) , intent(in) , contiguous :: replacement(:)
7810 !procedure(iseq_D1_D1_RK5) :: iseq
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(:)
7816 end function
7817#endif
7818
7819#if RK4_ENABLED
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
7823#endif
7824 use pm_kind, only: RKG => RK4
7825 real(RKG) , intent(in) , contiguous :: array(:)
7826 real(RKG) , intent(in) , contiguous :: pattern(:)
7827 real(RKG) , intent(in) , contiguous :: replacement(:)
7828 !procedure(iseq_D1_D1_RK4) :: iseq
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(:)
7834 end function
7835#endif
7836
7837#if RK3_ENABLED
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
7841#endif
7842 use pm_kind, only: RKG => RK3
7843 real(RKG) , intent(in) , contiguous :: array(:)
7844 real(RKG) , intent(in) , contiguous :: pattern(:)
7845 real(RKG) , intent(in) , contiguous :: replacement(:)
7846 !procedure(iseq_D1_D1_RK3) :: iseq
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(:)
7852 end function
7853#endif
7854
7855#if RK2_ENABLED
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
7859#endif
7860 use pm_kind, only: RKG => RK2
7861 real(RKG) , intent(in) , contiguous :: array(:)
7862 real(RKG) , intent(in) , contiguous :: pattern(:)
7863 real(RKG) , intent(in) , contiguous :: replacement(:)
7864 !procedure(iseq_D1_D1_RK2) :: iseq
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(:)
7870 end function
7871
7872#endif
7873
7874#if RK1_ENABLED
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
7878#endif
7879 use pm_kind, only: RKG => RK1
7880 real(RKG) , intent(in) , contiguous :: array(:)
7881 real(RKG) , intent(in) , contiguous :: pattern(:)
7882 real(RKG) , intent(in) , contiguous :: replacement(:)
7883 !procedure(iseq_D1_D1_RK1) :: iseq
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(:)
7889 end function
7890#endif
7891
7892 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7893
7894 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7895 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7896 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7898 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7899 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7900 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7901 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7902 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7903
7904 end interface
7905
7906!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7907
8076 interface setReplaced
8077
8078 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8079 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8080 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8081 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8082 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8083 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8084 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8085 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8086 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8087
8088 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8089
8090#if SK5_ENABLED
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
8094#endif
8095 use pm_kind, only: SKG => SK5
8096 character(:,SKG) , intent(inout) , allocatable :: array
8097 character(*,SKG) , intent(in) :: pattern
8098 character(*,SKG) , intent(in) :: replacement
8099 end subroutine
8100#endif
8101
8102#if SK4_ENABLED
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
8106#endif
8107 use pm_kind, only: SKG => SK4
8108 character(:,SKG) , intent(inout) , allocatable :: array
8109 character(*,SKG) , intent(in) :: pattern
8110 character(*,SKG) , intent(in) :: replacement
8111 end subroutine
8112#endif
8113
8114#if SK3_ENABLED
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
8118#endif
8119 use pm_kind, only: SKG => SK3
8120 character(:,SKG) , intent(inout) , allocatable :: array
8121 character(*,SKG) , intent(in) :: pattern
8122 character(*,SKG) , intent(in) :: replacement
8123 end subroutine
8124#endif
8125
8126#if SK2_ENABLED
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
8130#endif
8131 use pm_kind, only: SKG => SK2
8132 character(:,SKG) , intent(inout) , allocatable :: array
8133 character(*,SKG) , intent(in) :: pattern
8134 character(*,SKG) , intent(in) :: replacement
8135 end subroutine
8136
8137#endif
8138
8139#if SK1_ENABLED
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
8143#endif
8144 use pm_kind, only: SKG => SK1
8145 character(:,SKG) , intent(inout) , allocatable :: array
8146 character(*,SKG) , intent(in) :: pattern
8147 character(*,SKG) , intent(in) :: replacement
8148 end subroutine
8149#endif
8150
8151 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8152
8153 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8154 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8155 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8156
8157 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8158
8159#if SK5_ENABLED
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
8163#endif
8164 use pm_kind, only: SKG => SK5
8165 character(*,SKG) , intent(inout) , allocatable :: array(:)
8166 character(*,SKG) , intent(in) :: pattern
8167 character(*,SKG) , intent(in) :: replacement
8168 end subroutine
8169#endif
8170
8171#if SK4_ENABLED
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
8175#endif
8176 use pm_kind, only: SKG => SK4
8177 character(*,SKG) , intent(inout) , allocatable :: array(:)
8178 character(*,SKG) , intent(in) :: pattern
8179 character(*,SKG) , intent(in) :: replacement
8180 end subroutine
8181#endif
8182
8183#if SK3_ENABLED
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
8187#endif
8188 use pm_kind, only: SKG => SK3
8189 character(*,SKG) , intent(inout) , allocatable :: array(:)
8190 character(*,SKG) , intent(in) :: pattern
8191 character(*,SKG) , intent(in) :: replacement
8192 end subroutine
8193#endif
8194
8195#if SK2_ENABLED
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
8199#endif
8200 use pm_kind, only: SKG => SK2
8201 character(*,SKG) , intent(inout) , allocatable :: array(:)
8202 character(*,SKG) , intent(in) :: pattern
8203 character(*,SKG) , intent(in) :: replacement
8204 end subroutine
8205
8206#endif
8207
8208#if SK1_ENABLED
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
8212#endif
8213 use pm_kind, only: SKG => SK1
8214 character(*,SKG) , intent(inout) , allocatable :: array(:)
8215 character(*,SKG) , intent(in) :: pattern
8216 character(*,SKG) , intent(in) :: replacement
8217 end subroutine
8218#endif
8219
8220 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8221
8222#if IK5_ENABLED
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
8226#endif
8227 use pm_kind, only: IKG => IK5
8228 integer(IKG) , intent(inout) , allocatable :: array(:)
8229 integer(IKG) , intent(in) :: pattern
8230 integer(IKG) , intent(in) :: replacement
8231 end subroutine
8232#endif
8233
8234#if IK4_ENABLED
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
8238#endif
8239 use pm_kind, only: IKG => IK4
8240 integer(IKG) , intent(inout) , allocatable :: array(:)
8241 integer(IKG) , intent(in) :: pattern
8242 integer(IKG) , intent(in) :: replacement
8243 end subroutine
8244#endif
8245
8246#if IK3_ENABLED
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
8250#endif
8251 use pm_kind, only: IKG => IK3
8252 integer(IKG) , intent(inout) , allocatable :: array(:)
8253 integer(IKG) , intent(in) :: pattern
8254 integer(IKG) , intent(in) :: replacement
8255 end subroutine
8256#endif
8257
8258#if IK2_ENABLED
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
8262#endif
8263 use pm_kind, only: IKG => IK2
8264 integer(IKG) , intent(inout) , allocatable :: array(:)
8265 integer(IKG) , intent(in) :: pattern
8266 integer(IKG) , intent(in) :: replacement
8267 end subroutine
8268
8269#endif
8270
8271#if IK1_ENABLED
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
8275#endif
8276 use pm_kind, only: IKG => IK1
8277 integer(IKG) , intent(inout) , allocatable :: array(:)
8278 integer(IKG) , intent(in) :: pattern
8279 integer(IKG) , intent(in) :: replacement
8280 end subroutine
8281#endif
8282
8283 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8284
8285#if LK5_ENABLED
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
8289#endif
8290 use pm_kind, only: LKG => LK5
8291 logical(LKG) , intent(inout) , allocatable :: array(:)
8292 logical(LKG) , intent(in) :: pattern
8293 logical(LKG) , intent(in) :: replacement
8294 end subroutine
8295#endif
8296
8297#if LK4_ENABLED
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
8301#endif
8302 use pm_kind, only: LKG => LK4
8303 logical(LKG) , intent(inout) , allocatable :: array(:)
8304 logical(LKG) , intent(in) :: pattern
8305 logical(LKG) , intent(in) :: replacement
8306 end subroutine
8307#endif
8308
8309#if LK3_ENABLED
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
8313#endif
8314 use pm_kind, only: LKG => LK3
8315 logical(LKG) , intent(inout) , allocatable :: array(:)
8316 logical(LKG) , intent(in) :: pattern
8317 logical(LKG) , intent(in) :: replacement
8318 end subroutine
8319#endif
8320
8321#if LK2_ENABLED
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
8325#endif
8326 use pm_kind, only: LKG => LK2
8327 logical(LKG) , intent(inout) , allocatable :: array(:)
8328 logical(LKG) , intent(in) :: pattern
8329 logical(LKG) , intent(in) :: replacement
8330 end subroutine
8331
8332#endif
8333
8334#if LK1_ENABLED
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
8338#endif
8339 use pm_kind, only: LKG => LK1
8340 logical(LKG) , intent(inout) , allocatable :: array(:)
8341 logical(LKG) , intent(in) :: pattern
8342 logical(LKG) , intent(in) :: replacement
8343 end subroutine
8344#endif
8345
8346 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8347
8348#if CK5_ENABLED
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
8352#endif
8353 use pm_kind, only: CKG => CK5
8354 complex(CKG) , intent(inout) , allocatable :: array(:)
8355 complex(CKG) , intent(in) :: pattern
8356 complex(CKG) , intent(in) :: replacement
8357 end subroutine
8358#endif
8359
8360#if CK4_ENABLED
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
8364#endif
8365 use pm_kind, only: CKG => CK4
8366 complex(CKG) , intent(inout) , allocatable :: array(:)
8367 complex(CKG) , intent(in) :: pattern
8368 complex(CKG) , intent(in) :: replacement
8369 end subroutine
8370#endif
8371
8372#if CK3_ENABLED
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
8376#endif
8377 use pm_kind, only: CKG => CK3
8378 complex(CKG) , intent(inout) , allocatable :: array(:)
8379 complex(CKG) , intent(in) :: pattern
8380 complex(CKG) , intent(in) :: replacement
8381 end subroutine
8382#endif
8383
8384#if CK2_ENABLED
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
8388#endif
8389 use pm_kind, only: CKG => CK2
8390 complex(CKG) , intent(inout) , allocatable :: array(:)
8391 complex(CKG) , intent(in) :: pattern
8392 complex(CKG) , intent(in) :: replacement
8393 end subroutine
8394
8395#endif
8396
8397#if CK1_ENABLED
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
8401#endif
8402 use pm_kind, only: CKG => CK1
8403 complex(CKG) , intent(inout) , allocatable :: array(:)
8404 complex(CKG) , intent(in) :: pattern
8405 complex(CKG) , intent(in) :: replacement
8406 end subroutine
8407#endif
8408
8409 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8410
8411#if RK5_ENABLED
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
8415#endif
8416 use pm_kind, only: RKG => RK5
8417 real(RKG) , intent(inout) , allocatable :: array(:)
8418 real(RKG) , intent(in) :: pattern
8419 real(RKG) , intent(in) :: replacement
8420 end subroutine
8421#endif
8422
8423#if RK4_ENABLED
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
8427#endif
8428 use pm_kind, only: RKG => RK4
8429 real(RKG) , intent(inout) , allocatable :: array(:)
8430 real(RKG) , intent(in) :: pattern
8431 real(RKG) , intent(in) :: replacement
8432 end subroutine
8433#endif
8434
8435#if RK3_ENABLED
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
8439#endif
8440 use pm_kind, only: RKG => RK3
8441 real(RKG) , intent(inout) , allocatable :: array(:)
8442 real(RKG) , intent(in) :: pattern
8443 real(RKG) , intent(in) :: replacement
8444 end subroutine
8445#endif
8446
8447#if RK2_ENABLED
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
8451#endif
8452 use pm_kind, only: RKG => RK2
8453 real(RKG) , intent(inout) , allocatable :: array(:)
8454 real(RKG) , intent(in) :: pattern
8455 real(RKG) , intent(in) :: replacement
8456 end subroutine
8457
8458#endif
8459
8460#if RK1_ENABLED
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
8464#endif
8465 use pm_kind, only: RKG => RK1
8466 real(RKG) , intent(inout) , allocatable :: array(:)
8467 real(RKG) , intent(in) :: pattern
8468 real(RKG) , intent(in) :: replacement
8469 end subroutine
8470#endif
8471
8472 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8473
8474 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8475 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8476 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8477
8478 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8479
8480#if SK5_ENABLED
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
8484#endif
8485 use pm_kind, only: SKG => SK5
8486 character(*,SKG) , intent(inout) , allocatable :: array(:)
8487 character(*,SKG) , intent(in) :: pattern
8488 character(*,SKG) , intent(in) , contiguous :: replacement(:)
8489 end subroutine
8490#endif
8491
8492#if SK4_ENABLED
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
8496#endif
8497 use pm_kind, only: SKG => SK4
8498 character(*,SKG) , intent(inout) , allocatable :: array(:)
8499 character(*,SKG) , intent(in) :: pattern
8500 character(*,SKG) , intent(in) , contiguous :: replacement(:)
8501 end subroutine
8502#endif
8503
8504#if SK3_ENABLED
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
8508#endif
8509 use pm_kind, only: SKG => SK3
8510 character(*,SKG) , intent(inout) , allocatable :: array(:)
8511 character(*,SKG) , intent(in) :: pattern
8512 character(*,SKG) , intent(in) , contiguous :: replacement(:)
8513 end subroutine
8514#endif
8515
8516#if SK2_ENABLED
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
8520#endif
8521 use pm_kind, only: SKG => SK2
8522 character(*,SKG) , intent(inout) , allocatable :: array(:)
8523 character(*,SKG) , intent(in) :: pattern
8524 character(*,SKG) , intent(in) , contiguous :: replacement(:)
8525 end subroutine
8526
8527#endif
8528
8529#if SK1_ENABLED
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
8533#endif
8534 use pm_kind, only: SKG => SK1
8535 character(*,SKG) , intent(inout) , allocatable :: array(:)
8536 character(*,SKG) , intent(in) :: pattern
8537 character(*,SKG) , intent(in) , contiguous :: replacement(:)
8538 end subroutine
8539#endif
8540
8541 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8542
8543#if IK5_ENABLED
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
8547#endif
8548 use pm_kind, only: IKG => IK5
8549 integer(IKG) , intent(inout) , allocatable :: array(:)
8550 integer(IKG) , intent(in) :: pattern
8551 integer(IKG) , intent(in) , contiguous :: replacement(:)
8552 end subroutine
8553#endif
8554
8555#if IK4_ENABLED
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
8559#endif
8560 use pm_kind, only: IKG => IK4
8561 integer(IKG) , intent(inout) , allocatable :: array(:)
8562 integer(IKG) , intent(in) :: pattern
8563 integer(IKG) , intent(in) , contiguous :: replacement(:)
8564 end subroutine
8565#endif
8566
8567#if IK3_ENABLED
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
8571#endif
8572 use pm_kind, only: IKG => IK3
8573 integer(IKG) , intent(inout) , allocatable :: array(:)
8574 integer(IKG) , intent(in) :: pattern
8575 integer(IKG) , intent(in) , contiguous :: replacement(:)
8576 end subroutine
8577#endif
8578
8579#if IK2_ENABLED
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
8583#endif
8584 use pm_kind, only: IKG => IK2
8585 integer(IKG) , intent(inout) , allocatable :: array(:)
8586 integer(IKG) , intent(in) :: pattern
8587 integer(IKG) , intent(in) , contiguous :: replacement(:)
8588 end subroutine
8589
8590#endif
8591
8592#if IK1_ENABLED
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
8596#endif
8597 use pm_kind, only: IKG => IK1
8598 integer(IKG) , intent(inout) , allocatable :: array(:)
8599 integer(IKG) , intent(in) :: pattern
8600 integer(IKG) , intent(in) , contiguous :: replacement(:)
8601 end subroutine
8602#endif
8603
8604 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8605
8606#if LK5_ENABLED
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
8610#endif
8611 use pm_kind, only: LKG => LK5
8612 logical(LKG) , intent(inout) , allocatable :: array(:)
8613 logical(LKG) , intent(in) :: pattern
8614 logical(LKG) , intent(in) , contiguous :: replacement(:)
8615 end subroutine
8616#endif
8617
8618#if LK4_ENABLED
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
8622#endif
8623 use pm_kind, only: LKG => LK4
8624 logical(LKG) , intent(inout) , allocatable :: array(:)
8625 logical(LKG) , intent(in) :: pattern
8626 logical(LKG) , intent(in) , contiguous :: replacement(:)
8627 end subroutine
8628#endif
8629
8630#if LK3_ENABLED
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
8634#endif
8635 use pm_kind, only: LKG => LK3
8636 logical(LKG) , intent(inout) , allocatable :: array(:)
8637 logical(LKG) , intent(in) :: pattern
8638 logical(LKG) , intent(in) , contiguous :: replacement(:)
8639 end subroutine
8640#endif
8641
8642#if LK2_ENABLED
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
8646#endif
8647 use pm_kind, only: LKG => LK2
8648 logical(LKG) , intent(inout) , allocatable :: array(:)
8649 logical(LKG) , intent(in) :: pattern
8650 logical(LKG) , intent(in) , contiguous :: replacement(:)
8651 end subroutine
8652
8653#endif
8654
8655#if LK1_ENABLED
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
8659#endif
8660 use pm_kind, only: LKG => LK1
8661 logical(LKG) , intent(inout) , allocatable :: array(:)
8662 logical(LKG) , intent(in) :: pattern
8663 logical(LKG) , intent(in) , contiguous :: replacement(:)
8664 end subroutine
8665#endif
8666
8667 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8668
8669#if CK5_ENABLED
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
8673#endif
8674 use pm_kind, only: CKG => CK5
8675 complex(CKG) , intent(inout) , allocatable :: array(:)
8676 complex(CKG) , intent(in) :: pattern
8677 complex(CKG) , intent(in) , contiguous :: replacement(:)
8678 end subroutine
8679#endif
8680
8681#if CK4_ENABLED
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
8685#endif
8686 use pm_kind, only: CKG => CK4
8687 complex(CKG) , intent(inout) , allocatable :: array(:)
8688 complex(CKG) , intent(in) :: pattern
8689 complex(CKG) , intent(in) , contiguous :: replacement(:)
8690 end subroutine
8691#endif
8692
8693#if CK3_ENABLED
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
8697#endif
8698 use pm_kind, only: CKG => CK3
8699 complex(CKG) , intent(inout) , allocatable :: array(:)
8700 complex(CKG) , intent(in) :: pattern
8701 complex(CKG) , intent(in) , contiguous :: replacement(:)
8702 end subroutine
8703#endif
8704
8705#if CK2_ENABLED
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
8709#endif
8710 use pm_kind, only: CKG => CK2
8711 complex(CKG) , intent(inout) , allocatable :: array(:)
8712 complex(CKG) , intent(in) :: pattern
8713 complex(CKG) , intent(in) , contiguous :: replacement(:)
8714 end subroutine
8715
8716#endif
8717
8718#if CK1_ENABLED
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
8722#endif
8723 use pm_kind, only: CKG => CK1
8724 complex(CKG) , intent(inout) , allocatable :: array(:)
8725 complex(CKG) , intent(in) :: pattern
8726 complex(CKG) , intent(in) , contiguous :: replacement(:)
8727 end subroutine
8728#endif
8729
8730 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8731
8732#if RK5_ENABLED
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
8736#endif
8737 use pm_kind, only: RKG => RK5
8738 real(RKG) , intent(inout) , allocatable :: array(:)
8739 real(RKG) , intent(in) :: pattern
8740 real(RKG) , intent(in) , contiguous :: replacement(:)
8741 end subroutine
8742#endif
8743
8744#if RK4_ENABLED
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
8748#endif
8749 use pm_kind, only: RKG => RK4
8750 real(RKG) , intent(inout) , allocatable :: array(:)
8751 real(RKG) , intent(in) :: pattern
8752 real(RKG) , intent(in) , contiguous :: replacement(:)
8753 end subroutine
8754#endif
8755
8756#if RK3_ENABLED
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
8760#endif
8761 use pm_kind, only: RKG => RK3
8762 real(RKG) , intent(inout) , allocatable :: array(:)
8763 real(RKG) , intent(in) :: pattern
8764 real(RKG) , intent(in) , contiguous :: replacement(:)
8765 end subroutine
8766#endif
8767
8768#if RK2_ENABLED
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
8772#endif
8773 use pm_kind, only: RKG => RK2
8774 real(RKG) , intent(inout) , allocatable :: array(:)
8775 real(RKG) , intent(in) :: pattern
8776 real(RKG) , intent(in) , contiguous :: replacement(:)
8777 end subroutine
8778
8779#endif
8780
8781#if RK1_ENABLED
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
8785#endif
8786 use pm_kind, only: RKG => RK1
8787 real(RKG) , intent(inout) , allocatable :: array(:)
8788 real(RKG) , intent(in) :: pattern
8789 real(RKG) , intent(in) , contiguous :: replacement(:)
8790 end subroutine
8791#endif
8792
8793 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8794
8795 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8796 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8798
8799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8800
8801#if SK5_ENABLED
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
8805#endif
8806 use pm_kind, only: SKG => SK5
8807 character(*,SKG) , intent(inout) , allocatable :: array(:)
8808 character(*,SKG) , intent(in) , contiguous :: pattern(:)
8809 character(*,SKG) , intent(in) :: replacement
8810 end subroutine
8811#endif
8812
8813#if SK4_ENABLED
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
8817#endif
8818 use pm_kind, only: SKG => SK4
8819 character(*,SKG) , intent(inout) , allocatable :: array(:)
8820 character(*,SKG) , intent(in) , contiguous :: pattern(:)
8821 character(*,SKG) , intent(in) :: replacement
8822 end subroutine
8823#endif
8824
8825#if SK3_ENABLED
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
8829#endif
8830 use pm_kind, only: SKG => SK3
8831 character(*,SKG) , intent(inout) , allocatable :: array(:)
8832 character(*,SKG) , intent(in) , contiguous :: pattern(:)
8833 character(*,SKG) , intent(in) :: replacement
8834 end subroutine
8835#endif
8836
8837#if SK2_ENABLED
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
8841#endif
8842 use pm_kind, only: SKG => SK2
8843 character(*,SKG) , intent(inout) , allocatable :: array(:)
8844 character(*,SKG) , intent(in) , contiguous :: pattern(:)
8845 character(*,SKG) , intent(in) :: replacement
8846 end subroutine
8847
8848#endif
8849
8850#if SK1_ENABLED
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
8854#endif
8855 use pm_kind, only: SKG => SK1
8856 character(*,SKG) , intent(inout) , allocatable :: array(:)
8857 character(*,SKG) , intent(in) , contiguous :: pattern(:)
8858 character(*,SKG) , intent(in) :: replacement
8859 end subroutine
8860#endif
8861
8862 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8863
8864#if IK5_ENABLED
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
8868#endif
8869 use pm_kind, only: IKG => IK5
8870 integer(IKG) , intent(inout) , allocatable :: array(:)
8871 integer(IKG) , intent(in) , contiguous :: pattern(:)
8872 integer(IKG) , intent(in) :: replacement
8873 end subroutine
8874#endif
8875
8876#if IK4_ENABLED
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
8880#endif
8881 use pm_kind, only: IKG => IK4
8882 integer(IKG) , intent(inout) , allocatable :: array(:)
8883 integer(IKG) , intent(in) , contiguous :: pattern(:)
8884 integer(IKG) , intent(in) :: replacement
8885 end subroutine
8886#endif
8887
8888#if IK3_ENABLED
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
8892#endif
8893 use pm_kind, only: IKG => IK3
8894 integer(IKG) , intent(inout) , allocatable :: array(:)
8895 integer(IKG) , intent(in) , contiguous :: pattern(:)
8896 integer(IKG) , intent(in) :: replacement
8897 end subroutine
8898#endif
8899
8900#if IK2_ENABLED
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
8904#endif
8905 use pm_kind, only: IKG => IK2
8906 integer(IKG) , intent(inout) , allocatable :: array(:)
8907 integer(IKG) , intent(in) , contiguous :: pattern(:)
8908 integer(IKG) , intent(in) :: replacement
8909 end subroutine
8910
8911#endif
8912
8913#if IK1_ENABLED
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
8917#endif
8918 use pm_kind, only: IKG => IK1
8919 integer(IKG) , intent(inout) , allocatable :: array(:)
8920 integer(IKG) , intent(in) , contiguous :: pattern(:)
8921 integer(IKG) , intent(in) :: replacement
8922 end subroutine
8923#endif
8924
8925 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8926
8927#if LK5_ENABLED
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
8931#endif
8932 use pm_kind, only: LKG => LK5
8933 logical(LKG) , intent(inout) , allocatable :: array(:)
8934 logical(LKG) , intent(in) , contiguous :: pattern(:)
8935 logical(LKG) , intent(in) :: replacement
8936 end subroutine
8937#endif
8938
8939#if LK4_ENABLED
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
8943#endif
8944 use pm_kind, only: LKG => LK4
8945 logical(LKG) , intent(inout) , allocatable :: array(:)
8946 logical(LKG) , intent(in) , contiguous :: pattern(:)
8947 logical(LKG) , intent(in) :: replacement
8948 end subroutine
8949#endif
8950
8951#if LK3_ENABLED
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
8955#endif
8956 use pm_kind, only: LKG => LK3
8957 logical(LKG) , intent(inout) , allocatable :: array(:)
8958 logical(LKG) , intent(in) , contiguous :: pattern(:)
8959 logical(LKG) , intent(in) :: replacement
8960 end subroutine
8961#endif
8962
8963#if LK2_ENABLED
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
8967#endif
8968 use pm_kind, only: LKG => LK2
8969 logical(LKG) , intent(inout) , allocatable :: array(:)
8970 logical(LKG) , intent(in) , contiguous :: pattern(:)
8971 logical(LKG) , intent(in) :: replacement
8972 end subroutine
8973
8974#endif
8975
8976#if LK1_ENABLED
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
8980#endif
8981 use pm_kind, only: LKG => LK1
8982 logical(LKG) , intent(inout) , allocatable :: array(:)
8983 logical(LKG) , intent(in) , contiguous :: pattern(:)
8984 logical(LKG) , intent(in) :: replacement
8985 end subroutine
8986#endif
8987
8988 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8989
8990#if CK5_ENABLED
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
8994#endif
8995 use pm_kind, only: CKG => CK5
8996 complex(CKG) , intent(inout) , allocatable :: array(:)
8997 complex(CKG) , intent(in) , contiguous :: pattern(:)
8998 complex(CKG) , intent(in) :: replacement
8999 end subroutine
9000#endif
9001
9002#if CK4_ENABLED
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
9006#endif
9007 use pm_kind, only: CKG => CK4
9008 complex(CKG) , intent(inout) , allocatable :: array(:)
9009 complex(CKG) , intent(in) , contiguous :: pattern(:)
9010 complex(CKG) , intent(in) :: replacement
9011 end subroutine
9012#endif
9013
9014#if CK3_ENABLED
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
9018#endif
9019 use pm_kind, only: CKG => CK3
9020 complex(CKG) , intent(inout) , allocatable :: array(:)
9021 complex(CKG) , intent(in) , contiguous :: pattern(:)
9022 complex(CKG) , intent(in) :: replacement
9023 end subroutine
9024#endif
9025
9026#if CK2_ENABLED
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
9030#endif
9031 use pm_kind, only: CKG => CK2
9032 complex(CKG) , intent(inout) , allocatable :: array(:)
9033 complex(CKG) , intent(in) , contiguous :: pattern(:)
9034 complex(CKG) , intent(in) :: replacement
9035 end subroutine
9036
9037#endif
9038
9039#if CK1_ENABLED
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
9043#endif
9044 use pm_kind, only: CKG => CK1
9045 complex(CKG) , intent(inout) , allocatable :: array(:)
9046 complex(CKG) , intent(in) , contiguous :: pattern(:)
9047 complex(CKG) , intent(in) :: replacement
9048 end subroutine
9049#endif
9050
9051 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9052
9053#if RK5_ENABLED
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
9057#endif
9058 use pm_kind, only: RKG => RK5
9059 real(RKG) , intent(inout) , allocatable :: array(:)
9060 real(RKG) , intent(in) , contiguous :: pattern(:)
9061 real(RKG) , intent(in) :: replacement
9062 end subroutine
9063#endif
9064
9065#if RK4_ENABLED
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
9069#endif
9070 use pm_kind, only: RKG => RK4
9071 real(RKG) , intent(inout) , allocatable :: array(:)
9072 real(RKG) , intent(in) , contiguous :: pattern(:)
9073 real(RKG) , intent(in) :: replacement
9074 end subroutine
9075#endif
9076
9077#if RK3_ENABLED
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
9081#endif
9082 use pm_kind, only: RKG => RK3
9083 real(RKG) , intent(inout) , allocatable :: array(:)
9084 real(RKG) , intent(in) , contiguous :: pattern(:)
9085 real(RKG) , intent(in) :: replacement
9086 end subroutine
9087#endif
9088
9089#if RK2_ENABLED
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
9093#endif
9094 use pm_kind, only: RKG => RK2
9095 real(RKG) , intent(inout) , allocatable :: array(:)
9096 real(RKG) , intent(in) , contiguous :: pattern(:)
9097 real(RKG) , intent(in) :: replacement
9098 end subroutine
9099
9100#endif
9101
9102#if RK1_ENABLED
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
9106#endif
9107 use pm_kind, only: RKG => RK1
9108 real(RKG) , intent(inout) , allocatable :: array(:)
9109 real(RKG) , intent(in) , contiguous :: pattern(:)
9110 real(RKG) , intent(in) :: replacement
9111 end subroutine
9112#endif
9113
9114 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9115
9116 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9117 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9118 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9119
9120 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9121
9122#if SK5_ENABLED
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
9126#endif
9127 use pm_kind, only: SKG => SK5
9128 character(*,SKG) , intent(inout) , allocatable :: array(:)
9129 character(*,SKG) , intent(in) , contiguous :: pattern(:)
9130 character(*,SKG) , intent(in) , contiguous :: replacement(:)
9131 end subroutine
9132#endif
9133
9134#if SK4_ENABLED
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
9138#endif
9139 use pm_kind, only: SKG => SK4
9140 character(*,SKG) , intent(inout) , allocatable :: array(:)
9141 character(*,SKG) , intent(in) , contiguous :: pattern(:)
9142 character(*,SKG) , intent(in) , contiguous :: replacement(:)
9143 end subroutine
9144#endif
9145
9146#if SK3_ENABLED
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
9150#endif
9151 use pm_kind, only: SKG => SK3
9152 character(*,SKG) , intent(inout) , allocatable :: array(:)
9153 character(*,SKG) , intent(in) , contiguous :: pattern(:)
9154 character(*,SKG) , intent(in) , contiguous :: replacement(:)
9155 end subroutine
9156#endif
9157
9158#if SK2_ENABLED
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
9162#endif
9163 use pm_kind, only: SKG => SK2
9164 character(*,SKG) , intent(inout) , allocatable :: array(:)
9165 character(*,SKG) , intent(in) , contiguous :: pattern(:)
9166 character(*,SKG) , intent(in) , contiguous :: replacement(:)
9167 end subroutine
9168
9169#endif
9170
9171#if SK1_ENABLED
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
9175#endif
9176 use pm_kind, only: SKG => SK1
9177 character(*,SKG) , intent(inout) , allocatable :: array(:)
9178 character(*,SKG) , intent(in) , contiguous :: pattern(:)
9179 character(*,SKG) , intent(in) , contiguous :: replacement(:)
9180 end subroutine
9181#endif
9182
9183 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9184
9185#if IK5_ENABLED
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
9189#endif
9190 use pm_kind, only: IKG => IK5
9191 integer(IKG) , intent(inout) , allocatable :: array(:)
9192 integer(IKG) , intent(in) , contiguous :: pattern(:)
9193 integer(IKG) , intent(in) , contiguous :: replacement(:)
9194 end subroutine
9195#endif
9196
9197#if IK4_ENABLED
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
9201#endif
9202 use pm_kind, only: IKG => IK4
9203 integer(IKG) , intent(inout) , allocatable :: array(:)
9204 integer(IKG) , intent(in) , contiguous :: pattern(:)
9205 integer(IKG) , intent(in) , contiguous :: replacement(:)
9206 end subroutine
9207#endif
9208
9209#if IK3_ENABLED
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
9213#endif
9214 use pm_kind, only: IKG => IK3
9215 integer(IKG) , intent(inout) , allocatable :: array(:)
9216 integer(IKG) , intent(in) , contiguous :: pattern(:)
9217 integer(IKG) , intent(in) , contiguous :: replacement(:)
9218 end subroutine
9219#endif
9220
9221#if IK2_ENABLED
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
9225#endif
9226 use pm_kind, only: IKG => IK2
9227 integer(IKG) , intent(inout) , allocatable :: array(:)
9228 integer(IKG) , intent(in) , contiguous :: pattern(:)
9229 integer(IKG) , intent(in) , contiguous :: replacement(:)
9230 end subroutine
9231
9232#endif
9233
9234#if IK1_ENABLED
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
9238#endif
9239 use pm_kind, only: IKG => IK1
9240 integer(IKG) , intent(inout) , allocatable :: array(:)
9241 integer(IKG) , intent(in) , contiguous :: pattern(:)
9242 integer(IKG) , intent(in) , contiguous :: replacement(:)
9243 end subroutine
9244#endif
9245
9246 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9247
9248#if LK5_ENABLED
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
9252#endif
9253 use pm_kind, only: LKG => LK5
9254 logical(LKG) , intent(inout) , allocatable :: array(:)
9255 logical(LKG) , intent(in) , contiguous :: pattern(:)
9256 logical(LKG) , intent(in) , contiguous :: replacement(:)
9257 end subroutine
9258#endif
9259
9260#if LK4_ENABLED
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
9264#endif
9265 use pm_kind, only: LKG => LK4
9266 logical(LKG) , intent(inout) , allocatable :: array(:)
9267 logical(LKG) , intent(in) , contiguous :: pattern(:)
9268 logical(LKG) , intent(in) , contiguous :: replacement(:)
9269 end subroutine
9270#endif
9271
9272#if LK3_ENABLED
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
9276#endif
9277 use pm_kind, only: LKG => LK3
9278 logical(LKG) , intent(inout) , allocatable :: array(:)
9279 logical(LKG) , intent(in) , contiguous :: pattern(:)
9280 logical(LKG) , intent(in) , contiguous :: replacement(:)
9281 end subroutine
9282#endif
9283
9284#if LK2_ENABLED
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
9288#endif
9289 use pm_kind, only: LKG => LK2
9290 logical(LKG) , intent(inout) , allocatable :: array(:)
9291 logical(LKG) , intent(in) , contiguous :: pattern(:)
9292 logical(LKG) , intent(in) , contiguous :: replacement(:)
9293 end subroutine
9294
9295#endif
9296
9297#if LK1_ENABLED
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
9301#endif
9302 use pm_kind, only: LKG => LK1
9303 logical(LKG) , intent(inout) , allocatable :: array(:)
9304 logical(LKG) , intent(in) , contiguous :: pattern(:)
9305 logical(LKG) , intent(in) , contiguous :: replacement(:)
9306 end subroutine
9307#endif
9308
9309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9310
9311#if CK5_ENABLED
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
9315#endif
9316 use pm_kind, only: CKG => CK5
9317 complex(CKG) , intent(inout) , allocatable :: array(:)
9318 complex(CKG) , intent(in) , contiguous :: pattern(:)
9319 complex(CKG) , intent(in) , contiguous :: replacement(:)
9320 end subroutine
9321#endif
9322
9323#if CK4_ENABLED
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
9327#endif
9328 use pm_kind, only: CKG => CK4
9329 complex(CKG) , intent(inout) , allocatable :: array(:)
9330 complex(CKG) , intent(in) , contiguous :: pattern(:)
9331 complex(CKG) , intent(in) , contiguous :: replacement(:)
9332 end subroutine
9333#endif
9334
9335#if CK3_ENABLED
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
9339#endif
9340 use pm_kind, only: CKG => CK3
9341 complex(CKG) , intent(inout) , allocatable :: array(:)
9342 complex(CKG) , intent(in) , contiguous :: pattern(:)
9343 complex(CKG) , intent(in) , contiguous :: replacement(:)
9344 end subroutine
9345#endif
9346
9347#if CK2_ENABLED
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
9351#endif
9352 use pm_kind, only: CKG => CK2
9353 complex(CKG) , intent(inout) , allocatable :: array(:)
9354 complex(CKG) , intent(in) , contiguous :: pattern(:)
9355 complex(CKG) , intent(in) , contiguous :: replacement(:)
9356 end subroutine
9357
9358#endif
9359
9360#if CK1_ENABLED
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
9364#endif
9365 use pm_kind, only: CKG => CK1
9366 complex(CKG) , intent(inout) , allocatable :: array(:)
9367 complex(CKG) , intent(in) , contiguous :: pattern(:)
9368 complex(CKG) , intent(in) , contiguous :: replacement(:)
9369 end subroutine
9370#endif
9371
9372 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9373
9374#if RK5_ENABLED
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
9378#endif
9379 use pm_kind, only: RKG => RK5
9380 real(RKG) , intent(inout) , allocatable :: array(:)
9381 real(RKG) , intent(in) , contiguous :: pattern(:)
9382 real(RKG) , intent(in) , contiguous :: replacement(:)
9383 end subroutine
9384#endif
9385
9386#if RK4_ENABLED
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
9390#endif
9391 use pm_kind, only: RKG => RK4
9392 real(RKG) , intent(inout) , allocatable :: array(:)
9393 real(RKG) , intent(in) , contiguous :: pattern(:)
9394 real(RKG) , intent(in) , contiguous :: replacement(:)
9395 end subroutine
9396#endif
9397
9398#if RK3_ENABLED
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
9402#endif
9403 use pm_kind, only: RKG => RK3
9404 real(RKG) , intent(inout) , allocatable :: array(:)
9405 real(RKG) , intent(in) , contiguous :: pattern(:)
9406 real(RKG) , intent(in) , contiguous :: replacement(:)
9407 end subroutine
9408#endif
9409
9410#if RK2_ENABLED
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
9414#endif
9415 use pm_kind, only: RKG => RK2
9416 real(RKG) , intent(inout) , allocatable :: array(:)
9417 real(RKG) , intent(in) , contiguous :: pattern(:)
9418 real(RKG) , intent(in) , contiguous :: replacement(:)
9419 end subroutine
9420
9421#endif
9422
9423#if RK1_ENABLED
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
9427#endif
9428 use pm_kind, only: RKG => RK1
9429 real(RKG) , intent(inout) , allocatable :: array(:)
9430 real(RKG) , intent(in) , contiguous :: pattern(:)
9431 real(RKG) , intent(in) , contiguous :: replacement(:)
9432 end subroutine
9433#endif
9434
9435 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9436
9437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9438 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9439 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9440 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9441 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9442 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9443 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9444 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9445 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9446
9447 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9448
9449#if SK5_ENABLED
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
9453#endif
9454 use pm_kind, only: SKG => SK5
9455 character(:,SKG) , intent(inout) , allocatable :: array
9456 character(*,SKG) , intent(in) :: pattern
9457 character(*,SKG) , intent(in) :: replacement
9458 !procedure(iseq_D0_D0_SK5) :: iseq
9459 procedure(logical(LK)) :: iseq
9460 end subroutine
9461#endif
9462
9463#if SK4_ENABLED
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
9467#endif
9468 use pm_kind, only: SKG => SK4
9469 character(:,SKG) , intent(inout) , allocatable :: array
9470 character(*,SKG) , intent(in) :: pattern
9471 character(*,SKG) , intent(in) :: replacement
9472 !procedure(iseq_D0_D0_SK4) :: iseq
9473 procedure(logical(LK)) :: iseq
9474 end subroutine
9475#endif
9476
9477#if SK3_ENABLED
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
9481#endif
9482 use pm_kind, only: SKG => SK3
9483 character(:,SKG) , intent(inout) , allocatable :: array
9484 character(*,SKG) , intent(in) :: pattern
9485 character(*,SKG) , intent(in) :: replacement
9486 !procedure(iseq_D0_D0_SK3) :: iseq
9487 procedure(logical(LK)) :: iseq
9488 end subroutine
9489#endif
9490
9491#if SK2_ENABLED
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
9495#endif
9496 use pm_kind, only: SKG => SK2
9497 character(:,SKG) , intent(inout) , allocatable :: array
9498 character(*,SKG) , intent(in) :: pattern
9499 character(*,SKG) , intent(in) :: replacement
9500 !procedure(iseq_D0_D0_SK2) :: iseq
9501 procedure(logical(LK)) :: iseq
9502 end subroutine
9503
9504#endif
9505
9506#if SK1_ENABLED
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
9510#endif
9511 use pm_kind, only: SKG => SK1
9512 character(:,SKG) , intent(inout) , allocatable :: array
9513 character(*,SKG) , intent(in) :: pattern
9514 character(*,SKG) , intent(in) :: replacement
9515 !procedure(iseq_D0_D0_SK1) :: iseq
9516 procedure(logical(LK)) :: iseq
9517 end subroutine
9518#endif
9519
9520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9521
9522 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9524 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9525
9526 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9527
9528#if SK5_ENABLED
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
9532#endif
9533 use pm_kind, only: SKG => SK5
9534 character(*,SKG) , intent(inout) , allocatable :: array(:)
9535 character(*,SKG) , intent(in) :: pattern
9536 character(*,SKG) , intent(in) :: replacement
9537 !procedure(iseq_D0_D0_SK5) :: iseq
9538 procedure(logical(LK)) :: iseq
9539 end subroutine
9540#endif
9541
9542#if SK4_ENABLED
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
9546#endif
9547 use pm_kind, only: SKG => SK4
9548 character(*,SKG) , intent(inout) , allocatable :: array(:)
9549 character(*,SKG) , intent(in) :: pattern
9550 character(*,SKG) , intent(in) :: replacement
9551 !procedure(iseq_D0_D0_SK4) :: iseq
9552 procedure(logical(LK)) :: iseq
9553 end subroutine
9554#endif
9555
9556#if SK3_ENABLED
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
9560#endif
9561 use pm_kind, only: SKG => SK3
9562 character(*,SKG) , intent(inout) , allocatable :: array(:)
9563 character(*,SKG) , intent(in) :: pattern
9564 character(*,SKG) , intent(in) :: replacement
9565 !procedure(iseq_D0_D0_SK3) :: iseq
9566 procedure(logical(LK)) :: iseq
9567 end subroutine
9568#endif
9569
9570#if SK2_ENABLED
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
9574#endif
9575 use pm_kind, only: SKG => SK2
9576 character(*,SKG) , intent(inout) , allocatable :: array(:)
9577 character(*,SKG) , intent(in) :: pattern
9578 character(*,SKG) , intent(in) :: replacement
9579 !procedure(iseq_D0_D0_SK2) :: iseq
9580 procedure(logical(LK)) :: iseq
9581 end subroutine
9582
9583#endif
9584
9585#if SK1_ENABLED
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
9589#endif
9590 use pm_kind, only: SKG => SK1
9591 character(*,SKG) , intent(inout) , allocatable :: array(:)
9592 character(*,SKG) , intent(in) :: pattern
9593 character(*,SKG) , intent(in) :: replacement
9594 !procedure(iseq_D0_D0_SK1) :: iseq
9595 procedure(logical(LK)) :: iseq
9596 end subroutine
9597#endif
9598
9599 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9600
9601#if IK5_ENABLED
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
9605#endif
9606 use pm_kind, only: IKG => IK5
9607 integer(IKG) , intent(inout) , allocatable :: array(:)
9608 integer(IKG) , intent(in) :: pattern
9609 integer(IKG) , intent(in) :: replacement
9610 !procedure(iseq_D0_D0_IK5) :: iseq
9611 procedure(logical(LK)) :: iseq
9612 end subroutine
9613#endif
9614
9615#if IK4_ENABLED
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
9619#endif
9620 use pm_kind, only: IKG => IK4
9621 integer(IKG) , intent(inout) , allocatable :: array(:)
9622 integer(IKG) , intent(in) :: pattern
9623 integer(IKG) , intent(in) :: replacement
9624 !procedure(iseq_D0_D0_IK4) :: iseq
9625 procedure(logical(LK)) :: iseq
9626 end subroutine
9627#endif
9628
9629#if IK3_ENABLED
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
9633#endif
9634 use pm_kind, only: IKG => IK3
9635 integer(IKG) , intent(inout) , allocatable :: array(:)
9636 integer(IKG) , intent(in) :: pattern
9637 integer(IKG) , intent(in) :: replacement
9638 !procedure(iseq_D0_D0_IK3) :: iseq
9639 procedure(logical(LK)) :: iseq
9640 end subroutine
9641#endif
9642
9643#if IK2_ENABLED
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
9647#endif
9648 use pm_kind, only: IKG => IK2
9649 integer(IKG) , intent(inout) , allocatable :: array(:)
9650 integer(IKG) , intent(in) :: pattern
9651 integer(IKG) , intent(in) :: replacement
9652 !procedure(iseq_D0_D0_IK2) :: iseq
9653 procedure(logical(LK)) :: iseq
9654 end subroutine
9655
9656#endif
9657
9658#if IK1_ENABLED
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
9662#endif
9663 use pm_kind, only: IKG => IK1
9664 integer(IKG) , intent(inout) , allocatable :: array(:)
9665 integer(IKG) , intent(in) :: pattern
9666 integer(IKG) , intent(in) :: replacement
9667 !procedure(iseq_D0_D0_IK1) :: iseq
9668 procedure(logical(LK)) :: iseq
9669 end subroutine
9670#endif
9671
9672 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9673
9674#if LK5_ENABLED
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
9678#endif
9679 use pm_kind, only: LKG => LK5
9680 logical(LKG) , intent(inout) , allocatable :: array(:)
9681 logical(LKG) , intent(in) :: pattern
9682 logical(LKG) , intent(in) :: replacement
9683 !procedure(iseq_D0_D0_LK5) :: iseq
9684 procedure(logical(LK)) :: iseq
9685 end subroutine
9686#endif
9687
9688#if LK4_ENABLED
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
9692#endif
9693 use pm_kind, only: LKG => LK4
9694 logical(LKG) , intent(inout) , allocatable :: array(:)
9695 logical(LKG) , intent(in) :: pattern
9696 logical(LKG) , intent(in) :: replacement
9697 !procedure(iseq_D0_D0_LK4) :: iseq
9698 procedure(logical(LK)) :: iseq
9699 end subroutine
9700#endif
9701
9702#if LK3_ENABLED
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
9706#endif
9707 use pm_kind, only: LKG => LK3
9708 logical(LKG) , intent(inout) , allocatable :: array(:)
9709 logical(LKG) , intent(in) :: pattern
9710 logical(LKG) , intent(in) :: replacement
9711 !procedure(iseq_D0_D0_LK3) :: iseq
9712 procedure(logical(LK)) :: iseq
9713 end subroutine
9714#endif
9715
9716#if LK2_ENABLED
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
9720#endif
9721 use pm_kind, only: LKG => LK2
9722 logical(LKG) , intent(inout) , allocatable :: array(:)
9723 logical(LKG) , intent(in) :: pattern
9724 logical(LKG) , intent(in) :: replacement
9725 !procedure(iseq_D0_D0_LK2) :: iseq
9726 procedure(logical(LK)) :: iseq
9727 end subroutine
9728
9729#endif
9730
9731#if LK1_ENABLED
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
9735#endif
9736 use pm_kind, only: LKG => LK1
9737 logical(LKG) , intent(inout) , allocatable :: array(:)
9738 logical(LKG) , intent(in) :: pattern
9739 logical(LKG) , intent(in) :: replacement
9740 !procedure(iseq_D0_D0_LK1) :: iseq
9741 procedure(logical(LK)) :: iseq
9742 end subroutine
9743#endif
9744
9745 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9746
9747#if CK5_ENABLED
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
9751#endif
9752 use pm_kind, only: CKG => CK5
9753 complex(CKG) , intent(inout) , allocatable :: array(:)
9754 complex(CKG) , intent(in) :: pattern
9755 complex(CKG) , intent(in) :: replacement
9756 !procedure(iseq_D0_D0_CK5) :: iseq
9757 procedure(logical(LK)) :: iseq
9758 end subroutine
9759#endif
9760
9761#if CK4_ENABLED
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
9765#endif
9766 use pm_kind, only: CKG => CK4
9767 complex(CKG) , intent(inout) , allocatable :: array(:)
9768 complex(CKG) , intent(in) :: pattern
9769 complex(CKG) , intent(in) :: replacement
9770 !procedure(iseq_D0_D0_CK4) :: iseq
9771 procedure(logical(LK)) :: iseq
9772 end subroutine
9773#endif
9774
9775#if CK3_ENABLED
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
9779#endif
9780 use pm_kind, only: CKG => CK3
9781 complex(CKG) , intent(inout) , allocatable :: array(:)
9782 complex(CKG) , intent(in) :: pattern
9783 complex(CKG) , intent(in) :: replacement
9784 !procedure(iseq_D0_D0_CK3) :: iseq
9785 procedure(logical(LK)) :: iseq
9786 end subroutine
9787#endif
9788
9789#if CK2_ENABLED
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
9793#endif
9794 use pm_kind, only: CKG => CK2
9795 complex(CKG) , intent(inout) , allocatable :: array(:)
9796 complex(CKG) , intent(in) :: pattern
9797 complex(CKG) , intent(in) :: replacement
9798 !procedure(iseq_D0_D0_CK2) :: iseq
9799 procedure(logical(LK)) :: iseq
9800 end subroutine
9801
9802#endif
9803
9804#if CK1_ENABLED
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
9808#endif
9809 use pm_kind, only: CKG => CK1
9810 complex(CKG) , intent(inout) , allocatable :: array(:)
9811 complex(CKG) , intent(in) :: pattern
9812 complex(CKG) , intent(in) :: replacement
9813 !procedure(iseq_D0_D0_CK1) :: iseq
9814 procedure(logical(LK)) :: iseq
9815 end subroutine
9816#endif
9817
9818 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9819
9820#if RK5_ENABLED
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
9824#endif
9825 use pm_kind, only: RKG => RK5
9826 real(RKG) , intent(inout) , allocatable :: array(:)
9827 real(RKG) , intent(in) :: pattern
9828 real(RKG) , intent(in) :: replacement
9829 !procedure(iseq_D0_D0_RK5) :: iseq
9830 procedure(logical(LK)) :: iseq
9831 end subroutine
9832#endif
9833
9834#if RK4_ENABLED
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
9838#endif
9839 use pm_kind, only: RKG => RK4
9840 real(RKG) , intent(inout) , allocatable :: array(:)
9841 real(RKG) , intent(in) :: pattern
9842 real(RKG) , intent(in) :: replacement
9843 !procedure(iseq_D0_D0_RK4) :: iseq
9844 procedure(logical(LK)) :: iseq
9845 end subroutine
9846#endif
9847
9848#if RK3_ENABLED
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
9852#endif
9853 use pm_kind, only: RKG => RK3
9854 real(RKG) , intent(inout) , allocatable :: array(:)
9855 real(RKG) , intent(in) :: pattern
9856 real(RKG) , intent(in) :: replacement
9857 !procedure(iseq_D0_D0_RK3) :: iseq
9858 procedure(logical(LK)) :: iseq
9859 end subroutine
9860#endif
9861
9862#if RK2_ENABLED
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
9866#endif
9867 use pm_kind, only: RKG => RK2
9868 real(RKG) , intent(inout) , allocatable :: array(:)
9869 real(RKG) , intent(in) :: pattern
9870 real(RKG) , intent(in) :: replacement
9871 !procedure(iseq_D0_D0_RK2) :: iseq
9872 procedure(logical(LK)) :: iseq
9873 end subroutine
9874
9875#endif
9876
9877#if RK1_ENABLED
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
9881#endif
9882 use pm_kind, only: RKG => RK1
9883 real(RKG) , intent(inout) , allocatable :: array(:)
9884 real(RKG) , intent(in) :: pattern
9885 real(RKG) , intent(in) :: replacement
9886 !procedure(iseq_D0_D0_RK1) :: iseq
9887 procedure(logical(LK)) :: iseq
9888 end subroutine
9889#endif
9890
9891 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9892
9893 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9894 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9895 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9896
9897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9898
9899#if SK5_ENABLED
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
9903#endif
9904 use pm_kind, only: SKG => SK5
9905 character(*,SKG) , intent(inout) , allocatable :: array(:)
9906 character(*,SKG) , intent(in) :: pattern
9907 character(*,SKG) , intent(in) , contiguous :: replacement(:)
9908 !procedure(iseq_D0_D0_SK5) :: iseq
9909 procedure(logical(LK)) :: iseq
9910 end subroutine
9911#endif
9912
9913#if SK4_ENABLED
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
9917#endif
9918 use pm_kind, only: SKG => SK4
9919 character(*,SKG) , intent(inout) , allocatable :: array(:)
9920 character(*,SKG) , intent(in) :: pattern
9921 character(*,SKG) , intent(in) , contiguous :: replacement(:)
9922 !procedure(iseq_D0_D0_SK4) :: iseq
9923 procedure(logical(LK)) :: iseq
9924 end subroutine
9925#endif
9926
9927#if SK3_ENABLED
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
9931#endif
9932 use pm_kind, only: SKG => SK3
9933 character(*,SKG) , intent(inout) , allocatable :: array(:)
9934 character(*,SKG) , intent(in) :: pattern
9935 character(*,SKG) , intent(in) , contiguous :: replacement(:)
9936 !procedure(iseq_D0_D0_SK3) :: iseq
9937 procedure(logical(LK)) :: iseq
9938 end subroutine
9939#endif
9940
9941#if SK2_ENABLED
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
9945#endif
9946 use pm_kind, only: SKG => SK2
9947 character(*,SKG) , intent(inout) , allocatable :: array(:)
9948 character(*,SKG) , intent(in) :: pattern
9949 character(*,SKG) , intent(in) , contiguous :: replacement(:)
9950 !procedure(iseq_D0_D0_SK2) :: iseq
9951 procedure(logical(LK)) :: iseq
9952 end subroutine
9953
9954#endif
9955
9956#if SK1_ENABLED
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
9960#endif
9961 use pm_kind, only: SKG => SK1
9962 character(*,SKG) , intent(inout) , allocatable :: array(:)
9963 character(*,SKG) , intent(in) :: pattern
9964 character(*,SKG) , intent(in) , contiguous :: replacement(:)
9965 !procedure(iseq_D0_D0_SK1) :: iseq
9966 procedure(logical(LK)) :: iseq
9967 end subroutine
9968#endif
9969
9970 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9971
9972#if IK5_ENABLED
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
9976#endif
9977 use pm_kind, only: IKG => IK5
9978 integer(IKG) , intent(inout) , allocatable :: array(:)
9979 integer(IKG) , intent(in) :: pattern
9980 integer(IKG) , intent(in) , contiguous :: replacement(:)
9981 !procedure(iseq_D0_D0_IK5) :: iseq
9982 procedure(logical(LK)) :: iseq
9983 end subroutine
9984#endif
9985
9986#if IK4_ENABLED
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
9990#endif
9991 use pm_kind, only: IKG => IK4
9992 integer(IKG) , intent(inout) , allocatable :: array(:)
9993 integer(IKG) , intent(in) :: pattern
9994 integer(IKG) , intent(in) , contiguous :: replacement(:)
9995 !procedure(iseq_D0_D0_IK4) :: iseq
9996 procedure(logical(LK)) :: iseq
9997 end subroutine
9998#endif
9999
10000#if IK3_ENABLED
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
10004#endif
10005 use pm_kind, only: IKG => IK3
10006 integer(IKG) , intent(inout) , allocatable :: array(:)
10007 integer(IKG) , intent(in) :: pattern
10008 integer(IKG) , intent(in) , contiguous :: replacement(:)
10009 !procedure(iseq_D0_D0_IK3) :: iseq
10010 procedure(logical(LK)) :: iseq
10011 end subroutine
10012#endif
10013
10014#if IK2_ENABLED
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
10018#endif
10019 use pm_kind, only: IKG => IK2
10020 integer(IKG) , intent(inout) , allocatable :: array(:)
10021 integer(IKG) , intent(in) :: pattern
10022 integer(IKG) , intent(in) , contiguous :: replacement(:)
10023 !procedure(iseq_D0_D0_IK2) :: iseq
10024 procedure(logical(LK)) :: iseq
10025 end subroutine
10026
10027#endif
10028
10029#if IK1_ENABLED
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
10033#endif
10034 use pm_kind, only: IKG => IK1
10035 integer(IKG) , intent(inout) , allocatable :: array(:)
10036 integer(IKG) , intent(in) :: pattern
10037 integer(IKG) , intent(in) , contiguous :: replacement(:)
10038 !procedure(iseq_D0_D0_IK1) :: iseq
10039 procedure(logical(LK)) :: iseq
10040 end subroutine
10041#endif
10042
10043 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10044
10045#if LK5_ENABLED
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
10049#endif
10050 use pm_kind, only: LKG => LK5
10051 logical(LKG) , intent(inout) , allocatable :: array(:)
10052 logical(LKG) , intent(in) :: pattern
10053 logical(LKG) , intent(in) , contiguous :: replacement(:)
10054 !procedure(iseq_D0_D0_LK5) :: iseq
10055 procedure(logical(LK)) :: iseq
10056 end subroutine
10057#endif
10058
10059#if LK4_ENABLED
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
10063#endif
10064 use pm_kind, only: LKG => LK4
10065 logical(LKG) , intent(inout) , allocatable :: array(:)
10066 logical(LKG) , intent(in) :: pattern
10067 logical(LKG) , intent(in) , contiguous :: replacement(:)
10068 !procedure(iseq_D0_D0_LK4) :: iseq
10069 procedure(logical(LK)) :: iseq
10070 end subroutine
10071#endif
10072
10073#if LK3_ENABLED
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
10077#endif
10078 use pm_kind, only: LKG => LK3
10079 logical(LKG) , intent(inout) , allocatable :: array(:)
10080 logical(LKG) , intent(in) :: pattern
10081 logical(LKG) , intent(in) , contiguous :: replacement(:)
10082 !procedure(iseq_D0_D0_LK3) :: iseq
10083 procedure(logical(LK)) :: iseq
10084 end subroutine
10085#endif
10086
10087#if LK2_ENABLED
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
10091#endif
10092 use pm_kind, only: LKG => LK2
10093 logical(LKG) , intent(inout) , allocatable :: array(:)
10094 logical(LKG) , intent(in) :: pattern
10095 logical(LKG) , intent(in) , contiguous :: replacement(:)
10096 !procedure(iseq_D0_D0_LK2) :: iseq
10097 procedure(logical(LK)) :: iseq
10098 end subroutine
10099
10100#endif
10101
10102#if LK1_ENABLED
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
10106#endif
10107 use pm_kind, only: LKG => LK1
10108 logical(LKG) , intent(inout) , allocatable :: array(:)
10109 logical(LKG) , intent(in) :: pattern
10110 logical(LKG) , intent(in) , contiguous :: replacement(:)
10111 !procedure(iseq_D0_D0_LK1) :: iseq
10112 procedure(logical(LK)) :: iseq
10113 end subroutine
10114#endif
10115
10116 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10117
10118#if CK5_ENABLED
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
10122#endif
10123 use pm_kind, only: CKG => CK5
10124 complex(CKG) , intent(inout) , allocatable :: array(:)
10125 complex(CKG) , intent(in) :: pattern
10126 complex(CKG) , intent(in) , contiguous :: replacement(:)
10127 !procedure(iseq_D0_D0_CK5) :: iseq
10128 procedure(logical(LK)) :: iseq
10129 end subroutine
10130#endif
10131
10132#if CK4_ENABLED
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
10136#endif
10137 use pm_kind, only: CKG => CK4
10138 complex(CKG) , intent(inout) , allocatable :: array(:)
10139 complex(CKG) , intent(in) :: pattern
10140 complex(CKG) , intent(in) , contiguous :: replacement(:)
10141 !procedure(iseq_D0_D0_CK4) :: iseq
10142 procedure(logical(LK)) :: iseq
10143 end subroutine
10144#endif
10145
10146#if CK3_ENABLED
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
10150#endif
10151 use pm_kind, only: CKG => CK3
10152 complex(CKG) , intent(inout) , allocatable :: array(:)
10153 complex(CKG) , intent(in) :: pattern
10154 complex(CKG) , intent(in) , contiguous :: replacement(:)
10155 !procedure(iseq_D0_D0_CK3) :: iseq
10156 procedure(logical(LK)) :: iseq
10157 end subroutine
10158#endif
10159
10160#if CK2_ENABLED
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
10164#endif
10165 use pm_kind, only: CKG => CK2
10166 complex(CKG) , intent(inout) , allocatable :: array(:)
10167 complex(CKG) , intent(in) :: pattern
10168 complex(CKG) , intent(in) , contiguous :: replacement(:)
10169 !procedure(iseq_D0_D0_CK2) :: iseq
10170 procedure(logical(LK)) :: iseq
10171 end subroutine
10172
10173#endif
10174
10175#if CK1_ENABLED
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
10179#endif
10180 use pm_kind, only: CKG => CK1
10181 complex(CKG) , intent(inout) , allocatable :: array(:)
10182 complex(CKG) , intent(in) :: pattern
10183 complex(CKG) , intent(in) , contiguous :: replacement(:)
10184 !procedure(iseq_D0_D0_CK1) :: iseq
10185 procedure(logical(LK)) :: iseq
10186 end subroutine
10187#endif
10188
10189 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10190
10191#if RK5_ENABLED
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
10195#endif
10196 use pm_kind, only: RKG => RK5
10197 real(RKG) , intent(inout) , allocatable :: array(:)
10198 real(RKG) , intent(in) :: pattern
10199 real(RKG) , intent(in) , contiguous :: replacement(:)
10200 !procedure(iseq_D0_D0_RK5) :: iseq
10201 procedure(logical(LK)) :: iseq
10202 end subroutine
10203#endif
10204
10205#if RK4_ENABLED
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
10209#endif
10210 use pm_kind, only: RKG => RK4
10211 real(RKG) , intent(inout) , allocatable :: array(:)
10212 real(RKG) , intent(in) :: pattern
10213 real(RKG) , intent(in) , contiguous :: replacement(:)
10214 !procedure(iseq_D0_D0_RK4) :: iseq
10215 procedure(logical(LK)) :: iseq
10216 end subroutine
10217#endif
10218
10219#if RK3_ENABLED
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
10223#endif
10224 use pm_kind, only: RKG => RK3
10225 real(RKG) , intent(inout) , allocatable :: array(:)
10226 real(RKG) , intent(in) :: pattern
10227 real(RKG) , intent(in) , contiguous :: replacement(:)
10228 !procedure(iseq_D0_D0_RK3) :: iseq
10229 procedure(logical(LK)) :: iseq
10230 end subroutine
10231#endif
10232
10233#if RK2_ENABLED
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
10237#endif
10238 use pm_kind, only: RKG => RK2
10239 real(RKG) , intent(inout) , allocatable :: array(:)
10240 real(RKG) , intent(in) :: pattern
10241 real(RKG) , intent(in) , contiguous :: replacement(:)
10242 !procedure(iseq_D0_D0_RK2) :: iseq
10243 procedure(logical(LK)) :: iseq
10244 end subroutine
10245
10246#endif
10247
10248#if RK1_ENABLED
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
10252#endif
10253 use pm_kind, only: RKG => RK1
10254 real(RKG) , intent(inout) , allocatable :: array(:)
10255 real(RKG) , intent(in) :: pattern
10256 real(RKG) , intent(in) , contiguous :: replacement(:)
10257 !procedure(iseq_D0_D0_RK1) :: iseq
10258 procedure(logical(LK)) :: iseq
10259 end subroutine
10260#endif
10261
10262 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10263
10264 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10265 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10266 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10267
10268 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10269
10270#if SK5_ENABLED
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
10274#endif
10275 use pm_kind, only: SKG => SK5
10276 character(*,SKG) , intent(inout) , allocatable :: array(:)
10277 character(*,SKG) , intent(in) , contiguous :: pattern(:)
10278 character(*,SKG) , intent(in) :: replacement
10279 !procedure(iseq_D1_D1_SK5) :: iseq
10280 procedure(logical(LK)) :: iseq
10281 end subroutine
10282#endif
10283
10284#if SK4_ENABLED
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
10288#endif
10289 use pm_kind, only: SKG => SK4
10290 character(*,SKG) , intent(inout) , allocatable :: array(:)
10291 character(*,SKG) , intent(in) , contiguous :: pattern(:)
10292 character(*,SKG) , intent(in) :: replacement
10293 !procedure(iseq_D1_D1_SK4) :: iseq
10294 procedure(logical(LK)) :: iseq
10295 end subroutine
10296#endif
10297
10298#if SK3_ENABLED
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
10302#endif
10303 use pm_kind, only: SKG => SK3
10304 character(*,SKG) , intent(inout) , allocatable :: array(:)
10305 character(*,SKG) , intent(in) , contiguous :: pattern(:)
10306 character(*,SKG) , intent(in) :: replacement
10307 !procedure(iseq_D1_D1_SK3) :: iseq
10308 procedure(logical(LK)) :: iseq
10309 end subroutine
10310#endif
10311
10312#if SK2_ENABLED
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
10316#endif
10317 use pm_kind, only: SKG => SK2
10318 character(*,SKG) , intent(inout) , allocatable :: array(:)
10319 character(*,SKG) , intent(in) , contiguous :: pattern(:)
10320 character(*,SKG) , intent(in) :: replacement
10321 !procedure(iseq_D1_D1_SK2) :: iseq
10322 procedure(logical(LK)) :: iseq
10323 end subroutine
10324
10325#endif
10326
10327#if SK1_ENABLED
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
10331#endif
10332 use pm_kind, only: SKG => SK1
10333 character(*,SKG) , intent(inout) , allocatable :: array(:)
10334 character(*,SKG) , intent(in) , contiguous :: pattern(:)
10335 character(*,SKG) , intent(in) :: replacement
10336 !procedure(iseq_D1_D1_SK1) :: iseq
10337 procedure(logical(LK)) :: iseq
10338 end subroutine
10339#endif
10340
10341 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10342
10343#if IK5_ENABLED
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
10347#endif
10348 use pm_kind, only: IKG => IK5
10349 integer(IKG) , intent(inout) , allocatable :: array(:)
10350 integer(IKG) , intent(in) , contiguous :: pattern(:)
10351 integer(IKG) , intent(in) :: replacement
10352 !procedure(iseq_D1_D1_IK5) :: iseq
10353 procedure(logical(LK)) :: iseq
10354 end subroutine
10355#endif
10356
10357#if IK4_ENABLED
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
10361#endif
10362 use pm_kind, only: IKG => IK4
10363 integer(IKG) , intent(inout) , allocatable :: array(:)
10364 integer(IKG) , intent(in) , contiguous :: pattern(:)
10365 integer(IKG) , intent(in) :: replacement
10366 !procedure(iseq_D1_D1_IK4) :: iseq
10367 procedure(logical(LK)) :: iseq
10368 end subroutine
10369#endif
10370
10371#if IK3_ENABLED
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
10375#endif
10376 use pm_kind, only: IKG => IK3
10377 integer(IKG) , intent(inout) , allocatable :: array(:)
10378 integer(IKG) , intent(in) , contiguous :: pattern(:)
10379 integer(IKG) , intent(in) :: replacement
10380 !procedure(iseq_D1_D1_IK3) :: iseq
10381 procedure(logical(LK)) :: iseq
10382 end subroutine
10383#endif
10384
10385#if IK2_ENABLED
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
10389#endif
10390 use pm_kind, only: IKG => IK2
10391 integer(IKG) , intent(inout) , allocatable :: array(:)
10392 integer(IKG) , intent(in) , contiguous :: pattern(:)
10393 integer(IKG) , intent(in) :: replacement
10394 !procedure(iseq_D1_D1_IK2) :: iseq
10395 procedure(logical(LK)) :: iseq
10396 end subroutine
10397
10398#endif
10399
10400#if IK1_ENABLED
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
10404#endif
10405 use pm_kind, only: IKG => IK1
10406 integer(IKG) , intent(inout) , allocatable :: array(:)
10407 integer(IKG) , intent(in) , contiguous :: pattern(:)
10408 integer(IKG) , intent(in) :: replacement
10409 !procedure(iseq_D1_D1_IK1) :: iseq
10410 procedure(logical(LK)) :: iseq
10411 end subroutine
10412#endif
10413
10414 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10415
10416#if LK5_ENABLED
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
10420#endif
10421 use pm_kind, only: LKG => LK5
10422 logical(LKG) , intent(inout) , allocatable :: array(:)
10423 logical(LKG) , intent(in) , contiguous :: pattern(:)
10424 logical(LKG) , intent(in) :: replacement
10425 !procedure(iseq_D1_D1_LK5) :: iseq
10426 procedure(logical(LK)) :: iseq
10427 end subroutine
10428#endif
10429
10430#if LK4_ENABLED
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
10434#endif
10435 use pm_kind, only: LKG => LK4
10436 logical(LKG) , intent(inout) , allocatable :: array(:)
10437 logical(LKG) , intent(in) , contiguous :: pattern(:)
10438 logical(LKG) , intent(in) :: replacement
10439 !procedure(iseq_D1_D1_LK4) :: iseq
10440 procedure(logical(LK)) :: iseq
10441 end subroutine
10442#endif
10443
10444#if LK3_ENABLED
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
10448#endif
10449 use pm_kind, only: LKG => LK3
10450 logical(LKG) , intent(inout) , allocatable :: array(:)
10451 logical(LKG) , intent(in) , contiguous :: pattern(:)
10452 logical(LKG) , intent(in) :: replacement
10453 !procedure(iseq_D1_D1_LK3) :: iseq
10454 procedure(logical(LK)) :: iseq
10455 end subroutine
10456#endif
10457
10458#if LK2_ENABLED
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
10462#endif
10463 use pm_kind, only: LKG => LK2
10464 logical(LKG) , intent(inout) , allocatable :: array(:)
10465 logical(LKG) , intent(in) , contiguous :: pattern(:)
10466 logical(LKG) , intent(in) :: replacement
10467 !procedure(iseq_D1_D1_LK2) :: iseq
10468 procedure(logical(LK)) :: iseq
10469 end subroutine
10470
10471#endif
10472
10473#if LK1_ENABLED
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
10477#endif
10478 use pm_kind, only: LKG => LK1
10479 logical(LKG) , intent(inout) , allocatable :: array(:)
10480 logical(LKG) , intent(in) , contiguous :: pattern(:)
10481 logical(LKG) , intent(in) :: replacement
10482 !procedure(iseq_D1_D1_LK1) :: iseq
10483 procedure(logical(LK)) :: iseq
10484 end subroutine
10485#endif
10486
10487 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10488
10489#if CK5_ENABLED
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
10493#endif
10494 use pm_kind, only: CKG => CK5
10495 complex(CKG) , intent(inout) , allocatable :: array(:)
10496 complex(CKG) , intent(in) , contiguous :: pattern(:)
10497 complex(CKG) , intent(in) :: replacement
10498 !procedure(iseq_D1_D1_CK5) :: iseq
10499 procedure(logical(LK)) :: iseq
10500 end subroutine
10501#endif
10502
10503#if CK4_ENABLED
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
10507#endif
10508 use pm_kind, only: CKG => CK4
10509 complex(CKG) , intent(inout) , allocatable :: array(:)
10510 complex(CKG) , intent(in) , contiguous :: pattern(:)
10511 complex(CKG) , intent(in) :: replacement
10512 !procedure(iseq_D1_D1_CK4) :: iseq
10513 procedure(logical(LK)) :: iseq
10514 end subroutine
10515#endif
10516
10517#if CK3_ENABLED
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
10521#endif
10522 use pm_kind, only: CKG => CK3
10523 complex(CKG) , intent(inout) , allocatable :: array(:)
10524 complex(CKG) , intent(in) , contiguous :: pattern(:)
10525 complex(CKG) , intent(in) :: replacement
10526 !procedure(iseq_D1_D1_CK3) :: iseq
10527 procedure(logical(LK)) :: iseq
10528 end subroutine
10529#endif
10530
10531#if CK2_ENABLED
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
10535#endif
10536 use pm_kind, only: CKG => CK2
10537 complex(CKG) , intent(inout) , allocatable :: array(:)
10538 complex(CKG) , intent(in) , contiguous :: pattern(:)
10539 complex(CKG) , intent(in) :: replacement
10540 !procedure(iseq_D1_D1_CK2) :: iseq
10541 procedure(logical(LK)) :: iseq
10542 end subroutine
10543
10544#endif
10545
10546#if CK1_ENABLED
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
10550#endif
10551 use pm_kind, only: CKG => CK1
10552 complex(CKG) , intent(inout) , allocatable :: array(:)
10553 complex(CKG) , intent(in) , contiguous :: pattern(:)
10554 complex(CKG) , intent(in) :: replacement
10555 !procedure(iseq_D1_D1_CK1) :: iseq
10556 procedure(logical(LK)) :: iseq
10557 end subroutine
10558#endif
10559
10560 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10561
10562#if RK5_ENABLED
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
10566#endif
10567 use pm_kind, only: RKG => RK5
10568 real(RKG) , intent(inout) , allocatable :: array(:)
10569 real(RKG) , intent(in) , contiguous :: pattern(:)
10570 real(RKG) , intent(in) :: replacement
10571 !procedure(iseq_D1_D1_RK5) :: iseq
10572 procedure(logical(LK)) :: iseq
10573 end subroutine
10574#endif
10575
10576#if RK4_ENABLED
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
10580#endif
10581 use pm_kind, only: RKG => RK4
10582 real(RKG) , intent(inout) , allocatable :: array(:)
10583 real(RKG) , intent(in) , contiguous :: pattern(:)
10584 real(RKG) , intent(in) :: replacement
10585 !procedure(iseq_D1_D1_RK4) :: iseq
10586 procedure(logical(LK)) :: iseq
10587 end subroutine
10588#endif
10589
10590#if RK3_ENABLED
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
10594#endif
10595 use pm_kind, only: RKG => RK3
10596 real(RKG) , intent(inout) , allocatable :: array(:)
10597 real(RKG) , intent(in) , contiguous :: pattern(:)
10598 real(RKG) , intent(in) :: replacement
10599 !procedure(iseq_D1_D1_RK3) :: iseq
10600 procedure(logical(LK)) :: iseq
10601 end subroutine
10602#endif
10603
10604#if RK2_ENABLED
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
10608#endif
10609 use pm_kind, only: RKG => RK2
10610 real(RKG) , intent(inout) , allocatable :: array(:)
10611 real(RKG) , intent(in) , contiguous :: pattern(:)
10612 real(RKG) , intent(in) :: replacement
10613 !procedure(iseq_D1_D1_RK2) :: iseq
10614 procedure(logical(LK)) :: iseq
10615 end subroutine
10616
10617#endif
10618
10619#if RK1_ENABLED
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
10623#endif
10624 use pm_kind, only: RKG => RK1
10625 real(RKG) , intent(inout) , allocatable :: array(:)
10626 real(RKG) , intent(in) , contiguous :: pattern(:)
10627 real(RKG) , intent(in) :: replacement
10628 !procedure(iseq_D1_D1_RK1) :: iseq
10629 procedure(logical(LK)) :: iseq
10630 end subroutine
10631#endif
10632
10633 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10634
10635 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10636 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10637 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10638
10639 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10640
10641#if SK5_ENABLED
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
10645#endif
10646 use pm_kind, only: SKG => SK5
10647 character(*,SKG) , intent(inout) , allocatable :: array(:)
10648 character(*,SKG) , intent(in) , contiguous :: pattern(:)
10649 character(*,SKG) , intent(in) , contiguous :: replacement(:)
10650 !procedure(iseq_D1_D1_SK5) :: iseq
10651 procedure(logical(LK)) :: iseq
10652 end subroutine
10653#endif
10654
10655#if SK4_ENABLED
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
10659#endif
10660 use pm_kind, only: SKG => SK4
10661 character(*,SKG) , intent(inout) , allocatable :: array(:)
10662 character(*,SKG) , intent(in) , contiguous :: pattern(:)
10663 character(*,SKG) , intent(in) , contiguous :: replacement(:)
10664 !procedure(iseq_D1_D1_SK4) :: iseq
10665 procedure(logical(LK)) :: iseq
10666 end subroutine
10667#endif
10668
10669#if SK3_ENABLED
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
10673#endif
10674 use pm_kind, only: SKG => SK3
10675 character(*,SKG) , intent(inout) , allocatable :: array(:)
10676 character(*,SKG) , intent(in) , contiguous :: pattern(:)
10677 character(*,SKG) , intent(in) , contiguous :: replacement(:)
10678 !procedure(iseq_D1_D1_SK3) :: iseq
10679 procedure(logical(LK)) :: iseq
10680 end subroutine
10681#endif
10682
10683#if SK2_ENABLED
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
10687#endif
10688 use pm_kind, only: SKG => SK2
10689 character(*,SKG) , intent(inout) , allocatable :: array(:)
10690 character(*,SKG) , intent(in) , contiguous :: pattern(:)
10691 character(*,SKG) , intent(in) , contiguous :: replacement(:)
10692 !procedure(iseq_D1_D1_SK2) :: iseq
10693 procedure(logical(LK)) :: iseq
10694 end subroutine
10695
10696#endif
10697
10698#if SK1_ENABLED
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
10702#endif
10703 use pm_kind, only: SKG => SK1
10704 character(*,SKG) , intent(inout) , allocatable :: array(:)
10705 character(*,SKG) , intent(in) , contiguous :: pattern(:)
10706 character(*,SKG) , intent(in) , contiguous :: replacement(:)
10707 !procedure(iseq_D1_D1_SK1) :: iseq
10708 procedure(logical(LK)) :: iseq
10709 end subroutine
10710#endif
10711
10712 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10713
10714#if IK5_ENABLED
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
10718#endif
10719 use pm_kind, only: IKG => IK5
10720 integer(IKG) , intent(inout) , allocatable :: array(:)
10721 integer(IKG) , intent(in) , contiguous :: pattern(:)
10722 integer(IKG) , intent(in) , contiguous :: replacement(:)
10723 !procedure(iseq_D1_D1_IK5) :: iseq
10724 procedure(logical(LK)) :: iseq
10725 end subroutine
10726#endif
10727
10728#if IK4_ENABLED
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
10732#endif
10733 use pm_kind, only: IKG => IK4
10734 integer(IKG) , intent(inout) , allocatable :: array(:)
10735 integer(IKG) , intent(in) , contiguous :: pattern(:)
10736 integer(IKG) , intent(in) , contiguous :: replacement(:)
10737 !procedure(iseq_D1_D1_IK4) :: iseq
10738 procedure(logical(LK)) :: iseq
10739 end subroutine
10740#endif
10741
10742#if IK3_ENABLED
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
10746#endif
10747 use pm_kind, only: IKG => IK3
10748 integer(IKG) , intent(inout) , allocatable :: array(:)
10749 integer(IKG) , intent(in) , contiguous :: pattern(:)
10750 integer(IKG) , intent(in) , contiguous :: replacement(:)
10751 !procedure(iseq_D1_D1_IK3) :: iseq
10752 procedure(logical(LK)) :: iseq
10753 end subroutine
10754#endif
10755
10756#if IK2_ENABLED
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
10760#endif
10761 use pm_kind, only: IKG => IK2
10762 integer(IKG) , intent(inout) , allocatable :: array(:)
10763 integer(IKG) , intent(in) , contiguous :: pattern(:)
10764 integer(IKG) , intent(in) , contiguous :: replacement(:)
10765 !procedure(iseq_D1_D1_IK2) :: iseq
10766 procedure(logical(LK)) :: iseq
10767 end subroutine
10768
10769#endif
10770
10771#if IK1_ENABLED
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
10775#endif
10776 use pm_kind, only: IKG => IK1
10777 integer(IKG) , intent(inout) , allocatable :: array(:)
10778 integer(IKG) , intent(in) , contiguous :: pattern(:)
10779 integer(IKG) , intent(in) , contiguous :: replacement(:)
10780 !procedure(iseq_D1_D1_IK1) :: iseq
10781 procedure(logical(LK)) :: iseq
10782 end subroutine
10783#endif
10784
10785 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10786
10787#if LK5_ENABLED
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
10791#endif
10792 use pm_kind, only: LKG => LK5
10793 logical(LKG) , intent(inout) , allocatable :: array(:)
10794 logical(LKG) , intent(in) , contiguous :: pattern(:)
10795 logical(LKG) , intent(in) , contiguous :: replacement(:)
10796 !procedure(iseq_D1_D1_LK5) :: iseq
10797 procedure(logical(LK)) :: iseq
10798 end subroutine
10799#endif
10800
10801#if LK4_ENABLED
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
10805#endif
10806 use pm_kind, only: LKG => LK4
10807 logical(LKG) , intent(inout) , allocatable :: array(:)
10808 logical(LKG) , intent(in) , contiguous :: pattern(:)
10809 logical(LKG) , intent(in) , contiguous :: replacement(:)
10810 !procedure(iseq_D1_D1_LK4) :: iseq
10811 procedure(logical(LK)) :: iseq
10812 end subroutine
10813#endif
10814
10815#if LK3_ENABLED
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
10819#endif
10820 use pm_kind, only: LKG => LK3
10821 logical(LKG) , intent(inout) , allocatable :: array(:)
10822 logical(LKG) , intent(in) , contiguous :: pattern(:)
10823 logical(LKG) , intent(in) , contiguous :: replacement(:)
10824 !procedure(iseq_D1_D1_LK3) :: iseq
10825 procedure(logical(LK)) :: iseq
10826 end subroutine
10827#endif
10828
10829#if LK2_ENABLED
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
10833#endif
10834 use pm_kind, only: LKG => LK2
10835 logical(LKG) , intent(inout) , allocatable :: array(:)
10836 logical(LKG) , intent(in) , contiguous :: pattern(:)
10837 logical(LKG) , intent(in) , contiguous :: replacement(:)
10838 !procedure(iseq_D1_D1_LK2) :: iseq
10839 procedure(logical(LK)) :: iseq
10840 end subroutine
10841
10842#endif
10843
10844#if LK1_ENABLED
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
10848#endif
10849 use pm_kind, only: LKG => LK1
10850 logical(LKG) , intent(inout) , allocatable :: array(:)
10851 logical(LKG) , intent(in) , contiguous :: pattern(:)
10852 logical(LKG) , intent(in) , contiguous :: replacement(:)
10853 !procedure(iseq_D1_D1_LK1) :: iseq
10854 procedure(logical(LK)) :: iseq
10855 end subroutine
10856#endif
10857
10858 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10859
10860#if CK5_ENABLED
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
10864#endif
10865 use pm_kind, only: CKG => CK5
10866 complex(CKG) , intent(inout) , allocatable :: array(:)
10867 complex(CKG) , intent(in) , contiguous :: pattern(:)
10868 complex(CKG) , intent(in) , contiguous :: replacement(:)
10869 !procedure(iseq_D1_D1_CK5) :: iseq
10870 procedure(logical(LK)) :: iseq
10871 end subroutine
10872#endif
10873
10874#if CK4_ENABLED
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
10878#endif
10879 use pm_kind, only: CKG => CK4
10880 complex(CKG) , intent(inout) , allocatable :: array(:)
10881 complex(CKG) , intent(in) , contiguous :: pattern(:)
10882 complex(CKG) , intent(in) , contiguous :: replacement(:)
10883 !procedure(iseq_D1_D1_CK4) :: iseq
10884 procedure(logical(LK)) :: iseq
10885 end subroutine
10886#endif
10887
10888#if CK3_ENABLED
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
10892#endif
10893 use pm_kind, only: CKG => CK3
10894 complex(CKG) , intent(inout) , allocatable :: array(:)
10895 complex(CKG) , intent(in) , contiguous :: pattern(:)
10896 complex(CKG) , intent(in) , contiguous :: replacement(:)
10897 !procedure(iseq_D1_D1_CK3) :: iseq
10898 procedure(logical(LK)) :: iseq
10899 end subroutine
10900#endif
10901
10902#if CK2_ENABLED
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
10906#endif
10907 use pm_kind, only: CKG => CK2
10908 complex(CKG) , intent(inout) , allocatable :: array(:)
10909 complex(CKG) , intent(in) , contiguous :: pattern(:)
10910 complex(CKG) , intent(in) , contiguous :: replacement(:)
10911 !procedure(iseq_D1_D1_CK2) :: iseq
10912 procedure(logical(LK)) :: iseq
10913 end subroutine
10914
10915#endif
10916
10917#if CK1_ENABLED
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
10921#endif
10922 use pm_kind, only: CKG => CK1
10923 complex(CKG) , intent(inout) , allocatable :: array(:)
10924 complex(CKG) , intent(in) , contiguous :: pattern(:)
10925 complex(CKG) , intent(in) , contiguous :: replacement(:)
10926 !procedure(iseq_D1_D1_CK1) :: iseq
10927 procedure(logical(LK)) :: iseq
10928 end subroutine
10929#endif
10930
10931 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10932
10933#if RK5_ENABLED
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
10937#endif
10938 use pm_kind, only: RKG => RK5
10939 real(RKG) , intent(inout) , allocatable :: array(:)
10940 real(RKG) , intent(in) , contiguous :: pattern(:)
10941 real(RKG) , intent(in) , contiguous :: replacement(:)
10942 !procedure(iseq_D1_D1_RK5) :: iseq
10943 procedure(logical(LK)) :: iseq
10944 end subroutine
10945#endif
10946
10947#if RK4_ENABLED
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
10951#endif
10952 use pm_kind, only: RKG => RK4
10953 real(RKG) , intent(inout) , allocatable :: array(:)
10954 real(RKG) , intent(in) , contiguous :: pattern(:)
10955 real(RKG) , intent(in) , contiguous :: replacement(:)
10956 !procedure(iseq_D1_D1_RK4) :: iseq
10957 procedure(logical(LK)) :: iseq
10958 end subroutine
10959#endif
10960
10961#if RK3_ENABLED
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
10965#endif
10966 use pm_kind, only: RKG => RK3
10967 real(RKG) , intent(inout) , allocatable :: array(:)
10968 real(RKG) , intent(in) , contiguous :: pattern(:)
10969 real(RKG) , intent(in) , contiguous :: replacement(:)
10970 !procedure(iseq_D1_D1_RK3) :: iseq
10971 procedure(logical(LK)) :: iseq
10972 end subroutine
10973#endif
10974
10975#if RK2_ENABLED
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
10979#endif
10980 use pm_kind, only: RKG => RK2
10981 real(RKG) , intent(inout) , allocatable :: array(:)
10982 real(RKG) , intent(in) , contiguous :: pattern(:)
10983 real(RKG) , intent(in) , contiguous :: replacement(:)
10984 !procedure(iseq_D1_D1_RK2) :: iseq
10985 procedure(logical(LK)) :: iseq
10986 end subroutine
10987
10988#endif
10989
10990#if RK1_ENABLED
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
10994#endif
10995 use pm_kind, only: RKG => RK1
10996 real(RKG) , intent(inout) , allocatable :: array(:)
10997 real(RKG) , intent(in) , contiguous :: pattern(:)
10998 real(RKG) , intent(in) , contiguous :: replacement(:)
10999 !procedure(iseq_D1_D1_RK1) :: iseq
11000 procedure(logical(LK)) :: iseq
11001 end subroutine
11002#endif
11003
11004 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11005
11006 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11007 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11008 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11009 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11010 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11011 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11012 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11013 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11014 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11015
11016 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11017
11018#if SK5_ENABLED
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
11022#endif
11023 use pm_kind, only: SKG => 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
11030 end subroutine
11031#endif
11032
11033#if SK4_ENABLED
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
11037#endif
11038 use pm_kind, only: SKG => 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
11045 end subroutine
11046#endif
11047
11048#if SK3_ENABLED
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
11052#endif
11053 use pm_kind, only: SKG => 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
11060 end subroutine
11061#endif
11062
11063#if SK2_ENABLED
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
11067#endif
11068 use pm_kind, only: SKG => 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
11075 end subroutine
11076
11077#endif
11078
11079#if SK1_ENABLED
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
11083#endif
11084 use pm_kind, only: SKG => 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
11091 end subroutine
11092#endif
11093
11094 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11095
11096 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11097 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11098 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11099
11100 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11101
11102#if SK5_ENABLED
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
11106#endif
11107 use pm_kind, only: SKG => 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
11114 end subroutine
11115#endif
11116
11117#if SK4_ENABLED
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
11121#endif
11122 use pm_kind, only: SKG => 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
11129 end subroutine
11130#endif
11131
11132#if SK3_ENABLED
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
11136#endif
11137 use pm_kind, only: SKG => 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
11144 end subroutine
11145#endif
11146
11147#if SK2_ENABLED
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
11151#endif
11152 use pm_kind, only: SKG => 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
11159 end subroutine
11160
11161#endif
11162
11163#if SK1_ENABLED
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
11167#endif
11168 use pm_kind, only: SKG => 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
11175 end subroutine
11176#endif
11177
11178 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11179
11180#if IK5_ENABLED
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
11184#endif
11185 use pm_kind, only: IKG => 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
11192 end subroutine
11193#endif
11194
11195#if IK4_ENABLED
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
11199#endif
11200 use pm_kind, only: IKG => 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
11207 end subroutine
11208#endif
11209
11210#if IK3_ENABLED
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
11214#endif
11215 use pm_kind, only: IKG => 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
11222 end subroutine
11223#endif
11224
11225#if IK2_ENABLED
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
11229#endif
11230 use pm_kind, only: IKG => 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
11237 end subroutine
11238
11239#endif
11240
11241#if IK1_ENABLED
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
11245#endif
11246 use pm_kind, only: IKG => 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
11253 end subroutine
11254#endif
11255
11256 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11257
11258#if LK5_ENABLED
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
11262#endif
11263 use pm_kind, only: LKG => 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
11270 end subroutine
11271#endif
11272
11273#if LK4_ENABLED
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
11277#endif
11278 use pm_kind, only: LKG => 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
11285 end subroutine
11286#endif
11287
11288#if LK3_ENABLED
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
11292#endif
11293 use pm_kind, only: LKG => 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
11300 end subroutine
11301#endif
11302
11303#if LK2_ENABLED
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
11307#endif
11308 use pm_kind, only: LKG => 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
11315 end subroutine
11316
11317#endif
11318
11319#if LK1_ENABLED
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
11323#endif
11324 use pm_kind, only: LKG => 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
11331 end subroutine
11332#endif
11333
11334 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11335
11336#if CK5_ENABLED
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
11340#endif
11341 use pm_kind, only: CKG => 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
11348 end subroutine
11349#endif
11350
11351#if CK4_ENABLED
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
11355#endif
11356 use pm_kind, only: CKG => 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
11363 end subroutine
11364#endif
11365
11366#if CK3_ENABLED
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
11370#endif
11371 use pm_kind, only: CKG => 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
11378 end subroutine
11379#endif
11380
11381#if CK2_ENABLED
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
11385#endif
11386 use pm_kind, only: CKG => 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
11393 end subroutine
11394
11395#endif
11396
11397#if CK1_ENABLED
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
11401#endif
11402 use pm_kind, only: CKG => 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
11409 end subroutine
11410#endif
11411
11412 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11413
11414#if RK5_ENABLED
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
11418#endif
11419 use pm_kind, only: RKG => 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
11426 end subroutine
11427#endif
11428
11429#if RK4_ENABLED
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
11433#endif
11434 use pm_kind, only: RKG => 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
11441 end subroutine
11442#endif
11443
11444#if RK3_ENABLED
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
11448#endif
11449 use pm_kind, only: RKG => 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
11456 end subroutine
11457#endif
11458
11459#if RK2_ENABLED
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
11463#endif
11464 use pm_kind, only: RKG => 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
11471 end subroutine
11472
11473#endif
11474
11475#if RK1_ENABLED
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
11479#endif
11480 use pm_kind, only: RKG => 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
11487 end subroutine
11488#endif
11489
11490 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11491
11492 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11493 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11494 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11495
11496 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11497
11498#if SK5_ENABLED
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
11502#endif
11503 use pm_kind, only: SKG => 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
11510 end subroutine
11511#endif
11512
11513#if SK4_ENABLED
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
11517#endif
11518 use pm_kind, only: SKG => 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
11525 end subroutine
11526#endif
11527
11528#if SK3_ENABLED
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
11532#endif
11533 use pm_kind, only: SKG => 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
11540 end subroutine
11541#endif
11542
11543#if SK2_ENABLED
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
11547#endif
11548 use pm_kind, only: SKG => 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
11555 end subroutine
11556
11557#endif
11558
11559#if SK1_ENABLED
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
11563#endif
11564 use pm_kind, only: SKG => 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
11571 end subroutine
11572#endif
11573
11574 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11575
11576#if IK5_ENABLED
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
11580#endif
11581 use pm_kind, only: IKG => 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
11588 end subroutine
11589#endif
11590
11591#if IK4_ENABLED
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
11595#endif
11596 use pm_kind, only: IKG => 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
11603 end subroutine
11604#endif
11605
11606#if IK3_ENABLED
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
11610#endif
11611 use pm_kind, only: IKG => 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
11618 end subroutine
11619#endif
11620
11621#if IK2_ENABLED
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
11625#endif
11626 use pm_kind, only: IKG => 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
11633 end subroutine
11634
11635#endif
11636
11637#if IK1_ENABLED
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
11641#endif
11642 use pm_kind, only: IKG => 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
11649 end subroutine
11650#endif
11651
11652 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11653
11654#if LK5_ENABLED
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
11658#endif
11659 use pm_kind, only: LKG => 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
11666 end subroutine
11667#endif
11668
11669#if LK4_ENABLED
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
11673#endif
11674 use pm_kind, only: LKG => 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
11681 end subroutine
11682#endif
11683
11684#if LK3_ENABLED
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
11688#endif
11689 use pm_kind, only: LKG => 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
11696 end subroutine
11697#endif
11698
11699#if LK2_ENABLED
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
11703#endif
11704 use pm_kind, only: LKG => 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
11711 end subroutine
11712
11713#endif
11714
11715#if LK1_ENABLED
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
11719#endif
11720 use pm_kind, only: LKG => 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
11727 end subroutine
11728#endif
11729
11730 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11731
11732#if CK5_ENABLED
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
11736#endif
11737 use pm_kind, only: CKG => 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
11744 end subroutine
11745#endif
11746
11747#if CK4_ENABLED
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
11751#endif
11752 use pm_kind, only: CKG => 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
11759 end subroutine
11760#endif
11761
11762#if CK3_ENABLED
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
11766#endif
11767 use pm_kind, only: CKG => 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
11774 end subroutine
11775#endif
11776
11777#if CK2_ENABLED
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
11781#endif
11782 use pm_kind, only: CKG => 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
11789 end subroutine
11790
11791#endif
11792
11793#if CK1_ENABLED
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
11797#endif
11798 use pm_kind, only: CKG => 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
11805 end subroutine
11806#endif
11807
11808 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11809
11810#if RK5_ENABLED
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
11814#endif
11815 use pm_kind, only: RKG => 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
11822 end subroutine
11823#endif
11824
11825#if RK4_ENABLED
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
11829#endif
11830 use pm_kind, only: RKG => 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
11837 end subroutine
11838#endif
11839
11840#if RK3_ENABLED
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
11844#endif
11845 use pm_kind, only: RKG => 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
11852 end subroutine
11853#endif
11854
11855#if RK2_ENABLED
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
11859#endif
11860 use pm_kind, only: RKG => 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
11867 end subroutine
11868
11869#endif
11870
11871#if RK1_ENABLED
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
11875#endif
11876 use pm_kind, only: RKG => 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
11883 end subroutine
11884#endif
11885
11886 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11887
11888 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11889 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11890 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11891
11892 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11893
11894#if SK5_ENABLED
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
11898#endif
11899 use pm_kind, only: SKG => 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
11906 end subroutine
11907#endif
11908
11909#if SK4_ENABLED
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
11913#endif
11914 use pm_kind, only: SKG => 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
11921 end subroutine
11922#endif
11923
11924#if SK3_ENABLED
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
11928#endif
11929 use pm_kind, only: SKG => 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
11936 end subroutine
11937#endif
11938
11939#if SK2_ENABLED
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
11943#endif
11944 use pm_kind, only: SKG => 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
11951 end subroutine
11952
11953#endif
11954
11955#if SK1_ENABLED
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
11959#endif
11960 use pm_kind, only: SKG => 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
11967 end subroutine
11968#endif
11969
11970 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11971
11972#if IK5_ENABLED
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
11976#endif
11977 use pm_kind, only: IKG => 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
11984 end subroutine
11985#endif
11986
11987#if IK4_ENABLED
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
11991#endif
11992 use pm_kind, only: IKG => 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
11999 end subroutine
12000#endif
12001
12002#if IK3_ENABLED
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
12006#endif
12007 use pm_kind, only: IKG => 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
12014 end subroutine
12015#endif
12016
12017#if IK2_ENABLED
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
12021#endif
12022 use pm_kind, only: IKG => 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
12029 end subroutine
12030
12031#endif
12032
12033#if IK1_ENABLED
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
12037#endif
12038 use pm_kind, only: IKG => 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
12045 end subroutine
12046#endif
12047
12048 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12049
12050#if LK5_ENABLED
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
12054#endif
12055 use pm_kind, only: LKG => 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
12062 end subroutine
12063#endif
12064
12065#if LK4_ENABLED
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
12069#endif
12070 use pm_kind, only: LKG => 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
12077 end subroutine
12078#endif
12079
12080#if LK3_ENABLED
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
12084#endif
12085 use pm_kind, only: LKG => 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
12092 end subroutine
12093#endif
12094
12095#if LK2_ENABLED
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
12099#endif
12100 use pm_kind, only: LKG => 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
12107 end subroutine
12108
12109#endif
12110
12111#if LK1_ENABLED
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
12115#endif
12116 use pm_kind, only: LKG => 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
12123 end subroutine
12124#endif
12125
12126 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12127
12128#if CK5_ENABLED
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
12132#endif
12133 use pm_kind, only: CKG => 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
12140 end subroutine
12141#endif
12142
12143#if CK4_ENABLED
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
12147#endif
12148 use pm_kind, only: CKG => 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
12155 end subroutine
12156#endif
12157
12158#if CK3_ENABLED
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
12162#endif
12163 use pm_kind, only: CKG => 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
12170 end subroutine
12171#endif
12172
12173#if CK2_ENABLED
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
12177#endif
12178 use pm_kind, only: CKG => 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
12185 end subroutine
12186
12187#endif
12188
12189#if CK1_ENABLED
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
12193#endif
12194 use pm_kind, only: CKG => 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
12201 end subroutine
12202#endif
12203
12204 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12205
12206#if RK5_ENABLED
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
12210#endif
12211 use pm_kind, only: RKG => 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
12218 end subroutine
12219#endif
12220
12221#if RK4_ENABLED
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
12225#endif
12226 use pm_kind, only: RKG => 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
12233 end subroutine
12234#endif
12235
12236#if RK3_ENABLED
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
12240#endif
12241 use pm_kind, only: RKG => 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
12248 end subroutine
12249#endif
12250
12251#if RK2_ENABLED
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
12255#endif
12256 use pm_kind, only: RKG => 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
12263 end subroutine
12264
12265#endif
12266
12267#if RK1_ENABLED
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
12271#endif
12272 use pm_kind, only: RKG => 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
12279 end subroutine
12280#endif
12281
12282 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12283
12284 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12285 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12286 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12287
12288 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12289
12290#if SK5_ENABLED
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
12294#endif
12295 use pm_kind, only: SKG => 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
12302 end subroutine
12303#endif
12304
12305#if SK4_ENABLED
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
12309#endif
12310 use pm_kind, only: SKG => 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
12317 end subroutine
12318#endif
12319
12320#if SK3_ENABLED
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
12324#endif
12325 use pm_kind, only: SKG => 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
12332 end subroutine
12333#endif
12334
12335#if SK2_ENABLED
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
12339#endif
12340 use pm_kind, only: SKG => 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
12347 end subroutine
12348
12349#endif
12350
12351#if SK1_ENABLED
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
12355#endif
12356 use pm_kind, only: SKG => 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
12363 end subroutine
12364#endif
12365
12366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12367
12368#if IK5_ENABLED
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
12372#endif
12373 use pm_kind, only: IKG => 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
12380 end subroutine
12381#endif
12382
12383#if IK4_ENABLED
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
12387#endif
12388 use pm_kind, only: IKG => 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
12395 end subroutine
12396#endif
12397
12398#if IK3_ENABLED
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
12402#endif
12403 use pm_kind, only: IKG => 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
12410 end subroutine
12411#endif
12412
12413#if IK2_ENABLED
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
12417#endif
12418 use pm_kind, only: IKG => 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
12425 end subroutine
12426
12427#endif
12428
12429#if IK1_ENABLED
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
12433#endif
12434 use pm_kind, only: IKG => 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
12441 end subroutine
12442#endif
12443
12444 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12445
12446#if LK5_ENABLED
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
12450#endif
12451 use pm_kind, only: LKG => 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
12458 end subroutine
12459#endif
12460
12461#if LK4_ENABLED
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
12465#endif
12466 use pm_kind, only: LKG => 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
12473 end subroutine
12474#endif
12475
12476#if LK3_ENABLED
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
12480#endif
12481 use pm_kind, only: LKG => 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
12488 end subroutine
12489#endif
12490
12491#if LK2_ENABLED
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
12495#endif
12496 use pm_kind, only: LKG => 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
12503 end subroutine
12504
12505#endif
12506
12507#if LK1_ENABLED
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
12511#endif
12512 use pm_kind, only: LKG => 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
12519 end subroutine
12520#endif
12521
12522 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12523
12524#if CK5_ENABLED
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
12528#endif
12529 use pm_kind, only: CKG => 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
12536 end subroutine
12537#endif
12538
12539#if CK4_ENABLED
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
12543#endif
12544 use pm_kind, only: CKG => 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
12551 end subroutine
12552#endif
12553
12554#if CK3_ENABLED
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
12558#endif
12559 use pm_kind, only: CKG => 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
12566 end subroutine
12567#endif
12568
12569#if CK2_ENABLED
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
12573#endif
12574 use pm_kind, only: CKG => 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
12581 end subroutine
12582
12583#endif
12584
12585#if CK1_ENABLED
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
12589#endif
12590 use pm_kind, only: CKG => 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
12597 end subroutine
12598#endif
12599
12600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12601
12602#if RK5_ENABLED
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
12606#endif
12607 use pm_kind, only: RKG => 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
12614 end subroutine
12615#endif
12616
12617#if RK4_ENABLED
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
12621#endif
12622 use pm_kind, only: RKG => 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
12629 end subroutine
12630#endif
12631
12632#if RK3_ENABLED
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
12636#endif
12637 use pm_kind, only: RKG => 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
12644 end subroutine
12645#endif
12646
12647#if RK2_ENABLED
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
12651#endif
12652 use pm_kind, only: RKG => 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
12659 end subroutine
12660
12661#endif
12662
12663#if RK1_ENABLED
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
12667#endif
12668 use pm_kind, only: RKG => 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
12675 end subroutine
12676#endif
12677
12678 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12679
12680 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12681 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12682 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12683 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12684 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12685 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12686 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12687 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12688 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12689
12690 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12691
12692#if SK5_ENABLED
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
12696#endif
12697 use pm_kind, only: SKG => SK5
12698 character(:,SKG) , intent(inout) , allocatable :: array
12699 character(*,SKG) , intent(in) :: pattern
12700 character(*,SKG) , intent(in) :: replacement
12701 !procedure(iseq_D0_D0_SK5) :: iseq
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
12706 end subroutine
12707#endif
12708
12709#if SK4_ENABLED
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
12713#endif
12714 use pm_kind, only: SKG => SK4
12715 character(:,SKG) , intent(inout) , allocatable :: array
12716 character(*,SKG) , intent(in) :: pattern
12717 character(*,SKG) , intent(in) :: replacement
12718 !procedure(iseq_D0_D0_SK4) :: iseq
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
12723 end subroutine
12724#endif
12725
12726#if SK3_ENABLED
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
12730#endif
12731 use pm_kind, only: SKG => SK3
12732 character(:,SKG) , intent(inout) , allocatable :: array
12733 character(*,SKG) , intent(in) :: pattern
12734 character(*,SKG) , intent(in) :: replacement
12735 !procedure(iseq_D0_D0_SK3) :: iseq
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
12740 end subroutine
12741#endif
12742
12743#if SK2_ENABLED
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
12747#endif
12748 use pm_kind, only: SKG => SK2
12749 character(:,SKG) , intent(inout) , allocatable :: array
12750 character(*,SKG) , intent(in) :: pattern
12751 character(*,SKG) , intent(in) :: replacement
12752 !procedure(iseq_D0_D0_SK2) :: iseq
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
12757 end subroutine
12758
12759#endif
12760
12761#if SK1_ENABLED
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
12765#endif
12766 use pm_kind, only: SKG => SK1
12767 character(:,SKG) , intent(inout) , allocatable :: array
12768 character(*,SKG) , intent(in) :: pattern
12769 character(*,SKG) , intent(in) :: replacement
12770 !procedure(iseq_D0_D0_SK1) :: iseq
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
12775 end subroutine
12776#endif
12777
12778 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12779
12780 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12781 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12782 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12783
12784 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12785
12786#if SK5_ENABLED
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
12790#endif
12791 use pm_kind, only: SKG => SK5
12792 character(*,SKG) , intent(inout) , allocatable :: array(:)
12793 character(*,SKG) , intent(in) :: pattern
12794 character(*,SKG) , intent(in) :: replacement
12795 !procedure(iseq_D0_D0_SK5) :: iseq
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
12800 end subroutine
12801#endif
12802
12803#if SK4_ENABLED
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
12807#endif
12808 use pm_kind, only: SKG => SK4
12809 character(*,SKG) , intent(inout) , allocatable :: array(:)
12810 character(*,SKG) , intent(in) :: pattern
12811 character(*,SKG) , intent(in) :: replacement
12812 !procedure(iseq_D0_D0_SK4) :: iseq
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
12817 end subroutine
12818#endif
12819
12820#if SK3_ENABLED
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
12824#endif
12825 use pm_kind, only: SKG => SK3
12826 character(*,SKG) , intent(inout) , allocatable :: array(:)
12827 character(*,SKG) , intent(in) :: pattern
12828 character(*,SKG) , intent(in) :: replacement
12829 !procedure(iseq_D0_D0_SK3) :: iseq
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
12834 end subroutine
12835#endif
12836
12837#if SK2_ENABLED
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
12841#endif
12842 use pm_kind, only: SKG => SK2
12843 character(*,SKG) , intent(inout) , allocatable :: array(:)
12844 character(*,SKG) , intent(in) :: pattern
12845 character(*,SKG) , intent(in) :: replacement
12846 !procedure(iseq_D0_D0_SK2) :: iseq
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
12851 end subroutine
12852
12853#endif
12854
12855#if SK1_ENABLED
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
12859#endif
12860 use pm_kind, only: SKG => SK1
12861 character(*,SKG) , intent(inout) , allocatable :: array(:)
12862 character(*,SKG) , intent(in) :: pattern
12863 character(*,SKG) , intent(in) :: replacement
12864 !procedure(iseq_D0_D0_SK1) :: iseq
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
12869 end subroutine
12870#endif
12871
12872 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12873
12874#if IK5_ENABLED
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
12878#endif
12879 use pm_kind, only: IKG => IK5
12880 integer(IKG) , intent(inout) , allocatable :: array(:)
12881 integer(IKG) , intent(in) :: pattern
12882 integer(IKG) , intent(in) :: replacement
12883 !procedure(iseq_D0_D0_IK5) :: iseq
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
12888 end subroutine
12889#endif
12890
12891#if IK4_ENABLED
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
12895#endif
12896 use pm_kind, only: IKG => IK4
12897 integer(IKG) , intent(inout) , allocatable :: array(:)
12898 integer(IKG) , intent(in) :: pattern
12899 integer(IKG) , intent(in) :: replacement
12900 !procedure(iseq_D0_D0_IK4) :: iseq
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
12905 end subroutine
12906#endif
12907
12908#if IK3_ENABLED
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
12912#endif
12913 use pm_kind, only: IKG => IK3
12914 integer(IKG) , intent(inout) , allocatable :: array(:)
12915 integer(IKG) , intent(in) :: pattern
12916 integer(IKG) , intent(in) :: replacement
12917 !procedure(iseq_D0_D0_IK3) :: iseq
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
12922 end subroutine
12923#endif
12924
12925#if IK2_ENABLED
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
12929#endif
12930 use pm_kind, only: IKG => IK2
12931 integer(IKG) , intent(inout) , allocatable :: array(:)
12932 integer(IKG) , intent(in) :: pattern
12933 integer(IKG) , intent(in) :: replacement
12934 !procedure(iseq_D0_D0_IK2) :: iseq
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
12939 end subroutine
12940
12941#endif
12942
12943#if IK1_ENABLED
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
12947#endif
12948 use pm_kind, only: IKG => IK1
12949 integer(IKG) , intent(inout) , allocatable :: array(:)
12950 integer(IKG) , intent(in) :: pattern
12951 integer(IKG) , intent(in) :: replacement
12952 !procedure(iseq_D0_D0_IK1) :: iseq
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
12957 end subroutine
12958#endif
12959
12960 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12961
12962#if LK5_ENABLED
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
12966#endif
12967 use pm_kind, only: LKG => LK5
12968 logical(LKG) , intent(inout) , allocatable :: array(:)
12969 logical(LKG) , intent(in) :: pattern
12970 logical(LKG) , intent(in) :: replacement
12971 !procedure(iseq_D0_D0_LK5) :: iseq
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
12976 end subroutine
12977#endif
12978
12979#if LK4_ENABLED
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
12983#endif
12984 use pm_kind, only: LKG => LK4
12985 logical(LKG) , intent(inout) , allocatable :: array(:)
12986 logical(LKG) , intent(in) :: pattern
12987 logical(LKG) , intent(in) :: replacement
12988 !procedure(iseq_D0_D0_LK4) :: iseq
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
12993 end subroutine
12994#endif
12995
12996#if LK3_ENABLED
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
13000#endif
13001 use pm_kind, only: LKG => LK3
13002 logical(LKG) , intent(inout) , allocatable :: array(:)
13003 logical(LKG) , intent(in) :: pattern
13004 logical(LKG) , intent(in) :: replacement
13005 !procedure(iseq_D0_D0_LK3) :: iseq
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
13010 end subroutine
13011#endif
13012
13013#if LK2_ENABLED
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
13017#endif
13018 use pm_kind, only: LKG => LK2
13019 logical(LKG) , intent(inout) , allocatable :: array(:)
13020 logical(LKG) , intent(in) :: pattern
13021 logical(LKG) , intent(in) :: replacement
13022 !procedure(iseq_D0_D0_LK2) :: iseq
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
13027 end subroutine
13028
13029#endif
13030
13031#if LK1_ENABLED
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
13035#endif
13036 use pm_kind, only: LKG => LK1
13037 logical(LKG) , intent(inout) , allocatable :: array(:)
13038 logical(LKG) , intent(in) :: pattern
13039 logical(LKG) , intent(in) :: replacement
13040 !procedure(iseq_D0_D0_LK1) :: iseq
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
13045 end subroutine
13046#endif
13047
13048 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13049
13050#if CK5_ENABLED
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
13054#endif
13055 use pm_kind, only: CKG => CK5
13056 complex(CKG) , intent(inout) , allocatable :: array(:)
13057 complex(CKG) , intent(in) :: pattern
13058 complex(CKG) , intent(in) :: replacement
13059 !procedure(iseq_D0_D0_CK5) :: iseq
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
13064 end subroutine
13065#endif
13066
13067#if CK4_ENABLED
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
13071#endif
13072 use pm_kind, only: CKG => CK4
13073 complex(CKG) , intent(inout) , allocatable :: array(:)
13074 complex(CKG) , intent(in) :: pattern
13075 complex(CKG) , intent(in) :: replacement
13076 !procedure(iseq_D0_D0_CK4) :: iseq
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
13081 end subroutine
13082#endif
13083
13084#if CK3_ENABLED
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
13088#endif
13089 use pm_kind, only: CKG => CK3
13090 complex(CKG) , intent(inout) , allocatable :: array(:)
13091 complex(CKG) , intent(in) :: pattern
13092 complex(CKG) , intent(in) :: replacement
13093 !procedure(iseq_D0_D0_CK3) :: iseq
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
13098 end subroutine
13099#endif
13100
13101#if CK2_ENABLED
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
13105#endif
13106 use pm_kind, only: CKG => CK2
13107 complex(CKG) , intent(inout) , allocatable :: array(:)
13108 complex(CKG) , intent(in) :: pattern
13109 complex(CKG) , intent(in) :: replacement
13110 !procedure(iseq_D0_D0_CK2) :: iseq
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
13115 end subroutine
13116
13117#endif
13118
13119#if CK1_ENABLED
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
13123#endif
13124 use pm_kind, only: CKG => CK1
13125 complex(CKG) , intent(inout) , allocatable :: array(:)
13126 complex(CKG) , intent(in) :: pattern
13127 complex(CKG) , intent(in) :: replacement
13128 !procedure(iseq_D0_D0_CK1) :: iseq
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
13133 end subroutine
13134#endif
13135
13136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13137
13138#if RK5_ENABLED
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
13142#endif
13143 use pm_kind, only: RKG => RK5
13144 real(RKG) , intent(inout) , allocatable :: array(:)
13145 real(RKG) , intent(in) :: pattern
13146 real(RKG) , intent(in) :: replacement
13147 !procedure(iseq_D0_D0_RK5) :: iseq
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
13152 end subroutine
13153#endif
13154
13155#if RK4_ENABLED
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
13159#endif
13160 use pm_kind, only: RKG => RK4
13161 real(RKG) , intent(inout) , allocatable :: array(:)
13162 real(RKG) , intent(in) :: pattern
13163 real(RKG) , intent(in) :: replacement
13164 !procedure(iseq_D0_D0_RK4) :: iseq
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
13169 end subroutine
13170#endif
13171
13172#if RK3_ENABLED
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
13176#endif
13177 use pm_kind, only: RKG => RK3
13178 real(RKG) , intent(inout) , allocatable :: array(:)
13179 real(RKG) , intent(in) :: pattern
13180 real(RKG) , intent(in) :: replacement
13181 !procedure(iseq_D0_D0_RK3) :: iseq
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
13186 end subroutine
13187#endif
13188
13189#if RK2_ENABLED
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
13193#endif
13194 use pm_kind, only: RKG => RK2
13195 real(RKG) , intent(inout) , allocatable :: array(:)
13196 real(RKG) , intent(in) :: pattern
13197 real(RKG) , intent(in) :: replacement
13198 !procedure(iseq_D0_D0_RK2) :: iseq
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
13203 end subroutine
13204
13205#endif
13206
13207#if RK1_ENABLED
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
13211#endif
13212 use pm_kind, only: RKG => RK1
13213 real(RKG) , intent(inout) , allocatable :: array(:)
13214 real(RKG) , intent(in) :: pattern
13215 real(RKG) , intent(in) :: replacement
13216 !procedure(iseq_D0_D0_RK1) :: iseq
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
13221 end subroutine
13222#endif
13223
13224 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13225
13226 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13227 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13228 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13229
13230 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13231
13232#if SK5_ENABLED
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
13236#endif
13237 use pm_kind, only: SKG => SK5
13238 character(*,SKG) , intent(inout) , allocatable :: array(:)
13239 character(*,SKG) , intent(in) :: pattern
13240 character(*,SKG) , intent(in) , contiguous :: replacement(:)
13241 !procedure(iseq_D0_D0_SK5) :: iseq
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
13246 end subroutine
13247#endif
13248
13249#if SK4_ENABLED
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
13253#endif
13254 use pm_kind, only: SKG => SK4
13255 character(*,SKG) , intent(inout) , allocatable :: array(:)
13256 character(*,SKG) , intent(in) :: pattern
13257 character(*,SKG) , intent(in) , contiguous :: replacement(:)
13258 !procedure(iseq_D0_D0_SK4) :: iseq
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
13263 end subroutine
13264#endif
13265
13266#if SK3_ENABLED
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
13270#endif
13271 use pm_kind, only: SKG => SK3
13272 character(*,SKG) , intent(inout) , allocatable :: array(:)
13273 character(*,SKG) , intent(in) :: pattern
13274 character(*,SKG) , intent(in) , contiguous :: replacement(:)
13275 !procedure(iseq_D0_D0_SK3) :: iseq
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
13280 end subroutine
13281#endif
13282
13283#if SK2_ENABLED
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
13287#endif
13288 use pm_kind, only: SKG => SK2
13289 character(*,SKG) , intent(inout) , allocatable :: array(:)
13290 character(*,SKG) , intent(in) :: pattern
13291 character(*,SKG) , intent(in) , contiguous :: replacement(:)
13292 !procedure(iseq_D0_D0_SK2) :: iseq
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
13297 end subroutine
13298
13299#endif
13300
13301#if SK1_ENABLED
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
13305#endif
13306 use pm_kind, only: SKG => SK1
13307 character(*,SKG) , intent(inout) , allocatable :: array(:)
13308 character(*,SKG) , intent(in) :: pattern
13309 character(*,SKG) , intent(in) , contiguous :: replacement(:)
13310 !procedure(iseq_D0_D0_SK1) :: iseq
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
13315 end subroutine
13316#endif
13317
13318 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13319
13320#if IK5_ENABLED
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
13324#endif
13325 use pm_kind, only: IKG => IK5
13326 integer(IKG) , intent(inout) , allocatable :: array(:)
13327 integer(IKG) , intent(in) :: pattern
13328 integer(IKG) , intent(in) , contiguous :: replacement(:)
13329 !procedure(iseq_D0_D0_IK5) :: iseq
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
13334 end subroutine
13335#endif
13336
13337#if IK4_ENABLED
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
13341#endif
13342 use pm_kind, only: IKG => IK4
13343 integer(IKG) , intent(inout) , allocatable :: array(:)
13344 integer(IKG) , intent(in) :: pattern
13345 integer(IKG) , intent(in) , contiguous :: replacement(:)
13346 !procedure(iseq_D0_D0_IK4) :: iseq
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
13351 end subroutine
13352#endif
13353
13354#if IK3_ENABLED
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
13358#endif
13359 use pm_kind, only: IKG => IK3
13360 integer(IKG) , intent(inout) , allocatable :: array(:)
13361 integer(IKG) , intent(in) :: pattern
13362 integer(IKG) , intent(in) , contiguous :: replacement(:)
13363 !procedure(iseq_D0_D0_IK3) :: iseq
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
13368 end subroutine
13369#endif
13370
13371#if IK2_ENABLED
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
13375#endif
13376 use pm_kind, only: IKG => IK2
13377 integer(IKG) , intent(inout) , allocatable :: array(:)
13378 integer(IKG) , intent(in) :: pattern
13379 integer(IKG) , intent(in) , contiguous :: replacement(:)
13380 !procedure(iseq_D0_D0_IK2) :: iseq
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
13385 end subroutine
13386
13387#endif
13388
13389#if IK1_ENABLED
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
13393#endif
13394 use pm_kind, only: IKG => IK1
13395 integer(IKG) , intent(inout) , allocatable :: array(:)
13396 integer(IKG) , intent(in) :: pattern
13397 integer(IKG) , intent(in) , contiguous :: replacement(:)
13398 !procedure(iseq_D0_D0_IK1) :: iseq
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
13403 end subroutine
13404#endif
13405
13406 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13407
13408#if LK5_ENABLED
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
13412#endif
13413 use pm_kind, only: LKG => LK5
13414 logical(LKG) , intent(inout) , allocatable :: array(:)
13415 logical(LKG) , intent(in) :: pattern
13416 logical(LKG) , intent(in) , contiguous :: replacement(:)
13417 !procedure(iseq_D0_D0_LK5) :: iseq
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
13422 end subroutine
13423#endif
13424
13425#if LK4_ENABLED
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
13429#endif
13430 use pm_kind, only: LKG => LK4
13431 logical(LKG) , intent(inout) , allocatable :: array(:)
13432 logical(LKG) , intent(in) :: pattern
13433 logical(LKG) , intent(in) , contiguous :: replacement(:)
13434 !procedure(iseq_D0_D0_LK4) :: iseq
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
13439 end subroutine
13440#endif
13441
13442#if LK3_ENABLED
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
13446#endif
13447 use pm_kind, only: LKG => LK3
13448 logical(LKG) , intent(inout) , allocatable :: array(:)
13449 logical(LKG) , intent(in) :: pattern
13450 logical(LKG) , intent(in) , contiguous :: replacement(:)
13451 !procedure(iseq_D0_D0_LK3) :: iseq
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
13456 end subroutine
13457#endif
13458
13459#if LK2_ENABLED
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
13463#endif
13464 use pm_kind, only: LKG => LK2
13465 logical(LKG) , intent(inout) , allocatable :: array(:)
13466 logical(LKG) , intent(in) :: pattern
13467 logical(LKG) , intent(in) , contiguous :: replacement(:)
13468 !procedure(iseq_D0_D0_LK2) :: iseq
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
13473 end subroutine
13474
13475#endif
13476
13477#if LK1_ENABLED
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
13481#endif
13482 use pm_kind, only: LKG => LK1
13483 logical(LKG) , intent(inout) , allocatable :: array(:)
13484 logical(LKG) , intent(in) :: pattern
13485 logical(LKG) , intent(in) , contiguous :: replacement(:)
13486 !procedure(iseq_D0_D0_LK1) :: iseq
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
13491 end subroutine
13492#endif
13493
13494 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13495
13496#if CK5_ENABLED
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
13500#endif
13501 use pm_kind, only: CKG => CK5
13502 complex(CKG) , intent(inout) , allocatable :: array(:)
13503 complex(CKG) , intent(in) :: pattern
13504 complex(CKG) , intent(in) , contiguous :: replacement(:)
13505 !procedure(iseq_D0_D0_CK5) :: iseq
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
13510 end subroutine
13511#endif
13512
13513#if CK4_ENABLED
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
13517#endif
13518 use pm_kind, only: CKG => CK4
13519 complex(CKG) , intent(inout) , allocatable :: array(:)
13520 complex(CKG) , intent(in) :: pattern
13521 complex(CKG) , intent(in) , contiguous :: replacement(:)
13522 !procedure(iseq_D0_D0_CK4) :: iseq
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
13527 end subroutine
13528#endif
13529
13530#if CK3_ENABLED
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
13534#endif
13535 use pm_kind, only: CKG => CK3
13536 complex(CKG) , intent(inout) , allocatable :: array(:)
13537 complex(CKG) , intent(in) :: pattern
13538 complex(CKG) , intent(in) , contiguous :: replacement(:)
13539 !procedure(iseq_D0_D0_CK3) :: iseq
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
13544 end subroutine
13545#endif
13546
13547#if CK2_ENABLED
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
13551#endif
13552 use pm_kind, only: CKG => CK2
13553 complex(CKG) , intent(inout) , allocatable :: array(:)
13554 complex(CKG) , intent(in) :: pattern
13555 complex(CKG) , intent(in) , contiguous :: replacement(:)
13556 !procedure(iseq_D0_D0_CK2) :: iseq
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
13561 end subroutine
13562
13563#endif
13564
13565#if CK1_ENABLED
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
13569#endif
13570 use pm_kind, only: CKG => CK1
13571 complex(CKG) , intent(inout) , allocatable :: array(:)
13572 complex(CKG) , intent(in) :: pattern
13573 complex(CKG) , intent(in) , contiguous :: replacement(:)
13574 !procedure(iseq_D0_D0_CK1) :: iseq
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
13579 end subroutine
13580#endif
13581
13582 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13583
13584#if RK5_ENABLED
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
13588#endif
13589 use pm_kind, only: RKG => RK5
13590 real(RKG) , intent(inout) , allocatable :: array(:)
13591 real(RKG) , intent(in) :: pattern
13592 real(RKG) , intent(in) , contiguous :: replacement(:)
13593 !procedure(iseq_D0_D0_RK5) :: iseq
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
13598 end subroutine
13599#endif
13600
13601#if RK4_ENABLED
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
13605#endif
13606 use pm_kind, only: RKG => RK4
13607 real(RKG) , intent(inout) , allocatable :: array(:)
13608 real(RKG) , intent(in) :: pattern
13609 real(RKG) , intent(in) , contiguous :: replacement(:)
13610 !procedure(iseq_D0_D0_RK4) :: iseq
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
13615 end subroutine
13616#endif
13617
13618#if RK3_ENABLED
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
13622#endif
13623 use pm_kind, only: RKG => RK3
13624 real(RKG) , intent(inout) , allocatable :: array(:)
13625 real(RKG) , intent(in) :: pattern
13626 real(RKG) , intent(in) , contiguous :: replacement(:)
13627 !procedure(iseq_D0_D0_RK3) :: iseq
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
13632 end subroutine
13633#endif
13634
13635#if RK2_ENABLED
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
13639#endif
13640 use pm_kind, only: RKG => RK2
13641 real(RKG) , intent(inout) , allocatable :: array(:)
13642 real(RKG) , intent(in) :: pattern
13643 real(RKG) , intent(in) , contiguous :: replacement(:)
13644 !procedure(iseq_D0_D0_RK2) :: iseq
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
13649 end subroutine
13650
13651#endif
13652
13653#if RK1_ENABLED
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
13657#endif
13658 use pm_kind, only: RKG => RK1
13659 real(RKG) , intent(inout) , allocatable :: array(:)
13660 real(RKG) , intent(in) :: pattern
13661 real(RKG) , intent(in) , contiguous :: replacement(:)
13662 !procedure(iseq_D0_D0_RK1) :: iseq
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
13667 end subroutine
13668#endif
13669
13670 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13671
13672 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13673 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13674 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13675
13676 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13677
13678#if SK5_ENABLED
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
13682#endif
13683 use pm_kind, only: SKG => SK5
13684 character(*,SKG) , intent(inout) , allocatable :: array(:)
13685 character(*,SKG) , intent(in) , contiguous :: pattern(:)
13686 character(*,SKG) , intent(in) :: replacement
13687 !procedure(iseq_D1_D1_SK5) :: iseq
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
13692 end subroutine
13693#endif
13694
13695#if SK4_ENABLED
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
13699#endif
13700 use pm_kind, only: SKG => SK4
13701 character(*,SKG) , intent(inout) , allocatable :: array(:)
13702 character(*,SKG) , intent(in) , contiguous :: pattern(:)
13703 character(*,SKG) , intent(in) :: replacement
13704 !procedure(iseq_D1_D1_SK4) :: iseq
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
13709 end subroutine
13710#endif
13711
13712#if SK3_ENABLED
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
13716#endif
13717 use pm_kind, only: SKG => SK3
13718 character(*,SKG) , intent(inout) , allocatable :: array(:)
13719 character(*,SKG) , intent(in) , contiguous :: pattern(:)
13720 character(*,SKG) , intent(in) :: replacement
13721 !procedure(iseq_D1_D1_SK3) :: iseq
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
13726 end subroutine
13727#endif
13728
13729#if SK2_ENABLED
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
13733#endif
13734 use pm_kind, only: SKG => SK2
13735 character(*,SKG) , intent(inout) , allocatable :: array(:)
13736 character(*,SKG) , intent(in) , contiguous :: pattern(:)
13737 character(*,SKG) , intent(in) :: replacement
13738 !procedure(iseq_D1_D1_SK2) :: iseq
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
13743 end subroutine
13744
13745#endif
13746
13747#if SK1_ENABLED
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
13751#endif
13752 use pm_kind, only: SKG => SK1
13753 character(*,SKG) , intent(inout) , allocatable :: array(:)
13754 character(*,SKG) , intent(in) , contiguous :: pattern(:)
13755 character(*,SKG) , intent(in) :: replacement
13756 !procedure(iseq_D1_D1_SK1) :: iseq
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
13761 end subroutine
13762#endif
13763
13764 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13765
13766#if IK5_ENABLED
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
13770#endif
13771 use pm_kind, only: IKG => IK5
13772 integer(IKG) , intent(inout) , allocatable :: array(:)
13773 integer(IKG) , intent(in) , contiguous :: pattern(:)
13774 integer(IKG) , intent(in) :: replacement
13775 !procedure(iseq_D1_D1_IK5) :: iseq
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
13780 end subroutine
13781#endif
13782
13783#if IK4_ENABLED
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
13787#endif
13788 use pm_kind, only: IKG => IK4
13789 integer(IKG) , intent(inout) , allocatable :: array(:)
13790 integer(IKG) , intent(in) , contiguous :: pattern(:)
13791 integer(IKG) , intent(in) :: replacement
13792 !procedure(iseq_D1_D1_IK4) :: iseq
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
13797 end subroutine
13798#endif
13799
13800#if IK3_ENABLED
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
13804#endif
13805 use pm_kind, only: IKG => IK3
13806 integer(IKG) , intent(inout) , allocatable :: array(:)
13807 integer(IKG) , intent(in) , contiguous :: pattern(:)
13808 integer(IKG) , intent(in) :: replacement
13809 !procedure(iseq_D1_D1_IK3) :: iseq
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
13814 end subroutine
13815#endif
13816
13817#if IK2_ENABLED
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
13821#endif
13822 use pm_kind, only: IKG => IK2
13823 integer(IKG) , intent(inout) , allocatable :: array(:)
13824 integer(IKG) , intent(in) , contiguous :: pattern(:)
13825 integer(IKG) , intent(in) :: replacement
13826 !procedure(iseq_D1_D1_IK2) :: iseq
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
13831 end subroutine
13832
13833#endif
13834
13835#if IK1_ENABLED
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
13839#endif
13840 use pm_kind, only: IKG => IK1
13841 integer(IKG) , intent(inout) , allocatable :: array(:)
13842 integer(IKG) , intent(in) , contiguous :: pattern(:)
13843 integer(IKG) , intent(in) :: replacement
13844 !procedure(iseq_D1_D1_IK1) :: iseq
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
13849 end subroutine
13850#endif
13851
13852 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13853
13854#if LK5_ENABLED
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
13858#endif
13859 use pm_kind, only: LKG => LK5
13860 logical(LKG) , intent(inout) , allocatable :: array(:)
13861 logical(LKG) , intent(in) , contiguous :: pattern(:)
13862 logical(LKG) , intent(in) :: replacement
13863 !procedure(iseq_D1_D1_LK5) :: iseq
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
13868 end subroutine
13869#endif
13870
13871#if LK4_ENABLED
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
13875#endif
13876 use pm_kind, only: LKG => LK4
13877 logical(LKG) , intent(inout) , allocatable :: array(:)
13878 logical(LKG) , intent(in) , contiguous :: pattern(:)
13879 logical(LKG) , intent(in) :: replacement
13880 !procedure(iseq_D1_D1_LK4) :: iseq
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
13885 end subroutine
13886#endif
13887
13888#if LK3_ENABLED
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
13892#endif
13893 use pm_kind, only: LKG => LK3
13894 logical(LKG) , intent(inout) , allocatable :: array(:)
13895 logical(LKG) , intent(in) , contiguous :: pattern(:)
13896 logical(LKG) , intent(in) :: replacement
13897 !procedure(iseq_D1_D1_LK3) :: iseq
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
13902 end subroutine
13903#endif
13904
13905#if LK2_ENABLED
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
13909#endif
13910 use pm_kind, only: LKG => LK2
13911 logical(LKG) , intent(inout) , allocatable :: array(:)
13912 logical(LKG) , intent(in) , contiguous :: pattern(:)
13913 logical(LKG) , intent(in) :: replacement
13914 !procedure(iseq_D1_D1_LK2) :: iseq
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
13919 end subroutine
13920
13921#endif
13922
13923#if LK1_ENABLED
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
13927#endif
13928 use pm_kind, only: LKG => LK1
13929 logical(LKG) , intent(inout) , allocatable :: array(:)
13930 logical(LKG) , intent(in) , contiguous :: pattern(:)
13931 logical(LKG) , intent(in) :: replacement
13932 !procedure(iseq_D1_D1_LK1) :: iseq
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
13937 end subroutine
13938#endif
13939
13940 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13941
13942#if CK5_ENABLED
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
13946#endif
13947 use pm_kind, only: CKG => CK5
13948 complex(CKG) , intent(inout) , allocatable :: array(:)
13949 complex(CKG) , intent(in) , contiguous :: pattern(:)
13950 complex(CKG) , intent(in) :: replacement
13951 !procedure(iseq_D1_D1_CK5) :: iseq
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
13956 end subroutine
13957#endif
13958
13959#if CK4_ENABLED
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
13963#endif
13964 use pm_kind, only: CKG => CK4
13965 complex(CKG) , intent(inout) , allocatable :: array(:)
13966 complex(CKG) , intent(in) , contiguous :: pattern(:)
13967 complex(CKG) , intent(in) :: replacement
13968 !procedure(iseq_D1_D1_CK4) :: iseq
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
13973 end subroutine
13974#endif
13975
13976#if CK3_ENABLED
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
13980#endif
13981 use pm_kind, only: CKG => CK3
13982 complex(CKG) , intent(inout) , allocatable :: array(:)
13983 complex(CKG) , intent(in) , contiguous :: pattern(:)
13984 complex(CKG) , intent(in) :: replacement
13985 !procedure(iseq_D1_D1_CK3) :: iseq
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
13990 end subroutine
13991#endif
13992
13993#if CK2_ENABLED
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
13997#endif
13998 use pm_kind, only: CKG => CK2
13999 complex(CKG) , intent(inout) , allocatable :: array(:)
14000 complex(CKG) , intent(in) , contiguous :: pattern(:)
14001 complex(CKG) , intent(in) :: replacement
14002 !procedure(iseq_D1_D1_CK2) :: iseq
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
14007 end subroutine
14008
14009#endif
14010
14011#if CK1_ENABLED
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
14015#endif
14016 use pm_kind, only: CKG => CK1
14017 complex(CKG) , intent(inout) , allocatable :: array(:)
14018 complex(CKG) , intent(in) , contiguous :: pattern(:)
14019 complex(CKG) , intent(in) :: replacement
14020 !procedure(iseq_D1_D1_CK1) :: iseq
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
14025 end subroutine
14026#endif
14027
14028 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14029
14030#if RK5_ENABLED
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
14034#endif
14035 use pm_kind, only: RKG => RK5
14036 real(RKG) , intent(inout) , allocatable :: array(:)
14037 real(RKG) , intent(in) , contiguous :: pattern(:)
14038 real(RKG) , intent(in) :: replacement
14039 !procedure(iseq_D1_D1_RK5) :: iseq
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
14044 end subroutine
14045#endif
14046
14047#if RK4_ENABLED
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
14051#endif
14052 use pm_kind, only: RKG => RK4
14053 real(RKG) , intent(inout) , allocatable :: array(:)
14054 real(RKG) , intent(in) , contiguous :: pattern(:)
14055 real(RKG) , intent(in) :: replacement
14056 !procedure(iseq_D1_D1_RK4) :: iseq
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
14061 end subroutine
14062#endif
14063
14064#if RK3_ENABLED
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
14068#endif
14069 use pm_kind, only: RKG => RK3
14070 real(RKG) , intent(inout) , allocatable :: array(:)
14071 real(RKG) , intent(in) , contiguous :: pattern(:)
14072 real(RKG) , intent(in) :: replacement
14073 !procedure(iseq_D1_D1_RK3) :: iseq
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
14078 end subroutine
14079#endif
14080
14081#if RK2_ENABLED
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
14085#endif
14086 use pm_kind, only: RKG => RK2
14087 real(RKG) , intent(inout) , allocatable :: array(:)
14088 real(RKG) , intent(in) , contiguous :: pattern(:)
14089 real(RKG) , intent(in) :: replacement
14090 !procedure(iseq_D1_D1_RK2) :: iseq
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
14095 end subroutine
14096
14097#endif
14098
14099#if RK1_ENABLED
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
14103#endif
14104 use pm_kind, only: RKG => RK1
14105 real(RKG) , intent(inout) , allocatable :: array(:)
14106 real(RKG) , intent(in) , contiguous :: pattern(:)
14107 real(RKG) , intent(in) :: replacement
14108 !procedure(iseq_D1_D1_RK1) :: iseq
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
14113 end subroutine
14114#endif
14115
14116 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14117
14118 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14119 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14120 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14121
14122 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14123
14124#if SK5_ENABLED
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
14128#endif
14129 use pm_kind, only: SKG => SK5
14130 character(*,SKG) , intent(inout) , allocatable :: array(:)
14131 character(*,SKG) , intent(in) , contiguous :: pattern(:)
14132 character(*,SKG) , intent(in) , contiguous :: replacement(:)
14133 !procedure(iseq_D1_D1_SK5) :: iseq
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
14138 end subroutine
14139#endif
14140
14141#if SK4_ENABLED
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
14145#endif
14146 use pm_kind, only: SKG => SK4
14147 character(*,SKG) , intent(inout) , allocatable :: array(:)
14148 character(*,SKG) , intent(in) , contiguous :: pattern(:)
14149 character(*,SKG) , intent(in) , contiguous :: replacement(:)
14150 !procedure(iseq_D1_D1_SK4) :: iseq
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
14155 end subroutine
14156#endif
14157
14158#if SK3_ENABLED
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
14162#endif
14163 use pm_kind, only: SKG => SK3
14164 character(*,SKG) , intent(inout) , allocatable :: array(:)
14165 character(*,SKG) , intent(in) , contiguous :: pattern(:)
14166 character(*,SKG) , intent(in) , contiguous :: replacement(:)
14167 !procedure(iseq_D1_D1_SK3) :: iseq
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
14172 end subroutine
14173#endif
14174
14175#if SK2_ENABLED
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
14179#endif
14180 use pm_kind, only: SKG => SK2
14181 character(*,SKG) , intent(inout) , allocatable :: array(:)
14182 character(*,SKG) , intent(in) , contiguous :: pattern(:)
14183 character(*,SKG) , intent(in) , contiguous :: replacement(:)
14184 !procedure(iseq_D1_D1_SK2) :: iseq
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
14189 end subroutine
14190
14191#endif
14192
14193#if SK1_ENABLED
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
14197#endif
14198 use pm_kind, only: SKG => SK1
14199 character(*,SKG) , intent(inout) , allocatable :: array(:)
14200 character(*,SKG) , intent(in) , contiguous :: pattern(:)
14201 character(*,SKG) , intent(in) , contiguous :: replacement(:)
14202 !procedure(iseq_D1_D1_SK1) :: iseq
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
14207 end subroutine
14208#endif
14209
14210 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14211
14212#if IK5_ENABLED
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
14216#endif
14217 use pm_kind, only: IKG => IK5
14218 integer(IKG) , intent(inout) , allocatable :: array(:)
14219 integer(IKG) , intent(in) , contiguous :: pattern(:)
14220 integer(IKG) , intent(in) , contiguous :: replacement(:)
14221 !procedure(iseq_D1_D1_IK5) :: iseq
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
14226 end subroutine
14227#endif
14228
14229#if IK4_ENABLED
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
14233#endif
14234 use pm_kind, only: IKG => IK4
14235 integer(IKG) , intent(inout) , allocatable :: array(:)
14236 integer(IKG) , intent(in) , contiguous :: pattern(:)
14237 integer(IKG) , intent(in) , contiguous :: replacement(:)
14238 !procedure(iseq_D1_D1_IK4) :: iseq
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
14243 end subroutine
14244#endif
14245
14246#if IK3_ENABLED
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
14250#endif
14251 use pm_kind, only: IKG => IK3
14252 integer(IKG) , intent(inout) , allocatable :: array(:)
14253 integer(IKG) , intent(in) , contiguous :: pattern(:)
14254 integer(IKG) , intent(in) , contiguous :: replacement(:)
14255 !procedure(iseq_D1_D1_IK3) :: iseq
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
14260 end subroutine
14261#endif
14262
14263#if IK2_ENABLED
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
14267#endif
14268 use pm_kind, only: IKG => IK2
14269 integer(IKG) , intent(inout) , allocatable :: array(:)
14270 integer(IKG) , intent(in) , contiguous :: pattern(:)
14271 integer(IKG) , intent(in) , contiguous :: replacement(:)
14272 !procedure(iseq_D1_D1_IK2) :: iseq
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
14277 end subroutine
14278
14279#endif
14280
14281#if IK1_ENABLED
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
14285#endif
14286 use pm_kind, only: IKG => IK1
14287 integer(IKG) , intent(inout) , allocatable :: array(:)
14288 integer(IKG) , intent(in) , contiguous :: pattern(:)
14289 integer(IKG) , intent(in) , contiguous :: replacement(:)
14290 !procedure(iseq_D1_D1_IK1) :: iseq
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
14295 end subroutine
14296#endif
14297
14298 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14299
14300#if LK5_ENABLED
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
14304#endif
14305 use pm_kind, only: LKG => LK5
14306 logical(LKG) , intent(inout) , allocatable :: array(:)
14307 logical(LKG) , intent(in) , contiguous :: pattern(:)
14308 logical(LKG) , intent(in) , contiguous :: replacement(:)
14309 !procedure(iseq_D1_D1_LK5) :: iseq
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
14314 end subroutine
14315#endif
14316
14317#if LK4_ENABLED
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
14321#endif
14322 use pm_kind, only: LKG => LK4
14323 logical(LKG) , intent(inout) , allocatable :: array(:)
14324 logical(LKG) , intent(in) , contiguous :: pattern(:)
14325 logical(LKG) , intent(in) , contiguous :: replacement(:)
14326 !procedure(iseq_D1_D1_LK4) :: iseq
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
14331 end subroutine
14332#endif
14333
14334#if LK3_ENABLED
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
14338#endif
14339 use pm_kind, only: LKG => LK3
14340 logical(LKG) , intent(inout) , allocatable :: array(:)
14341 logical(LKG) , intent(in) , contiguous :: pattern(:)
14342 logical(LKG) , intent(in) , contiguous :: replacement(:)
14343 !procedure(iseq_D1_D1_LK3) :: iseq
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
14348 end subroutine
14349#endif
14350
14351#if LK2_ENABLED
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
14355#endif
14356 use pm_kind, only: LKG => LK2
14357 logical(LKG) , intent(inout) , allocatable :: array(:)
14358 logical(LKG) , intent(in) , contiguous :: pattern(:)
14359 logical(LKG) , intent(in) , contiguous :: replacement(:)
14360 !procedure(iseq_D1_D1_LK2) :: iseq
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
14365 end subroutine
14366
14367#endif
14368
14369#if LK1_ENABLED
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
14373#endif
14374 use pm_kind, only: LKG => LK1
14375 logical(LKG) , intent(inout) , allocatable :: array(:)
14376 logical(LKG) , intent(in) , contiguous :: pattern(:)
14377 logical(LKG) , intent(in) , contiguous :: replacement(:)
14378 !procedure(iseq_D1_D1_LK1) :: iseq
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
14383 end subroutine
14384#endif
14385
14386 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14387
14388#if CK5_ENABLED
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
14392#endif
14393 use pm_kind, only: CKG => CK5
14394 complex(CKG) , intent(inout) , allocatable :: array(:)
14395 complex(CKG) , intent(in) , contiguous :: pattern(:)
14396 complex(CKG) , intent(in) , contiguous :: replacement(:)
14397 !procedure(iseq_D1_D1_CK5) :: iseq
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
14402 end subroutine
14403#endif
14404
14405#if CK4_ENABLED
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
14409#endif
14410 use pm_kind, only: CKG => CK4
14411 complex(CKG) , intent(inout) , allocatable :: array(:)
14412 complex(CKG) , intent(in) , contiguous :: pattern(:)
14413 complex(CKG) , intent(in) , contiguous :: replacement(:)
14414 !procedure(iseq_D1_D1_CK4) :: iseq
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
14419 end subroutine
14420#endif
14421
14422#if CK3_ENABLED
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
14426#endif
14427 use pm_kind, only: CKG => CK3
14428 complex(CKG) , intent(inout) , allocatable :: array(:)
14429 complex(CKG) , intent(in) , contiguous :: pattern(:)
14430 complex(CKG) , intent(in) , contiguous :: replacement(:)
14431 !procedure(iseq_D1_D1_CK3) :: iseq
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
14436 end subroutine
14437#endif
14438
14439#if CK2_ENABLED
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
14443#endif
14444 use pm_kind, only: CKG => CK2
14445 complex(CKG) , intent(inout) , allocatable :: array(:)
14446 complex(CKG) , intent(in) , contiguous :: pattern(:)
14447 complex(CKG) , intent(in) , contiguous :: replacement(:)
14448 !procedure(iseq_D1_D1_CK2) :: iseq
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
14453 end subroutine
14454
14455#endif
14456
14457#if CK1_ENABLED
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
14461#endif
14462 use pm_kind, only: CKG => CK1
14463 complex(CKG) , intent(inout) , allocatable :: array(:)
14464 complex(CKG) , intent(in) , contiguous :: pattern(:)
14465 complex(CKG) , intent(in) , contiguous :: replacement(:)
14466 !procedure(iseq_D1_D1_CK1) :: iseq
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
14471 end subroutine
14472#endif
14473
14474 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14475
14476#if RK5_ENABLED
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
14480#endif
14481 use pm_kind, only: RKG => RK5
14482 real(RKG) , intent(inout) , allocatable :: array(:)
14483 real(RKG) , intent(in) , contiguous :: pattern(:)
14484 real(RKG) , intent(in) , contiguous :: replacement(:)
14485 !procedure(iseq_D1_D1_RK5) :: iseq
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
14490 end subroutine
14491#endif
14492
14493#if RK4_ENABLED
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
14497#endif
14498 use pm_kind, only: RKG => RK4
14499 real(RKG) , intent(inout) , allocatable :: array(:)
14500 real(RKG) , intent(in) , contiguous :: pattern(:)
14501 real(RKG) , intent(in) , contiguous :: replacement(:)
14502 !procedure(iseq_D1_D1_RK4) :: iseq
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
14507 end subroutine
14508#endif
14509
14510#if RK3_ENABLED
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
14514#endif
14515 use pm_kind, only: RKG => RK3
14516 real(RKG) , intent(inout) , allocatable :: array(:)
14517 real(RKG) , intent(in) , contiguous :: pattern(:)
14518 real(RKG) , intent(in) , contiguous :: replacement(:)
14519 !procedure(iseq_D1_D1_RK3) :: iseq
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
14524 end subroutine
14525#endif
14526
14527#if RK2_ENABLED
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
14531#endif
14532 use pm_kind, only: RKG => RK2
14533 real(RKG) , intent(inout) , allocatable :: array(:)
14534 real(RKG) , intent(in) , contiguous :: pattern(:)
14535 real(RKG) , intent(in) , contiguous :: replacement(:)
14536 !procedure(iseq_D1_D1_RK2) :: iseq
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
14541 end subroutine
14542
14543#endif
14544
14545#if RK1_ENABLED
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
14549#endif
14550 use pm_kind, only: RKG => RK1
14551 real(RKG) , intent(inout) , allocatable :: array(:)
14552 real(RKG) , intent(in) , contiguous :: pattern(:)
14553 real(RKG) , intent(in) , contiguous :: replacement(:)
14554 !procedure(iseq_D1_D1_RK1) :: iseq
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
14559 end subroutine
14560#endif
14561
14562 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14563
14564 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14565 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14566 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14567 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14568 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14569 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14570 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14571 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14572 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14573
14574 end interface
14575
14576!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14577
14578contains
14579
14580!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14581
14612 pure recursive function getReplaced_recurs_alloc(array, pattern, replacement) result(arrayNew)
14613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14614 !DEC$ ATTRIBUTES DLLEXPORT :: getReplaced_recurs_alloc
14615#endif
14616 use pm_kind, only: IK
14617 implicit none
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
14624 arrayNew = ""
14625 return
14626 elseif (lenArray < lenPattern) then
14627 arrayNew = array
14628 return
14629 end if
14630 i = 1_IK
14631 do
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)
14634 exit
14635 end if
14636 if (i+lenPattern > lenArray) then
14637 arrayNew = array
14638 exit
14639 end if
14640 i = i + 1_IK
14641 cycle
14642 end do
14643 end function
14644
14645!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14646
14647end module pm_arrayReplace ! LCOV_EXCL_LINE
pm_arrayReplace::getReplaced
Generate and return an arrayNew of the same type and kind as the input array, in which the requested ...
Definition: pm_arrayReplace.F90:986
pm_arrayReplace::setReplaced
Replace the requested instances of the input pattern with the input replacement in the allocatable in...
Definition: pm_arrayReplace.F90:8076
pm_arrayReplace
This module contains procedures and generic interfaces for replacing patterns within arrays of variou...
Definition: pm_arrayReplace.F90:54
pm_arrayReplace::getReplaced_recurs_alloc
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...
Definition: pm_arrayReplace.F90:14613
pm_arrayReplace::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayReplace.F90:60
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::SK5
integer, parameter SK5
Definition: pm_kind.F90:326
pm_kind::LK1
integer, parameter LK1
Definition: pm_kind.F90:412
pm_kind::IK3
integer, parameter IK3
Definition: pm_kind.F90:368
pm_kind::RK5
integer, parameter RK5
Definition: pm_kind.F90:478
pm_kind::RK4
integer, parameter RK4
Definition: pm_kind.F90:489
pm_kind::SK1
integer, parameter SK1
Definition: pm_kind.F90:346
pm_kind::IK1
integer, parameter IK1
Definition: pm_kind.F90:382
pm_kind::LK5
integer, parameter LK5
Definition: pm_kind.F90:392
pm_kind::RK2
integer, parameter RK2
Definition: pm_kind.F90:511
pm_kind::CK1
integer, parameter CK1
Definition: pm_kind.F90:464
pm_kind::RK3
integer, parameter RK3
Definition: pm_kind.F90:500
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::LK2
integer, parameter LK2
Definition: pm_kind.F90:407
pm_kind::LK4
integer, parameter LK4
Definition: pm_kind.F90:397
pm_kind::CK5
integer, parameter CK5
Definition: pm_kind.F90:420
pm_kind::CK4
integer, parameter CK4
Definition: pm_kind.F90:431
pm_kind::SK4
integer, parameter SK4
Definition: pm_kind.F90:331
pm_kind::LK3
integer, parameter LK3
Definition: pm_kind.F90:402
pm_kind::IK2
integer, parameter IK2
Definition: pm_kind.F90:375
pm_kind::CK2
integer, parameter CK2
Definition: pm_kind.F90:453
pm_kind::SK2
integer, parameter SK2
Definition: pm_kind.F90:341
pm_kind::CK3
integer, parameter CK3
Definition: pm_kind.F90:442
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::IK4
integer, parameter IK4
Definition: pm_kind.F90:361
pm_kind::IK5
integer, parameter IK5
Definition: pm_kind.F90:354
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RK1
integer, parameter RK1
Definition: pm_kind.F90:522
pm_kind::SK3
integer, parameter SK3
Definition: pm_kind.F90:336