527 PURE module function getPolyVal_D0_CK5_CK5(coef, x)
result(poly)
528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
529 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_CK5_CK5
532 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
533 complex(CKG),
intent(in) :: x
539 PURE module function getPolyVal_D0_CK4_CK4(coef, x)
result(poly)
540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
541 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_CK4_CK4
544 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
545 complex(CKG),
intent(in) :: x
551 PURE module function getPolyVal_D0_CK3_CK3(coef, x)
result(poly)
552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
553 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_CK3_CK3
556 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
557 complex(CKG),
intent(in) :: x
563 PURE module function getPolyVal_D0_CK2_CK2(coef, x)
result(poly)
564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
565 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_CK2_CK2
568 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
569 complex(CKG),
intent(in) :: x
575 PURE module function getPolyVal_D0_CK1_CK1(coef, x)
result(poly)
576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
577 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_CK1_CK1
580 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
581 complex(CKG),
intent(in) :: x
589 PURE module function getPolyVal_D0_RK5_CK5(coef, x)
result(poly)
590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
591 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_RK5_CK5
594 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
595 complex(RKG),
intent(in) :: x
601 PURE module function getPolyVal_D0_RK4_CK4(coef, x)
result(poly)
602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
603 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_RK4_CK4
606 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
607 complex(RKG),
intent(in) :: x
613 PURE module function getPolyVal_D0_RK3_CK3(coef, x)
result(poly)
614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
615 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_RK3_CK3
618 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
619 complex(RKG),
intent(in) :: x
625 PURE module function getPolyVal_D0_RK2_CK2(coef, x)
result(poly)
626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
627 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_RK2_CK2
630 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
631 complex(RKG),
intent(in) :: x
637 PURE module function getPolyVal_D0_RK1_CK1(coef, x)
result(poly)
638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
639 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_RK1_CK1
642 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
643 complex(RKG),
intent(in) :: x
651 PURE module function getPolyVal_D0_RK5_RK5(coef, x)
result(poly)
652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
653 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_RK5_RK5
656 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
657 real(RKG) ,
intent(in) :: x
663 PURE module function getPolyVal_D0_RK4_RK4(coef, x)
result(poly)
664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
665 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_RK4_RK4
668 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
669 real(RKG) ,
intent(in) :: x
675 PURE module function getPolyVal_D0_RK3_RK3(coef, x)
result(poly)
676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
677 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_RK3_RK3
680 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
681 real(RKG) ,
intent(in) :: x
687 PURE module function getPolyVal_D0_RK2_RK2(coef, x)
result(poly)
688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
689 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_RK2_RK2
692 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
693 real(RKG) ,
intent(in) :: x
699 PURE module function getPolyVal_D0_RK1_RK1(coef, x)
result(poly)
700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
701 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D0_RK1_RK1
704 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
705 real(RKG) ,
intent(in) :: x
719 PURE module function getPolyVal_D1_CK5_CK5(coef, x)
result(poly)
720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
721 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_CK5_CK5
724 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
725 complex(CKG),
intent(in) ,
contiguous :: x(:)
726 complex(CKG) :: poly(
size(x,
1, IK))
731 PURE module function getPolyVal_D1_CK4_CK4(coef, x)
result(poly)
732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
733 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_CK4_CK4
736 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
737 complex(CKG),
intent(in) ,
contiguous :: x(:)
738 complex(CKG) :: poly(
size(x,
1, IK))
743 PURE module function getPolyVal_D1_CK3_CK3(coef, x)
result(poly)
744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
745 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_CK3_CK3
748 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
749 complex(CKG),
intent(in) ,
contiguous :: x(:)
750 complex(CKG) :: poly(
size(x,
1, IK))
755 PURE module function getPolyVal_D1_CK2_CK2(coef, x)
result(poly)
756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
757 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_CK2_CK2
760 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
761 complex(CKG),
intent(in) ,
contiguous :: x(:)
762 complex(CKG) :: poly(
size(x,
1, IK))
767 PURE module function getPolyVal_D1_CK1_CK1(coef, x)
result(poly)
768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
769 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_CK1_CK1
772 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
773 complex(CKG),
intent(in) ,
contiguous :: x(:)
774 complex(CKG) :: poly(
size(x,
1, IK))
781 PURE module function getPolyVal_D1_RK5_CK5(coef, x)
result(poly)
782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
783 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_RK5_CK5
786 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
787 complex(RKG),
intent(in) ,
contiguous :: x(:)
788 complex(RKG) :: poly(
size(x,
1, IK))
793 PURE module function getPolyVal_D1_RK4_CK4(coef, x)
result(poly)
794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
795 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_RK4_CK4
798 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
799 complex(RKG),
intent(in) ,
contiguous :: x(:)
800 complex(RKG) :: poly(
size(x,
1, IK))
805 PURE module function getPolyVal_D1_RK3_CK3(coef, x)
result(poly)
806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
807 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_RK3_CK3
810 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
811 complex(RKG),
intent(in) ,
contiguous :: x(:)
812 complex(RKG) :: poly(
size(x,
1, IK))
817 PURE module function getPolyVal_D1_RK2_CK2(coef, x)
result(poly)
818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
819 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_RK2_CK2
822 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
823 complex(RKG),
intent(in) ,
contiguous :: x(:)
824 complex(RKG) :: poly(
size(x,
1, IK))
829 PURE module function getPolyVal_D1_RK1_CK1(coef, x)
result(poly)
830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
831 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_RK1_CK1
834 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
835 complex(RKG),
intent(in) ,
contiguous :: x(:)
836 complex(RKG) :: poly(
size(x,
1, IK))
843 PURE module function getPolyVal_D1_RK5_RK5(coef, x)
result(poly)
844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
845 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_RK5_RK5
848 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
849 real(RKG) ,
intent(in) ,
contiguous :: x(:)
850 real(RKG) :: poly(
size(x,
1, IK))
855 PURE module function getPolyVal_D1_RK4_RK4(coef, x)
result(poly)
856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
857 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_RK4_RK4
860 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
861 real(RKG) ,
intent(in) ,
contiguous :: x(:)
862 real(RKG) :: poly(
size(x,
1, IK))
867 PURE module function getPolyVal_D1_RK3_RK3(coef, x)
result(poly)
868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
869 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_RK3_RK3
872 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
873 real(RKG) ,
intent(in) ,
contiguous :: x(:)
874 real(RKG) :: poly(
size(x,
1, IK))
879 PURE module function getPolyVal_D1_RK2_RK2(coef, x)
result(poly)
880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
881 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_RK2_RK2
884 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
885 real(RKG) ,
intent(in) ,
contiguous :: x(:)
886 real(RKG) :: poly(
size(x,
1, IK))
891 PURE module function getPolyVal_D1_RK1_RK1(coef, x)
result(poly)
892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
893 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyVal_D1_RK1_RK1
896 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
897 real(RKG) ,
intent(in) ,
contiguous :: x(:)
898 real(RKG) :: poly(
size(x,
1, IK))
984 PURE module function getPolyAdd_CK5(lhs, rhs)
result(add)
985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
986 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyAdd_CK5
989 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
990 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
991 complex(CKG) :: add(
max(
size(lhs),
size(rhs)))
996 PURE module function getPolyAdd_CK4(lhs, rhs)
result(add)
997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
998 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyAdd_CK4
1001 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1002 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1003 complex(CKG) :: add(
max(
size(lhs),
size(rhs)))
1008 PURE module function getPolyAdd_CK3(lhs, rhs)
result(add)
1009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1010 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyAdd_CK3
1013 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1014 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1015 complex(CKG) :: add(
max(
size(lhs),
size(rhs)))
1020 PURE module function getPolyAdd_CK2(lhs, rhs)
result(add)
1021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1022 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyAdd_CK2
1025 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1026 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1027 complex(CKG) :: add(
max(
size(lhs),
size(rhs)))
1032 PURE module function getPolyAdd_CK1(lhs, rhs)
result(add)
1033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1034 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyAdd_CK1
1037 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1038 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1039 complex(CKG) :: add(
max(
size(lhs),
size(rhs)))
1046 PURE module function getPolyAdd_RK5(lhs, rhs)
result(add)
1047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1048 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyAdd_RK5
1051 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1052 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1053 real(RKG) :: add(
max(
size(lhs),
size(rhs)))
1058 PURE module function getPolyAdd_RK4(lhs, rhs)
result(add)
1059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1060 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyAdd_RK4
1063 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1064 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1065 real(RKG) :: add(
max(
size(lhs),
size(rhs)))
1070 PURE module function getPolyAdd_RK3(lhs, rhs)
result(add)
1071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1072 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyAdd_RK3
1075 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1076 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1077 real(RKG) :: add(
max(
size(lhs),
size(rhs)))
1082 PURE module function getPolyAdd_RK2(lhs, rhs)
result(add)
1083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1084 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyAdd_RK2
1087 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1088 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1089 real(RKG) :: add(
max(
size(lhs),
size(rhs)))
1094 PURE module function getPolyAdd_RK1(lhs, rhs)
result(add)
1095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1096 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyAdd_RK1
1099 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1100 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1101 real(RKG) :: add(
max(
size(lhs),
size(rhs)))
1188 PURE module subroutine setPolyAdd_CK5(add, lhs, rhs)
1189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1190 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyAdd_CK5
1193 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1194 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1195 complex(CKG),
intent(out) ,
contiguous :: add(:)
1200 PURE module subroutine setPolyAdd_CK4(add, lhs, rhs)
1201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1202 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyAdd_CK4
1205 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1206 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1207 complex(CKG),
intent(out) ,
contiguous :: add(:)
1212 PURE module subroutine setPolyAdd_CK3(add, lhs, rhs)
1213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1214 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyAdd_CK3
1217 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1218 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1219 complex(CKG),
intent(out) ,
contiguous :: add(:)
1224 PURE module subroutine setPolyAdd_CK2(add, lhs, rhs)
1225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1226 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyAdd_CK2
1229 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1230 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1231 complex(CKG),
intent(out) ,
contiguous :: add(:)
1236 PURE module subroutine setPolyAdd_CK1(add, lhs, rhs)
1237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1238 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyAdd_CK1
1241 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1242 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1243 complex(CKG),
intent(out) ,
contiguous :: add(:)
1250 PURE module subroutine setPolyAdd_RK5(add, lhs, rhs)
1251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1252 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyAdd_RK5
1255 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1256 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1257 real(RKG) ,
intent(out) ,
contiguous :: add(:)
1262 PURE module subroutine setPolyAdd_RK4(add, lhs, rhs)
1263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1264 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyAdd_RK4
1267 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1268 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1269 real(RKG) ,
intent(out) ,
contiguous :: add(:)
1274 PURE module subroutine setPolyAdd_RK3(add, lhs, rhs)
1275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1276 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyAdd_RK3
1279 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1280 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1281 real(RKG) ,
intent(out) ,
contiguous :: add(:)
1286 PURE module subroutine setPolyAdd_RK2(add, lhs, rhs)
1287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1288 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyAdd_RK2
1291 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1292 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1293 real(RKG) ,
intent(out) ,
contiguous :: add(:)
1298 PURE module subroutine setPolyAdd_RK1(add, lhs, rhs)
1299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1300 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyAdd_RK1
1303 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1304 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1305 real(RKG) ,
intent(out) ,
contiguous :: add(:)
1391 PURE module function getPolySub_CK5(lhs, rhs)
result(sub)
1392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1393 !DEC$ ATTRIBUTES DLLEXPORT :: getPolySub_CK5
1396 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1397 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1398 complex(CKG) :: sub(
max(
size(lhs),
size(rhs)))
1403 PURE module function getPolySub_CK4(lhs, rhs)
result(sub)
1404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1405 !DEC$ ATTRIBUTES DLLEXPORT :: getPolySub_CK4
1408 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1409 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1410 complex(CKG) :: sub(
max(
size(lhs),
size(rhs)))
1415 PURE module function getPolySub_CK3(lhs, rhs)
result(sub)
1416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1417 !DEC$ ATTRIBUTES DLLEXPORT :: getPolySub_CK3
1420 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1421 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1422 complex(CKG) :: sub(
max(
size(lhs),
size(rhs)))
1427 PURE module function getPolySub_CK2(lhs, rhs)
result(sub)
1428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1429 !DEC$ ATTRIBUTES DLLEXPORT :: getPolySub_CK2
1432 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1433 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1434 complex(CKG) :: sub(
max(
size(lhs),
size(rhs)))
1439 PURE module function getPolySub_CK1(lhs, rhs)
result(sub)
1440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1441 !DEC$ ATTRIBUTES DLLEXPORT :: getPolySub_CK1
1444 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1445 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1446 complex(CKG) :: sub(
max(
size(lhs),
size(rhs)))
1453 PURE module function getPolySub_RK5(lhs, rhs)
result(sub)
1454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1455 !DEC$ ATTRIBUTES DLLEXPORT :: getPolySub_RK5
1458 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1459 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1460 real(RKG) :: sub(
max(
size(lhs),
size(rhs)))
1465 PURE module function getPolySub_RK4(lhs, rhs)
result(sub)
1466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1467 !DEC$ ATTRIBUTES DLLEXPORT :: getPolySub_RK4
1470 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1471 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1472 real(RKG) :: sub(
max(
size(lhs),
size(rhs)))
1477 PURE module function getPolySub_RK3(lhs, rhs)
result(sub)
1478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1479 !DEC$ ATTRIBUTES DLLEXPORT :: getPolySub_RK3
1482 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1483 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1484 real(RKG) :: sub(
max(
size(lhs),
size(rhs)))
1489 PURE module function getPolySub_RK2(lhs, rhs)
result(sub)
1490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1491 !DEC$ ATTRIBUTES DLLEXPORT :: getPolySub_RK2
1494 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1495 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1496 real(RKG) :: sub(
max(
size(lhs),
size(rhs)))
1501 PURE module function getPolySub_RK1(lhs, rhs)
result(sub)
1502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1503 !DEC$ ATTRIBUTES DLLEXPORT :: getPolySub_RK1
1506 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1507 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1508 real(RKG) :: sub(
max(
size(lhs),
size(rhs)))
1595 PURE module subroutine setPolySub_CK5(sub, lhs, rhs)
1596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1597 !DEC$ ATTRIBUTES DLLEXPORT :: setPolySub_CK5
1600 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1601 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1602 complex(CKG),
intent(out) ,
contiguous :: sub(:)
1607 PURE module subroutine setPolySub_CK4(sub, lhs, rhs)
1608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1609 !DEC$ ATTRIBUTES DLLEXPORT :: setPolySub_CK4
1612 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1613 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1614 complex(CKG),
intent(out) ,
contiguous :: sub(:)
1619 PURE module subroutine setPolySub_CK3(sub, lhs, rhs)
1620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1621 !DEC$ ATTRIBUTES DLLEXPORT :: setPolySub_CK3
1624 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1625 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1626 complex(CKG),
intent(out) ,
contiguous :: sub(:)
1631 PURE module subroutine setPolySub_CK2(sub, lhs, rhs)
1632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1633 !DEC$ ATTRIBUTES DLLEXPORT :: setPolySub_CK2
1636 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1637 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1638 complex(CKG),
intent(out) ,
contiguous :: sub(:)
1643 PURE module subroutine setPolySub_CK1(sub, lhs, rhs)
1644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1645 !DEC$ ATTRIBUTES DLLEXPORT :: setPolySub_CK1
1648 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1649 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1650 complex(CKG),
intent(out) ,
contiguous :: sub(:)
1657 PURE module subroutine setPolySub_RK5(sub, lhs, rhs)
1658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1659 !DEC$ ATTRIBUTES DLLEXPORT :: setPolySub_RK5
1662 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1663 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1664 real(RKG) ,
intent(out) ,
contiguous :: sub(:)
1669 PURE module subroutine setPolySub_RK4(sub, lhs, rhs)
1670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1671 !DEC$ ATTRIBUTES DLLEXPORT :: setPolySub_RK4
1674 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1675 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1676 real(RKG) ,
intent(out) ,
contiguous :: sub(:)
1681 PURE module subroutine setPolySub_RK3(sub, lhs, rhs)
1682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1683 !DEC$ ATTRIBUTES DLLEXPORT :: setPolySub_RK3
1686 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1687 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1688 real(RKG) ,
intent(out) ,
contiguous :: sub(:)
1693 PURE module subroutine setPolySub_RK2(sub, lhs, rhs)
1694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1695 !DEC$ ATTRIBUTES DLLEXPORT :: setPolySub_RK2
1698 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1699 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1700 real(RKG) ,
intent(out) ,
contiguous :: sub(:)
1705 PURE module subroutine setPolySub_RK1(sub, lhs, rhs)
1706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1707 !DEC$ ATTRIBUTES DLLEXPORT :: setPolySub_RK1
1710 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1711 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1712 real(RKG) ,
intent(out) ,
contiguous :: sub(:)
1802 PURE module function getPolyMul_CK5(lhs, rhs)
result(mul)
1803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1804 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyMul_CK5
1807 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1808 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1809 complex(CKG) :: mul(
1 :
min(
size(lhs,
1, IK)
* size(rhs,
1, IK),
size(lhs,
1, IK)
+ size(rhs,
1, IK)
- 1_IK))
1814 PURE module function getPolyMul_CK4(lhs, rhs)
result(mul)
1815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1816 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyMul_CK4
1819 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1820 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1821 complex(CKG) :: mul(
1 :
min(
size(lhs,
1, IK)
* size(rhs,
1, IK),
size(lhs,
1, IK)
+ size(rhs,
1, IK)
- 1_IK))
1826 PURE module function getPolyMul_CK3(lhs, rhs)
result(mul)
1827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1828 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyMul_CK3
1831 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1832 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1833 complex(CKG) :: mul(
1 :
min(
size(lhs,
1, IK)
* size(rhs,
1, IK),
size(lhs,
1, IK)
+ size(rhs,
1, IK)
- 1_IK))
1838 PURE module function getPolyMul_CK2(lhs, rhs)
result(mul)
1839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1840 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyMul_CK2
1843 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1844 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1845 complex(CKG) :: mul(
1 :
min(
size(lhs,
1, IK)
* size(rhs,
1, IK),
size(lhs,
1, IK)
+ size(rhs,
1, IK)
- 1_IK))
1850 PURE module function getPolyMul_CK1(lhs, rhs)
result(mul)
1851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1852 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyMul_CK1
1855 complex(CKG),
intent(in) ,
contiguous :: lhs(:)
1856 complex(CKG),
intent(in) ,
contiguous :: rhs(:)
1857 complex(CKG) :: mul(
1 :
min(
size(lhs,
1, IK)
* size(rhs,
1, IK),
size(lhs,
1, IK)
+ size(rhs,
1, IK)
- 1_IK))
1864 PURE module function getPolyMul_RK5(lhs, rhs)
result(mul)
1865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1866 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyMul_RK5
1869 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1870 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1871 real(RKG) :: mul(
1 :
min(
size(lhs,
1, IK)
* size(rhs,
1, IK),
size(lhs,
1, IK)
+ size(rhs,
1, IK)
- 1_IK))
1876 PURE module function getPolyMul_RK4(lhs, rhs)
result(mul)
1877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1878 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyMul_RK4
1881 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1882 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1883 real(RKG) :: mul(
1 :
min(
size(lhs,
1, IK)
* size(rhs,
1, IK),
size(lhs,
1, IK)
+ size(rhs,
1, IK)
- 1_IK))
1888 PURE module function getPolyMul_RK3(lhs, rhs)
result(mul)
1889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1890 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyMul_RK3
1893 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1894 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1895 real(RKG) :: mul(
1 :
min(
size(lhs,
1, IK)
* size(rhs,
1, IK),
size(lhs,
1, IK)
+ size(rhs,
1, IK)
- 1_IK))
1900 PURE module function getPolyMul_RK2(lhs, rhs)
result(mul)
1901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1902 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyMul_RK2
1905 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1906 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1907 real(RKG) :: mul(
1 :
min(
size(lhs,
1, IK)
* size(rhs,
1, IK),
size(lhs,
1, IK)
+ size(rhs,
1, IK)
- 1_IK))
1912 PURE module function getPolyMul_RK1(lhs, rhs)
result(mul)
1913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1914 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyMul_RK1
1917 real(RKG) ,
intent(in) ,
contiguous :: lhs(:)
1918 real(RKG) ,
intent(in) ,
contiguous :: rhs(:)
1919 real(RKG) :: mul(
1 :
min(
size(lhs,
1, IK)
* size(rhs,
1, IK),
size(lhs,
1, IK)
+ size(rhs,
1, IK)
- 1_IK))
2006 PURE module subroutine setPolyMul_CK5(mul, lhs, rhs)
2007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2008 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyMul_CK5
2011 complex(CKG),
intent(in) ,
contiguous :: lhs(
0:)
2012 complex(CKG),
intent(in) ,
contiguous :: rhs(
0:)
2013 complex(CKG),
intent(out) ,
contiguous :: mul(
0:)
2018 PURE module subroutine setPolyMul_CK4(mul, lhs, rhs)
2019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2020 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyMul_CK4
2023 complex(CKG),
intent(in) ,
contiguous :: lhs(
0:)
2024 complex(CKG),
intent(in) ,
contiguous :: rhs(
0:)
2025 complex(CKG),
intent(out) ,
contiguous :: mul(
0:)
2030 PURE module subroutine setPolyMul_CK3(mul, lhs, rhs)
2031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2032 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyMul_CK3
2035 complex(CKG),
intent(in) ,
contiguous :: lhs(
0:)
2036 complex(CKG),
intent(in) ,
contiguous :: rhs(
0:)
2037 complex(CKG),
intent(out) ,
contiguous :: mul(
0:)
2042 PURE module subroutine setPolyMul_CK2(mul, lhs, rhs)
2043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2044 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyMul_CK2
2047 complex(CKG),
intent(in) ,
contiguous :: lhs(
0:)
2048 complex(CKG),
intent(in) ,
contiguous :: rhs(
0:)
2049 complex(CKG),
intent(out) ,
contiguous :: mul(
0:)
2054 PURE module subroutine setPolyMul_CK1(mul, lhs, rhs)
2055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2056 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyMul_CK1
2059 complex(CKG),
intent(in) ,
contiguous :: lhs(
0:)
2060 complex(CKG),
intent(in) ,
contiguous :: rhs(
0:)
2061 complex(CKG),
intent(out) ,
contiguous :: mul(
0:)
2068 PURE module subroutine setPolyMul_RK5(mul, lhs, rhs)
2069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2070 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyMul_RK5
2073 real(RKG) ,
intent(in) ,
contiguous :: lhs(
0:)
2074 real(RKG) ,
intent(in) ,
contiguous :: rhs(
0:)
2075 real(RKG) ,
intent(out) ,
contiguous :: mul(
0:)
2080 PURE module subroutine setPolyMul_RK4(mul, lhs, rhs)
2081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2082 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyMul_RK4
2085 real(RKG) ,
intent(in) ,
contiguous :: lhs(
0:)
2086 real(RKG) ,
intent(in) ,
contiguous :: rhs(
0:)
2087 real(RKG) ,
intent(out) ,
contiguous :: mul(
0:)
2092 PURE module subroutine setPolyMul_RK3(mul, lhs, rhs)
2093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2094 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyMul_RK3
2097 real(RKG) ,
intent(in) ,
contiguous :: lhs(
0:)
2098 real(RKG) ,
intent(in) ,
contiguous :: rhs(
0:)
2099 real(RKG) ,
intent(out) ,
contiguous :: mul(
0:)
2104 PURE module subroutine setPolyMul_RK2(mul, lhs, rhs)
2105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2106 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyMul_RK2
2109 real(RKG) ,
intent(in) ,
contiguous :: lhs(
0:)
2110 real(RKG) ,
intent(in) ,
contiguous :: rhs(
0:)
2111 real(RKG) ,
intent(out) ,
contiguous :: mul(
0:)
2116 PURE module subroutine setPolyMul_RK1(mul, lhs, rhs)
2117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2118 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyMul_RK1
2121 real(RKG) ,
intent(in) ,
contiguous :: lhs(
0:)
2122 real(RKG) ,
intent(in) ,
contiguous :: rhs(
0:)
2123 real(RKG) ,
intent(out) ,
contiguous :: mul(
0:)
2218 PURE module subroutine setPolyDiv_CK5(dividend, divisor, quorem, lenQuo)
2219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2220 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiv_CK5
2223 complex(CKG),
intent(in) ,
contiguous :: dividend(:)
2224 complex(CKG),
intent(in) ,
contiguous :: divisor(:)
2225 complex(CKG),
intent(out) ,
contiguous :: quorem(:)
2226 integer(IK) ,
intent(out) :: lenQuo
2231 PURE module subroutine setPolyDiv_CK4(dividend, divisor, quorem, lenQuo)
2232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2233 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiv_CK4
2236 complex(CKG),
intent(in) ,
contiguous :: dividend(:)
2237 complex(CKG),
intent(in) ,
contiguous :: divisor(:)
2238 complex(CKG),
intent(out) ,
contiguous :: quorem(:)
2239 integer(IK) ,
intent(out) :: lenQuo
2244 PURE module subroutine setPolyDiv_CK3(dividend, divisor, quorem, lenQuo)
2245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2246 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiv_CK3
2249 complex(CKG),
intent(in) ,
contiguous :: dividend(:)
2250 complex(CKG),
intent(in) ,
contiguous :: divisor(:)
2251 complex(CKG),
intent(out) ,
contiguous :: quorem(:)
2252 integer(IK) ,
intent(out) :: lenQuo
2257 PURE module subroutine setPolyDiv_CK2(dividend, divisor, quorem, lenQuo)
2258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2259 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiv_CK2
2262 complex(CKG),
intent(in) ,
contiguous :: dividend(:)
2263 complex(CKG),
intent(in) ,
contiguous :: divisor(:)
2264 complex(CKG),
intent(out) ,
contiguous :: quorem(:)
2265 integer(IK) ,
intent(out) :: lenQuo
2270 PURE module subroutine setPolyDiv_CK1(dividend, divisor, quorem, lenQuo)
2271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2272 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiv_CK1
2275 complex(CKG),
intent(in) ,
contiguous :: dividend(:)
2276 complex(CKG),
intent(in) ,
contiguous :: divisor(:)
2277 complex(CKG),
intent(out) ,
contiguous :: quorem(:)
2278 integer(IK) ,
intent(out) :: lenQuo
2285 PURE module subroutine setPolyDiv_RK5(dividend, divisor, quorem, lenQuo)
2286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2287 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiv_RK5
2290 real(RKG) ,
intent(in) ,
contiguous :: dividend(:)
2291 real(RKG) ,
intent(in) ,
contiguous :: divisor(:)
2292 real(RKG) ,
intent(out) ,
contiguous :: quorem(:)
2293 integer(IK) ,
intent(out) :: lenQuo
2298 PURE module subroutine setPolyDiv_RK4(dividend, divisor, quorem, lenQuo)
2299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2300 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiv_RK4
2303 real(RKG) ,
intent(in) ,
contiguous :: dividend(:)
2304 real(RKG) ,
intent(in) ,
contiguous :: divisor(:)
2305 real(RKG) ,
intent(out) ,
contiguous :: quorem(:)
2306 integer(IK) ,
intent(out) :: lenQuo
2311 PURE module subroutine setPolyDiv_RK3(dividend, divisor, quorem, lenQuo)
2312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2313 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiv_RK3
2316 real(RKG) ,
intent(in) ,
contiguous :: dividend(:)
2317 real(RKG) ,
intent(in) ,
contiguous :: divisor(:)
2318 real(RKG) ,
intent(out) ,
contiguous :: quorem(:)
2319 integer(IK) ,
intent(out) :: lenQuo
2324 PURE module subroutine setPolyDiv_RK2(dividend, divisor, quorem, lenQuo)
2325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2326 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiv_RK2
2329 real(RKG) ,
intent(in) ,
contiguous :: dividend(:)
2330 real(RKG) ,
intent(in) ,
contiguous :: divisor(:)
2331 real(RKG) ,
intent(out) ,
contiguous :: quorem(:)
2332 integer(IK) ,
intent(out) :: lenQuo
2337 PURE module subroutine setPolyDiv_RK1(dividend, divisor, quorem, lenQuo)
2338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2339 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiv_RK1
2342 real(RKG) ,
intent(in) ,
contiguous :: dividend(:)
2343 real(RKG) ,
intent(in) ,
contiguous :: divisor(:)
2344 real(RKG) ,
intent(out) ,
contiguous :: quorem(:)
2345 integer(IK) ,
intent(out) :: lenQuo
2425 PURE module function getPolyDiffDef_CK5(coef)
result(diff)
2426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2427 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffDef_CK5
2430 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2431 complex(CKG) :: diff(
1 :
size(coef,
1, IK)
- 1_IK)
2436 PURE module function getPolyDiffDef_CK4(coef)
result(diff)
2437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2438 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffDef_CK4
2441 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2442 complex(CKG) :: diff(
1 :
size(coef,
1, IK)
- 1_IK)
2447 PURE module function getPolyDiffDef_CK3(coef)
result(diff)
2448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2449 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffDef_CK3
2452 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2453 complex(CKG) :: diff(
1 :
size(coef,
1, IK)
- 1_IK)
2458 PURE module function getPolyDiffDef_CK2(coef)
result(diff)
2459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2460 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffDef_CK2
2463 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2464 complex(CKG) :: diff(
1 :
size(coef,
1, IK)
- 1_IK)
2469 PURE module function getPolyDiffDef_CK1(coef)
result(diff)
2470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2471 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffDef_CK1
2474 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2475 complex(CKG) :: diff(
1 :
size(coef,
1, IK)
- 1_IK)
2482 PURE module function getPolyDiffDef_RK5(coef)
result(diff)
2483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2484 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffDef_RK5
2487 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2488 real(RKG) :: diff(
1 :
size(coef,
1, IK)
- 1_IK)
2493 PURE module function getPolyDiffDef_RK4(coef)
result(diff)
2494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2495 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffDef_RK4
2498 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2499 real(RKG) :: diff(
1 :
size(coef,
1, IK)
- 1_IK)
2504 PURE module function getPolyDiffDef_RK3(coef)
result(diff)
2505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2506 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffDef_RK3
2509 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2510 real(RKG) :: diff(
1 :
size(coef,
1, IK)
- 1_IK)
2515 PURE module function getPolyDiffDef_RK2(coef)
result(diff)
2516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2517 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffDef_RK2
2520 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2521 real(RKG) :: diff(
1 :
size(coef,
1, IK)
- 1_IK)
2526 PURE module function getPolyDiffDef_RK1(coef)
result(diff)
2527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2528 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffDef_RK1
2531 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2532 real(RKG) :: diff(
1 :
size(coef,
1, IK)
- 1_IK)
2545 PURE module function getPolyDiffOrd_CK5(coef, order)
result(diff)
2546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2547 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffOrd_CK5
2550 integer(IK) ,
intent(in) :: order
2551 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2552 complex(CKG) :: diff(order :
size(coef,
1, IK)
- 1_IK)
2557 PURE module function getPolyDiffOrd_CK4(coef, order)
result(diff)
2558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2559 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffOrd_CK4
2562 integer(IK) ,
intent(in) :: order
2563 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2564 complex(CKG) :: diff(order :
size(coef,
1, IK)
- 1_IK)
2569 PURE module function getPolyDiffOrd_CK3(coef, order)
result(diff)
2570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2571 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffOrd_CK3
2574 integer(IK) ,
intent(in) :: order
2575 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2576 complex(CKG) :: diff(order :
size(coef,
1, IK)
- 1_IK)
2581 PURE module function getPolyDiffOrd_CK2(coef, order)
result(diff)
2582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2583 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffOrd_CK2
2586 integer(IK) ,
intent(in) :: order
2587 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2588 complex(CKG) :: diff(order :
size(coef,
1, IK)
- 1_IK)
2593 PURE module function getPolyDiffOrd_CK1(coef, order)
result(diff)
2594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2595 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffOrd_CK1
2598 integer(IK) ,
intent(in) :: order
2599 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2600 complex(CKG) :: diff(order :
size(coef,
1, IK)
- 1_IK)
2607 PURE module function getPolyDiffOrd_RK5(coef, order)
result(diff)
2608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2609 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffOrd_RK5
2612 integer(IK) ,
intent(in) :: order
2613 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2614 real(RKG) :: diff(order :
size(coef,
1, IK)
- 1_IK)
2619 PURE module function getPolyDiffOrd_RK4(coef, order)
result(diff)
2620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2621 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffOrd_RK4
2624 integer(IK) ,
intent(in) :: order
2625 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2626 real(RKG) :: diff(order :
size(coef,
1, IK)
- 1_IK)
2631 PURE module function getPolyDiffOrd_RK3(coef, order)
result(diff)
2632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2633 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffOrd_RK3
2636 integer(IK) ,
intent(in) :: order
2637 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2638 real(RKG) :: diff(order :
size(coef,
1, IK)
- 1_IK)
2643 PURE module function getPolyDiffOrd_RK2(coef, order)
result(diff)
2644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2645 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffOrd_RK2
2648 integer(IK) ,
intent(in) :: order
2649 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2650 real(RKG) :: diff(order :
size(coef,
1, IK)
- 1_IK)
2655 PURE module function getPolyDiffOrd_RK1(coef, order)
result(diff)
2656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2657 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyDiffOrd_RK1
2660 integer(IK) ,
intent(in) :: order
2661 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2662 real(RKG) :: diff(order :
size(coef,
1, IK)
- 1_IK)
2740 PURE module subroutine setPolyDiffDef_CK5(diff, coef)
2741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2742 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffDef_CK5
2745 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2746 complex(CKG),
intent(out) ,
contiguous :: diff(
1:)
2751 PURE module subroutine setPolyDiffDef_CK4(diff, coef)
2752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2753 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffDef_CK4
2756 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2757 complex(CKG),
intent(out) ,
contiguous :: diff(
1:)
2762 PURE module subroutine setPolyDiffDef_CK3(diff, coef)
2763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2764 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffDef_CK3
2767 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2768 complex(CKG),
intent(out) ,
contiguous :: diff(
1:)
2773 PURE module subroutine setPolyDiffDef_CK2(diff, coef)
2774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2775 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffDef_CK2
2778 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2779 complex(CKG),
intent(out) ,
contiguous :: diff(
1:)
2784 PURE module subroutine setPolyDiffDef_CK1(diff, coef)
2785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2786 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffDef_CK1
2789 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2790 complex(CKG),
intent(out) ,
contiguous :: diff(
1:)
2797 PURE module subroutine setPolyDiffDef_RK5(diff, coef)
2798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2799 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffDef_RK5
2802 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2803 real(RKG) ,
intent(out) ,
contiguous :: diff(
1:)
2808 PURE module subroutine setPolyDiffDef_RK4(diff, coef)
2809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2810 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffDef_RK4
2813 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2814 real(RKG) ,
intent(out) ,
contiguous :: diff(
1:)
2819 PURE module subroutine setPolyDiffDef_RK3(diff, coef)
2820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2821 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffDef_RK3
2824 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2825 real(RKG) ,
intent(out) ,
contiguous :: diff(
1:)
2830 PURE module subroutine setPolyDiffDef_RK2(diff, coef)
2831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2832 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffDef_RK2
2835 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2836 real(RKG) ,
intent(out) ,
contiguous :: diff(
1:)
2841 PURE module subroutine setPolyDiffDef_RK1(diff, coef)
2842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2843 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffDef_RK1
2846 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2847 real(RKG) ,
intent(out) ,
contiguous :: diff(
1:)
2860 PURE module subroutine setPolyDiffOrd_CK5(diff, coef, order)
2861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2862 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffOrd_CK5
2865 integer(IK) ,
intent(in) :: order
2866 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2867 complex(CKG),
intent(out) ,
contiguous :: diff(order:)
2872 PURE module subroutine setPolyDiffOrd_CK4(diff, coef, order)
2873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2874 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffOrd_CK4
2877 integer(IK) ,
intent(in) :: order
2878 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2879 complex(CKG),
intent(out) ,
contiguous :: diff(order:)
2884 PURE module subroutine setPolyDiffOrd_CK3(diff, coef, order)
2885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2886 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffOrd_CK3
2889 integer(IK) ,
intent(in) :: order
2890 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2891 complex(CKG),
intent(out) ,
contiguous :: diff(order:)
2896 PURE module subroutine setPolyDiffOrd_CK2(diff, coef, order)
2897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2898 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffOrd_CK2
2901 integer(IK) ,
intent(in) :: order
2902 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2903 complex(CKG),
intent(out) ,
contiguous :: diff(order:)
2908 PURE module subroutine setPolyDiffOrd_CK1(diff, coef, order)
2909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2910 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffOrd_CK1
2913 integer(IK) ,
intent(in) :: order
2914 complex(CKG),
intent(in) ,
contiguous :: coef(
0:)
2915 complex(CKG),
intent(out) ,
contiguous :: diff(order:)
2922 PURE module subroutine setPolyDiffOrd_RK5(diff, coef, order)
2923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2924 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffOrd_RK5
2927 integer(IK) ,
intent(in) :: order
2928 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2929 real(RKG) ,
intent(out) ,
contiguous :: diff(order:)
2934 PURE module subroutine setPolyDiffOrd_RK4(diff, coef, order)
2935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2936 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffOrd_RK4
2939 integer(IK) ,
intent(in) :: order
2940 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2941 real(RKG) ,
intent(out) ,
contiguous :: diff(order:)
2946 PURE module subroutine setPolyDiffOrd_RK3(diff, coef, order)
2947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2948 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffOrd_RK3
2951 integer(IK) ,
intent(in) :: order
2952 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2953 real(RKG) ,
intent(out) ,
contiguous :: diff(order:)
2958 PURE module subroutine setPolyDiffOrd_RK2(diff, coef, order)
2959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2960 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffOrd_RK2
2963 integer(IK) ,
intent(in) :: order
2964 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2965 real(RKG) ,
intent(out) ,
contiguous :: diff(order:)
2970 PURE module subroutine setPolyDiffOrd_RK1(diff, coef, order)
2971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2972 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyDiffOrd_RK1
2975 integer(IK) ,
intent(in) :: order
2976 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
2977 real(RKG) ,
intent(out) ,
contiguous :: diff(order:)
3057 PURE module function getPolyStrDef_CK5(coef)
result(str)
3058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3059 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyStrDef_CK5
3062 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3063 character(:,SKG) ,
allocatable :: str
3068 PURE module function getPolyStrDef_CK4(coef)
result(str)
3069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3070 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyStrDef_CK4
3073 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3074 character(:,SKG) ,
allocatable :: str
3079 PURE module function getPolyStrDef_CK3(coef)
result(str)
3080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3081 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyStrDef_CK3
3084 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3085 character(:,SKG) ,
allocatable :: str
3090 PURE module function getPolyStrDef_CK2(coef)
result(str)
3091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3092 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyStrDef_CK2
3095 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3096 character(:,SKG) ,
allocatable :: str
3101 PURE module function getPolyStrDef_CK1(coef)
result(str)
3102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3103 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyStrDef_CK1
3106 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3107 character(:,SKG) ,
allocatable :: str
3114 PURE module function getPolyStrDef_RK5(coef)
result(str)
3115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3116 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyStrDef_RK5
3119 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3120 character(:,SKG) ,
allocatable :: str
3125 PURE module function getPolyStrDef_RK4(coef)
result(str)
3126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3127 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyStrDef_RK4
3130 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3131 character(:,SKG) ,
allocatable :: str
3136 PURE module function getPolyStrDef_RK3(coef)
result(str)
3137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3138 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyStrDef_RK3
3141 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3142 character(:,SKG) ,
allocatable :: str
3147 PURE module function getPolyStrDef_RK2(coef)
result(str)
3148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3149 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyStrDef_RK2
3152 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3153 character(:,SKG) ,
allocatable :: str
3158 PURE module function getPolyStrDef_RK1(coef)
result(str)
3159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3160 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyStrDef_RK1
3163 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3164 character(:,SKG) ,
allocatable :: str
3249 logical(LK) :: polished
= .true._LK
3276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3277 !DIR$ ATTRIBUTES DLLEXPORT ::
skgo
3338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3339 !DIR$ ATTRIBUTES DLLEXPORT ::
eigen
3400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3401 !DIR$ ATTRIBUTES DLLEXPORT ::
jenkins
3462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3463 !DIR$ ATTRIBUTES DLLEXPORT ::
laguerre
3755 module function getPolyRootDef_CK5_CK5(coef)
result(root)
3756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3757 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootDef_CK5_CK5
3760 complex(CKG) ,
allocatable :: root(:)
3761 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3766 module function getPolyRootDef_CK4_CK4(coef)
result(root)
3767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3768 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootDef_CK4_CK4
3771 complex(CKG) ,
allocatable :: root(:)
3772 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3777 module function getPolyRootDef_CK3_CK3(coef)
result(root)
3778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3779 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootDef_CK3_CK3
3782 complex(CKG) ,
allocatable :: root(:)
3783 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3788 module function getPolyRootDef_CK2_CK2(coef)
result(root)
3789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3790 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootDef_CK2_CK2
3793 complex(CKG) ,
allocatable :: root(:)
3794 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3799 module function getPolyRootDef_CK1_CK1(coef)
result(root)
3800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3801 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootDef_CK1_CK1
3804 complex(CKG) ,
allocatable :: root(:)
3805 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3812 module function getPolyRootDef_RK5_CK5(coef)
result(root)
3813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3814 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootDef_RK5_CK5
3817 complex(RKG) ,
allocatable :: root(:)
3818 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3823 module function getPolyRootDef_RK4_CK4(coef)
result(root)
3824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3825 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootDef_RK4_CK4
3828 complex(RKG) ,
allocatable :: root(:)
3829 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3834 module function getPolyRootDef_RK3_CK3(coef)
result(root)
3835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3836 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootDef_RK3_CK3
3839 complex(RKG) ,
allocatable :: root(:)
3840 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3845 module function getPolyRootDef_RK2_CK2(coef)
result(root)
3846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3847 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootDef_RK2_CK2
3850 complex(RKG) ,
allocatable :: root(:)
3851 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3856 module function getPolyRootDef_RK1_CK1(coef)
result(root)
3857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3858 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootDef_RK1_CK1
3861 complex(RKG) ,
allocatable :: root(:)
3862 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3885 module function getPolyRootEig_CK5_CK5(coef, method)
result(root)
3886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3887 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootEig_CK5_CK5
3890 complex(CKG) ,
allocatable :: root(:)
3891 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3892 type(eigen_type) ,
intent(in) :: method
3897 module function getPolyRootEig_CK4_CK4(coef, method)
result(root)
3898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3899 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootEig_CK4_CK4
3902 complex(CKG) ,
allocatable :: root(:)
3903 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3904 type(eigen_type) ,
intent(in) :: method
3909 module function getPolyRootEig_CK3_CK3(coef, method)
result(root)
3910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3911 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootEig_CK3_CK3
3914 complex(CKG) ,
allocatable :: root(:)
3915 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3916 type(eigen_type) ,
intent(in) :: method
3921 module function getPolyRootEig_CK2_CK2(coef, method)
result(root)
3922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3923 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootEig_CK2_CK2
3926 complex(CKG) ,
allocatable :: root(:)
3927 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3928 type(eigen_type) ,
intent(in) :: method
3933 module function getPolyRootEig_CK1_CK1(coef, method)
result(root)
3934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3935 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootEig_CK1_CK1
3938 complex(CKG) ,
allocatable :: root(:)
3939 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
3940 type(eigen_type) ,
intent(in) :: method
3947 module function getPolyRootEig_RK5_CK5(coef, method)
result(root)
3948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3949 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootEig_RK5_CK5
3952 complex(RKG) ,
allocatable :: root(:)
3953 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3954 type(eigen_type) ,
intent(in) :: method
3959 module function getPolyRootEig_RK4_CK4(coef, method)
result(root)
3960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3961 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootEig_RK4_CK4
3964 complex(RKG) ,
allocatable :: root(:)
3965 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3966 type(eigen_type) ,
intent(in) :: method
3971 module function getPolyRootEig_RK3_CK3(coef, method)
result(root)
3972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3973 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootEig_RK3_CK3
3976 complex(RKG) ,
allocatable :: root(:)
3977 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3978 type(eigen_type) ,
intent(in) :: method
3983 module function getPolyRootEig_RK2_CK2(coef, method)
result(root)
3984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3985 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootEig_RK2_CK2
3988 complex(RKG) ,
allocatable :: root(:)
3989 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
3990 type(eigen_type) ,
intent(in) :: method
3995 module function getPolyRootEig_RK1_CK1(coef, method)
result(root)
3996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3997 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootEig_RK1_CK1
4000 complex(RKG) ,
allocatable :: root(:)
4001 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4002 type(eigen_type) ,
intent(in) :: method
4025 module function getPolyRootJen_CK5_CK5(coef, method)
result(root)
4026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4027 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootJen_CK5_CK5
4030 complex(CKG) ,
allocatable :: root(:)
4031 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4032 type(jenkins_type) ,
intent(in) :: method
4037 module function getPolyRootJen_CK4_CK4(coef, method)
result(root)
4038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4039 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootJen_CK4_CK4
4042 complex(CKG) ,
allocatable :: root(:)
4043 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4044 type(jenkins_type) ,
intent(in) :: method
4049 module function getPolyRootJen_CK3_CK3(coef, method)
result(root)
4050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4051 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootJen_CK3_CK3
4054 complex(CKG) ,
allocatable :: root(:)
4055 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4056 type(jenkins_type) ,
intent(in) :: method
4061 module function getPolyRootJen_CK2_CK2(coef, method)
result(root)
4062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4063 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootJen_CK2_CK2
4066 complex(CKG) ,
allocatable :: root(:)
4067 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4068 type(jenkins_type) ,
intent(in) :: method
4073 module function getPolyRootJen_CK1_CK1(coef, method)
result(root)
4074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4075 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootJen_CK1_CK1
4078 complex(CKG) ,
allocatable :: root(:)
4079 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4080 type(jenkins_type) ,
intent(in) :: method
4087 module function getPolyRootJen_RK5_CK5(coef, method)
result(root)
4088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4089 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootJen_RK5_CK5
4092 complex(RKG) ,
allocatable :: root(:)
4093 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4094 type(jenkins_type) ,
intent(in) :: method
4099 module function getPolyRootJen_RK4_CK4(coef, method)
result(root)
4100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4101 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootJen_RK4_CK4
4104 complex(RKG) ,
allocatable :: root(:)
4105 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4106 type(jenkins_type) ,
intent(in) :: method
4111 module function getPolyRootJen_RK3_CK3(coef, method)
result(root)
4112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4113 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootJen_RK3_CK3
4116 complex(RKG) ,
allocatable :: root(:)
4117 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4118 type(jenkins_type) ,
intent(in) :: method
4123 module function getPolyRootJen_RK2_CK2(coef, method)
result(root)
4124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4125 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootJen_RK2_CK2
4128 complex(RKG) ,
allocatable :: root(:)
4129 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4130 type(jenkins_type) ,
intent(in) :: method
4135 module function getPolyRootJen_RK1_CK1(coef, method)
result(root)
4136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4137 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootJen_RK1_CK1
4140 complex(RKG) ,
allocatable :: root(:)
4141 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4142 type(jenkins_type) ,
intent(in) :: method
4165 module function getPolyRootLag_CK5_CK5(coef, method)
result(root)
4166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4167 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootLag_CK5_CK5
4170 complex(CKG) ,
allocatable :: root(:)
4171 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4172 type(laguerre_type) ,
intent(in) :: method
4177 module function getPolyRootLag_CK4_CK4(coef, method)
result(root)
4178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4179 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootLag_CK4_CK4
4182 complex(CKG) ,
allocatable :: root(:)
4183 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4184 type(laguerre_type) ,
intent(in) :: method
4189 module function getPolyRootLag_CK3_CK3(coef, method)
result(root)
4190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4191 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootLag_CK3_CK3
4194 complex(CKG) ,
allocatable :: root(:)
4195 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4196 type(laguerre_type) ,
intent(in) :: method
4201 module function getPolyRootLag_CK2_CK2(coef, method)
result(root)
4202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4203 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootLag_CK2_CK2
4206 complex(CKG) ,
allocatable :: root(:)
4207 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4208 type(laguerre_type) ,
intent(in) :: method
4213 module function getPolyRootLag_CK1_CK1(coef, method)
result(root)
4214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4215 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootLag_CK1_CK1
4218 complex(CKG) ,
allocatable :: root(:)
4219 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4220 type(laguerre_type) ,
intent(in) :: method
4227 module function getPolyRootLag_RK5_CK5(coef, method)
result(root)
4228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4229 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootLag_RK5_CK5
4232 complex(RKG) ,
allocatable :: root(:)
4233 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4234 type(laguerre_type) ,
intent(in) :: method
4239 module function getPolyRootLag_RK4_CK4(coef, method)
result(root)
4240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4241 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootLag_RK4_CK4
4244 complex(RKG) ,
allocatable :: root(:)
4245 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4246 type(laguerre_type) ,
intent(in) :: method
4251 module function getPolyRootLag_RK3_CK3(coef, method)
result(root)
4252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4253 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootLag_RK3_CK3
4256 complex(RKG) ,
allocatable :: root(:)
4257 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4258 type(laguerre_type) ,
intent(in) :: method
4263 module function getPolyRootLag_RK2_CK2(coef, method)
result(root)
4264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4265 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootLag_RK2_CK2
4268 complex(RKG) ,
allocatable :: root(:)
4269 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4270 type(laguerre_type) ,
intent(in) :: method
4275 module function getPolyRootLag_RK1_CK1(coef, method)
result(root)
4276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4277 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootLag_RK1_CK1
4280 complex(RKG) ,
allocatable :: root(:)
4281 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4282 type(laguerre_type) ,
intent(in) :: method
4305 module function getPolyRootSGO_CK5_CK5(coef, method)
result(root)
4306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4307 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootSGO_CK5_CK5
4310 complex(CKG) ,
allocatable :: root(:)
4311 complex(CKG) ,
intent(in) ,
contiguous :: coef(:)
4312 type(skgo_type) ,
intent(in) :: method
4317 module function getPolyRootSGO_CK4_CK4(coef, method)
result(root)
4318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4319 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootSGO_CK4_CK4
4322 complex(CKG) ,
allocatable :: root(:)
4323 complex(CKG) ,
intent(in) ,
contiguous :: coef(:)
4324 type(skgo_type) ,
intent(in) :: method
4329 module function getPolyRootSGO_CK3_CK3(coef, method)
result(root)
4330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4331 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootSGO_CK3_CK3
4334 complex(CKG) ,
allocatable :: root(:)
4335 complex(CKG) ,
intent(in) ,
contiguous :: coef(:)
4336 type(skgo_type) ,
intent(in) :: method
4341 module function getPolyRootSGO_CK2_CK2(coef, method)
result(root)
4342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4343 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootSGO_CK2_CK2
4346 complex(CKG) ,
allocatable :: root(:)
4347 complex(CKG) ,
intent(in) ,
contiguous :: coef(:)
4348 type(skgo_type) ,
intent(in) :: method
4353 module function getPolyRootSGO_CK1_CK1(coef, method)
result(root)
4354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4355 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootSGO_CK1_CK1
4358 complex(CKG) ,
allocatable :: root(:)
4359 complex(CKG) ,
intent(in) ,
contiguous :: coef(:)
4360 type(skgo_type) ,
intent(in) :: method
4367 module function getPolyRootSGO_RK5_CK5(coef, method)
result(root)
4368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4369 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootSGO_RK5_CK5
4372 complex(RKG) ,
allocatable :: root(:)
4373 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
4374 type(skgo_type) ,
intent(in) :: method
4379 module function getPolyRootSGO_RK4_CK4(coef, method)
result(root)
4380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4381 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootSGO_RK4_CK4
4384 complex(RKG) ,
allocatable :: root(:)
4385 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
4386 type(skgo_type) ,
intent(in) :: method
4391 module function getPolyRootSGO_RK3_CK3(coef, method)
result(root)
4392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4393 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootSGO_RK3_CK3
4396 complex(RKG) ,
allocatable :: root(:)
4397 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
4398 type(skgo_type) ,
intent(in) :: method
4403 module function getPolyRootSGO_RK2_CK2(coef, method)
result(root)
4404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4405 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootSGO_RK2_CK2
4408 complex(RKG) ,
allocatable :: root(:)
4409 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
4410 type(skgo_type) ,
intent(in) :: method
4415 module function getPolyRootSGO_RK1_CK1(coef, method)
result(root)
4416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4417 !DEC$ ATTRIBUTES DLLEXPORT :: getPolyRootSGO_RK1_CK1
4420 complex(RKG) ,
allocatable :: root(:)
4421 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
4422 type(skgo_type) ,
intent(in) :: method
4613 module subroutine setPolyRootEig_CK5_CK5(root, count, coef, method)
4614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4615 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootEig_CK5_CK5
4618 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4620 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4621 integer(IK) ,
intent(out) :: count
4622 type(eigen_type) ,
intent(in) :: method
4627 module subroutine setPolyRootEig_CK4_CK4(root, count, coef, method)
4628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4629 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootEig_CK4_CK4
4632 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4634 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4635 integer(IK) ,
intent(out) :: count
4636 type(eigen_type) ,
intent(in) :: method
4641 module subroutine setPolyRootEig_CK3_CK3(root, count, coef, method)
4642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4643 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootEig_CK3_CK3
4646 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4648 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4649 integer(IK) ,
intent(out) :: count
4650 type(eigen_type) ,
intent(in) :: method
4655 module subroutine setPolyRootEig_CK2_CK2(root, count, coef, method)
4656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4657 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootEig_CK2_CK2
4660 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4662 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4663 integer(IK) ,
intent(out) :: count
4664 type(eigen_type) ,
intent(in) :: method
4669 module subroutine setPolyRootEig_CK1_CK1(root, count, coef, method)
4670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4671 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootEig_CK1_CK1
4674 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4676 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4677 integer(IK) ,
intent(out) :: count
4678 type(eigen_type) ,
intent(in) :: method
4685 module subroutine setPolyRootEig_RK5_CK5(root, count, coef, method)
4686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4687 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootEig_RK5_CK5
4690 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4692 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
4693 integer(IK) ,
intent(out) :: count
4694 type(eigen_type) ,
intent(in) :: method
4699 module subroutine setPolyRootEig_RK4_CK4(root, count, coef, method)
4700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4701 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootEig_RK4_CK4
4704 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4706 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
4707 integer(IK) ,
intent(out) :: count
4708 type(eigen_type) ,
intent(in) :: method
4713 module subroutine setPolyRootEig_RK3_CK3(root, count, coef, method)
4714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4715 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootEig_RK3_CK3
4718 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4720 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
4721 integer(IK) ,
intent(out) :: count
4722 type(eigen_type) ,
intent(in) :: method
4727 module subroutine setPolyRootEig_RK2_CK2(root, count, coef, method)
4728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4729 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootEig_RK2_CK2
4732 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4734 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
4735 integer(IK) ,
intent(out) :: count
4736 type(eigen_type) ,
intent(in) :: method
4741 module subroutine setPolyRootEig_RK1_CK1(root, count, coef, method)
4742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4743 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootEig_RK1_CK1
4746 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4748 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
4749 integer(IK) ,
intent(out) :: count
4750 type(eigen_type) ,
intent(in) :: method
4765 module subroutine setPolyRootJen_CK5_CK5(root, count, coef, method)
4766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4767 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootJen_CK5_CK5
4770 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4772 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4773 integer(IK) ,
intent(out) :: count
4774 type(jenkins_type) ,
intent(in) :: method
4779 module subroutine setPolyRootJen_CK4_CK4(root, count, coef, method)
4780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4781 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootJen_CK4_CK4
4784 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4786 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4787 integer(IK) ,
intent(out) :: count
4788 type(jenkins_type) ,
intent(in) :: method
4793 module subroutine setPolyRootJen_CK3_CK3(root, count, coef, method)
4794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4795 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootJen_CK3_CK3
4798 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4800 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4801 integer(IK) ,
intent(out) :: count
4802 type(jenkins_type) ,
intent(in) :: method
4807 module subroutine setPolyRootJen_CK2_CK2(root, count, coef, method)
4808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4809 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootJen_CK2_CK2
4812 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4814 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4815 integer(IK) ,
intent(out) :: count
4816 type(jenkins_type) ,
intent(in) :: method
4821 module subroutine setPolyRootJen_CK1_CK1(root, count, coef, method)
4822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4823 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootJen_CK1_CK1
4826 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4828 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4829 integer(IK) ,
intent(out) :: count
4830 type(jenkins_type) ,
intent(in) :: method
4837 module subroutine setPolyRootJen_RK5_CK5(root, count, coef, method)
4838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4839 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootJen_RK5_CK5
4842 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4844 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
4845 integer(IK) ,
intent(out) :: count
4846 type(jenkins_type) ,
intent(in) :: method
4851 module subroutine setPolyRootJen_RK4_CK4(root, count, coef, method)
4852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4853 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootJen_RK4_CK4
4856 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4858 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
4859 integer(IK) ,
intent(out) :: count
4860 type(jenkins_type) ,
intent(in) :: method
4865 module subroutine setPolyRootJen_RK3_CK3(root, count, coef, method)
4866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4867 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootJen_RK3_CK3
4870 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4872 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
4873 integer(IK) ,
intent(out) :: count
4874 type(jenkins_type) ,
intent(in) :: method
4879 module subroutine setPolyRootJen_RK2_CK2(root, count, coef, method)
4880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4881 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootJen_RK2_CK2
4884 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4886 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
4887 integer(IK) ,
intent(out) :: count
4888 type(jenkins_type) ,
intent(in) :: method
4893 module subroutine setPolyRootJen_RK1_CK1(root, count, coef, method)
4894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4895 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootJen_RK1_CK1
4898 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4900 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
4901 integer(IK) ,
intent(out) :: count
4902 type(jenkins_type) ,
intent(in) :: method
4917 module subroutine setPolyRootLag_CK5_CK5(root, count, coef, method)
4918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4919 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootLag_CK5_CK5
4922 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4924 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4925 integer(IK) ,
intent(out) :: count
4926 type(laguerre_type) ,
intent(in) :: method
4931 module subroutine setPolyRootLag_CK4_CK4(root, count, coef, method)
4932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4933 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootLag_CK4_CK4
4936 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4938 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4939 integer(IK) ,
intent(out) :: count
4940 type(laguerre_type) ,
intent(in) :: method
4945 module subroutine setPolyRootLag_CK3_CK3(root, count, coef, method)
4946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4947 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootLag_CK3_CK3
4950 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4952 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4953 integer(IK) ,
intent(out) :: count
4954 type(laguerre_type) ,
intent(in) :: method
4959 module subroutine setPolyRootLag_CK2_CK2(root, count, coef, method)
4960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4961 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootLag_CK2_CK2
4964 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4966 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4967 integer(IK) ,
intent(out) :: count
4968 type(laguerre_type) ,
intent(in) :: method
4973 module subroutine setPolyRootLag_CK1_CK1(root, count, coef, method)
4974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4975 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootLag_CK1_CK1
4978 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
4980 complex(CKG) ,
intent(out) ,
contiguous :: root(:)
4981 integer(IK) ,
intent(out) :: count
4982 type(laguerre_type) ,
intent(in) :: method
4989 module subroutine setPolyRootLag_RK5_CK5(root, count, coef, method)
4990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4991 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootLag_RK5_CK5
4994 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
4996 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
4997 integer(IK) ,
intent(out) :: count
4998 type(laguerre_type) ,
intent(in) :: method
5003 module subroutine setPolyRootLag_RK4_CK4(root, count, coef, method)
5004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5005 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootLag_RK4_CK4
5008 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5010 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
5011 integer(IK) ,
intent(out) :: count
5012 type(laguerre_type) ,
intent(in) :: method
5017 module subroutine setPolyRootLag_RK3_CK3(root, count, coef, method)
5018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5019 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootLag_RK3_CK3
5022 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5024 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
5025 integer(IK) ,
intent(out) :: count
5026 type(laguerre_type) ,
intent(in) :: method
5031 module subroutine setPolyRootLag_RK2_CK2(root, count, coef, method)
5032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5033 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootLag_RK2_CK2
5036 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5038 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
5039 integer(IK) ,
intent(out) :: count
5040 type(laguerre_type) ,
intent(in) :: method
5045 module subroutine setPolyRootLag_RK1_CK1(root, count, coef, method)
5046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5047 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootLag_RK1_CK1
5050 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5052 complex(RKG) ,
intent(out) ,
contiguous :: root(:)
5053 integer(IK) ,
intent(out) :: count
5054 type(laguerre_type) ,
intent(in) :: method
5069 module subroutine setPolyRootSGO_CK5_CK5(root, count, coef, method)
5070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5071 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootSGO_CK5_CK5
5074 complex(CKG) ,
intent(in) ,
contiguous :: coef(:)
5075 complex(CKG) ,
intent(in) ,
contiguous :: root(:)
5076 integer(IK) ,
intent(out) :: count
5077 type(skgo_type) ,
intent(in) :: method
5082 module subroutine setPolyRootSGO_CK4_CK4(root, count, coef, method)
5083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5084 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootSGO_CK4_CK4
5087 complex(CKG) ,
intent(in) ,
contiguous :: coef(:)
5088 complex(CKG) ,
intent(in) ,
contiguous :: root(:)
5089 integer(IK) ,
intent(out) :: count
5090 type(skgo_type) ,
intent(in) :: method
5095 module subroutine setPolyRootSGO_CK3_CK3(root, count, coef, method)
5096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5097 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootSGO_CK3_CK3
5100 complex(CKG) ,
intent(in) ,
contiguous :: coef(:)
5101 complex(CKG) ,
intent(in) ,
contiguous :: root(:)
5102 integer(IK) ,
intent(out) :: count
5103 type(skgo_type) ,
intent(in) :: method
5108 module subroutine setPolyRootSGO_CK2_CK2(root, count, coef, method)
5109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5110 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootSGO_CK2_CK2
5113 complex(CKG) ,
intent(in) ,
contiguous :: coef(:)
5114 complex(CKG) ,
intent(in) ,
contiguous :: root(:)
5115 integer(IK) ,
intent(out) :: count
5116 type(skgo_type) ,
intent(in) :: method
5121 module subroutine setPolyRootSGO_CK1_CK1(root, count, coef, method)
5122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5123 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootSGO_CK1_CK1
5126 complex(CKG) ,
intent(in) ,
contiguous :: coef(:)
5127 complex(CKG) ,
intent(in) ,
contiguous :: root(:)
5128 integer(IK) ,
intent(out) :: count
5129 type(skgo_type) ,
intent(in) :: method
5136 module subroutine setPolyRootSGO_RK5_CK5(root, count, coef, method)
5137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5138 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootSGO_RK5_CK5
5141 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
5142 complex(RKG) ,
intent(in) ,
contiguous :: root(:)
5143 integer(IK) ,
intent(out) :: count
5144 type(skgo_type) ,
intent(in) :: method
5149 module subroutine setPolyRootSGO_RK4_CK4(root, count, coef, method)
5150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5151 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootSGO_RK4_CK4
5154 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
5155 complex(RKG) ,
intent(in) ,
contiguous :: root(:)
5156 integer(IK) ,
intent(out) :: count
5157 type(skgo_type) ,
intent(in) :: method
5162 module subroutine setPolyRootSGO_RK3_CK3(root, count, coef, method)
5163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5164 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootSGO_RK3_CK3
5167 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
5168 complex(RKG) ,
intent(in) ,
contiguous :: root(:)
5169 integer(IK) ,
intent(out) :: count
5170 type(skgo_type) ,
intent(in) :: method
5175 module subroutine setPolyRootSGO_RK2_CK2(root, count, coef, method)
5176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5177 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootSGO_RK2_CK2
5180 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
5181 complex(RKG) ,
intent(in) ,
contiguous :: root(:)
5182 integer(IK) ,
intent(out) :: count
5183 type(skgo_type) ,
intent(in) :: method
5188 module subroutine setPolyRootSGO_RK1_CK1(root, count, coef, method)
5189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5190 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootSGO_RK1_CK1
5193 real(RKG) ,
intent(in) ,
contiguous :: coef(:)
5194 complex(RKG) ,
intent(in) ,
contiguous :: root(:)
5195 integer(IK) ,
intent(out) :: count
5196 type(skgo_type) ,
intent(in) :: method
5284 PURE module subroutine setPolyRootPolishedLag_CK5_CK5(root, niter, coef)
5285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5286 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_CK5_CK5
5289 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
5290 complex(CKG) ,
intent(inout) :: root
5291 integer(IK) ,
intent(out) :: niter
5296 PURE module subroutine setPolyRootPolishedLag_CK4_CK4(root, niter, coef)
5297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5298 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_CK4_CK4
5301 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
5302 complex(CKG) ,
intent(inout) :: root
5303 integer(IK) ,
intent(out) :: niter
5308 PURE module subroutine setPolyRootPolishedLag_CK3_CK3(root, niter, coef)
5309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5310 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_CK3_CK3
5313 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
5314 complex(CKG) ,
intent(inout) :: root
5315 integer(IK) ,
intent(out) :: niter
5320 PURE module subroutine setPolyRootPolishedLag_CK2_CK2(root, niter, coef)
5321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5322 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_CK2_CK2
5325 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
5326 complex(CKG) ,
intent(inout) :: root
5327 integer(IK) ,
intent(out) :: niter
5332 PURE module subroutine setPolyRootPolishedLag_CK1_CK1(root, niter, coef)
5333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5334 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_CK1_CK1
5337 complex(CKG) ,
intent(in) ,
contiguous :: coef(
0:)
5338 complex(CKG) ,
intent(inout) :: root
5339 integer(IK) ,
intent(out) :: niter
5346 PURE module subroutine setPolyRootPolishedLag_RK5_CK5(root, niter, coef)
5347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5348 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_RK5_CK5
5351 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5352 complex(RKG) ,
intent(inout) :: root
5353 integer(IK) ,
intent(out) :: niter
5358 PURE module subroutine setPolyRootPolishedLag_RK4_CK4(root, niter, coef)
5359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5360 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_RK4_CK4
5363 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5364 complex(RKG) ,
intent(inout) :: root
5365 integer(IK) ,
intent(out) :: niter
5370 PURE module subroutine setPolyRootPolishedLag_RK3_CK3(root, niter, coef)
5371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5372 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_RK3_CK3
5375 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5376 complex(RKG) ,
intent(inout) :: root
5377 integer(IK) ,
intent(out) :: niter
5382 PURE module subroutine setPolyRootPolishedLag_RK2_CK2(root, niter, coef)
5383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5384 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_RK2_CK2
5387 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5388 complex(RKG) ,
intent(inout) :: root
5389 integer(IK) ,
intent(out) :: niter
5394 PURE module subroutine setPolyRootPolishedLag_RK1_CK1(root, niter, coef)
5395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5396 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_RK1_CK1
5399 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5400 complex(RKG) ,
intent(inout) :: root
5401 integer(IK) ,
intent(out) :: niter
5408 PURE module subroutine setPolyRootPolishedLag_RK5_RK5(root, niter, coef)
5409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5410 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_RK5_RK5
5413 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5414 real(RKG) ,
intent(inout) :: root
5415 integer(IK) ,
intent(out) :: niter
5420 PURE module subroutine setPolyRootPolishedLag_RK4_RK4(root, niter, coef)
5421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5422 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_RK4_RK4
5425 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5426 real(RKG) ,
intent(inout) :: root
5427 integer(IK) ,
intent(out) :: niter
5432 PURE module subroutine setPolyRootPolishedLag_RK3_RK3(root, niter, coef)
5433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5434 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_RK3_RK3
5437 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5438 real(RKG) ,
intent(inout) :: root
5439 integer(IK) ,
intent(out) :: niter
5444 PURE module subroutine setPolyRootPolishedLag_RK2_RK2(root, niter, coef)
5445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5446 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_RK2_RK2
5449 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5450 real(RKG) ,
intent(inout) :: root
5451 integer(IK) ,
intent(out) :: niter
5456 PURE module subroutine setPolyRootPolishedLag_RK1_RK1(root, niter, coef)
5457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5458 !DEC$ ATTRIBUTES DLLEXPORT :: setPolyRootPolishedLag_RK1_RK1
5461 real(RKG) ,
intent(in) ,
contiguous :: coef(
0:)
5462 real(RKG) ,
intent(inout) :: root
5463 integer(IK) ,
intent(out) :: niter
Generate and return the vector of coefficients of the polynomial resulting from the addition of a pol...
Generate and return the vector of coefficients of the polynomial resulting from the th-order differen...
Generate and return the vector of coefficients of the polynomial resulting from the multiplication of...
Generate and return the roots of a polynomial of arbitrary degree specified by its coefficients coef.
Generate and return a string containing the polynomial expression corresponding to the input polynomi...
Generate and return the vector of coefficients of the polynomial resulting from the subtraction of a ...
Generate and return the value of the polynomial of arbitrary degree whose coefficients are specified ...
Return the vector of coefficients of the polynomial resulting from the addition of a polynomial to an...
Return the vector of coefficients of the polynomial resulting from the th-order differentiation of a ...
Return the quotient and remainder of dividing a polynomial with another polynomial of arbitrary degre...
Return the vector of coefficients of the polynomial resulting from the multiplication of a polynomial...
Return the polished (refined) root of a polynomial of arbitrary degree specified by its coefficients ...
Return the roots of a polynomial of arbitrary degree specified by its coefficients coef.
Return the vector of coefficients of the polynomial resulting from the subtraction of a polynomial to...
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 module contains procedures and generic interfaces for performing various mathematical operations...
type(eigen_type), parameter eigen
This is a scalar parameter object of type eigen_type that is exclusively used to signify the use of E...
character(*, SK), parameter MODULE_NAME
type(skgo_type), parameter skgo
This is a scalar parameter object of type skgo_type that is exclusively used to signify the use of Sk...
type(jenkins_type), parameter jenkins
This is a scalar parameter object of type jenkins_type that is exclusively used to signify the use of...
type(laguerre_type), parameter laguerre
This is a scalar parameter object of type laguerre_type that is exclusively used to signify the use o...
This is a concrete derived type whose instances are exclusively used to signify the use of the Eigenv...
This is a concrete derived type whose instances are exclusively used to signify the use of Jenkins-Tr...
This is a concrete derived type whose instances are exclusively used to signify the use of Laguerre m...
This is an abstract derived type for constructing concrete derived types to distinguish various proce...
This is a concrete derived type whose instances are exclusively used to signify the use of Skowron-Go...