23#define LEN_STR len(array,IK)
131 PURE module function getCompact_D0_SK5(array)
result(compact)
132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
133 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D0_SK5
136 character(
*,SKG) ,
intent(in) :: array
137 character(:,SKG) ,
allocatable :: compact
142 PURE module function getCompact_D0_SK4(array)
result(compact)
143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
144 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D0_SK4
147 character(
*,SKG) ,
intent(in) :: array
148 character(:,SKG) ,
allocatable :: compact
153 PURE module function getCompact_D0_SK3(array)
result(compact)
154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
155 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D0_SK3
158 character(
*,SKG) ,
intent(in) :: array
159 character(:,SKG) ,
allocatable :: compact
164 PURE module function getCompact_D0_SK2(array)
result(compact)
165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
166 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D0_SK2
169 character(
*,SKG) ,
intent(in) :: array
170 character(:,SKG) ,
allocatable :: compact
175 PURE module function getCompact_D0_SK1(array)
result(compact)
176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
177 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D0_SK1
180 character(
*,SKG) ,
intent(in) :: array
181 character(:,SKG) ,
allocatable :: compact
194 PURE module function getCompact_D1_SK5(array)
result(compact)
195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
196 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_SK5
199 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
200 character(LEN_STR,SKG) ,
allocatable :: compact(:)
205 PURE module function getCompact_D1_SK4(array)
result(compact)
206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
207 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_SK4
210 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
211 character(LEN_STR,SKG) ,
allocatable :: compact(:)
216 PURE module function getCompact_D1_SK3(array)
result(compact)
217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
218 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_SK3
221 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
222 character(LEN_STR,SKG) ,
allocatable :: compact(:)
227 PURE module function getCompact_D1_SK2(array)
result(compact)
228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
229 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_SK2
232 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
233 character(LEN_STR,SKG) ,
allocatable :: compact(:)
238 PURE module function getCompact_D1_SK1(array)
result(compact)
239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
240 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_SK1
243 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
244 character(LEN_STR,SKG) ,
allocatable :: compact(:)
251 PURE module function getCompact_D1_IK5(array)
result(compact)
252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
253 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_IK5
256 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
257 integer(IKG) ,
allocatable :: compact(:)
262 PURE module function getCompact_D1_IK4(array)
result(compact)
263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
264 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_IK4
267 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
268 integer(IKG) ,
allocatable :: compact(:)
273 PURE module function getCompact_D1_IK3(array)
result(compact)
274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
275 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_IK3
278 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
279 integer(IKG) ,
allocatable :: compact(:)
284 PURE module function getCompact_D1_IK2(array)
result(compact)
285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
286 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_IK2
289 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
290 integer(IKG) ,
allocatable :: compact(:)
295 PURE module function getCompact_D1_IK1(array)
result(compact)
296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
297 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_IK1
300 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
301 integer(IKG) ,
allocatable :: compact(:)
308 PURE module function getCompact_D1_LK5(array)
result(compact)
309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
310 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_LK5
313 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
314 logical(LKG) ,
allocatable :: compact(:)
319 PURE module function getCompact_D1_LK4(array)
result(compact)
320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
321 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_LK4
324 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
325 logical(LKG) ,
allocatable :: compact(:)
330 PURE module function getCompact_D1_LK3(array)
result(compact)
331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
332 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_LK3
335 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
336 logical(LKG) ,
allocatable :: compact(:)
341 PURE module function getCompact_D1_LK2(array)
result(compact)
342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
343 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_LK2
346 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
347 logical(LKG) ,
allocatable :: compact(:)
352 PURE module function getCompact_D1_LK1(array)
result(compact)
353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
354 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_LK1
357 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
358 logical(LKG) ,
allocatable :: compact(:)
365 PURE module function getCompact_D1_CK5(array)
result(compact)
366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
367 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_CK5
370 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
371 complex(CKG) ,
allocatable :: compact(:)
376 PURE module function getCompact_D1_CK4(array)
result(compact)
377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
378 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_CK4
381 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
382 complex(CKG) ,
allocatable :: compact(:)
387 PURE module function getCompact_D1_CK3(array)
result(compact)
388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
389 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_CK3
392 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
393 complex(CKG) ,
allocatable :: compact(:)
398 PURE module function getCompact_D1_CK2(array)
result(compact)
399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
400 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_CK2
403 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
404 complex(CKG) ,
allocatable :: compact(:)
409 PURE module function getCompact_D1_CK1(array)
result(compact)
410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
411 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_CK1
414 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
415 complex(CKG) ,
allocatable :: compact(:)
422 PURE module function getCompact_D1_RK5(array)
result(compact)
423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
424 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_RK5
427 real(RKG) ,
intent(in) ,
contiguous :: array(:)
428 real(RKG) ,
allocatable :: compact(:)
433 PURE module function getCompact_D1_RK4(array)
result(compact)
434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
435 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_RK4
438 real(RKG) ,
intent(in) ,
contiguous :: array(:)
439 real(RKG) ,
allocatable :: compact(:)
444 PURE module function getCompact_D1_RK3(array)
result(compact)
445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
446 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_RK3
449 real(RKG) ,
intent(in) ,
contiguous :: array(:)
450 real(RKG) ,
allocatable :: compact(:)
455 PURE module function getCompact_D1_RK2(array)
result(compact)
456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
457 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_RK2
460 real(RKG) ,
intent(in) ,
contiguous :: array(:)
461 real(RKG) ,
allocatable :: compact(:)
466 PURE module function getCompact_D1_RK1(array)
result(compact)
467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
468 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D1_RK1
471 real(RKG) ,
intent(in) ,
contiguous :: array(:)
472 real(RKG) ,
allocatable :: compact(:)
485 PURE module function getCompact_D2_SK5(array, dim)
result(compact)
486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
487 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_SK5
490 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:,:)
491 integer(IK) ,
intent(in) :: dim
492 character(LEN_STR,SKG) ,
allocatable :: compact(:,:)
497 PURE module function getCompact_D2_SK4(array, dim)
result(compact)
498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
499 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_SK4
502 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:,:)
503 integer(IK) ,
intent(in) :: dim
504 character(LEN_STR,SKG) ,
allocatable :: compact(:,:)
509 PURE module function getCompact_D2_SK3(array, dim)
result(compact)
510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
511 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_SK3
514 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:,:)
515 integer(IK) ,
intent(in) :: dim
516 character(LEN_STR,SKG) ,
allocatable :: compact(:,:)
521 PURE module function getCompact_D2_SK2(array, dim)
result(compact)
522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
523 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_SK2
526 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:,:)
527 integer(IK) ,
intent(in) :: dim
528 character(LEN_STR,SKG) ,
allocatable :: compact(:,:)
533 PURE module function getCompact_D2_SK1(array, dim)
result(compact)
534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
535 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_SK1
538 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:,:)
539 integer(IK) ,
intent(in) :: dim
540 character(LEN_STR,SKG) ,
allocatable :: compact(:,:)
547 PURE module function getCompact_D2_IK5(array, dim)
result(compact)
548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
549 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_IK5
552 integer(IKG) ,
intent(in) ,
contiguous :: array(:,:)
553 integer(IK) ,
intent(in) :: dim
554 integer(IKG) ,
allocatable :: compact(:,:)
559 PURE module function getCompact_D2_IK4(array, dim)
result(compact)
560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
561 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_IK4
564 integer(IKG) ,
intent(in) ,
contiguous :: array(:,:)
565 integer(IK) ,
intent(in) :: dim
566 integer(IKG) ,
allocatable :: compact(:,:)
571 PURE module function getCompact_D2_IK3(array, dim)
result(compact)
572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
573 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_IK3
576 integer(IKG) ,
intent(in) ,
contiguous :: array(:,:)
577 integer(IK) ,
intent(in) :: dim
578 integer(IKG) ,
allocatable :: compact(:,:)
583 PURE module function getCompact_D2_IK2(array, dim)
result(compact)
584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
585 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_IK2
588 integer(IKG) ,
intent(in) ,
contiguous :: array(:,:)
589 integer(IK) ,
intent(in) :: dim
590 integer(IKG) ,
allocatable :: compact(:,:)
595 PURE module function getCompact_D2_IK1(array, dim)
result(compact)
596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
597 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_IK1
600 integer(IKG) ,
intent(in) ,
contiguous :: array(:,:)
601 integer(IK) ,
intent(in) :: dim
602 integer(IKG) ,
allocatable :: compact(:,:)
609 PURE module function getCompact_D2_LK5(array, dim)
result(compact)
610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
611 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_LK5
614 logical(LKG) ,
intent(in) ,
contiguous :: array(:,:)
615 integer(IK) ,
intent(in) :: dim
616 logical(LKG) ,
allocatable :: compact(:,:)
621 PURE module function getCompact_D2_LK4(array, dim)
result(compact)
622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
623 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_LK4
626 logical(LKG) ,
intent(in) ,
contiguous :: array(:,:)
627 integer(IK) ,
intent(in) :: dim
628 logical(LKG) ,
allocatable :: compact(:,:)
633 PURE module function getCompact_D2_LK3(array, dim)
result(compact)
634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
635 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_LK3
638 logical(LKG) ,
intent(in) ,
contiguous :: array(:,:)
639 integer(IK) ,
intent(in) :: dim
640 logical(LKG) ,
allocatable :: compact(:,:)
645 PURE module function getCompact_D2_LK2(array, dim)
result(compact)
646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
647 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_LK2
650 logical(LKG) ,
intent(in) ,
contiguous :: array(:,:)
651 integer(IK) ,
intent(in) :: dim
652 logical(LKG) ,
allocatable :: compact(:,:)
657 PURE module function getCompact_D2_LK1(array, dim)
result(compact)
658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
659 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_LK1
662 logical(LKG) ,
intent(in) ,
contiguous :: array(:,:)
663 integer(IK) ,
intent(in) :: dim
664 logical(LKG) ,
allocatable :: compact(:,:)
671 PURE module function getCompact_D2_CK5(array, dim)
result(compact)
672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
673 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_CK5
676 complex(CKG) ,
intent(in) ,
contiguous :: array(:,:)
677 integer(IK) ,
intent(in) :: dim
678 complex(CKG) ,
allocatable :: compact(:,:)
683 PURE module function getCompact_D2_CK4(array, dim)
result(compact)
684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
685 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_CK4
688 complex(CKG) ,
intent(in) ,
contiguous :: array(:,:)
689 integer(IK) ,
intent(in) :: dim
690 complex(CKG) ,
allocatable :: compact(:,:)
695 PURE module function getCompact_D2_CK3(array, dim)
result(compact)
696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
697 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_CK3
700 complex(CKG) ,
intent(in) ,
contiguous :: array(:,:)
701 integer(IK) ,
intent(in) :: dim
702 complex(CKG) ,
allocatable :: compact(:,:)
707 PURE module function getCompact_D2_CK2(array, dim)
result(compact)
708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
709 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_CK2
712 complex(CKG) ,
intent(in) ,
contiguous :: array(:,:)
713 integer(IK) ,
intent(in) :: dim
714 complex(CKG) ,
allocatable :: compact(:,:)
719 PURE module function getCompact_D2_CK1(array, dim)
result(compact)
720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
721 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_CK1
724 complex(CKG) ,
intent(in) ,
contiguous :: array(:,:)
725 integer(IK) ,
intent(in) :: dim
726 complex(CKG) ,
allocatable :: compact(:,:)
733 PURE module function getCompact_D2_RK5(array, dim)
result(compact)
734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
735 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_RK5
738 real(RKG) ,
intent(in) ,
contiguous :: array(:,:)
739 integer(IK) ,
intent(in) :: dim
740 real(RKG) ,
allocatable :: compact(:,:)
745 PURE module function getCompact_D2_RK4(array, dim)
result(compact)
746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
747 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_RK4
750 real(RKG) ,
intent(in) ,
contiguous :: array(:,:)
751 integer(IK) ,
intent(in) :: dim
752 real(RKG) ,
allocatable :: compact(:,:)
757 PURE module function getCompact_D2_RK3(array, dim)
result(compact)
758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
759 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_RK3
762 real(RKG) ,
intent(in) ,
contiguous :: array(:,:)
763 integer(IK) ,
intent(in) :: dim
764 real(RKG) ,
allocatable :: compact(:,:)
769 PURE module function getCompact_D2_RK2(array, dim)
result(compact)
770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
771 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_RK2
774 real(RKG) ,
intent(in) ,
contiguous :: array(:,:)
775 integer(IK) ,
intent(in) :: dim
776 real(RKG) ,
allocatable :: compact(:,:)
781 PURE module function getCompact_D2_RK1(array, dim)
result(compact)
782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
783 !DEC$ ATTRIBUTES DLLEXPORT :: getCompact_D2_RK1
786 real(RKG) ,
intent(in) ,
contiguous :: array(:,:)
787 integer(IK) ,
intent(in) :: dim
788 real(RKG) ,
allocatable :: compact(:,:)
874 PURE module subroutine setCompact_D0_SK5(array, weight, csize)
875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
876 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D0_SK5
879 character(
*,SKG) ,
intent(inout) :: array
880 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
881 integer(IK) ,
intent(out) :: csize
886 PURE module subroutine setCompact_D0_SK4(array, weight, csize)
887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
888 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D0_SK4
891 character(
*,SKG) ,
intent(inout) :: array
892 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
893 integer(IK) ,
intent(out) :: csize
898 PURE module subroutine setCompact_D0_SK3(array, weight, csize)
899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
900 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D0_SK3
903 character(
*,SKG) ,
intent(inout) :: array
904 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
905 integer(IK) ,
intent(out) :: csize
910 PURE module subroutine setCompact_D0_SK2(array, weight, csize)
911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
912 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D0_SK2
915 character(
*,SKG) ,
intent(inout) :: array
916 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
917 integer(IK) ,
intent(out) :: csize
922 PURE module subroutine setCompact_D0_SK1(array, weight, csize)
923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
924 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D0_SK1
927 character(
*,SKG) ,
intent(inout) :: array
928 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
929 integer(IK) ,
intent(out) :: csize
942 PURE module subroutine setCompact_D1_SK5(array, weight, csize)
943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
944 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_SK5
947 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
948 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
949 integer(IK) ,
intent(out) :: csize
954 PURE module subroutine setCompact_D1_SK4(array, weight, csize)
955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
956 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_SK4
959 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
960 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
961 integer(IK) ,
intent(out) :: csize
966 PURE module subroutine setCompact_D1_SK3(array, weight, csize)
967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
968 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_SK3
971 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
972 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
973 integer(IK) ,
intent(out) :: csize
978 PURE module subroutine setCompact_D1_SK2(array, weight, csize)
979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
980 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_SK2
983 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
984 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
985 integer(IK) ,
intent(out) :: csize
990 PURE module subroutine setCompact_D1_SK1(array, weight, csize)
991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
992 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_SK1
995 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
996 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
997 integer(IK) ,
intent(out) :: csize
1004 PURE module subroutine setCompact_D1_IK5(array, weight, csize)
1005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1006 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_IK5
1009 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1010 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1011 integer(IK) ,
intent(out) :: csize
1016 PURE module subroutine setCompact_D1_IK4(array, weight, csize)
1017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1018 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_IK4
1021 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1022 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1023 integer(IK) ,
intent(out) :: csize
1028 PURE module subroutine setCompact_D1_IK3(array, weight, csize)
1029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1030 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_IK3
1033 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1034 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1035 integer(IK) ,
intent(out) :: csize
1040 PURE module subroutine setCompact_D1_IK2(array, weight, csize)
1041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1042 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_IK2
1045 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1046 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1047 integer(IK) ,
intent(out) :: csize
1052 PURE module subroutine setCompact_D1_IK1(array, weight, csize)
1053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1054 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_IK1
1057 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1058 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1059 integer(IK) ,
intent(out) :: csize
1066 PURE module subroutine setCompact_D1_LK5(array, weight, csize)
1067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1068 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_LK5
1071 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1072 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1073 integer(IK) ,
intent(out) :: csize
1078 PURE module subroutine setCompact_D1_LK4(array, weight, csize)
1079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1080 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_LK4
1083 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1084 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1085 integer(IK) ,
intent(out) :: csize
1090 PURE module subroutine setCompact_D1_LK3(array, weight, csize)
1091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1092 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_LK3
1095 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1096 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1097 integer(IK) ,
intent(out) :: csize
1102 PURE module subroutine setCompact_D1_LK2(array, weight, csize)
1103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1104 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_LK2
1107 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1108 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1109 integer(IK) ,
intent(out) :: csize
1114 PURE module subroutine setCompact_D1_LK1(array, weight, csize)
1115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1116 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_LK1
1119 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1120 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1121 integer(IK) ,
intent(out) :: csize
1128 PURE module subroutine setCompact_D1_CK5(array, weight, csize)
1129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1130 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_CK5
1133 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1134 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1135 integer(IK) ,
intent(out) :: csize
1140 PURE module subroutine setCompact_D1_CK4(array, weight, csize)
1141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1142 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_CK4
1145 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1146 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1147 integer(IK) ,
intent(out) :: csize
1152 PURE module subroutine setCompact_D1_CK3(array, weight, csize)
1153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1154 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_CK3
1157 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1158 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1159 integer(IK) ,
intent(out) :: csize
1164 PURE module subroutine setCompact_D1_CK2(array, weight, csize)
1165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1166 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_CK2
1169 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1170 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1171 integer(IK) ,
intent(out) :: csize
1176 PURE module subroutine setCompact_D1_CK1(array, weight, csize)
1177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1178 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_CK1
1181 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
1182 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1183 integer(IK) ,
intent(out) :: csize
1190 PURE module subroutine setCompact_D1_RK5(array, weight, csize)
1191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1192 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_RK5
1195 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1196 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1197 integer(IK) ,
intent(out) :: csize
1202 PURE module subroutine setCompact_D1_RK4(array, weight, csize)
1203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1204 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_RK4
1207 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1208 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1209 integer(IK) ,
intent(out) :: csize
1214 PURE module subroutine setCompact_D1_RK3(array, weight, csize)
1215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1216 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_RK3
1219 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1220 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1221 integer(IK) ,
intent(out) :: csize
1226 PURE module subroutine setCompact_D1_RK2(array, weight, csize)
1227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1228 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_RK2
1231 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1232 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1233 integer(IK) ,
intent(out) :: csize
1238 PURE module subroutine setCompact_D1_RK1(array, weight, csize)
1239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1240 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D1_RK1
1243 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
1244 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1245 integer(IK) ,
intent(out) :: csize
1258 PURE module subroutine setCompact_D2_SK5(array, weight, csize, dim)
1259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1260 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_SK5
1263 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:,:)
1264 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1265 integer(IK) ,
intent(out) :: csize
1266 integer(IK) ,
intent(in) :: dim
1271 PURE module subroutine setCompact_D2_SK4(array, weight, csize, dim)
1272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1273 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_SK4
1276 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:,:)
1277 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1278 integer(IK) ,
intent(out) :: csize
1279 integer(IK) ,
intent(in) :: dim
1284 PURE module subroutine setCompact_D2_SK3(array, weight, csize, dim)
1285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1286 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_SK3
1289 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:,:)
1290 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1291 integer(IK) ,
intent(out) :: csize
1292 integer(IK) ,
intent(in) :: dim
1297 PURE module subroutine setCompact_D2_SK2(array, weight, csize, dim)
1298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1299 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_SK2
1302 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:,:)
1303 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1304 integer(IK) ,
intent(out) :: csize
1305 integer(IK) ,
intent(in) :: dim
1310 PURE module subroutine setCompact_D2_SK1(array, weight, csize, dim)
1311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1312 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_SK1
1315 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:,:)
1316 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1317 integer(IK) ,
intent(out) :: csize
1318 integer(IK) ,
intent(in) :: dim
1325 PURE module subroutine setCompact_D2_IK5(array, weight, csize, dim)
1326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1327 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_IK5
1330 integer(IKG) ,
intent(inout) ,
contiguous :: array(:,:)
1331 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1332 integer(IK) ,
intent(out) :: csize
1333 integer(IK) ,
intent(in) :: dim
1338 PURE module subroutine setCompact_D2_IK4(array, weight, csize, dim)
1339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1340 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_IK4
1343 integer(IKG) ,
intent(inout) ,
contiguous :: array(:,:)
1344 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1345 integer(IK) ,
intent(out) :: csize
1346 integer(IK) ,
intent(in) :: dim
1351 PURE module subroutine setCompact_D2_IK3(array, weight, csize, dim)
1352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1353 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_IK3
1356 integer(IKG) ,
intent(inout) ,
contiguous :: array(:,:)
1357 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1358 integer(IK) ,
intent(out) :: csize
1359 integer(IK) ,
intent(in) :: dim
1364 PURE module subroutine setCompact_D2_IK2(array, weight, csize, dim)
1365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1366 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_IK2
1369 integer(IKG) ,
intent(inout) ,
contiguous :: array(:,:)
1370 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1371 integer(IK) ,
intent(out) :: csize
1372 integer(IK) ,
intent(in) :: dim
1377 PURE module subroutine setCompact_D2_IK1(array, weight, csize, dim)
1378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1379 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_IK1
1382 integer(IKG) ,
intent(inout) ,
contiguous :: array(:,:)
1383 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1384 integer(IK) ,
intent(out) :: csize
1385 integer(IK) ,
intent(in) :: dim
1392 PURE module subroutine setCompact_D2_LK5(array, weight, csize, dim)
1393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1394 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_LK5
1397 logical(LKG) ,
intent(inout) ,
contiguous :: array(:,:)
1398 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1399 integer(IK) ,
intent(out) :: csize
1400 integer(IK) ,
intent(in) :: dim
1405 PURE module subroutine setCompact_D2_LK4(array, weight, csize, dim)
1406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1407 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_LK4
1410 logical(LKG) ,
intent(inout) ,
contiguous :: array(:,:)
1411 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1412 integer(IK) ,
intent(out) :: csize
1413 integer(IK) ,
intent(in) :: dim
1418 PURE module subroutine setCompact_D2_LK3(array, weight, csize, dim)
1419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1420 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_LK3
1423 logical(LKG) ,
intent(inout) ,
contiguous :: array(:,:)
1424 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1425 integer(IK) ,
intent(out) :: csize
1426 integer(IK) ,
intent(in) :: dim
1431 PURE module subroutine setCompact_D2_LK2(array, weight, csize, dim)
1432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1433 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_LK2
1436 logical(LKG) ,
intent(inout) ,
contiguous :: array(:,:)
1437 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1438 integer(IK) ,
intent(out) :: csize
1439 integer(IK) ,
intent(in) :: dim
1444 PURE module subroutine setCompact_D2_LK1(array, weight, csize, dim)
1445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1446 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_LK1
1449 logical(LKG) ,
intent(inout) ,
contiguous :: array(:,:)
1450 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1451 integer(IK) ,
intent(out) :: csize
1452 integer(IK) ,
intent(in) :: dim
1459 PURE module subroutine setCompact_D2_CK5(array, weight, csize, dim)
1460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1461 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_CK5
1464 complex(CKG) ,
intent(inout) ,
contiguous :: array(:,:)
1465 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1466 integer(IK) ,
intent(out) :: csize
1467 integer(IK) ,
intent(in) :: dim
1472 PURE module subroutine setCompact_D2_CK4(array, weight, csize, dim)
1473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1474 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_CK4
1477 complex(CKG) ,
intent(inout) ,
contiguous :: array(:,:)
1478 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1479 integer(IK) ,
intent(out) :: csize
1480 integer(IK) ,
intent(in) :: dim
1485 PURE module subroutine setCompact_D2_CK3(array, weight, csize, dim)
1486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1487 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_CK3
1490 complex(CKG) ,
intent(inout) ,
contiguous :: array(:,:)
1491 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1492 integer(IK) ,
intent(out) :: csize
1493 integer(IK) ,
intent(in) :: dim
1498 PURE module subroutine setCompact_D2_CK2(array, weight, csize, dim)
1499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1500 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_CK2
1503 complex(CKG) ,
intent(inout) ,
contiguous :: array(:,:)
1504 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1505 integer(IK) ,
intent(out) :: csize
1506 integer(IK) ,
intent(in) :: dim
1511 PURE module subroutine setCompact_D2_CK1(array, weight, csize, dim)
1512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1513 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_CK1
1516 complex(CKG) ,
intent(inout) ,
contiguous :: array(:,:)
1517 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1518 integer(IK) ,
intent(out) :: csize
1519 integer(IK) ,
intent(in) :: dim
1526 PURE module subroutine setCompact_D2_RK5(array, weight, csize, dim)
1527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1528 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_RK5
1531 real(RKG) ,
intent(inout) ,
contiguous :: array(:,:)
1532 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1533 integer(IK) ,
intent(out) :: csize
1534 integer(IK) ,
intent(in) :: dim
1539 PURE module subroutine setCompact_D2_RK4(array, weight, csize, dim)
1540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1541 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_RK4
1544 real(RKG) ,
intent(inout) ,
contiguous :: array(:,:)
1545 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1546 integer(IK) ,
intent(out) :: csize
1547 integer(IK) ,
intent(in) :: dim
1552 PURE module subroutine setCompact_D2_RK3(array, weight, csize, dim)
1553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1554 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_RK3
1557 real(RKG) ,
intent(inout) ,
contiguous :: array(:,:)
1558 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1559 integer(IK) ,
intent(out) :: csize
1560 integer(IK) ,
intent(in) :: dim
1565 PURE module subroutine setCompact_D2_RK2(array, weight, csize, dim)
1566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1567 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_RK2
1570 real(RKG) ,
intent(inout) ,
contiguous :: array(:,:)
1571 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1572 integer(IK) ,
intent(out) :: csize
1573 integer(IK) ,
intent(in) :: dim
1578 PURE module subroutine setCompact_D2_RK1(array, weight, csize, dim)
1579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1580 !DEC$ ATTRIBUTES DLLEXPORT :: setCompact_D2_RK1
1583 real(RKG) ,
intent(inout) ,
contiguous :: array(:,:)
1584 integer(IK) ,
intent(out) ,
contiguous :: weight(:)
1585 integer(IK) ,
intent(out) :: csize
1586 integer(IK) ,
intent(in) :: dim
Generate a compact version of the input array where all sequentially duplicate entries along the spec...
Generate a compacted version of the input array where all sequentially duplicate entries along the sp...
This module contains procedures and generic interfaces for condensing (removing duplicate sequential ...
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...