301 PURE module function setFactorFFTDXX_CK5(data)
result(factor)
302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
303 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDXX_CK5
306 complex(CKG),
intent(in) ,
contiguous :: data(:)
307 integer(IK) ,
allocatable :: factor(:)
312 PURE module function setFactorFFTDXX_CK4(data)
result(factor)
313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
314 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDXX_CK4
317 complex(CKG),
intent(in) ,
contiguous :: data(:)
318 integer(IK) ,
allocatable :: factor(:)
323 PURE module function setFactorFFTDXX_CK3(data)
result(factor)
324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
325 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDXX_CK3
328 complex(CKG),
intent(in) ,
contiguous :: data(:)
329 integer(IK) ,
allocatable :: factor(:)
334 PURE module function setFactorFFTDXX_CK2(data)
result(factor)
335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
336 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDXX_CK2
339 complex(CKG),
intent(in) ,
contiguous :: data(:)
340 integer(IK) ,
allocatable :: factor(:)
345 PURE module function setFactorFFTDXX_CK1(data)
result(factor)
346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
347 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDXX_CK1
350 complex(CKG),
intent(in) ,
contiguous :: data(:)
351 integer(IK) ,
allocatable :: factor(:)
358 PURE module function setFactorFFTDXX_RK5(data)
result(factor)
359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
360 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDXX_RK5
363 real(RKG) ,
intent(in) ,
contiguous :: data(:)
364 integer(IK) ,
allocatable :: factor(:)
369 PURE module function setFactorFFTDXX_RK4(data)
result(factor)
370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
371 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDXX_RK4
374 real(RKG) ,
intent(in) ,
contiguous :: data(:)
375 integer(IK) ,
allocatable :: factor(:)
380 PURE module function setFactorFFTDXX_RK3(data)
result(factor)
381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
382 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDXX_RK3
385 real(RKG) ,
intent(in) ,
contiguous :: data(:)
386 integer(IK) ,
allocatable :: factor(:)
391 PURE module function setFactorFFTDXX_RK2(data)
result(factor)
392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
393 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDXX_RK2
396 real(RKG) ,
intent(in) ,
contiguous :: data(:)
397 integer(IK) ,
allocatable :: factor(:)
402 PURE module function setFactorFFTDXX_RK1(data)
result(factor)
403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
404 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDXX_RK1
407 real(RKG) ,
intent(in) ,
contiguous :: data(:)
408 integer(IK) ,
allocatable :: factor(:)
421 impure module function setFactorFFTDCX_CK5(data, coef)
result(factor)
422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
423 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCX_CK5
426 complex(CKG),
intent(in) ,
contiguous :: data(:)
427 complex(CKG),
intent(out) ,
contiguous :: coef(:)
428 integer(IK) ,
allocatable :: factor(:)
433 impure module function setFactorFFTDCX_CK4(data, coef)
result(factor)
434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
435 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCX_CK4
438 complex(CKG),
intent(in) ,
contiguous :: data(:)
439 complex(CKG),
intent(out) ,
contiguous :: coef(:)
440 integer(IK) ,
allocatable :: factor(:)
445 impure module function setFactorFFTDCX_CK3(data, coef)
result(factor)
446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
447 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCX_CK3
450 complex(CKG),
intent(in) ,
contiguous :: data(:)
451 complex(CKG),
intent(out) ,
contiguous :: coef(:)
452 integer(IK) ,
allocatable :: factor(:)
457 impure module function setFactorFFTDCX_CK2(data, coef)
result(factor)
458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
459 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCX_CK2
462 complex(CKG),
intent(in) ,
contiguous :: data(:)
463 complex(CKG),
intent(out) ,
contiguous :: coef(:)
464 integer(IK) ,
allocatable :: factor(:)
469 impure module function setFactorFFTDCX_CK1(data, coef)
result(factor)
470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
471 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCX_CK1
474 complex(CKG),
intent(in) ,
contiguous :: data(:)
475 complex(CKG),
intent(out) ,
contiguous :: coef(:)
476 integer(IK) ,
allocatable :: factor(:)
483 impure module function setFactorFFTDCX_RK5(data, coef)
result(factor)
484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
485 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCX_RK5
488 real(RKG) ,
intent(in) ,
contiguous :: data(:)
489 real(RKG) ,
intent(out) ,
contiguous :: coef(:)
490 integer(IK) ,
allocatable :: factor(:)
495 impure module function setFactorFFTDCX_RK4(data, coef)
result(factor)
496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
497 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCX_RK4
500 real(RKG) ,
intent(in) ,
contiguous :: data(:)
501 real(RKG) ,
intent(out) ,
contiguous :: coef(:)
502 integer(IK) ,
allocatable :: factor(:)
507 impure module function setFactorFFTDCX_RK3(data, coef)
result(factor)
508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
509 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCX_RK3
512 real(RKG) ,
intent(in) ,
contiguous :: data(:)
513 real(RKG) ,
intent(out) ,
contiguous :: coef(:)
514 integer(IK) ,
allocatable :: factor(:)
519 impure module function setFactorFFTDCX_RK2(data, coef)
result(factor)
520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
521 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCX_RK2
524 real(RKG) ,
intent(in) ,
contiguous :: data(:)
525 real(RKG) ,
intent(out) ,
contiguous :: coef(:)
526 integer(IK) ,
allocatable :: factor(:)
531 impure module function setFactorFFTDCX_RK1(data, coef)
result(factor)
532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
533 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCX_RK1
536 real(RKG) ,
intent(in) ,
contiguous :: data(:)
537 real(RKG) ,
intent(out) ,
contiguous :: coef(:)
538 integer(IK) ,
allocatable :: factor(:)
551 impure module function setFactorFFTDCA_CK5(data, coef, attr)
result(factor)
552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
553 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCA_CK5
556 complex(CKG),
intent(in) ,
contiguous :: data(:)
557 complex(CKG),
intent(out) ,
allocatable :: coef(:)
558 integer(IK) ,
allocatable :: factor(:)
559 type(allocatable_type) ,
intent(in) :: attr
564 impure module function setFactorFFTDCA_CK4(data, coef, attr)
result(factor)
565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
566 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCA_CK4
569 complex(CKG),
intent(in) ,
contiguous :: data(:)
570 complex(CKG),
intent(out) ,
allocatable :: coef(:)
571 integer(IK) ,
allocatable :: factor(:)
572 type(allocatable_type) ,
intent(in) :: attr
577 impure module function setFactorFFTDCA_CK3(data, coef, attr)
result(factor)
578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
579 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCA_CK3
582 complex(CKG),
intent(in) ,
contiguous :: data(:)
583 complex(CKG),
intent(out) ,
allocatable :: coef(:)
584 integer(IK) ,
allocatable :: factor(:)
585 type(allocatable_type) ,
intent(in) :: attr
590 impure module function setFactorFFTDCA_CK2(data, coef, attr)
result(factor)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCA_CK2
595 complex(CKG),
intent(in) ,
contiguous :: data(:)
596 complex(CKG),
intent(out) ,
allocatable :: coef(:)
597 integer(IK) ,
allocatable :: factor(:)
598 type(allocatable_type) ,
intent(in) :: attr
603 impure module function setFactorFFTDCA_CK1(data, coef, attr)
result(factor)
604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
605 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCA_CK1
608 complex(CKG),
intent(in) ,
contiguous :: data(:)
609 complex(CKG),
intent(out) ,
allocatable :: coef(:)
610 integer(IK) ,
allocatable :: factor(:)
611 type(allocatable_type) ,
intent(in) :: attr
618 impure module function setFactorFFTDCA_RK5(data, coef, attr)
result(factor)
619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
620 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCA_RK5
623 real(RKG) ,
intent(in) ,
contiguous :: data(:)
624 real(RKG) ,
intent(out) ,
allocatable :: coef(:)
625 integer(IK) ,
allocatable :: factor(:)
626 type(allocatable_type) ,
intent(in) :: attr
631 impure module function setFactorFFTDCA_RK4(data, coef, attr)
result(factor)
632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
633 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCA_RK4
636 real(RKG) ,
intent(in) ,
contiguous :: data(:)
637 real(RKG) ,
intent(out) ,
allocatable :: coef(:)
638 integer(IK) ,
allocatable :: factor(:)
639 type(allocatable_type) ,
intent(in) :: attr
644 impure module function setFactorFFTDCA_RK3(data, coef, attr)
result(factor)
645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
646 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCA_RK3
649 real(RKG) ,
intent(in) ,
contiguous :: data(:)
650 real(RKG) ,
intent(out) ,
allocatable :: coef(:)
651 integer(IK) ,
allocatable :: factor(:)
652 type(allocatable_type) ,
intent(in) :: attr
657 impure module function setFactorFFTDCA_RK2(data, coef, attr)
result(factor)
658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
659 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCA_RK2
662 real(RKG) ,
intent(in) ,
contiguous :: data(:)
663 real(RKG) ,
intent(out) ,
allocatable :: coef(:)
664 integer(IK) ,
allocatable :: factor(:)
665 type(allocatable_type) ,
intent(in) :: attr
670 impure module function setFactorFFTDCA_RK1(data, coef, attr)
result(factor)
671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
672 !DEC$ ATTRIBUTES DLLEXPORT :: setFactorFFTDCA_RK1
675 real(RKG) ,
intent(in) ,
contiguous :: data(:)
676 real(RKG) ,
intent(out) ,
allocatable :: coef(:)
677 integer(IK) ,
allocatable :: factor(:)
678 type(allocatable_type) ,
intent(in) :: attr
751 impure module function getFFTF_CK5(data)
result(fft)
752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
753 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTF_CK5
756 complex(CKG),
intent(in) ,
contiguous :: data(:)
757 complex(CKG) :: fft(
size(data,
1, IK))
762 impure module function getFFTF_CK4(data)
result(fft)
763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
764 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTF_CK4
767 complex(CKG),
intent(in) ,
contiguous :: data(:)
768 complex(CKG) :: fft(
size(data,
1, IK))
773 impure module function getFFTF_CK3(data)
result(fft)
774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
775 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTF_CK3
778 complex(CKG),
intent(in) ,
contiguous :: data(:)
779 complex(CKG) :: fft(
size(data,
1, IK))
784 impure module function getFFTF_CK2(data)
result(fft)
785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
786 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTF_CK2
789 complex(CKG),
intent(in) ,
contiguous :: data(:)
790 complex(CKG) :: fft(
size(data,
1, IK))
795 impure module function getFFTF_CK1(data)
result(fft)
796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
797 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTF_CK1
800 complex(CKG),
intent(in) ,
contiguous :: data(:)
801 complex(CKG) :: fft(
size(data,
1, IK))
808 impure module function getFFTF_RK5(data)
result(fft)
809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
810 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTF_RK5
813 real(RKG) ,
intent(in) ,
contiguous :: data(:)
814 real(RKG) :: fft(
size(data,
1, IK))
819 impure module function getFFTF_RK4(data)
result(fft)
820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
821 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTF_RK4
824 real(RKG) ,
intent(in) ,
contiguous :: data(:)
825 real(RKG) :: fft(
size(data,
1, IK))
830 impure module function getFFTF_RK3(data)
result(fft)
831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
832 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTF_RK3
835 real(RKG) ,
intent(in) ,
contiguous :: data(:)
836 real(RKG) :: fft(
size(data,
1, IK))
841 impure module function getFFTF_RK2(data)
result(fft)
842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
843 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTF_RK2
846 real(RKG) ,
intent(in) ,
contiguous :: data(:)
847 real(RKG) :: fft(
size(data,
1, IK))
852 impure module function getFFTF_RK1(data)
result(fft)
853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
854 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTF_RK1
857 real(RKG) ,
intent(in) ,
contiguous :: data(:)
858 real(RKG) :: fft(
size(data,
1, IK))
954 PURE module subroutine setFFTF_CK5(factor, coef, data, work, inwork)
955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
956 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTF_CK5
959 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
960 complex(CKG),
intent(in) ,
contiguous :: coef(:)
961 complex(CKG),
intent(inout) ,
contiguous :: data(:)
962 complex(CKG),
intent(out) ,
contiguous :: work(:)
963 logical(LK) ,
intent(out) :: inwork
968 PURE module subroutine setFFTF_CK4(factor, coef, data, work, inwork)
969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
970 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTF_CK4
973 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
974 complex(CKG),
intent(in) ,
contiguous :: coef(:)
975 complex(CKG),
intent(inout) ,
contiguous :: data(:)
976 complex(CKG),
intent(out) ,
contiguous :: work(:)
977 logical(LK) ,
intent(out) :: inwork
982 PURE module subroutine setFFTF_CK3(factor, coef, data, work, inwork)
983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
984 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTF_CK3
987 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
988 complex(CKG),
intent(in) ,
contiguous :: coef(:)
989 complex(CKG),
intent(inout) ,
contiguous :: data(:)
990 complex(CKG),
intent(out) ,
contiguous :: work(:)
991 logical(LK) ,
intent(out) :: inwork
996 PURE module subroutine setFFTF_CK2(factor, coef, data, work, inwork)
997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
998 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTF_CK2
1001 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1002 complex(CKG),
intent(in) ,
contiguous :: coef(:)
1003 complex(CKG),
intent(inout) ,
contiguous :: data(:)
1004 complex(CKG),
intent(out) ,
contiguous :: work(:)
1005 logical(LK) ,
intent(out) :: inwork
1010 PURE module subroutine setFFTF_CK1(factor, coef, data, work, inwork)
1011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1012 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTF_CK1
1015 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1016 complex(CKG),
intent(in) ,
contiguous :: coef(:)
1017 complex(CKG),
intent(inout) ,
contiguous :: data(:)
1018 complex(CKG),
intent(out) ,
contiguous :: work(:)
1019 logical(LK) ,
intent(out) :: inwork
1026 PURE module subroutine setFFTF_RK5(factor, coef, data, work, inwork)
1027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1028 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTF_RK5
1031 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1032 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1033 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1034 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1035 logical(LK) ,
intent(out) :: inwork
1040 PURE module subroutine setFFTF_RK4(factor, coef, data, work, inwork)
1041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1042 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTF_RK4
1045 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1046 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1047 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1048 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1049 logical(LK) ,
intent(out) :: inwork
1054 PURE module subroutine setFFTF_RK3(factor, coef, data, work, inwork)
1055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1056 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTF_RK3
1059 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1060 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1061 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1062 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1063 logical(LK) ,
intent(out) :: inwork
1068 PURE module subroutine setFFTF_RK2(factor, coef, data, work, inwork)
1069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1070 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTF_RK2
1073 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1074 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1075 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1076 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1077 logical(LK) ,
intent(out) :: inwork
1082 PURE module subroutine setFFTF_RK1(factor, coef, data, work, inwork)
1083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1084 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTF_RK1
1087 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1088 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1089 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1090 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1091 logical(LK) ,
intent(out) :: inwork
1161 impure module function getFFTR_CK5(data)
result(fft)
1162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1163 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTR_CK5
1166 complex(CKG),
intent(in) ,
contiguous :: data(:)
1167 complex(CKG) :: fft(
size(data,
1, IK))
1172 impure module function getFFTR_CK4(data)
result(fft)
1173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1174 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTR_CK4
1177 complex(CKG),
intent(in) ,
contiguous :: data(:)
1178 complex(CKG) :: fft(
size(data,
1, IK))
1183 impure module function getFFTR_CK3(data)
result(fft)
1184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1185 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTR_CK3
1188 complex(CKG),
intent(in) ,
contiguous :: data(:)
1189 complex(CKG) :: fft(
size(data,
1, IK))
1194 impure module function getFFTR_CK2(data)
result(fft)
1195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1196 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTR_CK2
1199 complex(CKG),
intent(in) ,
contiguous :: data(:)
1200 complex(CKG) :: fft(
size(data,
1, IK))
1205 impure module function getFFTR_CK1(data)
result(fft)
1206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1207 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTR_CK1
1210 complex(CKG),
intent(in) ,
contiguous :: data(:)
1211 complex(CKG) :: fft(
size(data,
1, IK))
1218 impure module function getFFTR_RK5(data)
result(fft)
1219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1220 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTR_RK5
1223 real(RKG) ,
intent(in) ,
contiguous :: data(:)
1224 real(RKG) :: fft(
size(data,
1, IK))
1229 impure module function getFFTR_RK4(data)
result(fft)
1230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1231 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTR_RK4
1234 real(RKG) ,
intent(in) ,
contiguous :: data(:)
1235 real(RKG) :: fft(
size(data,
1, IK))
1240 impure module function getFFTR_RK3(data)
result(fft)
1241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1242 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTR_RK3
1245 real(RKG) ,
intent(in) ,
contiguous :: data(:)
1246 real(RKG) :: fft(
size(data,
1, IK))
1251 impure module function getFFTR_RK2(data)
result(fft)
1252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1253 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTR_RK2
1256 real(RKG) ,
intent(in) ,
contiguous :: data(:)
1257 real(RKG) :: fft(
size(data,
1, IK))
1262 impure module function getFFTR_RK1(data)
result(fft)
1263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1264 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTR_RK1
1267 real(RKG) ,
intent(in) ,
contiguous :: data(:)
1268 real(RKG) :: fft(
size(data,
1, IK))
1366 PURE module subroutine setFFTR_CK5(factor, coef, data, work, inwork)
1367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1368 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTR_CK5
1371 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1372 complex(CKG),
intent(in) ,
contiguous :: coef(:)
1373 complex(CKG),
intent(inout) ,
contiguous :: data(:)
1374 complex(CKG),
intent(out) ,
contiguous :: work(:)
1375 logical(LK) ,
intent(out) :: inwork
1380 PURE module subroutine setFFTR_CK4(factor, coef, data, work, inwork)
1381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1382 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTR_CK4
1385 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1386 complex(CKG),
intent(in) ,
contiguous :: coef(:)
1387 complex(CKG),
intent(inout) ,
contiguous :: data(:)
1388 complex(CKG),
intent(out) ,
contiguous :: work(:)
1389 logical(LK) ,
intent(out) :: inwork
1394 PURE module subroutine setFFTR_CK3(factor, coef, data, work, inwork)
1395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1396 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTR_CK3
1399 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1400 complex(CKG),
intent(in) ,
contiguous :: coef(:)
1401 complex(CKG),
intent(inout) ,
contiguous :: data(:)
1402 complex(CKG),
intent(out) ,
contiguous :: work(:)
1403 logical(LK) ,
intent(out) :: inwork
1408 PURE module subroutine setFFTR_CK2(factor, coef, data, work, inwork)
1409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1410 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTR_CK2
1413 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1414 complex(CKG),
intent(in) ,
contiguous :: coef(:)
1415 complex(CKG),
intent(inout) ,
contiguous :: data(:)
1416 complex(CKG),
intent(out) ,
contiguous :: work(:)
1417 logical(LK) ,
intent(out) :: inwork
1422 PURE module subroutine setFFTR_CK1(factor, coef, data, work, inwork)
1423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1424 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTR_CK1
1427 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1428 complex(CKG),
intent(in) ,
contiguous :: coef(:)
1429 complex(CKG),
intent(inout) ,
contiguous :: data(:)
1430 complex(CKG),
intent(out) ,
contiguous :: work(:)
1431 logical(LK) ,
intent(out) :: inwork
1438 PURE module subroutine setFFTR_RK5(factor, coef, data, work, inwork)
1439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1440 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTR_RK5
1443 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1444 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1445 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1446 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1447 logical(LK) ,
intent(out) :: inwork
1452 PURE module subroutine setFFTR_RK4(factor, coef, data, work, inwork)
1453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1454 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTR_RK4
1457 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1458 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1459 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1460 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1461 logical(LK) ,
intent(out) :: inwork
1466 PURE module subroutine setFFTR_RK3(factor, coef, data, work, inwork)
1467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1468 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTR_RK3
1471 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1472 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1473 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1474 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1475 logical(LK) ,
intent(out) :: inwork
1480 PURE module subroutine setFFTR_RK2(factor, coef, data, work, inwork)
1481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1482 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTR_RK2
1485 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1486 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1487 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1488 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1489 logical(LK) ,
intent(out) :: inwork
1494 PURE module subroutine setFFTR_RK1(factor, coef, data, work, inwork)
1495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1496 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTR_RK1
1499 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1500 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1501 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1502 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1503 logical(LK) ,
intent(out) :: inwork
1572 impure module function getFFTI_CK5(data)
result(fft)
1573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1574 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTI_CK5
1577 complex(CKG),
intent(in) ,
contiguous :: data(:)
1578 complex(CKG) :: fft(
size(data,
1, IK))
1583 impure module function getFFTI_CK4(data)
result(fft)
1584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1585 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTI_CK4
1588 complex(CKG),
intent(in) ,
contiguous :: data(:)
1589 complex(CKG) :: fft(
size(data,
1, IK))
1594 impure module function getFFTI_CK3(data)
result(fft)
1595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1596 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTI_CK3
1599 complex(CKG),
intent(in) ,
contiguous :: data(:)
1600 complex(CKG) :: fft(
size(data,
1, IK))
1605 impure module function getFFTI_CK2(data)
result(fft)
1606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1607 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTI_CK2
1610 complex(CKG),
intent(in) ,
contiguous :: data(:)
1611 complex(CKG) :: fft(
size(data,
1, IK))
1616 impure module function getFFTI_CK1(data)
result(fft)
1617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1618 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTI_CK1
1621 complex(CKG),
intent(in) ,
contiguous :: data(:)
1622 complex(CKG) :: fft(
size(data,
1, IK))
1629 impure module function getFFTI_RK5(data)
result(fft)
1630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1631 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTI_RK5
1634 real(RKG) ,
intent(in) ,
contiguous :: data(:)
1635 real(RKG) :: fft(
size(data,
1, IK))
1640 impure module function getFFTI_RK4(data)
result(fft)
1641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1642 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTI_RK4
1645 real(RKG) ,
intent(in) ,
contiguous :: data(:)
1646 real(RKG) :: fft(
size(data,
1, IK))
1651 impure module function getFFTI_RK3(data)
result(fft)
1652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1653 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTI_RK3
1656 real(RKG) ,
intent(in) ,
contiguous :: data(:)
1657 real(RKG) :: fft(
size(data,
1, IK))
1662 impure module function getFFTI_RK2(data)
result(fft)
1663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1664 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTI_RK2
1667 real(RKG) ,
intent(in) ,
contiguous :: data(:)
1668 real(RKG) :: fft(
size(data,
1, IK))
1673 impure module function getFFTI_RK1(data)
result(fft)
1674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1675 !DEC$ ATTRIBUTES DLLEXPORT :: getFFTI_RK1
1678 real(RKG) ,
intent(in) ,
contiguous :: data(:)
1679 real(RKG) :: fft(
size(data,
1, IK))
1759 PURE module subroutine setFFTI_CK5(factor, coef, data, work, inwork)
1760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1761 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTI_CK5
1764 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1765 complex(CKG),
intent(in) ,
contiguous :: coef(:)
1766 complex(CKG),
intent(inout) ,
contiguous :: data(:)
1767 complex(CKG),
intent(out) ,
contiguous :: work(:)
1768 logical(LK) ,
intent(out) :: inwork
1773 PURE module subroutine setFFTI_CK4(factor, coef, data, work, inwork)
1774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1775 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTI_CK4
1778 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1779 complex(CKG),
intent(in) ,
contiguous :: coef(:)
1780 complex(CKG),
intent(inout) ,
contiguous :: data(:)
1781 complex(CKG),
intent(out) ,
contiguous :: work(:)
1782 logical(LK) ,
intent(out) :: inwork
1787 PURE module subroutine setFFTI_CK3(factor, coef, data, work, inwork)
1788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1789 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTI_CK3
1792 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1793 complex(CKG),
intent(in) ,
contiguous :: coef(:)
1794 complex(CKG),
intent(inout) ,
contiguous :: data(:)
1795 complex(CKG),
intent(out) ,
contiguous :: work(:)
1796 logical(LK) ,
intent(out) :: inwork
1801 PURE module subroutine setFFTI_CK2(factor, coef, data, work, inwork)
1802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1803 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTI_CK2
1806 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1807 complex(CKG),
intent(in) ,
contiguous :: coef(:)
1808 complex(CKG),
intent(inout) ,
contiguous :: data(:)
1809 complex(CKG),
intent(out) ,
contiguous :: work(:)
1810 logical(LK) ,
intent(out) :: inwork
1815 PURE module subroutine setFFTI_CK1(factor, coef, data, work, inwork)
1816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1817 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTI_CK1
1820 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1821 complex(CKG),
intent(in) ,
contiguous :: coef(:)
1822 complex(CKG),
intent(inout) ,
contiguous :: data(:)
1823 complex(CKG),
intent(out) ,
contiguous :: work(:)
1824 logical(LK) ,
intent(out) :: inwork
1831 PURE module subroutine setFFTI_RK5(factor, coef, data, work, inwork)
1832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1833 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTI_RK5
1836 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1837 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1838 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1839 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1840 logical(LK) ,
intent(out) :: inwork
1845 PURE module subroutine setFFTI_RK4(factor, coef, data, work, inwork)
1846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1847 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTI_RK4
1850 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1851 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1852 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1853 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1854 logical(LK) ,
intent(out) :: inwork
1859 PURE module subroutine setFFTI_RK3(factor, coef, data, work, inwork)
1860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1861 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTI_RK3
1864 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1865 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1866 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1867 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1868 logical(LK) ,
intent(out) :: inwork
1873 PURE module subroutine setFFTI_RK2(factor, coef, data, work, inwork)
1874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1875 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTI_RK2
1878 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1879 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1880 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1881 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1882 logical(LK) ,
intent(out) :: inwork
1887 PURE module subroutine setFFTI_RK1(factor, coef, data, work, inwork)
1888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1889 !DEC$ ATTRIBUTES DLLEXPORT :: setFFTI_RK1
1892 integer(IK) ,
intent(in) ,
contiguous :: factor(:)
1893 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
1894 real(RKG) ,
intent(inout) ,
contiguous :: data(:)
1895 real(RKG) ,
intent(out) ,
contiguous :: work(:)
1896 logical(LK) ,
intent(out) :: inwork
1906end module pm_fftpack
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex...
Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type compl...
Generate and return the factorization vector factor of the specified input sequence length and the co...
Return the Forward Fourier Transform (or equivalently, the Fourier coefficients) of a periodic sequen...
Return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of a...
Return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
character(*, SK), parameter MODULE_NAME
type(allocatable_type), parameter allocatable
This is a scalar parameter object of type allocatable_type that is exclusively used to signify that a...
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This is a concrete derived type whose instances are exclusively used to signify that an array of arbi...