144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
372 PURE module function getSumDef_CK5(x)
result(sumres)
373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
374 !DEC$ ATTRIBUTES DLLEXPORT :: getSumDef_CK5
377 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
378 complex(TKG) :: sumres
383 PURE module function getSumDef_CK4(x)
result(sumres)
384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
385 !DEC$ ATTRIBUTES DLLEXPORT :: getSumDef_CK4
388 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
389 complex(TKG) :: sumres
394 PURE module function getSumDef_CK3(x)
result(sumres)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: getSumDef_CK3
399 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
400 complex(TKG) :: sumres
405 PURE module function getSumDef_CK2(x)
result(sumres)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: getSumDef_CK2
410 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
411 complex(TKG) :: sumres
416 PURE module function getSumDef_CK1(x)
result(sumres)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: getSumDef_CK1
421 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
422 complex(TKG) :: sumres
429 PURE module function getSumDef_RK5(x)
result(sumres)
430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
431 !DEC$ ATTRIBUTES DLLEXPORT :: getSumDef_RK5
434 real(TKG) ,
intent(in) ,
contiguous :: x(:)
440 PURE module function getSumDef_RK4(x)
result(sumres)
441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
442 !DEC$ ATTRIBUTES DLLEXPORT :: getSumDef_RK4
445 real(TKG) ,
intent(in) ,
contiguous :: x(:)
451 PURE module function getSumDef_RK3(x)
result(sumres)
452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
453 !DEC$ ATTRIBUTES DLLEXPORT :: getSumDef_RK3
456 real(TKG) ,
intent(in) ,
contiguous :: x(:)
462 PURE module function getSumDef_RK2(x)
result(sumres)
463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
464 !DEC$ ATTRIBUTES DLLEXPORT :: getSumDef_RK2
467 real(TKG) ,
intent(in) ,
contiguous :: x(:)
473 PURE module function getSumDef_RK1(x)
result(sumres)
474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
475 !DEC$ ATTRIBUTES DLLEXPORT :: getSumDef_RK1
478 real(TKG) ,
intent(in) ,
contiguous :: x(:)
494 PURE module function getSumIte_CK5(x, method)
result(sumres)
495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
496 !DEC$ ATTRIBUTES DLLEXPORT :: getSumIte_CK5
499 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
500 complex(TKG) :: sumres
501 type(iteration_type),
intent(in) :: method
506 PURE module function getSumIte_CK4(x, method)
result(sumres)
507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
508 !DEC$ ATTRIBUTES DLLEXPORT :: getSumIte_CK4
511 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
512 complex(TKG) :: sumres
513 type(iteration_type),
intent(in) :: method
518 PURE module function getSumIte_CK3(x, method)
result(sumres)
519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
520 !DEC$ ATTRIBUTES DLLEXPORT :: getSumIte_CK3
523 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
524 complex(TKG) :: sumres
525 type(iteration_type),
intent(in) :: method
530 PURE module function getSumIte_CK2(x, method)
result(sumres)
531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
532 !DEC$ ATTRIBUTES DLLEXPORT :: getSumIte_CK2
535 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
536 complex(TKG) :: sumres
537 type(iteration_type),
intent(in) :: method
542 PURE module function getSumIte_CK1(x, method)
result(sumres)
543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
544 !DEC$ ATTRIBUTES DLLEXPORT :: getSumIte_CK1
547 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
548 complex(TKG) :: sumres
549 type(iteration_type),
intent(in) :: method
556 PURE module function getSumIte_RK5(x, method)
result(sumres)
557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
558 !DEC$ ATTRIBUTES DLLEXPORT :: getSumIte_RK5
561 real(TKG) ,
intent(in) ,
contiguous :: x(:)
563 type(iteration_type),
intent(in) :: method
568 PURE module function getSumIte_RK4(x, method)
result(sumres)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: getSumIte_RK4
573 real(TKG) ,
intent(in) ,
contiguous :: x(:)
575 type(iteration_type),
intent(in) :: method
580 PURE module function getSumIte_RK3(x, method)
result(sumres)
581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
582 !DEC$ ATTRIBUTES DLLEXPORT :: getSumIte_RK3
585 real(TKG) ,
intent(in) ,
contiguous :: x(:)
587 type(iteration_type),
intent(in) :: method
592 PURE module function getSumIte_RK2(x, method)
result(sumres)
593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
594 !DEC$ ATTRIBUTES DLLEXPORT :: getSumIte_RK2
597 real(TKG) ,
intent(in) ,
contiguous :: x(:)
599 type(iteration_type),
intent(in) :: method
604 PURE module function getSumIte_RK1(x, method)
result(sumres)
605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
606 !DEC$ ATTRIBUTES DLLEXPORT :: getSumIte_RK1
609 real(TKG) ,
intent(in) ,
contiguous :: x(:)
611 type(iteration_type),
intent(in) :: method
626 PURE recursive module function getSumRec_CK5(x, method)
result(sumres)
627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
628 !DEC$ ATTRIBUTES DLLEXPORT :: getSumRec_CK5
631 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
632 complex(TKG) :: sumres
633 type(recursion_type),
intent(in) :: method
638 PURE recursive module function getSumRec_CK4(x, method)
result(sumres)
639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
640 !DEC$ ATTRIBUTES DLLEXPORT :: getSumRec_CK4
643 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
644 complex(TKG) :: sumres
645 type(recursion_type),
intent(in) :: method
650 PURE recursive module function getSumRec_CK3(x, method)
result(sumres)
651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
652 !DEC$ ATTRIBUTES DLLEXPORT :: getSumRec_CK3
655 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
656 complex(TKG) :: sumres
657 type(recursion_type),
intent(in) :: method
662 PURE recursive module function getSumRec_CK2(x, method)
result(sumres)
663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
664 !DEC$ ATTRIBUTES DLLEXPORT :: getSumRec_CK2
667 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
668 complex(TKG) :: sumres
669 type(recursion_type),
intent(in) :: method
674 PURE recursive module function getSumRec_CK1(x, method)
result(sumres)
675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
676 !DEC$ ATTRIBUTES DLLEXPORT :: getSumRec_CK1
679 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
680 complex(TKG) :: sumres
681 type(recursion_type),
intent(in) :: method
688 PURE recursive module function getSumRec_RK5(x, method)
result(sumres)
689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
690 !DEC$ ATTRIBUTES DLLEXPORT :: getSumRec_RK5
693 real(TKG) ,
intent(in) ,
contiguous :: x(:)
695 type(recursion_type),
intent(in) :: method
700 PURE recursive module function getSumRec_RK4(x, method)
result(sumres)
701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
702 !DEC$ ATTRIBUTES DLLEXPORT :: getSumRec_RK4
705 real(TKG) ,
intent(in) ,
contiguous :: x(:)
707 type(recursion_type),
intent(in) :: method
712 PURE recursive module function getSumRec_RK3(x, method)
result(sumres)
713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
714 !DEC$ ATTRIBUTES DLLEXPORT :: getSumRec_RK3
717 real(TKG) ,
intent(in) ,
contiguous :: x(:)
719 type(recursion_type),
intent(in) :: method
724 PURE recursive module function getSumRec_RK2(x, method)
result(sumres)
725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
726 !DEC$ ATTRIBUTES DLLEXPORT :: getSumRec_RK2
729 real(TKG) ,
intent(in) ,
contiguous :: x(:)
731 type(recursion_type),
intent(in) :: method
736 PURE recursive module function getSumRec_RK1(x, method)
result(sumres)
737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
738 !DEC$ ATTRIBUTES DLLEXPORT :: getSumRec_RK1
741 real(TKG) ,
intent(in) ,
contiguous :: x(:)
743 type(recursion_type),
intent(in) :: method
758 PURE module function getSumFAB_CK5(x, method)
result(sumres)
759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
760 !DEC$ ATTRIBUTES DLLEXPORT :: getSumFAB_CK5
763 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
764 complex(TKG) :: sumres
765 type(fablocked_type),
intent(in) :: method
770 PURE module function getSumFAB_CK4(x, method)
result(sumres)
771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
772 !DEC$ ATTRIBUTES DLLEXPORT :: getSumFAB_CK4
775 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
776 complex(TKG) :: sumres
777 type(fablocked_type),
intent(in) :: method
782 PURE module function getSumFAB_CK3(x, method)
result(sumres)
783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
784 !DEC$ ATTRIBUTES DLLEXPORT :: getSumFAB_CK3
787 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
788 complex(TKG) :: sumres
789 type(fablocked_type),
intent(in) :: method
794 PURE module function getSumFAB_CK2(x, method)
result(sumres)
795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
796 !DEC$ ATTRIBUTES DLLEXPORT :: getSumFAB_CK2
799 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
800 complex(TKG) :: sumres
801 type(fablocked_type),
intent(in) :: method
806 PURE module function getSumFAB_CK1(x, method)
result(sumres)
807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
808 !DEC$ ATTRIBUTES DLLEXPORT :: getSumFAB_CK1
811 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
812 complex(TKG) :: sumres
813 type(fablocked_type),
intent(in) :: method
820 PURE module function getSumFAB_RK5(x, method)
result(sumres)
821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
822 !DEC$ ATTRIBUTES DLLEXPORT :: getSumFAB_RK5
825 real(TKG) ,
intent(in) ,
contiguous :: x(:)
827 type(fablocked_type),
intent(in) :: method
832 PURE module function getSumFAB_RK4(x, method)
result(sumres)
833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
834 !DEC$ ATTRIBUTES DLLEXPORT :: getSumFAB_RK4
837 real(TKG) ,
intent(in) ,
contiguous :: x(:)
839 type(fablocked_type),
intent(in) :: method
844 PURE module function getSumFAB_RK3(x, method)
result(sumres)
845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
846 !DEC$ ATTRIBUTES DLLEXPORT :: getSumFAB_RK3
849 real(TKG) ,
intent(in) ,
contiguous :: x(:)
851 type(fablocked_type),
intent(in) :: method
856 PURE module function getSumFAB_RK2(x, method)
result(sumres)
857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
858 !DEC$ ATTRIBUTES DLLEXPORT :: getSumFAB_RK2
861 real(TKG) ,
intent(in) ,
contiguous :: x(:)
863 type(fablocked_type),
intent(in) :: method
868 PURE module function getSumFAB_RK1(x, method)
result(sumres)
869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
870 !DEC$ ATTRIBUTES DLLEXPORT :: getSumFAB_RK1
873 real(TKG) ,
intent(in) ,
contiguous :: x(:)
875 type(fablocked_type),
intent(in) :: method
890 PURE module function getSumNAB_CK5(x, method)
result(sumres)
891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
892 !DEC$ ATTRIBUTES DLLEXPORT :: getSumNAB_CK5
895 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
896 complex(TKG) :: sumres
897 type(nablocked_type),
intent(in) :: method
902 PURE module function getSumNAB_CK4(x, method)
result(sumres)
903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
904 !DEC$ ATTRIBUTES DLLEXPORT :: getSumNAB_CK4
907 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
908 complex(TKG) :: sumres
909 type(nablocked_type),
intent(in) :: method
914 PURE module function getSumNAB_CK3(x, method)
result(sumres)
915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
916 !DEC$ ATTRIBUTES DLLEXPORT :: getSumNAB_CK3
919 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
920 complex(TKG) :: sumres
921 type(nablocked_type),
intent(in) :: method
926 PURE module function getSumNAB_CK2(x, method)
result(sumres)
927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
928 !DEC$ ATTRIBUTES DLLEXPORT :: getSumNAB_CK2
931 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
932 complex(TKG) :: sumres
933 type(nablocked_type),
intent(in) :: method
938 PURE module function getSumNAB_CK1(x, method)
result(sumres)
939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
940 !DEC$ ATTRIBUTES DLLEXPORT :: getSumNAB_CK1
943 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
944 complex(TKG) :: sumres
945 type(nablocked_type),
intent(in) :: method
952 PURE module function getSumNAB_RK5(x, method)
result(sumres)
953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
954 !DEC$ ATTRIBUTES DLLEXPORT :: getSumNAB_RK5
957 real(TKG) ,
intent(in) ,
contiguous :: x(:)
959 type(nablocked_type),
intent(in) :: method
964 PURE module function getSumNAB_RK4(x, method)
result(sumres)
965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
966 !DEC$ ATTRIBUTES DLLEXPORT :: getSumNAB_RK4
969 real(TKG) ,
intent(in) ,
contiguous :: x(:)
971 type(nablocked_type),
intent(in) :: method
976 PURE module function getSumNAB_RK3(x, method)
result(sumres)
977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
978 !DEC$ ATTRIBUTES DLLEXPORT :: getSumNAB_RK3
981 real(TKG) ,
intent(in) ,
contiguous :: x(:)
983 type(nablocked_type),
intent(in) :: method
988 PURE module function getSumNAB_RK2(x, method)
result(sumres)
989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
990 !DEC$ ATTRIBUTES DLLEXPORT :: getSumNAB_RK2
993 real(TKG) ,
intent(in) ,
contiguous :: x(:)
995 type(nablocked_type),
intent(in) :: method
1000 PURE module function getSumNAB_RK1(x, method)
result(sumres)
1001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1002 !DEC$ ATTRIBUTES DLLEXPORT :: getSumNAB_RK1
1005 real(TKG) ,
intent(in) ,
contiguous :: x(:)
1007 type(nablocked_type),
intent(in) :: method
1022 PURE module function getSumKAB_CK5(x, method)
result(sumres)
1023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1024 !DEC$ ATTRIBUTES DLLEXPORT :: getSumKAB_CK5
1027 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
1028 complex(TKG) :: sumres
1029 type(kahanbabu_type),
intent(in) :: method
1034 PURE module function getSumKAB_CK4(x, method)
result(sumres)
1035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1036 !DEC$ ATTRIBUTES DLLEXPORT :: getSumKAB_CK4
1039 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
1040 complex(TKG) :: sumres
1041 type(kahanbabu_type),
intent(in) :: method
1046 PURE module function getSumKAB_CK3(x, method)
result(sumres)
1047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1048 !DEC$ ATTRIBUTES DLLEXPORT :: getSumKAB_CK3
1051 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
1052 complex(TKG) :: sumres
1053 type(kahanbabu_type),
intent(in) :: method
1058 PURE module function getSumKAB_CK2(x, method)
result(sumres)
1059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1060 !DEC$ ATTRIBUTES DLLEXPORT :: getSumKAB_CK2
1063 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
1064 complex(TKG) :: sumres
1065 type(kahanbabu_type),
intent(in) :: method
1070 PURE module function getSumKAB_CK1(x, method)
result(sumres)
1071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1072 !DEC$ ATTRIBUTES DLLEXPORT :: getSumKAB_CK1
1075 complex(TKG) ,
intent(in) ,
contiguous :: x(:)
1076 complex(TKG) :: sumres
1077 type(kahanbabu_type),
intent(in) :: method
1084 PURE module function getSumKAB_RK5(x, method)
result(sumres)
1085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1086 !DEC$ ATTRIBUTES DLLEXPORT :: getSumKAB_RK5
1089 real(TKG) ,
intent(in) ,
contiguous :: x(:)
1091 type(kahanbabu_type),
intent(in) :: method
1096 PURE module function getSumKAB_RK4(x, method)
result(sumres)
1097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1098 !DEC$ ATTRIBUTES DLLEXPORT :: getSumKAB_RK4
1101 real(TKG) ,
intent(in) ,
contiguous :: x(:)
1103 type(kahanbabu_type),
intent(in) :: method
1108 PURE module function getSumKAB_RK3(x, method)
result(sumres)
1109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1110 !DEC$ ATTRIBUTES DLLEXPORT :: getSumKAB_RK3
1113 real(TKG) ,
intent(in) ,
contiguous :: x(:)
1115 type(kahanbabu_type),
intent(in) :: method
1120 PURE module function getSumKAB_RK2(x, method)
result(sumres)
1121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1122 !DEC$ ATTRIBUTES DLLEXPORT :: getSumKAB_RK2
1125 real(TKG) ,
intent(in) ,
contiguous :: x(:)
1127 type(kahanbabu_type),
intent(in) :: method
1132 PURE module function getSumKAB_RK1(x, method)
result(sumres)
1133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1134 !DEC$ ATTRIBUTES DLLEXPORT :: getSumKAB_RK1
1137 real(TKG) ,
intent(in) ,
contiguous :: x(:)
1139 type(kahanbabu_type),
intent(in) :: method
1252 PURE module function getDotDef_CK5(x, y)
result(dotres)
1253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1254 !DEC$ ATTRIBUTES DLLEXPORT :: getDotDef_CK5
1257 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1258 complex(TKG) :: dotres
1263 PURE module function getDotDef_CK4(x, y)
result(dotres)
1264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1265 !DEC$ ATTRIBUTES DLLEXPORT :: getDotDef_CK4
1268 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1269 complex(TKG) :: dotres
1274 PURE module function getDotDef_CK3(x, y)
result(dotres)
1275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1276 !DEC$ ATTRIBUTES DLLEXPORT :: getDotDef_CK3
1279 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1280 complex(TKG) :: dotres
1285 PURE module function getDotDef_CK2(x, y)
result(dotres)
1286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1287 !DEC$ ATTRIBUTES DLLEXPORT :: getDotDef_CK2
1290 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1291 complex(TKG) :: dotres
1296 PURE module function getDotDef_CK1(x, y)
result(dotres)
1297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1298 !DEC$ ATTRIBUTES DLLEXPORT :: getDotDef_CK1
1301 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1302 complex(TKG) :: dotres
1309 PURE module function getDotDef_RK5(x, y)
result(dotres)
1310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1311 !DEC$ ATTRIBUTES DLLEXPORT :: getDotDef_RK5
1314 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1320 PURE module function getDotDef_RK4(x, y)
result(dotres)
1321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1322 !DEC$ ATTRIBUTES DLLEXPORT :: getDotDef_RK4
1325 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1331 PURE module function getDotDef_RK3(x, y)
result(dotres)
1332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1333 !DEC$ ATTRIBUTES DLLEXPORT :: getDotDef_RK3
1336 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1342 PURE module function getDotDef_RK2(x, y)
result(dotres)
1343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1344 !DEC$ ATTRIBUTES DLLEXPORT :: getDotDef_RK2
1347 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1353 PURE module function getDotDef_RK1(x, y)
result(dotres)
1354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1355 !DEC$ ATTRIBUTES DLLEXPORT :: getDotDef_RK1
1358 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1374 PURE module function getDotIte_CK5(x, y, method)
result(dotres)
1375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1376 !DEC$ ATTRIBUTES DLLEXPORT :: getDotIte_CK5
1379 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1380 complex(TKG) :: dotres
1381 type(iteration_type),
intent(in) :: method
1386 PURE module function getDotIte_CK4(x, y, method)
result(dotres)
1387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1388 !DEC$ ATTRIBUTES DLLEXPORT :: getDotIte_CK4
1391 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1392 complex(TKG) :: dotres
1393 type(iteration_type),
intent(in) :: method
1398 PURE module function getDotIte_CK3(x, y, method)
result(dotres)
1399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1400 !DEC$ ATTRIBUTES DLLEXPORT :: getDotIte_CK3
1403 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1404 complex(TKG) :: dotres
1405 type(iteration_type),
intent(in) :: method
1410 PURE module function getDotIte_CK2(x, y, method)
result(dotres)
1411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1412 !DEC$ ATTRIBUTES DLLEXPORT :: getDotIte_CK2
1415 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1416 complex(TKG) :: dotres
1417 type(iteration_type),
intent(in) :: method
1422 PURE module function getDotIte_CK1(x, y, method)
result(dotres)
1423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1424 !DEC$ ATTRIBUTES DLLEXPORT :: getDotIte_CK1
1427 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1428 complex(TKG) :: dotres
1429 type(iteration_type),
intent(in) :: method
1436 PURE module function getDotIte_RK5(x, y, method)
result(dotres)
1437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1438 !DEC$ ATTRIBUTES DLLEXPORT :: getDotIte_RK5
1441 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1443 type(iteration_type),
intent(in) :: method
1448 PURE module function getDotIte_RK4(x, y, method)
result(dotres)
1449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1450 !DEC$ ATTRIBUTES DLLEXPORT :: getDotIte_RK4
1453 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1455 type(iteration_type),
intent(in) :: method
1460 PURE module function getDotIte_RK3(x, y, method)
result(dotres)
1461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1462 !DEC$ ATTRIBUTES DLLEXPORT :: getDotIte_RK3
1465 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1467 type(iteration_type),
intent(in) :: method
1472 PURE module function getDotIte_RK2(x, y, method)
result(dotres)
1473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1474 !DEC$ ATTRIBUTES DLLEXPORT :: getDotIte_RK2
1477 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1479 type(iteration_type),
intent(in) :: method
1484 PURE module function getDotIte_RK1(x, y, method)
result(dotres)
1485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1486 !DEC$ ATTRIBUTES DLLEXPORT :: getDotIte_RK1
1489 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1491 type(iteration_type),
intent(in) :: method
1506 PURE recursive module function getDotRec_CK5(x, y, method)
result(dotres)
1507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1508 !DEC$ ATTRIBUTES DLLEXPORT :: getDotRec_CK5
1511 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1512 complex(TKG) :: dotres
1513 type(recursion_type),
intent(in) :: method
1518 PURE recursive module function getDotRec_CK4(x, y, method)
result(dotres)
1519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1520 !DEC$ ATTRIBUTES DLLEXPORT :: getDotRec_CK4
1523 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1524 complex(TKG) :: dotres
1525 type(recursion_type),
intent(in) :: method
1530 PURE recursive module function getDotRec_CK3(x, y, method)
result(dotres)
1531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1532 !DEC$ ATTRIBUTES DLLEXPORT :: getDotRec_CK3
1535 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1536 complex(TKG) :: dotres
1537 type(recursion_type),
intent(in) :: method
1542 PURE recursive module function getDotRec_CK2(x, y, method)
result(dotres)
1543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1544 !DEC$ ATTRIBUTES DLLEXPORT :: getDotRec_CK2
1547 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1548 complex(TKG) :: dotres
1549 type(recursion_type),
intent(in) :: method
1554 PURE recursive module function getDotRec_CK1(x, y, method)
result(dotres)
1555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1556 !DEC$ ATTRIBUTES DLLEXPORT :: getDotRec_CK1
1559 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1560 complex(TKG) :: dotres
1561 type(recursion_type),
intent(in) :: method
1568 PURE recursive module function getDotRec_RK5(x, y, method)
result(dotres)
1569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1570 !DEC$ ATTRIBUTES DLLEXPORT :: getDotRec_RK5
1573 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1575 type(recursion_type),
intent(in) :: method
1580 PURE recursive module function getDotRec_RK4(x, y, method)
result(dotres)
1581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1582 !DEC$ ATTRIBUTES DLLEXPORT :: getDotRec_RK4
1585 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1587 type(recursion_type),
intent(in) :: method
1592 PURE recursive module function getDotRec_RK3(x, y, method)
result(dotres)
1593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1594 !DEC$ ATTRIBUTES DLLEXPORT :: getDotRec_RK3
1597 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1599 type(recursion_type),
intent(in) :: method
1604 PURE recursive module function getDotRec_RK2(x, y, method)
result(dotres)
1605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1606 !DEC$ ATTRIBUTES DLLEXPORT :: getDotRec_RK2
1609 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1611 type(recursion_type),
intent(in) :: method
1616 PURE recursive module function getDotRec_RK1(x, y, method)
result(dotres)
1617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1618 !DEC$ ATTRIBUTES DLLEXPORT :: getDotRec_RK1
1621 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1623 type(recursion_type),
intent(in) :: method
1638 PURE module function getDotFAB_CK5(x, y, method)
result(dotres)
1639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1640 !DEC$ ATTRIBUTES DLLEXPORT :: getDotFAB_CK5
1643 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1644 complex(TKG) :: dotres
1645 type(fablocked_type),
intent(in) :: method
1650 PURE module function getDotFAB_CK4(x, y, method)
result(dotres)
1651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1652 !DEC$ ATTRIBUTES DLLEXPORT :: getDotFAB_CK4
1655 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1656 complex(TKG) :: dotres
1657 type(fablocked_type),
intent(in) :: method
1662 PURE module function getDotFAB_CK3(x, y, method)
result(dotres)
1663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1664 !DEC$ ATTRIBUTES DLLEXPORT :: getDotFAB_CK3
1667 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1668 complex(TKG) :: dotres
1669 type(fablocked_type),
intent(in) :: method
1674 PURE module function getDotFAB_CK2(x, y, method)
result(dotres)
1675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1676 !DEC$ ATTRIBUTES DLLEXPORT :: getDotFAB_CK2
1679 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1680 complex(TKG) :: dotres
1681 type(fablocked_type),
intent(in) :: method
1686 PURE module function getDotFAB_CK1(x, y, method)
result(dotres)
1687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1688 !DEC$ ATTRIBUTES DLLEXPORT :: getDotFAB_CK1
1691 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1692 complex(TKG) :: dotres
1693 type(fablocked_type),
intent(in) :: method
1700 PURE module function getDotFAB_RK5(x, y, method)
result(dotres)
1701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1702 !DEC$ ATTRIBUTES DLLEXPORT :: getDotFAB_RK5
1705 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1707 type(fablocked_type),
intent(in) :: method
1712 PURE module function getDotFAB_RK4(x, y, method)
result(dotres)
1713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1714 !DEC$ ATTRIBUTES DLLEXPORT :: getDotFAB_RK4
1717 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1719 type(fablocked_type),
intent(in) :: method
1724 PURE module function getDotFAB_RK3(x, y, method)
result(dotres)
1725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1726 !DEC$ ATTRIBUTES DLLEXPORT :: getDotFAB_RK3
1729 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1731 type(fablocked_type),
intent(in) :: method
1736 PURE module function getDotFAB_RK2(x, y, method)
result(dotres)
1737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1738 !DEC$ ATTRIBUTES DLLEXPORT :: getDotFAB_RK2
1741 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1743 type(fablocked_type),
intent(in) :: method
1748 PURE module function getDotFAB_RK1(x, y, method)
result(dotres)
1749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1750 !DEC$ ATTRIBUTES DLLEXPORT :: getDotFAB_RK1
1753 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1755 type(fablocked_type),
intent(in) :: method
1770 PURE module function getDotNAB_CK5(x, y, method)
result(dotres)
1771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1772 !DEC$ ATTRIBUTES DLLEXPORT :: getDotNAB_CK5
1775 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1776 complex(TKG) :: dotres
1777 type(nablocked_type),
intent(in) :: method
1782 PURE module function getDotNAB_CK4(x, y, method)
result(dotres)
1783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1784 !DEC$ ATTRIBUTES DLLEXPORT :: getDotNAB_CK4
1787 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1788 complex(TKG) :: dotres
1789 type(nablocked_type),
intent(in) :: method
1794 PURE module function getDotNAB_CK3(x, y, method)
result(dotres)
1795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1796 !DEC$ ATTRIBUTES DLLEXPORT :: getDotNAB_CK3
1799 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1800 complex(TKG) :: dotres
1801 type(nablocked_type),
intent(in) :: method
1806 PURE module function getDotNAB_CK2(x, y, method)
result(dotres)
1807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1808 !DEC$ ATTRIBUTES DLLEXPORT :: getDotNAB_CK2
1811 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1812 complex(TKG) :: dotres
1813 type(nablocked_type),
intent(in) :: method
1818 PURE module function getDotNAB_CK1(x, y, method)
result(dotres)
1819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1820 !DEC$ ATTRIBUTES DLLEXPORT :: getDotNAB_CK1
1823 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1824 complex(TKG) :: dotres
1825 type(nablocked_type),
intent(in) :: method
1832 PURE module function getDotNAB_RK5(x, y, method)
result(dotres)
1833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1834 !DEC$ ATTRIBUTES DLLEXPORT :: getDotNAB_RK5
1837 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1839 type(nablocked_type),
intent(in) :: method
1844 PURE module function getDotNAB_RK4(x, y, method)
result(dotres)
1845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1846 !DEC$ ATTRIBUTES DLLEXPORT :: getDotNAB_RK4
1849 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1851 type(nablocked_type),
intent(in) :: method
1856 PURE module function getDotNAB_RK3(x, y, method)
result(dotres)
1857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1858 !DEC$ ATTRIBUTES DLLEXPORT :: getDotNAB_RK3
1861 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1863 type(nablocked_type),
intent(in) :: method
1868 PURE module function getDotNAB_RK2(x, y, method)
result(dotres)
1869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1870 !DEC$ ATTRIBUTES DLLEXPORT :: getDotNAB_RK2
1873 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1875 type(nablocked_type),
intent(in) :: method
1880 PURE module function getDotNAB_RK1(x, y, method)
result(dotres)
1881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1882 !DEC$ ATTRIBUTES DLLEXPORT :: getDotNAB_RK1
1885 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1887 type(nablocked_type),
intent(in) :: method
1902 PURE module function getDotKAB_CK5(x, y, method)
result(dotres)
1903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1904 !DEC$ ATTRIBUTES DLLEXPORT :: getDotKAB_CK5
1907 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1908 complex(TKG) :: dotres
1909 type(kahanbabu_type),
intent(in) :: method
1914 PURE module function getDotKAB_CK4(x, y, method)
result(dotres)
1915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1916 !DEC$ ATTRIBUTES DLLEXPORT :: getDotKAB_CK4
1919 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1920 complex(TKG) :: dotres
1921 type(kahanbabu_type),
intent(in) :: method
1926 PURE module function getDotKAB_CK3(x, y, method)
result(dotres)
1927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1928 !DEC$ ATTRIBUTES DLLEXPORT :: getDotKAB_CK3
1931 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1932 complex(TKG) :: dotres
1933 type(kahanbabu_type),
intent(in) :: method
1938 PURE module function getDotKAB_CK2(x, y, method)
result(dotres)
1939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1940 !DEC$ ATTRIBUTES DLLEXPORT :: getDotKAB_CK2
1943 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1944 complex(TKG) :: dotres
1945 type(kahanbabu_type),
intent(in) :: method
1950 PURE module function getDotKAB_CK1(x, y, method)
result(dotres)
1951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1952 !DEC$ ATTRIBUTES DLLEXPORT :: getDotKAB_CK1
1955 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1956 complex(TKG) :: dotres
1957 type(kahanbabu_type),
intent(in) :: method
1964 PURE module function getDotKAB_RK5(x, y, method)
result(dotres)
1965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1966 !DEC$ ATTRIBUTES DLLEXPORT :: getDotKAB_RK5
1969 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1971 type(kahanbabu_type),
intent(in) :: method
1976 PURE module function getDotKAB_RK4(x, y, method)
result(dotres)
1977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1978 !DEC$ ATTRIBUTES DLLEXPORT :: getDotKAB_RK4
1981 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1983 type(kahanbabu_type),
intent(in) :: method
1988 PURE module function getDotKAB_RK3(x, y, method)
result(dotres)
1989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1990 !DEC$ ATTRIBUTES DLLEXPORT :: getDotKAB_RK3
1993 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1995 type(kahanbabu_type),
intent(in) :: method
2000 PURE module function getDotKAB_RK2(x, y, method)
result(dotres)
2001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2002 !DEC$ ATTRIBUTES DLLEXPORT :: getDotKAB_RK2
2005 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2007 type(kahanbabu_type),
intent(in) :: method
2012 PURE module function getDotKAB_RK1(x, y, method)
result(dotres)
2013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2014 !DEC$ ATTRIBUTES DLLEXPORT :: getDotKAB_RK1
2017 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2019 type(kahanbabu_type),
intent(in) :: method
Generate and return the expression dot_product(x, y) accurately (almost without roundoff error).
Generate and return the expression sum(x) accurately (almost without roundoff error).
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(iteration_type), parameter iteration
This is a scalar parameter object of type iteration_type that is exclusively used to request looping ...
character(*, SK), parameter MODULE_NAME
type(recursion_type), parameter recursion
This is a scalar parameter object of type recursion_type that is exclusively used to request recursiv...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains procedures and generic interfaces for computing sum(x) accurately when x is a lo...
type(kahanbabu_type), parameter kahanbabu
This is a scalar parameter object of type kahanbabu_type.
type(fablocked_type), parameter fablocked
This is a scalar parameter object of type fablocked_type.
type(nablocked_type), parameter nablocked
This is a scalar parameter object of type nablocked_type.
This is a concrete derived type whose instances are exclusively used to request looping procedure int...
This is a concrete derived type whose instances are exclusively used to request recursive procedure i...
This is a concrete derived type whose instances are exclusively used to request the Fast Accurate Blo...
This is a concrete derived type whose instances are exclusively used to request the Kahan-Babuska sum...
This is a concrete derived type whose instances are exclusively used to request the Naive Blocked sum...