206 PURE module function getStrippedDefComB_D0_D0_SK5(array, pattern, side)
result(arrayStripped)
207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
208 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D0_D0_SK5
211 character(
*,SKG) ,
intent(in) :: array
212 character(
*,SKG) ,
intent(in) :: pattern
213 character(:,SKG) ,
allocatable :: arrayStripped
214 type(leftRight_type) ,
intent(in),
optional :: side
219 PURE module function getStrippedDefComB_D0_D0_SK4(array, pattern, side)
result(arrayStripped)
220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
221 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D0_D0_SK4
224 character(
*,SKG) ,
intent(in) :: array
225 character(
*,SKG) ,
intent(in) :: pattern
226 character(:,SKG) ,
allocatable :: arrayStripped
227 type(leftRight_type) ,
intent(in),
optional :: side
232 PURE module function getStrippedDefComB_D0_D0_SK3(array, pattern, side)
result(arrayStripped)
233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
234 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D0_D0_SK3
237 character(
*,SKG) ,
intent(in) :: array
238 character(
*,SKG) ,
intent(in) :: pattern
239 character(:,SKG) ,
allocatable :: arrayStripped
240 type(leftRight_type) ,
intent(in),
optional :: side
245 PURE module function getStrippedDefComB_D0_D0_SK2(array, pattern, side)
result(arrayStripped)
246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
247 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D0_D0_SK2
250 character(
*,SKG) ,
intent(in) :: array
251 character(
*,SKG) ,
intent(in) :: pattern
252 character(:,SKG) ,
allocatable :: arrayStripped
253 type(leftRight_type) ,
intent(in),
optional :: side
258 PURE module function getStrippedDefComB_D0_D0_SK1(array, pattern, side)
result(arrayStripped)
259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
260 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D0_D0_SK1
263 character(
*,SKG) ,
intent(in) :: array
264 character(
*,SKG) ,
intent(in) :: pattern
265 character(:,SKG) ,
allocatable :: arrayStripped
266 type(leftRight_type) ,
intent(in),
optional :: side
273 PURE module function getStrippedDefComB_D1_D0_SK5(array, pattern, side)
result(arrayStripped)
274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
275 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_SK5
278 character(
*,SKG) ,
intent(in) :: pattern
279 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
280 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
281 type(leftRight_type) ,
intent(in),
optional :: side
286 PURE module function getStrippedDefComB_D1_D0_SK4(array, pattern, side)
result(arrayStripped)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_SK4
291 character(
*,SKG) ,
intent(in) :: pattern
292 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
293 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
294 type(leftRight_type) ,
intent(in),
optional :: side
299 PURE module function getStrippedDefComB_D1_D0_SK3(array, pattern, side)
result(arrayStripped)
300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
301 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_SK3
304 character(
*,SKG) ,
intent(in) :: pattern
305 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
306 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
307 type(leftRight_type) ,
intent(in),
optional :: side
312 PURE module function getStrippedDefComB_D1_D0_SK2(array, pattern, side)
result(arrayStripped)
313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
314 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_SK2
317 character(
*,SKG) ,
intent(in) :: pattern
318 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
319 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
320 type(leftRight_type) ,
intent(in),
optional :: side
325 PURE module function getStrippedDefComB_D1_D0_SK1(array, pattern, side)
result(arrayStripped)
326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
327 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_SK1
330 character(
*,SKG) ,
intent(in) :: pattern
331 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
332 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
333 type(leftRight_type) ,
intent(in),
optional :: side
340 PURE module function getStrippedDefComB_D1_D0_IK5(array, pattern, side)
result(arrayStripped)
341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
342 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_IK5
345 integer(IKG) ,
intent(in),
contiguous :: array(:)
346 integer(IKG) ,
intent(in) :: pattern
347 integer(IKG) ,
allocatable :: arrayStripped(:)
348 type(leftRight_type) ,
intent(in),
optional :: side
353 PURE module function getStrippedDefComB_D1_D0_IK4(array, pattern, side)
result(arrayStripped)
354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
355 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_IK4
358 integer(IKG) ,
intent(in),
contiguous :: array(:)
359 integer(IKG) ,
intent(in) :: pattern
360 integer(IKG) ,
allocatable :: arrayStripped(:)
361 type(leftRight_type) ,
intent(in),
optional :: side
366 PURE module function getStrippedDefComB_D1_D0_IK3(array, pattern, side)
result(arrayStripped)
367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
368 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_IK3
371 integer(IKG) ,
intent(in),
contiguous :: array(:)
372 integer(IKG) ,
intent(in) :: pattern
373 integer(IKG) ,
allocatable :: arrayStripped(:)
374 type(leftRight_type) ,
intent(in),
optional :: side
379 PURE module function getStrippedDefComB_D1_D0_IK2(array, pattern, side)
result(arrayStripped)
380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
381 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_IK2
384 integer(IKG) ,
intent(in),
contiguous :: array(:)
385 integer(IKG) ,
intent(in) :: pattern
386 integer(IKG) ,
allocatable :: arrayStripped(:)
387 type(leftRight_type) ,
intent(in),
optional :: side
392 PURE module function getStrippedDefComB_D1_D0_IK1(array, pattern, side)
result(arrayStripped)
393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
394 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_IK1
397 integer(IKG) ,
intent(in),
contiguous :: array(:)
398 integer(IKG) ,
intent(in) :: pattern
399 integer(IKG) ,
allocatable :: arrayStripped(:)
400 type(leftRight_type) ,
intent(in),
optional :: side
407 PURE module function getStrippedDefComB_D1_D0_LK5(array, pattern, side)
result(arrayStripped)
408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
409 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_LK5
412 logical(LKG) ,
intent(in),
contiguous :: array(:)
413 logical(LKG) ,
intent(in) :: pattern
414 logical(LKG) ,
allocatable :: arrayStripped(:)
415 type(leftRight_type) ,
intent(in),
optional :: side
420 PURE module function getStrippedDefComB_D1_D0_LK4(array, pattern, side)
result(arrayStripped)
421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
422 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_LK4
425 logical(LKG) ,
intent(in),
contiguous :: array(:)
426 logical(LKG) ,
intent(in) :: pattern
427 logical(LKG) ,
allocatable :: arrayStripped(:)
428 type(leftRight_type) ,
intent(in),
optional :: side
433 PURE module function getStrippedDefComB_D1_D0_LK3(array, pattern, side)
result(arrayStripped)
434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
435 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_LK3
438 logical(LKG) ,
intent(in),
contiguous :: array(:)
439 logical(LKG) ,
intent(in) :: pattern
440 logical(LKG) ,
allocatable :: arrayStripped(:)
441 type(leftRight_type) ,
intent(in),
optional :: side
446 PURE module function getStrippedDefComB_D1_D0_LK2(array, pattern, side)
result(arrayStripped)
447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
448 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_LK2
451 logical(LKG) ,
intent(in),
contiguous :: array(:)
452 logical(LKG) ,
intent(in) :: pattern
453 logical(LKG) ,
allocatable :: arrayStripped(:)
454 type(leftRight_type) ,
intent(in),
optional :: side
459 PURE module function getStrippedDefComB_D1_D0_LK1(array, pattern, side)
result(arrayStripped)
460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
461 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_LK1
464 logical(LKG) ,
intent(in),
contiguous :: array(:)
465 logical(LKG) ,
intent(in) :: pattern
466 logical(LKG) ,
allocatable :: arrayStripped(:)
467 type(leftRight_type) ,
intent(in),
optional :: side
474 PURE module function getStrippedDefComB_D1_D0_CK5(array, pattern, side)
result(arrayStripped)
475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
476 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_CK5
479 complex(CKG) ,
intent(in),
contiguous :: array(:)
480 complex(CKG) ,
intent(in) :: pattern
481 complex(CKG) ,
allocatable :: arrayStripped(:)
482 type(leftRight_type) ,
intent(in),
optional :: side
487 PURE module function getStrippedDefComB_D1_D0_CK4(array, pattern, side)
result(arrayStripped)
488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
489 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_CK4
492 complex(CKG) ,
intent(in),
contiguous :: array(:)
493 complex(CKG) ,
intent(in) :: pattern
494 complex(CKG) ,
allocatable :: arrayStripped(:)
495 type(leftRight_type) ,
intent(in),
optional :: side
500 PURE module function getStrippedDefComB_D1_D0_CK3(array, pattern, side)
result(arrayStripped)
501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
502 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_CK3
505 complex(CKG) ,
intent(in),
contiguous :: array(:)
506 complex(CKG) ,
intent(in) :: pattern
507 complex(CKG) ,
allocatable :: arrayStripped(:)
508 type(leftRight_type) ,
intent(in),
optional :: side
513 PURE module function getStrippedDefComB_D1_D0_CK2(array, pattern, side)
result(arrayStripped)
514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
515 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_CK2
518 complex(CKG) ,
intent(in),
contiguous :: array(:)
519 complex(CKG) ,
intent(in) :: pattern
520 complex(CKG) ,
allocatable :: arrayStripped(:)
521 type(leftRight_type) ,
intent(in),
optional :: side
526 PURE module function getStrippedDefComB_D1_D0_CK1(array, pattern, side)
result(arrayStripped)
527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
528 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_CK1
531 complex(CKG) ,
intent(in),
contiguous :: array(:)
532 complex(CKG) ,
intent(in) :: pattern
533 complex(CKG) ,
allocatable :: arrayStripped(:)
534 type(leftRight_type) ,
intent(in),
optional :: side
541 PURE module function getStrippedDefComB_D1_D0_RK5(array, pattern, side)
result(arrayStripped)
542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
543 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_RK5
546 real(RKG) ,
intent(in),
contiguous :: array(:)
547 real(RKG) ,
intent(in) :: pattern
548 real(RKG) ,
allocatable :: arrayStripped(:)
549 type(leftRight_type) ,
intent(in),
optional :: side
554 PURE module function getStrippedDefComB_D1_D0_RK4(array, pattern, side)
result(arrayStripped)
555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
556 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_RK4
559 real(RKG) ,
intent(in),
contiguous :: array(:)
560 real(RKG) ,
intent(in) :: pattern
561 real(RKG) ,
allocatable :: arrayStripped(:)
562 type(leftRight_type) ,
intent(in),
optional :: side
567 PURE module function getStrippedDefComB_D1_D0_RK3(array, pattern, side)
result(arrayStripped)
568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
569 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_RK3
572 real(RKG) ,
intent(in),
contiguous :: array(:)
573 real(RKG) ,
intent(in) :: pattern
574 real(RKG) ,
allocatable :: arrayStripped(:)
575 type(leftRight_type) ,
intent(in),
optional :: side
580 PURE module function getStrippedDefComB_D1_D0_RK2(array, pattern, side)
result(arrayStripped)
581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
582 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_RK2
585 real(RKG) ,
intent(in),
contiguous :: array(:)
586 real(RKG) ,
intent(in) :: pattern
587 real(RKG) ,
allocatable :: arrayStripped(:)
588 type(leftRight_type) ,
intent(in),
optional :: side
593 PURE module function getStrippedDefComB_D1_D0_RK1(array, pattern, side)
result(arrayStripped)
594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
595 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D0_RK1
598 real(RKG) ,
intent(in),
contiguous :: array(:)
599 real(RKG) ,
intent(in) :: pattern
600 real(RKG) ,
allocatable :: arrayStripped(:)
601 type(leftRight_type) ,
intent(in),
optional :: side
614 module function getStrippedCusComLR_D0_D0_SK5(array, pattern, iseq, side)
result(arrayStripped)
615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
616 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D0_D0_SK5
619 procedure(
logical(LK)) :: iseq
620 character(
*,SKG) ,
intent(in) :: array
621 character(
*,SKG) ,
intent(in) :: pattern
622 character(:,SKG) ,
allocatable :: arrayStripped
623 type(leftRight_type) ,
intent(in),
optional :: side
628 module function getStrippedCusComLR_D0_D0_SK4(array, pattern, iseq, side)
result(arrayStripped)
629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
630 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D0_D0_SK4
633 procedure(
logical(LK)) :: iseq
634 character(
*,SKG) ,
intent(in) :: array
635 character(
*,SKG) ,
intent(in) :: pattern
636 character(:,SKG) ,
allocatable :: arrayStripped
637 type(leftRight_type) ,
intent(in),
optional :: side
642 module function getStrippedCusComLR_D0_D0_SK3(array, pattern, iseq, side)
result(arrayStripped)
643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
644 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D0_D0_SK3
647 procedure(
logical(LK)) :: iseq
648 character(
*,SKG) ,
intent(in) :: array
649 character(
*,SKG) ,
intent(in) :: pattern
650 character(:,SKG) ,
allocatable :: arrayStripped
651 type(leftRight_type) ,
intent(in),
optional :: side
656 module function getStrippedCusComLR_D0_D0_SK2(array, pattern, iseq, side)
result(arrayStripped)
657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
658 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D0_D0_SK2
661 procedure(
logical(LK)) :: iseq
662 character(
*,SKG) ,
intent(in) :: array
663 character(
*,SKG) ,
intent(in) :: pattern
664 character(:,SKG) ,
allocatable :: arrayStripped
665 type(leftRight_type) ,
intent(in),
optional :: side
670 module function getStrippedCusComLR_D0_D0_SK1(array, pattern, iseq, side)
result(arrayStripped)
671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
672 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D0_D0_SK1
675 procedure(
logical(LK)) :: iseq
676 character(
*,SKG) ,
intent(in) :: array
677 character(
*,SKG) ,
intent(in) :: pattern
678 character(:,SKG) ,
allocatable :: arrayStripped
679 type(leftRight_type) ,
intent(in),
optional :: side
686 module function getStrippedCusComLR_D1_D0_SK5(array, pattern, iseq, side)
result(arrayStripped)
687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
688 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_SK5
691 procedure(
logical(LK)) :: iseq
692 character(
*,SKG) ,
intent(in) :: pattern
693 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
694 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
695 type(leftRight_type) ,
intent(in),
optional :: side
700 module function getStrippedCusComLR_D1_D0_SK4(array, pattern, iseq, side)
result(arrayStripped)
701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
702 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_SK4
705 procedure(
logical(LK)) :: iseq
706 character(
*,SKG) ,
intent(in) :: pattern
707 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
708 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
709 type(leftRight_type) ,
intent(in),
optional :: side
714 module function getStrippedCusComLR_D1_D0_SK3(array, pattern, iseq, side)
result(arrayStripped)
715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
716 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_SK3
719 procedure(
logical(LK)) :: iseq
720 character(
*,SKG) ,
intent(in) :: pattern
721 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
722 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
723 type(leftRight_type) ,
intent(in),
optional :: side
728 module function getStrippedCusComLR_D1_D0_SK2(array, pattern, iseq, side)
result(arrayStripped)
729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
730 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_SK2
733 procedure(
logical(LK)) :: iseq
734 character(
*,SKG) ,
intent(in) :: pattern
735 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
736 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
737 type(leftRight_type) ,
intent(in),
optional :: side
742 module function getStrippedCusComLR_D1_D0_SK1(array, pattern, iseq, side)
result(arrayStripped)
743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
744 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_SK1
747 procedure(
logical(LK)) :: iseq
748 character(
*,SKG) ,
intent(in) :: pattern
749 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
750 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
751 type(leftRight_type) ,
intent(in),
optional :: side
758 module function getStrippedCusComLR_D1_D0_IK5(array, pattern, iseq, side)
result(arrayStripped)
759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
760 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_IK5
763 procedure(
logical(LK)) :: iseq
764 integer(IKG) ,
intent(in),
contiguous :: array(:)
765 integer(IKG) ,
intent(in) :: pattern
766 integer(IKG) ,
allocatable :: arrayStripped(:)
767 type(leftRight_type) ,
intent(in),
optional :: side
772 module function getStrippedCusComLR_D1_D0_IK4(array, pattern, iseq, side)
result(arrayStripped)
773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
774 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_IK4
777 procedure(
logical(LK)) :: iseq
778 integer(IKG) ,
intent(in),
contiguous :: array(:)
779 integer(IKG) ,
intent(in) :: pattern
780 integer(IKG) ,
allocatable :: arrayStripped(:)
781 type(leftRight_type) ,
intent(in),
optional :: side
786 module function getStrippedCusComLR_D1_D0_IK3(array, pattern, iseq, side)
result(arrayStripped)
787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
788 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_IK3
791 procedure(
logical(LK)) :: iseq
792 integer(IKG) ,
intent(in),
contiguous :: array(:)
793 integer(IKG) ,
intent(in) :: pattern
794 integer(IKG) ,
allocatable :: arrayStripped(:)
795 type(leftRight_type) ,
intent(in),
optional :: side
800 module function getStrippedCusComLR_D1_D0_IK2(array, pattern, iseq, side)
result(arrayStripped)
801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
802 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_IK2
805 procedure(
logical(LK)) :: iseq
806 integer(IKG) ,
intent(in),
contiguous :: array(:)
807 integer(IKG) ,
intent(in) :: pattern
808 integer(IKG) ,
allocatable :: arrayStripped(:)
809 type(leftRight_type) ,
intent(in),
optional :: side
814 module function getStrippedCusComLR_D1_D0_IK1(array, pattern, iseq, side)
result(arrayStripped)
815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
816 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_IK1
819 procedure(
logical(LK)) :: iseq
820 integer(IKG) ,
intent(in),
contiguous :: array(:)
821 integer(IKG) ,
intent(in) :: pattern
822 integer(IKG) ,
allocatable :: arrayStripped(:)
823 type(leftRight_type) ,
intent(in),
optional :: side
830 module function getStrippedCusComLR_D1_D0_LK5(array, pattern, iseq, side)
result(arrayStripped)
831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
832 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_LK5
835 procedure(
logical(LK)) :: iseq
836 logical(LKG) ,
intent(in),
contiguous :: array(:)
837 logical(LKG) ,
intent(in) :: pattern
838 logical(LKG) ,
allocatable :: arrayStripped(:)
839 type(leftRight_type) ,
intent(in),
optional :: side
844 module function getStrippedCusComLR_D1_D0_LK4(array, pattern, iseq, side)
result(arrayStripped)
845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
846 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_LK4
849 procedure(
logical(LK)) :: iseq
850 logical(LKG) ,
intent(in),
contiguous :: array(:)
851 logical(LKG) ,
intent(in) :: pattern
852 logical(LKG) ,
allocatable :: arrayStripped(:)
853 type(leftRight_type) ,
intent(in),
optional :: side
858 module function getStrippedCusComLR_D1_D0_LK3(array, pattern, iseq, side)
result(arrayStripped)
859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
860 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_LK3
863 procedure(
logical(LK)) :: iseq
864 logical(LKG) ,
intent(in),
contiguous :: array(:)
865 logical(LKG) ,
intent(in) :: pattern
866 logical(LKG) ,
allocatable :: arrayStripped(:)
867 type(leftRight_type) ,
intent(in),
optional :: side
872 module function getStrippedCusComLR_D1_D0_LK2(array, pattern, iseq, side)
result(arrayStripped)
873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
874 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_LK2
877 procedure(
logical(LK)) :: iseq
878 logical(LKG) ,
intent(in),
contiguous :: array(:)
879 logical(LKG) ,
intent(in) :: pattern
880 logical(LKG) ,
allocatable :: arrayStripped(:)
881 type(leftRight_type) ,
intent(in),
optional :: side
886 module function getStrippedCusComLR_D1_D0_LK1(array, pattern, iseq, side)
result(arrayStripped)
887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
888 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_LK1
891 procedure(
logical(LK)) :: iseq
892 logical(LKG) ,
intent(in),
contiguous :: array(:)
893 logical(LKG) ,
intent(in) :: pattern
894 logical(LKG) ,
allocatable :: arrayStripped(:)
895 type(leftRight_type) ,
intent(in),
optional :: side
902 module function getStrippedCusComLR_D1_D0_CK5(array, pattern, iseq, side)
result(arrayStripped)
903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
904 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_CK5
907 procedure(
logical(LK)) :: iseq
908 complex(CKG) ,
intent(in),
contiguous :: array(:)
909 complex(CKG) ,
intent(in) :: pattern
910 complex(CKG) ,
allocatable :: arrayStripped(:)
911 type(leftRight_type) ,
intent(in),
optional :: side
916 module function getStrippedCusComLR_D1_D0_CK4(array, pattern, iseq, side)
result(arrayStripped)
917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
918 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_CK4
921 procedure(
logical(LK)) :: iseq
922 complex(CKG) ,
intent(in),
contiguous :: array(:)
923 complex(CKG) ,
intent(in) :: pattern
924 complex(CKG) ,
allocatable :: arrayStripped(:)
925 type(leftRight_type) ,
intent(in),
optional :: side
930 module function getStrippedCusComLR_D1_D0_CK3(array, pattern, iseq, side)
result(arrayStripped)
931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
932 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_CK3
935 procedure(
logical(LK)) :: iseq
936 complex(CKG) ,
intent(in),
contiguous :: array(:)
937 complex(CKG) ,
intent(in) :: pattern
938 complex(CKG) ,
allocatable :: arrayStripped(:)
939 type(leftRight_type) ,
intent(in),
optional :: side
944 module function getStrippedCusComLR_D1_D0_CK2(array, pattern, iseq, side)
result(arrayStripped)
945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
946 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_CK2
949 procedure(
logical(LK)) :: iseq
950 complex(CKG) ,
intent(in),
contiguous :: array(:)
951 complex(CKG) ,
intent(in) :: pattern
952 complex(CKG) ,
allocatable :: arrayStripped(:)
953 type(leftRight_type) ,
intent(in),
optional :: side
958 module function getStrippedCusComLR_D1_D0_CK1(array, pattern, iseq, side)
result(arrayStripped)
959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
960 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_CK1
963 procedure(
logical(LK)) :: iseq
964 complex(CKG) ,
intent(in),
contiguous :: array(:)
965 complex(CKG) ,
intent(in) :: pattern
966 complex(CKG) ,
allocatable :: arrayStripped(:)
967 type(leftRight_type) ,
intent(in),
optional :: side
974 module function getStrippedCusComLR_D1_D0_RK5(array, pattern, iseq, side)
result(arrayStripped)
975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
976 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_RK5
979 real(RKG) ,
intent(in),
contiguous :: array(:)
980 real(RKG) ,
intent(in) :: pattern
981 procedure(
logical(LK)) :: iseq
982 real(RKG) ,
allocatable :: arrayStripped(:)
983 type(leftRight_type) ,
intent(in),
optional :: side
988 module function getStrippedCusComLR_D1_D0_RK4(array, pattern, iseq, side)
result(arrayStripped)
989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
990 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_RK4
993 real(RKG) ,
intent(in),
contiguous :: array(:)
994 real(RKG) ,
intent(in) :: pattern
995 procedure(
logical(LK)) :: iseq
996 real(RKG) ,
allocatable :: arrayStripped(:)
997 type(leftRight_type) ,
intent(in),
optional :: side
1002 module function getStrippedCusComLR_D1_D0_RK3(array, pattern, iseq, side)
result(arrayStripped)
1003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1004 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_RK3
1007 real(RKG) ,
intent(in),
contiguous :: array(:)
1008 real(RKG) ,
intent(in) :: pattern
1009 procedure(
logical(LK)) :: iseq
1010 real(RKG) ,
allocatable :: arrayStripped(:)
1011 type(leftRight_type) ,
intent(in),
optional :: side
1016 module function getStrippedCusComLR_D1_D0_RK2(array, pattern, iseq, side)
result(arrayStripped)
1017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1018 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_RK2
1021 real(RKG) ,
intent(in),
contiguous :: array(:)
1022 real(RKG) ,
intent(in) :: pattern
1023 procedure(
logical(LK)) :: iseq
1024 real(RKG) ,
allocatable :: arrayStripped(:)
1025 type(leftRight_type) ,
intent(in),
optional :: side
1030 module function getStrippedCusComLR_D1_D0_RK1(array, pattern, iseq, side)
result(arrayStripped)
1031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1032 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D0_RK1
1035 real(RKG) ,
intent(in),
contiguous :: array(:)
1036 real(RKG) ,
intent(in) :: pattern
1037 procedure(
logical(LK)) :: iseq
1038 real(RKG) ,
allocatable :: arrayStripped(:)
1039 type(leftRight_type) ,
intent(in),
optional :: side
1052 PURE module function getStrippedDefComB_D1_D1_SK5(array, pattern, side)
result(arrayStripped)
1053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1054 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_SK5
1057 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1058 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1059 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1060 type(leftRight_type) ,
intent(in),
optional :: side
1065 PURE module function getStrippedDefComB_D1_D1_SK4(array, pattern, side)
result(arrayStripped)
1066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1067 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_SK4
1070 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1071 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1072 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1073 type(leftRight_type) ,
intent(in),
optional :: side
1078 PURE module function getStrippedDefComB_D1_D1_SK3(array, pattern, side)
result(arrayStripped)
1079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1080 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_SK3
1083 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1084 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1085 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1086 type(leftRight_type) ,
intent(in),
optional :: side
1091 PURE module function getStrippedDefComB_D1_D1_SK2(array, pattern, side)
result(arrayStripped)
1092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1093 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_SK2
1096 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1097 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1098 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1099 type(leftRight_type) ,
intent(in),
optional :: side
1104 PURE module function getStrippedDefComB_D1_D1_SK1(array, pattern, side)
result(arrayStripped)
1105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1106 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_SK1
1109 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1110 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1111 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1112 type(leftRight_type) ,
intent(in),
optional :: side
1119 PURE module function getStrippedDefComB_D1_D1_IK5(array, pattern, side)
result(arrayStripped)
1120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1121 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_IK5
1124 integer(IKG) ,
intent(in),
contiguous :: array(:)
1125 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1126 integer(IKG) ,
allocatable :: arrayStripped(:)
1127 type(leftRight_type) ,
intent(in),
optional :: side
1132 PURE module function getStrippedDefComB_D1_D1_IK4(array, pattern, side)
result(arrayStripped)
1133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1134 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_IK4
1137 integer(IKG) ,
intent(in),
contiguous :: array(:)
1138 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1139 integer(IKG) ,
allocatable :: arrayStripped(:)
1140 type(leftRight_type) ,
intent(in),
optional :: side
1145 PURE module function getStrippedDefComB_D1_D1_IK3(array, pattern, side)
result(arrayStripped)
1146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1147 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_IK3
1150 integer(IKG) ,
intent(in),
contiguous :: array(:)
1151 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1152 integer(IKG) ,
allocatable :: arrayStripped(:)
1153 type(leftRight_type) ,
intent(in),
optional :: side
1158 PURE module function getStrippedDefComB_D1_D1_IK2(array, pattern, side)
result(arrayStripped)
1159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1160 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_IK2
1163 integer(IKG) ,
intent(in),
contiguous :: array(:)
1164 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1165 integer(IKG) ,
allocatable :: arrayStripped(:)
1166 type(leftRight_type) ,
intent(in),
optional :: side
1171 PURE module function getStrippedDefComB_D1_D1_IK1(array, pattern, side)
result(arrayStripped)
1172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1173 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_IK1
1176 integer(IKG) ,
intent(in),
contiguous :: array(:)
1177 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1178 integer(IKG) ,
allocatable :: arrayStripped(:)
1179 type(leftRight_type) ,
intent(in),
optional :: side
1186 PURE module function getStrippedDefComB_D1_D1_LK5(array, pattern, side)
result(arrayStripped)
1187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1188 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_LK5
1191 logical(LKG) ,
intent(in),
contiguous :: array(:)
1192 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1193 logical(LKG) ,
allocatable :: arrayStripped(:)
1194 type(leftRight_type) ,
intent(in),
optional :: side
1199 PURE module function getStrippedDefComB_D1_D1_LK4(array, pattern, side)
result(arrayStripped)
1200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1201 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_LK4
1204 logical(LKG) ,
intent(in),
contiguous :: array(:)
1205 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1206 logical(LKG) ,
allocatable :: arrayStripped(:)
1207 type(leftRight_type) ,
intent(in),
optional :: side
1212 PURE module function getStrippedDefComB_D1_D1_LK3(array, pattern, side)
result(arrayStripped)
1213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1214 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_LK3
1217 logical(LKG) ,
intent(in),
contiguous :: array(:)
1218 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1219 logical(LKG) ,
allocatable :: arrayStripped(:)
1220 type(leftRight_type) ,
intent(in),
optional :: side
1225 PURE module function getStrippedDefComB_D1_D1_LK2(array, pattern, side)
result(arrayStripped)
1226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1227 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_LK2
1230 logical(LKG) ,
intent(in),
contiguous :: array(:)
1231 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1232 logical(LKG) ,
allocatable :: arrayStripped(:)
1233 type(leftRight_type) ,
intent(in),
optional :: side
1238 PURE module function getStrippedDefComB_D1_D1_LK1(array, pattern, side)
result(arrayStripped)
1239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1240 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_LK1
1243 logical(LKG) ,
intent(in),
contiguous :: array(:)
1244 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1245 logical(LKG) ,
allocatable :: arrayStripped(:)
1246 type(leftRight_type) ,
intent(in),
optional :: side
1253 PURE module function getStrippedDefComB_D1_D1_CK5(array, pattern, side)
result(arrayStripped)
1254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1255 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_CK5
1258 complex(CKG) ,
intent(in),
contiguous :: array(:)
1259 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1260 complex(CKG) ,
allocatable :: arrayStripped(:)
1261 type(leftRight_type) ,
intent(in),
optional :: side
1266 PURE module function getStrippedDefComB_D1_D1_CK4(array, pattern, side)
result(arrayStripped)
1267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1268 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_CK4
1271 complex(CKG) ,
intent(in),
contiguous :: array(:)
1272 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1273 complex(CKG) ,
allocatable :: arrayStripped(:)
1274 type(leftRight_type) ,
intent(in),
optional :: side
1279 PURE module function getStrippedDefComB_D1_D1_CK3(array, pattern, side)
result(arrayStripped)
1280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1281 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_CK3
1284 complex(CKG) ,
intent(in),
contiguous :: array(:)
1285 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1286 complex(CKG) ,
allocatable :: arrayStripped(:)
1287 type(leftRight_type) ,
intent(in),
optional :: side
1292 PURE module function getStrippedDefComB_D1_D1_CK2(array, pattern, side)
result(arrayStripped)
1293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1294 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_CK2
1297 complex(CKG) ,
intent(in),
contiguous :: array(:)
1298 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1299 complex(CKG) ,
allocatable :: arrayStripped(:)
1300 type(leftRight_type) ,
intent(in),
optional :: side
1305 PURE module function getStrippedDefComB_D1_D1_CK1(array, pattern, side)
result(arrayStripped)
1306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1307 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_CK1
1310 complex(CKG) ,
intent(in),
contiguous :: array(:)
1311 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1312 complex(CKG) ,
allocatable :: arrayStripped(:)
1313 type(leftRight_type) ,
intent(in),
optional :: side
1320 PURE module function getStrippedDefComB_D1_D1_RK5(array, pattern, side)
result(arrayStripped)
1321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1322 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_RK5
1325 real(RKG) ,
intent(in),
contiguous :: array(:)
1326 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1327 real(RKG) ,
allocatable :: arrayStripped(:)
1328 type(leftRight_type) ,
intent(in),
optional :: side
1333 PURE module function getStrippedDefComB_D1_D1_RK4(array, pattern, side)
result(arrayStripped)
1334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1335 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_RK4
1338 real(RKG) ,
intent(in),
contiguous :: array(:)
1339 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1340 real(RKG) ,
allocatable :: arrayStripped(:)
1341 type(leftRight_type) ,
intent(in),
optional :: side
1346 PURE module function getStrippedDefComB_D1_D1_RK3(array, pattern, side)
result(arrayStripped)
1347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1348 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_RK3
1351 real(RKG) ,
intent(in),
contiguous :: array(:)
1352 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1353 real(RKG) ,
allocatable :: arrayStripped(:)
1354 type(leftRight_type) ,
intent(in),
optional :: side
1359 PURE module function getStrippedDefComB_D1_D1_RK2(array, pattern, side)
result(arrayStripped)
1360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1361 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_RK2
1364 real(RKG) ,
intent(in),
contiguous :: array(:)
1365 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1366 real(RKG) ,
allocatable :: arrayStripped(:)
1367 type(leftRight_type) ,
intent(in),
optional :: side
1372 PURE module function getStrippedDefComB_D1_D1_RK1(array, pattern, side)
result(arrayStripped)
1373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1374 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComB_D1_D1_RK1
1377 real(RKG) ,
intent(in),
contiguous :: array(:)
1378 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1379 real(RKG) ,
allocatable :: arrayStripped(:)
1380 type(leftRight_type) ,
intent(in),
optional :: side
1393 module function getStrippedCusComLR_D1_D1_SK5(array, pattern, iseq, side)
result(arrayStripped)
1394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1395 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_SK5
1398 procedure(
logical(LK)) :: iseq
1399 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1400 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1401 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1402 type(leftRight_type) ,
intent(in),
optional :: side
1407 module function getStrippedCusComLR_D1_D1_SK4(array, pattern, iseq, side)
result(arrayStripped)
1408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1409 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_SK4
1412 procedure(
logical(LK)) :: iseq
1413 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1414 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1415 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1416 type(leftRight_type) ,
intent(in),
optional :: side
1421 module function getStrippedCusComLR_D1_D1_SK3(array, pattern, iseq, side)
result(arrayStripped)
1422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1423 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_SK3
1426 procedure(
logical(LK)) :: iseq
1427 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1428 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1429 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1430 type(leftRight_type) ,
intent(in),
optional :: side
1435 module function getStrippedCusComLR_D1_D1_SK2(array, pattern, iseq, side)
result(arrayStripped)
1436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1437 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_SK2
1440 procedure(
logical(LK)) :: iseq
1441 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1442 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1443 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1444 type(leftRight_type) ,
intent(in),
optional :: side
1449 module function getStrippedCusComLR_D1_D1_SK1(array, pattern, iseq, side)
result(arrayStripped)
1450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1451 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_SK1
1454 procedure(
logical(LK)) :: iseq
1455 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1456 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1457 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1458 type(leftRight_type) ,
intent(in),
optional :: side
1465 module function getStrippedCusComLR_D1_D1_IK5(array, pattern, iseq, side)
result(arrayStripped)
1466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1467 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_IK5
1470 procedure(
logical(LK)) :: iseq
1471 integer(IKG) ,
intent(in),
contiguous :: array(:)
1472 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1473 integer(IKG) ,
allocatable :: arrayStripped(:)
1474 type(leftRight_type) ,
intent(in),
optional :: side
1479 module function getStrippedCusComLR_D1_D1_IK4(array, pattern, iseq, side)
result(arrayStripped)
1480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1481 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_IK4
1484 procedure(
logical(LK)) :: iseq
1485 integer(IKG) ,
intent(in),
contiguous :: array(:)
1486 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1487 integer(IKG) ,
allocatable :: arrayStripped(:)
1488 type(leftRight_type) ,
intent(in),
optional :: side
1493 module function getStrippedCusComLR_D1_D1_IK3(array, pattern, iseq, side)
result(arrayStripped)
1494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1495 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_IK3
1498 procedure(
logical(LK)) :: iseq
1499 integer(IKG) ,
intent(in),
contiguous :: array(:)
1500 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1501 integer(IKG) ,
allocatable :: arrayStripped(:)
1502 type(leftRight_type) ,
intent(in),
optional :: side
1507 module function getStrippedCusComLR_D1_D1_IK2(array, pattern, iseq, side)
result(arrayStripped)
1508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1509 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_IK2
1512 procedure(
logical(LK)) :: iseq
1513 integer(IKG) ,
intent(in),
contiguous :: array(:)
1514 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1515 integer(IKG) ,
allocatable :: arrayStripped(:)
1516 type(leftRight_type) ,
intent(in),
optional :: side
1521 module function getStrippedCusComLR_D1_D1_IK1(array, pattern, iseq, side)
result(arrayStripped)
1522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1523 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_IK1
1526 procedure(
logical(LK)) :: iseq
1527 integer(IKG) ,
intent(in),
contiguous :: array(:)
1528 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1529 integer(IKG) ,
allocatable :: arrayStripped(:)
1530 type(leftRight_type) ,
intent(in),
optional :: side
1537 module function getStrippedCusComLR_D1_D1_LK5(array, pattern, iseq, side)
result(arrayStripped)
1538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1539 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_LK5
1542 procedure(
logical(LK)) :: iseq
1543 logical(LKG) ,
intent(in),
contiguous :: array(:)
1544 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1545 logical(LKG) ,
allocatable :: arrayStripped(:)
1546 type(leftRight_type) ,
intent(in),
optional :: side
1551 module function getStrippedCusComLR_D1_D1_LK4(array, pattern, iseq, side)
result(arrayStripped)
1552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1553 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_LK4
1556 procedure(
logical(LK)) :: iseq
1557 logical(LKG) ,
intent(in),
contiguous :: array(:)
1558 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1559 logical(LKG) ,
allocatable :: arrayStripped(:)
1560 type(leftRight_type) ,
intent(in),
optional :: side
1565 module function getStrippedCusComLR_D1_D1_LK3(array, pattern, iseq, side)
result(arrayStripped)
1566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1567 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_LK3
1570 procedure(
logical(LK)) :: iseq
1571 logical(LKG) ,
intent(in),
contiguous :: array(:)
1572 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1573 logical(LKG) ,
allocatable :: arrayStripped(:)
1574 type(leftRight_type) ,
intent(in),
optional :: side
1579 module function getStrippedCusComLR_D1_D1_LK2(array, pattern, iseq, side)
result(arrayStripped)
1580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1581 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_LK2
1584 procedure(
logical(LK)) :: iseq
1585 logical(LKG) ,
intent(in),
contiguous :: array(:)
1586 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1587 logical(LKG) ,
allocatable :: arrayStripped(:)
1588 type(leftRight_type) ,
intent(in),
optional :: side
1593 module function getStrippedCusComLR_D1_D1_LK1(array, pattern, iseq, side)
result(arrayStripped)
1594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1595 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_LK1
1598 procedure(
logical(LK)) :: iseq
1599 logical(LKG) ,
intent(in),
contiguous :: array(:)
1600 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1601 logical(LKG) ,
allocatable :: arrayStripped(:)
1602 type(leftRight_type) ,
intent(in),
optional :: side
1609 module function getStrippedCusComLR_D1_D1_CK5(array, pattern, iseq, side)
result(arrayStripped)
1610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1611 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_CK5
1614 procedure(
logical(LK)) :: iseq
1615 complex(CKG) ,
intent(in),
contiguous :: array(:)
1616 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1617 complex(CKG) ,
allocatable :: arrayStripped(:)
1618 type(leftRight_type) ,
intent(in),
optional :: side
1623 module function getStrippedCusComLR_D1_D1_CK4(array, pattern, iseq, side)
result(arrayStripped)
1624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1625 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_CK4
1628 procedure(
logical(LK)) :: iseq
1629 complex(CKG) ,
intent(in),
contiguous :: array(:)
1630 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1631 complex(CKG) ,
allocatable :: arrayStripped(:)
1632 type(leftRight_type) ,
intent(in),
optional :: side
1637 module function getStrippedCusComLR_D1_D1_CK3(array, pattern, iseq, side)
result(arrayStripped)
1638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1639 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_CK3
1642 procedure(
logical(LK)) :: iseq
1643 complex(CKG) ,
intent(in),
contiguous :: array(:)
1644 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1645 complex(CKG) ,
allocatable :: arrayStripped(:)
1646 type(leftRight_type) ,
intent(in),
optional :: side
1651 module function getStrippedCusComLR_D1_D1_CK2(array, pattern, iseq, side)
result(arrayStripped)
1652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1653 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_CK2
1656 procedure(
logical(LK)) :: iseq
1657 complex(CKG) ,
intent(in),
contiguous :: array(:)
1658 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1659 complex(CKG) ,
allocatable :: arrayStripped(:)
1660 type(leftRight_type) ,
intent(in),
optional :: side
1665 module function getStrippedCusComLR_D1_D1_CK1(array, pattern, iseq, side)
result(arrayStripped)
1666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1667 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_CK1
1670 procedure(
logical(LK)) :: iseq
1671 complex(CKG) ,
intent(in),
contiguous :: array(:)
1672 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1673 complex(CKG) ,
allocatable :: arrayStripped(:)
1674 type(leftRight_type) ,
intent(in),
optional :: side
1681 module function getStrippedCusComLR_D1_D1_RK5(array, pattern, iseq, side)
result(arrayStripped)
1682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1683 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_RK5
1686 procedure(
logical(LK)) :: iseq
1687 real(RKG) ,
intent(in),
contiguous :: array(:)
1688 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1689 real(RKG) ,
allocatable :: arrayStripped(:)
1690 type(leftRight_type) ,
intent(in),
optional :: side
1695 module function getStrippedCusComLR_D1_D1_RK4(array, pattern, iseq, side)
result(arrayStripped)
1696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1697 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_RK4
1700 procedure(
logical(LK)) :: iseq
1701 real(RKG) ,
intent(in),
contiguous :: array(:)
1702 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1703 real(RKG) ,
allocatable :: arrayStripped(:)
1704 type(leftRight_type) ,
intent(in),
optional :: side
1709 module function getStrippedCusComLR_D1_D1_RK3(array, pattern, iseq, side)
result(arrayStripped)
1710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1711 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_RK3
1714 procedure(
logical(LK)) :: iseq
1715 real(RKG) ,
intent(in),
contiguous :: array(:)
1716 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1717 real(RKG) ,
allocatable :: arrayStripped(:)
1718 type(leftRight_type) ,
intent(in),
optional :: side
1723 module function getStrippedCusComLR_D1_D1_RK2(array, pattern, iseq, side)
result(arrayStripped)
1724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1725 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_RK2
1728 procedure(
logical(LK)) :: iseq
1729 real(RKG) ,
intent(in),
contiguous :: array(:)
1730 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1731 real(RKG) ,
allocatable :: arrayStripped(:)
1732 type(leftRight_type) ,
intent(in),
optional :: side
1737 module function getStrippedCusComLR_D1_D1_RK1(array, pattern, iseq, side)
result(arrayStripped)
1738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1739 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComLR_D1_D1_RK1
1742 procedure(
logical(LK)) :: iseq
1743 real(RKG) ,
intent(in),
contiguous :: array(:)
1744 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1745 real(RKG) ,
allocatable :: arrayStripped(:)
1746 type(leftRight_type) ,
intent(in),
optional :: side
1769 PURE module function getStrippedDefComSL_D0_D0_SK5(array, pattern, side)
result(arrayStripped)
1770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1771 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D0_D0_SK5
1774 character(
*,SKG) ,
intent(in) :: array
1775 character(
*,SKG) ,
intent(in) :: pattern
1776 character(:,SKG) ,
allocatable :: arrayStripped
1777 type(left_type) ,
intent(in) :: side
1782 PURE module function getStrippedDefComSL_D0_D0_SK4(array, pattern, side)
result(arrayStripped)
1783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1784 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D0_D0_SK4
1787 character(
*,SKG) ,
intent(in) :: array
1788 character(
*,SKG) ,
intent(in) :: pattern
1789 character(:,SKG) ,
allocatable :: arrayStripped
1790 type(left_type) ,
intent(in) :: side
1795 PURE module function getStrippedDefComSL_D0_D0_SK3(array, pattern, side)
result(arrayStripped)
1796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1797 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D0_D0_SK3
1800 character(
*,SKG) ,
intent(in) :: array
1801 character(
*,SKG) ,
intent(in) :: pattern
1802 character(:,SKG) ,
allocatable :: arrayStripped
1803 type(left_type) ,
intent(in) :: side
1808 PURE module function getStrippedDefComSL_D0_D0_SK2(array, pattern, side)
result(arrayStripped)
1809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1810 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D0_D0_SK2
1813 character(
*,SKG) ,
intent(in) :: array
1814 character(
*,SKG) ,
intent(in) :: pattern
1815 character(:,SKG) ,
allocatable :: arrayStripped
1816 type(left_type) ,
intent(in) :: side
1821 PURE module function getStrippedDefComSL_D0_D0_SK1(array, pattern, side)
result(arrayStripped)
1822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1823 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D0_D0_SK1
1826 character(
*,SKG) ,
intent(in) :: array
1827 character(
*,SKG) ,
intent(in) :: pattern
1828 character(:,SKG) ,
allocatable :: arrayStripped
1829 type(left_type) ,
intent(in) :: side
1836 PURE module function getStrippedDefComSL_D1_D0_SK5(array, pattern, side)
result(arrayStripped)
1837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1838 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_SK5
1841 character(
*,SKG) ,
intent(in) :: pattern
1842 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1843 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1844 type(left_type) ,
intent(in) :: side
1849 PURE module function getStrippedDefComSL_D1_D0_SK4(array, pattern, side)
result(arrayStripped)
1850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1851 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_SK4
1854 character(
*,SKG) ,
intent(in) :: pattern
1855 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1856 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1857 type(left_type) ,
intent(in) :: side
1862 PURE module function getStrippedDefComSL_D1_D0_SK3(array, pattern, side)
result(arrayStripped)
1863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1864 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_SK3
1867 character(
*,SKG) ,
intent(in) :: pattern
1868 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1869 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1870 type(left_type) ,
intent(in) :: side
1875 PURE module function getStrippedDefComSL_D1_D0_SK2(array, pattern, side)
result(arrayStripped)
1876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1877 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_SK2
1880 character(
*,SKG) ,
intent(in) :: pattern
1881 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1882 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1883 type(left_type) ,
intent(in) :: side
1888 PURE module function getStrippedDefComSL_D1_D0_SK1(array, pattern, side)
result(arrayStripped)
1889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1890 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_SK1
1893 character(
*,SKG) ,
intent(in) :: pattern
1894 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1895 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
1896 type(left_type) ,
intent(in) :: side
1903 PURE module function getStrippedDefComSL_D1_D0_IK5(array, pattern, side)
result(arrayStripped)
1904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1905 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_IK5
1908 integer(IKG) ,
intent(in),
contiguous :: array(:)
1909 integer(IKG) ,
intent(in) :: pattern
1910 integer(IKG) ,
allocatable :: arrayStripped(:)
1911 type(left_type) ,
intent(in) :: side
1916 PURE module function getStrippedDefComSL_D1_D0_IK4(array, pattern, side)
result(arrayStripped)
1917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1918 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_IK4
1921 integer(IKG) ,
intent(in),
contiguous :: array(:)
1922 integer(IKG) ,
intent(in) :: pattern
1923 integer(IKG) ,
allocatable :: arrayStripped(:)
1924 type(left_type) ,
intent(in) :: side
1929 PURE module function getStrippedDefComSL_D1_D0_IK3(array, pattern, side)
result(arrayStripped)
1930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1931 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_IK3
1934 integer(IKG) ,
intent(in),
contiguous :: array(:)
1935 integer(IKG) ,
intent(in) :: pattern
1936 integer(IKG) ,
allocatable :: arrayStripped(:)
1937 type(left_type) ,
intent(in) :: side
1942 PURE module function getStrippedDefComSL_D1_D0_IK2(array, pattern, side)
result(arrayStripped)
1943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1944 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_IK2
1947 integer(IKG) ,
intent(in),
contiguous :: array(:)
1948 integer(IKG) ,
intent(in) :: pattern
1949 integer(IKG) ,
allocatable :: arrayStripped(:)
1950 type(left_type) ,
intent(in) :: side
1955 PURE module function getStrippedDefComSL_D1_D0_IK1(array, pattern, side)
result(arrayStripped)
1956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1957 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_IK1
1960 integer(IKG) ,
intent(in),
contiguous :: array(:)
1961 integer(IKG) ,
intent(in) :: pattern
1962 integer(IKG) ,
allocatable :: arrayStripped(:)
1963 type(left_type) ,
intent(in) :: side
1970 PURE module function getStrippedDefComSL_D1_D0_LK5(array, pattern, side)
result(arrayStripped)
1971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1972 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_LK5
1975 logical(LKG) ,
intent(in),
contiguous :: array(:)
1976 logical(LKG) ,
intent(in) :: pattern
1977 logical(LKG) ,
allocatable :: arrayStripped(:)
1978 type(left_type) ,
intent(in) :: side
1983 PURE module function getStrippedDefComSL_D1_D0_LK4(array, pattern, side)
result(arrayStripped)
1984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1985 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_LK4
1988 logical(LKG) ,
intent(in),
contiguous :: array(:)
1989 logical(LKG) ,
intent(in) :: pattern
1990 logical(LKG) ,
allocatable :: arrayStripped(:)
1991 type(left_type) ,
intent(in) :: side
1996 PURE module function getStrippedDefComSL_D1_D0_LK3(array, pattern, side)
result(arrayStripped)
1997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1998 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_LK3
2001 logical(LKG) ,
intent(in),
contiguous :: array(:)
2002 logical(LKG) ,
intent(in) :: pattern
2003 logical(LKG) ,
allocatable :: arrayStripped(:)
2004 type(left_type) ,
intent(in) :: side
2009 PURE module function getStrippedDefComSL_D1_D0_LK2(array, pattern, side)
result(arrayStripped)
2010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2011 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_LK2
2014 logical(LKG) ,
intent(in),
contiguous :: array(:)
2015 logical(LKG) ,
intent(in) :: pattern
2016 logical(LKG) ,
allocatable :: arrayStripped(:)
2017 type(left_type) ,
intent(in) :: side
2022 PURE module function getStrippedDefComSL_D1_D0_LK1(array, pattern, side)
result(arrayStripped)
2023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2024 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_LK1
2027 logical(LKG) ,
intent(in),
contiguous :: array(:)
2028 logical(LKG) ,
intent(in) :: pattern
2029 logical(LKG) ,
allocatable :: arrayStripped(:)
2030 type(left_type) ,
intent(in) :: side
2037 PURE module function getStrippedDefComSL_D1_D0_CK5(array, pattern, side)
result(arrayStripped)
2038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2039 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_CK5
2042 complex(CKG) ,
intent(in),
contiguous :: array(:)
2043 complex(CKG) ,
intent(in) :: pattern
2044 complex(CKG) ,
allocatable :: arrayStripped(:)
2045 type(left_type) ,
intent(in) :: side
2050 PURE module function getStrippedDefComSL_D1_D0_CK4(array, pattern, side)
result(arrayStripped)
2051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2052 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_CK4
2055 complex(CKG) ,
intent(in),
contiguous :: array(:)
2056 complex(CKG) ,
intent(in) :: pattern
2057 complex(CKG) ,
allocatable :: arrayStripped(:)
2058 type(left_type) ,
intent(in) :: side
2063 PURE module function getStrippedDefComSL_D1_D0_CK3(array, pattern, side)
result(arrayStripped)
2064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2065 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_CK3
2068 complex(CKG) ,
intent(in),
contiguous :: array(:)
2069 complex(CKG) ,
intent(in) :: pattern
2070 complex(CKG) ,
allocatable :: arrayStripped(:)
2071 type(left_type) ,
intent(in) :: side
2076 PURE module function getStrippedDefComSL_D1_D0_CK2(array, pattern, side)
result(arrayStripped)
2077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2078 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_CK2
2081 complex(CKG) ,
intent(in),
contiguous :: array(:)
2082 complex(CKG) ,
intent(in) :: pattern
2083 complex(CKG) ,
allocatable :: arrayStripped(:)
2084 type(left_type) ,
intent(in) :: side
2089 PURE module function getStrippedDefComSL_D1_D0_CK1(array, pattern, side)
result(arrayStripped)
2090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2091 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_CK1
2094 complex(CKG) ,
intent(in),
contiguous :: array(:)
2095 complex(CKG) ,
intent(in) :: pattern
2096 complex(CKG) ,
allocatable :: arrayStripped(:)
2097 type(left_type) ,
intent(in) :: side
2104 PURE module function getStrippedDefComSL_D1_D0_RK5(array, pattern, side)
result(arrayStripped)
2105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2106 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_RK5
2109 real(RKG) ,
intent(in),
contiguous :: array(:)
2110 real(RKG) ,
intent(in) :: pattern
2111 real(RKG) ,
allocatable :: arrayStripped(:)
2112 type(left_type) ,
intent(in) :: side
2117 PURE module function getStrippedDefComSL_D1_D0_RK4(array, pattern, side)
result(arrayStripped)
2118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2119 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_RK4
2122 real(RKG) ,
intent(in),
contiguous :: array(:)
2123 real(RKG) ,
intent(in) :: pattern
2124 real(RKG) ,
allocatable :: arrayStripped(:)
2125 type(left_type) ,
intent(in) :: side
2130 PURE module function getStrippedDefComSL_D1_D0_RK3(array, pattern, side)
result(arrayStripped)
2131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2132 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_RK3
2135 real(RKG) ,
intent(in),
contiguous :: array(:)
2136 real(RKG) ,
intent(in) :: pattern
2137 real(RKG) ,
allocatable :: arrayStripped(:)
2138 type(left_type) ,
intent(in) :: side
2143 PURE module function getStrippedDefComSL_D1_D0_RK2(array, pattern, side)
result(arrayStripped)
2144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2145 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_RK2
2148 real(RKG) ,
intent(in),
contiguous :: array(:)
2149 real(RKG) ,
intent(in) :: pattern
2150 real(RKG) ,
allocatable :: arrayStripped(:)
2151 type(left_type) ,
intent(in) :: side
2156 PURE module function getStrippedDefComSL_D1_D0_RK1(array, pattern, side)
result(arrayStripped)
2157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2158 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D0_RK1
2161 real(RKG) ,
intent(in),
contiguous :: array(:)
2162 real(RKG) ,
intent(in) :: pattern
2163 real(RKG) ,
allocatable :: arrayStripped(:)
2164 type(left_type) ,
intent(in) :: side
2177 module function getStrippedCusComSL_D0_D0_SK5(array, pattern, iseq, side)
result(arrayStripped)
2178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2179 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D0_D0_SK5
2182 procedure(
logical(LK)) :: iseq
2183 character(
*,SKG) ,
intent(in) :: array
2184 character(
*,SKG) ,
intent(in) :: pattern
2185 character(:,SKG) ,
allocatable :: arrayStripped
2186 type(left_type) ,
intent(in) :: side
2191 module function getStrippedCusComSL_D0_D0_SK4(array, pattern, iseq, side)
result(arrayStripped)
2192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2193 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D0_D0_SK4
2196 procedure(
logical(LK)) :: iseq
2197 character(
*,SKG) ,
intent(in) :: array
2198 character(
*,SKG) ,
intent(in) :: pattern
2199 character(:,SKG) ,
allocatable :: arrayStripped
2200 type(left_type) ,
intent(in) :: side
2205 module function getStrippedCusComSL_D0_D0_SK3(array, pattern, iseq, side)
result(arrayStripped)
2206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2207 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D0_D0_SK3
2210 procedure(
logical(LK)) :: iseq
2211 character(
*,SKG) ,
intent(in) :: array
2212 character(
*,SKG) ,
intent(in) :: pattern
2213 character(:,SKG) ,
allocatable :: arrayStripped
2214 type(left_type) ,
intent(in) :: side
2219 module function getStrippedCusComSL_D0_D0_SK2(array, pattern, iseq, side)
result(arrayStripped)
2220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2221 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D0_D0_SK2
2224 procedure(
logical(LK)) :: iseq
2225 character(
*,SKG) ,
intent(in) :: array
2226 character(
*,SKG) ,
intent(in) :: pattern
2227 character(:,SKG) ,
allocatable :: arrayStripped
2228 type(left_type) ,
intent(in) :: side
2233 module function getStrippedCusComSL_D0_D0_SK1(array, pattern, iseq, side)
result(arrayStripped)
2234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2235 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D0_D0_SK1
2238 procedure(
logical(LK)) :: iseq
2239 character(
*,SKG) ,
intent(in) :: array
2240 character(
*,SKG) ,
intent(in) :: pattern
2241 character(:,SKG) ,
allocatable :: arrayStripped
2242 type(left_type) ,
intent(in) :: side
2249 module function getStrippedCusComSL_D1_D0_SK5(array, pattern, iseq, side)
result(arrayStripped)
2250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2251 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_SK5
2254 procedure(
logical(LK)) :: iseq
2255 character(
*,SKG) ,
intent(in) :: pattern
2256 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2257 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
2258 type(left_type) ,
intent(in) :: side
2263 module function getStrippedCusComSL_D1_D0_SK4(array, pattern, iseq, side)
result(arrayStripped)
2264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2265 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_SK4
2268 procedure(
logical(LK)) :: iseq
2269 character(
*,SKG) ,
intent(in) :: pattern
2270 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2271 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
2272 type(left_type) ,
intent(in) :: side
2277 module function getStrippedCusComSL_D1_D0_SK3(array, pattern, iseq, side)
result(arrayStripped)
2278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2279 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_SK3
2282 procedure(
logical(LK)) :: iseq
2283 character(
*,SKG) ,
intent(in) :: pattern
2284 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2285 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
2286 type(left_type) ,
intent(in) :: side
2291 module function getStrippedCusComSL_D1_D0_SK2(array, pattern, iseq, side)
result(arrayStripped)
2292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2293 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_SK2
2296 procedure(
logical(LK)) :: iseq
2297 character(
*,SKG) ,
intent(in) :: pattern
2298 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2299 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
2300 type(left_type) ,
intent(in) :: side
2305 module function getStrippedCusComSL_D1_D0_SK1(array, pattern, iseq, side)
result(arrayStripped)
2306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2307 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_SK1
2310 procedure(
logical(LK)) :: iseq
2311 character(
*,SKG) ,
intent(in) :: pattern
2312 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2313 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
2314 type(left_type) ,
intent(in) :: side
2321 module function getStrippedCusComSL_D1_D0_IK5(array, pattern, iseq, side)
result(arrayStripped)
2322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2323 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_IK5
2326 procedure(
logical(LK)) :: iseq
2327 integer(IKG) ,
intent(in),
contiguous :: array(:)
2328 integer(IKG) ,
intent(in) :: pattern
2329 integer(IKG) ,
allocatable :: arrayStripped(:)
2330 type(left_type) ,
intent(in) :: side
2335 module function getStrippedCusComSL_D1_D0_IK4(array, pattern, iseq, side)
result(arrayStripped)
2336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2337 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_IK4
2340 procedure(
logical(LK)) :: iseq
2341 integer(IKG) ,
intent(in),
contiguous :: array(:)
2342 integer(IKG) ,
intent(in) :: pattern
2343 integer(IKG) ,
allocatable :: arrayStripped(:)
2344 type(left_type) ,
intent(in) :: side
2349 module function getStrippedCusComSL_D1_D0_IK3(array, pattern, iseq, side)
result(arrayStripped)
2350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2351 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_IK3
2354 procedure(
logical(LK)) :: iseq
2355 integer(IKG) ,
intent(in),
contiguous :: array(:)
2356 integer(IKG) ,
intent(in) :: pattern
2357 integer(IKG) ,
allocatable :: arrayStripped(:)
2358 type(left_type) ,
intent(in) :: side
2363 module function getStrippedCusComSL_D1_D0_IK2(array, pattern, iseq, side)
result(arrayStripped)
2364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2365 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_IK2
2368 procedure(
logical(LK)) :: iseq
2369 integer(IKG) ,
intent(in),
contiguous :: array(:)
2370 integer(IKG) ,
intent(in) :: pattern
2371 integer(IKG) ,
allocatable :: arrayStripped(:)
2372 type(left_type) ,
intent(in) :: side
2377 module function getStrippedCusComSL_D1_D0_IK1(array, pattern, iseq, side)
result(arrayStripped)
2378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2379 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_IK1
2382 procedure(
logical(LK)) :: iseq
2383 integer(IKG) ,
intent(in),
contiguous :: array(:)
2384 integer(IKG) ,
intent(in) :: pattern
2385 integer(IKG) ,
allocatable :: arrayStripped(:)
2386 type(left_type) ,
intent(in) :: side
2393 module function getStrippedCusComSL_D1_D0_LK5(array, pattern, iseq, side)
result(arrayStripped)
2394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2395 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_LK5
2398 procedure(
logical(LK)) :: iseq
2399 logical(LKG) ,
intent(in),
contiguous :: array(:)
2400 logical(LKG) ,
intent(in) :: pattern
2401 logical(LKG) ,
allocatable :: arrayStripped(:)
2402 type(left_type) ,
intent(in) :: side
2407 module function getStrippedCusComSL_D1_D0_LK4(array, pattern, iseq, side)
result(arrayStripped)
2408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2409 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_LK4
2412 procedure(
logical(LK)) :: iseq
2413 logical(LKG) ,
intent(in),
contiguous :: array(:)
2414 logical(LKG) ,
intent(in) :: pattern
2415 logical(LKG) ,
allocatable :: arrayStripped(:)
2416 type(left_type) ,
intent(in) :: side
2421 module function getStrippedCusComSL_D1_D0_LK3(array, pattern, iseq, side)
result(arrayStripped)
2422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2423 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_LK3
2426 procedure(
logical(LK)) :: iseq
2427 logical(LKG) ,
intent(in),
contiguous :: array(:)
2428 logical(LKG) ,
intent(in) :: pattern
2429 logical(LKG) ,
allocatable :: arrayStripped(:)
2430 type(left_type) ,
intent(in) :: side
2435 module function getStrippedCusComSL_D1_D0_LK2(array, pattern, iseq, side)
result(arrayStripped)
2436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2437 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_LK2
2440 procedure(
logical(LK)) :: iseq
2441 logical(LKG) ,
intent(in),
contiguous :: array(:)
2442 logical(LKG) ,
intent(in) :: pattern
2443 logical(LKG) ,
allocatable :: arrayStripped(:)
2444 type(left_type) ,
intent(in) :: side
2449 module function getStrippedCusComSL_D1_D0_LK1(array, pattern, iseq, side)
result(arrayStripped)
2450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2451 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_LK1
2454 procedure(
logical(LK)) :: iseq
2455 logical(LKG) ,
intent(in),
contiguous :: array(:)
2456 logical(LKG) ,
intent(in) :: pattern
2457 logical(LKG) ,
allocatable :: arrayStripped(:)
2458 type(left_type) ,
intent(in) :: side
2465 module function getStrippedCusComSL_D1_D0_CK5(array, pattern, iseq, side)
result(arrayStripped)
2466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2467 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_CK5
2470 procedure(
logical(LK)) :: iseq
2471 complex(CKG) ,
intent(in),
contiguous :: array(:)
2472 complex(CKG) ,
intent(in) :: pattern
2473 complex(CKG) ,
allocatable :: arrayStripped(:)
2474 type(left_type) ,
intent(in) :: side
2479 module function getStrippedCusComSL_D1_D0_CK4(array, pattern, iseq, side)
result(arrayStripped)
2480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2481 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_CK4
2484 procedure(
logical(LK)) :: iseq
2485 complex(CKG) ,
intent(in),
contiguous :: array(:)
2486 complex(CKG) ,
intent(in) :: pattern
2487 complex(CKG) ,
allocatable :: arrayStripped(:)
2488 type(left_type) ,
intent(in) :: side
2493 module function getStrippedCusComSL_D1_D0_CK3(array, pattern, iseq, side)
result(arrayStripped)
2494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2495 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_CK3
2498 procedure(
logical(LK)) :: iseq
2499 complex(CKG) ,
intent(in),
contiguous :: array(:)
2500 complex(CKG) ,
intent(in) :: pattern
2501 complex(CKG) ,
allocatable :: arrayStripped(:)
2502 type(left_type) ,
intent(in) :: side
2507 module function getStrippedCusComSL_D1_D0_CK2(array, pattern, iseq, side)
result(arrayStripped)
2508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2509 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_CK2
2512 procedure(
logical(LK)) :: iseq
2513 complex(CKG) ,
intent(in),
contiguous :: array(:)
2514 complex(CKG) ,
intent(in) :: pattern
2515 complex(CKG) ,
allocatable :: arrayStripped(:)
2516 type(left_type) ,
intent(in) :: side
2521 module function getStrippedCusComSL_D1_D0_CK1(array, pattern, iseq, side)
result(arrayStripped)
2522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2523 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_CK1
2526 procedure(
logical(LK)) :: iseq
2527 complex(CKG) ,
intent(in),
contiguous :: array(:)
2528 complex(CKG) ,
intent(in) :: pattern
2529 complex(CKG) ,
allocatable :: arrayStripped(:)
2530 type(left_type) ,
intent(in) :: side
2537 module function getStrippedCusComSL_D1_D0_RK5(array, pattern, iseq, side)
result(arrayStripped)
2538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2539 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_RK5
2542 real(RKG) ,
intent(in),
contiguous :: array(:)
2543 real(RKG) ,
intent(in) :: pattern
2544 procedure(
logical(LK)) :: iseq
2545 real(RKG) ,
allocatable :: arrayStripped(:)
2546 type(left_type) ,
intent(in) :: side
2551 module function getStrippedCusComSL_D1_D0_RK4(array, pattern, iseq, side)
result(arrayStripped)
2552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2553 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_RK4
2556 real(RKG) ,
intent(in),
contiguous :: array(:)
2557 real(RKG) ,
intent(in) :: pattern
2558 procedure(
logical(LK)) :: iseq
2559 real(RKG) ,
allocatable :: arrayStripped(:)
2560 type(left_type) ,
intent(in) :: side
2565 module function getStrippedCusComSL_D1_D0_RK3(array, pattern, iseq, side)
result(arrayStripped)
2566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2567 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_RK3
2570 real(RKG) ,
intent(in),
contiguous :: array(:)
2571 real(RKG) ,
intent(in) :: pattern
2572 procedure(
logical(LK)) :: iseq
2573 real(RKG) ,
allocatable :: arrayStripped(:)
2574 type(left_type) ,
intent(in) :: side
2579 module function getStrippedCusComSL_D1_D0_RK2(array, pattern, iseq, side)
result(arrayStripped)
2580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2581 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_RK2
2584 real(RKG) ,
intent(in),
contiguous :: array(:)
2585 real(RKG) ,
intent(in) :: pattern
2586 procedure(
logical(LK)) :: iseq
2587 real(RKG) ,
allocatable :: arrayStripped(:)
2588 type(left_type) ,
intent(in) :: side
2593 module function getStrippedCusComSL_D1_D0_RK1(array, pattern, iseq, side)
result(arrayStripped)
2594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2595 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D0_RK1
2598 real(RKG) ,
intent(in),
contiguous :: array(:)
2599 real(RKG) ,
intent(in) :: pattern
2600 procedure(
logical(LK)) :: iseq
2601 real(RKG) ,
allocatable :: arrayStripped(:)
2602 type(left_type) ,
intent(in) :: side
2615 PURE module function getStrippedDefComSL_D1_D1_SK5(array, pattern, side)
result(arrayStripped)
2616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2617 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_SK5
2620 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2621 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
2622 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
2623 type(left_type) ,
intent(in) :: side
2628 PURE module function getStrippedDefComSL_D1_D1_SK4(array, pattern, side)
result(arrayStripped)
2629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2630 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_SK4
2633 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2634 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
2635 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
2636 type(left_type) ,
intent(in) :: side
2641 PURE module function getStrippedDefComSL_D1_D1_SK3(array, pattern, side)
result(arrayStripped)
2642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2643 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_SK3
2646 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2647 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
2648 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
2649 type(left_type) ,
intent(in) :: side
2654 PURE module function getStrippedDefComSL_D1_D1_SK2(array, pattern, side)
result(arrayStripped)
2655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2656 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_SK2
2659 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2660 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
2661 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
2662 type(left_type) ,
intent(in) :: side
2667 PURE module function getStrippedDefComSL_D1_D1_SK1(array, pattern, side)
result(arrayStripped)
2668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2669 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_SK1
2672 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2673 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
2674 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
2675 type(left_type) ,
intent(in) :: side
2682 PURE module function getStrippedDefComSL_D1_D1_IK5(array, pattern, side)
result(arrayStripped)
2683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2684 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_IK5
2687 integer(IKG) ,
intent(in),
contiguous :: array(:)
2688 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
2689 integer(IKG) ,
allocatable :: arrayStripped(:)
2690 type(left_type) ,
intent(in) :: side
2695 PURE module function getStrippedDefComSL_D1_D1_IK4(array, pattern, side)
result(arrayStripped)
2696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2697 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_IK4
2700 integer(IKG) ,
intent(in),
contiguous :: array(:)
2701 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
2702 integer(IKG) ,
allocatable :: arrayStripped(:)
2703 type(left_type) ,
intent(in) :: side
2708 PURE module function getStrippedDefComSL_D1_D1_IK3(array, pattern, side)
result(arrayStripped)
2709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2710 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_IK3
2713 integer(IKG) ,
intent(in),
contiguous :: array(:)
2714 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
2715 integer(IKG) ,
allocatable :: arrayStripped(:)
2716 type(left_type) ,
intent(in) :: side
2721 PURE module function getStrippedDefComSL_D1_D1_IK2(array, pattern, side)
result(arrayStripped)
2722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2723 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_IK2
2726 integer(IKG) ,
intent(in),
contiguous :: array(:)
2727 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
2728 integer(IKG) ,
allocatable :: arrayStripped(:)
2729 type(left_type) ,
intent(in) :: side
2734 PURE module function getStrippedDefComSL_D1_D1_IK1(array, pattern, side)
result(arrayStripped)
2735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2736 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_IK1
2739 integer(IKG) ,
intent(in),
contiguous :: array(:)
2740 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
2741 integer(IKG) ,
allocatable :: arrayStripped(:)
2742 type(left_type) ,
intent(in) :: side
2749 PURE module function getStrippedDefComSL_D1_D1_LK5(array, pattern, side)
result(arrayStripped)
2750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2751 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_LK5
2754 logical(LKG) ,
intent(in),
contiguous :: array(:)
2755 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
2756 logical(LKG) ,
allocatable :: arrayStripped(:)
2757 type(left_type) ,
intent(in) :: side
2762 PURE module function getStrippedDefComSL_D1_D1_LK4(array, pattern, side)
result(arrayStripped)
2763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2764 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_LK4
2767 logical(LKG) ,
intent(in),
contiguous :: array(:)
2768 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
2769 logical(LKG) ,
allocatable :: arrayStripped(:)
2770 type(left_type) ,
intent(in) :: side
2775 PURE module function getStrippedDefComSL_D1_D1_LK3(array, pattern, side)
result(arrayStripped)
2776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2777 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_LK3
2780 logical(LKG) ,
intent(in),
contiguous :: array(:)
2781 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
2782 logical(LKG) ,
allocatable :: arrayStripped(:)
2783 type(left_type) ,
intent(in) :: side
2788 PURE module function getStrippedDefComSL_D1_D1_LK2(array, pattern, side)
result(arrayStripped)
2789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2790 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_LK2
2793 logical(LKG) ,
intent(in),
contiguous :: array(:)
2794 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
2795 logical(LKG) ,
allocatable :: arrayStripped(:)
2796 type(left_type) ,
intent(in) :: side
2801 PURE module function getStrippedDefComSL_D1_D1_LK1(array, pattern, side)
result(arrayStripped)
2802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2803 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_LK1
2806 logical(LKG) ,
intent(in),
contiguous :: array(:)
2807 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
2808 logical(LKG) ,
allocatable :: arrayStripped(:)
2809 type(left_type) ,
intent(in) :: side
2816 PURE module function getStrippedDefComSL_D1_D1_CK5(array, pattern, side)
result(arrayStripped)
2817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2818 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_CK5
2821 complex(CKG) ,
intent(in),
contiguous :: array(:)
2822 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
2823 complex(CKG) ,
allocatable :: arrayStripped(:)
2824 type(left_type) ,
intent(in) :: side
2829 PURE module function getStrippedDefComSL_D1_D1_CK4(array, pattern, side)
result(arrayStripped)
2830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2831 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_CK4
2834 complex(CKG) ,
intent(in),
contiguous :: array(:)
2835 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
2836 complex(CKG) ,
allocatable :: arrayStripped(:)
2837 type(left_type) ,
intent(in) :: side
2842 PURE module function getStrippedDefComSL_D1_D1_CK3(array, pattern, side)
result(arrayStripped)
2843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2844 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_CK3
2847 complex(CKG) ,
intent(in),
contiguous :: array(:)
2848 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
2849 complex(CKG) ,
allocatable :: arrayStripped(:)
2850 type(left_type) ,
intent(in) :: side
2855 PURE module function getStrippedDefComSL_D1_D1_CK2(array, pattern, side)
result(arrayStripped)
2856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2857 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_CK2
2860 complex(CKG) ,
intent(in),
contiguous :: array(:)
2861 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
2862 complex(CKG) ,
allocatable :: arrayStripped(:)
2863 type(left_type) ,
intent(in) :: side
2868 PURE module function getStrippedDefComSL_D1_D1_CK1(array, pattern, side)
result(arrayStripped)
2869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2870 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_CK1
2873 complex(CKG) ,
intent(in),
contiguous :: array(:)
2874 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
2875 complex(CKG) ,
allocatable :: arrayStripped(:)
2876 type(left_type) ,
intent(in) :: side
2883 PURE module function getStrippedDefComSL_D1_D1_RK5(array, pattern, side)
result(arrayStripped)
2884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2885 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_RK5
2888 real(RKG) ,
intent(in),
contiguous :: array(:)
2889 real(RKG) ,
intent(in),
contiguous :: pattern(:)
2890 real(RKG) ,
allocatable :: arrayStripped(:)
2891 type(left_type) ,
intent(in) :: side
2896 PURE module function getStrippedDefComSL_D1_D1_RK4(array, pattern, side)
result(arrayStripped)
2897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2898 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_RK4
2901 real(RKG) ,
intent(in),
contiguous :: array(:)
2902 real(RKG) ,
intent(in),
contiguous :: pattern(:)
2903 real(RKG) ,
allocatable :: arrayStripped(:)
2904 type(left_type) ,
intent(in) :: side
2909 PURE module function getStrippedDefComSL_D1_D1_RK3(array, pattern, side)
result(arrayStripped)
2910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2911 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_RK3
2914 real(RKG) ,
intent(in),
contiguous :: array(:)
2915 real(RKG) ,
intent(in),
contiguous :: pattern(:)
2916 real(RKG) ,
allocatable :: arrayStripped(:)
2917 type(left_type) ,
intent(in) :: side
2922 PURE module function getStrippedDefComSL_D1_D1_RK2(array, pattern, side)
result(arrayStripped)
2923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2924 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_RK2
2927 real(RKG) ,
intent(in),
contiguous :: array(:)
2928 real(RKG) ,
intent(in),
contiguous :: pattern(:)
2929 real(RKG) ,
allocatable :: arrayStripped(:)
2930 type(left_type) ,
intent(in) :: side
2935 PURE module function getStrippedDefComSL_D1_D1_RK1(array, pattern, side)
result(arrayStripped)
2936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2937 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSL_D1_D1_RK1
2940 real(RKG) ,
intent(in),
contiguous :: array(:)
2941 real(RKG) ,
intent(in),
contiguous :: pattern(:)
2942 real(RKG) ,
allocatable :: arrayStripped(:)
2943 type(left_type) ,
intent(in) :: side
2956 module function getStrippedCusComSL_D1_D1_SK5(array, pattern, iseq, side)
result(arrayStripped)
2957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2958 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_SK5
2961 procedure(
logical(LK)) :: iseq
2962 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2963 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
2964 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
2965 type(left_type) ,
intent(in) :: side
2970 module function getStrippedCusComSL_D1_D1_SK4(array, pattern, iseq, side)
result(arrayStripped)
2971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2972 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_SK4
2975 procedure(
logical(LK)) :: iseq
2976 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2977 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
2978 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
2979 type(left_type) ,
intent(in) :: side
2984 module function getStrippedCusComSL_D1_D1_SK3(array, pattern, iseq, side)
result(arrayStripped)
2985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2986 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_SK3
2989 procedure(
logical(LK)) :: iseq
2990 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2991 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
2992 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
2993 type(left_type) ,
intent(in) :: side
2998 module function getStrippedCusComSL_D1_D1_SK2(array, pattern, iseq, side)
result(arrayStripped)
2999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3000 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_SK2
3003 procedure(
logical(LK)) :: iseq
3004 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3005 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
3006 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
3007 type(left_type) ,
intent(in) :: side
3012 module function getStrippedCusComSL_D1_D1_SK1(array, pattern, iseq, side)
result(arrayStripped)
3013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3014 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_SK1
3017 procedure(
logical(LK)) :: iseq
3018 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3019 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
3020 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
3021 type(left_type) ,
intent(in) :: side
3028 module function getStrippedCusComSL_D1_D1_IK5(array, pattern, iseq, side)
result(arrayStripped)
3029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3030 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_IK5
3033 procedure(
logical(LK)) :: iseq
3034 integer(IKG) ,
intent(in),
contiguous :: array(:)
3035 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3036 integer(IKG) ,
allocatable :: arrayStripped(:)
3037 type(left_type) ,
intent(in) :: side
3042 module function getStrippedCusComSL_D1_D1_IK4(array, pattern, iseq, side)
result(arrayStripped)
3043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3044 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_IK4
3047 procedure(
logical(LK)) :: iseq
3048 integer(IKG) ,
intent(in),
contiguous :: array(:)
3049 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3050 integer(IKG) ,
allocatable :: arrayStripped(:)
3051 type(left_type) ,
intent(in) :: side
3056 module function getStrippedCusComSL_D1_D1_IK3(array, pattern, iseq, side)
result(arrayStripped)
3057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3058 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_IK3
3061 procedure(
logical(LK)) :: iseq
3062 integer(IKG) ,
intent(in),
contiguous :: array(:)
3063 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3064 integer(IKG) ,
allocatable :: arrayStripped(:)
3065 type(left_type) ,
intent(in) :: side
3070 module function getStrippedCusComSL_D1_D1_IK2(array, pattern, iseq, side)
result(arrayStripped)
3071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3072 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_IK2
3075 procedure(
logical(LK)) :: iseq
3076 integer(IKG) ,
intent(in),
contiguous :: array(:)
3077 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3078 integer(IKG) ,
allocatable :: arrayStripped(:)
3079 type(left_type) ,
intent(in) :: side
3084 module function getStrippedCusComSL_D1_D1_IK1(array, pattern, iseq, side)
result(arrayStripped)
3085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3086 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_IK1
3089 procedure(
logical(LK)) :: iseq
3090 integer(IKG) ,
intent(in),
contiguous :: array(:)
3091 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3092 integer(IKG) ,
allocatable :: arrayStripped(:)
3093 type(left_type) ,
intent(in) :: side
3100 module function getStrippedCusComSL_D1_D1_LK5(array, pattern, iseq, side)
result(arrayStripped)
3101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3102 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_LK5
3105 procedure(
logical(LK)) :: iseq
3106 logical(LKG) ,
intent(in),
contiguous :: array(:)
3107 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3108 logical(LKG) ,
allocatable :: arrayStripped(:)
3109 type(left_type) ,
intent(in) :: side
3114 module function getStrippedCusComSL_D1_D1_LK4(array, pattern, iseq, side)
result(arrayStripped)
3115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3116 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_LK4
3119 procedure(
logical(LK)) :: iseq
3120 logical(LKG) ,
intent(in),
contiguous :: array(:)
3121 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3122 logical(LKG) ,
allocatable :: arrayStripped(:)
3123 type(left_type) ,
intent(in) :: side
3128 module function getStrippedCusComSL_D1_D1_LK3(array, pattern, iseq, side)
result(arrayStripped)
3129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3130 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_LK3
3133 procedure(
logical(LK)) :: iseq
3134 logical(LKG) ,
intent(in),
contiguous :: array(:)
3135 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3136 logical(LKG) ,
allocatable :: arrayStripped(:)
3137 type(left_type) ,
intent(in) :: side
3142 module function getStrippedCusComSL_D1_D1_LK2(array, pattern, iseq, side)
result(arrayStripped)
3143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3144 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_LK2
3147 procedure(
logical(LK)) :: iseq
3148 logical(LKG) ,
intent(in),
contiguous :: array(:)
3149 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3150 logical(LKG) ,
allocatable :: arrayStripped(:)
3151 type(left_type) ,
intent(in) :: side
3156 module function getStrippedCusComSL_D1_D1_LK1(array, pattern, iseq, side)
result(arrayStripped)
3157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3158 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_LK1
3161 procedure(
logical(LK)) :: iseq
3162 logical(LKG) ,
intent(in),
contiguous :: array(:)
3163 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3164 logical(LKG) ,
allocatable :: arrayStripped(:)
3165 type(left_type) ,
intent(in) :: side
3172 module function getStrippedCusComSL_D1_D1_CK5(array, pattern, iseq, side)
result(arrayStripped)
3173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3174 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_CK5
3177 procedure(
logical(LK)) :: iseq
3178 complex(CKG) ,
intent(in),
contiguous :: array(:)
3179 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3180 complex(CKG) ,
allocatable :: arrayStripped(:)
3181 type(left_type) ,
intent(in) :: side
3186 module function getStrippedCusComSL_D1_D1_CK4(array, pattern, iseq, side)
result(arrayStripped)
3187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3188 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_CK4
3191 procedure(
logical(LK)) :: iseq
3192 complex(CKG) ,
intent(in),
contiguous :: array(:)
3193 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3194 complex(CKG) ,
allocatable :: arrayStripped(:)
3195 type(left_type) ,
intent(in) :: side
3200 module function getStrippedCusComSL_D1_D1_CK3(array, pattern, iseq, side)
result(arrayStripped)
3201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3202 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_CK3
3205 procedure(
logical(LK)) :: iseq
3206 complex(CKG) ,
intent(in),
contiguous :: array(:)
3207 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3208 complex(CKG) ,
allocatable :: arrayStripped(:)
3209 type(left_type) ,
intent(in) :: side
3214 module function getStrippedCusComSL_D1_D1_CK2(array, pattern, iseq, side)
result(arrayStripped)
3215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3216 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_CK2
3219 procedure(
logical(LK)) :: iseq
3220 complex(CKG) ,
intent(in),
contiguous :: array(:)
3221 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3222 complex(CKG) ,
allocatable :: arrayStripped(:)
3223 type(left_type) ,
intent(in) :: side
3228 module function getStrippedCusComSL_D1_D1_CK1(array, pattern, iseq, side)
result(arrayStripped)
3229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3230 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_CK1
3233 procedure(
logical(LK)) :: iseq
3234 complex(CKG) ,
intent(in),
contiguous :: array(:)
3235 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3236 complex(CKG) ,
allocatable :: arrayStripped(:)
3237 type(left_type) ,
intent(in) :: side
3244 module function getStrippedCusComSL_D1_D1_RK5(array, pattern, iseq, side)
result(arrayStripped)
3245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3246 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_RK5
3249 procedure(
logical(LK)) :: iseq
3250 real(RKG) ,
intent(in),
contiguous :: array(:)
3251 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3252 real(RKG) ,
allocatable :: arrayStripped(:)
3253 type(left_type) ,
intent(in) :: side
3258 module function getStrippedCusComSL_D1_D1_RK4(array, pattern, iseq, side)
result(arrayStripped)
3259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3260 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_RK4
3263 procedure(
logical(LK)) :: iseq
3264 real(RKG) ,
intent(in),
contiguous :: array(:)
3265 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3266 real(RKG) ,
allocatable :: arrayStripped(:)
3267 type(left_type) ,
intent(in) :: side
3272 module function getStrippedCusComSL_D1_D1_RK3(array, pattern, iseq, side)
result(arrayStripped)
3273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3274 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_RK3
3277 procedure(
logical(LK)) :: iseq
3278 real(RKG) ,
intent(in),
contiguous :: array(:)
3279 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3280 real(RKG) ,
allocatable :: arrayStripped(:)
3281 type(left_type) ,
intent(in) :: side
3286 module function getStrippedCusComSL_D1_D1_RK2(array, pattern, iseq, side)
result(arrayStripped)
3287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3288 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_RK2
3291 procedure(
logical(LK)) :: iseq
3292 real(RKG) ,
intent(in),
contiguous :: array(:)
3293 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3294 real(RKG) ,
allocatable :: arrayStripped(:)
3295 type(left_type) ,
intent(in) :: side
3300 module function getStrippedCusComSL_D1_D1_RK1(array, pattern, iseq, side)
result(arrayStripped)
3301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3302 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSL_D1_D1_RK1
3305 procedure(
logical(LK)) :: iseq
3306 real(RKG) ,
intent(in),
contiguous :: array(:)
3307 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3308 real(RKG) ,
allocatable :: arrayStripped(:)
3309 type(left_type) ,
intent(in) :: side
3332 PURE module function getStrippedDefComSR_D0_D0_SK5(array, pattern, side)
result(arrayStripped)
3333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3334 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D0_D0_SK5
3337 character(
*,SKG) ,
intent(in) :: array
3338 character(
*,SKG) ,
intent(in) :: pattern
3339 character(:,SKG) ,
allocatable :: arrayStripped
3340 type(right_type) ,
intent(in) :: side
3345 PURE module function getStrippedDefComSR_D0_D0_SK4(array, pattern, side)
result(arrayStripped)
3346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3347 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D0_D0_SK4
3350 character(
*,SKG) ,
intent(in) :: array
3351 character(
*,SKG) ,
intent(in) :: pattern
3352 character(:,SKG) ,
allocatable :: arrayStripped
3353 type(right_type) ,
intent(in) :: side
3358 PURE module function getStrippedDefComSR_D0_D0_SK3(array, pattern, side)
result(arrayStripped)
3359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3360 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D0_D0_SK3
3363 character(
*,SKG) ,
intent(in) :: array
3364 character(
*,SKG) ,
intent(in) :: pattern
3365 character(:,SKG) ,
allocatable :: arrayStripped
3366 type(right_type) ,
intent(in) :: side
3371 PURE module function getStrippedDefComSR_D0_D0_SK2(array, pattern, side)
result(arrayStripped)
3372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3373 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D0_D0_SK2
3376 character(
*,SKG) ,
intent(in) :: array
3377 character(
*,SKG) ,
intent(in) :: pattern
3378 character(:,SKG) ,
allocatable :: arrayStripped
3379 type(right_type) ,
intent(in) :: side
3384 PURE module function getStrippedDefComSR_D0_D0_SK1(array, pattern, side)
result(arrayStripped)
3385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3386 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D0_D0_SK1
3389 character(
*,SKG) ,
intent(in) :: array
3390 character(
*,SKG) ,
intent(in) :: pattern
3391 character(:,SKG) ,
allocatable :: arrayStripped
3392 type(right_type) ,
intent(in) :: side
3399 PURE module function getStrippedDefComSR_D1_D0_SK5(array, pattern, side)
result(arrayStripped)
3400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3401 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_SK5
3404 character(
*,SKG) ,
intent(in) :: pattern
3405 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3406 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
3407 type(right_type) ,
intent(in) :: side
3412 PURE module function getStrippedDefComSR_D1_D0_SK4(array, pattern, side)
result(arrayStripped)
3413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3414 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_SK4
3417 character(
*,SKG) ,
intent(in) :: pattern
3418 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3419 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
3420 type(right_type) ,
intent(in) :: side
3425 PURE module function getStrippedDefComSR_D1_D0_SK3(array, pattern, side)
result(arrayStripped)
3426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3427 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_SK3
3430 character(
*,SKG) ,
intent(in) :: pattern
3431 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3432 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
3433 type(right_type) ,
intent(in) :: side
3438 PURE module function getStrippedDefComSR_D1_D0_SK2(array, pattern, side)
result(arrayStripped)
3439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3440 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_SK2
3443 character(
*,SKG) ,
intent(in) :: pattern
3444 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3445 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
3446 type(right_type) ,
intent(in) :: side
3451 PURE module function getStrippedDefComSR_D1_D0_SK1(array, pattern, side)
result(arrayStripped)
3452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3453 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_SK1
3456 character(
*,SKG) ,
intent(in) :: pattern
3457 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3458 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
3459 type(right_type) ,
intent(in) :: side
3466 PURE module function getStrippedDefComSR_D1_D0_IK5(array, pattern, side)
result(arrayStripped)
3467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3468 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_IK5
3471 integer(IKG) ,
intent(in),
contiguous :: array(:)
3472 integer(IKG) ,
intent(in) :: pattern
3473 integer(IKG) ,
allocatable :: arrayStripped(:)
3474 type(right_type) ,
intent(in) :: side
3479 PURE module function getStrippedDefComSR_D1_D0_IK4(array, pattern, side)
result(arrayStripped)
3480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3481 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_IK4
3484 integer(IKG) ,
intent(in),
contiguous :: array(:)
3485 integer(IKG) ,
intent(in) :: pattern
3486 integer(IKG) ,
allocatable :: arrayStripped(:)
3487 type(right_type) ,
intent(in) :: side
3492 PURE module function getStrippedDefComSR_D1_D0_IK3(array, pattern, side)
result(arrayStripped)
3493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3494 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_IK3
3497 integer(IKG) ,
intent(in),
contiguous :: array(:)
3498 integer(IKG) ,
intent(in) :: pattern
3499 integer(IKG) ,
allocatable :: arrayStripped(:)
3500 type(right_type) ,
intent(in) :: side
3505 PURE module function getStrippedDefComSR_D1_D0_IK2(array, pattern, side)
result(arrayStripped)
3506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3507 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_IK2
3510 integer(IKG) ,
intent(in),
contiguous :: array(:)
3511 integer(IKG) ,
intent(in) :: pattern
3512 integer(IKG) ,
allocatable :: arrayStripped(:)
3513 type(right_type) ,
intent(in) :: side
3518 PURE module function getStrippedDefComSR_D1_D0_IK1(array, pattern, side)
result(arrayStripped)
3519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3520 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_IK1
3523 integer(IKG) ,
intent(in),
contiguous :: array(:)
3524 integer(IKG) ,
intent(in) :: pattern
3525 integer(IKG) ,
allocatable :: arrayStripped(:)
3526 type(right_type) ,
intent(in) :: side
3533 PURE module function getStrippedDefComSR_D1_D0_LK5(array, pattern, side)
result(arrayStripped)
3534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3535 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_LK5
3538 logical(LKG) ,
intent(in),
contiguous :: array(:)
3539 logical(LKG) ,
intent(in) :: pattern
3540 logical(LKG) ,
allocatable :: arrayStripped(:)
3541 type(right_type) ,
intent(in) :: side
3546 PURE module function getStrippedDefComSR_D1_D0_LK4(array, pattern, side)
result(arrayStripped)
3547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3548 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_LK4
3551 logical(LKG) ,
intent(in),
contiguous :: array(:)
3552 logical(LKG) ,
intent(in) :: pattern
3553 logical(LKG) ,
allocatable :: arrayStripped(:)
3554 type(right_type) ,
intent(in) :: side
3559 PURE module function getStrippedDefComSR_D1_D0_LK3(array, pattern, side)
result(arrayStripped)
3560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3561 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_LK3
3564 logical(LKG) ,
intent(in),
contiguous :: array(:)
3565 logical(LKG) ,
intent(in) :: pattern
3566 logical(LKG) ,
allocatable :: arrayStripped(:)
3567 type(right_type) ,
intent(in) :: side
3572 PURE module function getStrippedDefComSR_D1_D0_LK2(array, pattern, side)
result(arrayStripped)
3573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3574 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_LK2
3577 logical(LKG) ,
intent(in),
contiguous :: array(:)
3578 logical(LKG) ,
intent(in) :: pattern
3579 logical(LKG) ,
allocatable :: arrayStripped(:)
3580 type(right_type) ,
intent(in) :: side
3585 PURE module function getStrippedDefComSR_D1_D0_LK1(array, pattern, side)
result(arrayStripped)
3586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3587 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_LK1
3590 logical(LKG) ,
intent(in),
contiguous :: array(:)
3591 logical(LKG) ,
intent(in) :: pattern
3592 logical(LKG) ,
allocatable :: arrayStripped(:)
3593 type(right_type) ,
intent(in) :: side
3600 PURE module function getStrippedDefComSR_D1_D0_CK5(array, pattern, side)
result(arrayStripped)
3601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3602 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_CK5
3605 complex(CKG) ,
intent(in),
contiguous :: array(:)
3606 complex(CKG) ,
intent(in) :: pattern
3607 complex(CKG) ,
allocatable :: arrayStripped(:)
3608 type(right_type) ,
intent(in) :: side
3613 PURE module function getStrippedDefComSR_D1_D0_CK4(array, pattern, side)
result(arrayStripped)
3614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3615 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_CK4
3618 complex(CKG) ,
intent(in),
contiguous :: array(:)
3619 complex(CKG) ,
intent(in) :: pattern
3620 complex(CKG) ,
allocatable :: arrayStripped(:)
3621 type(right_type) ,
intent(in) :: side
3626 PURE module function getStrippedDefComSR_D1_D0_CK3(array, pattern, side)
result(arrayStripped)
3627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3628 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_CK3
3631 complex(CKG) ,
intent(in),
contiguous :: array(:)
3632 complex(CKG) ,
intent(in) :: pattern
3633 complex(CKG) ,
allocatable :: arrayStripped(:)
3634 type(right_type) ,
intent(in) :: side
3639 PURE module function getStrippedDefComSR_D1_D0_CK2(array, pattern, side)
result(arrayStripped)
3640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3641 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_CK2
3644 complex(CKG) ,
intent(in),
contiguous :: array(:)
3645 complex(CKG) ,
intent(in) :: pattern
3646 complex(CKG) ,
allocatable :: arrayStripped(:)
3647 type(right_type) ,
intent(in) :: side
3652 PURE module function getStrippedDefComSR_D1_D0_CK1(array, pattern, side)
result(arrayStripped)
3653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3654 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_CK1
3657 complex(CKG) ,
intent(in),
contiguous :: array(:)
3658 complex(CKG) ,
intent(in) :: pattern
3659 complex(CKG) ,
allocatable :: arrayStripped(:)
3660 type(right_type) ,
intent(in) :: side
3667 PURE module function getStrippedDefComSR_D1_D0_RK5(array, pattern, side)
result(arrayStripped)
3668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3669 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_RK5
3672 real(RKG) ,
intent(in),
contiguous :: array(:)
3673 real(RKG) ,
intent(in) :: pattern
3674 real(RKG) ,
allocatable :: arrayStripped(:)
3675 type(right_type) ,
intent(in) :: side
3680 PURE module function getStrippedDefComSR_D1_D0_RK4(array, pattern, side)
result(arrayStripped)
3681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3682 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_RK4
3685 real(RKG) ,
intent(in),
contiguous :: array(:)
3686 real(RKG) ,
intent(in) :: pattern
3687 real(RKG) ,
allocatable :: arrayStripped(:)
3688 type(right_type) ,
intent(in) :: side
3693 PURE module function getStrippedDefComSR_D1_D0_RK3(array, pattern, side)
result(arrayStripped)
3694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3695 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_RK3
3698 real(RKG) ,
intent(in),
contiguous :: array(:)
3699 real(RKG) ,
intent(in) :: pattern
3700 real(RKG) ,
allocatable :: arrayStripped(:)
3701 type(right_type) ,
intent(in) :: side
3706 PURE module function getStrippedDefComSR_D1_D0_RK2(array, pattern, side)
result(arrayStripped)
3707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3708 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_RK2
3711 real(RKG) ,
intent(in),
contiguous :: array(:)
3712 real(RKG) ,
intent(in) :: pattern
3713 real(RKG) ,
allocatable :: arrayStripped(:)
3714 type(right_type) ,
intent(in) :: side
3719 PURE module function getStrippedDefComSR_D1_D0_RK1(array, pattern, side)
result(arrayStripped)
3720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3721 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D0_RK1
3724 real(RKG) ,
intent(in),
contiguous :: array(:)
3725 real(RKG) ,
intent(in) :: pattern
3726 real(RKG) ,
allocatable :: arrayStripped(:)
3727 type(right_type) ,
intent(in) :: side
3740 module function getStrippedCusComSR_D0_D0_SK5(array, pattern, iseq, side)
result(arrayStripped)
3741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3742 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D0_D0_SK5
3745 procedure(
logical(LK)) :: iseq
3746 character(
*,SKG) ,
intent(in) :: array
3747 character(
*,SKG) ,
intent(in) :: pattern
3748 character(:,SKG) ,
allocatable :: arrayStripped
3749 type(right_type) ,
intent(in) :: side
3754 module function getStrippedCusComSR_D0_D0_SK4(array, pattern, iseq, side)
result(arrayStripped)
3755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3756 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D0_D0_SK4
3759 procedure(
logical(LK)) :: iseq
3760 character(
*,SKG) ,
intent(in) :: array
3761 character(
*,SKG) ,
intent(in) :: pattern
3762 character(:,SKG) ,
allocatable :: arrayStripped
3763 type(right_type) ,
intent(in) :: side
3768 module function getStrippedCusComSR_D0_D0_SK3(array, pattern, iseq, side)
result(arrayStripped)
3769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3770 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D0_D0_SK3
3773 procedure(
logical(LK)) :: iseq
3774 character(
*,SKG) ,
intent(in) :: array
3775 character(
*,SKG) ,
intent(in) :: pattern
3776 character(:,SKG) ,
allocatable :: arrayStripped
3777 type(right_type) ,
intent(in) :: side
3782 module function getStrippedCusComSR_D0_D0_SK2(array, pattern, iseq, side)
result(arrayStripped)
3783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3784 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D0_D0_SK2
3787 procedure(
logical(LK)) :: iseq
3788 character(
*,SKG) ,
intent(in) :: array
3789 character(
*,SKG) ,
intent(in) :: pattern
3790 character(:,SKG) ,
allocatable :: arrayStripped
3791 type(right_type) ,
intent(in) :: side
3796 module function getStrippedCusComSR_D0_D0_SK1(array, pattern, iseq, side)
result(arrayStripped)
3797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3798 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D0_D0_SK1
3801 procedure(
logical(LK)) :: iseq
3802 character(
*,SKG) ,
intent(in) :: array
3803 character(
*,SKG) ,
intent(in) :: pattern
3804 character(:,SKG) ,
allocatable :: arrayStripped
3805 type(right_type) ,
intent(in) :: side
3812 module function getStrippedCusComSR_D1_D0_SK5(array, pattern, iseq, side)
result(arrayStripped)
3813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3814 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_SK5
3817 procedure(
logical(LK)) :: iseq
3818 character(
*,SKG) ,
intent(in) :: pattern
3819 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3820 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
3821 type(right_type) ,
intent(in) :: side
3826 module function getStrippedCusComSR_D1_D0_SK4(array, pattern, iseq, side)
result(arrayStripped)
3827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3828 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_SK4
3831 procedure(
logical(LK)) :: iseq
3832 character(
*,SKG) ,
intent(in) :: pattern
3833 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3834 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
3835 type(right_type) ,
intent(in) :: side
3840 module function getStrippedCusComSR_D1_D0_SK3(array, pattern, iseq, side)
result(arrayStripped)
3841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3842 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_SK3
3845 procedure(
logical(LK)) :: iseq
3846 character(
*,SKG) ,
intent(in) :: pattern
3847 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3848 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
3849 type(right_type) ,
intent(in) :: side
3854 module function getStrippedCusComSR_D1_D0_SK2(array, pattern, iseq, side)
result(arrayStripped)
3855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3856 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_SK2
3859 procedure(
logical(LK)) :: iseq
3860 character(
*,SKG) ,
intent(in) :: pattern
3861 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3862 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
3863 type(right_type) ,
intent(in) :: side
3868 module function getStrippedCusComSR_D1_D0_SK1(array, pattern, iseq, side)
result(arrayStripped)
3869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3870 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_SK1
3873 procedure(
logical(LK)) :: iseq
3874 character(
*,SKG) ,
intent(in) :: pattern
3875 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3876 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
3877 type(right_type) ,
intent(in) :: side
3884 module function getStrippedCusComSR_D1_D0_IK5(array, pattern, iseq, side)
result(arrayStripped)
3885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3886 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_IK5
3889 procedure(
logical(LK)) :: iseq
3890 integer(IKG) ,
intent(in),
contiguous :: array(:)
3891 integer(IKG) ,
intent(in) :: pattern
3892 integer(IKG) ,
allocatable :: arrayStripped(:)
3893 type(right_type) ,
intent(in) :: side
3898 module function getStrippedCusComSR_D1_D0_IK4(array, pattern, iseq, side)
result(arrayStripped)
3899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3900 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_IK4
3903 procedure(
logical(LK)) :: iseq
3904 integer(IKG) ,
intent(in),
contiguous :: array(:)
3905 integer(IKG) ,
intent(in) :: pattern
3906 integer(IKG) ,
allocatable :: arrayStripped(:)
3907 type(right_type) ,
intent(in) :: side
3912 module function getStrippedCusComSR_D1_D0_IK3(array, pattern, iseq, side)
result(arrayStripped)
3913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3914 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_IK3
3917 procedure(
logical(LK)) :: iseq
3918 integer(IKG) ,
intent(in),
contiguous :: array(:)
3919 integer(IKG) ,
intent(in) :: pattern
3920 integer(IKG) ,
allocatable :: arrayStripped(:)
3921 type(right_type) ,
intent(in) :: side
3926 module function getStrippedCusComSR_D1_D0_IK2(array, pattern, iseq, side)
result(arrayStripped)
3927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3928 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_IK2
3931 procedure(
logical(LK)) :: iseq
3932 integer(IKG) ,
intent(in),
contiguous :: array(:)
3933 integer(IKG) ,
intent(in) :: pattern
3934 integer(IKG) ,
allocatable :: arrayStripped(:)
3935 type(right_type) ,
intent(in) :: side
3940 module function getStrippedCusComSR_D1_D0_IK1(array, pattern, iseq, side)
result(arrayStripped)
3941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3942 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_IK1
3945 procedure(
logical(LK)) :: iseq
3946 integer(IKG) ,
intent(in),
contiguous :: array(:)
3947 integer(IKG) ,
intent(in) :: pattern
3948 integer(IKG) ,
allocatable :: arrayStripped(:)
3949 type(right_type) ,
intent(in) :: side
3956 module function getStrippedCusComSR_D1_D0_LK5(array, pattern, iseq, side)
result(arrayStripped)
3957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3958 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_LK5
3961 procedure(
logical(LK)) :: iseq
3962 logical(LKG) ,
intent(in),
contiguous :: array(:)
3963 logical(LKG) ,
intent(in) :: pattern
3964 logical(LKG) ,
allocatable :: arrayStripped(:)
3965 type(right_type) ,
intent(in) :: side
3970 module function getStrippedCusComSR_D1_D0_LK4(array, pattern, iseq, side)
result(arrayStripped)
3971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3972 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_LK4
3975 procedure(
logical(LK)) :: iseq
3976 logical(LKG) ,
intent(in),
contiguous :: array(:)
3977 logical(LKG) ,
intent(in) :: pattern
3978 logical(LKG) ,
allocatable :: arrayStripped(:)
3979 type(right_type) ,
intent(in) :: side
3984 module function getStrippedCusComSR_D1_D0_LK3(array, pattern, iseq, side)
result(arrayStripped)
3985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3986 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_LK3
3989 procedure(
logical(LK)) :: iseq
3990 logical(LKG) ,
intent(in),
contiguous :: array(:)
3991 logical(LKG) ,
intent(in) :: pattern
3992 logical(LKG) ,
allocatable :: arrayStripped(:)
3993 type(right_type) ,
intent(in) :: side
3998 module function getStrippedCusComSR_D1_D0_LK2(array, pattern, iseq, side)
result(arrayStripped)
3999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4000 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_LK2
4003 procedure(
logical(LK)) :: iseq
4004 logical(LKG) ,
intent(in),
contiguous :: array(:)
4005 logical(LKG) ,
intent(in) :: pattern
4006 logical(LKG) ,
allocatable :: arrayStripped(:)
4007 type(right_type) ,
intent(in) :: side
4012 module function getStrippedCusComSR_D1_D0_LK1(array, pattern, iseq, side)
result(arrayStripped)
4013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4014 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_LK1
4017 procedure(
logical(LK)) :: iseq
4018 logical(LKG) ,
intent(in),
contiguous :: array(:)
4019 logical(LKG) ,
intent(in) :: pattern
4020 logical(LKG) ,
allocatable :: arrayStripped(:)
4021 type(right_type) ,
intent(in) :: side
4028 module function getStrippedCusComSR_D1_D0_CK5(array, pattern, iseq, side)
result(arrayStripped)
4029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4030 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_CK5
4033 procedure(
logical(LK)) :: iseq
4034 complex(CKG) ,
intent(in),
contiguous :: array(:)
4035 complex(CKG) ,
intent(in) :: pattern
4036 complex(CKG) ,
allocatable :: arrayStripped(:)
4037 type(right_type) ,
intent(in) :: side
4042 module function getStrippedCusComSR_D1_D0_CK4(array, pattern, iseq, side)
result(arrayStripped)
4043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4044 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_CK4
4047 procedure(
logical(LK)) :: iseq
4048 complex(CKG) ,
intent(in),
contiguous :: array(:)
4049 complex(CKG) ,
intent(in) :: pattern
4050 complex(CKG) ,
allocatable :: arrayStripped(:)
4051 type(right_type) ,
intent(in) :: side
4056 module function getStrippedCusComSR_D1_D0_CK3(array, pattern, iseq, side)
result(arrayStripped)
4057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4058 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_CK3
4061 procedure(
logical(LK)) :: iseq
4062 complex(CKG) ,
intent(in),
contiguous :: array(:)
4063 complex(CKG) ,
intent(in) :: pattern
4064 complex(CKG) ,
allocatable :: arrayStripped(:)
4065 type(right_type) ,
intent(in) :: side
4070 module function getStrippedCusComSR_D1_D0_CK2(array, pattern, iseq, side)
result(arrayStripped)
4071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4072 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_CK2
4075 procedure(
logical(LK)) :: iseq
4076 complex(CKG) ,
intent(in),
contiguous :: array(:)
4077 complex(CKG) ,
intent(in) :: pattern
4078 complex(CKG) ,
allocatable :: arrayStripped(:)
4079 type(right_type) ,
intent(in) :: side
4084 module function getStrippedCusComSR_D1_D0_CK1(array, pattern, iseq, side)
result(arrayStripped)
4085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4086 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_CK1
4089 procedure(
logical(LK)) :: iseq
4090 complex(CKG) ,
intent(in),
contiguous :: array(:)
4091 complex(CKG) ,
intent(in) :: pattern
4092 complex(CKG) ,
allocatable :: arrayStripped(:)
4093 type(right_type) ,
intent(in) :: side
4100 module function getStrippedCusComSR_D1_D0_RK5(array, pattern, iseq, side)
result(arrayStripped)
4101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4102 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_RK5
4105 real(RKG) ,
intent(in),
contiguous :: array(:)
4106 real(RKG) ,
intent(in) :: pattern
4107 procedure(
logical(LK)) :: iseq
4108 real(RKG) ,
allocatable :: arrayStripped(:)
4109 type(right_type) ,
intent(in) :: side
4114 module function getStrippedCusComSR_D1_D0_RK4(array, pattern, iseq, side)
result(arrayStripped)
4115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4116 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_RK4
4119 real(RKG) ,
intent(in),
contiguous :: array(:)
4120 real(RKG) ,
intent(in) :: pattern
4121 procedure(
logical(LK)) :: iseq
4122 real(RKG) ,
allocatable :: arrayStripped(:)
4123 type(right_type) ,
intent(in) :: side
4128 module function getStrippedCusComSR_D1_D0_RK3(array, pattern, iseq, side)
result(arrayStripped)
4129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4130 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_RK3
4133 real(RKG) ,
intent(in),
contiguous :: array(:)
4134 real(RKG) ,
intent(in) :: pattern
4135 procedure(
logical(LK)) :: iseq
4136 real(RKG) ,
allocatable :: arrayStripped(:)
4137 type(right_type) ,
intent(in) :: side
4142 module function getStrippedCusComSR_D1_D0_RK2(array, pattern, iseq, side)
result(arrayStripped)
4143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4144 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_RK2
4147 real(RKG) ,
intent(in),
contiguous :: array(:)
4148 real(RKG) ,
intent(in) :: pattern
4149 procedure(
logical(LK)) :: iseq
4150 real(RKG) ,
allocatable :: arrayStripped(:)
4151 type(right_type) ,
intent(in) :: side
4156 module function getStrippedCusComSR_D1_D0_RK1(array, pattern, iseq, side)
result(arrayStripped)
4157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4158 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D0_RK1
4161 real(RKG) ,
intent(in),
contiguous :: array(:)
4162 real(RKG) ,
intent(in) :: pattern
4163 procedure(
logical(LK)) :: iseq
4164 real(RKG) ,
allocatable :: arrayStripped(:)
4165 type(right_type) ,
intent(in) :: side
4178 PURE module function getStrippedDefComSR_D1_D1_SK5(array, pattern, side)
result(arrayStripped)
4179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4180 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_SK5
4183 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4184 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
4185 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
4186 type(right_type) ,
intent(in) :: side
4191 PURE module function getStrippedDefComSR_D1_D1_SK4(array, pattern, side)
result(arrayStripped)
4192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4193 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_SK4
4196 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4197 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
4198 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
4199 type(right_type) ,
intent(in) :: side
4204 PURE module function getStrippedDefComSR_D1_D1_SK3(array, pattern, side)
result(arrayStripped)
4205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4206 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_SK3
4209 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4210 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
4211 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
4212 type(right_type) ,
intent(in) :: side
4217 PURE module function getStrippedDefComSR_D1_D1_SK2(array, pattern, side)
result(arrayStripped)
4218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4219 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_SK2
4222 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4223 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
4224 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
4225 type(right_type) ,
intent(in) :: side
4230 PURE module function getStrippedDefComSR_D1_D1_SK1(array, pattern, side)
result(arrayStripped)
4231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4232 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_SK1
4235 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4236 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
4237 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
4238 type(right_type) ,
intent(in) :: side
4245 PURE module function getStrippedDefComSR_D1_D1_IK5(array, pattern, side)
result(arrayStripped)
4246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4247 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_IK5
4250 integer(IKG) ,
intent(in),
contiguous :: array(:)
4251 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
4252 integer(IKG) ,
allocatable :: arrayStripped(:)
4253 type(right_type) ,
intent(in) :: side
4258 PURE module function getStrippedDefComSR_D1_D1_IK4(array, pattern, side)
result(arrayStripped)
4259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4260 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_IK4
4263 integer(IKG) ,
intent(in),
contiguous :: array(:)
4264 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
4265 integer(IKG) ,
allocatable :: arrayStripped(:)
4266 type(right_type) ,
intent(in) :: side
4271 PURE module function getStrippedDefComSR_D1_D1_IK3(array, pattern, side)
result(arrayStripped)
4272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4273 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_IK3
4276 integer(IKG) ,
intent(in),
contiguous :: array(:)
4277 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
4278 integer(IKG) ,
allocatable :: arrayStripped(:)
4279 type(right_type) ,
intent(in) :: side
4284 PURE module function getStrippedDefComSR_D1_D1_IK2(array, pattern, side)
result(arrayStripped)
4285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4286 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_IK2
4289 integer(IKG) ,
intent(in),
contiguous :: array(:)
4290 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
4291 integer(IKG) ,
allocatable :: arrayStripped(:)
4292 type(right_type) ,
intent(in) :: side
4297 PURE module function getStrippedDefComSR_D1_D1_IK1(array, pattern, side)
result(arrayStripped)
4298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4299 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_IK1
4302 integer(IKG) ,
intent(in),
contiguous :: array(:)
4303 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
4304 integer(IKG) ,
allocatable :: arrayStripped(:)
4305 type(right_type) ,
intent(in) :: side
4312 PURE module function getStrippedDefComSR_D1_D1_LK5(array, pattern, side)
result(arrayStripped)
4313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4314 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_LK5
4317 logical(LKG) ,
intent(in),
contiguous :: array(:)
4318 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
4319 logical(LKG) ,
allocatable :: arrayStripped(:)
4320 type(right_type) ,
intent(in) :: side
4325 PURE module function getStrippedDefComSR_D1_D1_LK4(array, pattern, side)
result(arrayStripped)
4326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4327 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_LK4
4330 logical(LKG) ,
intent(in),
contiguous :: array(:)
4331 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
4332 logical(LKG) ,
allocatable :: arrayStripped(:)
4333 type(right_type) ,
intent(in) :: side
4338 PURE module function getStrippedDefComSR_D1_D1_LK3(array, pattern, side)
result(arrayStripped)
4339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4340 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_LK3
4343 logical(LKG) ,
intent(in),
contiguous :: array(:)
4344 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
4345 logical(LKG) ,
allocatable :: arrayStripped(:)
4346 type(right_type) ,
intent(in) :: side
4351 PURE module function getStrippedDefComSR_D1_D1_LK2(array, pattern, side)
result(arrayStripped)
4352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4353 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_LK2
4356 logical(LKG) ,
intent(in),
contiguous :: array(:)
4357 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
4358 logical(LKG) ,
allocatable :: arrayStripped(:)
4359 type(right_type) ,
intent(in) :: side
4364 PURE module function getStrippedDefComSR_D1_D1_LK1(array, pattern, side)
result(arrayStripped)
4365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4366 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_LK1
4369 logical(LKG) ,
intent(in),
contiguous :: array(:)
4370 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
4371 logical(LKG) ,
allocatable :: arrayStripped(:)
4372 type(right_type) ,
intent(in) :: side
4379 PURE module function getStrippedDefComSR_D1_D1_CK5(array, pattern, side)
result(arrayStripped)
4380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4381 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_CK5
4384 complex(CKG) ,
intent(in),
contiguous :: array(:)
4385 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
4386 complex(CKG) ,
allocatable :: arrayStripped(:)
4387 type(right_type) ,
intent(in) :: side
4392 PURE module function getStrippedDefComSR_D1_D1_CK4(array, pattern, side)
result(arrayStripped)
4393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4394 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_CK4
4397 complex(CKG) ,
intent(in),
contiguous :: array(:)
4398 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
4399 complex(CKG) ,
allocatable :: arrayStripped(:)
4400 type(right_type) ,
intent(in) :: side
4405 PURE module function getStrippedDefComSR_D1_D1_CK3(array, pattern, side)
result(arrayStripped)
4406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4407 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_CK3
4410 complex(CKG) ,
intent(in),
contiguous :: array(:)
4411 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
4412 complex(CKG) ,
allocatable :: arrayStripped(:)
4413 type(right_type) ,
intent(in) :: side
4418 PURE module function getStrippedDefComSR_D1_D1_CK2(array, pattern, side)
result(arrayStripped)
4419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4420 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_CK2
4423 complex(CKG) ,
intent(in),
contiguous :: array(:)
4424 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
4425 complex(CKG) ,
allocatable :: arrayStripped(:)
4426 type(right_type) ,
intent(in) :: side
4431 PURE module function getStrippedDefComSR_D1_D1_CK1(array, pattern, side)
result(arrayStripped)
4432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4433 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_CK1
4436 complex(CKG) ,
intent(in),
contiguous :: array(:)
4437 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
4438 complex(CKG) ,
allocatable :: arrayStripped(:)
4439 type(right_type) ,
intent(in) :: side
4446 PURE module function getStrippedDefComSR_D1_D1_RK5(array, pattern, side)
result(arrayStripped)
4447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4448 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_RK5
4451 real(RKG) ,
intent(in),
contiguous :: array(:)
4452 real(RKG) ,
intent(in),
contiguous :: pattern(:)
4453 real(RKG) ,
allocatable :: arrayStripped(:)
4454 type(right_type) ,
intent(in) :: side
4459 PURE module function getStrippedDefComSR_D1_D1_RK4(array, pattern, side)
result(arrayStripped)
4460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4461 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_RK4
4464 real(RKG) ,
intent(in),
contiguous :: array(:)
4465 real(RKG) ,
intent(in),
contiguous :: pattern(:)
4466 real(RKG) ,
allocatable :: arrayStripped(:)
4467 type(right_type) ,
intent(in) :: side
4472 PURE module function getStrippedDefComSR_D1_D1_RK3(array, pattern, side)
result(arrayStripped)
4473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4474 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_RK3
4477 real(RKG) ,
intent(in),
contiguous :: array(:)
4478 real(RKG) ,
intent(in),
contiguous :: pattern(:)
4479 real(RKG) ,
allocatable :: arrayStripped(:)
4480 type(right_type) ,
intent(in) :: side
4485 PURE module function getStrippedDefComSR_D1_D1_RK2(array, pattern, side)
result(arrayStripped)
4486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4487 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_RK2
4490 real(RKG) ,
intent(in),
contiguous :: array(:)
4491 real(RKG) ,
intent(in),
contiguous :: pattern(:)
4492 real(RKG) ,
allocatable :: arrayStripped(:)
4493 type(right_type) ,
intent(in) :: side
4498 PURE module function getStrippedDefComSR_D1_D1_RK1(array, pattern, side)
result(arrayStripped)
4499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4500 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedDefComSR_D1_D1_RK1
4503 real(RKG) ,
intent(in),
contiguous :: array(:)
4504 real(RKG) ,
intent(in),
contiguous :: pattern(:)
4505 real(RKG) ,
allocatable :: arrayStripped(:)
4506 type(right_type) ,
intent(in) :: side
4519 module function getStrippedCusComSR_D1_D1_SK5(array, pattern, iseq, side)
result(arrayStripped)
4520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4521 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_SK5
4524 procedure(
logical(LK)) :: iseq
4525 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4526 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
4527 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
4528 type(right_type) ,
intent(in) :: side
4533 module function getStrippedCusComSR_D1_D1_SK4(array, pattern, iseq, side)
result(arrayStripped)
4534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4535 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_SK4
4538 procedure(
logical(LK)) :: iseq
4539 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4540 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
4541 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
4542 type(right_type) ,
intent(in) :: side
4547 module function getStrippedCusComSR_D1_D1_SK3(array, pattern, iseq, side)
result(arrayStripped)
4548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4549 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_SK3
4552 procedure(
logical(LK)) :: iseq
4553 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4554 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
4555 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
4556 type(right_type) ,
intent(in) :: side
4561 module function getStrippedCusComSR_D1_D1_SK2(array, pattern, iseq, side)
result(arrayStripped)
4562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4563 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_SK2
4566 procedure(
logical(LK)) :: iseq
4567 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4568 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
4569 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
4570 type(right_type) ,
intent(in) :: side
4575 module function getStrippedCusComSR_D1_D1_SK1(array, pattern, iseq, side)
result(arrayStripped)
4576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4577 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_SK1
4580 procedure(
logical(LK)) :: iseq
4581 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4582 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
4583 character(
len(array,IK),SKG) ,
allocatable :: arrayStripped(:)
4584 type(right_type) ,
intent(in) :: side
4591 module function getStrippedCusComSR_D1_D1_IK5(array, pattern, iseq, side)
result(arrayStripped)
4592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4593 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_IK5
4596 procedure(
logical(LK)) :: iseq
4597 integer(IKG) ,
intent(in),
contiguous :: array(:)
4598 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
4599 integer(IKG) ,
allocatable :: arrayStripped(:)
4600 type(right_type) ,
intent(in) :: side
4605 module function getStrippedCusComSR_D1_D1_IK4(array, pattern, iseq, side)
result(arrayStripped)
4606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4607 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_IK4
4610 procedure(
logical(LK)) :: iseq
4611 integer(IKG) ,
intent(in),
contiguous :: array(:)
4612 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
4613 integer(IKG) ,
allocatable :: arrayStripped(:)
4614 type(right_type) ,
intent(in) :: side
4619 module function getStrippedCusComSR_D1_D1_IK3(array, pattern, iseq, side)
result(arrayStripped)
4620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4621 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_IK3
4624 procedure(
logical(LK)) :: iseq
4625 integer(IKG) ,
intent(in),
contiguous :: array(:)
4626 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
4627 integer(IKG) ,
allocatable :: arrayStripped(:)
4628 type(right_type) ,
intent(in) :: side
4633 module function getStrippedCusComSR_D1_D1_IK2(array, pattern, iseq, side)
result(arrayStripped)
4634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4635 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_IK2
4638 procedure(
logical(LK)) :: iseq
4639 integer(IKG) ,
intent(in),
contiguous :: array(:)
4640 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
4641 integer(IKG) ,
allocatable :: arrayStripped(:)
4642 type(right_type) ,
intent(in) :: side
4647 module function getStrippedCusComSR_D1_D1_IK1(array, pattern, iseq, side)
result(arrayStripped)
4648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4649 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_IK1
4652 procedure(
logical(LK)) :: iseq
4653 integer(IKG) ,
intent(in),
contiguous :: array(:)
4654 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
4655 integer(IKG) ,
allocatable :: arrayStripped(:)
4656 type(right_type) ,
intent(in) :: side
4663 module function getStrippedCusComSR_D1_D1_LK5(array, pattern, iseq, side)
result(arrayStripped)
4664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4665 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_LK5
4668 procedure(
logical(LK)) :: iseq
4669 logical(LKG) ,
intent(in),
contiguous :: array(:)
4670 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
4671 logical(LKG) ,
allocatable :: arrayStripped(:)
4672 type(right_type) ,
intent(in) :: side
4677 module function getStrippedCusComSR_D1_D1_LK4(array, pattern, iseq, side)
result(arrayStripped)
4678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4679 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_LK4
4682 procedure(
logical(LK)) :: iseq
4683 logical(LKG) ,
intent(in),
contiguous :: array(:)
4684 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
4685 logical(LKG) ,
allocatable :: arrayStripped(:)
4686 type(right_type) ,
intent(in) :: side
4691 module function getStrippedCusComSR_D1_D1_LK3(array, pattern, iseq, side)
result(arrayStripped)
4692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4693 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_LK3
4696 procedure(
logical(LK)) :: iseq
4697 logical(LKG) ,
intent(in),
contiguous :: array(:)
4698 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
4699 logical(LKG) ,
allocatable :: arrayStripped(:)
4700 type(right_type) ,
intent(in) :: side
4705 module function getStrippedCusComSR_D1_D1_LK2(array, pattern, iseq, side)
result(arrayStripped)
4706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4707 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_LK2
4710 procedure(
logical(LK)) :: iseq
4711 logical(LKG) ,
intent(in),
contiguous :: array(:)
4712 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
4713 logical(LKG) ,
allocatable :: arrayStripped(:)
4714 type(right_type) ,
intent(in) :: side
4719 module function getStrippedCusComSR_D1_D1_LK1(array, pattern, iseq, side)
result(arrayStripped)
4720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4721 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_LK1
4724 procedure(
logical(LK)) :: iseq
4725 logical(LKG) ,
intent(in),
contiguous :: array(:)
4726 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
4727 logical(LKG) ,
allocatable :: arrayStripped(:)
4728 type(right_type) ,
intent(in) :: side
4735 module function getStrippedCusComSR_D1_D1_CK5(array, pattern, iseq, side)
result(arrayStripped)
4736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4737 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_CK5
4740 procedure(
logical(LK)) :: iseq
4741 complex(CKG) ,
intent(in),
contiguous :: array(:)
4742 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
4743 complex(CKG) ,
allocatable :: arrayStripped(:)
4744 type(right_type) ,
intent(in) :: side
4749 module function getStrippedCusComSR_D1_D1_CK4(array, pattern, iseq, side)
result(arrayStripped)
4750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4751 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_CK4
4754 procedure(
logical(LK)) :: iseq
4755 complex(CKG) ,
intent(in),
contiguous :: array(:)
4756 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
4757 complex(CKG) ,
allocatable :: arrayStripped(:)
4758 type(right_type) ,
intent(in) :: side
4763 module function getStrippedCusComSR_D1_D1_CK3(array, pattern, iseq, side)
result(arrayStripped)
4764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4765 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_CK3
4768 procedure(
logical(LK)) :: iseq
4769 complex(CKG) ,
intent(in),
contiguous :: array(:)
4770 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
4771 complex(CKG) ,
allocatable :: arrayStripped(:)
4772 type(right_type) ,
intent(in) :: side
4777 module function getStrippedCusComSR_D1_D1_CK2(array, pattern, iseq, side)
result(arrayStripped)
4778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4779 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_CK2
4782 procedure(
logical(LK)) :: iseq
4783 complex(CKG) ,
intent(in),
contiguous :: array(:)
4784 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
4785 complex(CKG) ,
allocatable :: arrayStripped(:)
4786 type(right_type) ,
intent(in) :: side
4791 module function getStrippedCusComSR_D1_D1_CK1(array, pattern, iseq, side)
result(arrayStripped)
4792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4793 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_CK1
4796 procedure(
logical(LK)) :: iseq
4797 complex(CKG) ,
intent(in),
contiguous :: array(:)
4798 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
4799 complex(CKG) ,
allocatable :: arrayStripped(:)
4800 type(right_type) ,
intent(in) :: side
4807 module function getStrippedCusComSR_D1_D1_RK5(array, pattern, iseq, side)
result(arrayStripped)
4808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4809 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_RK5
4812 procedure(
logical(LK)) :: iseq
4813 real(RKG) ,
intent(in),
contiguous :: array(:)
4814 real(RKG) ,
intent(in),
contiguous :: pattern(:)
4815 real(RKG) ,
allocatable :: arrayStripped(:)
4816 type(right_type) ,
intent(in) :: side
4821 module function getStrippedCusComSR_D1_D1_RK4(array, pattern, iseq, side)
result(arrayStripped)
4822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4823 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_RK4
4826 procedure(
logical(LK)) :: iseq
4827 real(RKG) ,
intent(in),
contiguous :: array(:)
4828 real(RKG) ,
intent(in),
contiguous :: pattern(:)
4829 real(RKG) ,
allocatable :: arrayStripped(:)
4830 type(right_type) ,
intent(in) :: side
4835 module function getStrippedCusComSR_D1_D1_RK3(array, pattern, iseq, side)
result(arrayStripped)
4836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4837 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_RK3
4840 procedure(
logical(LK)) :: iseq
4841 real(RKG) ,
intent(in),
contiguous :: array(:)
4842 real(RKG) ,
intent(in),
contiguous :: pattern(:)
4843 real(RKG) ,
allocatable :: arrayStripped(:)
4844 type(right_type) ,
intent(in) :: side
4849 module function getStrippedCusComSR_D1_D1_RK2(array, pattern, iseq, side)
result(arrayStripped)
4850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4851 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_RK2
4854 procedure(
logical(LK)) :: iseq
4855 real(RKG) ,
intent(in),
contiguous :: array(:)
4856 real(RKG) ,
intent(in),
contiguous :: pattern(:)
4857 real(RKG) ,
allocatable :: arrayStripped(:)
4858 type(right_type) ,
intent(in) :: side
4863 module function getStrippedCusComSR_D1_D1_RK1(array, pattern, iseq, side)
result(arrayStripped)
4864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4865 !DEC$ ATTRIBUTES DLLEXPORT :: getStrippedCusComSR_D1_D1_RK1
4868 procedure(
logical(LK)) :: iseq
4869 real(RKG) ,
intent(in),
contiguous :: array(:)
4870 real(RKG) ,
intent(in),
contiguous :: pattern(:)
4871 real(RKG) ,
allocatable :: arrayStripped(:)
4872 type(right_type) ,
intent(in) :: side
5012 PURE module function getSILDefCom_D0_D0_SK5(array, pattern)
result(index)
5013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5014 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D0_D0_SK5
5017 character(
*,SKG) ,
intent(in) :: array
5018 character(
*,SKG) ,
intent(in) :: pattern
5019 integer(IK) :: index
5024 PURE module function getSILDefCom_D0_D0_SK4(array, pattern)
result(index)
5025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5026 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D0_D0_SK4
5029 character(
*,SKG) ,
intent(in) :: array
5030 character(
*,SKG) ,
intent(in) :: pattern
5031 integer(IK) :: index
5036 PURE module function getSILDefCom_D0_D0_SK3(array, pattern)
result(index)
5037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5038 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D0_D0_SK3
5041 character(
*,SKG) ,
intent(in) :: array
5042 character(
*,SKG) ,
intent(in) :: pattern
5043 integer(IK) :: index
5048 PURE module function getSILDefCom_D0_D0_SK2(array, pattern)
result(index)
5049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5050 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D0_D0_SK2
5053 character(
*,SKG) ,
intent(in) :: array
5054 character(
*,SKG) ,
intent(in) :: pattern
5055 integer(IK) :: index
5060 PURE module function getSILDefCom_D0_D0_SK1(array, pattern)
result(index)
5061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5062 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D0_D0_SK1
5065 character(
*,SKG) ,
intent(in) :: array
5066 character(
*,SKG) ,
intent(in) :: pattern
5067 integer(IK) :: index
5074 PURE module function getSILDefCom_D1_D0_SK5(array, pattern)
result(index)
5075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5076 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_SK5
5079 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5080 character(
*,SKG) ,
intent(in) :: pattern
5081 integer(IK) :: index
5086 PURE module function getSILDefCom_D1_D0_SK4(array, pattern)
result(index)
5087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5088 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_SK4
5091 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5092 character(
*,SKG) ,
intent(in) :: pattern
5093 integer(IK) :: index
5098 PURE module function getSILDefCom_D1_D0_SK3(array, pattern)
result(index)
5099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5100 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_SK3
5103 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5104 character(
*,SKG) ,
intent(in) :: pattern
5105 integer(IK) :: index
5110 PURE module function getSILDefCom_D1_D0_SK2(array, pattern)
result(index)
5111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5112 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_SK2
5115 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5116 character(
*,SKG) ,
intent(in) :: pattern
5117 integer(IK) :: index
5122 PURE module function getSILDefCom_D1_D0_SK1(array, pattern)
result(index)
5123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5124 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_SK1
5127 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5128 character(
*,SKG) ,
intent(in) :: pattern
5129 integer(IK) :: index
5136 PURE module function getSILDefCom_D1_D0_IK5(array, pattern)
result(index)
5137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5138 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_IK5
5141 integer(IKG) ,
intent(in),
contiguous :: array(:)
5142 integer(IKG) ,
intent(in) :: pattern
5143 integer(IK) :: index
5148 PURE module function getSILDefCom_D1_D0_IK4(array, pattern)
result(index)
5149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5150 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_IK4
5153 integer(IKG) ,
intent(in),
contiguous :: array(:)
5154 integer(IKG) ,
intent(in) :: pattern
5155 integer(IK) :: index
5160 PURE module function getSILDefCom_D1_D0_IK3(array, pattern)
result(index)
5161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5162 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_IK3
5165 integer(IKG) ,
intent(in),
contiguous :: array(:)
5166 integer(IKG) ,
intent(in) :: pattern
5167 integer(IK) :: index
5172 PURE module function getSILDefCom_D1_D0_IK2(array, pattern)
result(index)
5173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5174 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_IK2
5177 integer(IKG) ,
intent(in),
contiguous :: array(:)
5178 integer(IKG) ,
intent(in) :: pattern
5179 integer(IK) :: index
5184 PURE module function getSILDefCom_D1_D0_IK1(array, pattern)
result(index)
5185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5186 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_IK1
5189 integer(IKG) ,
intent(in),
contiguous :: array(:)
5190 integer(IKG) ,
intent(in) :: pattern
5191 integer(IK) :: index
5198 PURE module function getSILDefCom_D1_D0_LK5(array, pattern)
result(index)
5199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5200 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_LK5
5203 logical(LKG) ,
intent(in),
contiguous :: array(:)
5204 logical(LKG) ,
intent(in) :: pattern
5205 integer(IK) :: index
5210 PURE module function getSILDefCom_D1_D0_LK4(array, pattern)
result(index)
5211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5212 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_LK4
5215 logical(LKG) ,
intent(in),
contiguous :: array(:)
5216 logical(LKG) ,
intent(in) :: pattern
5217 integer(IK) :: index
5222 PURE module function getSILDefCom_D1_D0_LK3(array, pattern)
result(index)
5223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5224 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_LK3
5227 logical(LKG) ,
intent(in),
contiguous :: array(:)
5228 logical(LKG) ,
intent(in) :: pattern
5229 integer(IK) :: index
5234 PURE module function getSILDefCom_D1_D0_LK2(array, pattern)
result(index)
5235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5236 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_LK2
5239 logical(LKG) ,
intent(in),
contiguous :: array(:)
5240 logical(LKG) ,
intent(in) :: pattern
5241 integer(IK) :: index
5246 PURE module function getSILDefCom_D1_D0_LK1(array, pattern)
result(index)
5247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5248 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_LK1
5251 logical(LKG) ,
intent(in),
contiguous :: array(:)
5252 logical(LKG) ,
intent(in) :: pattern
5253 integer(IK) :: index
5260 PURE module function getSILDefCom_D1_D0_CK5(array, pattern)
result(index)
5261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5262 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_CK5
5265 complex(CKG) ,
intent(in),
contiguous :: array(:)
5266 complex(CKG) ,
intent(in) :: pattern
5267 integer(IK) :: index
5272 PURE module function getSILDefCom_D1_D0_CK4(array, pattern)
result(index)
5273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5274 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_CK4
5277 complex(CKG) ,
intent(in),
contiguous :: array(:)
5278 complex(CKG) ,
intent(in) :: pattern
5279 integer(IK) :: index
5284 PURE module function getSILDefCom_D1_D0_CK3(array, pattern)
result(index)
5285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5286 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_CK3
5289 complex(CKG) ,
intent(in),
contiguous :: array(:)
5290 complex(CKG) ,
intent(in) :: pattern
5291 integer(IK) :: index
5296 PURE module function getSILDefCom_D1_D0_CK2(array, pattern)
result(index)
5297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5298 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_CK2
5301 complex(CKG) ,
intent(in),
contiguous :: array(:)
5302 complex(CKG) ,
intent(in) :: pattern
5303 integer(IK) :: index
5308 PURE module function getSILDefCom_D1_D0_CK1(array, pattern)
result(index)
5309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5310 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_CK1
5313 complex(CKG) ,
intent(in),
contiguous :: array(:)
5314 complex(CKG) ,
intent(in) :: pattern
5315 integer(IK) :: index
5322 PURE module function getSILDefCom_D1_D0_RK5(array, pattern)
result(index)
5323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5324 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_RK5
5327 real(RKG) ,
intent(in),
contiguous :: array(:)
5328 real(RKG) ,
intent(in) :: pattern
5329 integer(IK) :: index
5334 PURE module function getSILDefCom_D1_D0_RK4(array, pattern)
result(index)
5335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5336 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_RK4
5339 real(RKG) ,
intent(in),
contiguous :: array(:)
5340 real(RKG) ,
intent(in) :: pattern
5341 integer(IK) :: index
5346 PURE module function getSILDefCom_D1_D0_RK3(array, pattern)
result(index)
5347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5348 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_RK3
5351 real(RKG) ,
intent(in),
contiguous :: array(:)
5352 real(RKG) ,
intent(in) :: pattern
5353 integer(IK) :: index
5358 PURE module function getSILDefCom_D1_D0_RK2(array, pattern)
result(index)
5359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5360 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_RK2
5363 real(RKG) ,
intent(in),
contiguous :: array(:)
5364 real(RKG) ,
intent(in) :: pattern
5365 integer(IK) :: index
5370 PURE module function getSILDefCom_D1_D0_RK1(array, pattern)
result(index)
5371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5372 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D0_RK1
5375 real(RKG) ,
intent(in),
contiguous :: array(:)
5376 real(RKG) ,
intent(in) :: pattern
5377 integer(IK) :: index
5390 module function getSILCusCom_D0_D0_SK5(array, pattern, iseq)
result(index)
5391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5392 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D0_D0_SK5
5395 character(
*,SKG) ,
intent(in) :: array
5396 character(
*,SKG) ,
intent(in) :: pattern
5397 procedure(
logical(LK)) :: iseq
5398 integer(IK) :: index
5403 module function getSILCusCom_D0_D0_SK4(array, pattern, iseq)
result(index)
5404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5405 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D0_D0_SK4
5408 character(
*,SKG) ,
intent(in) :: array
5409 character(
*,SKG) ,
intent(in) :: pattern
5410 procedure(
logical(LK)) :: iseq
5411 integer(IK) :: index
5416 module function getSILCusCom_D0_D0_SK3(array, pattern, iseq)
result(index)
5417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5418 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D0_D0_SK3
5421 character(
*,SKG) ,
intent(in) :: array
5422 character(
*,SKG) ,
intent(in) :: pattern
5423 procedure(
logical(LK)) :: iseq
5424 integer(IK) :: index
5429 module function getSILCusCom_D0_D0_SK2(array, pattern, iseq)
result(index)
5430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5431 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D0_D0_SK2
5434 character(
*,SKG) ,
intent(in) :: array
5435 character(
*,SKG) ,
intent(in) :: pattern
5436 procedure(
logical(LK)) :: iseq
5437 integer(IK) :: index
5442 module function getSILCusCom_D0_D0_SK1(array, pattern, iseq)
result(index)
5443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5444 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D0_D0_SK1
5447 character(
*,SKG) ,
intent(in) :: array
5448 character(
*,SKG) ,
intent(in) :: pattern
5449 procedure(
logical(LK)) :: iseq
5450 integer(IK) :: index
5457 module function getSILCusCom_D1_D0_SK5(array, pattern, iseq)
result(index)
5458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5459 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_SK5
5462 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5463 character(
*,SKG) ,
intent(in) :: pattern
5464 procedure(
logical(LK)) :: iseq
5465 integer(IK) :: index
5470 module function getSILCusCom_D1_D0_SK4(array, pattern, iseq)
result(index)
5471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5472 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_SK4
5475 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5476 character(
*,SKG) ,
intent(in) :: pattern
5477 procedure(
logical(LK)) :: iseq
5478 integer(IK) :: index
5483 module function getSILCusCom_D1_D0_SK3(array, pattern, iseq)
result(index)
5484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5485 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_SK3
5488 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5489 character(
*,SKG) ,
intent(in) :: pattern
5490 procedure(
logical(LK)) :: iseq
5491 integer(IK) :: index
5496 module function getSILCusCom_D1_D0_SK2(array, pattern, iseq)
result(index)
5497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5498 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_SK2
5501 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5502 character(
*,SKG) ,
intent(in) :: pattern
5503 procedure(
logical(LK)) :: iseq
5504 integer(IK) :: index
5509 module function getSILCusCom_D1_D0_SK1(array, pattern, iseq)
result(index)
5510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5511 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_SK1
5514 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5515 character(
*,SKG) ,
intent(in) :: pattern
5516 procedure(
logical(LK)) :: iseq
5517 integer(IK) :: index
5524 module function getSILCusCom_D1_D0_IK5(array, pattern, iseq)
result(index)
5525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5526 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_IK5
5529 integer(IKG) ,
intent(in),
contiguous :: array(:)
5530 integer(IKG) ,
intent(in) :: pattern
5531 procedure(
logical(LK)) :: iseq
5532 integer(IK) :: index
5537 module function getSILCusCom_D1_D0_IK4(array, pattern, iseq)
result(index)
5538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5539 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_IK4
5542 integer(IKG) ,
intent(in),
contiguous :: array(:)
5543 integer(IKG) ,
intent(in) :: pattern
5544 procedure(
logical(LK)) :: iseq
5545 integer(IK) :: index
5550 module function getSILCusCom_D1_D0_IK3(array, pattern, iseq)
result(index)
5551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5552 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_IK3
5555 integer(IKG) ,
intent(in),
contiguous :: array(:)
5556 integer(IKG) ,
intent(in) :: pattern
5557 procedure(
logical(LK)) :: iseq
5558 integer(IK) :: index
5563 module function getSILCusCom_D1_D0_IK2(array, pattern, iseq)
result(index)
5564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5565 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_IK2
5568 integer(IKG) ,
intent(in),
contiguous :: array(:)
5569 integer(IKG) ,
intent(in) :: pattern
5570 procedure(
logical(LK)) :: iseq
5571 integer(IK) :: index
5576 module function getSILCusCom_D1_D0_IK1(array, pattern, iseq)
result(index)
5577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5578 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_IK1
5581 integer(IKG) ,
intent(in),
contiguous :: array(:)
5582 integer(IKG) ,
intent(in) :: pattern
5583 procedure(
logical(LK)) :: iseq
5584 integer(IK) :: index
5591 module function getSILCusCom_D1_D0_LK5(array, pattern, iseq)
result(index)
5592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5593 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_LK5
5596 logical(LKG) ,
intent(in),
contiguous :: array(:)
5597 logical(LKG) ,
intent(in) :: pattern
5598 procedure(
logical(LK)) :: iseq
5599 integer(IK) :: index
5604 module function getSILCusCom_D1_D0_LK4(array, pattern, iseq)
result(index)
5605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5606 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_LK4
5609 logical(LKG) ,
intent(in),
contiguous :: array(:)
5610 logical(LKG) ,
intent(in) :: pattern
5611 procedure(
logical(LK)) :: iseq
5612 integer(IK) :: index
5617 module function getSILCusCom_D1_D0_LK3(array, pattern, iseq)
result(index)
5618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5619 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_LK3
5622 logical(LKG) ,
intent(in),
contiguous :: array(:)
5623 logical(LKG) ,
intent(in) :: pattern
5624 procedure(
logical(LK)) :: iseq
5625 integer(IK) :: index
5630 module function getSILCusCom_D1_D0_LK2(array, pattern, iseq)
result(index)
5631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5632 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_LK2
5635 logical(LKG) ,
intent(in),
contiguous :: array(:)
5636 logical(LKG) ,
intent(in) :: pattern
5637 procedure(
logical(LK)) :: iseq
5638 integer(IK) :: index
5643 module function getSILCusCom_D1_D0_LK1(array, pattern, iseq)
result(index)
5644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5645 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_LK1
5648 logical(LKG) ,
intent(in),
contiguous :: array(:)
5649 logical(LKG) ,
intent(in) :: pattern
5650 procedure(
logical(LK)) :: iseq
5651 integer(IK) :: index
5658 module function getSILCusCom_D1_D0_CK5(array, pattern, iseq)
result(index)
5659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5660 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_CK5
5663 complex(CKG) ,
intent(in),
contiguous :: array(:)
5664 complex(CKG) ,
intent(in) :: pattern
5665 procedure(
logical(LK)) :: iseq
5666 integer(IK) :: index
5671 module function getSILCusCom_D1_D0_CK4(array, pattern, iseq)
result(index)
5672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5673 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_CK4
5676 complex(CKG) ,
intent(in),
contiguous :: array(:)
5677 complex(CKG) ,
intent(in) :: pattern
5678 procedure(
logical(LK)) :: iseq
5679 integer(IK) :: index
5684 module function getSILCusCom_D1_D0_CK3(array, pattern, iseq)
result(index)
5685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5686 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_CK3
5689 complex(CKG) ,
intent(in),
contiguous :: array(:)
5690 complex(CKG) ,
intent(in) :: pattern
5691 procedure(
logical(LK)) :: iseq
5692 integer(IK) :: index
5697 module function getSILCusCom_D1_D0_CK2(array, pattern, iseq)
result(index)
5698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5699 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_CK2
5702 complex(CKG) ,
intent(in),
contiguous :: array(:)
5703 complex(CKG) ,
intent(in) :: pattern
5704 procedure(
logical(LK)) :: iseq
5705 integer(IK) :: index
5710 module function getSILCusCom_D1_D0_CK1(array, pattern, iseq)
result(index)
5711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5712 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_CK1
5715 complex(CKG) ,
intent(in),
contiguous :: array(:)
5716 complex(CKG) ,
intent(in) :: pattern
5717 procedure(
logical(LK)) :: iseq
5718 integer(IK) :: index
5725 module function getSILCusCom_D1_D0_RK5(array, pattern, iseq)
result(index)
5726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5727 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_RK5
5730 real(RKG) ,
intent(in),
contiguous :: array(:)
5731 real(RKG) ,
intent(in) :: pattern
5732 procedure(
logical(LK)) :: iseq
5733 integer(IK) :: index
5738 module function getSILCusCom_D1_D0_RK4(array, pattern, iseq)
result(index)
5739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5740 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_RK4
5743 real(RKG) ,
intent(in),
contiguous :: array(:)
5744 real(RKG) ,
intent(in) :: pattern
5745 procedure(
logical(LK)) :: iseq
5746 integer(IK) :: index
5751 module function getSILCusCom_D1_D0_RK3(array, pattern, iseq)
result(index)
5752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5753 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_RK3
5756 real(RKG) ,
intent(in),
contiguous :: array(:)
5757 real(RKG) ,
intent(in) :: pattern
5758 procedure(
logical(LK)) :: iseq
5759 integer(IK) :: index
5764 module function getSILCusCom_D1_D0_RK2(array, pattern, iseq)
result(index)
5765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5766 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_RK2
5769 real(RKG) ,
intent(in),
contiguous :: array(:)
5770 real(RKG) ,
intent(in) :: pattern
5771 procedure(
logical(LK)) :: iseq
5772 integer(IK) :: index
5777 module function getSILCusCom_D1_D0_RK1(array, pattern, iseq)
result(index)
5778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5779 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D0_RK1
5782 real(RKG) ,
intent(in),
contiguous :: array(:)
5783 real(RKG) ,
intent(in) :: pattern
5784 procedure(
logical(LK)) :: iseq
5785 integer(IK) :: index
5798 PURE module function getSILDefCom_D1_D1_SK5(array, pattern)
result(index)
5799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5800 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_SK5
5803 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5804 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
5805 integer(IK) :: index
5810 PURE module function getSILDefCom_D1_D1_SK4(array, pattern)
result(index)
5811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5812 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_SK4
5815 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5816 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
5817 integer(IK) :: index
5822 PURE module function getSILDefCom_D1_D1_SK3(array, pattern)
result(index)
5823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5824 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_SK3
5827 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5828 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
5829 integer(IK) :: index
5834 PURE module function getSILDefCom_D1_D1_SK2(array, pattern)
result(index)
5835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5836 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_SK2
5839 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5840 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
5841 integer(IK) :: index
5846 PURE module function getSILDefCom_D1_D1_SK1(array, pattern)
result(index)
5847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5848 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_SK1
5851 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5852 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
5853 integer(IK) :: index
5860 PURE module function getSILDefCom_D1_D1_IK5(array, pattern)
result(index)
5861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5862 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_IK5
5865 integer(IKG) ,
intent(in),
contiguous :: array(:)
5866 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
5867 integer(IK) :: index
5872 PURE module function getSILDefCom_D1_D1_IK4(array, pattern)
result(index)
5873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5874 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_IK4
5877 integer(IKG) ,
intent(in),
contiguous :: array(:)
5878 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
5879 integer(IK) :: index
5884 PURE module function getSILDefCom_D1_D1_IK3(array, pattern)
result(index)
5885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5886 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_IK3
5889 integer(IKG) ,
intent(in),
contiguous :: array(:)
5890 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
5891 integer(IK) :: index
5896 PURE module function getSILDefCom_D1_D1_IK2(array, pattern)
result(index)
5897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5898 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_IK2
5901 integer(IKG) ,
intent(in),
contiguous :: array(:)
5902 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
5903 integer(IK) :: index
5908 PURE module function getSILDefCom_D1_D1_IK1(array, pattern)
result(index)
5909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5910 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_IK1
5913 integer(IKG) ,
intent(in),
contiguous :: array(:)
5914 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
5915 integer(IK) :: index
5922 PURE module function getSILDefCom_D1_D1_LK5(array, pattern)
result(index)
5923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5924 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_LK5
5927 logical(LKG) ,
intent(in),
contiguous :: array(:)
5928 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
5929 integer(IK) :: index
5934 PURE module function getSILDefCom_D1_D1_LK4(array, pattern)
result(index)
5935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5936 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_LK4
5939 logical(LKG) ,
intent(in),
contiguous :: array(:)
5940 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
5941 integer(IK) :: index
5946 PURE module function getSILDefCom_D1_D1_LK3(array, pattern)
result(index)
5947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5948 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_LK3
5951 logical(LKG) ,
intent(in),
contiguous :: array(:)
5952 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
5953 integer(IK) :: index
5958 PURE module function getSILDefCom_D1_D1_LK2(array, pattern)
result(index)
5959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5960 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_LK2
5963 logical(LKG) ,
intent(in),
contiguous :: array(:)
5964 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
5965 integer(IK) :: index
5970 PURE module function getSILDefCom_D1_D1_LK1(array, pattern)
result(index)
5971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5972 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_LK1
5975 logical(LKG) ,
intent(in),
contiguous :: array(:)
5976 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
5977 integer(IK) :: index
5984 PURE module function getSILDefCom_D1_D1_CK5(array, pattern)
result(index)
5985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5986 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_CK5
5989 complex(CKG) ,
intent(in),
contiguous :: array(:)
5990 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
5991 integer(IK) :: index
5996 PURE module function getSILDefCom_D1_D1_CK4(array, pattern)
result(index)
5997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5998 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_CK4
6001 complex(CKG) ,
intent(in),
contiguous :: array(:)
6002 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6003 integer(IK) :: index
6008 PURE module function getSILDefCom_D1_D1_CK3(array, pattern)
result(index)
6009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6010 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_CK3
6013 complex(CKG) ,
intent(in),
contiguous :: array(:)
6014 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6015 integer(IK) :: index
6020 PURE module function getSILDefCom_D1_D1_CK2(array, pattern)
result(index)
6021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6022 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_CK2
6025 complex(CKG) ,
intent(in),
contiguous :: array(:)
6026 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6027 integer(IK) :: index
6032 PURE module function getSILDefCom_D1_D1_CK1(array, pattern)
result(index)
6033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6034 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_CK1
6037 complex(CKG) ,
intent(in),
contiguous :: array(:)
6038 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6039 integer(IK) :: index
6046 PURE module function getSILDefCom_D1_D1_RK5(array, pattern)
result(index)
6047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6048 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_RK5
6051 real(RKG) ,
intent(in),
contiguous :: array(:)
6052 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6053 integer(IK) :: index
6058 PURE module function getSILDefCom_D1_D1_RK4(array, pattern)
result(index)
6059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6060 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_RK4
6063 real(RKG) ,
intent(in),
contiguous :: array(:)
6064 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6065 integer(IK) :: index
6070 PURE module function getSILDefCom_D1_D1_RK3(array, pattern)
result(index)
6071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6072 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_RK3
6075 real(RKG) ,
intent(in),
contiguous :: array(:)
6076 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6077 integer(IK) :: index
6082 PURE module function getSILDefCom_D1_D1_RK2(array, pattern)
result(index)
6083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6084 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_RK2
6087 real(RKG) ,
intent(in),
contiguous :: array(:)
6088 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6089 integer(IK) :: index
6094 PURE module function getSILDefCom_D1_D1_RK1(array, pattern)
result(index)
6095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6096 !DEC$ ATTRIBUTES DLLEXPORT :: getSILDefCom_D1_D1_RK1
6099 real(RKG) ,
intent(in),
contiguous :: array(:)
6100 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6101 integer(IK) :: index
6114 module function getSILCusCom_D1_D1_SK5(array, pattern, iseq)
result(index)
6115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6116 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_SK5
6119 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6120 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6121 procedure(
logical(LK)) :: iseq
6122 integer(IK) :: index
6127 module function getSILCusCom_D1_D1_SK4(array, pattern, iseq)
result(index)
6128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6129 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_SK4
6132 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6133 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6134 procedure(
logical(LK)) :: iseq
6135 integer(IK) :: index
6140 module function getSILCusCom_D1_D1_SK3(array, pattern, iseq)
result(index)
6141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6142 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_SK3
6145 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6146 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6147 procedure(
logical(LK)) :: iseq
6148 integer(IK) :: index
6153 module function getSILCusCom_D1_D1_SK2(array, pattern, iseq)
result(index)
6154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6155 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_SK2
6158 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6159 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6160 procedure(
logical(LK)) :: iseq
6161 integer(IK) :: index
6166 module function getSILCusCom_D1_D1_SK1(array, pattern, iseq)
result(index)
6167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6168 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_SK1
6171 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6172 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6173 procedure(
logical(LK)) :: iseq
6174 integer(IK) :: index
6181 module function getSILCusCom_D1_D1_IK5(array, pattern, iseq)
result(index)
6182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6183 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_IK5
6186 integer(IKG) ,
intent(in),
contiguous :: array(:)
6187 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6188 procedure(
logical(LK)) :: iseq
6189 integer(IK) :: index
6194 module function getSILCusCom_D1_D1_IK4(array, pattern, iseq)
result(index)
6195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6196 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_IK4
6199 integer(IKG) ,
intent(in),
contiguous :: array(:)
6200 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6201 procedure(
logical(LK)) :: iseq
6202 integer(IK) :: index
6207 module function getSILCusCom_D1_D1_IK3(array, pattern, iseq)
result(index)
6208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6209 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_IK3
6212 integer(IKG) ,
intent(in),
contiguous :: array(:)
6213 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6214 procedure(
logical(LK)) :: iseq
6215 integer(IK) :: index
6220 module function getSILCusCom_D1_D1_IK2(array, pattern, iseq)
result(index)
6221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6222 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_IK2
6225 integer(IKG) ,
intent(in),
contiguous :: array(:)
6226 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6227 procedure(
logical(LK)) :: iseq
6228 integer(IK) :: index
6233 module function getSILCusCom_D1_D1_IK1(array, pattern, iseq)
result(index)
6234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6235 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_IK1
6238 integer(IKG) ,
intent(in),
contiguous :: array(:)
6239 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6240 procedure(
logical(LK)) :: iseq
6241 integer(IK) :: index
6248 module function getSILCusCom_D1_D1_LK5(array, pattern, iseq)
result(index)
6249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6250 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_LK5
6253 logical(LKG) ,
intent(in),
contiguous :: array(:)
6254 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6255 procedure(
logical(LK)) :: iseq
6256 integer(IK) :: index
6261 module function getSILCusCom_D1_D1_LK4(array, pattern, iseq)
result(index)
6262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6263 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_LK4
6266 logical(LKG) ,
intent(in),
contiguous :: array(:)
6267 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6268 procedure(
logical(LK)) :: iseq
6269 integer(IK) :: index
6274 module function getSILCusCom_D1_D1_LK3(array, pattern, iseq)
result(index)
6275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6276 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_LK3
6279 logical(LKG) ,
intent(in),
contiguous :: array(:)
6280 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6281 procedure(
logical(LK)) :: iseq
6282 integer(IK) :: index
6287 module function getSILCusCom_D1_D1_LK2(array, pattern, iseq)
result(index)
6288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6289 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_LK2
6292 logical(LKG) ,
intent(in),
contiguous :: array(:)
6293 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6294 procedure(
logical(LK)) :: iseq
6295 integer(IK) :: index
6300 module function getSILCusCom_D1_D1_LK1(array, pattern, iseq)
result(index)
6301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6302 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_LK1
6305 logical(LKG) ,
intent(in),
contiguous :: array(:)
6306 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6307 procedure(
logical(LK)) :: iseq
6308 integer(IK) :: index
6315 module function getSILCusCom_D1_D1_CK5(array, pattern, iseq)
result(index)
6316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6317 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_CK5
6320 complex(CKG) ,
intent(in),
contiguous :: array(:)
6321 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6322 procedure(
logical(LK)) :: iseq
6323 integer(IK) :: index
6328 module function getSILCusCom_D1_D1_CK4(array, pattern, iseq)
result(index)
6329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6330 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_CK4
6333 complex(CKG) ,
intent(in),
contiguous :: array(:)
6334 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6335 procedure(
logical(LK)) :: iseq
6336 integer(IK) :: index
6341 module function getSILCusCom_D1_D1_CK3(array, pattern, iseq)
result(index)
6342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6343 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_CK3
6346 complex(CKG) ,
intent(in),
contiguous :: array(:)
6347 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6348 procedure(
logical(LK)) :: iseq
6349 integer(IK) :: index
6354 module function getSILCusCom_D1_D1_CK2(array, pattern, iseq)
result(index)
6355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6356 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_CK2
6359 complex(CKG) ,
intent(in),
contiguous :: array(:)
6360 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6361 procedure(
logical(LK)) :: iseq
6362 integer(IK) :: index
6367 module function getSILCusCom_D1_D1_CK1(array, pattern, iseq)
result(index)
6368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6369 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_CK1
6372 complex(CKG) ,
intent(in),
contiguous :: array(:)
6373 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6374 procedure(
logical(LK)) :: iseq
6375 integer(IK) :: index
6382 module function getSILCusCom_D1_D1_RK5(array, pattern, iseq)
result(index)
6383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6384 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_RK5
6387 real(RKG) ,
intent(in),
contiguous :: array(:)
6388 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6389 procedure(
logical(LK)) :: iseq
6390 integer(IK) :: index
6395 module function getSILCusCom_D1_D1_RK4(array, pattern, iseq)
result(index)
6396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6397 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_RK4
6400 real(RKG) ,
intent(in),
contiguous :: array(:)
6401 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6402 procedure(
logical(LK)) :: iseq
6403 integer(IK) :: index
6408 module function getSILCusCom_D1_D1_RK3(array, pattern, iseq)
result(index)
6409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6410 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_RK3
6413 real(RKG) ,
intent(in),
contiguous :: array(:)
6414 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6415 procedure(
logical(LK)) :: iseq
6416 integer(IK) :: index
6421 module function getSILCusCom_D1_D1_RK2(array, pattern, iseq)
result(index)
6422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6423 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_RK2
6426 real(RKG) ,
intent(in),
contiguous :: array(:)
6427 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6428 procedure(
logical(LK)) :: iseq
6429 integer(IK) :: index
6434 module function getSILCusCom_D1_D1_RK1(array, pattern, iseq)
result(index)
6435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6436 !DEC$ ATTRIBUTES DLLEXPORT :: getSILCusCom_D1_D1_RK1
6439 real(RKG) ,
intent(in),
contiguous :: array(:)
6440 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6441 procedure(
logical(LK)) :: iseq
6442 integer(IK) :: index
6582 PURE module function getSIRDefCom_D0_D0_SK5(array, pattern)
result(index)
6583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6584 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D0_D0_SK5
6587 character(
*,SKG) ,
intent(in) :: array
6588 character(
*,SKG) ,
intent(in) :: pattern
6589 integer(IK) :: index
6594 PURE module function getSIRDefCom_D0_D0_SK4(array, pattern)
result(index)
6595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6596 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D0_D0_SK4
6599 character(
*,SKG) ,
intent(in) :: array
6600 character(
*,SKG) ,
intent(in) :: pattern
6601 integer(IK) :: index
6606 PURE module function getSIRDefCom_D0_D0_SK3(array, pattern)
result(index)
6607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6608 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D0_D0_SK3
6611 character(
*,SKG) ,
intent(in) :: array
6612 character(
*,SKG) ,
intent(in) :: pattern
6613 integer(IK) :: index
6618 PURE module function getSIRDefCom_D0_D0_SK2(array, pattern)
result(index)
6619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6620 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D0_D0_SK2
6623 character(
*,SKG) ,
intent(in) :: array
6624 character(
*,SKG) ,
intent(in) :: pattern
6625 integer(IK) :: index
6630 PURE module function getSIRDefCom_D0_D0_SK1(array, pattern)
result(index)
6631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6632 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D0_D0_SK1
6635 character(
*,SKG) ,
intent(in) :: array
6636 character(
*,SKG) ,
intent(in) :: pattern
6637 integer(IK) :: index
6644 PURE module function getSIRDefCom_D1_D0_SK5(array, pattern)
result(index)
6645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6646 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_SK5
6649 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6650 character(
*,SKG) ,
intent(in) :: pattern
6651 integer(IK) :: index
6656 PURE module function getSIRDefCom_D1_D0_SK4(array, pattern)
result(index)
6657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6658 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_SK4
6661 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6662 character(
*,SKG) ,
intent(in) :: pattern
6663 integer(IK) :: index
6668 PURE module function getSIRDefCom_D1_D0_SK3(array, pattern)
result(index)
6669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6670 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_SK3
6673 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6674 character(
*,SKG) ,
intent(in) :: pattern
6675 integer(IK) :: index
6680 PURE module function getSIRDefCom_D1_D0_SK2(array, pattern)
result(index)
6681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6682 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_SK2
6685 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6686 character(
*,SKG) ,
intent(in) :: pattern
6687 integer(IK) :: index
6692 PURE module function getSIRDefCom_D1_D0_SK1(array, pattern)
result(index)
6693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6694 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_SK1
6697 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6698 character(
*,SKG) ,
intent(in) :: pattern
6699 integer(IK) :: index
6706 PURE module function getSIRDefCom_D1_D0_IK5(array, pattern)
result(index)
6707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6708 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_IK5
6711 integer(IKG) ,
intent(in),
contiguous :: array(:)
6712 integer(IKG) ,
intent(in) :: pattern
6713 integer(IK) :: index
6718 PURE module function getSIRDefCom_D1_D0_IK4(array, pattern)
result(index)
6719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6720 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_IK4
6723 integer(IKG) ,
intent(in),
contiguous :: array(:)
6724 integer(IKG) ,
intent(in) :: pattern
6725 integer(IK) :: index
6730 PURE module function getSIRDefCom_D1_D0_IK3(array, pattern)
result(index)
6731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6732 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_IK3
6735 integer(IKG) ,
intent(in),
contiguous :: array(:)
6736 integer(IKG) ,
intent(in) :: pattern
6737 integer(IK) :: index
6742 PURE module function getSIRDefCom_D1_D0_IK2(array, pattern)
result(index)
6743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6744 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_IK2
6747 integer(IKG) ,
intent(in),
contiguous :: array(:)
6748 integer(IKG) ,
intent(in) :: pattern
6749 integer(IK) :: index
6754 PURE module function getSIRDefCom_D1_D0_IK1(array, pattern)
result(index)
6755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6756 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_IK1
6759 integer(IKG) ,
intent(in),
contiguous :: array(:)
6760 integer(IKG) ,
intent(in) :: pattern
6761 integer(IK) :: index
6768 PURE module function getSIRDefCom_D1_D0_LK5(array, pattern)
result(index)
6769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6770 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_LK5
6773 logical(LKG) ,
intent(in),
contiguous :: array(:)
6774 logical(LKG) ,
intent(in) :: pattern
6775 integer(IK) :: index
6780 PURE module function getSIRDefCom_D1_D0_LK4(array, pattern)
result(index)
6781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6782 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_LK4
6785 logical(LKG) ,
intent(in),
contiguous :: array(:)
6786 logical(LKG) ,
intent(in) :: pattern
6787 integer(IK) :: index
6792 PURE module function getSIRDefCom_D1_D0_LK3(array, pattern)
result(index)
6793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6794 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_LK3
6797 logical(LKG) ,
intent(in),
contiguous :: array(:)
6798 logical(LKG) ,
intent(in) :: pattern
6799 integer(IK) :: index
6804 PURE module function getSIRDefCom_D1_D0_LK2(array, pattern)
result(index)
6805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6806 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_LK2
6809 logical(LKG) ,
intent(in),
contiguous :: array(:)
6810 logical(LKG) ,
intent(in) :: pattern
6811 integer(IK) :: index
6816 PURE module function getSIRDefCom_D1_D0_LK1(array, pattern)
result(index)
6817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6818 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_LK1
6821 logical(LKG) ,
intent(in),
contiguous :: array(:)
6822 logical(LKG) ,
intent(in) :: pattern
6823 integer(IK) :: index
6830 PURE module function getSIRDefCom_D1_D0_CK5(array, pattern)
result(index)
6831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6832 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_CK5
6835 complex(CKG) ,
intent(in),
contiguous :: array(:)
6836 complex(CKG) ,
intent(in) :: pattern
6837 integer(IK) :: index
6842 PURE module function getSIRDefCom_D1_D0_CK4(array, pattern)
result(index)
6843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6844 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_CK4
6847 complex(CKG) ,
intent(in),
contiguous :: array(:)
6848 complex(CKG) ,
intent(in) :: pattern
6849 integer(IK) :: index
6854 PURE module function getSIRDefCom_D1_D0_CK3(array, pattern)
result(index)
6855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6856 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_CK3
6859 complex(CKG) ,
intent(in),
contiguous :: array(:)
6860 complex(CKG) ,
intent(in) :: pattern
6861 integer(IK) :: index
6866 PURE module function getSIRDefCom_D1_D0_CK2(array, pattern)
result(index)
6867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6868 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_CK2
6871 complex(CKG) ,
intent(in),
contiguous :: array(:)
6872 complex(CKG) ,
intent(in) :: pattern
6873 integer(IK) :: index
6878 PURE module function getSIRDefCom_D1_D0_CK1(array, pattern)
result(index)
6879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6880 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_CK1
6883 complex(CKG) ,
intent(in),
contiguous :: array(:)
6884 complex(CKG) ,
intent(in) :: pattern
6885 integer(IK) :: index
6892 PURE module function getSIRDefCom_D1_D0_RK5(array, pattern)
result(index)
6893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6894 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_RK5
6897 real(RKG) ,
intent(in),
contiguous :: array(:)
6898 real(RKG) ,
intent(in) :: pattern
6899 integer(IK) :: index
6904 PURE module function getSIRDefCom_D1_D0_RK4(array, pattern)
result(index)
6905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6906 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_RK4
6909 real(RKG) ,
intent(in),
contiguous :: array(:)
6910 real(RKG) ,
intent(in) :: pattern
6911 integer(IK) :: index
6916 PURE module function getSIRDefCom_D1_D0_RK3(array, pattern)
result(index)
6917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6918 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_RK3
6921 real(RKG) ,
intent(in),
contiguous :: array(:)
6922 real(RKG) ,
intent(in) :: pattern
6923 integer(IK) :: index
6928 PURE module function getSIRDefCom_D1_D0_RK2(array, pattern)
result(index)
6929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6930 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_RK2
6933 real(RKG) ,
intent(in),
contiguous :: array(:)
6934 real(RKG) ,
intent(in) :: pattern
6935 integer(IK) :: index
6940 PURE module function getSIRDefCom_D1_D0_RK1(array, pattern)
result(index)
6941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6942 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D0_RK1
6945 real(RKG) ,
intent(in),
contiguous :: array(:)
6946 real(RKG) ,
intent(in) :: pattern
6947 integer(IK) :: index
6960 module function getSIRCusCom_D0_D0_SK5(array, pattern, iseq)
result(index)
6961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6962 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D0_D0_SK5
6965 character(
*,SKG) ,
intent(in) :: array
6966 character(
*,SKG) ,
intent(in) :: pattern
6967 procedure(
logical(LK)) :: iseq
6968 integer(IK) :: index
6973 module function getSIRCusCom_D0_D0_SK4(array, pattern, iseq)
result(index)
6974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6975 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D0_D0_SK4
6978 character(
*,SKG) ,
intent(in) :: array
6979 character(
*,SKG) ,
intent(in) :: pattern
6980 procedure(
logical(LK)) :: iseq
6981 integer(IK) :: index
6986 module function getSIRCusCom_D0_D0_SK3(array, pattern, iseq)
result(index)
6987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6988 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D0_D0_SK3
6991 character(
*,SKG) ,
intent(in) :: array
6992 character(
*,SKG) ,
intent(in) :: pattern
6993 procedure(
logical(LK)) :: iseq
6994 integer(IK) :: index
6999 module function getSIRCusCom_D0_D0_SK2(array, pattern, iseq)
result(index)
7000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7001 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D0_D0_SK2
7004 character(
*,SKG) ,
intent(in) :: array
7005 character(
*,SKG) ,
intent(in) :: pattern
7006 procedure(
logical(LK)) :: iseq
7007 integer(IK) :: index
7012 module function getSIRCusCom_D0_D0_SK1(array, pattern, iseq)
result(index)
7013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7014 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D0_D0_SK1
7017 character(
*,SKG) ,
intent(in) :: array
7018 character(
*,SKG) ,
intent(in) :: pattern
7019 procedure(
logical(LK)) :: iseq
7020 integer(IK) :: index
7027 module function getSIRCusCom_D1_D0_SK5(array, pattern, iseq)
result(index)
7028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7029 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_SK5
7032 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7033 character(
*,SKG) ,
intent(in) :: pattern
7034 procedure(
logical(LK)) :: iseq
7035 integer(IK) :: index
7040 module function getSIRCusCom_D1_D0_SK4(array, pattern, iseq)
result(index)
7041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7042 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_SK4
7045 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7046 character(
*,SKG) ,
intent(in) :: pattern
7047 procedure(
logical(LK)) :: iseq
7048 integer(IK) :: index
7053 module function getSIRCusCom_D1_D0_SK3(array, pattern, iseq)
result(index)
7054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7055 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_SK3
7058 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7059 character(
*,SKG) ,
intent(in) :: pattern
7060 procedure(
logical(LK)) :: iseq
7061 integer(IK) :: index
7066 module function getSIRCusCom_D1_D0_SK2(array, pattern, iseq)
result(index)
7067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7068 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_SK2
7071 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7072 character(
*,SKG) ,
intent(in) :: pattern
7073 procedure(
logical(LK)) :: iseq
7074 integer(IK) :: index
7079 module function getSIRCusCom_D1_D0_SK1(array, pattern, iseq)
result(index)
7080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7081 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_SK1
7084 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7085 character(
*,SKG) ,
intent(in) :: pattern
7086 procedure(
logical(LK)) :: iseq
7087 integer(IK) :: index
7094 module function getSIRCusCom_D1_D0_IK5(array, pattern, iseq)
result(index)
7095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7096 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_IK5
7099 integer(IKG) ,
intent(in),
contiguous :: array(:)
7100 integer(IKG) ,
intent(in) :: pattern
7101 procedure(
logical(LK)) :: iseq
7102 integer(IK) :: index
7107 module function getSIRCusCom_D1_D0_IK4(array, pattern, iseq)
result(index)
7108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7109 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_IK4
7112 integer(IKG) ,
intent(in),
contiguous :: array(:)
7113 integer(IKG) ,
intent(in) :: pattern
7114 procedure(
logical(LK)) :: iseq
7115 integer(IK) :: index
7120 module function getSIRCusCom_D1_D0_IK3(array, pattern, iseq)
result(index)
7121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7122 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_IK3
7125 integer(IKG) ,
intent(in),
contiguous :: array(:)
7126 integer(IKG) ,
intent(in) :: pattern
7127 procedure(
logical(LK)) :: iseq
7128 integer(IK) :: index
7133 module function getSIRCusCom_D1_D0_IK2(array, pattern, iseq)
result(index)
7134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7135 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_IK2
7138 integer(IKG) ,
intent(in),
contiguous :: array(:)
7139 integer(IKG) ,
intent(in) :: pattern
7140 procedure(
logical(LK)) :: iseq
7141 integer(IK) :: index
7146 module function getSIRCusCom_D1_D0_IK1(array, pattern, iseq)
result(index)
7147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7148 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_IK1
7151 integer(IKG) ,
intent(in),
contiguous :: array(:)
7152 integer(IKG) ,
intent(in) :: pattern
7153 procedure(
logical(LK)) :: iseq
7154 integer(IK) :: index
7161 module function getSIRCusCom_D1_D0_LK5(array, pattern, iseq)
result(index)
7162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7163 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_LK5
7166 logical(LKG) ,
intent(in),
contiguous :: array(:)
7167 logical(LKG) ,
intent(in) :: pattern
7168 procedure(
logical(LK)) :: iseq
7169 integer(IK) :: index
7174 module function getSIRCusCom_D1_D0_LK4(array, pattern, iseq)
result(index)
7175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7176 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_LK4
7179 logical(LKG) ,
intent(in),
contiguous :: array(:)
7180 logical(LKG) ,
intent(in) :: pattern
7181 procedure(
logical(LK)) :: iseq
7182 integer(IK) :: index
7187 module function getSIRCusCom_D1_D0_LK3(array, pattern, iseq)
result(index)
7188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7189 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_LK3
7192 logical(LKG) ,
intent(in),
contiguous :: array(:)
7193 logical(LKG) ,
intent(in) :: pattern
7194 procedure(
logical(LK)) :: iseq
7195 integer(IK) :: index
7200 module function getSIRCusCom_D1_D0_LK2(array, pattern, iseq)
result(index)
7201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7202 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_LK2
7205 logical(LKG) ,
intent(in),
contiguous :: array(:)
7206 logical(LKG) ,
intent(in) :: pattern
7207 procedure(
logical(LK)) :: iseq
7208 integer(IK) :: index
7213 module function getSIRCusCom_D1_D0_LK1(array, pattern, iseq)
result(index)
7214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7215 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_LK1
7218 logical(LKG) ,
intent(in),
contiguous :: array(:)
7219 logical(LKG) ,
intent(in) :: pattern
7220 procedure(
logical(LK)) :: iseq
7221 integer(IK) :: index
7228 module function getSIRCusCom_D1_D0_CK5(array, pattern, iseq)
result(index)
7229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7230 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_CK5
7233 complex(CKG) ,
intent(in),
contiguous :: array(:)
7234 complex(CKG) ,
intent(in) :: pattern
7235 procedure(
logical(LK)) :: iseq
7236 integer(IK) :: index
7241 module function getSIRCusCom_D1_D0_CK4(array, pattern, iseq)
result(index)
7242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7243 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_CK4
7246 complex(CKG) ,
intent(in),
contiguous :: array(:)
7247 complex(CKG) ,
intent(in) :: pattern
7248 procedure(
logical(LK)) :: iseq
7249 integer(IK) :: index
7254 module function getSIRCusCom_D1_D0_CK3(array, pattern, iseq)
result(index)
7255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7256 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_CK3
7259 complex(CKG) ,
intent(in),
contiguous :: array(:)
7260 complex(CKG) ,
intent(in) :: pattern
7261 procedure(
logical(LK)) :: iseq
7262 integer(IK) :: index
7267 module function getSIRCusCom_D1_D0_CK2(array, pattern, iseq)
result(index)
7268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7269 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_CK2
7272 complex(CKG) ,
intent(in),
contiguous :: array(:)
7273 complex(CKG) ,
intent(in) :: pattern
7274 procedure(
logical(LK)) :: iseq
7275 integer(IK) :: index
7280 module function getSIRCusCom_D1_D0_CK1(array, pattern, iseq)
result(index)
7281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7282 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_CK1
7285 complex(CKG) ,
intent(in),
contiguous :: array(:)
7286 complex(CKG) ,
intent(in) :: pattern
7287 procedure(
logical(LK)) :: iseq
7288 integer(IK) :: index
7295 module function getSIRCusCom_D1_D0_RK5(array, pattern, iseq)
result(index)
7296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7297 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_RK5
7300 real(RKG) ,
intent(in),
contiguous :: array(:)
7301 real(RKG) ,
intent(in) :: pattern
7302 procedure(
logical(LK)) :: iseq
7303 integer(IK) :: index
7308 module function getSIRCusCom_D1_D0_RK4(array, pattern, iseq)
result(index)
7309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7310 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_RK4
7313 real(RKG) ,
intent(in),
contiguous :: array(:)
7314 real(RKG) ,
intent(in) :: pattern
7315 procedure(
logical(LK)) :: iseq
7316 integer(IK) :: index
7321 module function getSIRCusCom_D1_D0_RK3(array, pattern, iseq)
result(index)
7322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7323 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_RK3
7326 real(RKG) ,
intent(in),
contiguous :: array(:)
7327 real(RKG) ,
intent(in) :: pattern
7328 procedure(
logical(LK)) :: iseq
7329 integer(IK) :: index
7334 module function getSIRCusCom_D1_D0_RK2(array, pattern, iseq)
result(index)
7335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7336 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_RK2
7339 real(RKG) ,
intent(in),
contiguous :: array(:)
7340 real(RKG) ,
intent(in) :: pattern
7341 procedure(
logical(LK)) :: iseq
7342 integer(IK) :: index
7347 module function getSIRCusCom_D1_D0_RK1(array, pattern, iseq)
result(index)
7348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7349 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D0_RK1
7352 real(RKG) ,
intent(in),
contiguous :: array(:)
7353 real(RKG) ,
intent(in) :: pattern
7354 procedure(
logical(LK)) :: iseq
7355 integer(IK) :: index
7368 PURE module function getSIRDefCom_D1_D1_SK5(array, pattern)
result(index)
7369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7370 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_SK5
7373 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7374 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7375 integer(IK) :: index
7380 PURE module function getSIRDefCom_D1_D1_SK4(array, pattern)
result(index)
7381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7382 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_SK4
7385 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7386 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7387 integer(IK) :: index
7392 PURE module function getSIRDefCom_D1_D1_SK3(array, pattern)
result(index)
7393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7394 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_SK3
7397 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7398 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7399 integer(IK) :: index
7404 PURE module function getSIRDefCom_D1_D1_SK2(array, pattern)
result(index)
7405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7406 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_SK2
7409 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7410 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7411 integer(IK) :: index
7416 PURE module function getSIRDefCom_D1_D1_SK1(array, pattern)
result(index)
7417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7418 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_SK1
7421 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7422 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7423 integer(IK) :: index
7430 PURE module function getSIRDefCom_D1_D1_IK5(array, pattern)
result(index)
7431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7432 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_IK5
7435 integer(IKG) ,
intent(in),
contiguous :: array(:)
7436 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7437 integer(IK) :: index
7442 PURE module function getSIRDefCom_D1_D1_IK4(array, pattern)
result(index)
7443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7444 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_IK4
7447 integer(IKG) ,
intent(in),
contiguous :: array(:)
7448 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7449 integer(IK) :: index
7454 PURE module function getSIRDefCom_D1_D1_IK3(array, pattern)
result(index)
7455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7456 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_IK3
7459 integer(IKG) ,
intent(in),
contiguous :: array(:)
7460 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7461 integer(IK) :: index
7466 PURE module function getSIRDefCom_D1_D1_IK2(array, pattern)
result(index)
7467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7468 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_IK2
7471 integer(IKG) ,
intent(in),
contiguous :: array(:)
7472 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7473 integer(IK) :: index
7478 PURE module function getSIRDefCom_D1_D1_IK1(array, pattern)
result(index)
7479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7480 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_IK1
7483 integer(IKG) ,
intent(in),
contiguous :: array(:)
7484 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7485 integer(IK) :: index
7492 PURE module function getSIRDefCom_D1_D1_LK5(array, pattern)
result(index)
7493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7494 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_LK5
7497 logical(LKG) ,
intent(in),
contiguous :: array(:)
7498 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7499 integer(IK) :: index
7504 PURE module function getSIRDefCom_D1_D1_LK4(array, pattern)
result(index)
7505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7506 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_LK4
7509 logical(LKG) ,
intent(in),
contiguous :: array(:)
7510 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7511 integer(IK) :: index
7516 PURE module function getSIRDefCom_D1_D1_LK3(array, pattern)
result(index)
7517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7518 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_LK3
7521 logical(LKG) ,
intent(in),
contiguous :: array(:)
7522 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7523 integer(IK) :: index
7528 PURE module function getSIRDefCom_D1_D1_LK2(array, pattern)
result(index)
7529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7530 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_LK2
7533 logical(LKG) ,
intent(in),
contiguous :: array(:)
7534 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7535 integer(IK) :: index
7540 PURE module function getSIRDefCom_D1_D1_LK1(array, pattern)
result(index)
7541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7542 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_LK1
7545 logical(LKG) ,
intent(in),
contiguous :: array(:)
7546 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7547 integer(IK) :: index
7554 PURE module function getSIRDefCom_D1_D1_CK5(array, pattern)
result(index)
7555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7556 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_CK5
7559 complex(CKG) ,
intent(in),
contiguous :: array(:)
7560 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7561 integer(IK) :: index
7566 PURE module function getSIRDefCom_D1_D1_CK4(array, pattern)
result(index)
7567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7568 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_CK4
7571 complex(CKG) ,
intent(in),
contiguous :: array(:)
7572 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7573 integer(IK) :: index
7578 PURE module function getSIRDefCom_D1_D1_CK3(array, pattern)
result(index)
7579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7580 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_CK3
7583 complex(CKG) ,
intent(in),
contiguous :: array(:)
7584 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7585 integer(IK) :: index
7590 PURE module function getSIRDefCom_D1_D1_CK2(array, pattern)
result(index)
7591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7592 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_CK2
7595 complex(CKG) ,
intent(in),
contiguous :: array(:)
7596 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7597 integer(IK) :: index
7602 PURE module function getSIRDefCom_D1_D1_CK1(array, pattern)
result(index)
7603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7604 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_CK1
7607 complex(CKG) ,
intent(in),
contiguous :: array(:)
7608 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7609 integer(IK) :: index
7616 PURE module function getSIRDefCom_D1_D1_RK5(array, pattern)
result(index)
7617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7618 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_RK5
7621 real(RKG) ,
intent(in),
contiguous :: array(:)
7622 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7623 integer(IK) :: index
7628 PURE module function getSIRDefCom_D1_D1_RK4(array, pattern)
result(index)
7629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7630 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_RK4
7633 real(RKG) ,
intent(in),
contiguous :: array(:)
7634 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7635 integer(IK) :: index
7640 PURE module function getSIRDefCom_D1_D1_RK3(array, pattern)
result(index)
7641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7642 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_RK3
7645 real(RKG) ,
intent(in),
contiguous :: array(:)
7646 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7647 integer(IK) :: index
7652 PURE module function getSIRDefCom_D1_D1_RK2(array, pattern)
result(index)
7653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7654 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_RK2
7657 real(RKG) ,
intent(in),
contiguous :: array(:)
7658 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7659 integer(IK) :: index
7664 PURE module function getSIRDefCom_D1_D1_RK1(array, pattern)
result(index)
7665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7666 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRDefCom_D1_D1_RK1
7669 real(RKG) ,
intent(in),
contiguous :: array(:)
7670 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7671 integer(IK) :: index
7684 module function getSIRCusCom_D1_D1_SK5(array, pattern, iseq)
result(index)
7685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7686 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_SK5
7689 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7690 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7691 procedure(
logical(LK)) :: iseq
7692 integer(IK) :: index
7697 module function getSIRCusCom_D1_D1_SK4(array, pattern, iseq)
result(index)
7698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7699 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_SK4
7702 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7703 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7704 procedure(
logical(LK)) :: iseq
7705 integer(IK) :: index
7710 module function getSIRCusCom_D1_D1_SK3(array, pattern, iseq)
result(index)
7711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7712 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_SK3
7715 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7716 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7717 procedure(
logical(LK)) :: iseq
7718 integer(IK) :: index
7723 module function getSIRCusCom_D1_D1_SK2(array, pattern, iseq)
result(index)
7724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7725 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_SK2
7728 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7729 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7730 procedure(
logical(LK)) :: iseq
7731 integer(IK) :: index
7736 module function getSIRCusCom_D1_D1_SK1(array, pattern, iseq)
result(index)
7737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7738 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_SK1
7741 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7742 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7743 procedure(
logical(LK)) :: iseq
7744 integer(IK) :: index
7751 module function getSIRCusCom_D1_D1_IK5(array, pattern, iseq)
result(index)
7752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7753 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_IK5
7756 integer(IKG) ,
intent(in),
contiguous :: array(:)
7757 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7758 procedure(
logical(LK)) :: iseq
7759 integer(IK) :: index
7764 module function getSIRCusCom_D1_D1_IK4(array, pattern, iseq)
result(index)
7765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7766 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_IK4
7769 integer(IKG) ,
intent(in),
contiguous :: array(:)
7770 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7771 procedure(
logical(LK)) :: iseq
7772 integer(IK) :: index
7777 module function getSIRCusCom_D1_D1_IK3(array, pattern, iseq)
result(index)
7778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7779 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_IK3
7782 integer(IKG) ,
intent(in),
contiguous :: array(:)
7783 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7784 procedure(
logical(LK)) :: iseq
7785 integer(IK) :: index
7790 module function getSIRCusCom_D1_D1_IK2(array, pattern, iseq)
result(index)
7791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7792 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_IK2
7795 integer(IKG) ,
intent(in),
contiguous :: array(:)
7796 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7797 procedure(
logical(LK)) :: iseq
7798 integer(IK) :: index
7803 module function getSIRCusCom_D1_D1_IK1(array, pattern, iseq)
result(index)
7804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7805 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_IK1
7808 integer(IKG) ,
intent(in),
contiguous :: array(:)
7809 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7810 procedure(
logical(LK)) :: iseq
7811 integer(IK) :: index
7818 module function getSIRCusCom_D1_D1_LK5(array, pattern, iseq)
result(index)
7819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7820 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_LK5
7823 logical(LKG) ,
intent(in),
contiguous :: array(:)
7824 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7825 procedure(
logical(LK)) :: iseq
7826 integer(IK) :: index
7831 module function getSIRCusCom_D1_D1_LK4(array, pattern, iseq)
result(index)
7832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7833 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_LK4
7836 logical(LKG) ,
intent(in),
contiguous :: array(:)
7837 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7838 procedure(
logical(LK)) :: iseq
7839 integer(IK) :: index
7844 module function getSIRCusCom_D1_D1_LK3(array, pattern, iseq)
result(index)
7845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7846 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_LK3
7849 logical(LKG) ,
intent(in),
contiguous :: array(:)
7850 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7851 procedure(
logical(LK)) :: iseq
7852 integer(IK) :: index
7857 module function getSIRCusCom_D1_D1_LK2(array, pattern, iseq)
result(index)
7858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7859 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_LK2
7862 logical(LKG) ,
intent(in),
contiguous :: array(:)
7863 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7864 procedure(
logical(LK)) :: iseq
7865 integer(IK) :: index
7870 module function getSIRCusCom_D1_D1_LK1(array, pattern, iseq)
result(index)
7871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7872 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_LK1
7875 logical(LKG) ,
intent(in),
contiguous :: array(:)
7876 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7877 procedure(
logical(LK)) :: iseq
7878 integer(IK) :: index
7885 module function getSIRCusCom_D1_D1_CK5(array, pattern, iseq)
result(index)
7886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7887 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_CK5
7890 complex(CKG) ,
intent(in),
contiguous :: array(:)
7891 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7892 procedure(
logical(LK)) :: iseq
7893 integer(IK) :: index
7898 module function getSIRCusCom_D1_D1_CK4(array, pattern, iseq)
result(index)
7899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7900 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_CK4
7903 complex(CKG) ,
intent(in),
contiguous :: array(:)
7904 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7905 procedure(
logical(LK)) :: iseq
7906 integer(IK) :: index
7911 module function getSIRCusCom_D1_D1_CK3(array, pattern, iseq)
result(index)
7912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7913 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_CK3
7916 complex(CKG) ,
intent(in),
contiguous :: array(:)
7917 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7918 procedure(
logical(LK)) :: iseq
7919 integer(IK) :: index
7924 module function getSIRCusCom_D1_D1_CK2(array, pattern, iseq)
result(index)
7925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7926 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_CK2
7929 complex(CKG) ,
intent(in),
contiguous :: array(:)
7930 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7931 procedure(
logical(LK)) :: iseq
7932 integer(IK) :: index
7937 module function getSIRCusCom_D1_D1_CK1(array, pattern, iseq)
result(index)
7938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7939 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_CK1
7942 complex(CKG) ,
intent(in),
contiguous :: array(:)
7943 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7944 procedure(
logical(LK)) :: iseq
7945 integer(IK) :: index
7952 module function getSIRCusCom_D1_D1_RK5(array, pattern, iseq)
result(index)
7953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7954 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_RK5
7957 real(RKG) ,
intent(in),
contiguous :: array(:)
7958 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7959 procedure(
logical(LK)) :: iseq
7960 integer(IK) :: index
7965 module function getSIRCusCom_D1_D1_RK4(array, pattern, iseq)
result(index)
7966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7967 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_RK4
7970 real(RKG) ,
intent(in),
contiguous :: array(:)
7971 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7972 procedure(
logical(LK)) :: iseq
7973 integer(IK) :: index
7978 module function getSIRCusCom_D1_D1_RK3(array, pattern, iseq)
result(index)
7979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7980 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_RK3
7983 real(RKG) ,
intent(in),
contiguous :: array(:)
7984 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7985 procedure(
logical(LK)) :: iseq
7986 integer(IK) :: index
7991 module function getSIRCusCom_D1_D1_RK2(array, pattern, iseq)
result(index)
7992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7993 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_RK2
7996 real(RKG) ,
intent(in),
contiguous :: array(:)
7997 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7998 procedure(
logical(LK)) :: iseq
7999 integer(IK) :: index
8004 module function getSIRCusCom_D1_D1_RK1(array, pattern, iseq)
result(index)
8005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8006 !DEC$ ATTRIBUTES DLLEXPORT :: getSIRCusCom_D1_D1_RK1
8009 real(RKG) ,
intent(in),
contiguous :: array(:)
8010 real(RKG) ,
intent(in),
contiguous :: pattern(:)
8011 procedure(
logical(LK)) :: iseq
8012 integer(IK) :: index
Generate and return index, the index of the first element of the input array such that array(1:index-...
Generate and return index, the index of the last element of the input array such that array(index+1:)...
Generate and return the input array modified such that all instances of the input pattern are strippe...
This module contains procedures and generic interfaces for stripping a given pattern from the left an...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
character(*, SK), parameter MODULE_NAME
type(left_type), parameter left
This is a scalar parameter object of type left_type that is exclusively used to request the left side...
type(leftRight_type), parameter leftRight
This is a scalar parameter object of type leftRight_type that is exclusively used to request the left...
type(right_type), parameter right
This is a scalar parameter object of type right_type that is exclusively used to request the right si...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This is a concrete derived type whose instances are exclusively used to request left-and-right sides ...
This is a concrete derived type whose instances are exclusively used to request left side of a given ...
This is a concrete derived type whose instances are exclusively used to request the right side of a g...