148 PURE elemental module subroutine setSwappedDef_D0_SK5(a, b)
149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
150 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_SK5
153 character(
*,SKG) ,
intent(inout) :: a, b
158 PURE elemental module subroutine setSwappedDef_D0_SK4(a, b)
159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
160 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_SK4
163 character(
*,SKG) ,
intent(inout) :: a, b
168 PURE elemental module subroutine setSwappedDef_D0_SK3(a, b)
169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
170 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_SK3
173 character(
*,SKG) ,
intent(inout) :: a, b
178 PURE elemental module subroutine setSwappedDef_D0_SK2(a, b)
179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
180 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_SK2
183 character(
*,SKG) ,
intent(inout) :: a, b
188 PURE elemental module subroutine setSwappedDef_D0_SK1(a, b)
189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
190 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_SK1
193 character(
*,SKG) ,
intent(inout) :: a, b
200 PURE elemental module subroutine setSwappedDef_D0_IK5(a, b)
201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
202 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_IK5
205 integer(IKG) ,
intent(inout) :: a, b
210 PURE elemental module subroutine setSwappedDef_D0_IK4(a, b)
211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
212 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_IK4
215 integer(IKG) ,
intent(inout) :: a, b
220 PURE elemental module subroutine setSwappedDef_D0_IK3(a, b)
221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
222 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_IK3
225 integer(IKG) ,
intent(inout) :: a, b
230 PURE elemental module subroutine setSwappedDef_D0_IK2(a, b)
231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
232 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_IK2
235 integer(IKG) ,
intent(inout) :: a, b
240 PURE elemental module subroutine setSwappedDef_D0_IK1(a, b)
241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
242 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_IK1
245 integer(IKG) ,
intent(inout) :: a, b
252 PURE elemental module subroutine setSwappedDef_D0_LK5(a, b)
253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
254 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_LK5
257 logical(LKG) ,
intent(inout) :: a, b
262 PURE elemental module subroutine setSwappedDef_D0_LK4(a, b)
263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
264 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_LK4
267 logical(LKG) ,
intent(inout) :: a, b
272 PURE elemental module subroutine setSwappedDef_D0_LK3(a, b)
273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
274 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_LK3
277 logical(LKG) ,
intent(inout) :: a, b
282 PURE elemental module subroutine setSwappedDef_D0_LK2(a, b)
283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
284 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_LK2
287 logical(LKG) ,
intent(inout) :: a, b
292 PURE elemental module subroutine setSwappedDef_D0_LK1(a, b)
293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
294 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_LK1
297 logical(LKG) ,
intent(inout) :: a, b
304 PURE elemental module subroutine setSwappedDef_D0_CK5(a, b)
305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
306 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_CK5
309 complex(CKG) ,
intent(inout) :: a, b
314 PURE elemental module subroutine setSwappedDef_D0_CK4(a, b)
315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
316 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_CK4
319 complex(CKG) ,
intent(inout) :: a, b
324 PURE elemental module subroutine setSwappedDef_D0_CK3(a, b)
325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
326 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_CK3
329 complex(CKG) ,
intent(inout) :: a, b
334 PURE elemental module subroutine setSwappedDef_D0_CK2(a, b)
335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
336 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_CK2
339 complex(CKG) ,
intent(inout) :: a, b
344 PURE elemental module subroutine setSwappedDef_D0_CK1(a, b)
345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
346 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_CK1
349 complex(CKG) ,
intent(inout) :: a, b
356 PURE elemental module subroutine setSwappedDef_D0_RK5(a, b)
357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
358 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_RK5
361 real(RKG) ,
intent(inout) :: a, b
366 PURE elemental module subroutine setSwappedDef_D0_RK4(a, b)
367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
368 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_RK4
371 real(RKG) ,
intent(inout) :: a, b
376 PURE elemental module subroutine setSwappedDef_D0_RK3(a, b)
377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
378 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_RK3
381 real(RKG) ,
intent(inout) :: a, b
386 PURE elemental module subroutine setSwappedDef_D0_RK2(a, b)
387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
388 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_RK2
391 real(RKG) ,
intent(inout) :: a, b
396 PURE elemental module subroutine setSwappedDef_D0_RK1(a, b)
397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
398 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_RK1
401 real(RKG) ,
intent(inout) :: a, b
414 PURE module subroutine setSwappedDef_D1_SK5(a, b)
415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
416 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_SK5
419 character(
*,SKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
424 PURE module subroutine setSwappedDef_D1_SK4(a, b)
425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
426 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_SK4
429 character(
*,SKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
434 PURE module subroutine setSwappedDef_D1_SK3(a, b)
435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
436 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_SK3
439 character(
*,SKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
444 PURE module subroutine setSwappedDef_D1_SK2(a, b)
445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
446 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_SK2
449 character(
*,SKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
454 PURE module subroutine setSwappedDef_D1_SK1(a, b)
455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
456 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_SK1
459 character(
*,SKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
466 PURE module subroutine setSwappedDef_D1_IK5(a, b)
467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
468 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_IK5
471 integer(IKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
476 PURE module subroutine setSwappedDef_D1_IK4(a, b)
477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
478 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_IK4
481 integer(IKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
486 PURE module subroutine setSwappedDef_D1_IK3(a, b)
487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
488 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_IK3
491 integer(IKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
496 PURE module subroutine setSwappedDef_D1_IK2(a, b)
497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
498 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_IK2
501 integer(IKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
506 PURE module subroutine setSwappedDef_D1_IK1(a, b)
507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
508 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_IK1
511 integer(IKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
518 PURE module subroutine setSwappedDef_D1_LK5(a, b)
519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
520 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_LK5
523 logical(LKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
528 PURE module subroutine setSwappedDef_D1_LK4(a, b)
529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
530 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_LK4
533 logical(LKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
538 PURE module subroutine setSwappedDef_D1_LK3(a, b)
539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
540 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_LK3
543 logical(LKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
548 PURE module subroutine setSwappedDef_D1_LK2(a, b)
549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
550 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_LK2
553 logical(LKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
558 PURE module subroutine setSwappedDef_D1_LK1(a, b)
559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
560 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_LK1
563 logical(LKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
570 PURE module subroutine setSwappedDef_D1_CK5(a, b)
571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
572 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_CK5
575 complex(CKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
580 PURE module subroutine setSwappedDef_D1_CK4(a, b)
581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
582 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_CK4
585 complex(CKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
590 PURE module subroutine setSwappedDef_D1_CK3(a, b)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_CK3
595 complex(CKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
600 PURE module subroutine setSwappedDef_D1_CK2(a, b)
601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
602 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_CK2
605 complex(CKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
610 PURE module subroutine setSwappedDef_D1_CK1(a, b)
611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
612 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_CK1
615 complex(CKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
622 PURE module subroutine setSwappedDef_D1_RK5(a, b)
623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
624 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_RK5
627 real(RKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
632 PURE module subroutine setSwappedDef_D1_RK4(a, b)
633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
634 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_RK4
637 real(RKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
642 PURE module subroutine setSwappedDef_D1_RK3(a, b)
643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
644 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_RK3
647 real(RKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
652 PURE module subroutine setSwappedDef_D1_RK2(a, b)
653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
654 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_RK2
657 real(RKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
662 PURE module subroutine setSwappedDef_D1_RK1(a, b)
663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
664 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_RK1
667 real(RKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
680 PURE module subroutine setSwappedInc_D0_SK5(a, b, inca, incb)
681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
682 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D0_SK5
685 character(
*,SKG) ,
intent(inout) :: a, b
686 integer(IK) ,
intent(in) :: inca, incb
691 PURE module subroutine setSwappedInc_D0_SK4(a, b, inca, incb)
692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
693 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D0_SK4
696 character(
*,SKG) ,
intent(inout) :: a, b
697 integer(IK) ,
intent(in) :: inca, incb
702 PURE module subroutine setSwappedInc_D0_SK3(a, b, inca, incb)
703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
704 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D0_SK3
707 character(
*,SKG) ,
intent(inout) :: a, b
708 integer(IK) ,
intent(in) :: inca, incb
713 PURE module subroutine setSwappedInc_D0_SK2(a, b, inca, incb)
714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
715 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D0_SK2
718 character(
*,SKG) ,
intent(inout) :: a, b
719 integer(IK) ,
intent(in) :: inca, incb
724 PURE module subroutine setSwappedInc_D0_SK1(a, b, inca, incb)
725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
726 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D0_SK1
729 character(
*,SKG) ,
intent(inout) :: a, b
730 integer(IK) ,
intent(in) :: inca, incb
743 PURE module subroutine setSwappedInc_D1_SK5(a, b, inca, incb)
744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
745 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_SK5
748 character(
*,SKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
749 integer(IK) ,
intent(in) :: inca, incb
754 PURE module subroutine setSwappedInc_D1_SK4(a, b, inca, incb)
755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
756 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_SK4
759 character(
*,SKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
760 integer(IK) ,
intent(in) :: inca, incb
765 PURE module subroutine setSwappedInc_D1_SK3(a, b, inca, incb)
766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
767 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_SK3
770 character(
*,SKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
771 integer(IK) ,
intent(in) :: inca, incb
776 PURE module subroutine setSwappedInc_D1_SK2(a, b, inca, incb)
777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
778 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_SK2
781 character(
*,SKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
782 integer(IK) ,
intent(in) :: inca, incb
787 PURE module subroutine setSwappedInc_D1_SK1(a, b, inca, incb)
788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
789 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_SK1
792 character(
*,SKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
793 integer(IK) ,
intent(in) :: inca, incb
800 PURE module subroutine setSwappedInc_D1_IK5(a, b, inca, incb)
801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
802 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_IK5
805 integer(IKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
806 integer(IK) ,
intent(in) :: inca, incb
811 PURE module subroutine setSwappedInc_D1_IK4(a, b, inca, incb)
812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
813 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_IK4
816 integer(IKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
817 integer(IK) ,
intent(in) :: inca, incb
822 PURE module subroutine setSwappedInc_D1_IK3(a, b, inca, incb)
823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
824 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_IK3
827 integer(IKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
828 integer(IK) ,
intent(in) :: inca, incb
833 PURE module subroutine setSwappedInc_D1_IK2(a, b, inca, incb)
834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
835 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_IK2
838 integer(IKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
839 integer(IK) ,
intent(in) :: inca, incb
844 PURE module subroutine setSwappedInc_D1_IK1(a, b, inca, incb)
845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
846 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_IK1
849 integer(IKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
850 integer(IK) ,
intent(in) :: inca, incb
857 PURE module subroutine setSwappedInc_D1_LK5(a, b, inca, incb)
858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
859 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_LK5
862 logical(LKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
863 integer(IK) ,
intent(in) :: inca, incb
868 PURE module subroutine setSwappedInc_D1_LK4(a, b, inca, incb)
869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
870 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_LK4
873 logical(LKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
874 integer(IK) ,
intent(in) :: inca, incb
879 PURE module subroutine setSwappedInc_D1_LK3(a, b, inca, incb)
880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
881 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_LK3
884 logical(LKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
885 integer(IK) ,
intent(in) :: inca, incb
890 PURE module subroutine setSwappedInc_D1_LK2(a, b, inca, incb)
891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
892 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_LK2
895 logical(LKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
896 integer(IK) ,
intent(in) :: inca, incb
901 PURE module subroutine setSwappedInc_D1_LK1(a, b, inca, incb)
902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
903 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_LK1
906 logical(LKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
907 integer(IK) ,
intent(in) :: inca, incb
914 PURE module subroutine setSwappedInc_D1_CK5(a, b, inca, incb)
915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
916 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_CK5
919 complex(CKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
920 integer(IK) ,
intent(in) :: inca, incb
925 PURE module subroutine setSwappedInc_D1_CK4(a, b, inca, incb)
926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
927 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_CK4
930 complex(CKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
931 integer(IK) ,
intent(in) :: inca, incb
936 PURE module subroutine setSwappedInc_D1_CK3(a, b, inca, incb)
937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
938 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_CK3
941 complex(CKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
942 integer(IK) ,
intent(in) :: inca, incb
947 PURE module subroutine setSwappedInc_D1_CK2(a, b, inca, incb)
948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
949 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_CK2
952 complex(CKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
953 integer(IK) ,
intent(in) :: inca, incb
958 PURE module subroutine setSwappedInc_D1_CK1(a, b, inca, incb)
959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
960 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_CK1
963 complex(CKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
964 integer(IK) ,
intent(in) :: inca, incb
971 PURE module subroutine setSwappedInc_D1_RK5(a, b, inca, incb)
972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
973 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_RK5
976 real(RKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
977 integer(IK) ,
intent(in) :: inca, incb
982 PURE module subroutine setSwappedInc_D1_RK4(a, b, inca, incb)
983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
984 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_RK4
987 real(RKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
988 integer(IK) ,
intent(in) :: inca, incb
993 PURE module subroutine setSwappedInc_D1_RK3(a, b, inca, incb)
994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
995 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_RK3
998 real(RKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
999 integer(IK) ,
intent(in) :: inca, incb
1004 PURE module subroutine setSwappedInc_D1_RK2(a, b, inca, incb)
1005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1006 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_RK2
1009 real(RKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
1010 integer(IK) ,
intent(in) :: inca, incb
1015 PURE module subroutine setSwappedInc_D1_RK1(a, b, inca, incb)
1016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1017 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_RK1
1020 real(RKG) ,
intent(inout) ,
contiguous :: a(:), b(:)
1021 integer(IK) ,
intent(in) :: inca, incb
1035end module pm_swap ! LCOV_EXCL_LINE
Interchange the elements of vectors x and y.
Return the two input scalar or array values a and b while their values are swapped.
This module contains a set of generic interfaces to the BLAS routines.
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains procedures and generic interfaces for swapping values of intrinsic Fortran types...