22#define LEN_STR len(setA,IK)
191 PURE module function getComplementRandomDefCom_D0_SK5(setA, setB)
result(complement)
192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
193 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D0_SK5
196 character(
*,SKG) ,
intent(in) :: setA
197 character(
*,SKG) ,
intent(in) :: setB
198 character(:,SKG) ,
allocatable :: complement
203 PURE module function getComplementRandomDefCom_D0_SK4(setA, setB)
result(complement)
204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
205 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D0_SK4
208 character(
*,SKG) ,
intent(in) :: setA
209 character(
*,SKG) ,
intent(in) :: setB
210 character(:,SKG) ,
allocatable :: complement
215 PURE module function getComplementRandomDefCom_D0_SK3(setA, setB)
result(complement)
216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
217 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D0_SK3
220 character(
*,SKG) ,
intent(in) :: setA
221 character(
*,SKG) ,
intent(in) :: setB
222 character(:,SKG) ,
allocatable :: complement
227 PURE module function getComplementRandomDefCom_D0_SK2(setA, setB)
result(complement)
228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
229 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D0_SK2
232 character(
*,SKG) ,
intent(in) :: setA
233 character(
*,SKG) ,
intent(in) :: setB
234 character(:,SKG) ,
allocatable :: complement
239 PURE module function getComplementRandomDefCom_D0_SK1(setA, setB)
result(complement)
240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
241 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D0_SK1
244 character(
*,SKG) ,
intent(in) :: setA
245 character(
*,SKG) ,
intent(in) :: setB
246 character(:,SKG) ,
allocatable :: complement
253 PURE module function getComplementRandomDefCom_D1_SK5(setA, setB)
result(complement)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_SK5
258 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
259 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
260 character(LEN_STR,SKG) ,
allocatable :: complement(:)
265 PURE module function getComplementRandomDefCom_D1_SK4(setA, setB)
result(complement)
266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
267 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_SK4
270 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
271 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
272 character(LEN_STR,SKG) ,
allocatable :: complement(:)
277 PURE module function getComplementRandomDefCom_D1_SK3(setA, setB)
result(complement)
278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
279 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_SK3
282 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
283 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
284 character(LEN_STR,SKG) ,
allocatable :: complement(:)
289 PURE module function getComplementRandomDefCom_D1_SK2(setA, setB)
result(complement)
290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
291 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_SK2
294 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
295 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
296 character(LEN_STR,SKG) ,
allocatable :: complement(:)
301 PURE module function getComplementRandomDefCom_D1_SK1(setA, setB)
result(complement)
302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
303 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_SK1
306 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
307 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
308 character(LEN_STR,SKG) ,
allocatable :: complement(:)
315 PURE module function getComplementRandomDefCom_D1_IK5(setA, setB)
result(complement)
316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
317 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_IK5
320 integer(IKG) ,
intent(in),
contiguous :: setA(:)
321 integer(IKG) ,
intent(in),
contiguous :: setB(:)
322 integer(IKG) ,
allocatable :: complement(:)
327 PURE module function getComplementRandomDefCom_D1_IK4(setA, setB)
result(complement)
328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
329 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_IK4
332 integer(IKG) ,
intent(in),
contiguous :: setA(:)
333 integer(IKG) ,
intent(in),
contiguous :: setB(:)
334 integer(IKG) ,
allocatable :: complement(:)
339 PURE module function getComplementRandomDefCom_D1_IK3(setA, setB)
result(complement)
340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
341 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_IK3
344 integer(IKG) ,
intent(in),
contiguous :: setA(:)
345 integer(IKG) ,
intent(in),
contiguous :: setB(:)
346 integer(IKG) ,
allocatable :: complement(:)
351 PURE module function getComplementRandomDefCom_D1_IK2(setA, setB)
result(complement)
352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
353 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_IK2
356 integer(IKG) ,
intent(in),
contiguous :: setA(:)
357 integer(IKG) ,
intent(in),
contiguous :: setB(:)
358 integer(IKG) ,
allocatable :: complement(:)
363 PURE module function getComplementRandomDefCom_D1_IK1(setA, setB)
result(complement)
364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
365 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_IK1
368 integer(IKG) ,
intent(in),
contiguous :: setA(:)
369 integer(IKG) ,
intent(in),
contiguous :: setB(:)
370 integer(IKG) ,
allocatable :: complement(:)
377 PURE module function getComplementRandomDefCom_D1_LK5(setA, setB)
result(complement)
378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
379 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_LK5
382 logical(LKG) ,
intent(in),
contiguous :: setA(:)
383 logical(LKG) ,
intent(in),
contiguous :: setB(:)
384 logical(LKG) ,
allocatable :: complement(:)
389 PURE module function getComplementRandomDefCom_D1_LK4(setA, setB)
result(complement)
390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
391 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_LK4
394 logical(LKG) ,
intent(in),
contiguous :: setA(:)
395 logical(LKG) ,
intent(in),
contiguous :: setB(:)
396 logical(LKG) ,
allocatable :: complement(:)
401 PURE module function getComplementRandomDefCom_D1_LK3(setA, setB)
result(complement)
402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
403 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_LK3
406 logical(LKG) ,
intent(in),
contiguous :: setA(:)
407 logical(LKG) ,
intent(in),
contiguous :: setB(:)
408 logical(LKG) ,
allocatable :: complement(:)
413 PURE module function getComplementRandomDefCom_D1_LK2(setA, setB)
result(complement)
414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
415 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_LK2
418 logical(LKG) ,
intent(in),
contiguous :: setA(:)
419 logical(LKG) ,
intent(in),
contiguous :: setB(:)
420 logical(LKG) ,
allocatable :: complement(:)
425 PURE module function getComplementRandomDefCom_D1_LK1(setA, setB)
result(complement)
426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
427 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_LK1
430 logical(LKG) ,
intent(in),
contiguous :: setA(:)
431 logical(LKG) ,
intent(in),
contiguous :: setB(:)
432 logical(LKG) ,
allocatable :: complement(:)
439 PURE module function getComplementRandomDefCom_D1_CK5(setA, setB)
result(complement)
440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
441 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_CK5
444 complex(CKG) ,
intent(in),
contiguous :: setA(:)
445 complex(CKG) ,
intent(in),
contiguous :: setB(:)
446 complex(CKG) ,
allocatable :: complement(:)
451 PURE module function getComplementRandomDefCom_D1_CK4(setA, setB)
result(complement)
452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
453 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_CK4
456 complex(CKG) ,
intent(in),
contiguous :: setA(:)
457 complex(CKG) ,
intent(in),
contiguous :: setB(:)
458 complex(CKG) ,
allocatable :: complement(:)
463 PURE module function getComplementRandomDefCom_D1_CK3(setA, setB)
result(complement)
464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
465 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_CK3
468 complex(CKG) ,
intent(in),
contiguous :: setA(:)
469 complex(CKG) ,
intent(in),
contiguous :: setB(:)
470 complex(CKG) ,
allocatable :: complement(:)
475 PURE module function getComplementRandomDefCom_D1_CK2(setA, setB)
result(complement)
476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
477 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_CK2
480 complex(CKG) ,
intent(in),
contiguous :: setA(:)
481 complex(CKG) ,
intent(in),
contiguous :: setB(:)
482 complex(CKG) ,
allocatable :: complement(:)
487 PURE module function getComplementRandomDefCom_D1_CK1(setA, setB)
result(complement)
488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
489 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_CK1
492 complex(CKG) ,
intent(in),
contiguous :: setA(:)
493 complex(CKG) ,
intent(in),
contiguous :: setB(:)
494 complex(CKG) ,
allocatable :: complement(:)
501 PURE module function getComplementRandomDefCom_D1_RK5(setA, setB)
result(complement)
502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
503 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_RK5
506 real(RKG) ,
intent(in),
contiguous :: setA(:)
507 real(RKG) ,
intent(in),
contiguous :: setB(:)
508 real(RKG) ,
allocatable :: complement(:)
513 PURE module function getComplementRandomDefCom_D1_RK4(setA, setB)
result(complement)
514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
515 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_RK4
518 real(RKG) ,
intent(in),
contiguous :: setA(:)
519 real(RKG) ,
intent(in),
contiguous :: setB(:)
520 real(RKG) ,
allocatable :: complement(:)
525 PURE module function getComplementRandomDefCom_D1_RK3(setA, setB)
result(complement)
526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
527 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_RK3
530 real(RKG) ,
intent(in),
contiguous :: setA(:)
531 real(RKG) ,
intent(in),
contiguous :: setB(:)
532 real(RKG) ,
allocatable :: complement(:)
537 PURE module function getComplementRandomDefCom_D1_RK2(setA, setB)
result(complement)
538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
539 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_RK2
542 real(RKG) ,
intent(in),
contiguous :: setA(:)
543 real(RKG) ,
intent(in),
contiguous :: setB(:)
544 real(RKG) ,
allocatable :: complement(:)
549 PURE module function getComplementRandomDefCom_D1_RK1(setA, setB)
result(complement)
550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
551 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomDefCom_D1_RK1
554 real(RKG) ,
intent(in),
contiguous :: setA(:)
555 real(RKG) ,
intent(in),
contiguous :: setB(:)
556 real(RKG) ,
allocatable :: complement(:)
569 module function getComplementRandomCusCom_D0_SK5(setA, setB, iseq)
result(complement)
570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
571 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D0_SK5
574 character(
*,SKG) ,
intent(in) :: setA
575 character(
*,SKG) ,
intent(in) :: setB
576 procedure(
logical(LK)) :: iseq
577 character(:,SKG) ,
allocatable :: complement
582 module function getComplementRandomCusCom_D0_SK4(setA, setB, iseq)
result(complement)
583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
584 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D0_SK4
587 character(
*,SKG) ,
intent(in) :: setA
588 character(
*,SKG) ,
intent(in) :: setB
589 procedure(
logical(LK)) :: iseq
590 character(:,SKG) ,
allocatable :: complement
595 module function getComplementRandomCusCom_D0_SK3(setA, setB, iseq)
result(complement)
596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
597 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D0_SK3
600 character(
*,SKG) ,
intent(in) :: setA
601 character(
*,SKG) ,
intent(in) :: setB
602 procedure(
logical(LK)) :: iseq
603 character(:,SKG) ,
allocatable :: complement
608 module function getComplementRandomCusCom_D0_SK2(setA, setB, iseq)
result(complement)
609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
610 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D0_SK2
613 character(
*,SKG) ,
intent(in) :: setA
614 character(
*,SKG) ,
intent(in) :: setB
615 procedure(
logical(LK)) :: iseq
616 character(:,SKG) ,
allocatable :: complement
621 module function getComplementRandomCusCom_D0_SK1(setA, setB, iseq)
result(complement)
622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
623 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D0_SK1
626 character(
*,SKG) ,
intent(in) :: setA
627 character(
*,SKG) ,
intent(in) :: setB
628 procedure(
logical(LK)) :: iseq
629 character(:,SKG) ,
allocatable :: complement
636 module function getComplementRandomCusCom_D1_SK5(setA, setB, iseq)
result(complement)
637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
638 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_SK5
641 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
642 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
643 procedure(
logical(LK)) :: iseq
644 character(LEN_STR,SKG) ,
allocatable :: complement(:)
649 module function getComplementRandomCusCom_D1_SK4(setA, setB, iseq)
result(complement)
650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
651 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_SK4
654 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
655 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
656 procedure(
logical(LK)) :: iseq
657 character(LEN_STR,SKG) ,
allocatable :: complement(:)
662 module function getComplementRandomCusCom_D1_SK3(setA, setB, iseq)
result(complement)
663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
664 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_SK3
667 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
668 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
669 procedure(
logical(LK)) :: iseq
670 character(LEN_STR,SKG) ,
allocatable :: complement(:)
675 module function getComplementRandomCusCom_D1_SK2(setA, setB, iseq)
result(complement)
676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
677 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_SK2
680 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
681 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
682 procedure(
logical(LK)) :: iseq
683 character(LEN_STR,SKG) ,
allocatable :: complement(:)
688 module function getComplementRandomCusCom_D1_SK1(setA, setB, iseq)
result(complement)
689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
690 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_SK1
693 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
694 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
695 procedure(
logical(LK)) :: iseq
696 character(LEN_STR,SKG) ,
allocatable :: complement(:)
703 module function getComplementRandomCusCom_D1_IK5(setA, setB, iseq)
result(complement)
704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
705 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_IK5
708 integer(IKG) ,
intent(in),
contiguous :: setA(:)
709 integer(IKG) ,
intent(in),
contiguous :: setB(:)
710 procedure(
logical(LK)) :: iseq
711 integer(IKG) ,
allocatable :: complement(:)
716 module function getComplementRandomCusCom_D1_IK4(setA, setB, iseq)
result(complement)
717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
718 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_IK4
721 integer(IKG) ,
intent(in),
contiguous :: setA(:)
722 integer(IKG) ,
intent(in),
contiguous :: setB(:)
723 procedure(
logical(LK)) :: iseq
724 integer(IKG) ,
allocatable :: complement(:)
729 module function getComplementRandomCusCom_D1_IK3(setA, setB, iseq)
result(complement)
730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
731 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_IK3
734 integer(IKG) ,
intent(in),
contiguous :: setA(:)
735 integer(IKG) ,
intent(in),
contiguous :: setB(:)
736 procedure(
logical(LK)) :: iseq
737 integer(IKG) ,
allocatable :: complement(:)
742 module function getComplementRandomCusCom_D1_IK2(setA, setB, iseq)
result(complement)
743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
744 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_IK2
747 integer(IKG) ,
intent(in),
contiguous :: setA(:)
748 integer(IKG) ,
intent(in),
contiguous :: setB(:)
749 procedure(
logical(LK)) :: iseq
750 integer(IKG) ,
allocatable :: complement(:)
755 module function getComplementRandomCusCom_D1_IK1(setA, setB, iseq)
result(complement)
756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
757 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_IK1
760 integer(IKG) ,
intent(in),
contiguous :: setA(:)
761 integer(IKG) ,
intent(in),
contiguous :: setB(:)
762 procedure(
logical(LK)) :: iseq
763 integer(IKG) ,
allocatable :: complement(:)
770 module function getComplementRandomCusCom_D1_LK5(setA, setB, iseq)
result(complement)
771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
772 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_LK5
775 logical(LKG) ,
intent(in),
contiguous :: setA(:)
776 logical(LKG) ,
intent(in),
contiguous :: setB(:)
777 procedure(
logical(LK)) :: iseq
778 logical(LKG) ,
allocatable :: complement(:)
783 module function getComplementRandomCusCom_D1_LK4(setA, setB, iseq)
result(complement)
784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
785 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_LK4
788 logical(LKG) ,
intent(in),
contiguous :: setA(:)
789 logical(LKG) ,
intent(in),
contiguous :: setB(:)
790 procedure(
logical(LK)) :: iseq
791 logical(LKG) ,
allocatable :: complement(:)
796 module function getComplementRandomCusCom_D1_LK3(setA, setB, iseq)
result(complement)
797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
798 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_LK3
801 logical(LKG) ,
intent(in),
contiguous :: setA(:)
802 logical(LKG) ,
intent(in),
contiguous :: setB(:)
803 procedure(
logical(LK)) :: iseq
804 logical(LKG) ,
allocatable :: complement(:)
809 module function getComplementRandomCusCom_D1_LK2(setA, setB, iseq)
result(complement)
810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
811 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_LK2
814 logical(LKG) ,
intent(in),
contiguous :: setA(:)
815 logical(LKG) ,
intent(in),
contiguous :: setB(:)
816 procedure(
logical(LK)) :: iseq
817 logical(LKG) ,
allocatable :: complement(:)
822 module function getComplementRandomCusCom_D1_LK1(setA, setB, iseq)
result(complement)
823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
824 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_LK1
827 logical(LKG) ,
intent(in),
contiguous :: setA(:)
828 logical(LKG) ,
intent(in),
contiguous :: setB(:)
829 procedure(
logical(LK)) :: iseq
830 logical(LKG) ,
allocatable :: complement(:)
837 module function getComplementRandomCusCom_D1_CK5(setA, setB, iseq)
result(complement)
838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
839 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_CK5
842 complex(CKG) ,
intent(in),
contiguous :: setA(:)
843 complex(CKG) ,
intent(in),
contiguous :: setB(:)
844 procedure(
logical(LK)) :: iseq
845 complex(CKG) ,
allocatable :: complement(:)
850 module function getComplementRandomCusCom_D1_CK4(setA, setB, iseq)
result(complement)
851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
852 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_CK4
855 complex(CKG) ,
intent(in),
contiguous :: setA(:)
856 complex(CKG) ,
intent(in),
contiguous :: setB(:)
857 procedure(
logical(LK)) :: iseq
858 complex(CKG) ,
allocatable :: complement(:)
863 module function getComplementRandomCusCom_D1_CK3(setA, setB, iseq)
result(complement)
864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
865 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_CK3
868 complex(CKG) ,
intent(in),
contiguous :: setA(:)
869 complex(CKG) ,
intent(in),
contiguous :: setB(:)
870 procedure(
logical(LK)) :: iseq
871 complex(CKG) ,
allocatable :: complement(:)
876 module function getComplementRandomCusCom_D1_CK2(setA, setB, iseq)
result(complement)
877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
878 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_CK2
881 complex(CKG) ,
intent(in),
contiguous :: setA(:)
882 complex(CKG) ,
intent(in),
contiguous :: setB(:)
883 procedure(
logical(LK)) :: iseq
884 complex(CKG) ,
allocatable :: complement(:)
889 module function getComplementRandomCusCom_D1_CK1(setA, setB, iseq)
result(complement)
890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
891 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_CK1
894 complex(CKG) ,
intent(in),
contiguous :: setA(:)
895 complex(CKG) ,
intent(in),
contiguous :: setB(:)
896 procedure(
logical(LK)) :: iseq
897 complex(CKG) ,
allocatable :: complement(:)
904 module function getComplementRandomCusCom_D1_RK5(setA, setB, iseq)
result(complement)
905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
906 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_RK5
909 real(RKG) ,
intent(in),
contiguous :: setA(:)
910 real(RKG) ,
intent(in),
contiguous :: setB(:)
911 procedure(
logical(LK)) :: iseq
912 real(RKG) ,
allocatable :: complement(:)
917 module function getComplementRandomCusCom_D1_RK4(setA, setB, iseq)
result(complement)
918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
919 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_RK4
922 real(RKG) ,
intent(in),
contiguous :: setA(:)
923 real(RKG) ,
intent(in),
contiguous :: setB(:)
924 procedure(
logical(LK)) :: iseq
925 real(RKG) ,
allocatable :: complement(:)
930 module function getComplementRandomCusCom_D1_RK3(setA, setB, iseq)
result(complement)
931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
932 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_RK3
935 real(RKG) ,
intent(in),
contiguous :: setA(:)
936 real(RKG) ,
intent(in),
contiguous :: setB(:)
937 procedure(
logical(LK)) :: iseq
938 real(RKG) ,
allocatable :: complement(:)
943 module function getComplementRandomCusCom_D1_RK2(setA, setB, iseq)
result(complement)
944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
945 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_RK2
948 real(RKG) ,
intent(in),
contiguous :: setA(:)
949 real(RKG) ,
intent(in),
contiguous :: setB(:)
950 procedure(
logical(LK)) :: iseq
951 real(RKG) ,
allocatable :: complement(:)
956 module function getComplementRandomCusCom_D1_RK1(setA, setB, iseq)
result(complement)
957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
958 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementRandomCusCom_D1_RK1
961 real(RKG) ,
intent(in),
contiguous :: setA(:)
962 real(RKG) ,
intent(in),
contiguous :: setB(:)
963 procedure(
logical(LK)) :: iseq
964 real(RKG) ,
allocatable :: complement(:)
980 PURE module function getComplementSortedDefCom_D0_SK5(setA, setB, sorted, unique)
result(complement)
981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
982 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D0_SK5
985 character(
*,SKG) ,
intent(in) :: setA
986 character(
*,SKG) ,
intent(in) :: setB
987 logical(LK) ,
intent(in) :: sorted, unique
988 character(:,SKG) ,
allocatable :: complement
993 PURE module function getComplementSortedDefCom_D0_SK4(setA, setB, sorted, unique)
result(complement)
994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
995 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D0_SK4
998 character(
*,SKG) ,
intent(in) :: setA
999 character(
*,SKG) ,
intent(in) :: setB
1000 logical(LK) ,
intent(in) :: sorted, unique
1001 character(:,SKG) ,
allocatable :: complement
1006 PURE module function getComplementSortedDefCom_D0_SK3(setA, setB, sorted, unique)
result(complement)
1007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1008 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D0_SK3
1011 character(
*,SKG) ,
intent(in) :: setA
1012 character(
*,SKG) ,
intent(in) :: setB
1013 logical(LK) ,
intent(in) :: sorted, unique
1014 character(:,SKG) ,
allocatable :: complement
1019 PURE module function getComplementSortedDefCom_D0_SK2(setA, setB, sorted, unique)
result(complement)
1020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1021 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D0_SK2
1024 character(
*,SKG) ,
intent(in) :: setA
1025 character(
*,SKG) ,
intent(in) :: setB
1026 logical(LK) ,
intent(in) :: sorted, unique
1027 character(:,SKG) ,
allocatable :: complement
1032 PURE module function getComplementSortedDefCom_D0_SK1(setA, setB, sorted, unique)
result(complement)
1033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1034 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D0_SK1
1037 character(
*,SKG) ,
intent(in) :: setA
1038 character(
*,SKG) ,
intent(in) :: setB
1039 logical(LK) ,
intent(in) :: sorted, unique
1040 character(:,SKG) ,
allocatable :: complement
1047 PURE module function getComplementSortedDefCom_D1_SK5(setA, setB, sorted, unique)
result(complement)
1048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1049 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_SK5
1052 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
1053 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
1054 logical(LK) ,
intent(in) :: sorted, unique
1055 character(LEN_STR,SKG) ,
allocatable :: complement(:)
1060 PURE module function getComplementSortedDefCom_D1_SK4(setA, setB, sorted, unique)
result(complement)
1061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1062 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_SK4
1065 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
1066 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
1067 logical(LK) ,
intent(in) :: sorted, unique
1068 character(LEN_STR,SKG) ,
allocatable :: complement(:)
1073 PURE module function getComplementSortedDefCom_D1_SK3(setA, setB, sorted, unique)
result(complement)
1074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1075 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_SK3
1078 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
1079 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
1080 logical(LK) ,
intent(in) :: sorted, unique
1081 character(LEN_STR,SKG) ,
allocatable :: complement(:)
1086 PURE module function getComplementSortedDefCom_D1_SK2(setA, setB, sorted, unique)
result(complement)
1087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1088 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_SK2
1091 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
1092 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
1093 logical(LK) ,
intent(in) :: sorted, unique
1094 character(LEN_STR,SKG) ,
allocatable :: complement(:)
1099 PURE module function getComplementSortedDefCom_D1_SK1(setA, setB, sorted, unique)
result(complement)
1100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1101 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_SK1
1104 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
1105 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
1106 logical(LK) ,
intent(in) :: sorted, unique
1107 character(LEN_STR,SKG) ,
allocatable :: complement(:)
1114 PURE module function getComplementSortedDefCom_D1_IK5(setA, setB, sorted, unique)
result(complement)
1115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1116 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_IK5
1119 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1120 integer(IKG) ,
intent(in),
contiguous :: setB(:)
1121 logical(LK) ,
intent(in) :: sorted, unique
1122 integer(IKG) ,
allocatable :: complement(:)
1127 PURE module function getComplementSortedDefCom_D1_IK4(setA, setB, sorted, unique)
result(complement)
1128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1129 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_IK4
1132 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1133 integer(IKG) ,
intent(in),
contiguous :: setB(:)
1134 logical(LK) ,
intent(in) :: sorted, unique
1135 integer(IKG) ,
allocatable :: complement(:)
1140 PURE module function getComplementSortedDefCom_D1_IK3(setA, setB, sorted, unique)
result(complement)
1141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1142 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_IK3
1145 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1146 integer(IKG) ,
intent(in),
contiguous :: setB(:)
1147 logical(LK) ,
intent(in) :: sorted
1148 logical(LK) ,
intent(in) :: unique
1149 integer(IKG) ,
allocatable :: complement(:)
1154 PURE module function getComplementSortedDefCom_D1_IK2(setA, setB, sorted, unique)
result(complement)
1155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1156 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_IK2
1159 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1160 integer(IKG) ,
intent(in),
contiguous :: setB(:)
1161 logical(LK) ,
intent(in) :: sorted
1162 logical(LK) ,
intent(in) :: unique
1163 integer(IKG) ,
allocatable :: complement(:)
1168 PURE module function getComplementSortedDefCom_D1_IK1(setA, setB, sorted, unique)
result(complement)
1169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1170 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_IK1
1173 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1174 integer(IKG) ,
intent(in),
contiguous :: setB(:)
1175 logical(LK) ,
intent(in) :: sorted
1176 logical(LK) ,
intent(in) :: unique
1177 integer(IKG) ,
allocatable :: complement(:)
1184 PURE module function getComplementSortedDefCom_D1_LK5(setA, setB, sorted, unique)
result(complement)
1185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1186 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_LK5
1189 logical(LKG) ,
intent(in),
contiguous :: setA(:)
1190 logical(LKG) ,
intent(in),
contiguous :: setB(:)
1191 logical(LK) ,
intent(in) :: sorted, unique
1192 logical(LKG) ,
allocatable :: complement(:)
1197 PURE module function getComplementSortedDefCom_D1_LK4(setA, setB, sorted, unique)
result(complement)
1198#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1199 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_LK4
1202 logical(LKG) ,
intent(in),
contiguous :: setA(:)
1203 logical(LKG) ,
intent(in),
contiguous :: setB(:)
1204 logical(LK) ,
intent(in) :: sorted, unique
1205 logical(LKG) ,
allocatable :: complement(:)
1210 PURE module function getComplementSortedDefCom_D1_LK3(setA, setB, sorted, unique)
result(complement)
1211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1212 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_LK3
1215 logical(LKG) ,
intent(in),
contiguous :: setA(:)
1216 logical(LKG) ,
intent(in),
contiguous :: setB(:)
1217 logical(LK) ,
intent(in) :: sorted
1218 logical(LK) ,
intent(in) :: unique
1219 logical(LKG) ,
allocatable :: complement(:)
1224 PURE module function getComplementSortedDefCom_D1_LK2(setA, setB, sorted, unique)
result(complement)
1225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1226 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_LK2
1229 logical(LKG) ,
intent(in),
contiguous :: setA(:)
1230 logical(LKG) ,
intent(in),
contiguous :: setB(:)
1231 logical(LK) ,
intent(in) :: sorted
1232 logical(LK) ,
intent(in) :: unique
1233 logical(LKG) ,
allocatable :: complement(:)
1238 PURE module function getComplementSortedDefCom_D1_LK1(setA, setB, sorted, unique)
result(complement)
1239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1240 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_LK1
1243 logical(LKG) ,
intent(in),
contiguous :: setA(:)
1244 logical(LKG) ,
intent(in),
contiguous :: setB(:)
1245 logical(LK) ,
intent(in) :: sorted
1246 logical(LK) ,
intent(in) :: unique
1247 logical(LKG) ,
allocatable :: complement(:)
1254 PURE module function getComplementSortedDefCom_D1_CK5(setA, setB, sorted, unique)
result(complement)
1255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1256 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_CK5
1259 complex(CKG) ,
intent(in),
contiguous :: setA(:)
1260 complex(CKG) ,
intent(in),
contiguous :: setB(:)
1261 logical(LK) ,
intent(in) :: sorted
1262 logical(LK) ,
intent(in) :: unique
1263 complex(CKG) ,
allocatable :: complement(:)
1268 PURE module function getComplementSortedDefCom_D1_CK4(setA, setB, sorted, unique)
result(complement)
1269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1270 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_CK4
1273 complex(CKG) ,
intent(in),
contiguous :: setA(:)
1274 complex(CKG) ,
intent(in),
contiguous :: setB(:)
1275 logical(LK) ,
intent(in) :: sorted
1276 logical(LK) ,
intent(in) :: unique
1277 complex(CKG) ,
allocatable :: complement(:)
1282 PURE module function getComplementSortedDefCom_D1_CK3(setA, setB, sorted, unique)
result(complement)
1283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1284 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_CK3
1287 complex(CKG) ,
intent(in),
contiguous :: setA(:)
1288 complex(CKG) ,
intent(in),
contiguous :: setB(:)
1289 logical(LK) ,
intent(in) :: sorted
1290 logical(LK) ,
intent(in) :: unique
1291 complex(CKG) ,
allocatable :: complement(:)
1296 PURE module function getComplementSortedDefCom_D1_CK2(setA, setB, sorted, unique)
result(complement)
1297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1298 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_CK2
1301 complex(CKG) ,
intent(in),
contiguous :: setA(:)
1302 complex(CKG) ,
intent(in),
contiguous :: setB(:)
1303 logical(LK) ,
intent(in) :: sorted
1304 logical(LK) ,
intent(in) :: unique
1305 complex(CKG) ,
allocatable :: complement(:)
1310 PURE module function getComplementSortedDefCom_D1_CK1(setA, setB, sorted, unique)
result(complement)
1311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1312 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_CK1
1315 complex(CKG) ,
intent(in),
contiguous :: setA(:)
1316 complex(CKG) ,
intent(in),
contiguous :: setB(:)
1317 logical(LK) ,
intent(in) :: sorted
1318 logical(LK) ,
intent(in) :: unique
1319 complex(CKG) ,
allocatable :: complement(:)
1326 PURE module function getComplementSortedDefCom_D1_RK5(setA, setB, sorted, unique)
result(complement)
1327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1328 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_RK5
1331 real(RKG) ,
intent(in),
contiguous :: setA(:)
1332 real(RKG) ,
intent(in),
contiguous :: setB(:)
1333 logical(LK) ,
intent(in) :: sorted
1334 logical(LK) ,
intent(in) :: unique
1335 real(RKG) ,
allocatable :: complement(:)
1340 PURE module function getComplementSortedDefCom_D1_RK4(setA, setB, sorted, unique)
result(complement)
1341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1342 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_RK4
1345 real(RKG) ,
intent(in),
contiguous :: setA(:)
1346 real(RKG) ,
intent(in),
contiguous :: setB(:)
1347 logical(LK) ,
intent(in) :: sorted
1348 logical(LK) ,
intent(in) :: unique
1349 real(RKG) ,
allocatable :: complement(:)
1354 PURE module function getComplementSortedDefCom_D1_RK3(setA, setB, sorted, unique)
result(complement)
1355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1356 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_RK3
1359 real(RKG) ,
intent(in),
contiguous :: setA(:)
1360 real(RKG) ,
intent(in),
contiguous :: setB(:)
1361 logical(LK) ,
intent(in) :: sorted
1362 logical(LK) ,
intent(in) :: unique
1363 real(RKG) ,
allocatable :: complement(:)
1368 PURE module function getComplementSortedDefCom_D1_RK2(setA, setB, sorted, unique)
result(complement)
1369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1370 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_RK2
1373 real(RKG) ,
intent(in),
contiguous :: setA(:)
1374 real(RKG) ,
intent(in),
contiguous :: setB(:)
1375 logical(LK) ,
intent(in) :: sorted
1376 logical(LK) ,
intent(in) :: unique
1377 real(RKG) ,
allocatable :: complement(:)
1382 PURE module function getComplementSortedDefCom_D1_RK1(setA, setB, sorted, unique)
result(complement)
1383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1384 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedDefCom_D1_RK1
1387 real(RKG) ,
intent(in),
contiguous :: setA(:)
1388 real(RKG) ,
intent(in),
contiguous :: setB(:)
1389 logical(LK) ,
intent(in) :: sorted
1390 logical(LK) ,
intent(in) :: unique
1391 real(RKG) ,
allocatable :: complement(:)
1404 module function getComplementSortedCusCom_D0_SK5(setA, setB, sorted, unique, iseq)
result(complement)
1405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1406 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D0_SK5
1409 character(
*,SKG) ,
intent(in) :: setA
1410 character(
*,SKG) ,
intent(in) :: setB
1411 logical(LK) ,
intent(in) :: sorted, unique
1412 procedure(
logical(LK)) :: iseq
1413 character(:,SKG) ,
allocatable :: complement
1418 module function getComplementSortedCusCom_D0_SK4(setA, setB, sorted, unique, iseq)
result(complement)
1419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1420 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D0_SK4
1423 character(
*,SKG) ,
intent(in) :: setA
1424 character(
*,SKG) ,
intent(in) :: setB
1425 logical(LK) ,
intent(in) :: sorted, unique
1426 procedure(
logical(LK)) :: iseq
1427 character(:,SKG) ,
allocatable :: complement
1432 module function getComplementSortedCusCom_D0_SK3(setA, setB, sorted, unique, iseq)
result(complement)
1433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1434 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D0_SK3
1437 character(
*,SKG) ,
intent(in) :: setA
1438 character(
*,SKG) ,
intent(in) :: setB
1439 logical(LK) ,
intent(in) :: sorted, unique
1440 procedure(
logical(LK)) :: iseq
1441 character(:,SKG) ,
allocatable :: complement
1446 module function getComplementSortedCusCom_D0_SK2(setA, setB, sorted, unique, iseq)
result(complement)
1447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1448 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D0_SK2
1451 character(
*,SKG) ,
intent(in) :: setA
1452 character(
*,SKG) ,
intent(in) :: setB
1453 logical(LK) ,
intent(in) :: sorted, unique
1454 procedure(
logical(LK)) :: iseq
1455 character(:,SKG) ,
allocatable :: complement
1460 module function getComplementSortedCusCom_D0_SK1(setA, setB, sorted, unique, iseq)
result(complement)
1461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1462 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D0_SK1
1465 character(
*,SKG) ,
intent(in) :: setA
1466 character(
*,SKG) ,
intent(in) :: setB
1467 logical(LK) ,
intent(in) :: sorted
1468 logical(LK) ,
intent(in) :: unique
1469 procedure(
logical(LK)) :: iseq
1470 character(:,SKG) ,
allocatable :: complement
1477 module function getComplementSortedCusCom_D1_SK5(setA, setB, sorted, unique, iseq)
result(complement)
1478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1479 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_SK5
1482 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
1483 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
1484 logical(LK) ,
intent(in) :: sorted
1485 logical(LK) ,
intent(in) :: unique
1486 procedure(
logical(LK)) :: iseq
1487 character(LEN_STR,SKG) ,
allocatable :: complement(:)
1492 module function getComplementSortedCusCom_D1_SK4(setA, setB, sorted, unique, iseq)
result(complement)
1493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1494 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_SK4
1497 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
1498 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
1499 logical(LK) ,
intent(in) :: sorted
1500 logical(LK) ,
intent(in) :: unique
1501 procedure(
logical(LK)) :: iseq
1502 character(LEN_STR,SKG) ,
allocatable :: complement(:)
1507 module function getComplementSortedCusCom_D1_SK3(setA, setB, sorted, unique, iseq)
result(complement)
1508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1509 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_SK3
1512 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
1513 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
1514 logical(LK) ,
intent(in) :: sorted
1515 logical(LK) ,
intent(in) :: unique
1516 procedure(
logical(LK)) :: iseq
1517 character(LEN_STR,SKG) ,
allocatable :: complement(:)
1522 module function getComplementSortedCusCom_D1_SK2(setA, setB, sorted, unique, iseq)
result(complement)
1523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1524 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_SK2
1527 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
1528 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
1529 logical(LK) ,
intent(in) :: sorted
1530 logical(LK) ,
intent(in) :: unique
1531 procedure(
logical(LK)) :: iseq
1532 character(LEN_STR,SKG) ,
allocatable :: complement(:)
1537 module function getComplementSortedCusCom_D1_SK1(setA, setB, sorted, unique, iseq)
result(complement)
1538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1539 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_SK1
1542 character(
*,SKG) ,
intent(in),
contiguous :: setA(:)
1543 character(
*,SKG) ,
intent(in),
contiguous :: setB(:)
1544 logical(LK) ,
intent(in) :: sorted
1545 logical(LK) ,
intent(in) :: unique
1546 procedure(
logical(LK)) :: iseq
1547 character(LEN_STR,SKG) ,
allocatable :: complement(:)
1554 module function getComplementSortedCusCom_D1_IK5(setA, setB, sorted, unique, iseq)
result(complement)
1555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1556 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_IK5
1559 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1560 integer(IKG) ,
intent(in),
contiguous :: setB(:)
1561 logical(LK) ,
intent(in) :: sorted
1562 logical(LK) ,
intent(in) :: unique
1563 procedure(
logical(LK)) :: iseq
1564 integer(IKG) ,
allocatable :: complement(:)
1569 module function getComplementSortedCusCom_D1_IK4(setA, setB, sorted, unique, iseq)
result(complement)
1570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1571 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_IK4
1574 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1575 integer(IKG) ,
intent(in),
contiguous :: setB(:)
1576 logical(LK) ,
intent(in) :: sorted
1577 logical(LK) ,
intent(in) :: unique
1578 procedure(
logical(LK)) :: iseq
1579 integer(IKG) ,
allocatable :: complement(:)
1584 module function getComplementSortedCusCom_D1_IK3(setA, setB, sorted, unique, iseq)
result(complement)
1585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1586 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_IK3
1589 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1590 integer(IKG) ,
intent(in),
contiguous :: setB(:)
1591 logical(LK) ,
intent(in) :: sorted
1592 logical(LK) ,
intent(in) :: unique
1593 procedure(
logical(LK)) :: iseq
1594 integer(IKG) ,
allocatable :: complement(:)
1599 module function getComplementSortedCusCom_D1_IK2(setA, setB, sorted, unique, iseq)
result(complement)
1600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1601 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_IK2
1604 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1605 integer(IKG) ,
intent(in),
contiguous :: setB(:)
1606 logical(LK) ,
intent(in) :: sorted
1607 logical(LK) ,
intent(in) :: unique
1608 procedure(
logical(LK)) :: iseq
1609 integer(IKG) ,
allocatable :: complement(:)
1614 module function getComplementSortedCusCom_D1_IK1(setA, setB, sorted, unique, iseq)
result(complement)
1615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1616 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_IK1
1619 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1620 integer(IKG) ,
intent(in),
contiguous :: setB(:)
1621 logical(LK) ,
intent(in) :: sorted
1622 logical(LK) ,
intent(in) :: unique
1623 procedure(
logical(LK)) :: iseq
1624 integer(IKG) ,
allocatable :: complement(:)
1631 module function getComplementSortedCusCom_D1_LK5(setA, setB, sorted, unique, iseq)
result(complement)
1632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1633 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_LK5
1636 logical(LKG) ,
intent(in),
contiguous :: setA(:)
1637 logical(LKG) ,
intent(in),
contiguous :: setB(:)
1638 logical(LK) ,
intent(in) :: sorted
1639 logical(LK) ,
intent(in) :: unique
1640 procedure(
logical(LK)) :: iseq
1641 logical(LKG) ,
allocatable :: complement(:)
1646 module function getComplementSortedCusCom_D1_LK4(setA, setB, sorted, unique, iseq)
result(complement)
1647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1648 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_LK4
1651 logical(LKG) ,
intent(in),
contiguous :: setA(:)
1652 logical(LKG) ,
intent(in),
contiguous :: setB(:)
1653 logical(LK) ,
intent(in) :: sorted
1654 logical(LK) ,
intent(in) :: unique
1655 procedure(
logical(LK)) :: iseq
1656 logical(LKG) ,
allocatable :: complement(:)
1661 module function getComplementSortedCusCom_D1_LK3(setA, setB, sorted, unique, iseq)
result(complement)
1662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1663 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_LK3
1666 logical(LKG) ,
intent(in),
contiguous :: setA(:)
1667 logical(LKG) ,
intent(in),
contiguous :: setB(:)
1668 logical(LK) ,
intent(in) :: sorted
1669 logical(LK) ,
intent(in) :: unique
1670 procedure(
logical(LK)) :: iseq
1671 logical(LKG) ,
allocatable :: complement(:)
1676 module function getComplementSortedCusCom_D1_LK2(setA, setB, sorted, unique, iseq)
result(complement)
1677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1678 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_LK2
1681 logical(LKG) ,
intent(in),
contiguous :: setA(:)
1682 logical(LKG) ,
intent(in),
contiguous :: setB(:)
1683 logical(LK) ,
intent(in) :: sorted
1684 logical(LK) ,
intent(in) :: unique
1685 procedure(
logical(LK)) :: iseq
1686 logical(LKG) ,
allocatable :: complement(:)
1691 module function getComplementSortedCusCom_D1_LK1(setA, setB, sorted, unique, iseq)
result(complement)
1692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1693 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_LK1
1696 logical(LKG) ,
intent(in),
contiguous :: setA(:)
1697 logical(LKG) ,
intent(in),
contiguous :: setB(:)
1698 logical(LK) ,
intent(in) :: sorted
1699 logical(LK) ,
intent(in) :: unique
1700 procedure(
logical(LK)) :: iseq
1701 logical(LKG) ,
allocatable :: complement(:)
1708 module function getComplementSortedCusCom_D1_CK5(setA, setB, sorted, unique, iseq)
result(complement)
1709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1710 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_CK5
1713 complex(CKG) ,
intent(in),
contiguous :: setA(:)
1714 complex(CKG) ,
intent(in),
contiguous :: setB(:)
1715 logical(LK) ,
intent(in) :: sorted
1716 logical(LK) ,
intent(in) :: unique
1717 procedure(
logical(LK)) :: iseq
1718 complex(CKG) ,
allocatable :: complement(:)
1723 module function getComplementSortedCusCom_D1_CK4(setA, setB, sorted, unique, iseq)
result(complement)
1724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1725 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_CK4
1728 complex(CKG) ,
intent(in),
contiguous :: setA(:)
1729 complex(CKG) ,
intent(in),
contiguous :: setB(:)
1730 logical(LK) ,
intent(in) :: sorted
1731 logical(LK) ,
intent(in) :: unique
1732 procedure(
logical(LK)) :: iseq
1733 complex(CKG) ,
allocatable :: complement(:)
1738 module function getComplementSortedCusCom_D1_CK3(setA, setB, sorted, unique, iseq)
result(complement)
1739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1740 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_CK3
1743 complex(CKG) ,
intent(in),
contiguous :: setA(:)
1744 complex(CKG) ,
intent(in),
contiguous :: setB(:)
1745 logical(LK) ,
intent(in) :: sorted
1746 logical(LK) ,
intent(in) :: unique
1747 procedure(
logical(LK)) :: iseq
1748 complex(CKG) ,
allocatable :: complement(:)
1753 module function getComplementSortedCusCom_D1_CK2(setA, setB, sorted, unique, iseq)
result(complement)
1754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1755 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_CK2
1758 complex(CKG) ,
intent(in),
contiguous :: setA(:)
1759 complex(CKG) ,
intent(in),
contiguous :: setB(:)
1760 logical(LK) ,
intent(in) :: sorted
1761 logical(LK) ,
intent(in) :: unique
1762 procedure(
logical(LK)) :: iseq
1763 complex(CKG) ,
allocatable :: complement(:)
1768 module function getComplementSortedCusCom_D1_CK1(setA, setB, sorted, unique, iseq)
result(complement)
1769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1770 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_CK1
1773 complex(CKG) ,
intent(in),
contiguous :: setA(:)
1774 complex(CKG) ,
intent(in),
contiguous :: setB(:)
1775 logical(LK) ,
intent(in) :: sorted
1776 logical(LK) ,
intent(in) :: unique
1777 procedure(
logical(LK)) :: iseq
1778 complex(CKG) ,
allocatable :: complement(:)
1785 module function getComplementSortedCusCom_D1_RK5(setA, setB, sorted, unique, iseq)
result(complement)
1786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1787 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_RK5
1790 real(RKG) ,
intent(in),
contiguous :: setA(:)
1791 real(RKG) ,
intent(in),
contiguous :: setB(:)
1792 logical(LK) ,
intent(in) :: sorted
1793 logical(LK) ,
intent(in) :: unique
1794 procedure(
logical(LK)) :: iseq
1795 real(RKG) ,
allocatable :: complement(:)
1800 module function getComplementSortedCusCom_D1_RK4(setA, setB, sorted, unique, iseq)
result(complement)
1801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1802 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_RK4
1805 real(RKG) ,
intent(in),
contiguous :: setA(:)
1806 real(RKG) ,
intent(in),
contiguous :: setB(:)
1807 logical(LK) ,
intent(in) :: sorted
1808 logical(LK) ,
intent(in) :: unique
1809 procedure(
logical(LK)) :: iseq
1810 real(RKG) ,
allocatable :: complement(:)
1815 module function getComplementSortedCusCom_D1_RK3(setA, setB, sorted, unique, iseq)
result(complement)
1816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1817 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_RK3
1820 real(RKG) ,
intent(in),
contiguous :: setA(:)
1821 real(RKG) ,
intent(in),
contiguous :: setB(:)
1822 logical(LK) ,
intent(in) :: sorted
1823 logical(LK) ,
intent(in) :: unique
1824 procedure(
logical(LK)) :: iseq
1825 real(RKG) ,
allocatable :: complement(:)
1830 module function getComplementSortedCusCom_D1_RK2(setA, setB, sorted, unique, iseq)
result(complement)
1831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1832 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_RK2
1835 real(RKG) ,
intent(in),
contiguous :: setA(:)
1836 real(RKG) ,
intent(in),
contiguous :: setB(:)
1837 logical(LK) ,
intent(in) :: sorted
1838 logical(LK) ,
intent(in) :: unique
1839 procedure(
logical(LK)) :: iseq
1840 real(RKG) ,
allocatable :: complement(:)
1845 module function getComplementSortedCusCom_D1_RK1(setA, setB, sorted, unique, iseq)
result(complement)
1846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1847 !DEC$ ATTRIBUTES DLLEXPORT :: getComplementSortedCusCom_D1_RK1
1850 real(RKG) ,
intent(in),
contiguous :: setA(:)
1851 real(RKG) ,
intent(in),
contiguous :: setB(:)
1852 logical(LK) ,
intent(in) :: sorted
1853 logical(LK) ,
intent(in) :: unique
1854 procedure(
logical(LK)) :: iseq
1855 real(RKG) ,
allocatable :: complement(:)
1951 PURE module function getCompRangeRandom_D1_IK5(setA, start, stop, step)
result(complement)
1952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1953 !DEC$ ATTRIBUTES DLLEXPORT :: getCompRangeRandom_D1_IK5
1956 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1957 integer(IKG) ,
intent(in) :: start, stop, step
1958 integer(IKG) ,
allocatable :: complement(:)
1963 PURE module function getCompRangeRandom_D1_IK4(setA, start, stop, step)
result(complement)
1964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1965 !DEC$ ATTRIBUTES DLLEXPORT :: getCompRangeRandom_D1_IK4
1968 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1969 integer(IKG) ,
intent(in) :: start, stop, step
1970 integer(IKG) ,
allocatable :: complement(:)
1975 PURE module function getCompRangeRandom_D1_IK3(setA, start, stop, step)
result(complement)
1976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1977 !DEC$ ATTRIBUTES DLLEXPORT :: getCompRangeRandom_D1_IK3
1980 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1981 integer(IKG) ,
intent(in) :: start, stop, step
1982 integer(IKG) ,
allocatable :: complement(:)
1987 PURE module function getCompRangeRandom_D1_IK2(setA, start, stop, step)
result(complement)
1988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1989 !DEC$ ATTRIBUTES DLLEXPORT :: getCompRangeRandom_D1_IK2
1992 integer(IKG) ,
intent(in),
contiguous :: setA(:)
1993 integer(IKG) ,
intent(in) :: start, stop, step
1994 integer(IKG) ,
allocatable :: complement(:)
1999 PURE module function getCompRangeRandom_D1_IK1(setA, start, stop, step)
result(complement)
2000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2001 !DEC$ ATTRIBUTES DLLEXPORT :: getCompRangeRandom_D1_IK1
2004 integer(IKG) ,
intent(in),
contiguous :: setA(:)
2005 integer(IKG) ,
intent(in) :: start, stop, step
2006 integer(IKG) ,
allocatable :: complement(:)
2019 PURE module function getCompRangeSorted_D1_IK5(setA, start, stop, step, sorted, unique)
result(complement)
2020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2021 !DEC$ ATTRIBUTES DLLEXPORT :: getCompRangeSorted_D1_IK5
2024 integer(IKG) ,
intent(in),
contiguous :: setA(:)
2025 integer(IKG) ,
intent(in) :: start, stop, step
2026 logical(LK) ,
intent(in) :: sorted
2027 logical(LK) ,
intent(in) :: unique
2028 integer(IKG) ,
allocatable :: complement(:)
2033 PURE module function getCompRangeSorted_D1_IK4(setA, start, stop, step, sorted, unique)
result(complement)
2034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2035 !DEC$ ATTRIBUTES DLLEXPORT :: getCompRangeSorted_D1_IK4
2038 integer(IKG) ,
intent(in),
contiguous :: setA(:)
2039 integer(IKG) ,
intent(in) :: start, stop, step
2040 logical(LK) ,
intent(in) :: sorted
2041 logical(LK) ,
intent(in) :: unique
2042 integer(IKG) ,
allocatable :: complement(:)
2047 PURE module function getCompRangeSorted_D1_IK3(setA, start, stop, step, sorted, unique)
result(complement)
2048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2049 !DEC$ ATTRIBUTES DLLEXPORT :: getCompRangeSorted_D1_IK3
2052 integer(IKG) ,
intent(in),
contiguous :: setA(:)
2053 integer(IKG) ,
intent(in) :: start, stop, step
2054 logical(LK) ,
intent(in) :: sorted
2055 logical(LK) ,
intent(in) :: unique
2056 integer(IKG) ,
allocatable :: complement(:)
2061 PURE module function getCompRangeSorted_D1_IK2(setA, start, stop, step, sorted, unique)
result(complement)
2062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2063 !DEC$ ATTRIBUTES DLLEXPORT :: getCompRangeSorted_D1_IK2
2066 integer(IKG) ,
intent(in),
contiguous :: setA(:)
2067 integer(IKG) ,
intent(in) :: start, stop, step
2068 logical(LK) ,
intent(in) :: sorted
2069 logical(LK) ,
intent(in) :: unique
2070 integer(IKG) ,
allocatable :: complement(:)
2075 PURE module function getCompRangeSorted_D1_IK1(setA, start, stop, step, sorted, unique)
result(complement)
2076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2077 !DEC$ ATTRIBUTES DLLEXPORT :: getCompRangeSorted_D1_IK1
2080 integer(IKG) ,
intent(in),
contiguous :: setA(:)
2081 integer(IKG) ,
intent(in) :: start, stop, step
2082 logical(LK) ,
intent(in) :: sorted
2083 logical(LK) ,
intent(in) :: unique
2084 integer(IKG) ,
allocatable :: complement(:)
Generate and return the complement of the input set setA with respect to an array of elements of the ...
Generate and return an array of elements of setB that are not in setA.
This module contains procedures and generic interfaces for computing the absolute or relative complem...
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...