44#define LEN_ARRAY len(array)
146 pure module function isUniqueDefCom_D0_SK5(array)
result(unique)
147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
148 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D0_SK5
151 character(
*,SKG) ,
intent(in) :: array
152 logical(LK) :: unique(
len(array, IK))
157 pure module function isUniqueDefCom_D0_SK4(array)
result(unique)
158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
159 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D0_SK4
162 character(
*,SKG) ,
intent(in) :: array
163 logical(LK) :: unique(
len(array, IK))
168 pure module function isUniqueDefCom_D0_SK3(array)
result(unique)
169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
170 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D0_SK3
173 character(
*,SKG) ,
intent(in) :: array
174 logical(LK) :: unique(
len(array, IK))
179 pure module function isUniqueDefCom_D0_SK2(array)
result(unique)
180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
181 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D0_SK2
184 character(
*,SKG) ,
intent(in) :: array
185 logical(LK) :: unique(
len(array, IK))
190 pure module function isUniqueDefCom_D0_SK1(array)
result(unique)
191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
192 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D0_SK1
195 character(
*,SKG) ,
intent(in) :: array
196 logical(LK) :: unique(
len(array, IK))
203 pure module function isUniqueDefCom_D1_SK5(array)
result(unique)
204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
205 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_SK5
208 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
209 logical(LK) :: unique(
size(array,
1, IK))
214 pure module function isUniqueDefCom_D1_SK4(array)
result(unique)
215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
216 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_SK4
219 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
220 logical(LK) :: unique(
size(array,
1, IK))
225 pure module function isUniqueDefCom_D1_SK3(array)
result(unique)
226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
227 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_SK3
230 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
231 logical(LK) :: unique(
size(array,
1, IK))
236 pure module function isUniqueDefCom_D1_SK2(array)
result(unique)
237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
238 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_SK2
241 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
242 logical(LK) :: unique(
size(array,
1, IK))
247 pure module function isUniqueDefCom_D1_SK1(array)
result(unique)
248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
249 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_SK1
252 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
253 logical(LK) :: unique(
size(array,
1, IK))
260 pure module function isUniqueDefCom_D1_IK5(array)
result(unique)
261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
262 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_IK5
265 integer(IKG) ,
intent(in),
contiguous :: array(:)
266 logical(LK) :: unique(
size(array,
1, IK))
271 pure module function isUniqueDefCom_D1_IK4(array)
result(unique)
272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
273 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_IK4
276 integer(IKG) ,
intent(in),
contiguous :: array(:)
277 logical(LK) :: unique(
size(array,
1, IK))
282 pure module function isUniqueDefCom_D1_IK3(array)
result(unique)
283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
284 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_IK3
287 integer(IKG) ,
intent(in),
contiguous :: array(:)
288 logical(LK) :: unique(
size(array,
1, IK))
293 pure module function isUniqueDefCom_D1_IK2(array)
result(unique)
294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
295 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_IK2
298 integer(IKG) ,
intent(in),
contiguous :: array(:)
299 logical(LK) :: unique(
size(array,
1, IK))
304 pure module function isUniqueDefCom_D1_IK1(array)
result(unique)
305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
306 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_IK1
309 integer(IKG) ,
intent(in),
contiguous :: array(:)
310 logical(LK) :: unique(
size(array,
1, IK))
317 pure module function isUniqueDefCom_D1_LK5(array)
result(unique)
318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
319 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_LK5
322 logical(LKG) ,
intent(in),
contiguous :: array(:)
323 logical(LK) :: unique(
size(array,
1, IK))
328 pure module function isUniqueDefCom_D1_LK4(array)
result(unique)
329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
330 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_LK4
333 logical(LKG) ,
intent(in),
contiguous :: array(:)
334 logical(LK) :: unique(
size(array,
1, IK))
339 pure module function isUniqueDefCom_D1_LK3(array)
result(unique)
340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
341 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_LK3
344 logical(LKG) ,
intent(in),
contiguous :: array(:)
345 logical(LK) :: unique(
size(array,
1, IK))
350 pure module function isUniqueDefCom_D1_LK2(array)
result(unique)
351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
352 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_LK2
355 logical(LKG) ,
intent(in),
contiguous :: array(:)
356 logical(LK) :: unique(
size(array,
1, IK))
361 pure module function isUniqueDefCom_D1_LK1(array)
result(unique)
362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
363 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_LK1
366 logical(LKG) ,
intent(in),
contiguous :: array(:)
367 logical(LK) :: unique(
size(array,
1, IK))
374 pure module function isUniqueDefCom_D1_CK5(array)
result(unique)
375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
376 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_CK5
379 complex(CKG) ,
intent(in),
contiguous :: array(:)
380 logical(LK) :: unique(
size(array,
1, IK))
385 pure module function isUniqueDefCom_D1_CK4(array)
result(unique)
386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
387 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_CK4
390 complex(CKG) ,
intent(in),
contiguous :: array(:)
391 logical(LK) :: unique(
size(array,
1, IK))
396 pure module function isUniqueDefCom_D1_CK3(array)
result(unique)
397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
398 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_CK3
401 complex(CKG) ,
intent(in),
contiguous :: array(:)
402 logical(LK) :: unique(
size(array,
1, IK))
407 pure module function isUniqueDefCom_D1_CK2(array)
result(unique)
408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
409 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_CK2
412 complex(CKG) ,
intent(in),
contiguous :: array(:)
413 logical(LK) :: unique(
size(array,
1, IK))
418 pure module function isUniqueDefCom_D1_CK1(array)
result(unique)
419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
420 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_CK1
423 complex(CKG) ,
intent(in),
contiguous :: array(:)
424 logical(LK) :: unique(
size(array,
1, IK))
431 pure module function isUniqueDefCom_D1_RK5(array)
result(unique)
432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
433 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_RK5
436 real(RKG) ,
intent(in),
contiguous :: array(:)
437 logical(LK) :: unique(
size(array,
1, IK))
442 pure module function isUniqueDefCom_D1_RK4(array)
result(unique)
443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
444 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_RK4
447 real(RKG) ,
intent(in),
contiguous :: array(:)
448 logical(LK) :: unique(
size(array,
1, IK))
453 pure module function isUniqueDefCom_D1_RK3(array)
result(unique)
454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
455 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_RK3
458 real(RKG) ,
intent(in),
contiguous :: array(:)
459 logical(LK) :: unique(
size(array,
1, IK))
464 pure module function isUniqueDefCom_D1_RK2(array)
result(unique)
465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
466 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_RK2
469 real(RKG) ,
intent(in),
contiguous :: array(:)
470 logical(LK) :: unique(
size(array,
1, IK))
475 pure module function isUniqueDefCom_D1_RK1(array)
result(unique)
476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
477 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueDefCom_D1_RK1
480 real(RKG) ,
intent(in),
contiguous :: array(:)
481 logical(LK) :: unique(
size(array,
1, IK))
490 module function isUniqueCusCom_D0_SK5(array, iseq)
result(unique)
491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
492 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D0_SK5
495 character(
*,SKG) ,
intent(in) :: array
496 procedure(
logical(LK)) :: iseq
497 logical(LK) :: unique(
len(array, IK))
502 module function isUniqueCusCom_D0_SK4(array, iseq)
result(unique)
503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
504 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D0_SK4
507 character(
*,SKG) ,
intent(in) :: array
508 procedure(
logical(LK)) :: iseq
509 logical(LK) :: unique(
len(array, IK))
514 module function isUniqueCusCom_D0_SK3(array, iseq)
result(unique)
515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
516 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D0_SK3
519 character(
*,SKG) ,
intent(in) :: array
520 procedure(
logical(LK)) :: iseq
521 logical(LK) :: unique(
len(array, IK))
526 module function isUniqueCusCom_D0_SK2(array, iseq)
result(unique)
527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
528 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D0_SK2
531 character(
*,SKG) ,
intent(in) :: array
532 procedure(
logical(LK)) :: iseq
533 logical(LK) :: unique(
len(array, IK))
538 module function isUniqueCusCom_D0_SK1(array, iseq)
result(unique)
539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
540 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D0_SK1
543 character(
*,SKG) ,
intent(in) :: array
544 procedure(
logical(LK)) :: iseq
545 logical(LK) :: unique(
len(array, IK))
552 module function isUniqueCusCom_D1_SK5(array, iseq)
result(unique)
553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
554 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_SK5
557 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
558 procedure(
logical(LK)) :: iseq
559 logical(LK) :: unique(
size(array,
1, IK))
564 module function isUniqueCusCom_D1_SK4(array, iseq)
result(unique)
565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
566 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_SK4
569 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
570 procedure(
logical(LK)) :: iseq
571 logical(LK) :: unique(
size(array,
1, IK))
576 module function isUniqueCusCom_D1_SK3(array, iseq)
result(unique)
577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
578 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_SK3
581 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
582 procedure(
logical(LK)) :: iseq
583 logical(LK) :: unique(
size(array,
1, IK))
588 module function isUniqueCusCom_D1_SK2(array, iseq)
result(unique)
589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
590 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_SK2
593 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
594 procedure(
logical(LK)) :: iseq
595 logical(LK) :: unique(
size(array,
1, IK))
600 module function isUniqueCusCom_D1_SK1(array, iseq)
result(unique)
601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
602 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_SK1
605 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
606 procedure(
logical(LK)) :: iseq
607 logical(LK) :: unique(
size(array,
1, IK))
614 module function isUniqueCusCom_D1_IK5(array, iseq)
result(unique)
615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
616 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_IK5
619 integer(IKG) ,
intent(in),
contiguous :: array(:)
620 procedure(
logical(LK)) :: iseq
621 logical(LK) :: unique(
size(array,
1, IK))
626 module function isUniqueCusCom_D1_IK4(array, iseq)
result(unique)
627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
628 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_IK4
631 integer(IKG) ,
intent(in),
contiguous :: array(:)
632 procedure(
logical(LK)) :: iseq
633 logical(LK) :: unique(
size(array,
1, IK))
638 module function isUniqueCusCom_D1_IK3(array, iseq)
result(unique)
639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
640 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_IK3
643 integer(IKG) ,
intent(in),
contiguous :: array(:)
644 procedure(
logical(LK)) :: iseq
645 logical(LK) :: unique(
size(array,
1, IK))
650 module function isUniqueCusCom_D1_IK2(array, iseq)
result(unique)
651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
652 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_IK2
655 integer(IKG) ,
intent(in),
contiguous :: array(:)
656 procedure(
logical(LK)) :: iseq
657 logical(LK) :: unique(
size(array,
1, IK))
662 module function isUniqueCusCom_D1_IK1(array, iseq)
result(unique)
663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
664 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_IK1
667 integer(IKG) ,
intent(in),
contiguous :: array(:)
668 procedure(
logical(LK)) :: iseq
669 logical(LK) :: unique(
size(array,
1, IK))
676 module function isUniqueCusCom_D1_LK5(array, iseq)
result(unique)
677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
678 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_LK5
681 logical(LKG) ,
intent(in),
contiguous :: array(:)
682 procedure(
logical(LK)) :: iseq
683 logical(LK) :: unique(
size(array,
1, IK))
688 module function isUniqueCusCom_D1_LK4(array, iseq)
result(unique)
689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
690 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_LK4
693 logical(LKG) ,
intent(in),
contiguous :: array(:)
694 procedure(
logical(LK)) :: iseq
695 logical(LK) :: unique(
size(array,
1, IK))
700 module function isUniqueCusCom_D1_LK3(array, iseq)
result(unique)
701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
702 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_LK3
705 logical(LKG) ,
intent(in),
contiguous :: array(:)
706 procedure(
logical(LK)) :: iseq
707 logical(LK) :: unique(
size(array,
1, IK))
712 module function isUniqueCusCom_D1_LK2(array, iseq)
result(unique)
713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
714 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_LK2
717 logical(LKG) ,
intent(in),
contiguous :: array(:)
718 procedure(
logical(LK)) :: iseq
719 logical(LK) :: unique(
size(array,
1, IK))
724 module function isUniqueCusCom_D1_LK1(array, iseq)
result(unique)
725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
726 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_LK1
729 logical(LKG) ,
intent(in),
contiguous :: array(:)
730 procedure(
logical(LK)) :: iseq
731 logical(LK) :: unique(
size(array,
1, IK))
738 module function isUniqueCusCom_D1_CK5(array, iseq)
result(unique)
739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
740 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_CK5
743 complex(CKG) ,
intent(in),
contiguous :: array(:)
744 procedure(
logical(LK)) :: iseq
745 logical(LK) :: unique(
size(array,
1, IK))
750 module function isUniqueCusCom_D1_CK4(array, iseq)
result(unique)
751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
752 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_CK4
755 complex(CKG) ,
intent(in),
contiguous :: array(:)
756 procedure(
logical(LK)) :: iseq
757 logical(LK) :: unique(
size(array,
1, IK))
762 module function isUniqueCusCom_D1_CK3(array, iseq)
result(unique)
763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
764 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_CK3
767 complex(CKG) ,
intent(in),
contiguous :: array(:)
768 procedure(
logical(LK)) :: iseq
769 logical(LK) :: unique(
size(array,
1, IK))
774 module function isUniqueCusCom_D1_CK2(array, iseq)
result(unique)
775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
776 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_CK2
779 complex(CKG) ,
intent(in),
contiguous :: array(:)
780 procedure(
logical(LK)) :: iseq
781 logical(LK) :: unique(
size(array,
1, IK))
786 module function isUniqueCusCom_D1_CK1(array, iseq)
result(unique)
787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
788 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_CK1
791 complex(CKG) ,
intent(in),
contiguous :: array(:)
792 procedure(
logical(LK)) :: iseq
793 logical(LK) :: unique(
size(array,
1, IK))
800 module function isUniqueCusCom_D1_RK5(array, iseq)
result(unique)
801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
802 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_RK5
805 real(RKG) ,
intent(in),
contiguous :: array(:)
806 procedure(
logical(LK)) :: iseq
807 logical(LK) :: unique(
size(array,
1, IK))
812 module function isUniqueCusCom_D1_RK4(array, iseq)
result(unique)
813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
814 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_RK4
817 real(RKG) ,
intent(in),
contiguous :: array(:)
818 procedure(
logical(LK)) :: iseq
819 logical(LK) :: unique(
size(array,
1, IK))
824 module function isUniqueCusCom_D1_RK3(array, iseq)
result(unique)
825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
826 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_RK3
829 real(RKG) ,
intent(in),
contiguous :: array(:)
830 procedure(
logical(LK)) :: iseq
831 logical(LK) :: unique(
size(array,
1, IK))
836 module function isUniqueCusCom_D1_RK2(array, iseq)
result(unique)
837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
838 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_RK2
841 real(RKG) ,
intent(in),
contiguous :: array(:)
842 procedure(
logical(LK)) :: iseq
843 logical(LK) :: unique(
size(array,
1, IK))
848 module function isUniqueCusCom_D1_RK1(array, iseq)
result(unique)
849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
850 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueCusCom_D1_RK1
853 real(RKG) ,
intent(in),
contiguous :: array(:)
854 procedure(
logical(LK)) :: iseq
855 logical(LK) :: unique(
size(array,
1, IK))
962 PURE module function isUniqueAllDefCom_D0_SK5(array)
result(uniqueAll)
963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
964 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D0_SK5
967 character(
*,SKG) ,
intent(in) :: array
968 logical(LK) :: uniqueAll
973 PURE module function isUniqueAllDefCom_D0_SK4(array)
result(uniqueAll)
974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
975 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D0_SK4
978 character(
*,SKG) ,
intent(in) :: array
979 logical(LK) :: uniqueAll
984 PURE module function isUniqueAllDefCom_D0_SK3(array)
result(uniqueAll)
985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
986 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D0_SK3
989 character(
*,SKG) ,
intent(in) :: array
990 logical(LK) :: uniqueAll
995 PURE module function isUniqueAllDefCom_D0_SK2(array)
result(uniqueAll)
996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
997 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D0_SK2
1000 character(
*,SKG) ,
intent(in) :: array
1001 logical(LK) :: uniqueAll
1006 PURE module function isUniqueAllDefCom_D0_SK1(array)
result(uniqueAll)
1007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1008 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D0_SK1
1011 character(
*,SKG) ,
intent(in) :: array
1012 logical(LK) :: uniqueAll
1019 PURE module function isUniqueAllDefCom_D1_SK5(array)
result(uniqueAll)
1020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1021 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_SK5
1024 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1025 logical(LK) :: uniqueAll
1030 PURE module function isUniqueAllDefCom_D1_SK4(array)
result(uniqueAll)
1031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1032 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_SK4
1035 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1036 logical(LK) :: uniqueAll
1041 PURE module function isUniqueAllDefCom_D1_SK3(array)
result(uniqueAll)
1042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1043 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_SK3
1046 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1047 logical(LK) :: uniqueAll
1052 PURE module function isUniqueAllDefCom_D1_SK2(array)
result(uniqueAll)
1053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1054 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_SK2
1057 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1058 logical(LK) :: uniqueAll
1063 PURE module function isUniqueAllDefCom_D1_SK1(array)
result(uniqueAll)
1064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1065 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_SK1
1068 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1069 logical(LK) :: uniqueAll
1076 PURE module function isUniqueAllDefCom_D1_IK5(array)
result(uniqueAll)
1077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1078 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_IK5
1081 integer(IKG) ,
intent(in),
contiguous :: array(:)
1082 logical(LK) :: uniqueAll
1087 PURE module function isUniqueAllDefCom_D1_IK4(array)
result(uniqueAll)
1088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1089 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_IK4
1092 integer(IKG) ,
intent(in),
contiguous :: array(:)
1093 logical(LK) :: uniqueAll
1098 PURE module function isUniqueAllDefCom_D1_IK3(array)
result(uniqueAll)
1099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1100 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_IK3
1103 integer(IKG) ,
intent(in),
contiguous :: array(:)
1104 logical(LK) :: uniqueAll
1109 PURE module function isUniqueAllDefCom_D1_IK2(array)
result(uniqueAll)
1110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1111 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_IK2
1114 integer(IKG) ,
intent(in),
contiguous :: array(:)
1115 logical(LK) :: uniqueAll
1120 PURE module function isUniqueAllDefCom_D1_IK1(array)
result(uniqueAll)
1121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1122 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_IK1
1125 integer(IKG) ,
intent(in),
contiguous :: array(:)
1126 logical(LK) :: uniqueAll
1133 PURE module function isUniqueAllDefCom_D1_LK5(array)
result(uniqueAll)
1134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1135 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_LK5
1138 logical(LKG) ,
intent(in),
contiguous :: array(:)
1139 logical(LK) :: uniqueAll
1144 PURE module function isUniqueAllDefCom_D1_LK4(array)
result(uniqueAll)
1145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1146 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_LK4
1149 logical(LKG) ,
intent(in),
contiguous :: array(:)
1150 logical(LK) :: uniqueAll
1155 PURE module function isUniqueAllDefCom_D1_LK3(array)
result(uniqueAll)
1156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1157 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_LK3
1160 logical(LKG) ,
intent(in),
contiguous :: array(:)
1161 logical(LK) :: uniqueAll
1166 PURE module function isUniqueAllDefCom_D1_LK2(array)
result(uniqueAll)
1167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1168 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_LK2
1171 logical(LKG) ,
intent(in),
contiguous :: array(:)
1172 logical(LK) :: uniqueAll
1177 PURE module function isUniqueAllDefCom_D1_LK1(array)
result(uniqueAll)
1178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1179 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_LK1
1182 logical(LKG) ,
intent(in),
contiguous :: array(:)
1183 logical(LK) :: uniqueAll
1190 PURE module function isUniqueAllDefCom_D1_CK5(array)
result(uniqueAll)
1191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1192 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_CK5
1195 complex(CKG) ,
intent(in),
contiguous :: array(:)
1196 logical(LK) :: uniqueAll
1201 PURE module function isUniqueAllDefCom_D1_CK4(array)
result(uniqueAll)
1202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1203 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_CK4
1206 complex(CKG) ,
intent(in),
contiguous :: array(:)
1207 logical(LK) :: uniqueAll
1212 PURE module function isUniqueAllDefCom_D1_CK3(array)
result(uniqueAll)
1213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1214 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_CK3
1217 complex(CKG) ,
intent(in),
contiguous :: array(:)
1218 logical(LK) :: uniqueAll
1223 PURE module function isUniqueAllDefCom_D1_CK2(array)
result(uniqueAll)
1224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1225 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_CK2
1228 complex(CKG) ,
intent(in),
contiguous :: array(:)
1229 logical(LK) :: uniqueAll
1234 PURE module function isUniqueAllDefCom_D1_CK1(array)
result(uniqueAll)
1235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1236 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_CK1
1239 complex(CKG) ,
intent(in),
contiguous :: array(:)
1240 logical(LK) :: uniqueAll
1247 PURE module function isUniqueAllDefCom_D1_RK5(array)
result(uniqueAll)
1248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1249 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_RK5
1252 real(RKG) ,
intent(in),
contiguous :: array(:)
1253 logical(LK) :: uniqueAll
1258 PURE module function isUniqueAllDefCom_D1_RK4(array)
result(uniqueAll)
1259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1260 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_RK4
1263 real(RKG) ,
intent(in),
contiguous :: array(:)
1264 logical(LK) :: uniqueAll
1269 PURE module function isUniqueAllDefCom_D1_RK3(array)
result(uniqueAll)
1270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1271 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_RK3
1274 real(RKG) ,
intent(in),
contiguous :: array(:)
1275 logical(LK) :: uniqueAll
1280 PURE module function isUniqueAllDefCom_D1_RK2(array)
result(uniqueAll)
1281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1282 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_RK2
1285 real(RKG) ,
intent(in),
contiguous :: array(:)
1286 logical(LK) :: uniqueAll
1291 PURE module function isUniqueAllDefCom_D1_RK1(array)
result(uniqueAll)
1292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1293 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllDefCom_D1_RK1
1296 real(RKG) ,
intent(in),
contiguous :: array(:)
1297 logical(LK) :: uniqueAll
1306 module function isUniqueAllCusCom_D0_SK5(array, iseq)
result(uniqueAll)
1307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1308 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D0_SK5
1311 character(
*,SKG) ,
intent(in) :: array
1312 procedure(
logical(LK)) :: iseq
1313 logical(LK) :: uniqueAll
1318 module function isUniqueAllCusCom_D0_SK4(array, iseq)
result(uniqueAll)
1319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1320 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D0_SK4
1323 character(
*,SKG) ,
intent(in) :: array
1324 procedure(
logical(LK)) :: iseq
1325 logical(LK) :: uniqueAll
1330 module function isUniqueAllCusCom_D0_SK3(array, iseq)
result(uniqueAll)
1331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1332 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D0_SK3
1335 character(
*,SKG) ,
intent(in) :: array
1336 procedure(
logical(LK)) :: iseq
1337 logical(LK) :: uniqueAll
1342 module function isUniqueAllCusCom_D0_SK2(array, iseq)
result(uniqueAll)
1343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1344 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D0_SK2
1347 character(
*,SKG) ,
intent(in) :: array
1348 procedure(
logical(LK)) :: iseq
1349 logical(LK) :: uniqueAll
1354 module function isUniqueAllCusCom_D0_SK1(array, iseq)
result(uniqueAll)
1355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1356 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D0_SK1
1359 character(
*,SKG) ,
intent(in) :: array
1360 procedure(
logical(LK)) :: iseq
1361 logical(LK) :: uniqueAll
1368 module function isUniqueAllCusCom_D1_SK5(array, iseq)
result(uniqueAll)
1369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1370 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_SK5
1373 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1374 procedure(
logical(LK)) :: iseq
1375 logical(LK) :: uniqueAll
1380 module function isUniqueAllCusCom_D1_SK4(array, iseq)
result(uniqueAll)
1381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1382 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_SK4
1385 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1386 procedure(
logical(LK)) :: iseq
1387 logical(LK) :: uniqueAll
1392 module function isUniqueAllCusCom_D1_SK3(array, iseq)
result(uniqueAll)
1393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1394 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_SK3
1397 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1398 procedure(
logical(LK)) :: iseq
1399 logical(LK) :: uniqueAll
1404 module function isUniqueAllCusCom_D1_SK2(array, iseq)
result(uniqueAll)
1405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1406 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_SK2
1409 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1410 procedure(
logical(LK)) :: iseq
1411 logical(LK) :: uniqueAll
1416 module function isUniqueAllCusCom_D1_SK1(array, iseq)
result(uniqueAll)
1417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1418 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_SK1
1421 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1422 procedure(
logical(LK)) :: iseq
1423 logical(LK) :: uniqueAll
1430 module function isUniqueAllCusCom_D1_IK5(array, iseq)
result(uniqueAll)
1431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1432 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_IK5
1435 integer(IKG) ,
intent(in),
contiguous :: array(:)
1436 procedure(
logical(LK)) :: iseq
1437 logical(LK) :: uniqueAll
1442 module function isUniqueAllCusCom_D1_IK4(array, iseq)
result(uniqueAll)
1443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1444 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_IK4
1447 integer(IKG) ,
intent(in),
contiguous :: array(:)
1448 procedure(
logical(LK)) :: iseq
1449 logical(LK) :: uniqueAll
1454 module function isUniqueAllCusCom_D1_IK3(array, iseq)
result(uniqueAll)
1455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1456 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_IK3
1459 integer(IKG) ,
intent(in),
contiguous :: array(:)
1460 procedure(
logical(LK)) :: iseq
1461 logical(LK) :: uniqueAll
1466 module function isUniqueAllCusCom_D1_IK2(array, iseq)
result(uniqueAll)
1467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1468 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_IK2
1471 integer(IKG) ,
intent(in),
contiguous :: array(:)
1472 procedure(
logical(LK)) :: iseq
1473 logical(LK) :: uniqueAll
1478 module function isUniqueAllCusCom_D1_IK1(array, iseq)
result(uniqueAll)
1479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1480 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_IK1
1483 integer(IKG) ,
intent(in),
contiguous :: array(:)
1484 procedure(
logical(LK)) :: iseq
1485 logical(LK) :: uniqueAll
1492 module function isUniqueAllCusCom_D1_LK5(array, iseq)
result(uniqueAll)
1493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1494 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_LK5
1497 logical(LKG) ,
intent(in),
contiguous :: array(:)
1498 procedure(
logical(LK)) :: iseq
1499 logical(LK) :: uniqueAll
1504 module function isUniqueAllCusCom_D1_LK4(array, iseq)
result(uniqueAll)
1505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1506 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_LK4
1509 logical(LKG) ,
intent(in),
contiguous :: array(:)
1510 procedure(
logical(LK)) :: iseq
1511 logical(LK) :: uniqueAll
1516 module function isUniqueAllCusCom_D1_LK3(array, iseq)
result(uniqueAll)
1517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1518 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_LK3
1521 logical(LKG) ,
intent(in),
contiguous :: array(:)
1522 procedure(
logical(LK)) :: iseq
1523 logical(LK) :: uniqueAll
1528 module function isUniqueAllCusCom_D1_LK2(array, iseq)
result(uniqueAll)
1529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1530 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_LK2
1533 logical(LKG) ,
intent(in),
contiguous :: array(:)
1534 procedure(
logical(LK)) :: iseq
1535 logical(LK) :: uniqueAll
1540 module function isUniqueAllCusCom_D1_LK1(array, iseq)
result(uniqueAll)
1541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1542 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_LK1
1545 logical(LKG) ,
intent(in),
contiguous :: array(:)
1546 procedure(
logical(LK)) :: iseq
1547 logical(LK) :: uniqueAll
1554 module function isUniqueAllCusCom_D1_CK5(array, iseq)
result(uniqueAll)
1555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1556 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_CK5
1559 complex(CKG) ,
intent(in),
contiguous :: array(:)
1560 procedure(
logical(LK)) :: iseq
1561 logical(LK) :: uniqueAll
1566 module function isUniqueAllCusCom_D1_CK4(array, iseq)
result(uniqueAll)
1567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1568 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_CK4
1571 complex(CKG) ,
intent(in),
contiguous :: array(:)
1572 procedure(
logical(LK)) :: iseq
1573 logical(LK) :: uniqueAll
1578 module function isUniqueAllCusCom_D1_CK3(array, iseq)
result(uniqueAll)
1579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1580 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_CK3
1583 complex(CKG) ,
intent(in),
contiguous :: array(:)
1584 procedure(
logical(LK)) :: iseq
1585 logical(LK) :: uniqueAll
1590 module function isUniqueAllCusCom_D1_CK2(array, iseq)
result(uniqueAll)
1591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1592 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_CK2
1595 complex(CKG) ,
intent(in),
contiguous :: array(:)
1596 procedure(
logical(LK)) :: iseq
1597 logical(LK) :: uniqueAll
1602 module function isUniqueAllCusCom_D1_CK1(array, iseq)
result(uniqueAll)
1603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1604 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_CK1
1607 complex(CKG) ,
intent(in),
contiguous :: array(:)
1608 procedure(
logical(LK)) :: iseq
1609 logical(LK) :: uniqueAll
1616 module function isUniqueAllCusCom_D1_RK5(array, iseq)
result(uniqueAll)
1617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1618 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_RK5
1621 real(RKG) ,
intent(in),
contiguous :: array(:)
1622 procedure(
logical(LK)) :: iseq
1623 logical(LK) :: uniqueAll
1628 module function isUniqueAllCusCom_D1_RK4(array, iseq)
result(uniqueAll)
1629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1630 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_RK4
1633 real(RKG) ,
intent(in),
contiguous :: array(:)
1634 procedure(
logical(LK)) :: iseq
1635 logical(LK) :: uniqueAll
1640 module function isUniqueAllCusCom_D1_RK3(array, iseq)
result(uniqueAll)
1641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1642 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_RK3
1645 real(RKG) ,
intent(in),
contiguous :: array(:)
1646 procedure(
logical(LK)) :: iseq
1647 logical(LK) :: uniqueAll
1652 module function isUniqueAllCusCom_D1_RK2(array, iseq)
result(uniqueAll)
1653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1654 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_RK2
1657 real(RKG) ,
intent(in),
contiguous :: array(:)
1658 procedure(
logical(LK)) :: iseq
1659 logical(LK) :: uniqueAll
1664 module function isUniqueAllCusCom_D1_RK1(array, iseq)
result(uniqueAll)
1665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1666 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAllCusCom_D1_RK1
1669 real(RKG) ,
intent(in),
contiguous :: array(:)
1670 procedure(
logical(LK)) :: iseq
1671 logical(LK) :: uniqueAll
1777 PURE module function isUniqueAnyDefCom_D0_SK5(array)
result(uniqueAny)
1778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1779 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D0_SK5
1782 character(
*,SKG) ,
intent(in) :: array
1783 logical(LK) :: uniqueAny
1788 PURE module function isUniqueAnyDefCom_D0_SK4(array)
result(uniqueAny)
1789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1790 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D0_SK4
1793 character(
*,SKG) ,
intent(in) :: array
1794 logical(LK) :: uniqueAny
1799 PURE module function isUniqueAnyDefCom_D0_SK3(array)
result(uniqueAny)
1800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1801 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D0_SK3
1804 character(
*,SKG) ,
intent(in) :: array
1805 logical(LK) :: uniqueAny
1810 PURE module function isUniqueAnyDefCom_D0_SK2(array)
result(uniqueAny)
1811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1812 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D0_SK2
1815 character(
*,SKG) ,
intent(in) :: array
1816 logical(LK) :: uniqueAny
1821 PURE module function isUniqueAnyDefCom_D0_SK1(array)
result(uniqueAny)
1822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1823 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D0_SK1
1826 character(
*,SKG) ,
intent(in) :: array
1827 logical(LK) :: uniqueAny
1834 PURE module function isUniqueAnyDefCom_D1_SK5(array)
result(uniqueAny)
1835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1836 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_SK5
1839 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1840 logical(LK) :: uniqueAny
1845 PURE module function isUniqueAnyDefCom_D1_SK4(array)
result(uniqueAny)
1846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1847 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_SK4
1850 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1851 logical(LK) :: uniqueAny
1856 PURE module function isUniqueAnyDefCom_D1_SK3(array)
result(uniqueAny)
1857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1858 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_SK3
1861 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1862 logical(LK) :: uniqueAny
1867 PURE module function isUniqueAnyDefCom_D1_SK2(array)
result(uniqueAny)
1868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1869 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_SK2
1872 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1873 logical(LK) :: uniqueAny
1878 PURE module function isUniqueAnyDefCom_D1_SK1(array)
result(uniqueAny)
1879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1880 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_SK1
1883 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1884 logical(LK) :: uniqueAny
1891 PURE module function isUniqueAnyDefCom_D1_IK5(array)
result(uniqueAny)
1892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1893 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_IK5
1896 integer(IKG) ,
intent(in),
contiguous :: array(:)
1897 logical(LK) :: uniqueAny
1902 PURE module function isUniqueAnyDefCom_D1_IK4(array)
result(uniqueAny)
1903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1904 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_IK4
1907 integer(IKG) ,
intent(in),
contiguous :: array(:)
1908 logical(LK) :: uniqueAny
1913 PURE module function isUniqueAnyDefCom_D1_IK3(array)
result(uniqueAny)
1914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1915 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_IK3
1918 integer(IKG) ,
intent(in),
contiguous :: array(:)
1919 logical(LK) :: uniqueAny
1924 PURE module function isUniqueAnyDefCom_D1_IK2(array)
result(uniqueAny)
1925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1926 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_IK2
1929 integer(IKG) ,
intent(in),
contiguous :: array(:)
1930 logical(LK) :: uniqueAny
1935 PURE module function isUniqueAnyDefCom_D1_IK1(array)
result(uniqueAny)
1936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1937 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_IK1
1940 integer(IKG) ,
intent(in),
contiguous :: array(:)
1941 logical(LK) :: uniqueAny
1948 PURE module function isUniqueAnyDefCom_D1_LK5(array)
result(uniqueAny)
1949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1950 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_LK5
1953 logical(LKG) ,
intent(in),
contiguous :: array(:)
1954 logical(LK) :: uniqueAny
1959 PURE module function isUniqueAnyDefCom_D1_LK4(array)
result(uniqueAny)
1960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1961 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_LK4
1964 logical(LKG) ,
intent(in),
contiguous :: array(:)
1965 logical(LK) :: uniqueAny
1970 PURE module function isUniqueAnyDefCom_D1_LK3(array)
result(uniqueAny)
1971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1972 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_LK3
1975 logical(LKG) ,
intent(in),
contiguous :: array(:)
1976 logical(LK) :: uniqueAny
1981 PURE module function isUniqueAnyDefCom_D1_LK2(array)
result(uniqueAny)
1982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1983 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_LK2
1986 logical(LKG) ,
intent(in),
contiguous :: array(:)
1987 logical(LK) :: uniqueAny
1992 PURE module function isUniqueAnyDefCom_D1_LK1(array)
result(uniqueAny)
1993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1994 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_LK1
1997 logical(LKG) ,
intent(in),
contiguous :: array(:)
1998 logical(LK) :: uniqueAny
2005 PURE module function isUniqueAnyDefCom_D1_CK5(array)
result(uniqueAny)
2006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2007 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_CK5
2010 complex(CKG) ,
intent(in),
contiguous :: array(:)
2011 logical(LK) :: uniqueAny
2016 PURE module function isUniqueAnyDefCom_D1_CK4(array)
result(uniqueAny)
2017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2018 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_CK4
2021 complex(CKG) ,
intent(in),
contiguous :: array(:)
2022 logical(LK) :: uniqueAny
2027 PURE module function isUniqueAnyDefCom_D1_CK3(array)
result(uniqueAny)
2028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2029 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_CK3
2032 complex(CKG) ,
intent(in),
contiguous :: array(:)
2033 logical(LK) :: uniqueAny
2038 PURE module function isUniqueAnyDefCom_D1_CK2(array)
result(uniqueAny)
2039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2040 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_CK2
2043 complex(CKG) ,
intent(in),
contiguous :: array(:)
2044 logical(LK) :: uniqueAny
2049 PURE module function isUniqueAnyDefCom_D1_CK1(array)
result(uniqueAny)
2050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2051 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_CK1
2054 complex(CKG) ,
intent(in),
contiguous :: array(:)
2055 logical(LK) :: uniqueAny
2062 PURE module function isUniqueAnyDefCom_D1_RK5(array)
result(uniqueAny)
2063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2064 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_RK5
2067 real(RKG) ,
intent(in),
contiguous :: array(:)
2068 logical(LK) :: uniqueAny
2073 PURE module function isUniqueAnyDefCom_D1_RK4(array)
result(uniqueAny)
2074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2075 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_RK4
2078 real(RKG) ,
intent(in),
contiguous :: array(:)
2079 logical(LK) :: uniqueAny
2084 PURE module function isUniqueAnyDefCom_D1_RK3(array)
result(uniqueAny)
2085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2086 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_RK3
2089 real(RKG) ,
intent(in),
contiguous :: array(:)
2090 logical(LK) :: uniqueAny
2095 PURE module function isUniqueAnyDefCom_D1_RK2(array)
result(uniqueAny)
2096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2097 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_RK2
2100 real(RKG) ,
intent(in),
contiguous :: array(:)
2101 logical(LK) :: uniqueAny
2106 PURE module function isUniqueAnyDefCom_D1_RK1(array)
result(uniqueAny)
2107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2108 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyDefCom_D1_RK1
2111 real(RKG) ,
intent(in),
contiguous :: array(:)
2112 logical(LK) :: uniqueAny
2121 module function isUniqueAnyCusCom_D0_SK5(array, iseq)
result(uniqueAny)
2122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2123 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D0_SK5
2126 character(
*,SKG) ,
intent(in) :: array
2127 procedure(
logical(LK)) :: iseq
2128 logical(LK) :: uniqueAny
2133 module function isUniqueAnyCusCom_D0_SK4(array, iseq)
result(uniqueAny)
2134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2135 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D0_SK4
2138 character(
*,SKG) ,
intent(in) :: array
2139 procedure(
logical(LK)) :: iseq
2140 logical(LK) :: uniqueAny
2145 module function isUniqueAnyCusCom_D0_SK3(array, iseq)
result(uniqueAny)
2146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2147 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D0_SK3
2150 character(
*,SKG) ,
intent(in) :: array
2151 procedure(
logical(LK)) :: iseq
2152 logical(LK) :: uniqueAny
2157 module function isUniqueAnyCusCom_D0_SK2(array, iseq)
result(uniqueAny)
2158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2159 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D0_SK2
2162 character(
*,SKG) ,
intent(in) :: array
2163 procedure(
logical(LK)) :: iseq
2164 logical(LK) :: uniqueAny
2169 module function isUniqueAnyCusCom_D0_SK1(array, iseq)
result(uniqueAny)
2170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2171 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D0_SK1
2174 character(
*,SKG) ,
intent(in) :: array
2175 procedure(
logical(LK)) :: iseq
2176 logical(LK) :: uniqueAny
2183 module function isUniqueAnyCusCom_D1_SK5(array, iseq)
result(uniqueAny)
2184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2185 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_SK5
2188 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2189 procedure(
logical(LK)) :: iseq
2190 logical(LK) :: uniqueAny
2195 module function isUniqueAnyCusCom_D1_SK4(array, iseq)
result(uniqueAny)
2196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2197 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_SK4
2200 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2201 procedure(
logical(LK)) :: iseq
2202 logical(LK) :: uniqueAny
2207 module function isUniqueAnyCusCom_D1_SK3(array, iseq)
result(uniqueAny)
2208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2209 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_SK3
2212 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2213 procedure(
logical(LK)) :: iseq
2214 logical(LK) :: uniqueAny
2219 module function isUniqueAnyCusCom_D1_SK2(array, iseq)
result(uniqueAny)
2220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2221 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_SK2
2224 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2225 procedure(
logical(LK)) :: iseq
2226 logical(LK) :: uniqueAny
2231 module function isUniqueAnyCusCom_D1_SK1(array, iseq)
result(uniqueAny)
2232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2233 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_SK1
2236 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2237 procedure(
logical(LK)) :: iseq
2238 logical(LK) :: uniqueAny
2245 module function isUniqueAnyCusCom_D1_IK5(array, iseq)
result(uniqueAny)
2246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2247 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_IK5
2250 integer(IKG) ,
intent(in),
contiguous :: array(:)
2251 procedure(
logical(LK)) :: iseq
2252 logical(LK) :: uniqueAny
2257 module function isUniqueAnyCusCom_D1_IK4(array, iseq)
result(uniqueAny)
2258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2259 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_IK4
2262 integer(IKG) ,
intent(in),
contiguous :: array(:)
2263 procedure(
logical(LK)) :: iseq
2264 logical(LK) :: uniqueAny
2269 module function isUniqueAnyCusCom_D1_IK3(array, iseq)
result(uniqueAny)
2270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2271 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_IK3
2274 integer(IKG) ,
intent(in),
contiguous :: array(:)
2275 procedure(
logical(LK)) :: iseq
2276 logical(LK) :: uniqueAny
2281 module function isUniqueAnyCusCom_D1_IK2(array, iseq)
result(uniqueAny)
2282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2283 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_IK2
2286 integer(IKG) ,
intent(in),
contiguous :: array(:)
2287 procedure(
logical(LK)) :: iseq
2288 logical(LK) :: uniqueAny
2293 module function isUniqueAnyCusCom_D1_IK1(array, iseq)
result(uniqueAny)
2294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2295 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_IK1
2298 integer(IKG) ,
intent(in),
contiguous :: array(:)
2299 procedure(
logical(LK)) :: iseq
2300 logical(LK) :: uniqueAny
2307 module function isUniqueAnyCusCom_D1_LK5(array, iseq)
result(uniqueAny)
2308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2309 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_LK5
2312 logical(LKG) ,
intent(in),
contiguous :: array(:)
2313 procedure(
logical(LK)) :: iseq
2314 logical(LK) :: uniqueAny
2319 module function isUniqueAnyCusCom_D1_LK4(array, iseq)
result(uniqueAny)
2320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2321 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_LK4
2324 logical(LKG) ,
intent(in),
contiguous :: array(:)
2325 procedure(
logical(LK)) :: iseq
2326 logical(LK) :: uniqueAny
2331 module function isUniqueAnyCusCom_D1_LK3(array, iseq)
result(uniqueAny)
2332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2333 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_LK3
2336 logical(LKG) ,
intent(in),
contiguous :: array(:)
2337 procedure(
logical(LK)) :: iseq
2338 logical(LK) :: uniqueAny
2343 module function isUniqueAnyCusCom_D1_LK2(array, iseq)
result(uniqueAny)
2344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2345 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_LK2
2348 logical(LKG) ,
intent(in),
contiguous :: array(:)
2349 procedure(
logical(LK)) :: iseq
2350 logical(LK) :: uniqueAny
2355 module function isUniqueAnyCusCom_D1_LK1(array, iseq)
result(uniqueAny)
2356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2357 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_LK1
2360 logical(LKG) ,
intent(in),
contiguous :: array(:)
2361 procedure(
logical(LK)) :: iseq
2362 logical(LK) :: uniqueAny
2369 module function isUniqueAnyCusCom_D1_CK5(array, iseq)
result(uniqueAny)
2370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2371 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_CK5
2374 complex(CKG) ,
intent(in),
contiguous :: array(:)
2375 procedure(
logical(LK)) :: iseq
2376 logical(LK) :: uniqueAny
2381 module function isUniqueAnyCusCom_D1_CK4(array, iseq)
result(uniqueAny)
2382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2383 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_CK4
2386 complex(CKG) ,
intent(in),
contiguous :: array(:)
2387 procedure(
logical(LK)) :: iseq
2388 logical(LK) :: uniqueAny
2393 module function isUniqueAnyCusCom_D1_CK3(array, iseq)
result(uniqueAny)
2394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2395 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_CK3
2398 complex(CKG) ,
intent(in),
contiguous :: array(:)
2399 procedure(
logical(LK)) :: iseq
2400 logical(LK) :: uniqueAny
2405 module function isUniqueAnyCusCom_D1_CK2(array, iseq)
result(uniqueAny)
2406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2407 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_CK2
2410 complex(CKG) ,
intent(in),
contiguous :: array(:)
2411 procedure(
logical(LK)) :: iseq
2412 logical(LK) :: uniqueAny
2417 module function isUniqueAnyCusCom_D1_CK1(array, iseq)
result(uniqueAny)
2418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2419 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_CK1
2422 complex(CKG) ,
intent(in),
contiguous :: array(:)
2423 procedure(
logical(LK)) :: iseq
2424 logical(LK) :: uniqueAny
2431 module function isUniqueAnyCusCom_D1_RK5(array, iseq)
result(uniqueAny)
2432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2433 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_RK5
2436 real(RKG) ,
intent(in),
contiguous :: array(:)
2437 procedure(
logical(LK)) :: iseq
2438 logical(LK) :: uniqueAny
2443 module function isUniqueAnyCusCom_D1_RK4(array, iseq)
result(uniqueAny)
2444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2445 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_RK4
2448 real(RKG) ,
intent(in),
contiguous :: array(:)
2449 procedure(
logical(LK)) :: iseq
2450 logical(LK) :: uniqueAny
2455 module function isUniqueAnyCusCom_D1_RK3(array, iseq)
result(uniqueAny)
2456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2457 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_RK3
2460 real(RKG) ,
intent(in),
contiguous :: array(:)
2461 procedure(
logical(LK)) :: iseq
2462 logical(LK) :: uniqueAny
2467 module function isUniqueAnyCusCom_D1_RK2(array, iseq)
result(uniqueAny)
2468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2469 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_RK2
2472 real(RKG) ,
intent(in),
contiguous :: array(:)
2473 procedure(
logical(LK)) :: iseq
2474 logical(LK) :: uniqueAny
2479 module function isUniqueAnyCusCom_D1_RK1(array, iseq)
result(uniqueAny)
2480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2481 !DEC$ ATTRIBUTES DLLEXPORT :: isUniqueAnyCusCom_D1_RK1
2484 real(RKG) ,
intent(in),
contiguous :: array(:)
2485 procedure(
logical(LK)) :: iseq
2486 logical(LK) :: uniqueAny
2689 PURE module function getUniArbDefCom_D0_SK5(array)
result(unique)
2690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2691 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D0_SK5
2694 character(
*,SKG) ,
intent(in) :: array
2695 character(:,SKG) ,
allocatable :: unique
2700 PURE module function getUniArbDefCom_D0_SK4(array)
result(unique)
2701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2702 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D0_SK4
2705 character(
*,SKG) ,
intent(in) :: array
2706 character(:,SKG) ,
allocatable :: unique
2711 PURE module function getUniArbDefCom_D0_SK3(array)
result(unique)
2712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2713 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D0_SK3
2716 character(
*,SKG) ,
intent(in) :: array
2717 character(:,SKG) ,
allocatable :: unique
2722 PURE module function getUniArbDefCom_D0_SK2(array)
result(unique)
2723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2724 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D0_SK2
2727 character(
*,SKG) ,
intent(in) :: array
2728 character(:,SKG) ,
allocatable :: unique
2733 PURE module function getUniArbDefCom_D0_SK1(array)
result(unique)
2734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2735 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D0_SK1
2738 character(
*,SKG) ,
intent(in) :: array
2739 character(:,SKG) ,
allocatable :: unique
2746 PURE module function getUniArbDefCom_D1_SK5(array)
result(unique)
2747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2748 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_SK5
2751 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2752 character(LEN_ARRAY,SKG) ,
allocatable :: unique(:)
2757 PURE module function getUniArbDefCom_D1_SK4(array)
result(unique)
2758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2759 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_SK4
2762 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2763 character(LEN_ARRAY,SKG) ,
allocatable :: unique(:)
2768 PURE module function getUniArbDefCom_D1_SK3(array)
result(unique)
2769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2770 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_SK3
2773 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2774 character(LEN_ARRAY,SKG) ,
allocatable :: unique(:)
2779 PURE module function getUniArbDefCom_D1_SK2(array)
result(unique)
2780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2781 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_SK2
2784 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2785 character(LEN_ARRAY,SKG) ,
allocatable :: unique(:)
2790 PURE module function getUniArbDefCom_D1_SK1(array)
result(unique)
2791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2792 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_SK1
2795 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2796 character(LEN_ARRAY,SKG) ,
allocatable :: unique(:)
2803 PURE module function getUniArbDefCom_D1_IK5(array)
result(unique)
2804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2805 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_IK5
2808 integer(IKG) ,
intent(in),
contiguous :: array(:)
2809 integer(IKG) ,
allocatable :: unique(:)
2814 PURE module function getUniArbDefCom_D1_IK4(array)
result(unique)
2815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2816 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_IK4
2819 integer(IKG) ,
intent(in),
contiguous :: array(:)
2820 integer(IKG) ,
allocatable :: unique(:)
2825 PURE module function getUniArbDefCom_D1_IK3(array)
result(unique)
2826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2827 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_IK3
2830 integer(IKG) ,
intent(in),
contiguous :: array(:)
2831 integer(IKG) ,
allocatable :: unique(:)
2836 PURE module function getUniArbDefCom_D1_IK2(array)
result(unique)
2837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2838 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_IK2
2841 integer(IKG) ,
intent(in),
contiguous :: array(:)
2842 integer(IKG) ,
allocatable :: unique(:)
2847 PURE module function getUniArbDefCom_D1_IK1(array)
result(unique)
2848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2849 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_IK1
2852 integer(IKG) ,
intent(in),
contiguous :: array(:)
2853 integer(IKG) ,
allocatable :: unique(:)
2860 PURE module function getUniArbDefCom_D1_LK5(array)
result(unique)
2861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2862 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_LK5
2865 logical(LKG) ,
intent(in),
contiguous :: array(:)
2866 logical(LKG) ,
allocatable :: unique(:)
2871 PURE module function getUniArbDefCom_D1_LK4(array)
result(unique)
2872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2873 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_LK4
2876 logical(LKG) ,
intent(in),
contiguous :: array(:)
2877 logical(LKG) ,
allocatable :: unique(:)
2882 PURE module function getUniArbDefCom_D1_LK3(array)
result(unique)
2883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2884 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_LK3
2887 logical(LKG) ,
intent(in),
contiguous :: array(:)
2888 logical(LKG) ,
allocatable :: unique(:)
2893 PURE module function getUniArbDefCom_D1_LK2(array)
result(unique)
2894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2895 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_LK2
2898 logical(LKG) ,
intent(in),
contiguous :: array(:)
2899 logical(LKG) ,
allocatable :: unique(:)
2904 PURE module function getUniArbDefCom_D1_LK1(array)
result(unique)
2905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2906 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_LK1
2909 logical(LKG) ,
intent(in),
contiguous :: array(:)
2910 logical(LKG) ,
allocatable :: unique(:)
2917 PURE module function getUniArbDefCom_D1_CK5(array)
result(unique)
2918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2919 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_CK5
2922 complex(CKG) ,
intent(in),
contiguous :: array(:)
2923 complex(CKG) ,
allocatable :: unique(:)
2928 PURE module function getUniArbDefCom_D1_CK4(array)
result(unique)
2929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2930 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_CK4
2933 complex(CKG) ,
intent(in),
contiguous :: array(:)
2934 complex(CKG) ,
allocatable :: unique(:)
2939 PURE module function getUniArbDefCom_D1_CK3(array)
result(unique)
2940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2941 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_CK3
2944 complex(CKG) ,
intent(in),
contiguous :: array(:)
2945 complex(CKG) ,
allocatable :: unique(:)
2950 PURE module function getUniArbDefCom_D1_CK2(array)
result(unique)
2951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2952 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_CK2
2955 complex(CKG) ,
intent(in),
contiguous :: array(:)
2956 complex(CKG) ,
allocatable :: unique(:)
2961 PURE module function getUniArbDefCom_D1_CK1(array)
result(unique)
2962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2963 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_CK1
2966 complex(CKG) ,
intent(in),
contiguous :: array(:)
2967 complex(CKG) ,
allocatable :: unique(:)
2974 PURE module function getUniArbDefCom_D1_RK5(array)
result(unique)
2975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2976 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_RK5
2979 real(RKG) ,
intent(in),
contiguous :: array(:)
2980 real(RKG) ,
allocatable :: unique(:)
2985 PURE module function getUniArbDefCom_D1_RK4(array)
result(unique)
2986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2987 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_RK4
2990 real(RKG) ,
intent(in),
contiguous :: array(:)
2991 real(RKG) ,
allocatable :: unique(:)
2996 PURE module function getUniArbDefCom_D1_RK3(array)
result(unique)
2997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2998 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_RK3
3001 real(RKG) ,
intent(in),
contiguous :: array(:)
3002 real(RKG) ,
allocatable :: unique(:)
3007 PURE module function getUniArbDefCom_D1_RK2(array)
result(unique)
3008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3009 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_RK2
3012 real(RKG) ,
intent(in),
contiguous :: array(:)
3013 real(RKG) ,
allocatable :: unique(:)
3018 PURE module function getUniArbDefCom_D1_RK1(array)
result(unique)
3019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3020 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbDefCom_D1_RK1
3023 real(RKG) ,
intent(in),
contiguous :: array(:)
3024 real(RKG) ,
allocatable :: unique(:)
3033 module function getUniArbCusCom_D0_SK5(array, iseq)
result(unique)
3034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3035 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D0_SK5
3038 character(
*,SKG) ,
intent(in) :: array
3039 procedure(
logical(LK)) :: iseq
3040 character(:,SKG) ,
allocatable :: unique
3045 module function getUniArbCusCom_D0_SK4(array, iseq)
result(unique)
3046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3047 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D0_SK4
3050 character(
*,SKG) ,
intent(in) :: array
3051 procedure(
logical(LK)) :: iseq
3052 character(:,SKG) ,
allocatable :: unique
3057 module function getUniArbCusCom_D0_SK3(array, iseq)
result(unique)
3058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3059 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D0_SK3
3062 character(
*,SKG) ,
intent(in) :: array
3063 procedure(
logical(LK)) :: iseq
3064 character(:,SKG) ,
allocatable :: unique
3069 module function getUniArbCusCom_D0_SK2(array, iseq)
result(unique)
3070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3071 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D0_SK2
3074 character(
*,SKG) ,
intent(in) :: array
3075 procedure(
logical(LK)) :: iseq
3076 character(:,SKG) ,
allocatable :: unique
3081 module function getUniArbCusCom_D0_SK1(array, iseq)
result(unique)
3082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3083 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D0_SK1
3086 character(
*,SKG) ,
intent(in) :: array
3087 procedure(
logical(LK)) :: iseq
3088 character(:,SKG) ,
allocatable :: unique
3095 module function getUniArbCusCom_D1_SK5(array, iseq)
result(unique)
3096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3097 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_SK5
3100 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3101 procedure(
logical(LK)) :: iseq
3102 character(LEN_ARRAY,SKG) ,
allocatable :: unique(:)
3107 module function getUniArbCusCom_D1_SK4(array, iseq)
result(unique)
3108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3109 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_SK4
3112 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3113 procedure(
logical(LK)) :: iseq
3114 character(LEN_ARRAY,SKG) ,
allocatable :: unique(:)
3119 module function getUniArbCusCom_D1_SK3(array, iseq)
result(unique)
3120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3121 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_SK3
3124 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3125 procedure(
logical(LK)) :: iseq
3126 character(LEN_ARRAY,SKG) ,
allocatable :: unique(:)
3131 module function getUniArbCusCom_D1_SK2(array, iseq)
result(unique)
3132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3133 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_SK2
3136 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3137 procedure(
logical(LK)) :: iseq
3138 character(LEN_ARRAY,SKG) ,
allocatable :: unique(:)
3143 module function getUniArbCusCom_D1_SK1(array, iseq)
result(unique)
3144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3145 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_SK1
3148 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3149 procedure(
logical(LK)) :: iseq
3150 character(LEN_ARRAY,SKG) ,
allocatable :: unique(:)
3157 module function getUniArbCusCom_D1_IK5(array, iseq)
result(unique)
3158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3159 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_IK5
3162 integer(IKG) ,
intent(in),
contiguous :: array(:)
3163 procedure(
logical(LK)) :: iseq
3164 integer(IKG) ,
allocatable :: unique(:)
3169 module function getUniArbCusCom_D1_IK4(array, iseq)
result(unique)
3170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3171 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_IK4
3174 integer(IKG) ,
intent(in),
contiguous :: array(:)
3175 procedure(
logical(LK)) :: iseq
3176 integer(IKG) ,
allocatable :: unique(:)
3181 module function getUniArbCusCom_D1_IK3(array, iseq)
result(unique)
3182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3183 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_IK3
3186 integer(IKG) ,
intent(in),
contiguous :: array(:)
3187 procedure(
logical(LK)) :: iseq
3188 integer(IKG) ,
allocatable :: unique(:)
3193 module function getUniArbCusCom_D1_IK2(array, iseq)
result(unique)
3194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3195 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_IK2
3198 integer(IKG) ,
intent(in),
contiguous :: array(:)
3199 procedure(
logical(LK)) :: iseq
3200 integer(IKG) ,
allocatable :: unique(:)
3205 module function getUniArbCusCom_D1_IK1(array, iseq)
result(unique)
3206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3207 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_IK1
3210 integer(IKG) ,
intent(in),
contiguous :: array(:)
3211 procedure(
logical(LK)) :: iseq
3212 integer(IKG) ,
allocatable :: unique(:)
3219 module function getUniArbCusCom_D1_LK5(array, iseq)
result(unique)
3220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3221 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_LK5
3224 logical(LKG) ,
intent(in),
contiguous :: array(:)
3225 procedure(
logical(LK)) :: iseq
3226 logical(LKG) ,
allocatable :: unique(:)
3231 module function getUniArbCusCom_D1_LK4(array, iseq)
result(unique)
3232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3233 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_LK4
3236 logical(LKG) ,
intent(in),
contiguous :: array(:)
3237 procedure(
logical(LK)) :: iseq
3238 logical(LKG) ,
allocatable :: unique(:)
3243 module function getUniArbCusCom_D1_LK3(array, iseq)
result(unique)
3244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3245 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_LK3
3248 logical(LKG) ,
intent(in),
contiguous :: array(:)
3249 procedure(
logical(LK)) :: iseq
3250 logical(LKG) ,
allocatable :: unique(:)
3255 module function getUniArbCusCom_D1_LK2(array, iseq)
result(unique)
3256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3257 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_LK2
3260 logical(LKG) ,
intent(in),
contiguous :: array(:)
3261 procedure(
logical(LK)) :: iseq
3262 logical(LKG) ,
allocatable :: unique(:)
3267 module function getUniArbCusCom_D1_LK1(array, iseq)
result(unique)
3268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3269 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_LK1
3272 logical(LKG) ,
intent(in),
contiguous :: array(:)
3273 procedure(
logical(LK)) :: iseq
3274 logical(LKG) ,
allocatable :: unique(:)
3281 module function getUniArbCusCom_D1_CK5(array, iseq)
result(unique)
3282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3283 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_CK5
3286 complex(CKG) ,
intent(in),
contiguous :: array(:)
3287 procedure(
logical(LK)) :: iseq
3288 complex(CKG) ,
allocatable :: unique(:)
3293 module function getUniArbCusCom_D1_CK4(array, iseq)
result(unique)
3294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3295 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_CK4
3298 complex(CKG) ,
intent(in),
contiguous :: array(:)
3299 procedure(
logical(LK)) :: iseq
3300 complex(CKG) ,
allocatable :: unique(:)
3305 module function getUniArbCusCom_D1_CK3(array, iseq)
result(unique)
3306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3307 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_CK3
3310 complex(CKG) ,
intent(in),
contiguous :: array(:)
3311 procedure(
logical(LK)) :: iseq
3312 complex(CKG) ,
allocatable :: unique(:)
3317 module function getUniArbCusCom_D1_CK2(array, iseq)
result(unique)
3318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3319 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_CK2
3322 complex(CKG) ,
intent(in),
contiguous :: array(:)
3323 procedure(
logical(LK)) :: iseq
3324 complex(CKG) ,
allocatable :: unique(:)
3329 module function getUniArbCusCom_D1_CK1(array, iseq)
result(unique)
3330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3331 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_CK1
3334 complex(CKG) ,
intent(in),
contiguous :: array(:)
3335 procedure(
logical(LK)) :: iseq
3336 complex(CKG) ,
allocatable :: unique(:)
3343 module function getUniArbCusCom_D1_RK5(array, iseq)
result(unique)
3344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3345 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_RK5
3348 real(RKG) ,
intent(in),
contiguous :: array(:)
3349 procedure(
logical(LK)) :: iseq
3350 real(RKG) ,
allocatable :: unique(:)
3355 module function getUniArbCusCom_D1_RK4(array, iseq)
result(unique)
3356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3357 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_RK4
3360 real(RKG) ,
intent(in),
contiguous :: array(:)
3361 procedure(
logical(LK)) :: iseq
3362 real(RKG) ,
allocatable :: unique(:)
3367 module function getUniArbCusCom_D1_RK3(array, iseq)
result(unique)
3368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3369 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_RK3
3372 real(RKG) ,
intent(in),
contiguous :: array(:)
3373 procedure(
logical(LK)) :: iseq
3374 real(RKG) ,
allocatable :: unique(:)
3379 module function getUniArbCusCom_D1_RK2(array, iseq)
result(unique)
3380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3381 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_RK2
3384 real(RKG) ,
intent(in),
contiguous :: array(:)
3385 procedure(
logical(LK)) :: iseq
3386 real(RKG) ,
allocatable :: unique(:)
3391 module function getUniArbCusCom_D1_RK1(array, iseq)
result(unique)
3392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3393 !DEC$ ATTRIBUTES DLLEXPORT :: getUniArbCusCom_D1_RK1
3396 real(RKG) ,
intent(in),
contiguous :: array(:)
3397 procedure(
logical(LK)) :: iseq
3398 real(RKG) ,
allocatable :: unique(:)
3562 PURE module subroutine setUniArbDefCom_D0_SK5(array, unique, count, index, order)
3563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3564 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D0_SK5
3567 character(
*,SKG) ,
intent(in) :: array
3568 character(:,SKG) ,
intent(out) ,
allocatable :: unique
3569 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3570 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3571 integer(IK) ,
intent(in) ,
optional :: order
3576 PURE module subroutine setUniArbDefCom_D0_SK4(array, unique, count, index, order)
3577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3578 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D0_SK4
3581 character(
*,SKG) ,
intent(in) :: array
3582 character(:,SKG) ,
intent(out) ,
allocatable :: unique
3583 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3584 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3585 integer(IK) ,
intent(in) ,
optional :: order
3590 PURE module subroutine setUniArbDefCom_D0_SK3(array, unique, count, index, order)
3591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3592 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D0_SK3
3595 character(
*,SKG) ,
intent(in) :: array
3596 character(:,SKG) ,
intent(out) ,
allocatable :: unique
3597 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3598 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3599 integer(IK) ,
intent(in) ,
optional :: order
3604 PURE module subroutine setUniArbDefCom_D0_SK2(array, unique, count, index, order)
3605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3606 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D0_SK2
3609 character(
*,SKG) ,
intent(in) :: array
3610 character(:,SKG) ,
intent(out) ,
allocatable :: unique
3611 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3612 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3613 integer(IK) ,
intent(in) ,
optional :: order
3618 PURE module subroutine setUniArbDefCom_D0_SK1(array, unique, count, index, order)
3619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3620 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D0_SK1
3623 character(
*,SKG) ,
intent(in) :: array
3624 character(:,SKG) ,
intent(out) ,
allocatable :: unique
3625 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3626 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3627 integer(IK) ,
intent(in) ,
optional :: order
3634 PURE module subroutine setUniArbDefCom_D1_SK5(array, unique, count, index, order)
3635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3636 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_SK5
3639 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3640 character(
*,SKG) ,
intent(out) ,
allocatable :: unique(:)
3641 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3642 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3643 integer(IK) ,
intent(in) ,
optional :: order
3648 PURE module subroutine setUniArbDefCom_D1_SK4(array, unique, count, index, order)
3649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3650 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_SK4
3653 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3654 character(
*,SKG) ,
intent(out) ,
allocatable :: unique(:)
3655 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3656 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3657 integer(IK) ,
intent(in) ,
optional :: order
3662 PURE module subroutine setUniArbDefCom_D1_SK3(array, unique, count, index, order)
3663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3664 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_SK3
3667 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3668 character(
*,SKG) ,
intent(out) ,
allocatable :: unique(:)
3669 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3670 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3671 integer(IK) ,
intent(in) ,
optional :: order
3676 PURE module subroutine setUniArbDefCom_D1_SK2(array, unique, count, index, order)
3677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3678 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_SK2
3681 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3682 character(
*,SKG) ,
intent(out) ,
allocatable :: unique(:)
3683 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3684 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3685 integer(IK) ,
intent(in) ,
optional :: order
3690 PURE module subroutine setUniArbDefCom_D1_SK1(array, unique, count, index, order)
3691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3692 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_SK1
3695 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3696 character(
*,SKG) ,
intent(out) ,
allocatable :: unique(:)
3697 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3698 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3699 integer(IK) ,
intent(in) ,
optional :: order
3706 PURE module subroutine setUniArbDefCom_D1_IK5(array, unique, count, index, order)
3707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3708 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_IK5
3711 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3712 integer(IKG) ,
intent(out) ,
allocatable :: unique(:)
3713 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3714 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3715 integer(IK) ,
intent(in) ,
optional :: order
3720 PURE module subroutine setUniArbDefCom_D1_IK4(array, unique, count, index, order)
3721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3722 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_IK4
3725 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3726 integer(IKG) ,
intent(out) ,
allocatable :: unique(:)
3727 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3728 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3729 integer(IK) ,
intent(in) ,
optional :: order
3734 PURE module subroutine setUniArbDefCom_D1_IK3(array, unique, count, index, order)
3735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3736 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_IK3
3739 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3740 integer(IKG) ,
intent(out) ,
allocatable :: unique(:)
3741 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3742 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3743 integer(IK) ,
intent(in) ,
optional :: order
3749 PURE module subroutine setUniArbDefCom_D1_IK2(array, unique, count, index, order)
3750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3751 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_IK2
3754 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3755 integer(IKG) ,
intent(out) ,
allocatable :: unique(:)
3756 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3757 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3758 integer(IK) ,
intent(in) ,
optional :: order
3763 PURE module subroutine setUniArbDefCom_D1_IK1(array, unique, count, index, order)
3764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3765 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_IK1
3768 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3769 integer(IKG) ,
intent(out) ,
allocatable :: unique(:)
3770 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3771 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3772 integer(IK) ,
intent(in) ,
optional :: order
3779 PURE module subroutine setUniArbDefCom_D1_LK5(array, unique, count, index, order)
3780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3781 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_LK5
3784 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3785 logical(LKG) ,
intent(out) ,
allocatable :: unique(:)
3786 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3787 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3788 integer(IK) ,
intent(in) ,
optional :: order
3793 PURE module subroutine setUniArbDefCom_D1_LK4(array, unique, count, index, order)
3794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3795 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_LK4
3798 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3799 logical(LKG) ,
intent(out) ,
allocatable :: unique(:)
3800 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3801 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3802 integer(IK) ,
intent(in) ,
optional :: order
3807 PURE module subroutine setUniArbDefCom_D1_LK3(array, unique, count, index, order)
3808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3809 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_LK3
3812 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3813 logical(LKG) ,
intent(out) ,
allocatable :: unique(:)
3814 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3815 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3816 integer(IK) ,
intent(in) ,
optional :: order
3821 PURE module subroutine setUniArbDefCom_D1_LK2(array, unique, count, index, order)
3822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3823 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_LK2
3826 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3827 logical(LKG) ,
intent(out) ,
allocatable :: unique(:)
3828 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3829 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3830 integer(IK) ,
intent(in) ,
optional :: order
3835 PURE module subroutine setUniArbDefCom_D1_LK1(array, unique, count, index, order)
3836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3837 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_LK1
3840 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3841 logical(LKG) ,
intent(out) ,
allocatable :: unique(:)
3842 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3843 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3844 integer(IK) ,
intent(in) ,
optional :: order
3851 PURE module subroutine setUniArbDefCom_D1_CK5(array, unique, count, index, order)
3852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3853 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_CK5
3856 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3857 complex(CKG) ,
intent(out) ,
allocatable :: unique(:)
3858 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3859 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3860 integer(IK) ,
intent(in) ,
optional :: order
3865 PURE module subroutine setUniArbDefCom_D1_CK4(array, unique, count, index, order)
3866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3867 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_CK4
3870 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3871 complex(CKG) ,
intent(out) ,
allocatable :: unique(:)
3872 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3873 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3874 integer(IK) ,
intent(in) ,
optional :: order
3879 PURE module subroutine setUniArbDefCom_D1_CK3(array, unique, count, index, order)
3880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3881 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_CK3
3884 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3885 complex(CKG) ,
intent(out) ,
allocatable :: unique(:)
3886 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3887 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3888 integer(IK) ,
intent(in) ,
optional :: order
3893 PURE module subroutine setUniArbDefCom_D1_CK2(array, unique, count, index, order)
3894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3895 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_CK2
3898 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3899 complex(CKG) ,
intent(out) ,
allocatable :: unique(:)
3900 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3901 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3902 integer(IK) ,
intent(in) ,
optional :: order
3907 PURE module subroutine setUniArbDefCom_D1_CK1(array, unique, count, index, order)
3908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3909 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_CK1
3912 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3913 complex(CKG) ,
intent(out) ,
allocatable :: unique(:)
3914 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3915 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3916 integer(IK) ,
intent(in) ,
optional :: order
3923 PURE module subroutine setUniArbDefCom_D1_RK5(array, unique, count, index, order)
3924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3925 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_RK5
3928 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3929 real(RKG) ,
intent(out) ,
allocatable :: unique(:)
3930 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3931 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3932 integer(IK) ,
intent(in) ,
optional :: order
3937 PURE module subroutine setUniArbDefCom_D1_RK4(array, unique, count, index, order)
3938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3939 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_RK4
3942 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3943 real(RKG) ,
intent(out) ,
allocatable :: unique(:)
3944 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3945 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3946 integer(IK) ,
intent(in) ,
optional :: order
3951 PURE module subroutine setUniArbDefCom_D1_RK3(array, unique, count, index, order)
3952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3953 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_RK3
3956 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3957 real(RKG) ,
intent(out) ,
allocatable :: unique(:)
3958 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3959 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3960 integer(IK) ,
intent(in) ,
optional :: order
3965 PURE module subroutine setUniArbDefCom_D1_RK2(array, unique, count, index, order)
3966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3967 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_RK2
3970 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3971 real(RKG) ,
intent(out) ,
allocatable :: unique(:)
3972 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3973 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3974 integer(IK) ,
intent(in) ,
optional :: order
3979 PURE module subroutine setUniArbDefCom_D1_RK1(array, unique, count, index, order)
3980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3981 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbDefCom_D1_RK1
3984 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3985 real(RKG) ,
intent(out) ,
allocatable :: unique(:)
3986 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
3987 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
3988 integer(IK) ,
intent(in) ,
optional :: order
4001 module subroutine setUniArbCusCom_D0_SK5(array, unique, count, iseq, index, order)
4002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4003 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D0_SK5
4006 character(
*,SKG) ,
intent(in) :: array
4007 character(:,SKG) ,
intent(out) ,
allocatable :: unique
4008 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4009 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4010 integer(IK) ,
intent(in) ,
optional :: order
4011 procedure(
logical(LK)) :: iseq
4016 module subroutine setUniArbCusCom_D0_SK4(array, unique, count, iseq, index, order)
4017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4018 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D0_SK4
4021 character(
*,SKG) ,
intent(in) :: array
4022 character(:,SKG) ,
intent(out) ,
allocatable :: unique
4023 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4024 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4025 integer(IK) ,
intent(in) ,
optional :: order
4026 procedure(
logical(LK)) :: iseq
4031 module subroutine setUniArbCusCom_D0_SK3(array, unique, count, iseq, index, order)
4032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4033 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D0_SK3
4036 character(
*,SKG) ,
intent(in) :: array
4037 character(:,SKG) ,
intent(out) ,
allocatable :: unique
4038 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4039 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4040 integer(IK) ,
intent(in) ,
optional :: order
4041 procedure(
logical(LK)) :: iseq
4046 module subroutine setUniArbCusCom_D0_SK2(array, unique, count, iseq, index, order)
4047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4048 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D0_SK2
4051 character(
*,SKG) ,
intent(in) :: array
4052 character(:,SKG) ,
intent(out) ,
allocatable :: unique
4053 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4054 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4055 integer(IK) ,
intent(in) ,
optional :: order
4056 procedure(
logical(LK)) :: iseq
4061 module subroutine setUniArbCusCom_D0_SK1(array, unique, count, iseq, index, order)
4062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4063 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D0_SK1
4066 character(
*,SKG) ,
intent(in) :: array
4067 character(:,SKG) ,
intent(out) ,
allocatable :: unique
4068 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4069 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4070 integer(IK) ,
intent(in) ,
optional :: order
4071 procedure(
logical(LK)) :: iseq
4078 module subroutine setUniArbCusCom_D1_SK5(array, unique, count, iseq, index, order)
4079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4080 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_SK5
4083 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4084 character(
*,SKG) ,
intent(out) ,
allocatable :: unique(:)
4085 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4086 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4087 integer(IK) ,
intent(in) ,
optional :: order
4088 procedure(
logical(LK)) :: iseq
4093 module subroutine setUniArbCusCom_D1_SK4(array, unique, count, iseq, index, order)
4094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4095 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_SK4
4098 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4099 character(
*,SKG) ,
intent(out) ,
allocatable :: unique(:)
4100 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4101 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4102 integer(IK) ,
intent(in) ,
optional :: order
4103 procedure(
logical(LK)) :: iseq
4108 module subroutine setUniArbCusCom_D1_SK3(array, unique, count, iseq, index, order)
4109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4110 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_SK3
4113 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4114 character(
*,SKG) ,
intent(out) ,
allocatable :: unique(:)
4115 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4116 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4117 integer(IK) ,
intent(in) ,
optional :: order
4118 procedure(
logical(LK)) :: iseq
4123 module subroutine setUniArbCusCom_D1_SK2(array, unique, count, iseq, index, order)
4124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4125 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_SK2
4128 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4129 character(
*,SKG) ,
intent(out) ,
allocatable :: unique(:)
4130 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4131 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4132 integer(IK) ,
intent(in) ,
optional :: order
4133 procedure(
logical(LK)) :: iseq
4138 module subroutine setUniArbCusCom_D1_SK1(array, unique, count, iseq, index, order)
4139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4140 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_SK1
4143 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4144 character(
*,SKG) ,
intent(out) ,
allocatable :: unique(:)
4145 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4146 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4147 integer(IK) ,
intent(in) ,
optional :: order
4148 procedure(
logical(LK)) :: iseq
4155 module subroutine setUniArbCusCom_D1_IK5(array, unique, count, iseq, index, order)
4156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4157 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_IK5
4160 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4161 integer(IKG) ,
intent(out) ,
allocatable :: unique(:)
4162 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4163 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4164 integer(IK) ,
intent(in) ,
optional :: order
4165 procedure(
logical(LK)) :: iseq
4170 module subroutine setUniArbCusCom_D1_IK4(array, unique, count, iseq, index, order)
4171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4172 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_IK4
4175 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4176 integer(IKG) ,
intent(out) ,
allocatable :: unique(:)
4177 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4178 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4179 integer(IK) ,
intent(in) ,
optional :: order
4180 procedure(
logical(LK)) :: iseq
4185 module subroutine setUniArbCusCom_D1_IK3(array, unique, count, iseq, index, order)
4186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4187 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_IK3
4190 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4191 integer(IKG) ,
intent(out) ,
allocatable :: unique(:)
4192 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4193 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4194 integer(IK) ,
intent(in) ,
optional :: order
4195 procedure(
logical(LK)) :: iseq
4201 module subroutine setUniArbCusCom_D1_IK2(array, unique, count, iseq, index, order)
4202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4203 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_IK2
4206 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4207 integer(IKG) ,
intent(out) ,
allocatable :: unique(:)
4208 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4209 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4210 integer(IK) ,
intent(in) ,
optional :: order
4211 procedure(
logical(LK)) :: iseq
4216 module subroutine setUniArbCusCom_D1_IK1(array, unique, count, iseq, index, order)
4217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4218 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_IK1
4221 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4222 integer(IKG) ,
intent(out) ,
allocatable :: unique(:)
4223 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4224 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4225 integer(IK) ,
intent(in) ,
optional :: order
4226 procedure(
logical(LK)) :: iseq
4233 module subroutine setUniArbCusCom_D1_LK5(array, unique, count, iseq, index, order)
4234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4235 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_LK5
4238 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4239 logical(LKG) ,
intent(out) ,
allocatable :: unique(:)
4240 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4241 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4242 integer(IK) ,
intent(in) ,
optional :: order
4243 procedure(
logical(LK)) :: iseq
4248 module subroutine setUniArbCusCom_D1_LK4(array, unique, count, iseq, index, order)
4249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4250 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_LK4
4253 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4254 logical(LKG) ,
intent(out) ,
allocatable :: unique(:)
4255 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4256 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4257 integer(IK) ,
intent(in) ,
optional :: order
4258 procedure(
logical(LK)) :: iseq
4263 module subroutine setUniArbCusCom_D1_LK3(array, unique, count, iseq, index, order)
4264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4265 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_LK3
4268 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4269 logical(LKG) ,
intent(out) ,
allocatable :: unique(:)
4270 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4271 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4272 integer(IK) ,
intent(in) ,
optional :: order
4273 procedure(
logical(LK)) :: iseq
4278 module subroutine setUniArbCusCom_D1_LK2(array, unique, count, iseq, index, order)
4279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4280 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_LK2
4283 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4284 logical(LKG) ,
intent(out) ,
allocatable :: unique(:)
4285 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4286 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4287 integer(IK) ,
intent(in) ,
optional :: order
4288 procedure(
logical(LK)) :: iseq
4293 module subroutine setUniArbCusCom_D1_LK1(array, unique, count, iseq, index, order)
4294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4295 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_LK1
4298 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4299 logical(LKG) ,
intent(out) ,
allocatable :: unique(:)
4300 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4301 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4302 integer(IK) ,
intent(in) ,
optional :: order
4303 procedure(
logical(LK)) :: iseq
4310 module subroutine setUniArbCusCom_D1_CK5(array, unique, count, iseq, index, order)
4311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4312 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_CK5
4315 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4316 complex(CKG) ,
intent(out) ,
allocatable :: unique(:)
4317 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4318 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4319 integer(IK) ,
intent(in) ,
optional :: order
4320 procedure(
logical(LK)) :: iseq
4325 module subroutine setUniArbCusCom_D1_CK4(array, unique, count, iseq, index, order)
4326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4327 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_CK4
4330 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4331 complex(CKG) ,
intent(out) ,
allocatable :: unique(:)
4332 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4333 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4334 integer(IK) ,
intent(in) ,
optional :: order
4335 procedure(
logical(LK)) :: iseq
4340 module subroutine setUniArbCusCom_D1_CK3(array, unique, count, iseq, index, order)
4341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4342 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_CK3
4345 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4346 complex(CKG) ,
intent(out) ,
allocatable :: unique(:)
4347 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4348 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4349 integer(IK) ,
intent(in) ,
optional :: order
4350 procedure(
logical(LK)) :: iseq
4355 module subroutine setUniArbCusCom_D1_CK2(array, unique, count, iseq, index, order)
4356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4357 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_CK2
4360 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4361 complex(CKG) ,
intent(out) ,
allocatable :: unique(:)
4362 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4363 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4364 integer(IK) ,
intent(in) ,
optional :: order
4365 procedure(
logical(LK)) :: iseq
4370 module subroutine setUniArbCusCom_D1_CK1(array, unique, count, iseq, index, order)
4371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4372 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_CK1
4375 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4376 complex(CKG) ,
intent(out) ,
allocatable :: unique(:)
4377 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4378 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4379 integer(IK) ,
intent(in) ,
optional :: order
4380 procedure(
logical(LK)) :: iseq
4387 module subroutine setUniArbCusCom_D1_RK5(array, unique, count, iseq, index, order)
4388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4389 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_RK5
4392 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4393 real(RKG) ,
intent(out) ,
allocatable :: unique(:)
4394 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4395 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4396 integer(IK) ,
intent(in) ,
optional :: order
4397 procedure(
logical(LK)) :: iseq
4402 module subroutine setUniArbCusCom_D1_RK4(array, unique, count, iseq, index, order)
4403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4404 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_RK4
4407 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4408 real(RKG) ,
intent(out) ,
allocatable :: unique(:)
4409 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4410 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4411 integer(IK) ,
intent(in) ,
optional :: order
4412 procedure(
logical(LK)) :: iseq
4417 module subroutine setUniArbCusCom_D1_RK3(array, unique, count, iseq, index, order)
4418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4419 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_RK3
4422 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4423 real(RKG) ,
intent(out) ,
allocatable :: unique(:)
4424 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4425 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4426 integer(IK) ,
intent(in) ,
optional :: order
4427 procedure(
logical(LK)) :: iseq
4432 module subroutine setUniArbCusCom_D1_RK2(array, unique, count, iseq, index, order)
4433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4434 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_RK2
4437 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4438 real(RKG) ,
intent(out) ,
allocatable :: unique(:)
4439 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4440 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4441 integer(IK) ,
intent(in) ,
optional :: order
4442 procedure(
logical(LK)) :: iseq
4447 module subroutine setUniArbCusCom_D1_RK1(array, unique, count, iseq, index, order)
4448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4449 !DEC$ ATTRIBUTES DLLEXPORT :: setUniArbCusCom_D1_RK1
4452 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4453 real(RKG) ,
intent(out) ,
allocatable :: unique(:)
4454 integer(IK) ,
intent(out) ,
allocatable ::
count(:)
4455 type(cvi_type) ,
intent(out) ,
allocatable,
optional ::
index(:)
4456 integer(IK) ,
intent(in) ,
optional :: order
4457 procedure(
logical(LK)) :: iseq
4473 PURE module subroutine setUniFixDefCom_D0_SK5(array, unique, lenUnique, count, index, order)
4474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4475 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D0_SK5
4478 character(
*,SKG) ,
intent(in) :: array
4479 character(
*,SKG) ,
intent(out) :: unique
4480 integer(IK) ,
intent(out) :: lenUnique
4481 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4482 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4483 integer(IK) ,
intent(in) ,
optional :: order
4488 PURE module subroutine setUniFixDefCom_D0_SK4(array, unique, lenUnique, count, index, order)
4489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4490 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D0_SK4
4493 character(
*,SKG) ,
intent(in) :: array
4494 character(
*,SKG) ,
intent(out) :: unique
4495 integer(IK) ,
intent(out) :: lenUnique
4496 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4497 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4498 integer(IK) ,
intent(in) ,
optional :: order
4503 PURE module subroutine setUniFixDefCom_D0_SK3(array, unique, lenUnique, count, index, order)
4504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4505 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D0_SK3
4508 character(
*,SKG) ,
intent(in) :: array
4509 character(
*,SKG) ,
intent(out) :: unique
4510 integer(IK) ,
intent(out) :: lenUnique
4511 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4512 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4513 integer(IK) ,
intent(in) ,
optional :: order
4518 PURE module subroutine setUniFixDefCom_D0_SK2(array, unique, lenUnique, count, index, order)
4519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4520 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D0_SK2
4523 character(
*,SKG) ,
intent(in) :: array
4524 character(
*,SKG) ,
intent(out) :: unique
4525 integer(IK) ,
intent(out) :: lenUnique
4526 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4527 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4528 integer(IK) ,
intent(in) ,
optional :: order
4533 PURE module subroutine setUniFixDefCom_D0_SK1(array, unique, lenUnique, count, index, order)
4534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4535 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D0_SK1
4538 character(
*,SKG) ,
intent(in) :: array
4539 character(
*,SKG) ,
intent(out) :: unique
4540 integer(IK) ,
intent(out) :: lenUnique
4541 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4542 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4543 integer(IK) ,
intent(in) ,
optional :: order
4550 PURE module subroutine setUniFixDefCom_D1_SK5(array, unique, lenUnique, count, index, order)
4551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4552 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_SK5
4555 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4556 character(
*,SKG) ,
intent(out) ,
contiguous :: unique(:)
4557 integer(IK) ,
intent(out) :: lenUnique
4558 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4559 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4560 integer(IK) ,
intent(in) ,
optional :: order
4565 PURE module subroutine setUniFixDefCom_D1_SK4(array, unique, lenUnique, count, index, order)
4566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4567 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_SK4
4570 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4571 character(
*,SKG) ,
intent(out) ,
contiguous :: unique(:)
4572 integer(IK) ,
intent(out) :: lenUnique
4573 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4574 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4575 integer(IK) ,
intent(in) ,
optional :: order
4580 PURE module subroutine setUniFixDefCom_D1_SK3(array, unique, lenUnique, count, index, order)
4581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4582 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_SK3
4585 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4586 character(
*,SKG) ,
intent(out) ,
contiguous :: unique(:)
4587 integer(IK) ,
intent(out) :: lenUnique
4588 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4589 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4590 integer(IK) ,
intent(in) ,
optional :: order
4595 PURE module subroutine setUniFixDefCom_D1_SK2(array, unique, lenUnique, count, index, order)
4596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4597 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_SK2
4600 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4601 character(
*,SKG) ,
intent(out) ,
contiguous :: unique(:)
4602 integer(IK) ,
intent(out) :: lenUnique
4603 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4604 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4605 integer(IK) ,
intent(in) ,
optional :: order
4610 PURE module subroutine setUniFixDefCom_D1_SK1(array, unique, lenUnique, count, index, order)
4611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4612 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_SK1
4615 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4616 character(
*,SKG) ,
intent(out) ,
contiguous :: unique(:)
4617 integer(IK) ,
intent(out) :: lenUnique
4618 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4619 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4620 integer(IK) ,
intent(in) ,
optional :: order
4627 PURE module subroutine setUniFixDefCom_D1_IK5(array, unique, lenUnique, count, index, order)
4628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4629 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_IK5
4632 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4633 integer(IKG) ,
intent(out) ,
contiguous :: unique(:)
4634 integer(IK) ,
intent(out) :: lenUnique
4635 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4636 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4637 integer(IK) ,
intent(in) ,
optional :: order
4642 PURE module subroutine setUniFixDefCom_D1_IK4(array, unique, lenUnique, count, index, order)
4643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4644 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_IK4
4647 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4648 integer(IKG) ,
intent(out) ,
contiguous :: unique(:)
4649 integer(IK) ,
intent(out) :: lenUnique
4650 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4651 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4652 integer(IK) ,
intent(in) ,
optional :: order
4657 PURE module subroutine setUniFixDefCom_D1_IK3(array, unique, lenUnique, count, index, order)
4658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4659 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_IK3
4662 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4663 integer(IKG) ,
intent(out) ,
contiguous :: unique(:)
4664 integer(IK) ,
intent(out) :: lenUnique
4665 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4666 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4667 integer(IK) ,
intent(in) ,
optional :: order
4673 PURE module subroutine setUniFixDefCom_D1_IK2(array, unique, lenUnique, count, index, order)
4674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4675 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_IK2
4678 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4679 integer(IKG) ,
intent(out) ,
contiguous :: unique(:)
4680 integer(IK) ,
intent(out) :: lenUnique
4681 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4682 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4683 integer(IK) ,
intent(in) ,
optional :: order
4688 PURE module subroutine setUniFixDefCom_D1_IK1(array, unique, lenUnique, count, index, order)
4689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4690 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_IK1
4693 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4694 integer(IKG) ,
intent(out) ,
contiguous :: unique(:)
4695 integer(IK) ,
intent(out) :: lenUnique
4696 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4697 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4698 integer(IK) ,
intent(in) ,
optional :: order
4705 PURE module subroutine setUniFixDefCom_D1_LK5(array, unique, lenUnique, count, index, order)
4706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4707 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_LK5
4710 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4711 logical(LKG) ,
intent(out) ,
contiguous :: unique(:)
4712 integer(IK) ,
intent(out) :: lenUnique
4713 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4714 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4715 integer(IK) ,
intent(in) ,
optional :: order
4720 PURE module subroutine setUniFixDefCom_D1_LK4(array, unique, lenUnique, count, index, order)
4721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4722 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_LK4
4725 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4726 logical(LKG) ,
intent(out) ,
contiguous :: unique(:)
4727 integer(IK) ,
intent(out) :: lenUnique
4728 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4729 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4730 integer(IK) ,
intent(in) ,
optional :: order
4735 PURE module subroutine setUniFixDefCom_D1_LK3(array, unique, lenUnique, count, index, order)
4736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4737 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_LK3
4740 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4741 logical(LKG) ,
intent(out) ,
contiguous :: unique(:)
4742 integer(IK) ,
intent(out) :: lenUnique
4743 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4744 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4745 integer(IK) ,
intent(in) ,
optional :: order
4750 PURE module subroutine setUniFixDefCom_D1_LK2(array, unique, lenUnique, count, index, order)
4751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4752 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_LK2
4755 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4756 logical(LKG) ,
intent(out) ,
contiguous :: unique(:)
4757 integer(IK) ,
intent(out) :: lenUnique
4758 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4759 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4760 integer(IK) ,
intent(in) ,
optional :: order
4765 PURE module subroutine setUniFixDefCom_D1_LK1(array, unique, lenUnique, count, index, order)
4766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4767 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_LK1
4770 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4771 logical(LKG) ,
intent(out) ,
contiguous :: unique(:)
4772 integer(IK) ,
intent(out) :: lenUnique
4773 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4774 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4775 integer(IK) ,
intent(in) ,
optional :: order
4782 PURE module subroutine setUniFixDefCom_D1_CK5(array, unique, lenUnique, count, index, order)
4783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4784 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_CK5
4787 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4788 complex(CKG) ,
intent(out) ,
contiguous :: unique(:)
4789 integer(IK) ,
intent(out) :: lenUnique
4790 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4791 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4792 integer(IK) ,
intent(in) ,
optional :: order
4797 PURE module subroutine setUniFixDefCom_D1_CK4(array, unique, lenUnique, count, index, order)
4798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4799 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_CK4
4802 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4803 complex(CKG) ,
intent(out) ,
contiguous :: unique(:)
4804 integer(IK) ,
intent(out) :: lenUnique
4805 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4806 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4807 integer(IK) ,
intent(in) ,
optional :: order
4812 PURE module subroutine setUniFixDefCom_D1_CK3(array, unique, lenUnique, count, index, order)
4813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4814 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_CK3
4817 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4818 complex(CKG) ,
intent(out) ,
contiguous :: unique(:)
4819 integer(IK) ,
intent(out) :: lenUnique
4820 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4821 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4822 integer(IK) ,
intent(in) ,
optional :: order
4827 PURE module subroutine setUniFixDefCom_D1_CK2(array, unique, lenUnique, count, index, order)
4828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4829 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_CK2
4832 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4833 complex(CKG) ,
intent(out) ,
contiguous :: unique(:)
4834 integer(IK) ,
intent(out) :: lenUnique
4835 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4836 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4837 integer(IK) ,
intent(in) ,
optional :: order
4842 PURE module subroutine setUniFixDefCom_D1_CK1(array, unique, lenUnique, count, index, order)
4843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4844 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_CK1
4847 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4848 complex(CKG) ,
intent(out) ,
contiguous :: unique(:)
4849 integer(IK) ,
intent(out) :: lenUnique
4850 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4851 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4852 integer(IK) ,
intent(in) ,
optional :: order
4859 PURE module subroutine setUniFixDefCom_D1_RK5(array, unique, lenUnique, count, index, order)
4860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4861 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_RK5
4864 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4865 real(RKG) ,
intent(out) ,
contiguous :: unique(:)
4866 integer(IK) ,
intent(out) :: lenUnique
4867 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4868 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4869 integer(IK) ,
intent(in) ,
optional :: order
4874 PURE module subroutine setUniFixDefCom_D1_RK4(array, unique, lenUnique, count, index, order)
4875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4876 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_RK4
4879 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4880 real(RKG) ,
intent(out) ,
contiguous :: unique(:)
4881 integer(IK) ,
intent(out) :: lenUnique
4882 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4883 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4884 integer(IK) ,
intent(in) ,
optional :: order
4889 PURE module subroutine setUniFixDefCom_D1_RK3(array, unique, lenUnique, count, index, order)
4890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4891 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_RK3
4894 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4895 real(RKG) ,
intent(out) ,
contiguous :: unique(:)
4896 integer(IK) ,
intent(out) :: lenUnique
4897 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4898 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4899 integer(IK) ,
intent(in) ,
optional :: order
4904 PURE module subroutine setUniFixDefCom_D1_RK2(array, unique, lenUnique, count, index, order)
4905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4906 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_RK2
4909 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4910 real(RKG) ,
intent(out) ,
contiguous :: unique(:)
4911 integer(IK) ,
intent(out) :: lenUnique
4912 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4913 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4914 integer(IK) ,
intent(in) ,
optional :: order
4919 PURE module subroutine setUniFixDefCom_D1_RK1(array, unique, lenUnique, count, index, order)
4920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4921 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixDefCom_D1_RK1
4924 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4925 real(RKG) ,
intent(out) ,
contiguous :: unique(:)
4926 integer(IK) ,
intent(out) :: lenUnique
4927 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4928 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4929 integer(IK) ,
intent(in) ,
optional :: order
4942 module subroutine setUniFixCusCom_D0_SK5(array, unique, lenUnique, count, iseq, index, order)
4943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4944 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D0_SK5
4947 character(
*,SKG) ,
intent(in) :: array
4948 character(
*,SKG) ,
intent(out) :: unique
4949 integer(IK) ,
intent(out) :: lenUnique
4950 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4951 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4952 integer(IK) ,
intent(in) ,
optional :: order
4953 procedure(
logical(LK)) :: iseq
4958 module subroutine setUniFixCusCom_D0_SK4(array, unique, lenUnique, count, iseq, index, order)
4959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4960 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D0_SK4
4963 character(
*,SKG) ,
intent(in) :: array
4964 character(
*,SKG) ,
intent(out) :: unique
4965 integer(IK) ,
intent(out) :: lenUnique
4966 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4967 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4968 integer(IK) ,
intent(in) ,
optional :: order
4969 procedure(
logical(LK)) :: iseq
4974 module subroutine setUniFixCusCom_D0_SK3(array, unique, lenUnique, count, iseq, index, order)
4975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4976 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D0_SK3
4979 character(
*,SKG) ,
intent(in) :: array
4980 character(
*,SKG) ,
intent(out) :: unique
4981 integer(IK) ,
intent(out) :: lenUnique
4982 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4983 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
4984 integer(IK) ,
intent(in) ,
optional :: order
4985 procedure(
logical(LK)) :: iseq
4990 module subroutine setUniFixCusCom_D0_SK2(array, unique, lenUnique, count, iseq, index, order)
4991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4992 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D0_SK2
4995 character(
*,SKG) ,
intent(in) :: array
4996 character(
*,SKG) ,
intent(out) :: unique
4997 integer(IK) ,
intent(out) :: lenUnique
4998 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
4999 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5000 integer(IK) ,
intent(in) ,
optional :: order
5001 procedure(
logical(LK)) :: iseq
5006 module subroutine setUniFixCusCom_D0_SK1(array, unique, lenUnique, count, iseq, index, order)
5007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5008 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D0_SK1
5011 character(
*,SKG) ,
intent(in) :: array
5012 character(
*,SKG) ,
intent(out) :: unique
5013 integer(IK) ,
intent(out) :: lenUnique
5014 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5015 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5016 integer(IK) ,
intent(in) ,
optional :: order
5017 procedure(
logical(LK)) :: iseq
5024 module subroutine setUniFixCusCom_D1_SK5(array, unique, lenUnique, count, iseq, index, order)
5025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5026 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_SK5
5029 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5030 character(
*,SKG) ,
intent(out) ,
contiguous :: unique(:)
5031 integer(IK) ,
intent(out) :: lenUnique
5032 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5033 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5034 integer(IK) ,
intent(in) ,
optional :: order
5035 procedure(
logical(LK)) :: iseq
5040 module subroutine setUniFixCusCom_D1_SK4(array, unique, lenUnique, count, iseq, index, order)
5041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5042 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_SK4
5045 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5046 character(
*,SKG) ,
intent(out) ,
contiguous :: unique(:)
5047 integer(IK) ,
intent(out) :: lenUnique
5048 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5049 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5050 integer(IK) ,
intent(in) ,
optional :: order
5051 procedure(
logical(LK)) :: iseq
5056 module subroutine setUniFixCusCom_D1_SK3(array, unique, lenUnique, count, iseq, index, order)
5057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5058 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_SK3
5061 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5062 character(
*,SKG) ,
intent(out) ,
contiguous :: unique(:)
5063 integer(IK) ,
intent(out) :: lenUnique
5064 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5065 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5066 integer(IK) ,
intent(in) ,
optional :: order
5067 procedure(
logical(LK)) :: iseq
5072 module subroutine setUniFixCusCom_D1_SK2(array, unique, lenUnique, count, iseq, index, order)
5073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5074 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_SK2
5077 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5078 character(
*,SKG) ,
intent(out) ,
contiguous :: unique(:)
5079 integer(IK) ,
intent(out) :: lenUnique
5080 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5081 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5082 integer(IK) ,
intent(in) ,
optional :: order
5083 procedure(
logical(LK)) :: iseq
5088 module subroutine setUniFixCusCom_D1_SK1(array, unique, lenUnique, count, iseq, index, order)
5089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5090 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_SK1
5093 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5094 character(
*,SKG) ,
intent(out) ,
contiguous :: unique(:)
5095 integer(IK) ,
intent(out) :: lenUnique
5096 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5097 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5098 integer(IK) ,
intent(in) ,
optional :: order
5099 procedure(
logical(LK)) :: iseq
5106 module subroutine setUniFixCusCom_D1_IK5(array, unique, lenUnique, count, iseq, index, order)
5107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5108 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_IK5
5111 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5112 integer(IKG) ,
intent(out) ,
contiguous :: unique(:)
5113 integer(IK) ,
intent(out) :: lenUnique
5114 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5115 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5116 integer(IK) ,
intent(in) ,
optional :: order
5117 procedure(
logical(LK)) :: iseq
5122 module subroutine setUniFixCusCom_D1_IK4(array, unique, lenUnique, count, iseq, index, order)
5123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5124 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_IK4
5127 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5128 integer(IKG) ,
intent(out) ,
contiguous :: unique(:)
5129 integer(IK) ,
intent(out) :: lenUnique
5130 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5131 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5132 integer(IK) ,
intent(in) ,
optional :: order
5133 procedure(
logical(LK)) :: iseq
5138 module subroutine setUniFixCusCom_D1_IK3(array, unique, lenUnique, count, iseq, index, order)
5139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5140 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_IK3
5143 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5144 integer(IKG) ,
intent(out) ,
contiguous :: unique(:)
5145 integer(IK) ,
intent(out) :: lenUnique
5146 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5147 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5148 integer(IK) ,
intent(in) ,
optional :: order
5149 procedure(
logical(LK)) :: iseq
5155 module subroutine setUniFixCusCom_D1_IK2(array, unique, lenUnique, count, iseq, index, order)
5156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5157 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_IK2
5160 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5161 integer(IKG) ,
intent(out) ,
contiguous :: unique(:)
5162 integer(IK) ,
intent(out) :: lenUnique
5163 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5164 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5165 integer(IK) ,
intent(in) ,
optional :: order
5166 procedure(
logical(LK)) :: iseq
5171 module subroutine setUniFixCusCom_D1_IK1(array, unique, lenUnique, count, iseq, index, order)
5172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5173 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_IK1
5176 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5177 integer(IKG) ,
intent(out) ,
contiguous :: unique(:)
5178 integer(IK) ,
intent(out) :: lenUnique
5179 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5180 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5181 integer(IK) ,
intent(in) ,
optional :: order
5182 procedure(
logical(LK)) :: iseq
5189 module subroutine setUniFixCusCom_D1_LK5(array, unique, lenUnique, count, iseq, index, order)
5190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5191 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_LK5
5194 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5195 logical(LKG) ,
intent(out) ,
contiguous :: unique(:)
5196 integer(IK) ,
intent(out) :: lenUnique
5197 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5198 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5199 integer(IK) ,
intent(in) ,
optional :: order
5200 procedure(
logical(LK)) :: iseq
5205 module subroutine setUniFixCusCom_D1_LK4(array, unique, lenUnique, count, iseq, index, order)
5206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5207 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_LK4
5210 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5211 logical(LKG) ,
intent(out) ,
contiguous :: unique(:)
5212 integer(IK) ,
intent(out) :: lenUnique
5213 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5214 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5215 integer(IK) ,
intent(in) ,
optional :: order
5216 procedure(
logical(LK)) :: iseq
5221 module subroutine setUniFixCusCom_D1_LK3(array, unique, lenUnique, count, iseq, index, order)
5222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5223 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_LK3
5226 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5227 logical(LKG) ,
intent(out) ,
contiguous :: unique(:)
5228 integer(IK) ,
intent(out) :: lenUnique
5229 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5230 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5231 integer(IK) ,
intent(in) ,
optional :: order
5232 procedure(
logical(LK)) :: iseq
5237 module subroutine setUniFixCusCom_D1_LK2(array, unique, lenUnique, count, iseq, index, order)
5238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5239 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_LK2
5242 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5243 logical(LKG) ,
intent(out) ,
contiguous :: unique(:)
5244 integer(IK) ,
intent(out) :: lenUnique
5245 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5246 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5247 integer(IK) ,
intent(in) ,
optional :: order
5248 procedure(
logical(LK)) :: iseq
5253 module subroutine setUniFixCusCom_D1_LK1(array, unique, lenUnique, count, iseq, index, order)
5254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5255 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_LK1
5258 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5259 logical(LKG) ,
intent(out) ,
contiguous :: unique(:)
5260 integer(IK) ,
intent(out) :: lenUnique
5261 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5262 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5263 integer(IK) ,
intent(in) ,
optional :: order
5264 procedure(
logical(LK)) :: iseq
5271 module subroutine setUniFixCusCom_D1_CK5(array, unique, lenUnique, count, iseq, index, order)
5272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5273 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_CK5
5276 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5277 complex(CKG) ,
intent(out) ,
contiguous :: unique(:)
5278 integer(IK) ,
intent(out) :: lenUnique
5279 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5280 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5281 integer(IK) ,
intent(in) ,
optional :: order
5282 procedure(
logical(LK)) :: iseq
5287 module subroutine setUniFixCusCom_D1_CK4(array, unique, lenUnique, count, iseq, index, order)
5288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5289 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_CK4
5292 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5293 complex(CKG) ,
intent(out) ,
contiguous :: unique(:)
5294 integer(IK) ,
intent(out) :: lenUnique
5295 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5296 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5297 integer(IK) ,
intent(in) ,
optional :: order
5298 procedure(
logical(LK)) :: iseq
5303 module subroutine setUniFixCusCom_D1_CK3(array, unique, lenUnique, count, iseq, index, order)
5304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5305 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_CK3
5308 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5309 complex(CKG) ,
intent(out) ,
contiguous :: unique(:)
5310 integer(IK) ,
intent(out) :: lenUnique
5311 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5312 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5313 integer(IK) ,
intent(in) ,
optional :: order
5314 procedure(
logical(LK)) :: iseq
5319 module subroutine setUniFixCusCom_D1_CK2(array, unique, lenUnique, count, iseq, index, order)
5320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5321 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_CK2
5324 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5325 complex(CKG) ,
intent(out) ,
contiguous :: unique(:)
5326 integer(IK) ,
intent(out) :: lenUnique
5327 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5328 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5329 integer(IK) ,
intent(in) ,
optional :: order
5330 procedure(
logical(LK)) :: iseq
5335 module subroutine setUniFixCusCom_D1_CK1(array, unique, lenUnique, count, iseq, index, order)
5336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5337 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_CK1
5340 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5341 complex(CKG) ,
intent(out) ,
contiguous :: unique(:)
5342 integer(IK) ,
intent(out) :: lenUnique
5343 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5344 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5345 integer(IK) ,
intent(in) ,
optional :: order
5346 procedure(
logical(LK)) :: iseq
5353 module subroutine setUniFixCusCom_D1_RK5(array, unique, lenUnique, count, iseq, index, order)
5354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5355 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_RK5
5358 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5359 real(RKG) ,
intent(out) ,
contiguous :: unique(:)
5360 integer(IK) ,
intent(out) :: lenUnique
5361 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5362 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5363 integer(IK) ,
intent(in) ,
optional :: order
5364 procedure(
logical(LK)) :: iseq
5369 module subroutine setUniFixCusCom_D1_RK4(array, unique, lenUnique, count, iseq, index, order)
5370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5371 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_RK4
5374 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5375 real(RKG) ,
intent(out) ,
contiguous :: unique(:)
5376 integer(IK) ,
intent(out) :: lenUnique
5377 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5378 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5379 integer(IK) ,
intent(in) ,
optional :: order
5380 procedure(
logical(LK)) :: iseq
5385 module subroutine setUniFixCusCom_D1_RK3(array, unique, lenUnique, count, iseq, index, order)
5386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5387 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_RK3
5390 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5391 real(RKG) ,
intent(out) ,
contiguous :: unique(:)
5392 integer(IK) ,
intent(out) :: lenUnique
5393 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5394 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5395 integer(IK) ,
intent(in) ,
optional :: order
5396 procedure(
logical(LK)) :: iseq
5401 module subroutine setUniFixCusCom_D1_RK2(array, unique, lenUnique, count, iseq, index, order)
5402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5403 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_RK2
5406 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5407 real(RKG) ,
intent(out) ,
contiguous :: unique(:)
5408 integer(IK) ,
intent(out) :: lenUnique
5409 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5410 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5411 integer(IK) ,
intent(in) ,
optional :: order
5412 procedure(
logical(LK)) :: iseq
5417 module subroutine setUniFixCusCom_D1_RK1(array, unique, lenUnique, count, iseq, index, order)
5418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5419 !DEC$ ATTRIBUTES DLLEXPORT :: setUniFixCusCom_D1_RK1
5422 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5423 real(RKG) ,
intent(out) ,
contiguous :: unique(:)
5424 integer(IK) ,
intent(out) :: lenUnique
5425 integer(IK) ,
intent(out) ,
contiguous ::
count(:)
5426 type(cvi_type) ,
intent(out) ,
contiguous ,
optional ::
index(:)
5427 integer(IK) ,
intent(in) ,
optional :: order
5428 procedure(
logical(LK)) :: iseq
5561end module pm_arrayUnique
Generate and return a vector of unique values in the input array.
Generate and return .true. if and only if all elements of the input sequence values are unique.
Generate and return .true. if and only if at least one element of the input sequence is unique among ...
Generate and return .true. for each element of the input sequence whose value is unique among all seq...
Return a vector of unique values in the input array in place of the array itself.
This module contains procedures and generic interfaces for finding unique values of an input array of...
character(*, SK), parameter MODULE_NAME
This module contains the derived types for generating allocatable containers of scalar,...
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 the derived type for generating a container of a vector component of type integer of default ...