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)