221 PURE module function getMatDet_CK5(mat)
result(det)
222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
223 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDet_CK5
226 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
232 PURE module function getMatDet_CK4(mat)
result(det)
233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
234 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDet_CK4
237 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
243 PURE module function getMatDet_CK3(mat)
result(det)
244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
245 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDet_CK3
248 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
254 PURE module function getMatDet_CK2(mat)
result(det)
255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
256 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDet_CK2
259 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
265 PURE module function getMatDet_CK1(mat)
result(det)
266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
267 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDet_CK1
270 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
278 PURE module function getMatDet_RK5(mat)
result(det)
279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
280 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDet_RK5
283 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
289 PURE module function getMatDet_RK4(mat)
result(det)
290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
291 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDet_RK4
294 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
300 PURE module function getMatDet_RK3(mat)
result(det)
301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
302 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDet_RK3
305 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
311 PURE module function getMatDet_RK2(mat)
result(det)
312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
313 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDet_RK2
316 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
322 PURE module function getMatDet_RK1(mat)
result(det)
323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
324 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDet_RK1
327 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
400 PURE module subroutine setMatDet_CK5(mat, det, info)
401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
402 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDet_CK5
405 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
406 complex(CKG) ,
intent(out) :: det
407 integer(IK) ,
intent(out) :: info
412 PURE module subroutine setMatDet_CK4(mat, det, info)
413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
414 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDet_CK4
417 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
418 complex(CKG) ,
intent(out) :: det
419 integer(IK) ,
intent(out) :: info
424 PURE module subroutine setMatDet_CK3(mat, det, info)
425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
426 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDet_CK3
429 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
430 complex(CKG) ,
intent(out) :: det
431 integer(IK) ,
intent(out) :: info
436 PURE module subroutine setMatDet_CK2(mat, det, info)
437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
438 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDet_CK2
441 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
442 complex(CKG) ,
intent(out) :: det
443 integer(IK) ,
intent(out) :: info
448 PURE module subroutine setMatDet_CK1(mat, det, info)
449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
450 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDet_CK1
453 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
454 complex(CKG) ,
intent(out) :: det
455 integer(IK) ,
intent(out) :: info
462 PURE module subroutine setMatDet_RK5(mat, det, info)
463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
464 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDet_RK5
467 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
468 real(RKG) ,
intent(out) :: det
469 integer(IK) ,
intent(out) :: info
474 PURE module subroutine setMatDet_RK4(mat, det, info)
475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
476 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDet_RK4
479 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
480 real(RKG) ,
intent(out) :: det
481 integer(IK) ,
intent(out) :: info
486 PURE module subroutine setMatDet_RK3(mat, det, info)
487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
488 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDet_RK3
491 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
492 real(RKG) ,
intent(out) :: det
493 integer(IK) ,
intent(out) :: info
498 PURE module subroutine setMatDet_RK2(mat, det, info)
499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
500 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDet_RK2
503 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
504 real(RKG) ,
intent(out) :: det
505 integer(IK) ,
intent(out) :: info
510 PURE module subroutine setMatDet_RK1(mat, det, info)
511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
512 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDet_RK1
515 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
516 real(RKG) ,
intent(out) :: det
517 integer(IK) ,
intent(out) :: info
605 PURE module function getMatDetSqrt_CK5(mat, subset)
result(detSqrt)
606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
607 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrt_CK5
610 class(subset_type) ,
intent(in),
optional :: subset
611 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
617 PURE module function getMatDetSqrt_CK4(mat, subset)
result(detSqrt)
618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
619 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrt_CK4
622 class(subset_type) ,
intent(in),
optional :: subset
623 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
629 PURE module function getMatDetSqrt_CK3(mat, subset)
result(detSqrt)
630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
631 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrt_CK3
634 class(subset_type) ,
intent(in),
optional :: subset
635 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
641 PURE module function getMatDetSqrt_CK2(mat, subset)
result(detSqrt)
642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
643 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrt_CK2
646 class(subset_type) ,
intent(in),
optional :: subset
647 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
653 PURE module function getMatDetSqrt_CK1(mat, subset)
result(detSqrt)
654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
655 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrt_CK1
658 class(subset_type) ,
intent(in),
optional :: subset
659 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
667 PURE module function getMatDetSqrt_RK5(mat, subset)
result(detSqrt)
668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
669 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrt_RK5
672 class(subset_type) ,
intent(in),
optional :: subset
673 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
679 PURE module function getMatDetSqrt_RK4(mat, subset)
result(detSqrt)
680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
681 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrt_RK4
684 class(subset_type) ,
intent(in),
optional :: subset
685 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
691 PURE module function getMatDetSqrt_RK3(mat, subset)
result(detSqrt)
692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
693 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrt_RK3
696 class(subset_type) ,
intent(in),
optional :: subset
697 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
703 PURE module function getMatDetSqrt_RK2(mat, subset)
result(detSqrt)
704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
705 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrt_RK2
708 class(subset_type) ,
intent(in),
optional :: subset
709 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
715 PURE module function getMatDetSqrt_RK1(mat, subset)
result(detSqrt)
716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
717 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrt_RK1
720 class(subset_type) ,
intent(in),
optional :: subset
721 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
827 PURE module subroutine setMatDetSqrt_UXD_ONO_CK5(mat, subset, detSqrt, info, chol, operation)
828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
829 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_ONO_CK5
832 type(uppDia_type) ,
intent(in) :: subset
833 type(nothing_type) ,
intent(in) :: operation
834 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
835 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
836 real(CKG) ,
intent(out) :: detSqrt
837 integer(IK) ,
intent(out) :: info
842 PURE module subroutine setMatDetSqrt_UXD_ONO_CK4(mat, subset, detSqrt, info, chol, operation)
843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
844 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_ONO_CK4
847 type(uppDia_type) ,
intent(in) :: subset
848 type(nothing_type) ,
intent(in) :: operation
849 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
850 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
851 real(CKG) ,
intent(out) :: detSqrt
852 integer(IK) ,
intent(out) :: info
857 PURE module subroutine setMatDetSqrt_UXD_ONO_CK3(mat, subset, detSqrt, info, chol, operation)
858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
859 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_ONO_CK3
862 type(uppDia_type) ,
intent(in) :: subset
863 type(nothing_type) ,
intent(in) :: operation
864 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
865 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
866 real(CKG) ,
intent(out) :: detSqrt
867 integer(IK) ,
intent(out) :: info
872 PURE module subroutine setMatDetSqrt_UXD_ONO_CK2(mat, subset, detSqrt, info, chol, operation)
873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
874 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_ONO_CK2
877 type(uppDia_type) ,
intent(in) :: subset
878 type(nothing_type) ,
intent(in) :: operation
879 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
880 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
881 real(CKG) ,
intent(out) :: detSqrt
882 integer(IK) ,
intent(out) :: info
887 PURE module subroutine setMatDetSqrt_UXD_ONO_CK1(mat, subset, detSqrt, info, chol, operation)
888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
889 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_ONO_CK1
892 type(uppDia_type) ,
intent(in) :: subset
893 type(nothing_type) ,
intent(in) :: operation
894 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
895 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
896 real(CKG) ,
intent(out) :: detSqrt
897 integer(IK) ,
intent(out) :: info
904 PURE module subroutine setMatDetSqrt_UXD_ONO_RK5(mat, subset, detSqrt, info, chol, operation)
905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
906 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_ONO_RK5
909 type(uppDia_type) ,
intent(in) :: subset
910 type(nothing_type) ,
intent(in) :: operation
911 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
912 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
913 real(RKG) ,
intent(out) :: detSqrt
914 integer(IK) ,
intent(out) :: info
919 PURE module subroutine setMatDetSqrt_UXD_ONO_RK4(mat, subset, detSqrt, info, chol, operation)
920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
921 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_ONO_RK4
924 type(uppDia_type) ,
intent(in) :: subset
925 type(nothing_type) ,
intent(in) :: operation
926 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
927 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
928 real(RKG) ,
intent(out) :: detSqrt
929 integer(IK) ,
intent(out) :: info
934 PURE module subroutine setMatDetSqrt_UXD_ONO_RK3(mat, subset, detSqrt, info, chol, operation)
935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
936 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_ONO_RK3
939 type(uppDia_type) ,
intent(in) :: subset
940 type(nothing_type) ,
intent(in) :: operation
941 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
942 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
943 real(RKG) ,
intent(out) :: detSqrt
944 integer(IK) ,
intent(out) :: info
949 PURE module subroutine setMatDetSqrt_UXD_ONO_RK2(mat, subset, detSqrt, info, chol, operation)
950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
951 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_ONO_RK2
954 type(uppDia_type) ,
intent(in) :: subset
955 type(nothing_type) ,
intent(in) :: operation
956 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
957 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
958 real(RKG) ,
intent(out) :: detSqrt
959 integer(IK) ,
intent(out) :: info
964 PURE module subroutine setMatDetSqrt_UXD_ONO_RK1(mat, subset, detSqrt, info, chol, operation)
965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
966 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_ONO_RK1
969 type(uppDia_type) ,
intent(in) :: subset
970 type(nothing_type) ,
intent(in) :: operation
971 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
972 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
973 real(RKG) ,
intent(out) :: detSqrt
974 integer(IK) ,
intent(out) :: info
981 PURE module subroutine setMatDetSqrt_XLD_ONO_CK5(mat, subset, detSqrt, info, chol, operation)
982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
983 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_ONO_CK5
986 type(lowDia_type) ,
intent(in) :: subset
987 type(nothing_type) ,
intent(in) :: operation
988 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
989 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
990 real(CKG) ,
intent(out) :: detSqrt
991 integer(IK) ,
intent(out) :: info
996 PURE module subroutine setMatDetSqrt_XLD_ONO_CK4(mat, subset, detSqrt, info, chol, operation)
997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
998 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_ONO_CK4
1001 type(lowDia_type) ,
intent(in) :: subset
1002 type(nothing_type) ,
intent(in) :: operation
1003 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1004 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1005 real(CKG) ,
intent(out) :: detSqrt
1006 integer(IK) ,
intent(out) :: info
1011 PURE module subroutine setMatDetSqrt_XLD_ONO_CK3(mat, subset, detSqrt, info, chol, operation)
1012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1013 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_ONO_CK3
1016 type(lowDia_type) ,
intent(in) :: subset
1017 type(nothing_type) ,
intent(in) :: operation
1018 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1019 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1020 real(CKG) ,
intent(out) :: detSqrt
1021 integer(IK) ,
intent(out) :: info
1026 PURE module subroutine setMatDetSqrt_XLD_ONO_CK2(mat, subset, detSqrt, info, chol, operation)
1027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1028 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_ONO_CK2
1031 type(lowDia_type) ,
intent(in) :: subset
1032 type(nothing_type) ,
intent(in) :: operation
1033 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1034 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1035 real(CKG) ,
intent(out) :: detSqrt
1036 integer(IK) ,
intent(out) :: info
1041 PURE module subroutine setMatDetSqrt_XLD_ONO_CK1(mat, subset, detSqrt, info, chol, operation)
1042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1043 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_ONO_CK1
1046 type(lowDia_type) ,
intent(in) :: subset
1047 type(nothing_type) ,
intent(in) :: operation
1048 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1049 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1050 real(CKG) ,
intent(out) :: detSqrt
1051 integer(IK) ,
intent(out) :: info
1058 PURE module subroutine setMatDetSqrt_XLD_ONO_RK5(mat, subset, detSqrt, info, chol, operation)
1059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1060 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_ONO_RK5
1063 type(lowDia_type) ,
intent(in) :: subset
1064 type(nothing_type) ,
intent(in) :: operation
1065 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1066 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1067 real(RKG) ,
intent(out) :: detSqrt
1068 integer(IK) ,
intent(out) :: info
1073 PURE module subroutine setMatDetSqrt_XLD_ONO_RK4(mat, subset, detSqrt, info, chol, operation)
1074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1075 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_ONO_RK4
1078 type(lowDia_type) ,
intent(in) :: subset
1079 type(nothing_type) ,
intent(in) :: operation
1080 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1081 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1082 real(RKG) ,
intent(out) :: detSqrt
1083 integer(IK) ,
intent(out) :: info
1088 PURE module subroutine setMatDetSqrt_XLD_ONO_RK3(mat, subset, detSqrt, info, chol, operation)
1089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1090 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_ONO_RK3
1093 type(lowDia_type) ,
intent(in) :: subset
1094 type(nothing_type) ,
intent(in) :: operation
1095 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1096 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1097 real(RKG) ,
intent(out) :: detSqrt
1098 integer(IK) ,
intent(out) :: info
1103 PURE module subroutine setMatDetSqrt_XLD_ONO_RK2(mat, subset, detSqrt, info, chol, operation)
1104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1105 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_ONO_RK2
1108 type(lowDia_type) ,
intent(in) :: subset
1109 type(nothing_type) ,
intent(in) :: operation
1110 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1111 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1112 real(RKG) ,
intent(out) :: detSqrt
1113 integer(IK) ,
intent(out) :: info
1118 PURE module subroutine setMatDetSqrt_XLD_ONO_RK1(mat, subset, detSqrt, info, chol, operation)
1119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1120 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_ONO_RK1
1123 type(lowDia_type) ,
intent(in) :: subset
1124 type(nothing_type) ,
intent(in) :: operation
1125 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1126 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1127 real(RKG) ,
intent(out) :: detSqrt
1128 integer(IK) ,
intent(out) :: info
1143 PURE module subroutine setMatDetSqrt_UXD_OTH_CK5(mat, subset, detSqrt, info, chol, operation)
1144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1145 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_OTH_CK5
1148 type(uppDia_type) ,
intent(in) :: subset
1149 type(transHerm_type),
intent(in) :: operation
1150 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1151 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1152 real(CKG) ,
intent(out) :: detSqrt
1153 integer(IK) ,
intent(out) :: info
1158 PURE module subroutine setMatDetSqrt_UXD_OTH_CK4(mat, subset, detSqrt, info, chol, operation)
1159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1160 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_OTH_CK4
1163 type(uppDia_type) ,
intent(in) :: subset
1164 type(transHerm_type),
intent(in) :: operation
1165 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1166 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1167 real(CKG) ,
intent(out) :: detSqrt
1168 integer(IK) ,
intent(out) :: info
1173 PURE module subroutine setMatDetSqrt_UXD_OTH_CK3(mat, subset, detSqrt, info, chol, operation)
1174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1175 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_OTH_CK3
1178 type(uppDia_type) ,
intent(in) :: subset
1179 type(transHerm_type),
intent(in) :: operation
1180 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1181 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1182 real(CKG) ,
intent(out) :: detSqrt
1183 integer(IK) ,
intent(out) :: info
1188 PURE module subroutine setMatDetSqrt_UXD_OTH_CK2(mat, subset, detSqrt, info, chol, operation)
1189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1190 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_OTH_CK2
1193 type(uppDia_type) ,
intent(in) :: subset
1194 type(transHerm_type),
intent(in) :: operation
1195 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1196 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1197 real(CKG) ,
intent(out) :: detSqrt
1198 integer(IK) ,
intent(out) :: info
1203 PURE module subroutine setMatDetSqrt_UXD_OTH_CK1(mat, subset, detSqrt, info, chol, operation)
1204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1205 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_OTH_CK1
1208 type(uppDia_type) ,
intent(in) :: subset
1209 type(transHerm_type),
intent(in) :: operation
1210 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1211 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1212 real(CKG) ,
intent(out) :: detSqrt
1213 integer(IK) ,
intent(out) :: info
1220 PURE module subroutine setMatDetSqrt_UXD_OTH_RK5(mat, subset, detSqrt, info, chol, operation)
1221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1222 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_OTH_RK5
1225 type(uppDia_type) ,
intent(in) :: subset
1226 type(transHerm_type),
intent(in) :: operation
1227 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1228 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1229 real(RKG) ,
intent(out) :: detSqrt
1230 integer(IK) ,
intent(out) :: info
1235 PURE module subroutine setMatDetSqrt_UXD_OTH_RK4(mat, subset, detSqrt, info, chol, operation)
1236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1237 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_OTH_RK4
1240 type(uppDia_type) ,
intent(in) :: subset
1241 type(transHerm_type),
intent(in) :: operation
1242 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1243 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1244 real(RKG) ,
intent(out) :: detSqrt
1245 integer(IK) ,
intent(out) :: info
1250 PURE module subroutine setMatDetSqrt_UXD_OTH_RK3(mat, subset, detSqrt, info, chol, operation)
1251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1252 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_OTH_RK3
1255 type(uppDia_type) ,
intent(in) :: subset
1256 type(transHerm_type),
intent(in) :: operation
1257 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1258 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1259 real(RKG) ,
intent(out) :: detSqrt
1260 integer(IK) ,
intent(out) :: info
1265 PURE module subroutine setMatDetSqrt_UXD_OTH_RK2(mat, subset, detSqrt, info, chol, operation)
1266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1267 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_OTH_RK2
1270 type(uppDia_type) ,
intent(in) :: subset
1271 type(transHerm_type),
intent(in) :: operation
1272 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1273 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1274 real(RKG) ,
intent(out) :: detSqrt
1275 integer(IK) ,
intent(out) :: info
1280 PURE module subroutine setMatDetSqrt_UXD_OTH_RK1(mat, subset, detSqrt, info, chol, operation)
1281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1282 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_UXD_OTH_RK1
1285 type(uppDia_type) ,
intent(in) :: subset
1286 type(transHerm_type),
intent(in) :: operation
1287 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1288 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1289 real(RKG) ,
intent(out) :: detSqrt
1290 integer(IK) ,
intent(out) :: info
1297 PURE module subroutine setMatDetSqrt_XLD_OTH_CK5(mat, subset, detSqrt, info, chol, operation)
1298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1299 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_OTH_CK5
1302 type(lowDia_type) ,
intent(in) :: subset
1303 type(transHerm_type),
intent(in) :: operation
1304 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1305 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1306 real(CKG) ,
intent(out) :: detSqrt
1307 integer(IK) ,
intent(out) :: info
1312 PURE module subroutine setMatDetSqrt_XLD_OTH_CK4(mat, subset, detSqrt, info, chol, operation)
1313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1314 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_OTH_CK4
1317 type(lowDia_type) ,
intent(in) :: subset
1318 type(transHerm_type),
intent(in) :: operation
1319 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1320 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1321 real(CKG) ,
intent(out) :: detSqrt
1322 integer(IK) ,
intent(out) :: info
1327 PURE module subroutine setMatDetSqrt_XLD_OTH_CK3(mat, subset, detSqrt, info, chol, operation)
1328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1329 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_OTH_CK3
1332 type(lowDia_type) ,
intent(in) :: subset
1333 type(transHerm_type),
intent(in) :: operation
1334 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1335 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1336 real(CKG) ,
intent(out) :: detSqrt
1337 integer(IK) ,
intent(out) :: info
1342 PURE module subroutine setMatDetSqrt_XLD_OTH_CK2(mat, subset, detSqrt, info, chol, operation)
1343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1344 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_OTH_CK2
1347 type(lowDia_type) ,
intent(in) :: subset
1348 type(transHerm_type),
intent(in) :: operation
1349 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1350 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1351 real(CKG) ,
intent(out) :: detSqrt
1352 integer(IK) ,
intent(out) :: info
1357 PURE module subroutine setMatDetSqrt_XLD_OTH_CK1(mat, subset, detSqrt, info, chol, operation)
1358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1359 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_OTH_CK1
1362 type(lowDia_type) ,
intent(in) :: subset
1363 type(transHerm_type),
intent(in) :: operation
1364 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1365 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1366 real(CKG) ,
intent(out) :: detSqrt
1367 integer(IK) ,
intent(out) :: info
1374 PURE module subroutine setMatDetSqrt_XLD_OTH_RK5(mat, subset, detSqrt, info, chol, operation)
1375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1376 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_OTH_RK5
1379 type(lowDia_type) ,
intent(in) :: subset
1380 type(transHerm_type),
intent(in) :: operation
1381 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1382 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1383 real(RKG) ,
intent(out) :: detSqrt
1384 integer(IK) ,
intent(out) :: info
1389 PURE module subroutine setMatDetSqrt_XLD_OTH_RK4(mat, subset, detSqrt, info, chol, operation)
1390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1391 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_OTH_RK4
1394 type(lowDia_type) ,
intent(in) :: subset
1395 type(transHerm_type),
intent(in) :: operation
1396 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1397 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1398 real(RKG) ,
intent(out) :: detSqrt
1399 integer(IK) ,
intent(out) :: info
1404 PURE module subroutine setMatDetSqrt_XLD_OTH_RK3(mat, subset, detSqrt, info, chol, operation)
1405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1406 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_OTH_RK3
1409 type(lowDia_type) ,
intent(in) :: subset
1410 type(transHerm_type),
intent(in) :: operation
1411 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1412 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1413 real(RKG) ,
intent(out) :: detSqrt
1414 integer(IK) ,
intent(out) :: info
1419 PURE module subroutine setMatDetSqrt_XLD_OTH_RK2(mat, subset, detSqrt, info, chol, operation)
1420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1421 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_OTH_RK2
1424 type(lowDia_type) ,
intent(in) :: subset
1425 type(transHerm_type),
intent(in) :: operation
1426 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1427 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1428 real(RKG) ,
intent(out) :: detSqrt
1429 integer(IK) ,
intent(out) :: info
1434 PURE module subroutine setMatDetSqrt_XLD_OTH_RK1(mat, subset, detSqrt, info, chol, operation)
1435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1436 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrt_XLD_OTH_RK1
1439 type(lowDia_type) ,
intent(in) :: subset
1440 type(transHerm_type),
intent(in) :: operation
1441 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1442 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1443 real(RKG) ,
intent(out) :: detSqrt
1444 integer(IK) ,
intent(out) :: info
1530 PURE module function getMatDetSqrtLog_CK5(mat, subset)
result(detSqrtLog)
1531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1532 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrtLog_CK5
1535 class(subset_type) ,
intent(in),
optional :: subset
1536 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
1537 real(CKG) :: detSqrtLog
1542 PURE module function getMatDetSqrtLog_CK4(mat, subset)
result(detSqrtLog)
1543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1544 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrtLog_CK4
1547 class(subset_type) ,
intent(in),
optional :: subset
1548 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
1549 real(CKG) :: detSqrtLog
1554 PURE module function getMatDetSqrtLog_CK3(mat, subset)
result(detSqrtLog)
1555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1556 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrtLog_CK3
1559 class(subset_type) ,
intent(in),
optional :: subset
1560 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
1561 real(CKG) :: detSqrtLog
1566 PURE module function getMatDetSqrtLog_CK2(mat, subset)
result(detSqrtLog)
1567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1568 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrtLog_CK2
1571 class(subset_type) ,
intent(in),
optional :: subset
1572 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
1573 real(CKG) :: detSqrtLog
1578 PURE module function getMatDetSqrtLog_CK1(mat, subset)
result(detSqrtLog)
1579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1580 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrtLog_CK1
1583 class(subset_type) ,
intent(in),
optional :: subset
1584 complex(CKG) ,
intent(in),
contiguous :: mat(:,:)
1585 real(CKG) :: detSqrtLog
1592 PURE module function getMatDetSqrtLog_RK5(mat, subset)
result(detSqrtLog)
1593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1594 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrtLog_RK5
1597 class(subset_type) ,
intent(in),
optional :: subset
1598 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
1599 real(RKG) :: detSqrtLog
1604 PURE module function getMatDetSqrtLog_RK4(mat, subset)
result(detSqrtLog)
1605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1606 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrtLog_RK4
1609 class(subset_type) ,
intent(in),
optional :: subset
1610 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
1611 real(RKG) :: detSqrtLog
1616 PURE module function getMatDetSqrtLog_RK3(mat, subset)
result(detSqrtLog)
1617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1618 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrtLog_RK3
1621 class(subset_type) ,
intent(in),
optional :: subset
1622 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
1623 real(RKG) :: detSqrtLog
1628 PURE module function getMatDetSqrtLog_RK2(mat, subset)
result(detSqrtLog)
1629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1630 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrtLog_RK2
1633 class(subset_type) ,
intent(in),
optional :: subset
1634 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
1635 real(RKG) :: detSqrtLog
1640 PURE module function getMatDetSqrtLog_RK1(mat, subset)
result(detSqrtLog)
1641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1642 !DEC$ ATTRIBUTES DLLEXPORT :: getMatDetSqrtLog_RK1
1645 class(subset_type) ,
intent(in),
optional :: subset
1646 real(RKG) ,
intent(in),
contiguous :: mat(:,:)
1647 real(RKG) :: detSqrtLog
1752 PURE module subroutine setMatDetSqrtLog_UXD_ONO_CK5(mat, subset, detSqrtLog, info, chol, operation)
1753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1754 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_ONO_CK5
1757 type(uppDia_type) ,
intent(in) :: subset
1758 type(nothing_type) ,
intent(in) :: operation
1759 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1760 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1761 real(CKG) ,
intent(out) :: detSqrtLog
1762 integer(IK) ,
intent(out) :: info
1767 PURE module subroutine setMatDetSqrtLog_UXD_ONO_CK4(mat, subset, detSqrtLog, info, chol, operation)
1768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1769 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_ONO_CK4
1772 type(uppDia_type) ,
intent(in) :: subset
1773 type(nothing_type) ,
intent(in) :: operation
1774 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1775 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1776 real(CKG) ,
intent(out) :: detSqrtLog
1777 integer(IK) ,
intent(out) :: info
1782 PURE module subroutine setMatDetSqrtLog_UXD_ONO_CK3(mat, subset, detSqrtLog, info, chol, operation)
1783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1784 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_ONO_CK3
1787 type(uppDia_type) ,
intent(in) :: subset
1788 type(nothing_type) ,
intent(in) :: operation
1789 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1790 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1791 real(CKG) ,
intent(out) :: detSqrtLog
1792 integer(IK) ,
intent(out) :: info
1797 PURE module subroutine setMatDetSqrtLog_UXD_ONO_CK2(mat, subset, detSqrtLog, info, chol, operation)
1798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1799 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_ONO_CK2
1802 type(uppDia_type) ,
intent(in) :: subset
1803 type(nothing_type) ,
intent(in) :: operation
1804 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1805 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1806 real(CKG) ,
intent(out) :: detSqrtLog
1807 integer(IK) ,
intent(out) :: info
1812 PURE module subroutine setMatDetSqrtLog_UXD_ONO_CK1(mat, subset, detSqrtLog, info, chol, operation)
1813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1814 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_ONO_CK1
1817 type(uppDia_type) ,
intent(in) :: subset
1818 type(nothing_type) ,
intent(in) :: operation
1819 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1820 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1821 real(CKG) ,
intent(out) :: detSqrtLog
1822 integer(IK) ,
intent(out) :: info
1829 PURE module subroutine setMatDetSqrtLog_UXD_ONO_RK5(mat, subset, detSqrtLog, info, chol, operation)
1830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1831 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_ONO_RK5
1834 type(uppDia_type) ,
intent(in) :: subset
1835 type(nothing_type) ,
intent(in) :: operation
1836 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1837 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1838 real(RKG) ,
intent(out) :: detSqrtLog
1839 integer(IK) ,
intent(out) :: info
1844 PURE module subroutine setMatDetSqrtLog_UXD_ONO_RK4(mat, subset, detSqrtLog, info, chol, operation)
1845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1846 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_ONO_RK4
1849 type(uppDia_type) ,
intent(in) :: subset
1850 type(nothing_type) ,
intent(in) :: operation
1851 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1852 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1853 real(RKG) ,
intent(out) :: detSqrtLog
1854 integer(IK) ,
intent(out) :: info
1859 PURE module subroutine setMatDetSqrtLog_UXD_ONO_RK3(mat, subset, detSqrtLog, info, chol, operation)
1860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1861 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_ONO_RK3
1864 type(uppDia_type) ,
intent(in) :: subset
1865 type(nothing_type) ,
intent(in) :: operation
1866 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1867 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1868 real(RKG) ,
intent(out) :: detSqrtLog
1869 integer(IK) ,
intent(out) :: info
1874 PURE module subroutine setMatDetSqrtLog_UXD_ONO_RK2(mat, subset, detSqrtLog, info, chol, operation)
1875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1876 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_ONO_RK2
1879 type(uppDia_type) ,
intent(in) :: subset
1880 type(nothing_type) ,
intent(in) :: operation
1881 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1882 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1883 real(RKG) ,
intent(out) :: detSqrtLog
1884 integer(IK) ,
intent(out) :: info
1889 PURE module subroutine setMatDetSqrtLog_UXD_ONO_RK1(mat, subset, detSqrtLog, info, chol, operation)
1890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1891 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_ONO_RK1
1894 type(uppDia_type) ,
intent(in) :: subset
1895 type(nothing_type) ,
intent(in) :: operation
1896 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1897 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1898 real(RKG) ,
intent(out) :: detSqrtLog
1899 integer(IK) ,
intent(out) :: info
1906 PURE module subroutine setMatDetSqrtLog_XLD_ONO_CK5(mat, subset, detSqrtLog, info, chol, operation)
1907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1908 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_ONO_CK5
1911 type(lowDia_type) ,
intent(in) :: subset
1912 type(nothing_type) ,
intent(in) :: operation
1913 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1914 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1915 real(CKG) ,
intent(out) :: detSqrtLog
1916 integer(IK) ,
intent(out) :: info
1921 PURE module subroutine setMatDetSqrtLog_XLD_ONO_CK4(mat, subset, detSqrtLog, info, chol, operation)
1922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1923 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_ONO_CK4
1926 type(lowDia_type) ,
intent(in) :: subset
1927 type(nothing_type) ,
intent(in) :: operation
1928 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1929 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1930 real(CKG) ,
intent(out) :: detSqrtLog
1931 integer(IK) ,
intent(out) :: info
1936 PURE module subroutine setMatDetSqrtLog_XLD_ONO_CK3(mat, subset, detSqrtLog, info, chol, operation)
1937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1938 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_ONO_CK3
1941 type(lowDia_type) ,
intent(in) :: subset
1942 type(nothing_type) ,
intent(in) :: operation
1943 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1944 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1945 real(CKG) ,
intent(out) :: detSqrtLog
1946 integer(IK) ,
intent(out) :: info
1951 PURE module subroutine setMatDetSqrtLog_XLD_ONO_CK2(mat, subset, detSqrtLog, info, chol, operation)
1952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1953 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_ONO_CK2
1956 type(lowDia_type) ,
intent(in) :: subset
1957 type(nothing_type) ,
intent(in) :: operation
1958 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1959 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1960 real(CKG) ,
intent(out) :: detSqrtLog
1961 integer(IK) ,
intent(out) :: info
1966 PURE module subroutine setMatDetSqrtLog_XLD_ONO_CK1(mat, subset, detSqrtLog, info, chol, operation)
1967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1968 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_ONO_CK1
1971 type(lowDia_type) ,
intent(in) :: subset
1972 type(nothing_type) ,
intent(in) :: operation
1973 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1974 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1975 real(CKG) ,
intent(out) :: detSqrtLog
1976 integer(IK) ,
intent(out) :: info
1983 PURE module subroutine setMatDetSqrtLog_XLD_ONO_RK5(mat, subset, detSqrtLog, info, chol, operation)
1984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1985 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_ONO_RK5
1988 type(lowDia_type) ,
intent(in) :: subset
1989 type(nothing_type) ,
intent(in) :: operation
1990 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1991 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1992 real(RKG) ,
intent(out) :: detSqrtLog
1993 integer(IK) ,
intent(out) :: info
1998 PURE module subroutine setMatDetSqrtLog_XLD_ONO_RK4(mat, subset, detSqrtLog, info, chol, operation)
1999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2000 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_ONO_RK4
2003 type(lowDia_type) ,
intent(in) :: subset
2004 type(nothing_type) ,
intent(in) :: operation
2005 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2006 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2007 real(RKG) ,
intent(out) :: detSqrtLog
2008 integer(IK) ,
intent(out) :: info
2013 PURE module subroutine setMatDetSqrtLog_XLD_ONO_RK3(mat, subset, detSqrtLog, info, chol, operation)
2014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2015 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_ONO_RK3
2018 type(lowDia_type) ,
intent(in) :: subset
2019 type(nothing_type) ,
intent(in) :: operation
2020 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2021 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2022 real(RKG) ,
intent(out) :: detSqrtLog
2023 integer(IK) ,
intent(out) :: info
2028 PURE module subroutine setMatDetSqrtLog_XLD_ONO_RK2(mat, subset, detSqrtLog, info, chol, operation)
2029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2030 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_ONO_RK2
2033 type(lowDia_type) ,
intent(in) :: subset
2034 type(nothing_type) ,
intent(in) :: operation
2035 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2036 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2037 real(RKG) ,
intent(out) :: detSqrtLog
2038 integer(IK) ,
intent(out) :: info
2043 PURE module subroutine setMatDetSqrtLog_XLD_ONO_RK1(mat, subset, detSqrtLog, info, chol, operation)
2044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2045 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_ONO_RK1
2048 type(lowDia_type) ,
intent(in) :: subset
2049 type(nothing_type) ,
intent(in) :: operation
2050 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2051 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2052 real(RKG) ,
intent(out) :: detSqrtLog
2053 integer(IK) ,
intent(out) :: info
2068 PURE module subroutine setMatDetSqrtLog_UXD_OTH_CK5(mat, subset, detSqrtLog, info, chol, operation)
2069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2070 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_OTH_CK5
2073 type(uppDia_type) ,
intent(in) :: subset
2074 type(transHerm_type),
intent(in) :: operation
2075 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
2076 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2077 real(CKG) ,
intent(out) :: detSqrtLog
2078 integer(IK) ,
intent(out) :: info
2083 PURE module subroutine setMatDetSqrtLog_UXD_OTH_CK4(mat, subset, detSqrtLog, info, chol, operation)
2084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2085 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_OTH_CK4
2088 type(uppDia_type) ,
intent(in) :: subset
2089 type(transHerm_type),
intent(in) :: operation
2090 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
2091 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2092 real(CKG) ,
intent(out) :: detSqrtLog
2093 integer(IK) ,
intent(out) :: info
2098 PURE module subroutine setMatDetSqrtLog_UXD_OTH_CK3(mat, subset, detSqrtLog, info, chol, operation)
2099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2100 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_OTH_CK3
2103 type(uppDia_type) ,
intent(in) :: subset
2104 type(transHerm_type),
intent(in) :: operation
2105 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
2106 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2107 real(CKG) ,
intent(out) :: detSqrtLog
2108 integer(IK) ,
intent(out) :: info
2113 PURE module subroutine setMatDetSqrtLog_UXD_OTH_CK2(mat, subset, detSqrtLog, info, chol, operation)
2114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2115 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_OTH_CK2
2118 type(uppDia_type) ,
intent(in) :: subset
2119 type(transHerm_type),
intent(in) :: operation
2120 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
2121 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2122 real(CKG) ,
intent(out) :: detSqrtLog
2123 integer(IK) ,
intent(out) :: info
2128 PURE module subroutine setMatDetSqrtLog_UXD_OTH_CK1(mat, subset, detSqrtLog, info, chol, operation)
2129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2130 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_OTH_CK1
2133 type(uppDia_type) ,
intent(in) :: subset
2134 type(transHerm_type),
intent(in) :: operation
2135 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
2136 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2137 real(CKG) ,
intent(out) :: detSqrtLog
2138 integer(IK) ,
intent(out) :: info
2145 PURE module subroutine setMatDetSqrtLog_UXD_OTH_RK5(mat, subset, detSqrtLog, info, chol, operation)
2146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2147 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_OTH_RK5
2150 type(uppDia_type) ,
intent(in) :: subset
2151 type(transHerm_type),
intent(in) :: operation
2152 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2153 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2154 real(RKG) ,
intent(out) :: detSqrtLog
2155 integer(IK) ,
intent(out) :: info
2160 PURE module subroutine setMatDetSqrtLog_UXD_OTH_RK4(mat, subset, detSqrtLog, info, chol, operation)
2161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2162 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_OTH_RK4
2165 type(uppDia_type) ,
intent(in) :: subset
2166 type(transHerm_type),
intent(in) :: operation
2167 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2168 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2169 real(RKG) ,
intent(out) :: detSqrtLog
2170 integer(IK) ,
intent(out) :: info
2175 PURE module subroutine setMatDetSqrtLog_UXD_OTH_RK3(mat, subset, detSqrtLog, info, chol, operation)
2176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2177 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_OTH_RK3
2180 type(uppDia_type) ,
intent(in) :: subset
2181 type(transHerm_type),
intent(in) :: operation
2182 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2183 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2184 real(RKG) ,
intent(out) :: detSqrtLog
2185 integer(IK) ,
intent(out) :: info
2190 PURE module subroutine setMatDetSqrtLog_UXD_OTH_RK2(mat, subset, detSqrtLog, info, chol, operation)
2191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2192 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_OTH_RK2
2195 type(uppDia_type) ,
intent(in) :: subset
2196 type(transHerm_type),
intent(in) :: operation
2197 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2198 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2199 real(RKG) ,
intent(out) :: detSqrtLog
2200 integer(IK) ,
intent(out) :: info
2205 PURE module subroutine setMatDetSqrtLog_UXD_OTH_RK1(mat, subset, detSqrtLog, info, chol, operation)
2206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2207 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_UXD_OTH_RK1
2210 type(uppDia_type) ,
intent(in) :: subset
2211 type(transHerm_type),
intent(in) :: operation
2212 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2213 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2214 real(RKG) ,
intent(out) :: detSqrtLog
2215 integer(IK) ,
intent(out) :: info
2222 PURE module subroutine setMatDetSqrtLog_XLD_OTH_CK5(mat, subset, detSqrtLog, info, chol, operation)
2223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2224 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_OTH_CK5
2227 type(lowDia_type) ,
intent(in) :: subset
2228 type(transHerm_type),
intent(in) :: operation
2229 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
2230 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2231 real(CKG) ,
intent(out) :: detSqrtLog
2232 integer(IK) ,
intent(out) :: info
2237 PURE module subroutine setMatDetSqrtLog_XLD_OTH_CK4(mat, subset, detSqrtLog, info, chol, operation)
2238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2239 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_OTH_CK4
2242 type(lowDia_type) ,
intent(in) :: subset
2243 type(transHerm_type),
intent(in) :: operation
2244 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
2245 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2246 real(CKG) ,
intent(out) :: detSqrtLog
2247 integer(IK) ,
intent(out) :: info
2252 PURE module subroutine setMatDetSqrtLog_XLD_OTH_CK3(mat, subset, detSqrtLog, info, chol, operation)
2253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2254 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_OTH_CK3
2257 type(lowDia_type) ,
intent(in) :: subset
2258 type(transHerm_type),
intent(in) :: operation
2259 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
2260 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2261 real(CKG) ,
intent(out) :: detSqrtLog
2262 integer(IK) ,
intent(out) :: info
2267 PURE module subroutine setMatDetSqrtLog_XLD_OTH_CK2(mat, subset, detSqrtLog, info, chol, operation)
2268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2269 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_OTH_CK2
2272 type(lowDia_type) ,
intent(in) :: subset
2273 type(transHerm_type),
intent(in) :: operation
2274 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
2275 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2276 real(CKG) ,
intent(out) :: detSqrtLog
2277 integer(IK) ,
intent(out) :: info
2282 PURE module subroutine setMatDetSqrtLog_XLD_OTH_CK1(mat, subset, detSqrtLog, info, chol, operation)
2283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2284 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_OTH_CK1
2287 type(lowDia_type) ,
intent(in) :: subset
2288 type(transHerm_type),
intent(in) :: operation
2289 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
2290 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2291 real(CKG) ,
intent(out) :: detSqrtLog
2292 integer(IK) ,
intent(out) :: info
2299 PURE module subroutine setMatDetSqrtLog_XLD_OTH_RK5(mat, subset, detSqrtLog, info, chol, operation)
2300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2301 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_OTH_RK5
2304 type(lowDia_type) ,
intent(in) :: subset
2305 type(transHerm_type),
intent(in) :: operation
2306 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2307 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2308 real(RKG) ,
intent(out) :: detSqrtLog
2309 integer(IK) ,
intent(out) :: info
2314 PURE module subroutine setMatDetSqrtLog_XLD_OTH_RK4(mat, subset, detSqrtLog, info, chol, operation)
2315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2316 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_OTH_RK4
2319 type(lowDia_type) ,
intent(in) :: subset
2320 type(transHerm_type),
intent(in) :: operation
2321 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2322 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2323 real(RKG) ,
intent(out) :: detSqrtLog
2324 integer(IK) ,
intent(out) :: info
2329 PURE module subroutine setMatDetSqrtLog_XLD_OTH_RK3(mat, subset, detSqrtLog, info, chol, operation)
2330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2331 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_OTH_RK3
2334 type(lowDia_type) ,
intent(in) :: subset
2335 type(transHerm_type),
intent(in) :: operation
2336 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2337 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2338 real(RKG) ,
intent(out) :: detSqrtLog
2339 integer(IK) ,
intent(out) :: info
2344 PURE module subroutine setMatDetSqrtLog_XLD_OTH_RK2(mat, subset, detSqrtLog, info, chol, operation)
2345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2346 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_OTH_RK2
2349 type(lowDia_type) ,
intent(in) :: subset
2350 type(transHerm_type),
intent(in) :: operation
2351 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2352 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2353 real(RKG) ,
intent(out) :: detSqrtLog
2354 integer(IK) ,
intent(out) :: info
2359 PURE module subroutine setMatDetSqrtLog_XLD_OTH_RK1(mat, subset, detSqrtLog, info, chol, operation)
2360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2361 !DEC$ ATTRIBUTES DLLEXPORT :: setMatDetSqrtLog_XLD_OTH_RK1
2364 type(lowDia_type) ,
intent(in) :: subset
2365 type(transHerm_type),
intent(in) :: operation
2366 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
2367 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
2368 real(RKG) ,
intent(out) :: detSqrtLog
2369 integer(IK) ,
intent(out) :: info
Generate and return the natural logarithm of the square-root of the determinant of the input positive...
Generate and return the square-root of the determinant of the input positive-definite square matrix.
Generate and return the determinant of the input general square matrix.
Return the natural logarithm of the square-root of the determinant of the input positive-definite squ...
Return the determinant of the input positive-definite square matrix.
Return the determinant of the input square matrix.
This module contains abstract and concrete derived types that are required for compile-time resolutio...
character(*, SK), parameter MODULE_NAME
type(nothing_type), parameter nothing
This is a scalar parameter object of type nothing_type that is exclusively used to request no action ...
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 relevant to the computation of the determinant...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(lowDia_type), parameter lowDia
This is a scalar parameter object of type lowDia_type that is exclusively used to request lower-diago...
type(uppDia_type), parameter uppDia
This is a scalar parameter object of type uppDia_type that is exclusively used to request upper-diago...
This module contains abstract and concrete derived types and procedures related to various common mat...
type(transHerm_type), parameter transHerm
This is a scalar parameter object of type transHerm_type that is exclusively used to request Hermitia...
This is a concrete derived type whose instances are exclusively used to request no action on a given ...
This is a concrete derived type whose instances are exclusively used to request lower-diagonal triang...
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 request upper-diagonal triang...
This is a concrete derived type whose instances are exclusively used to request Hermitian (conjugate)...