147 interface operator(.llt.)
152 pure module function isllt_D0_D0_SK5(array1, array2)
result(compares)
153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
154 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D0_D0_SK5
157 character(
*,SKG),
intent(in) :: array1
158 character(
*,SKG),
intent(in) :: array2
159 logical(LK) :: compares
164 pure module function isllt_D0_D0_SK4(array1, array2)
result(compares)
165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
166 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D0_D0_SK4
169 character(
*,SKG),
intent(in) :: array1
170 character(
*,SKG),
intent(in) :: array2
171 logical(LK) :: compares
176 pure module function isllt_D0_D0_SK3(array1, array2)
result(compares)
177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
178 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D0_D0_SK3
181 character(
*,SKG),
intent(in) :: array1
182 character(
*,SKG),
intent(in) :: array2
183 logical(LK) :: compares
188 pure module function isllt_D0_D0_SK2(array1, array2)
result(compares)
189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
190 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D0_D0_SK2
193 character(
*,SKG),
intent(in) :: array1
194 character(
*,SKG),
intent(in) :: array2
195 logical(LK) :: compares
200 pure module function isllt_D0_D0_SK1(array1, array2)
result(compares)
201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
202 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D0_D0_SK1
205 character(
*,SKG),
intent(in) :: array1
206 character(
*,SKG),
intent(in) :: array2
207 logical(LK) :: compares
214 pure module function isllt_D1_D1_SK5(array1, array2)
result(compares)
215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
216 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_SK5
219 character(
*,SKG),
intent(in),
contiguous :: array1(:)
220 character(
*,SKG),
intent(in),
contiguous :: array2(:)
221 logical(LK) :: compares
226 pure module function isllt_D1_D1_SK4(array1, array2)
result(compares)
227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
228 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_SK4
231 character(
*,SKG),
intent(in),
contiguous :: array1(:)
232 character(
*,SKG),
intent(in),
contiguous :: array2(:)
233 logical(LK) :: compares
238 pure module function isllt_D1_D1_SK3(array1, array2)
result(compares)
239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
240 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_SK3
243 character(
*,SKG),
intent(in),
contiguous :: array1(:)
244 character(
*,SKG),
intent(in),
contiguous :: array2(:)
245 logical(LK) :: compares
250 pure module function isllt_D1_D1_SK2(array1, array2)
result(compares)
251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
252 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_SK2
255 character(
*,SKG),
intent(in),
contiguous :: array1(:)
256 character(
*,SKG),
intent(in),
contiguous :: array2(:)
257 logical(LK) :: compares
262 pure module function isllt_D1_D1_SK1(array1, array2)
result(compares)
263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
264 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_SK1
267 character(
*,SKG),
intent(in),
contiguous :: array1(:)
268 character(
*,SKG),
intent(in),
contiguous :: array2(:)
269 logical(LK) :: compares
276 pure module function isllt_D1_D1_IK5(array1, array2)
result(compares)
277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
278 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_IK5
281 integer(IKG) ,
intent(in),
contiguous :: array1(:)
282 integer(IKG) ,
intent(in),
contiguous :: array2(:)
283 logical(LK) :: compares
288 pure module function isllt_D1_D1_IK4(array1, array2)
result(compares)
289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
290 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_IK4
293 integer(IKG) ,
intent(in),
contiguous :: array1(:)
294 integer(IKG) ,
intent(in),
contiguous :: array2(:)
295 logical(LK) :: compares
300 pure module function isllt_D1_D1_IK3(array1, array2)
result(compares)
301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
302 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_IK3
305 integer(IKG) ,
intent(in),
contiguous :: array1(:)
306 integer(IKG) ,
intent(in),
contiguous :: array2(:)
307 logical(LK) :: compares
312 pure module function isllt_D1_D1_IK2(array1, array2)
result(compares)
313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
314 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_IK2
317 integer(IKG) ,
intent(in),
contiguous :: array1(:)
318 integer(IKG) ,
intent(in),
contiguous :: array2(:)
319 logical(LK) :: compares
324 pure module function isllt_D1_D1_IK1(array1, array2)
result(compares)
325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
326 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_IK1
329 integer(IKG) ,
intent(in),
contiguous :: array1(:)
330 integer(IKG) ,
intent(in),
contiguous :: array2(:)
331 logical(LK) :: compares
338 pure module function isllt_D1_D1_LK5(array1, array2)
result(compares)
339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
340 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_LK5
343 logical(LKG) ,
intent(in),
contiguous :: array1(:)
344 logical(LKG) ,
intent(in),
contiguous :: array2(:)
345 logical(LK) :: compares
350 pure module function isllt_D1_D1_LK4(array1, array2)
result(compares)
351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
352 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_LK4
355 logical(LKG) ,
intent(in),
contiguous :: array1(:)
356 logical(LKG) ,
intent(in),
contiguous :: array2(:)
357 logical(LK) :: compares
362 pure module function isllt_D1_D1_LK3(array1, array2)
result(compares)
363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
364 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_LK3
367 logical(LKG) ,
intent(in),
contiguous :: array1(:)
368 logical(LKG) ,
intent(in),
contiguous :: array2(:)
369 logical(LK) :: compares
374 pure module function isllt_D1_D1_LK2(array1, array2)
result(compares)
375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
376 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_LK2
379 logical(LKG) ,
intent(in),
contiguous :: array1(:)
380 logical(LKG) ,
intent(in),
contiguous :: array2(:)
381 logical(LK) :: compares
386 pure module function isllt_D1_D1_LK1(array1, array2)
result(compares)
387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
388 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_LK1
391 logical(LKG) ,
intent(in),
contiguous :: array1(:)
392 logical(LKG) ,
intent(in),
contiguous :: array2(:)
393 logical(LK) :: compares
400 pure module function isllt_D1_D1_CK5(array1, array2)
result(compares)
401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
402 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_CK5
405 complex(CKG) ,
intent(in),
contiguous :: array1(:)
406 complex(CKG) ,
intent(in),
contiguous :: array2(:)
407 logical(LK) :: compares
412 pure module function isllt_D1_D1_CK4(array1, array2)
result(compares)
413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
414 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_CK4
417 complex(CKG) ,
intent(in),
contiguous :: array1(:)
418 complex(CKG) ,
intent(in),
contiguous :: array2(:)
419 logical(LK) :: compares
424 pure module function isllt_D1_D1_CK3(array1, array2)
result(compares)
425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
426 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_CK3
429 complex(CKG) ,
intent(in),
contiguous :: array1(:)
430 complex(CKG) ,
intent(in),
contiguous :: array2(:)
431 logical(LK) :: compares
436 pure module function isllt_D1_D1_CK2(array1, array2)
result(compares)
437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
438 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_CK2
441 complex(CKG) ,
intent(in),
contiguous :: array1(:)
442 complex(CKG) ,
intent(in),
contiguous :: array2(:)
443 logical(LK) :: compares
448 pure module function isllt_D1_D1_CK1(array1, array2)
result(compares)
449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
450 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_CK1
453 complex(CKG) ,
intent(in),
contiguous :: array1(:)
454 complex(CKG) ,
intent(in),
contiguous :: array2(:)
455 logical(LK) :: compares
462 pure module function isllt_D1_D1_RK5(array1, array2)
result(compares)
463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
464 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_RK5
467 real(RKG) ,
intent(in),
contiguous :: array1(:)
468 real(RKG) ,
intent(in),
contiguous :: array2(:)
469 logical(LK) :: compares
474 pure module function isllt_D1_D1_RK4(array1, array2)
result(compares)
475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
476 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_RK4
479 real(RKG) ,
intent(in),
contiguous :: array1(:)
480 real(RKG) ,
intent(in),
contiguous :: array2(:)
481 logical(LK) :: compares
486 pure module function isllt_D1_D1_RK3(array1, array2)
result(compares)
487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
488 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_RK3
491 real(RKG) ,
intent(in),
contiguous :: array1(:)
492 real(RKG) ,
intent(in),
contiguous :: array2(:)
493 logical(LK) :: compares
498 pure module function isllt_D1_D1_RK2(array1, array2)
result(compares)
499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
500 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_RK2
503 real(RKG) ,
intent(in),
contiguous :: array1(:)
504 real(RKG) ,
intent(in),
contiguous :: array2(:)
505 logical(LK) :: compares
510 pure module function isllt_D1_D1_RK1(array1, array2)
result(compares)
511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
512 !DEC$ ATTRIBUTES DLLEXPORT :: isllt_D1_D1_RK1
515 real(RKG) ,
intent(in),
contiguous :: array1(:)
516 real(RKG) ,
intent(in),
contiguous :: array2(:)
517 logical(LK) :: compares
593 interface operator(.lle.)
598 pure module function islle_D0_D0_SK5(array1, array2)
result(compares)
599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
600 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D0_D0_SK5
603 character(
*,SKG),
intent(in) :: array1
604 character(
*,SKG),
intent(in) :: array2
605 logical(LK) :: compares
610 pure module function islle_D0_D0_SK4(array1, array2)
result(compares)
611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
612 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D0_D0_SK4
615 character(
*,SKG),
intent(in) :: array1
616 character(
*,SKG),
intent(in) :: array2
617 logical(LK) :: compares
622 pure module function islle_D0_D0_SK3(array1, array2)
result(compares)
623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
624 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D0_D0_SK3
627 character(
*,SKG),
intent(in) :: array1
628 character(
*,SKG),
intent(in) :: array2
629 logical(LK) :: compares
634 pure module function islle_D0_D0_SK2(array1, array2)
result(compares)
635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
636 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D0_D0_SK2
639 character(
*,SKG),
intent(in) :: array1
640 character(
*,SKG),
intent(in) :: array2
641 logical(LK) :: compares
646 pure module function islle_D0_D0_SK1(array1, array2)
result(compares)
647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
648 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D0_D0_SK1
651 character(
*,SKG),
intent(in) :: array1
652 character(
*,SKG),
intent(in) :: array2
653 logical(LK) :: compares
660 pure module function islle_D1_D1_SK5(array1, array2)
result(compares)
661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
662 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_SK5
665 character(
*,SKG),
intent(in),
contiguous :: array1(:)
666 character(
*,SKG),
intent(in),
contiguous :: array2(:)
667 logical(LK) :: compares
672 pure module function islle_D1_D1_SK4(array1, array2)
result(compares)
673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
674 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_SK4
677 character(
*,SKG),
intent(in),
contiguous :: array1(:)
678 character(
*,SKG),
intent(in),
contiguous :: array2(:)
679 logical(LK) :: compares
684 pure module function islle_D1_D1_SK3(array1, array2)
result(compares)
685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
686 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_SK3
689 character(
*,SKG),
intent(in),
contiguous :: array1(:)
690 character(
*,SKG),
intent(in),
contiguous :: array2(:)
691 logical(LK) :: compares
696 pure module function islle_D1_D1_SK2(array1, array2)
result(compares)
697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
698 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_SK2
701 character(
*,SKG),
intent(in),
contiguous :: array1(:)
702 character(
*,SKG),
intent(in),
contiguous :: array2(:)
703 logical(LK) :: compares
708 pure module function islle_D1_D1_SK1(array1, array2)
result(compares)
709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
710 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_SK1
713 character(
*,SKG),
intent(in),
contiguous :: array1(:)
714 character(
*,SKG),
intent(in),
contiguous :: array2(:)
715 logical(LK) :: compares
722 pure module function islle_D1_D1_IK5(array1, array2)
result(compares)
723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
724 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_IK5
727 integer(IKG) ,
intent(in),
contiguous :: array1(:)
728 integer(IKG) ,
intent(in),
contiguous :: array2(:)
729 logical(LK) :: compares
734 pure module function islle_D1_D1_IK4(array1, array2)
result(compares)
735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
736 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_IK4
739 integer(IKG) ,
intent(in),
contiguous :: array1(:)
740 integer(IKG) ,
intent(in),
contiguous :: array2(:)
741 logical(LK) :: compares
746 pure module function islle_D1_D1_IK3(array1, array2)
result(compares)
747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
748 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_IK3
751 integer(IKG) ,
intent(in),
contiguous :: array1(:)
752 integer(IKG) ,
intent(in),
contiguous :: array2(:)
753 logical(LK) :: compares
758 pure module function islle_D1_D1_IK2(array1, array2)
result(compares)
759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
760 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_IK2
763 integer(IKG) ,
intent(in),
contiguous :: array1(:)
764 integer(IKG) ,
intent(in),
contiguous :: array2(:)
765 logical(LK) :: compares
770 pure module function islle_D1_D1_IK1(array1, array2)
result(compares)
771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
772 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_IK1
775 integer(IKG) ,
intent(in),
contiguous :: array1(:)
776 integer(IKG) ,
intent(in),
contiguous :: array2(:)
777 logical(LK) :: compares
784 pure module function islle_D1_D1_LK5(array1, array2)
result(compares)
785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
786 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_LK5
789 logical(LKG) ,
intent(in),
contiguous :: array1(:)
790 logical(LKG) ,
intent(in),
contiguous :: array2(:)
791 logical(LK) :: compares
796 pure module function islle_D1_D1_LK4(array1, array2)
result(compares)
797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
798 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_LK4
801 logical(LKG) ,
intent(in),
contiguous :: array1(:)
802 logical(LKG) ,
intent(in),
contiguous :: array2(:)
803 logical(LK) :: compares
808 pure module function islle_D1_D1_LK3(array1, array2)
result(compares)
809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
810 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_LK3
813 logical(LKG) ,
intent(in),
contiguous :: array1(:)
814 logical(LKG) ,
intent(in),
contiguous :: array2(:)
815 logical(LK) :: compares
820 pure module function islle_D1_D1_LK2(array1, array2)
result(compares)
821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
822 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_LK2
825 logical(LKG) ,
intent(in),
contiguous :: array1(:)
826 logical(LKG) ,
intent(in),
contiguous :: array2(:)
827 logical(LK) :: compares
832 pure module function islle_D1_D1_LK1(array1, array2)
result(compares)
833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
834 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_LK1
837 logical(LKG) ,
intent(in),
contiguous :: array1(:)
838 logical(LKG) ,
intent(in),
contiguous :: array2(:)
839 logical(LK) :: compares
846 pure module function islle_D1_D1_CK5(array1, array2)
result(compares)
847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
848 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_CK5
851 complex(CKG) ,
intent(in),
contiguous :: array1(:)
852 complex(CKG) ,
intent(in),
contiguous :: array2(:)
853 logical(LK) :: compares
858 pure module function islle_D1_D1_CK4(array1, array2)
result(compares)
859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
860 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_CK4
863 complex(CKG) ,
intent(in),
contiguous :: array1(:)
864 complex(CKG) ,
intent(in),
contiguous :: array2(:)
865 logical(LK) :: compares
870 pure module function islle_D1_D1_CK3(array1, array2)
result(compares)
871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
872 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_CK3
875 complex(CKG) ,
intent(in),
contiguous :: array1(:)
876 complex(CKG) ,
intent(in),
contiguous :: array2(:)
877 logical(LK) :: compares
882 pure module function islle_D1_D1_CK2(array1, array2)
result(compares)
883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
884 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_CK2
887 complex(CKG) ,
intent(in),
contiguous :: array1(:)
888 complex(CKG) ,
intent(in),
contiguous :: array2(:)
889 logical(LK) :: compares
894 pure module function islle_D1_D1_CK1(array1, array2)
result(compares)
895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
896 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_CK1
899 complex(CKG) ,
intent(in),
contiguous :: array1(:)
900 complex(CKG) ,
intent(in),
contiguous :: array2(:)
901 logical(LK) :: compares
908 pure module function islle_D1_D1_RK5(array1, array2)
result(compares)
909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
910 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_RK5
913 real(RKG) ,
intent(in),
contiguous :: array1(:)
914 real(RKG) ,
intent(in),
contiguous :: array2(:)
915 logical(LK) :: compares
920 pure module function islle_D1_D1_RK4(array1, array2)
result(compares)
921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
922 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_RK4
925 real(RKG) ,
intent(in),
contiguous :: array1(:)
926 real(RKG) ,
intent(in),
contiguous :: array2(:)
927 logical(LK) :: compares
932 pure module function islle_D1_D1_RK3(array1, array2)
result(compares)
933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
934 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_RK3
937 real(RKG) ,
intent(in),
contiguous :: array1(:)
938 real(RKG) ,
intent(in),
contiguous :: array2(:)
939 logical(LK) :: compares
944 pure module function islle_D1_D1_RK2(array1, array2)
result(compares)
945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
946 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_RK2
949 real(RKG) ,
intent(in),
contiguous :: array1(:)
950 real(RKG) ,
intent(in),
contiguous :: array2(:)
951 logical(LK) :: compares
956 pure module function islle_D1_D1_RK1(array1, array2)
result(compares)
957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
958 !DEC$ ATTRIBUTES DLLEXPORT :: islle_D1_D1_RK1
961 real(RKG) ,
intent(in),
contiguous :: array1(:)
962 real(RKG) ,
intent(in),
contiguous :: array2(:)
963 logical(LK) :: compares
1039 interface operator(.lge.)
1044 pure module function islge_D0_D0_SK5(array1, array2)
result(compares)
1045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1046 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D0_D0_SK5
1049 character(
*,SKG),
intent(in) :: array1
1050 character(
*,SKG),
intent(in) :: array2
1051 logical(LK) :: compares
1056 pure module function islge_D0_D0_SK4(array1, array2)
result(compares)
1057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1058 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D0_D0_SK4
1061 character(
*,SKG),
intent(in) :: array1
1062 character(
*,SKG),
intent(in) :: array2
1063 logical(LK) :: compares
1068 pure module function islge_D0_D0_SK3(array1, array2)
result(compares)
1069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1070 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D0_D0_SK3
1073 character(
*,SKG),
intent(in) :: array1
1074 character(
*,SKG),
intent(in) :: array2
1075 logical(LK) :: compares
1080 pure module function islge_D0_D0_SK2(array1, array2)
result(compares)
1081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1082 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D0_D0_SK2
1085 character(
*,SKG),
intent(in) :: array1
1086 character(
*,SKG),
intent(in) :: array2
1087 logical(LK) :: compares
1092 pure module function islge_D0_D0_SK1(array1, array2)
result(compares)
1093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1094 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D0_D0_SK1
1097 character(
*,SKG),
intent(in) :: array1
1098 character(
*,SKG),
intent(in) :: array2
1099 logical(LK) :: compares
1106 pure module function islge_D1_D1_SK5(array1, array2)
result(compares)
1107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1108 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_SK5
1111 character(
*,SKG),
intent(in),
contiguous :: array1(:)
1112 character(
*,SKG),
intent(in),
contiguous :: array2(:)
1113 logical(LK) :: compares
1118 pure module function islge_D1_D1_SK4(array1, array2)
result(compares)
1119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1120 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_SK4
1123 character(
*,SKG),
intent(in),
contiguous :: array1(:)
1124 character(
*,SKG),
intent(in),
contiguous :: array2(:)
1125 logical(LK) :: compares
1130 pure module function islge_D1_D1_SK3(array1, array2)
result(compares)
1131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1132 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_SK3
1135 character(
*,SKG),
intent(in),
contiguous :: array1(:)
1136 character(
*,SKG),
intent(in),
contiguous :: array2(:)
1137 logical(LK) :: compares
1142 pure module function islge_D1_D1_SK2(array1, array2)
result(compares)
1143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1144 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_SK2
1147 character(
*,SKG),
intent(in),
contiguous :: array1(:)
1148 character(
*,SKG),
intent(in),
contiguous :: array2(:)
1149 logical(LK) :: compares
1154 pure module function islge_D1_D1_SK1(array1, array2)
result(compares)
1155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1156 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_SK1
1159 character(
*,SKG),
intent(in),
contiguous :: array1(:)
1160 character(
*,SKG),
intent(in),
contiguous :: array2(:)
1161 logical(LK) :: compares
1168 pure module function islge_D1_D1_IK5(array1, array2)
result(compares)
1169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1170 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_IK5
1173 integer(IKG) ,
intent(in),
contiguous :: array1(:)
1174 integer(IKG) ,
intent(in),
contiguous :: array2(:)
1175 logical(LK) :: compares
1180 pure module function islge_D1_D1_IK4(array1, array2)
result(compares)
1181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1182 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_IK4
1185 integer(IKG) ,
intent(in),
contiguous :: array1(:)
1186 integer(IKG) ,
intent(in),
contiguous :: array2(:)
1187 logical(LK) :: compares
1192 pure module function islge_D1_D1_IK3(array1, array2)
result(compares)
1193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1194 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_IK3
1197 integer(IKG) ,
intent(in),
contiguous :: array1(:)
1198 integer(IKG) ,
intent(in),
contiguous :: array2(:)
1199 logical(LK) :: compares
1204 pure module function islge_D1_D1_IK2(array1, array2)
result(compares)
1205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1206 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_IK2
1209 integer(IKG) ,
intent(in),
contiguous :: array1(:)
1210 integer(IKG) ,
intent(in),
contiguous :: array2(:)
1211 logical(LK) :: compares
1216 pure module function islge_D1_D1_IK1(array1, array2)
result(compares)
1217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1218 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_IK1
1221 integer(IKG) ,
intent(in),
contiguous :: array1(:)
1222 integer(IKG) ,
intent(in),
contiguous :: array2(:)
1223 logical(LK) :: compares
1230 pure module function islge_D1_D1_LK5(array1, array2)
result(compares)
1231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1232 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_LK5
1235 logical(LKG) ,
intent(in),
contiguous :: array1(:)
1236 logical(LKG) ,
intent(in),
contiguous :: array2(:)
1237 logical(LK) :: compares
1242 pure module function islge_D1_D1_LK4(array1, array2)
result(compares)
1243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1244 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_LK4
1247 logical(LKG) ,
intent(in),
contiguous :: array1(:)
1248 logical(LKG) ,
intent(in),
contiguous :: array2(:)
1249 logical(LK) :: compares
1254 pure module function islge_D1_D1_LK3(array1, array2)
result(compares)
1255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1256 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_LK3
1259 logical(LKG) ,
intent(in),
contiguous :: array1(:)
1260 logical(LKG) ,
intent(in),
contiguous :: array2(:)
1261 logical(LK) :: compares
1266 pure module function islge_D1_D1_LK2(array1, array2)
result(compares)
1267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1268 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_LK2
1271 logical(LKG) ,
intent(in),
contiguous :: array1(:)
1272 logical(LKG) ,
intent(in),
contiguous :: array2(:)
1273 logical(LK) :: compares
1278 pure module function islge_D1_D1_LK1(array1, array2)
result(compares)
1279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1280 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_LK1
1283 logical(LKG) ,
intent(in),
contiguous :: array1(:)
1284 logical(LKG) ,
intent(in),
contiguous :: array2(:)
1285 logical(LK) :: compares
1292 pure module function islge_D1_D1_CK5(array1, array2)
result(compares)
1293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1294 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_CK5
1297 complex(CKG) ,
intent(in),
contiguous :: array1(:)
1298 complex(CKG) ,
intent(in),
contiguous :: array2(:)
1299 logical(LK) :: compares
1304 pure module function islge_D1_D1_CK4(array1, array2)
result(compares)
1305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1306 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_CK4
1309 complex(CKG) ,
intent(in),
contiguous :: array1(:)
1310 complex(CKG) ,
intent(in),
contiguous :: array2(:)
1311 logical(LK) :: compares
1316 pure module function islge_D1_D1_CK3(array1, array2)
result(compares)
1317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1318 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_CK3
1321 complex(CKG) ,
intent(in),
contiguous :: array1(:)
1322 complex(CKG) ,
intent(in),
contiguous :: array2(:)
1323 logical(LK) :: compares
1328 pure module function islge_D1_D1_CK2(array1, array2)
result(compares)
1329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1330 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_CK2
1333 complex(CKG) ,
intent(in),
contiguous :: array1(:)
1334 complex(CKG) ,
intent(in),
contiguous :: array2(:)
1335 logical(LK) :: compares
1340 pure module function islge_D1_D1_CK1(array1, array2)
result(compares)
1341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1342 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_CK1
1345 complex(CKG) ,
intent(in),
contiguous :: array1(:)
1346 complex(CKG) ,
intent(in),
contiguous :: array2(:)
1347 logical(LK) :: compares
1354 pure module function islge_D1_D1_RK5(array1, array2)
result(compares)
1355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1356 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_RK5
1359 real(RKG) ,
intent(in),
contiguous :: array1(:)
1360 real(RKG) ,
intent(in),
contiguous :: array2(:)
1361 logical(LK) :: compares
1366 pure module function islge_D1_D1_RK4(array1, array2)
result(compares)
1367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1368 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_RK4
1371 real(RKG) ,
intent(in),
contiguous :: array1(:)
1372 real(RKG) ,
intent(in),
contiguous :: array2(:)
1373 logical(LK) :: compares
1378 pure module function islge_D1_D1_RK3(array1, array2)
result(compares)
1379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1380 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_RK3
1383 real(RKG) ,
intent(in),
contiguous :: array1(:)
1384 real(RKG) ,
intent(in),
contiguous :: array2(:)
1385 logical(LK) :: compares
1390 pure module function islge_D1_D1_RK2(array1, array2)
result(compares)
1391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1392 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_RK2
1395 real(RKG) ,
intent(in),
contiguous :: array1(:)
1396 real(RKG) ,
intent(in),
contiguous :: array2(:)
1397 logical(LK) :: compares
1402 pure module function islge_D1_D1_RK1(array1, array2)
result(compares)
1403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1404 !DEC$ ATTRIBUTES DLLEXPORT :: islge_D1_D1_RK1
1407 real(RKG) ,
intent(in),
contiguous :: array1(:)
1408 real(RKG) ,
intent(in),
contiguous :: array2(:)
1409 logical(LK) :: compares
1485 interface operator(.lgt.)
1490 pure module function islgt_D0_D0_SK5(array1, array2)
result(compares)
1491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1492 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D0_D0_SK5
1495 character(
*,SKG),
intent(in) :: array1
1496 character(
*,SKG),
intent(in) :: array2
1497 logical(LK) :: compares
1502 pure module function islgt_D0_D0_SK4(array1, array2)
result(compares)
1503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1504 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D0_D0_SK4
1507 character(
*,SKG),
intent(in) :: array1
1508 character(
*,SKG),
intent(in) :: array2
1509 logical(LK) :: compares
1514 pure module function islgt_D0_D0_SK3(array1, array2)
result(compares)
1515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1516 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D0_D0_SK3
1519 character(
*,SKG),
intent(in) :: array1
1520 character(
*,SKG),
intent(in) :: array2
1521 logical(LK) :: compares
1526 pure module function islgt_D0_D0_SK2(array1, array2)
result(compares)
1527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1528 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D0_D0_SK2
1531 character(
*,SKG),
intent(in) :: array1
1532 character(
*,SKG),
intent(in) :: array2
1533 logical(LK) :: compares
1538 pure module function islgt_D0_D0_SK1(array1, array2)
result(compares)
1539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1540 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D0_D0_SK1
1543 character(
*,SKG),
intent(in) :: array1
1544 character(
*,SKG),
intent(in) :: array2
1545 logical(LK) :: compares
1552 pure module function islgt_D1_D1_SK5(array1, array2)
result(compares)
1553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1554 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_SK5
1557 character(
*,SKG),
intent(in),
contiguous :: array1(:)
1558 character(
*,SKG),
intent(in),
contiguous :: array2(:)
1559 logical(LK) :: compares
1564 pure module function islgt_D1_D1_SK4(array1, array2)
result(compares)
1565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1566 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_SK4
1569 character(
*,SKG),
intent(in),
contiguous :: array1(:)
1570 character(
*,SKG),
intent(in),
contiguous :: array2(:)
1571 logical(LK) :: compares
1576 pure module function islgt_D1_D1_SK3(array1, array2)
result(compares)
1577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1578 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_SK3
1581 character(
*,SKG),
intent(in),
contiguous :: array1(:)
1582 character(
*,SKG),
intent(in),
contiguous :: array2(:)
1583 logical(LK) :: compares
1588 pure module function islgt_D1_D1_SK2(array1, array2)
result(compares)
1589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1590 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_SK2
1593 character(
*,SKG),
intent(in),
contiguous :: array1(:)
1594 character(
*,SKG),
intent(in),
contiguous :: array2(:)
1595 logical(LK) :: compares
1600 pure module function islgt_D1_D1_SK1(array1, array2)
result(compares)
1601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1602 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_SK1
1605 character(
*,SKG),
intent(in),
contiguous :: array1(:)
1606 character(
*,SKG),
intent(in),
contiguous :: array2(:)
1607 logical(LK) :: compares
1614 pure module function islgt_D1_D1_IK5(array1, array2)
result(compares)
1615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1616 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_IK5
1619 integer(IKG) ,
intent(in),
contiguous :: array1(:)
1620 integer(IKG) ,
intent(in),
contiguous :: array2(:)
1621 logical(LK) :: compares
1626 pure module function islgt_D1_D1_IK4(array1, array2)
result(compares)
1627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1628 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_IK4
1631 integer(IKG) ,
intent(in),
contiguous :: array1(:)
1632 integer(IKG) ,
intent(in),
contiguous :: array2(:)
1633 logical(LK) :: compares
1638 pure module function islgt_D1_D1_IK3(array1, array2)
result(compares)
1639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1640 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_IK3
1643 integer(IKG) ,
intent(in),
contiguous :: array1(:)
1644 integer(IKG) ,
intent(in),
contiguous :: array2(:)
1645 logical(LK) :: compares
1650 pure module function islgt_D1_D1_IK2(array1, array2)
result(compares)
1651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1652 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_IK2
1655 integer(IKG) ,
intent(in),
contiguous :: array1(:)
1656 integer(IKG) ,
intent(in),
contiguous :: array2(:)
1657 logical(LK) :: compares
1662 pure module function islgt_D1_D1_IK1(array1, array2)
result(compares)
1663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1664 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_IK1
1667 integer(IKG) ,
intent(in),
contiguous :: array1(:)
1668 integer(IKG) ,
intent(in),
contiguous :: array2(:)
1669 logical(LK) :: compares
1676 pure module function islgt_D1_D1_LK5(array1, array2)
result(compares)
1677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1678 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_LK5
1681 logical(LKG) ,
intent(in),
contiguous :: array1(:)
1682 logical(LKG) ,
intent(in),
contiguous :: array2(:)
1683 logical(LK) :: compares
1688 pure module function islgt_D1_D1_LK4(array1, array2)
result(compares)
1689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1690 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_LK4
1693 logical(LKG) ,
intent(in),
contiguous :: array1(:)
1694 logical(LKG) ,
intent(in),
contiguous :: array2(:)
1695 logical(LK) :: compares
1700 pure module function islgt_D1_D1_LK3(array1, array2)
result(compares)
1701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1702 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_LK3
1705 logical(LKG) ,
intent(in),
contiguous :: array1(:)
1706 logical(LKG) ,
intent(in),
contiguous :: array2(:)
1707 logical(LK) :: compares
1712 pure module function islgt_D1_D1_LK2(array1, array2)
result(compares)
1713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1714 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_LK2
1717 logical(LKG) ,
intent(in),
contiguous :: array1(:)
1718 logical(LKG) ,
intent(in),
contiguous :: array2(:)
1719 logical(LK) :: compares
1724 pure module function islgt_D1_D1_LK1(array1, array2)
result(compares)
1725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1726 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_LK1
1729 logical(LKG) ,
intent(in),
contiguous :: array1(:)
1730 logical(LKG) ,
intent(in),
contiguous :: array2(:)
1731 logical(LK) :: compares
1738 pure module function islgt_D1_D1_CK5(array1, array2)
result(compares)
1739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1740 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_CK5
1743 complex(CKG) ,
intent(in),
contiguous :: array1(:)
1744 complex(CKG) ,
intent(in),
contiguous :: array2(:)
1745 logical(LK) :: compares
1750 pure module function islgt_D1_D1_CK4(array1, array2)
result(compares)
1751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1752 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_CK4
1755 complex(CKG) ,
intent(in),
contiguous :: array1(:)
1756 complex(CKG) ,
intent(in),
contiguous :: array2(:)
1757 logical(LK) :: compares
1762 pure module function islgt_D1_D1_CK3(array1, array2)
result(compares)
1763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1764 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_CK3
1767 complex(CKG) ,
intent(in),
contiguous :: array1(:)
1768 complex(CKG) ,
intent(in),
contiguous :: array2(:)
1769 logical(LK) :: compares
1774 pure module function islgt_D1_D1_CK2(array1, array2)
result(compares)
1775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1776 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_CK2
1779 complex(CKG) ,
intent(in),
contiguous :: array1(:)
1780 complex(CKG) ,
intent(in),
contiguous :: array2(:)
1781 logical(LK) :: compares
1786 pure module function islgt_D1_D1_CK1(array1, array2)
result(compares)
1787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1788 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_CK1
1791 complex(CKG) ,
intent(in),
contiguous :: array1(:)
1792 complex(CKG) ,
intent(in),
contiguous :: array2(:)
1793 logical(LK) :: compares
1800 pure module function islgt_D1_D1_RK5(array1, array2)
result(compares)
1801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1802 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_RK5
1805 real(RKG) ,
intent(in),
contiguous :: array1(:)
1806 real(RKG) ,
intent(in),
contiguous :: array2(:)
1807 logical(LK) :: compares
1812 pure module function islgt_D1_D1_RK4(array1, array2)
result(compares)
1813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1814 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_RK4
1817 real(RKG) ,
intent(in),
contiguous :: array1(:)
1818 real(RKG) ,
intent(in),
contiguous :: array2(:)
1819 logical(LK) :: compares
1824 pure module function islgt_D1_D1_RK3(array1, array2)
result(compares)
1825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1826 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_RK3
1829 real(RKG) ,
intent(in),
contiguous :: array1(:)
1830 real(RKG) ,
intent(in),
contiguous :: array2(:)
1831 logical(LK) :: compares
1836 pure module function islgt_D1_D1_RK2(array1, array2)
result(compares)
1837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1838 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_RK2
1841 real(RKG) ,
intent(in),
contiguous :: array1(:)
1842 real(RKG) ,
intent(in),
contiguous :: array2(:)
1843 logical(LK) :: compares
1848 pure module function islgt_D1_D1_RK1(array1, array2)
result(compares)
1849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1850 !DEC$ ATTRIBUTES DLLEXPORT :: islgt_D1_D1_RK1
1853 real(RKG) ,
intent(in),
contiguous :: array1(:)
1854 real(RKG) ,
intent(in),
contiguous :: array2(:)
1855 logical(LK) :: compares
This module contains procedures and generic interfaces for performing lexicographic comparisons of tw...
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...