41#define __CONTIGUOUS, contiguous
108 pure elemental module function min_D0_CK5(a1, a2)
result(val)
109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
110 !DEC$ ATTRIBUTES DLLEXPORT :: min_D0_CK5
113 complex(CKG),
intent(in) :: a1, a2
119 pure elemental module function min_D0_CK4(a1, a2)
result(val)
120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
121 !DEC$ ATTRIBUTES DLLEXPORT :: min_D0_CK4
124 complex(CKG),
intent(in) :: a1, a2
130 pure elemental module function min_D0_CK3(a1, a2)
result(val)
131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
132 !DEC$ ATTRIBUTES DLLEXPORT :: min_D0_CK3
135 complex(CKG),
intent(in) :: a1, a2
141 pure elemental module function min_D0_CK2(a1, a2)
result(val)
142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
143 !DEC$ ATTRIBUTES DLLEXPORT :: min_D0_CK2
146 complex(CKG),
intent(in) :: a1, a2
152 pure elemental module function min_D0_CK1(a1, a2)
result(val)
153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
154 !DEC$ ATTRIBUTES DLLEXPORT :: min_D0_CK1
157 complex(CKG),
intent(in) :: a1, a2
222 pure elemental module function max_D0_CK5(a1, a2)
result(val)
223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
224 !DEC$ ATTRIBUTES DLLEXPORT :: max_D0_CK5
227 complex(CKG),
intent(in) :: a1, a2
233 pure elemental module function max_D0_CK4(a1, a2)
result(val)
234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
235 !DEC$ ATTRIBUTES DLLEXPORT :: max_D0_CK4
238 complex(CKG),
intent(in) :: a1, a2
244 pure elemental module function max_D0_CK3(a1, a2)
result(val)
245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
246 !DEC$ ATTRIBUTES DLLEXPORT :: max_D0_CK3
249 complex(CKG),
intent(in) :: a1, a2
255 pure elemental module function max_D0_CK2(a1, a2)
result(val)
256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
257 !DEC$ ATTRIBUTES DLLEXPORT :: max_D0_CK2
260 complex(CKG),
intent(in) :: a1, a2
266 pure elemental module function max_D0_CK1(a1, a2)
result(val)
267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
268 !DEC$ ATTRIBUTES DLLEXPORT :: max_D0_CK1
271 complex(CKG),
intent(in) :: a1, a2
346 pure module function minvalALL_D1_CK5(array)
result(val)
347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
348 !DEC$ ATTRIBUTES DLLEXPORT :: minvalALL_D1_CK5
351 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
357 pure module function minvalALL_D1_CK4(array)
result(val)
358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
359 !DEC$ ATTRIBUTES DLLEXPORT :: minvalALL_D1_CK4
362 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
368 pure module function minvalALL_D1_CK3(array)
result(val)
369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
370 !DEC$ ATTRIBUTES DLLEXPORT :: minvalALL_D1_CK3
373 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
379 pure module function minvalALL_D1_CK2(array)
result(val)
380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
381 !DEC$ ATTRIBUTES DLLEXPORT :: minvalALL_D1_CK2
384 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
390 pure module function minvalALL_D1_CK1(array)
result(val)
391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
392 !DEC$ ATTRIBUTES DLLEXPORT :: minvalALL_D1_CK1
395 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
403 module function minvalALL_D2_CK5(array)
result(val)
404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
405 !DEC$ ATTRIBUTES DLLEXPORT :: minvalALL_D2_CK5
408 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
414 module function minvalALL_D2_CK4(array)
result(val)
415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
416 !DEC$ ATTRIBUTES DLLEXPORT :: minvalALL_D2_CK4
419 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
425 module function minvalALL_D2_CK3(array)
result(val)
426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
427 !DEC$ ATTRIBUTES DLLEXPORT :: minvalALL_D2_CK3
430 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
436 module function minvalALL_D2_CK2(array)
result(val)
437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
438 !DEC$ ATTRIBUTES DLLEXPORT :: minvalALL_D2_CK2
441 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
447 module function minvalALL_D2_CK1(array)
result(val)
448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
449 !DEC$ ATTRIBUTES DLLEXPORT :: minvalALL_D2_CK1
452 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
460 PURE module function minvalDIM_D1_CK5(array, dim)
result(val)
461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
462 !DEC$ ATTRIBUTES DLLEXPORT :: minvalDIM_D1_CK5
465 integer(IK) ,
intent(in) :: dim
466 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
472 PURE module function minvalDIM_D1_CK4(array, dim)
result(val)
473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
474 !DEC$ ATTRIBUTES DLLEXPORT :: minvalDIM_D1_CK4
477 integer(IK) ,
intent(in) :: dim
478 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
484 PURE module function minvalDIM_D1_CK3(array, dim)
result(val)
485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
486 !DEC$ ATTRIBUTES DLLEXPORT :: minvalDIM_D1_CK3
489 integer(IK) ,
intent(in) :: dim
490 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
496 PURE module function minvalDIM_D1_CK2(array, dim)
result(val)
497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
498 !DEC$ ATTRIBUTES DLLEXPORT :: minvalDIM_D1_CK2
501 integer(IK) ,
intent(in) :: dim
502 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
508 PURE module function minvalDIM_D1_CK1(array, dim)
result(val)
509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
510 !DEC$ ATTRIBUTES DLLEXPORT :: minvalDIM_D1_CK1
513 integer(IK) ,
intent(in) :: dim
514 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
522 PURE module function minvalDIM_D2_CK5(array, dim)
result(val)
523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
524 !DEC$ ATTRIBUTES DLLEXPORT :: minvalDIM_D2_CK5
527 integer(IK) ,
intent(in) :: dim
528 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
529 complex(CKG) :: val(
size(array,
3 - dim, IK))
534 PURE module function minvalDIM_D2_CK4(array, dim)
result(val)
535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
536 !DEC$ ATTRIBUTES DLLEXPORT :: minvalDIM_D2_CK4
539 integer(IK) ,
intent(in) :: dim
540 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
541 complex(CKG) :: val(
size(array,
3 - dim, IK))
546 PURE module function minvalDIM_D2_CK3(array, dim)
result(val)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: minvalDIM_D2_CK3
551 integer(IK) ,
intent(in) :: dim
552 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
553 complex(CKG) :: val(
size(array,
3 - dim, IK))
558 PURE module function minvalDIM_D2_CK2(array, dim)
result(val)
559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
560 !DEC$ ATTRIBUTES DLLEXPORT :: minvalDIM_D2_CK2
563 integer(IK) ,
intent(in) :: dim
564 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
565 complex(CKG) :: val(
size(array,
3 - dim, IK))
570 PURE module function minvalDIM_D2_CK1(array, dim)
result(val)
571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
572 !DEC$ ATTRIBUTES DLLEXPORT :: minvalDIM_D2_CK1
575 integer(IK) ,
intent(in) :: dim
576 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
577 complex(CKG) :: val(
size(array,
3 - dim, IK))
651 pure module function maxvalALL_D1_CK5(array)
result(val)
652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
653 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalALL_D1_CK5
656 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
662 pure module function maxvalALL_D1_CK4(array)
result(val)
663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
664 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalALL_D1_CK4
667 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
673 pure module function maxvalALL_D1_CK3(array)
result(val)
674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
675 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalALL_D1_CK3
678 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
684 pure module function maxvalALL_D1_CK2(array)
result(val)
685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
686 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalALL_D1_CK2
689 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
695 pure module function maxvalALL_D1_CK1(array)
result(val)
696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
697 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalALL_D1_CK1
700 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
708 module function maxvalALL_D2_CK5(array)
result(val)
709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
710 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalALL_D2_CK5
713 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
719 module function maxvalALL_D2_CK4(array)
result(val)
720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
721 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalALL_D2_CK4
724 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
730 module function maxvalALL_D2_CK3(array)
result(val)
731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
732 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalALL_D2_CK3
735 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
741 module function maxvalALL_D2_CK2(array)
result(val)
742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
743 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalALL_D2_CK2
746 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
752 module function maxvalALL_D2_CK1(array)
result(val)
753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
754 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalALL_D2_CK1
757 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
765 PURE module function maxvalDIM_D1_CK5(array, dim)
result(val)
766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
767 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalDIM_D1_CK5
770 integer(IK) ,
intent(in) :: dim
771 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
777 PURE module function maxvalDIM_D1_CK4(array, dim)
result(val)
778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
779 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalDIM_D1_CK4
782 integer(IK) ,
intent(in) :: dim
783 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
789 PURE module function maxvalDIM_D1_CK3(array, dim)
result(val)
790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
791 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalDIM_D1_CK3
794 integer(IK) ,
intent(in) :: dim
795 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
801 PURE module function maxvalDIM_D1_CK2(array, dim)
result(val)
802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
803 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalDIM_D1_CK2
806 integer(IK) ,
intent(in) :: dim
807 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
813 PURE module function maxvalDIM_D1_CK1(array, dim)
result(val)
814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
815 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalDIM_D1_CK1
818 integer(IK) ,
intent(in) :: dim
819 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
827 PURE module function maxvalDIM_D2_CK5(array, dim)
result(val)
828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
829 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalDIM_D2_CK5
832 integer(IK) ,
intent(in) :: dim
833 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
834 complex(CKG) :: val(
size(array,
3 - dim, IK))
839 PURE module function maxvalDIM_D2_CK4(array, dim)
result(val)
840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
841 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalDIM_D2_CK4
844 integer(IK) ,
intent(in) :: dim
845 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
846 complex(CKG) :: val(
size(array,
3 - dim, IK))
851 PURE module function maxvalDIM_D2_CK3(array, dim)
result(val)
852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
853 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalDIM_D2_CK3
856 integer(IK) ,
intent(in) :: dim
857 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
858 complex(CKG) :: val(
size(array,
3 - dim, IK))
863 PURE module function maxvalDIM_D2_CK2(array, dim)
result(val)
864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
865 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalDIM_D2_CK2
868 integer(IK) ,
intent(in) :: dim
869 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
870 complex(CKG) :: val(
size(array,
3 - dim, IK))
875 PURE module function maxvalDIM_D2_CK1(array, dim)
result(val)
876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
877 !DEC$ ATTRIBUTES DLLEXPORT :: maxvalDIM_D2_CK1
880 integer(IK) ,
intent(in) :: dim
881 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
882 complex(CKG) :: val(
size(array,
3 - dim, IK))
969 pure module function minlocALL_D1_CK5(array)
result(loc)
970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
971 !DEC$ ATTRIBUTES DLLEXPORT :: minlocALL_D1_CK5
974 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
975 integer(IK) :: loc(
2)
980 pure module function minlocALL_D1_CK4(array)
result(loc)
981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
982 !DEC$ ATTRIBUTES DLLEXPORT :: minlocALL_D1_CK4
985 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
986 integer(IK) :: loc(
2)
991 pure module function minlocALL_D1_CK3(array)
result(loc)
992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
993 !DEC$ ATTRIBUTES DLLEXPORT :: minlocALL_D1_CK3
996 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
997 integer(IK) :: loc(
2)
1002 pure module function minlocALL_D1_CK2(array)
result(loc)
1003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1004 !DEC$ ATTRIBUTES DLLEXPORT :: minlocALL_D1_CK2
1007 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1008 integer(IK) :: loc(
2)
1013 pure module function minlocALL_D1_CK1(array)
result(loc)
1014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1015 !DEC$ ATTRIBUTES DLLEXPORT :: minlocALL_D1_CK1
1018 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1019 integer(IK) :: loc(
2)
1026 module function minlocALL_D2_CK5(array)
result(loc)
1027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1028 !DEC$ ATTRIBUTES DLLEXPORT :: minlocALL_D2_CK5
1031 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
1032 integer(IK) :: loc(
2)
1037 module function minlocALL_D2_CK4(array)
result(loc)
1038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1039 !DEC$ ATTRIBUTES DLLEXPORT :: minlocALL_D2_CK4
1042 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
1043 integer(IK) :: loc(
2)
1048 module function minlocALL_D2_CK3(array)
result(loc)
1049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1050 !DEC$ ATTRIBUTES DLLEXPORT :: minlocALL_D2_CK3
1053 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
1054 integer(IK) :: loc(
2)
1059 module function minlocALL_D2_CK2(array)
result(loc)
1060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1061 !DEC$ ATTRIBUTES DLLEXPORT :: minlocALL_D2_CK2
1064 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
1065 integer(IK) :: loc(
2)
1070 module function minlocALL_D2_CK1(array)
result(loc)
1071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1072 !DEC$ ATTRIBUTES DLLEXPORT :: minlocALL_D2_CK1
1075 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
1076 integer(IK) :: loc(
2)
1083 PURE module function minlocDIM_D1_CK5(array, dim)
result(loc)
1084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1085 !DEC$ ATTRIBUTES DLLEXPORT :: minlocDIM_D1_CK5
1088 integer(IK) ,
intent(in) :: dim
1089 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1090 integer(IK) :: loc(
2)
1095 PURE module function minlocDIM_D1_CK4(array, dim)
result(loc)
1096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1097 !DEC$ ATTRIBUTES DLLEXPORT :: minlocDIM_D1_CK4
1100 integer(IK) ,
intent(in) :: dim
1101 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1102 integer(IK) :: loc(
2)
1107 PURE module function minlocDIM_D1_CK3(array, dim)
result(loc)
1108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1109 !DEC$ ATTRIBUTES DLLEXPORT :: minlocDIM_D1_CK3
1112 integer(IK) ,
intent(in) :: dim
1113 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1114 integer(IK) :: loc(
2)
1119 PURE module function minlocDIM_D1_CK2(array, dim)
result(loc)
1120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1121 !DEC$ ATTRIBUTES DLLEXPORT :: minlocDIM_D1_CK2
1124 integer(IK) ,
intent(in) :: dim
1125 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1126 integer(IK) :: loc(
2)
1131 PURE module function minlocDIM_D1_CK1(array, dim)
result(loc)
1132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1133 !DEC$ ATTRIBUTES DLLEXPORT :: minlocDIM_D1_CK1
1136 integer(IK) ,
intent(in) :: dim
1137 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1138 integer(IK) :: loc(
2)
1145 PURE module function minlocDIM_D2_CK5(array, dim)
result(loc)
1146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1147 !DEC$ ATTRIBUTES DLLEXPORT :: minlocDIM_D2_CK5
1150 integer(IK) ,
intent(in) :: dim
1151 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
1152 integer(IK) :: loc(
2,
size(array,
3 - dim, IK))
1157 PURE module function minlocDIM_D2_CK4(array, dim)
result(loc)
1158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1159 !DEC$ ATTRIBUTES DLLEXPORT :: minlocDIM_D2_CK4
1162 integer(IK) ,
intent(in) :: dim
1163 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
1164 integer(IK) :: loc(
2,
size(array,
3 - dim, IK))
1169 PURE module function minlocDIM_D2_CK3(array, dim)
result(loc)
1170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1171 !DEC$ ATTRIBUTES DLLEXPORT :: minlocDIM_D2_CK3
1174 integer(IK) ,
intent(in) :: dim
1175 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
1176 integer(IK) :: loc(
2,
size(array,
3 - dim, IK))
1181 PURE module function minlocDIM_D2_CK2(array, dim)
result(loc)
1182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1183 !DEC$ ATTRIBUTES DLLEXPORT :: minlocDIM_D2_CK2
1186 integer(IK) ,
intent(in) :: dim
1187 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
1188 integer(IK) :: loc(
2,
size(array,
3 - dim, IK))
1193 PURE module function minlocDIM_D2_CK1(array, dim)
result(loc)
1194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1195 !DEC$ ATTRIBUTES DLLEXPORT :: minlocDIM_D2_CK1
1198 integer(IK) ,
intent(in) :: dim
1199 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
1200 integer(IK) :: loc(
2,
size(array,
3 - dim, IK))
1287 pure module function maxlocALL_D1_CK5(array)
result(loc)
1288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1289 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocALL_D1_CK5
1292 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1293 integer(IK) :: loc(
2)
1298 pure module function maxlocALL_D1_CK4(array)
result(loc)
1299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1300 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocALL_D1_CK4
1303 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1304 integer(IK) :: loc(
2)
1309 pure module function maxlocALL_D1_CK3(array)
result(loc)
1310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1311 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocALL_D1_CK3
1314 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1315 integer(IK) :: loc(
2)
1320 pure module function maxlocALL_D1_CK2(array)
result(loc)
1321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1322 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocALL_D1_CK2
1325 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1326 integer(IK) :: loc(
2)
1331 pure module function maxlocALL_D1_CK1(array)
result(loc)
1332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1333 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocALL_D1_CK1
1336 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1337 integer(IK) :: loc(
2)
1344 module function maxlocALL_D2_CK5(array)
result(loc)
1345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1346 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocALL_D2_CK5
1349 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
1350 integer(IK) :: loc(
2)
1355 module function maxlocALL_D2_CK4(array)
result(loc)
1356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1357 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocALL_D2_CK4
1360 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
1361 integer(IK) :: loc(
2)
1366 module function maxlocALL_D2_CK3(array)
result(loc)
1367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1368 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocALL_D2_CK3
1371 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
1372 integer(IK) :: loc(
2)
1377 module function maxlocALL_D2_CK2(array)
result(loc)
1378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1379 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocALL_D2_CK2
1382 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
1383 integer(IK) :: loc(
2)
1388 module function maxlocALL_D2_CK1(array)
result(loc)
1389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1390 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocALL_D2_CK1
1393 complex(CKG),
intent(in) ,
contiguous,
target :: array(:,:)
1394 integer(IK) :: loc(
2)
1401 PURE module function maxlocDIM_D1_CK5(array, dim)
result(loc)
1402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1403 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocDIM_D1_CK5
1406 integer(IK) ,
intent(in) :: dim
1407 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1408 integer(IK) :: loc(
2)
1413 PURE module function maxlocDIM_D1_CK4(array, dim)
result(loc)
1414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1415 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocDIM_D1_CK4
1418 integer(IK) ,
intent(in) :: dim
1419 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1420 integer(IK) :: loc(
2)
1425 PURE module function maxlocDIM_D1_CK3(array, dim)
result(loc)
1426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1427 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocDIM_D1_CK3
1430 integer(IK) ,
intent(in) :: dim
1431 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1432 integer(IK) :: loc(
2)
1437 PURE module function maxlocDIM_D1_CK2(array, dim)
result(loc)
1438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1439 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocDIM_D1_CK2
1442 integer(IK) ,
intent(in) :: dim
1443 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1444 integer(IK) :: loc(
2)
1449 PURE module function maxlocDIM_D1_CK1(array, dim)
result(loc)
1450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1451 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocDIM_D1_CK1
1454 integer(IK) ,
intent(in) :: dim
1455 complex(CKG), intent(in) __CONTIGUOUS :: array(:)
1456 integer(IK) :: loc(
2)
1463 PURE module function maxlocDIM_D2_CK5(array, dim)
result(loc)
1464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1465 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocDIM_D2_CK5
1468 integer(IK) ,
intent(in) :: dim
1469 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
1470 integer(IK) :: loc(
2,
size(array,
3 - dim, IK))
1475 PURE module function maxlocDIM_D2_CK4(array, dim)
result(loc)
1476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1477 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocDIM_D2_CK4
1480 integer(IK) ,
intent(in) :: dim
1481 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
1482 integer(IK) :: loc(
2,
size(array,
3 - dim, IK))
1487 PURE module function maxlocDIM_D2_CK3(array, dim)
result(loc)
1488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1489 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocDIM_D2_CK3
1492 integer(IK) ,
intent(in) :: dim
1493 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
1494 integer(IK) :: loc(
2,
size(array,
3 - dim, IK))
1499 PURE module function maxlocDIM_D2_CK2(array, dim)
result(loc)
1500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1501 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocDIM_D2_CK2
1504 integer(IK) ,
intent(in) :: dim
1505 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
1506 integer(IK) :: loc(
2,
size(array,
3 - dim, IK))
1511 PURE module function maxlocDIM_D2_CK1(array, dim)
result(loc)
1512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1513 !DEC$ ATTRIBUTES DLLEXPORT :: maxlocDIM_D2_CK1
1516 integer(IK) ,
intent(in) :: dim
1517 complex(CKG), intent(in) __CONTIGUOUS :: array(:,:)
1518 integer(IK) :: loc(
2,
size(array,
3 - dim, IK))
Generate and return the component-wise maximum value of (both real and imaginary parts of) the input ...
Generate and return the component-wise location of the maximum value of (both real and imaginary part...
Generate and return the component-wise maximum value of (both real and imaginary parts of) the input ...
Generate and return the component-wise minimum value of (both real and imaginary parts of) the input ...
Generate and return the component-wise location of the minimum value of (both real and imaginary part...
Generate and return the component-wise minimum value of (both real and imaginary parts of) the input ...
This module contains procedures and generic interfaces for computing element-wise minimum/maximum val...
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
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...