130#define _CONTIGUOUS_, contiguous
150 character(
*,
SK),
parameter ::
MODULE_NAME = "@pm_matrixChol"
215 PURE module subroutine setChoLow_RK5(mat, dia, ndim)
216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
217 !DEC$ ATTRIBUTES DLLEXPORT :: setChoLow_RK5
220 integer(
IK),
intent(in) :: ndim
221 real(RKG) ,
intent(inout) :: mat(ndim,ndim)
222 real(RKG) ,
intent(out) ::
dia(ndim)
227 PURE module subroutine setChoLow_RK4(mat, dia, ndim)
228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
229 !DEC$ ATTRIBUTES DLLEXPORT :: setChoLow_RK4
232 integer(
IK),
intent(in) :: ndim
233 real(RKG) ,
intent(inout) :: mat(ndim,ndim)
234 real(RKG) ,
intent(out) ::
dia(ndim)
239 PURE module subroutine setChoLow_RK3(mat, dia, ndim)
240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
241 !DEC$ ATTRIBUTES DLLEXPORT :: setChoLow_RK3
244 integer(
IK),
intent(in) :: ndim
245 real(RKG) ,
intent(inout) :: mat(ndim,ndim)
246 real(RKG) ,
intent(out) ::
dia(ndim)
251 PURE module subroutine setChoLow_RK2(mat, dia, ndim)
252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
253 !DEC$ ATTRIBUTES DLLEXPORT :: setChoLow_RK2
256 integer(
IK),
intent(in) :: ndim
257 real(RKG) ,
intent(inout) :: mat(ndim,ndim)
258 real(RKG) ,
intent(out) ::
dia(ndim)
263 PURE module subroutine setChoLow_RK1(mat, dia, ndim)
264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
265 !DEC$ ATTRIBUTES DLLEXPORT :: setChoLow_RK1
268 integer(
IK),
intent(in) :: ndim
269 real(RKG) ,
intent(inout) :: mat(ndim,ndim)
270 real(RKG) ,
intent(out) ::
dia(ndim)
378 PURE module function getMatChol_UXD_CK5(mat, subset, operation)
result(chol)
379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
380 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_UXD_CK5
383 class(
*) ,
intent(in) ,
optional :: operation
384 type(uppDia_type) ,
intent(in) :: subset
385 complex(CKG) ,
intent(in) :: mat(:,:)
386 complex(CKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
391 PURE module function getMatChol_UXD_CK4(mat, subset, operation)
result(chol)
392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
393 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_UXD_CK4
396 class(
*) ,
intent(in) ,
optional :: operation
397 type(uppDia_type) ,
intent(in) :: subset
398 complex(CKG) ,
intent(in) :: mat(:,:)
399 complex(CKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
404 PURE module function getMatChol_UXD_CK3(mat, subset, operation)
result(chol)
405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
406 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_UXD_CK3
409 class(
*) ,
intent(in) ,
optional :: operation
410 type(uppDia_type) ,
intent(in) :: subset
411 complex(CKG) ,
intent(in) :: mat(:,:)
412 complex(CKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
417 PURE module function getMatChol_UXD_CK2(mat, subset, operation)
result(chol)
418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
419 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_UXD_CK2
422 class(
*) ,
intent(in) ,
optional :: operation
423 type(uppDia_type) ,
intent(in) :: subset
424 complex(CKG) ,
intent(in) :: mat(:,:)
425 complex(CKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
430 PURE module function getMatChol_UXD_CK1(mat, subset, operation)
result(chol)
431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
432 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_UXD_CK1
435 class(
*) ,
intent(in) ,
optional :: operation
436 type(uppDia_type) ,
intent(in) :: subset
437 complex(CKG) ,
intent(in) :: mat(:,:)
438 complex(CKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
445 PURE module function getMatChol_UXD_RK5(mat, subset, operation)
result(chol)
446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
447 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_UXD_RK5
450 class(
*) ,
intent(in) ,
optional :: operation
451 type(uppDia_type) ,
intent(in) :: subset
452 real(RKG) ,
intent(in) :: mat(:,:)
453 real(RKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
458 PURE module function getMatChol_UXD_RK4(mat, subset, operation)
result(chol)
459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
460 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_UXD_RK4
463 class(
*) ,
intent(in) ,
optional :: operation
464 type(uppDia_type) ,
intent(in) :: subset
465 real(RKG) ,
intent(in) :: mat(:,:)
466 real(RKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
471 PURE module function getMatChol_UXD_RK3(mat, subset, operation)
result(chol)
472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
473 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_UXD_RK3
476 class(
*) ,
intent(in) ,
optional :: operation
477 type(uppDia_type) ,
intent(in) :: subset
478 real(RKG) ,
intent(in) :: mat(:,:)
479 real(RKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
484 PURE module function getMatChol_UXD_RK2(mat, subset, operation)
result(chol)
485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
486 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_UXD_RK2
489 class(
*) ,
intent(in) ,
optional :: operation
490 type(uppDia_type) ,
intent(in) :: subset
491 real(RKG) ,
intent(in) :: mat(:,:)
492 real(RKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
497 PURE module function getMatChol_UXD_RK1(mat, subset, operation)
result(chol)
498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
499 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_UXD_RK1
502 class(
*) ,
intent(in) ,
optional :: operation
503 type(uppDia_type) ,
intent(in) :: subset
504 real(RKG) ,
intent(in) :: mat(:,:)
505 real(RKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
528 PURE module function getMatChol_XLD_CK5(mat, subset, operation)
result(chol)
529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
530 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_XLD_CK5
533 class(
*) ,
intent(in) ,
optional :: operation
534 type(lowDia_type) ,
intent(in) :: subset
535 complex(CKG) ,
intent(in) :: mat(:,:)
536 complex(CKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
541 PURE module function getMatChol_XLD_CK4(mat, subset, operation)
result(chol)
542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
543 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_XLD_CK4
546 class(
*) ,
intent(in) ,
optional :: operation
547 type(lowDia_type) ,
intent(in) :: subset
548 complex(CKG) ,
intent(in) :: mat(:,:)
549 complex(CKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
554 PURE module function getMatChol_XLD_CK3(mat, subset, operation)
result(chol)
555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
556 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_XLD_CK3
559 class(
*) ,
intent(in) ,
optional :: operation
560 type(lowDia_type) ,
intent(in) :: subset
561 complex(CKG) ,
intent(in) :: mat(:,:)
562 complex(CKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
567 PURE module function getMatChol_XLD_CK2(mat, subset, operation)
result(chol)
568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
569 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_XLD_CK2
572 class(
*) ,
intent(in) ,
optional :: operation
573 type(lowDia_type) ,
intent(in) :: subset
574 complex(CKG) ,
intent(in) :: mat(:,:)
575 complex(CKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
580 PURE module function getMatChol_XLD_CK1(mat, subset, operation)
result(chol)
581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
582 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_XLD_CK1
585 class(
*) ,
intent(in) ,
optional :: operation
586 type(lowDia_type) ,
intent(in) :: subset
587 complex(CKG) ,
intent(in) :: mat(:,:)
588 complex(CKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
595 PURE module function getMatChol_XLD_RK5(mat, subset, operation)
result(chol)
596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
597 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_XLD_RK5
600 class(
*) ,
intent(in) ,
optional :: operation
601 type(lowDia_type) ,
intent(in) :: subset
602 real(RKG) ,
intent(in) :: mat(:,:)
603 real(RKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
608 PURE module function getMatChol_XLD_RK4(mat, subset, operation)
result(chol)
609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
610 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_XLD_RK4
613 class(
*) ,
intent(in) ,
optional :: operation
614 type(lowDia_type) ,
intent(in) :: subset
615 real(RKG) ,
intent(in) :: mat(:,:)
616 real(RKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
621 PURE module function getMatChol_XLD_RK3(mat, subset, operation)
result(chol)
622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
623 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_XLD_RK3
626 class(
*) ,
intent(in) ,
optional :: operation
627 type(lowDia_type) ,
intent(in) :: subset
628 real(RKG) ,
intent(in) :: mat(:,:)
629 real(RKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
634 PURE module function getMatChol_XLD_RK2(mat, subset, operation)
result(chol)
635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
636 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_XLD_RK2
639 class(
*) ,
intent(in) ,
optional :: operation
640 type(lowDia_type) ,
intent(in) :: subset
641 real(RKG) ,
intent(in) :: mat(:,:)
642 real(RKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
647 PURE module function getMatChol_XLD_RK1(mat, subset, operation)
result(chol)
648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
649 !DEC$ ATTRIBUTES DLLEXPORT :: getMatChol_XLD_RK1
652 class(
*) ,
intent(in) ,
optional :: operation
653 type(lowDia_type) ,
intent(in) :: subset
654 real(RKG) ,
intent(in) :: mat(:,:)
655 real(RKG) :: chol(
size(mat,
1, IK),
size(mat,
2, IK))
837 PURE module subroutine setMC_IMP_AXX_UXD_ONO_CK5(mat, subset, info)
838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
839 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_UXD_ONO_CK5
842 integer(IK) ,
intent(out) :: info
843 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
844 type(uppDia_type) ,
intent(in) :: subset
849 PURE module subroutine setMC_IMP_AXX_UXD_ONO_CK4(mat, subset, info)
850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
851 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_UXD_ONO_CK4
854 integer(IK) ,
intent(out) :: info
855 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
856 type(uppDia_type) ,
intent(in) :: subset
861 PURE module subroutine setMC_IMP_AXX_UXD_ONO_CK3(mat, subset, info)
862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
863 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_UXD_ONO_CK3
866 integer(IK) ,
intent(out) :: info
867 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
868 type(uppDia_type) ,
intent(in) :: subset
873 PURE module subroutine setMC_IMP_AXX_UXD_ONO_CK2(mat, subset, info)
874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
875 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_UXD_ONO_CK2
878 integer(IK) ,
intent(out) :: info
879 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
880 type(uppDia_type) ,
intent(in) :: subset
885 PURE module subroutine setMC_IMP_AXX_UXD_ONO_CK1(mat, subset, info)
886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
887 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_UXD_ONO_CK1
890 integer(IK) ,
intent(out) :: info
891 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
892 type(uppDia_type) ,
intent(in) :: subset
899 PURE module subroutine setMC_IMP_AXX_UXD_ONO_RK5(mat, subset, info)
900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
901 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_UXD_ONO_RK5
904 integer(IK) ,
intent(out) :: info
905 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
906 type(uppDia_type) ,
intent(in) :: subset
911 PURE module subroutine setMC_IMP_AXX_UXD_ONO_RK4(mat, subset, info)
912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
913 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_UXD_ONO_RK4
916 integer(IK) ,
intent(out) :: info
917 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
918 type(uppDia_type) ,
intent(in) :: subset
923 PURE module subroutine setMC_IMP_AXX_UXD_ONO_RK3(mat, subset, info)
924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
925 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_UXD_ONO_RK3
928 integer(IK) ,
intent(out) :: info
929 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
930 type(uppDia_type) ,
intent(in) :: subset
935 PURE module subroutine setMC_IMP_AXX_UXD_ONO_RK2(mat, subset, info)
936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
937 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_UXD_ONO_RK2
940 integer(IK) ,
intent(out) :: info
941 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
942 type(uppDia_type) ,
intent(in) :: subset
947 PURE module subroutine setMC_IMP_AXX_UXD_ONO_RK1(mat, subset, info)
948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
949 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_UXD_ONO_RK1
952 integer(IK) ,
intent(out) :: info
953 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
954 type(uppDia_type) ,
intent(in) :: subset
967 PURE module subroutine setMC_IMP_AXX_XLD_ONO_CK5(mat, subset, info)
968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
969 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_XLD_ONO_CK5
972 integer(IK) ,
intent(out) :: info
973 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
974 type(lowDia_type) ,
intent(in) :: subset
979 PURE module subroutine setMC_IMP_AXX_XLD_ONO_CK4(mat, subset, info)
980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
981 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_XLD_ONO_CK4
984 integer(IK) ,
intent(out) :: info
985 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
986 type(lowDia_type) ,
intent(in) :: subset
991 PURE module subroutine setMC_IMP_AXX_XLD_ONO_CK3(mat, subset, info)
992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
993 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_XLD_ONO_CK3
996 integer(IK) ,
intent(out) :: info
997 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
998 type(lowDia_type) ,
intent(in) :: subset
1003 PURE module subroutine setMC_IMP_AXX_XLD_ONO_CK2(mat, subset, info)
1004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1005 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_XLD_ONO_CK2
1008 integer(IK) ,
intent(out) :: info
1009 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1010 type(lowDia_type) ,
intent(in) :: subset
1015 PURE module subroutine setMC_IMP_AXX_XLD_ONO_CK1(mat, subset, info)
1016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1017 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_XLD_ONO_CK1
1020 integer(IK) ,
intent(out) :: info
1021 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1022 type(lowDia_type) ,
intent(in) :: subset
1029 PURE module subroutine setMC_IMP_AXX_XLD_ONO_RK5(mat, subset, info)
1030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1031 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_XLD_ONO_RK5
1034 integer(IK) ,
intent(out) :: info
1035 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1036 type(lowDia_type) ,
intent(in) :: subset
1041 PURE module subroutine setMC_IMP_AXX_XLD_ONO_RK4(mat, subset, info)
1042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1043 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_XLD_ONO_RK4
1046 integer(IK) ,
intent(out) :: info
1047 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1048 type(lowDia_type) ,
intent(in) :: subset
1053 PURE module subroutine setMC_IMP_AXX_XLD_ONO_RK3(mat, subset, info)
1054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1055 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_XLD_ONO_RK3
1058 integer(IK) ,
intent(out) :: info
1059 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1060 type(lowDia_type) ,
intent(in) :: subset
1065 PURE module subroutine setMC_IMP_AXX_XLD_ONO_RK2(mat, subset, info)
1066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1067 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_XLD_ONO_RK2
1070 integer(IK) ,
intent(out) :: info
1071 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1072 type(lowDia_type) ,
intent(in) :: subset
1077 PURE module subroutine setMC_IMP_AXX_XLD_ONO_RK1(mat, subset, info)
1078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1079 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_AXX_XLD_ONO_RK1
1082 integer(IK) ,
intent(out) :: info
1083 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1084 type(lowDia_type) ,
intent(in) :: subset
1107 PURE module subroutine setMC_IMP_ANI_UXD_ONO_CK5(mat, subset, info, chol, operation)
1108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1109 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_ONO_CK5
1112 integer(IK) ,
intent(out) :: info
1113 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1114 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1115 type(nothing_type) ,
intent(in) :: operation
1116 type(uppDia_type) ,
intent(in) :: subset
1121 PURE module subroutine setMC_IMP_ANI_UXD_ONO_CK4(mat, subset, info, chol, operation)
1122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1123 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_ONO_CK4
1126 integer(IK) ,
intent(out) :: info
1127 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1128 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1129 type(nothing_type) ,
intent(in) :: operation
1130 type(uppDia_type) ,
intent(in) :: subset
1135 PURE module subroutine setMC_IMP_ANI_UXD_ONO_CK3(mat, subset, info, chol, operation)
1136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1137 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_ONO_CK3
1140 integer(IK) ,
intent(out) :: info
1141 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1142 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1143 type(nothing_type) ,
intent(in) :: operation
1144 type(uppDia_type) ,
intent(in) :: subset
1149 PURE module subroutine setMC_IMP_ANI_UXD_ONO_CK2(mat, subset, info, chol, operation)
1150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1151 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_ONO_CK2
1154 integer(IK) ,
intent(out) :: info
1155 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1156 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1157 type(nothing_type) ,
intent(in) :: operation
1158 type(uppDia_type) ,
intent(in) :: subset
1163 PURE module subroutine setMC_IMP_ANI_UXD_ONO_CK1(mat, subset, info, chol, operation)
1164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1165 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_ONO_CK1
1168 integer(IK) ,
intent(out) :: info
1169 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1170 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1171 type(nothing_type) ,
intent(in) :: operation
1172 type(uppDia_type) ,
intent(in) :: subset
1179 PURE module subroutine setMC_IMP_ANI_UXD_ONO_RK5(mat, subset, info, chol, operation)
1180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1181 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_ONO_RK5
1184 integer(IK) ,
intent(out) :: info
1185 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1186 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1187 type(nothing_type) ,
intent(in) :: operation
1188 type(uppDia_type) ,
intent(in) :: subset
1193 PURE module subroutine setMC_IMP_ANI_UXD_ONO_RK4(mat, subset, info, chol, operation)
1194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1195 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_ONO_RK4
1198 integer(IK) ,
intent(out) :: info
1199 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1200 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1201 type(nothing_type) ,
intent(in) :: operation
1202 type(uppDia_type) ,
intent(in) :: subset
1207 PURE module subroutine setMC_IMP_ANI_UXD_ONO_RK3(mat, subset, info, chol, operation)
1208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1209 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_ONO_RK3
1212 integer(IK) ,
intent(out) :: info
1213 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1214 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1215 type(nothing_type) ,
intent(in) :: operation
1216 type(uppDia_type) ,
intent(in) :: subset
1221 PURE module subroutine setMC_IMP_ANI_UXD_ONO_RK2(mat, subset, info, chol, operation)
1222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1223 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_ONO_RK2
1226 integer(IK) ,
intent(out) :: info
1227 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1228 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1229 type(nothing_type) ,
intent(in) :: operation
1230 type(uppDia_type) ,
intent(in) :: subset
1235 PURE module subroutine setMC_IMP_ANI_UXD_ONO_RK1(mat, subset, info, chol, operation)
1236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1237 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_ONO_RK1
1240 integer(IK) ,
intent(out) :: info
1241 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1242 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1243 type(nothing_type) ,
intent(in) :: operation
1244 type(uppDia_type) ,
intent(in) :: subset
1257 PURE module subroutine setMC_IMP_ANI_XLD_ONO_CK5(mat, subset, info, chol, operation)
1258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1259 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_ONO_CK5
1262 integer(IK) ,
intent(out) :: info
1263 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1264 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1265 type(nothing_type) ,
intent(in) :: operation
1266 type(lowDia_type) ,
intent(in) :: subset
1271 PURE module subroutine setMC_IMP_ANI_XLD_ONO_CK4(mat, subset, info, chol, operation)
1272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1273 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_ONO_CK4
1276 integer(IK) ,
intent(out) :: info
1277 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1278 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1279 type(nothing_type) ,
intent(in) :: operation
1280 type(lowDia_type) ,
intent(in) :: subset
1285 PURE module subroutine setMC_IMP_ANI_XLD_ONO_CK3(mat, subset, info, chol, operation)
1286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1287 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_ONO_CK3
1290 integer(IK) ,
intent(out) :: info
1291 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1292 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1293 type(nothing_type) ,
intent(in) :: operation
1294 type(lowDia_type) ,
intent(in) :: subset
1299 PURE module subroutine setMC_IMP_ANI_XLD_ONO_CK2(mat, subset, info, chol, operation)
1300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1301 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_ONO_CK2
1304 integer(IK) ,
intent(out) :: info
1305 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1306 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1307 type(nothing_type) ,
intent(in) :: operation
1308 type(lowDia_type) ,
intent(in) :: subset
1313 PURE module subroutine setMC_IMP_ANI_XLD_ONO_CK1(mat, subset, info, chol, operation)
1314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1315 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_ONO_CK1
1318 integer(IK) ,
intent(out) :: info
1319 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1320 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1321 type(nothing_type) ,
intent(in) :: operation
1322 type(lowDia_type) ,
intent(in) :: subset
1329 PURE module subroutine setMC_IMP_ANI_XLD_ONO_RK5(mat, subset, info, chol, operation)
1330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1331 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_ONO_RK5
1334 integer(IK) ,
intent(out) :: info
1335 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1336 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1337 type(nothing_type) ,
intent(in) :: operation
1338 type(lowDia_type) ,
intent(in) :: subset
1343 PURE module subroutine setMC_IMP_ANI_XLD_ONO_RK4(mat, subset, info, chol, operation)
1344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1345 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_ONO_RK4
1348 integer(IK) ,
intent(out) :: info
1349 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1350 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1351 type(nothing_type) ,
intent(in) :: operation
1352 type(lowDia_type) ,
intent(in) :: subset
1357 PURE module subroutine setMC_IMP_ANI_XLD_ONO_RK3(mat, subset, info, chol, operation)
1358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1359 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_ONO_RK3
1362 integer(IK) ,
intent(out) :: info
1363 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1364 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1365 type(nothing_type) ,
intent(in) :: operation
1366 type(lowDia_type) ,
intent(in) :: subset
1371 PURE module subroutine setMC_IMP_ANI_XLD_ONO_RK2(mat, subset, info, chol, operation)
1372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1373 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_ONO_RK2
1376 integer(IK) ,
intent(out) :: info
1377 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1378 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1379 type(nothing_type) ,
intent(in) :: operation
1380 type(lowDia_type) ,
intent(in) :: subset
1385 PURE module subroutine setMC_IMP_ANI_XLD_ONO_RK1(mat, subset, info, chol, operation)
1386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1387 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_ONO_RK1
1390 integer(IK) ,
intent(out) :: info
1391 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1392 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1393 type(nothing_type) ,
intent(in) :: operation
1394 type(lowDia_type) ,
intent(in) :: subset
1417 PURE module subroutine setMC_IMP_ANI_UXD_OTH_CK5(mat, subset, info, chol, operation)
1418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1419 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_OTH_CK5
1422 integer(IK) ,
intent(out) :: info
1423 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1424 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1425 type(transHerm_type),
intent(in) :: operation
1426 type(uppDia_type) ,
intent(in) :: subset
1431 PURE module subroutine setMC_IMP_ANI_UXD_OTH_CK4(mat, subset, info, chol, operation)
1432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1433 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_OTH_CK4
1436 integer(IK) ,
intent(out) :: info
1437 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1438 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1439 type(transHerm_type),
intent(in) :: operation
1440 type(uppDia_type) ,
intent(in) :: subset
1445 PURE module subroutine setMC_IMP_ANI_UXD_OTH_CK3(mat, subset, info, chol, operation)
1446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1447 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_OTH_CK3
1450 integer(IK) ,
intent(out) :: info
1451 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1452 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1453 type(transHerm_type),
intent(in) :: operation
1454 type(uppDia_type) ,
intent(in) :: subset
1459 PURE module subroutine setMC_IMP_ANI_UXD_OTH_CK2(mat, subset, info, chol, operation)
1460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1461 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_OTH_CK2
1464 integer(IK) ,
intent(out) :: info
1465 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1466 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1467 type(transHerm_type),
intent(in) :: operation
1468 type(uppDia_type) ,
intent(in) :: subset
1473 PURE module subroutine setMC_IMP_ANI_UXD_OTH_CK1(mat, subset, info, chol, operation)
1474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1475 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_OTH_CK1
1478 integer(IK) ,
intent(out) :: info
1479 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1480 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1481 type(transHerm_type),
intent(in) :: operation
1482 type(uppDia_type) ,
intent(in) :: subset
1489 PURE module subroutine setMC_IMP_ANI_UXD_OTH_RK5(mat, subset, info, chol, operation)
1490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1491 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_OTH_RK5
1494 integer(IK) ,
intent(out) :: info
1495 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1496 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1497 type(transHerm_type),
intent(in) :: operation
1498 type(uppDia_type) ,
intent(in) :: subset
1503 PURE module subroutine setMC_IMP_ANI_UXD_OTH_RK4(mat, subset, info, chol, operation)
1504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1505 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_OTH_RK4
1508 integer(IK) ,
intent(out) :: info
1509 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1510 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1511 type(transHerm_type),
intent(in) :: operation
1512 type(uppDia_type) ,
intent(in) :: subset
1517 PURE module subroutine setMC_IMP_ANI_UXD_OTH_RK3(mat, subset, info, chol, operation)
1518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1519 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_OTH_RK3
1522 integer(IK) ,
intent(out) :: info
1523 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1524 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1525 type(transHerm_type),
intent(in) :: operation
1526 type(uppDia_type) ,
intent(in) :: subset
1531 PURE module subroutine setMC_IMP_ANI_UXD_OTH_RK2(mat, subset, info, chol, operation)
1532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1533 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_OTH_RK2
1536 integer(IK) ,
intent(out) :: info
1537 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1538 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1539 type(transHerm_type),
intent(in) :: operation
1540 type(uppDia_type) ,
intent(in) :: subset
1545 PURE module subroutine setMC_IMP_ANI_UXD_OTH_RK1(mat, subset, info, chol, operation)
1546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1547 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_UXD_OTH_RK1
1550 integer(IK) ,
intent(out) :: info
1551 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1552 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1553 type(transHerm_type),
intent(in) :: operation
1554 type(uppDia_type) ,
intent(in) :: subset
1567 PURE module subroutine setMC_IMP_ANI_XLD_OTH_CK5(mat, subset, info, chol, operation)
1568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1569 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_OTH_CK5
1572 integer(IK) ,
intent(out) :: info
1573 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1574 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1575 type(transHerm_type),
intent(in) :: operation
1576 type(lowDia_type) ,
intent(in) :: subset
1581 PURE module subroutine setMC_IMP_ANI_XLD_OTH_CK4(mat, subset, info, chol, operation)
1582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1583 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_OTH_CK4
1586 integer(IK) ,
intent(out) :: info
1587 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1588 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1589 type(transHerm_type),
intent(in) :: operation
1590 type(lowDia_type) ,
intent(in) :: subset
1595 PURE module subroutine setMC_IMP_ANI_XLD_OTH_CK3(mat, subset, info, chol, operation)
1596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1597 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_OTH_CK3
1600 integer(IK) ,
intent(out) :: info
1601 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1602 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1603 type(transHerm_type),
intent(in) :: operation
1604 type(lowDia_type) ,
intent(in) :: subset
1609 PURE module subroutine setMC_IMP_ANI_XLD_OTH_CK2(mat, subset, info, chol, operation)
1610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1611 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_OTH_CK2
1614 integer(IK) ,
intent(out) :: info
1615 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1616 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1617 type(transHerm_type),
intent(in) :: operation
1618 type(lowDia_type) ,
intent(in) :: subset
1623 PURE module subroutine setMC_IMP_ANI_XLD_OTH_CK1(mat, subset, info, chol, operation)
1624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1625 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_OTH_CK1
1628 integer(IK) ,
intent(out) :: info
1629 complex(CKG) ,
intent(in) ,
contiguous :: mat(:,:)
1630 complex(CKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1631 type(transHerm_type),
intent(in) :: operation
1632 type(lowDia_type) ,
intent(in) :: subset
1639 PURE module subroutine setMC_IMP_ANI_XLD_OTH_RK5(mat, subset, info, chol, operation)
1640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1641 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_OTH_RK5
1644 integer(IK) ,
intent(out) :: info
1645 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1646 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1647 type(transHerm_type),
intent(in) :: operation
1648 type(lowDia_type) ,
intent(in) :: subset
1653 PURE module subroutine setMC_IMP_ANI_XLD_OTH_RK4(mat, subset, info, chol, operation)
1654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1655 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_OTH_RK4
1658 integer(IK) ,
intent(out) :: info
1659 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1660 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1661 type(transHerm_type),
intent(in) :: operation
1662 type(lowDia_type) ,
intent(in) :: subset
1667 PURE module subroutine setMC_IMP_ANI_XLD_OTH_RK3(mat, subset, info, chol, operation)
1668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1669 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_OTH_RK3
1672 integer(IK) ,
intent(out) :: info
1673 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1674 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1675 type(transHerm_type),
intent(in) :: operation
1676 type(lowDia_type) ,
intent(in) :: subset
1681 PURE module subroutine setMC_IMP_ANI_XLD_OTH_RK2(mat, subset, info, chol, operation)
1682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1683 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_OTH_RK2
1686 integer(IK) ,
intent(out) :: info
1687 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1688 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1689 type(transHerm_type),
intent(in) :: operation
1690 type(lowDia_type) ,
intent(in) :: subset
1695 PURE module subroutine setMC_IMP_ANI_XLD_OTH_RK1(mat, subset, info, chol, operation)
1696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1697 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ANI_XLD_OTH_RK1
1700 integer(IK) ,
intent(out) :: info
1701 real(RKG) ,
intent(in) ,
contiguous :: mat(:,:)
1702 real(RKG) ,
intent(inout) ,
contiguous :: chol(:,:)
1703 type(transHerm_type),
intent(in) :: operation
1704 type(lowDia_type) ,
intent(in) :: subset
1727 PURE recursive module subroutine setMC_IMP_ABI_UXD_ONO_CK5(mat, subset, info, control, bdim)
1728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1729 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_UXD_ONO_CK5
1732 integer(IK) ,
intent(out) :: info
1733 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1734 type(uppDia_type) ,
intent(in) :: subset
1735 type(iteration_type),
intent(in) :: control
1736 integer(IK) ,
intent(in) ,
optional :: bdim
1741 PURE recursive module subroutine setMC_IMP_ABI_UXD_ONO_CK4(mat, subset, info, control, bdim)
1742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1743 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_UXD_ONO_CK4
1746 integer(IK) ,
intent(out) :: info
1747 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1748 type(uppDia_type) ,
intent(in) :: subset
1749 type(iteration_type),
intent(in) :: control
1750 integer(IK) ,
intent(in) ,
optional :: bdim
1755 PURE recursive module subroutine setMC_IMP_ABI_UXD_ONO_CK3(mat, subset, info, control, bdim)
1756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1757 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_UXD_ONO_CK3
1760 integer(IK) ,
intent(out) :: info
1761 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1762 type(uppDia_type) ,
intent(in) :: subset
1763 type(iteration_type),
intent(in) :: control
1764 integer(IK) ,
intent(in) ,
optional :: bdim
1769 PURE recursive module subroutine setMC_IMP_ABI_UXD_ONO_CK2(mat, subset, info, control, bdim)
1770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1771 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_UXD_ONO_CK2
1774 integer(IK) ,
intent(out) :: info
1775 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1776 type(uppDia_type) ,
intent(in) :: subset
1777 type(iteration_type),
intent(in) :: control
1778 integer(IK) ,
intent(in) ,
optional :: bdim
1783 PURE recursive module subroutine setMC_IMP_ABI_UXD_ONO_CK1(mat, subset, info, control, bdim)
1784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1785 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_UXD_ONO_CK1
1788 integer(IK) ,
intent(out) :: info
1789 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1790 type(uppDia_type) ,
intent(in) :: subset
1791 type(iteration_type),
intent(in) :: control
1792 integer(IK) ,
intent(in) ,
optional :: bdim
1799 PURE recursive module subroutine setMC_IMP_ABI_UXD_ONO_RK5(mat, subset, info, control, bdim)
1800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1801 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_UXD_ONO_RK5
1804 integer(IK) ,
intent(out) :: info
1805 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1806 type(uppDia_type) ,
intent(in) :: subset
1807 type(iteration_type),
intent(in) :: control
1808 integer(IK) ,
intent(in) ,
optional :: bdim
1813 PURE recursive module subroutine setMC_IMP_ABI_UXD_ONO_RK4(mat, subset, info, control, bdim)
1814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1815 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_UXD_ONO_RK4
1818 integer(IK) ,
intent(out) :: info
1819 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1820 type(uppDia_type) ,
intent(in) :: subset
1821 type(iteration_type),
intent(in) :: control
1822 integer(IK) ,
intent(in) ,
optional :: bdim
1827 PURE recursive module subroutine setMC_IMP_ABI_UXD_ONO_RK3(mat, subset, info, control, bdim)
1828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1829 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_UXD_ONO_RK3
1832 integer(IK) ,
intent(out) :: info
1833 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1834 type(uppDia_type) ,
intent(in) :: subset
1835 type(iteration_type),
intent(in) :: control
1836 integer(IK) ,
intent(in) ,
optional :: bdim
1841 PURE recursive module subroutine setMC_IMP_ABI_UXD_ONO_RK2(mat, subset, info, control, bdim)
1842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1843 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_UXD_ONO_RK2
1846 integer(IK) ,
intent(out) :: info
1847 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1848 type(uppDia_type) ,
intent(in) :: subset
1849 type(iteration_type),
intent(in) :: control
1850 integer(IK) ,
intent(in) ,
optional :: bdim
1855 PURE recursive module subroutine setMC_IMP_ABI_UXD_ONO_RK1(mat, subset, info, control, bdim)
1856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1857 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_UXD_ONO_RK1
1860 integer(IK) ,
intent(out) :: info
1861 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1862 type(uppDia_type) ,
intent(in) :: subset
1863 type(iteration_type),
intent(in) :: control
1864 integer(IK) ,
intent(in) ,
optional :: bdim
1877 PURE recursive module subroutine setMC_IMP_ABI_XLD_ONO_CK5(mat, subset, info, control, bdim)
1878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1879 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_XLD_ONO_CK5
1882 integer(IK) ,
intent(out) :: info
1883 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1884 type(lowDia_type) ,
intent(in) :: subset
1885 type(iteration_type),
intent(in) :: control
1886 integer(IK) ,
intent(in) ,
optional :: bdim
1891 PURE recursive module subroutine setMC_IMP_ABI_XLD_ONO_CK4(mat, subset, info, control, bdim)
1892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1893 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_XLD_ONO_CK4
1896 integer(IK) ,
intent(out) :: info
1897 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1898 type(lowDia_type) ,
intent(in) :: subset
1899 type(iteration_type),
intent(in) :: control
1900 integer(IK) ,
intent(in) ,
optional :: bdim
1905 PURE recursive module subroutine setMC_IMP_ABI_XLD_ONO_CK3(mat, subset, info, control, bdim)
1906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1907 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_XLD_ONO_CK3
1910 integer(IK) ,
intent(out) :: info
1911 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1912 type(lowDia_type) ,
intent(in) :: subset
1913 type(iteration_type),
intent(in) :: control
1914 integer(IK) ,
intent(in) ,
optional :: bdim
1919 PURE recursive module subroutine setMC_IMP_ABI_XLD_ONO_CK2(mat, subset, info, control, bdim)
1920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1921 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_XLD_ONO_CK2
1924 integer(IK) ,
intent(out) :: info
1925 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1926 type(lowDia_type) ,
intent(in) :: subset
1927 type(iteration_type),
intent(in) :: control
1928 integer(IK) ,
intent(in) ,
optional :: bdim
1933 PURE recursive module subroutine setMC_IMP_ABI_XLD_ONO_CK1(mat, subset, info, control, bdim)
1934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1935 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_XLD_ONO_CK1
1938 integer(IK) ,
intent(out) :: info
1939 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1940 type(lowDia_type) ,
intent(in) :: subset
1941 type(iteration_type),
intent(in) :: control
1942 integer(IK) ,
intent(in) ,
optional :: bdim
1949 PURE recursive module subroutine setMC_IMP_ABI_XLD_ONO_RK5(mat, subset, info, control, bdim)
1950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1951 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_XLD_ONO_RK5
1954 integer(IK) ,
intent(out) :: info
1955 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1956 type(lowDia_type) ,
intent(in) :: subset
1957 type(iteration_type),
intent(in) :: control
1958 integer(IK) ,
intent(in) ,
optional :: bdim
1963 PURE recursive module subroutine setMC_IMP_ABI_XLD_ONO_RK4(mat, subset, info, control, bdim)
1964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1965 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_XLD_ONO_RK4
1968 integer(IK) ,
intent(out) :: info
1969 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1970 type(lowDia_type) ,
intent(in) :: subset
1971 type(iteration_type),
intent(in) :: control
1972 integer(IK) ,
intent(in) ,
optional :: bdim
1977 PURE recursive module subroutine setMC_IMP_ABI_XLD_ONO_RK3(mat, subset, info, control, bdim)
1978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1979 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_XLD_ONO_RK3
1982 integer(IK) ,
intent(out) :: info
1983 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1984 type(lowDia_type) ,
intent(in) :: subset
1985 type(iteration_type),
intent(in) :: control
1986 integer(IK) ,
intent(in) ,
optional :: bdim
1991 PURE recursive module subroutine setMC_IMP_ABI_XLD_ONO_RK2(mat, subset, info, control, bdim)
1992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1993 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_XLD_ONO_RK2
1996 integer(IK) ,
intent(out) :: info
1997 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
1998 type(lowDia_type) ,
intent(in) :: subset
1999 type(iteration_type),
intent(in) :: control
2000 integer(IK) ,
intent(in) ,
optional :: bdim
2005 PURE recursive module subroutine setMC_IMP_ABI_XLD_ONO_RK1(mat, subset, info, control, bdim)
2006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2007 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABI_XLD_ONO_RK1
2010 integer(IK) ,
intent(out) :: info
2011 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2012 type(lowDia_type) ,
intent(in) :: subset
2013 type(iteration_type),
intent(in) :: control
2014 integer(IK) ,
intent(in) ,
optional :: bdim
2037 PURE recursive module subroutine setMC_IMP_ABR_UXD_ONO_CK5(mat, subset, info, control)
2038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2039 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_UXD_ONO_CK5
2042 integer(IK) ,
intent(out) :: info
2043 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2044 type(uppDia_type) ,
intent(in) :: subset
2045 type(recursion_type),
intent(in) :: control
2050 PURE recursive module subroutine setMC_IMP_ABR_UXD_ONO_CK4(mat, subset, info, control)
2051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2052 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_UXD_ONO_CK4
2055 integer(IK) ,
intent(out) :: info
2056 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2057 type(uppDia_type) ,
intent(in) :: subset
2058 type(recursion_type),
intent(in) :: control
2063 PURE recursive module subroutine setMC_IMP_ABR_UXD_ONO_CK3(mat, subset, info, control)
2064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2065 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_UXD_ONO_CK3
2068 integer(IK) ,
intent(out) :: info
2069 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2070 type(uppDia_type) ,
intent(in) :: subset
2071 type(recursion_type),
intent(in) :: control
2076 PURE recursive module subroutine setMC_IMP_ABR_UXD_ONO_CK2(mat, subset, info, control)
2077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2078 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_UXD_ONO_CK2
2081 integer(IK) ,
intent(out) :: info
2082 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2083 type(uppDia_type) ,
intent(in) :: subset
2084 type(recursion_type),
intent(in) :: control
2089 PURE recursive module subroutine setMC_IMP_ABR_UXD_ONO_CK1(mat, subset, info, control)
2090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2091 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_UXD_ONO_CK1
2094 integer(IK) ,
intent(out) :: info
2095 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2096 type(uppDia_type) ,
intent(in) :: subset
2097 type(recursion_type),
intent(in) :: control
2104 PURE recursive module subroutine setMC_IMP_ABR_UXD_ONO_RK5(mat, subset, info, control)
2105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2106 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_UXD_ONO_RK5
2109 integer(IK) ,
intent(out) :: info
2110 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2111 type(uppDia_type) ,
intent(in) :: subset
2112 type(recursion_type),
intent(in) :: control
2117 PURE recursive module subroutine setMC_IMP_ABR_UXD_ONO_RK4(mat, subset, info, control)
2118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2119 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_UXD_ONO_RK4
2122 integer(IK) ,
intent(out) :: info
2123 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2124 type(uppDia_type) ,
intent(in) :: subset
2125 type(recursion_type),
intent(in) :: control
2130 PURE recursive module subroutine setMC_IMP_ABR_UXD_ONO_RK3(mat, subset, info, control)
2131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2132 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_UXD_ONO_RK3
2135 integer(IK) ,
intent(out) :: info
2136 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2137 type(uppDia_type) ,
intent(in) :: subset
2138 type(recursion_type),
intent(in) :: control
2143 PURE recursive module subroutine setMC_IMP_ABR_UXD_ONO_RK2(mat, subset, info, control)
2144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2145 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_UXD_ONO_RK2
2148 integer(IK) ,
intent(out) :: info
2149 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2150 type(uppDia_type) ,
intent(in) :: subset
2151 type(recursion_type),
intent(in) :: control
2156 PURE recursive module subroutine setMC_IMP_ABR_UXD_ONO_RK1(mat, subset, info, control)
2157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2158 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_UXD_ONO_RK1
2161 integer(IK) ,
intent(out) :: info
2162 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2163 type(uppDia_type) ,
intent(in) :: subset
2164 type(recursion_type),
intent(in) :: control
2177 PURE recursive module subroutine setMC_IMP_ABR_XLD_ONO_CK5(mat, subset, info, control)
2178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2179 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_XLD_ONO_CK5
2182 integer(IK) ,
intent(out) :: info
2183 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2184 type(lowDia_type) ,
intent(in) :: subset
2185 type(recursion_type),
intent(in) :: control
2190 PURE recursive module subroutine setMC_IMP_ABR_XLD_ONO_CK4(mat, subset, info, control)
2191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2192 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_XLD_ONO_CK4
2195 integer(IK) ,
intent(out) :: info
2196 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2197 type(lowDia_type) ,
intent(in) :: subset
2198 type(recursion_type),
intent(in) :: control
2203 PURE recursive module subroutine setMC_IMP_ABR_XLD_ONO_CK3(mat, subset, info, control)
2204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2205 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_XLD_ONO_CK3
2208 integer(IK) ,
intent(out) :: info
2209 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2210 type(lowDia_type) ,
intent(in) :: subset
2211 type(recursion_type),
intent(in) :: control
2216 PURE recursive module subroutine setMC_IMP_ABR_XLD_ONO_CK2(mat, subset, info, control)
2217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2218 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_XLD_ONO_CK2
2221 integer(IK) ,
intent(out) :: info
2222 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2223 type(lowDia_type) ,
intent(in) :: subset
2224 type(recursion_type),
intent(in) :: control
2229 PURE recursive module subroutine setMC_IMP_ABR_XLD_ONO_CK1(mat, subset, info, control)
2230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2231 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_XLD_ONO_CK1
2234 integer(IK) ,
intent(out) :: info
2235 complex(CKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2236 type(lowDia_type) ,
intent(in) :: subset
2237 type(recursion_type),
intent(in) :: control
2244 PURE recursive module subroutine setMC_IMP_ABR_XLD_ONO_RK5(mat, subset, info, control)
2245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2246 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_XLD_ONO_RK5
2249 integer(IK) ,
intent(out) :: info
2250 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2251 type(lowDia_type) ,
intent(in) :: subset
2252 type(recursion_type),
intent(in) :: control
2257 PURE recursive module subroutine setMC_IMP_ABR_XLD_ONO_RK4(mat, subset, info, control)
2258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2259 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_XLD_ONO_RK4
2262 integer(IK) ,
intent(out) :: info
2263 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2264 type(lowDia_type) ,
intent(in) :: subset
2265 type(recursion_type),
intent(in) :: control
2270 PURE recursive module subroutine setMC_IMP_ABR_XLD_ONO_RK3(mat, subset, info, control)
2271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2272 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_XLD_ONO_RK3
2275 integer(IK) ,
intent(out) :: info
2276 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2277 type(lowDia_type) ,
intent(in) :: subset
2278 type(recursion_type),
intent(in) :: control
2283 PURE recursive module subroutine setMC_IMP_ABR_XLD_ONO_RK2(mat, subset, info, control)
2284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2285 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_XLD_ONO_RK2
2288 integer(IK) ,
intent(out) :: info
2289 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2290 type(lowDia_type) ,
intent(in) :: subset
2291 type(recursion_type),
intent(in) :: control
2296 PURE recursive module subroutine setMC_IMP_ABR_XLD_ONO_RK1(mat, subset, info, control)
2297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2298 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_IMP_ABR_XLD_ONO_RK1
2301 integer(IK) ,
intent(out) :: info
2302 real(RKG) ,
intent(inout) ,
contiguous :: mat(:,:)
2303 type(lowDia_type) ,
intent(in) :: subset
2304 type(recursion_type),
intent(in) :: control
2327 PURE module subroutine setMC_EXP_AXX_UXD_ONO_CK5(mat, subset, info, ndim, roff, coff)
2328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2329 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_UXD_ONO_CK5
2332 integer(IK) ,
intent(out) :: info
2333 integer(IK) ,
intent(in) :: ndim, roff, coff
2334 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2335 type(uppDia_type) ,
intent(in) :: subset
2340 PURE module subroutine setMC_EXP_AXX_UXD_ONO_CK4(mat, subset, info, ndim, roff, coff)
2341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2342 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_UXD_ONO_CK4
2345 integer(IK) ,
intent(out) :: info
2346 integer(IK) ,
intent(in) :: ndim, roff, coff
2347 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2348 type(uppDia_type) ,
intent(in) :: subset
2353 PURE module subroutine setMC_EXP_AXX_UXD_ONO_CK3(mat, subset, info, ndim, roff, coff)
2354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2355 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_UXD_ONO_CK3
2358 integer(IK) ,
intent(out) :: info
2359 integer(IK) ,
intent(in) :: ndim, roff, coff
2360 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2361 type(uppDia_type) ,
intent(in) :: subset
2366 PURE module subroutine setMC_EXP_AXX_UXD_ONO_CK2(mat, subset, info, ndim, roff, coff)
2367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2368 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_UXD_ONO_CK2
2371 integer(IK) ,
intent(out) :: info
2372 integer(IK) ,
intent(in) :: ndim, roff, coff
2373 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2374 type(uppDia_type) ,
intent(in) :: subset
2379 PURE module subroutine setMC_EXP_AXX_UXD_ONO_CK1(mat, subset, info, ndim, roff, coff)
2380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2381 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_UXD_ONO_CK1
2384 integer(IK) ,
intent(out) :: info
2385 integer(IK) ,
intent(in) :: ndim, roff, coff
2386 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2387 type(uppDia_type) ,
intent(in) :: subset
2394 PURE module subroutine setMC_EXP_AXX_UXD_ONO_RK5(mat, subset, info, ndim, roff, coff)
2395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2396 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_UXD_ONO_RK5
2399 integer(IK) ,
intent(out) :: info
2400 integer(IK) ,
intent(in) :: ndim, roff, coff
2401 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2402 type(uppDia_type) ,
intent(in) :: subset
2407 PURE module subroutine setMC_EXP_AXX_UXD_ONO_RK4(mat, subset, info, ndim, roff, coff)
2408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2409 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_UXD_ONO_RK4
2412 integer(IK) ,
intent(out) :: info
2413 integer(IK) ,
intent(in) :: ndim, roff, coff
2414 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2415 type(uppDia_type) ,
intent(in) :: subset
2420 PURE module subroutine setMC_EXP_AXX_UXD_ONO_RK3(mat, subset, info, ndim, roff, coff)
2421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2422 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_UXD_ONO_RK3
2425 integer(IK) ,
intent(out) :: info
2426 integer(IK) ,
intent(in) :: ndim, roff, coff
2427 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2428 type(uppDia_type) ,
intent(in) :: subset
2433 PURE module subroutine setMC_EXP_AXX_UXD_ONO_RK2(mat, subset, info, ndim, roff, coff)
2434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2435 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_UXD_ONO_RK2
2438 integer(IK) ,
intent(out) :: info
2439 integer(IK) ,
intent(in) :: ndim, roff, coff
2440 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2441 type(uppDia_type) ,
intent(in) :: subset
2446 PURE module subroutine setMC_EXP_AXX_UXD_ONO_RK1(mat, subset, info, ndim, roff, coff)
2447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2448 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_UXD_ONO_RK1
2451 integer(IK) ,
intent(out) :: info
2452 integer(IK) ,
intent(in) :: ndim, roff, coff
2453 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2454 type(uppDia_type) ,
intent(in) :: subset
2467 PURE module subroutine setMC_EXP_AXX_XLD_ONO_CK5(mat, subset, info, ndim, roff, coff)
2468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2469 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_XLD_ONO_CK5
2472 integer(IK) ,
intent(out) :: info
2473 integer(IK) ,
intent(in) :: ndim, roff, coff
2474 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2475 type(lowDia_type) ,
intent(in) :: subset
2480 PURE module subroutine setMC_EXP_AXX_XLD_ONO_CK4(mat, subset, info, ndim, roff, coff)
2481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2482 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_XLD_ONO_CK4
2485 integer(IK) ,
intent(out) :: info
2486 integer(IK) ,
intent(in) :: ndim, roff, coff
2487 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2488 type(lowDia_type) ,
intent(in) :: subset
2493 PURE module subroutine setMC_EXP_AXX_XLD_ONO_CK3(mat, subset, info, ndim, roff, coff)
2494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2495 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_XLD_ONO_CK3
2498 integer(IK) ,
intent(out) :: info
2499 integer(IK) ,
intent(in) :: ndim, roff, coff
2500 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2501 type(lowDia_type) ,
intent(in) :: subset
2506 PURE module subroutine setMC_EXP_AXX_XLD_ONO_CK2(mat, subset, info, ndim, roff, coff)
2507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2508 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_XLD_ONO_CK2
2511 integer(IK) ,
intent(out) :: info
2512 integer(IK) ,
intent(in) :: ndim, roff, coff
2513 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2514 type(lowDia_type) ,
intent(in) :: subset
2519 PURE module subroutine setMC_EXP_AXX_XLD_ONO_CK1(mat, subset, info, ndim, roff, coff)
2520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2521 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_XLD_ONO_CK1
2524 integer(IK) ,
intent(out) :: info
2525 integer(IK) ,
intent(in) :: ndim, roff, coff
2526 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2527 type(lowDia_type) ,
intent(in) :: subset
2534 PURE module subroutine setMC_EXP_AXX_XLD_ONO_RK5(mat, subset, info, ndim, roff, coff)
2535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2536 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_XLD_ONO_RK5
2539 integer(IK) ,
intent(out) :: info
2540 integer(IK) ,
intent(in) :: ndim, roff, coff
2541 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2542 type(lowDia_type) ,
intent(in) :: subset
2547 PURE module subroutine setMC_EXP_AXX_XLD_ONO_RK4(mat, subset, info, ndim, roff, coff)
2548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2549 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_XLD_ONO_RK4
2552 integer(IK) ,
intent(out) :: info
2553 integer(IK) ,
intent(in) :: ndim, roff, coff
2554 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2555 type(lowDia_type) ,
intent(in) :: subset
2560 PURE module subroutine setMC_EXP_AXX_XLD_ONO_RK3(mat, subset, info, ndim, roff, coff)
2561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2562 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_XLD_ONO_RK3
2565 integer(IK) ,
intent(out) :: info
2566 integer(IK) ,
intent(in) :: ndim, roff, coff
2567 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2568 type(lowDia_type) ,
intent(in) :: subset
2573 PURE module subroutine setMC_EXP_AXX_XLD_ONO_RK2(mat, subset, info, ndim, roff, coff)
2574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2575 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_XLD_ONO_RK2
2578 integer(IK) ,
intent(out) :: info
2579 integer(IK) ,
intent(in) :: ndim, roff, coff
2580 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2581 type(lowDia_type) ,
intent(in) :: subset
2586 PURE module subroutine setMC_EXP_AXX_XLD_ONO_RK1(mat, subset, info, ndim, roff, coff)
2587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2588 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_AXX_XLD_ONO_RK1
2591 integer(IK) ,
intent(out) :: info
2592 integer(IK) ,
intent(in) :: ndim, roff, coff
2593 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2594 type(lowDia_type) ,
intent(in) :: subset
2617 PURE module subroutine setMC_EXP_ANI_UXD_ONO_CK5(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2619 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_ONO_CK5
2622 integer(IK) ,
intent(out) :: info
2623 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2624 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2625 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2626 type(nothing_type) ,
intent(in) :: operation
2627 type(uppDia_type) ,
intent(in) :: subset
2632 PURE module subroutine setMC_EXP_ANI_UXD_ONO_CK4(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2634 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_ONO_CK4
2637 integer(IK) ,
intent(out) :: info
2638 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2639 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2640 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2641 type(nothing_type) ,
intent(in) :: operation
2642 type(uppDia_type) ,
intent(in) :: subset
2647 PURE module subroutine setMC_EXP_ANI_UXD_ONO_CK3(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2649 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_ONO_CK3
2652 integer(IK) ,
intent(out) :: info
2653 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2654 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2655 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2656 type(nothing_type) ,
intent(in) :: operation
2657 type(uppDia_type) ,
intent(in) :: subset
2662 PURE module subroutine setMC_EXP_ANI_UXD_ONO_CK2(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2664 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_ONO_CK2
2667 integer(IK) ,
intent(out) :: info
2668 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2669 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2670 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2671 type(nothing_type) ,
intent(in) :: operation
2672 type(uppDia_type) ,
intent(in) :: subset
2677 PURE module subroutine setMC_EXP_ANI_UXD_ONO_CK1(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2679 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_ONO_CK1
2682 integer(IK) ,
intent(out) :: info
2683 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2684 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2685 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2686 type(nothing_type) ,
intent(in) :: operation
2687 type(uppDia_type) ,
intent(in) :: subset
2694 PURE module subroutine setMC_EXP_ANI_UXD_ONO_RK5(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2696 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_ONO_RK5
2699 integer(IK) ,
intent(out) :: info
2700 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2701 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2702 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2703 type(nothing_type) ,
intent(in) :: operation
2704 type(uppDia_type) ,
intent(in) :: subset
2709 PURE module subroutine setMC_EXP_ANI_UXD_ONO_RK4(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2711 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_ONO_RK4
2714 integer(IK) ,
intent(out) :: info
2715 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2716 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2717 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2718 type(nothing_type) ,
intent(in) :: operation
2719 type(uppDia_type) ,
intent(in) :: subset
2724 PURE module subroutine setMC_EXP_ANI_UXD_ONO_RK3(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2726 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_ONO_RK3
2729 integer(IK) ,
intent(out) :: info
2730 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2731 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2732 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2733 type(nothing_type) ,
intent(in) :: operation
2734 type(uppDia_type) ,
intent(in) :: subset
2739 PURE module subroutine setMC_EXP_ANI_UXD_ONO_RK2(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2741 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_ONO_RK2
2744 integer(IK) ,
intent(out) :: info
2745 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2746 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2747 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2748 type(nothing_type) ,
intent(in) :: operation
2749 type(uppDia_type) ,
intent(in) :: subset
2754 PURE module subroutine setMC_EXP_ANI_UXD_ONO_RK1(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2756 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_ONO_RK1
2759 integer(IK) ,
intent(out) :: info
2760 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2761 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2762 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2763 type(nothing_type) ,
intent(in) :: operation
2764 type(uppDia_type) ,
intent(in) :: subset
2777 PURE module subroutine setMC_EXP_ANI_XLD_ONO_CK5(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2779 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_ONO_CK5
2782 integer(IK) ,
intent(out) :: info
2783 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2784 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2785 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2786 type(nothing_type) ,
intent(in) :: operation
2787 type(lowDia_type) ,
intent(in) :: subset
2792 PURE module subroutine setMC_EXP_ANI_XLD_ONO_CK4(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2794 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_ONO_CK4
2797 integer(IK) ,
intent(out) :: info
2798 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2799 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2800 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2801 type(nothing_type) ,
intent(in) :: operation
2802 type(lowDia_type) ,
intent(in) :: subset
2807 PURE module subroutine setMC_EXP_ANI_XLD_ONO_CK3(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2809 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_ONO_CK3
2812 integer(IK) ,
intent(out) :: info
2813 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2814 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2815 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2816 type(nothing_type) ,
intent(in) :: operation
2817 type(lowDia_type) ,
intent(in) :: subset
2822 PURE module subroutine setMC_EXP_ANI_XLD_ONO_CK2(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2824 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_ONO_CK2
2827 integer(IK) ,
intent(out) :: info
2828 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2829 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2830 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2831 type(nothing_type) ,
intent(in) :: operation
2832 type(lowDia_type) ,
intent(in) :: subset
2837 PURE module subroutine setMC_EXP_ANI_XLD_ONO_CK1(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2839 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_ONO_CK1
2842 integer(IK) ,
intent(out) :: info
2843 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2844 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2845 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2846 type(nothing_type) ,
intent(in) :: operation
2847 type(lowDia_type) ,
intent(in) :: subset
2854 PURE module subroutine setMC_EXP_ANI_XLD_ONO_RK5(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2856 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_ONO_RK5
2859 integer(IK) ,
intent(out) :: info
2860 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2861 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2862 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2863 type(nothing_type) ,
intent(in) :: operation
2864 type(lowDia_type) ,
intent(in) :: subset
2869 PURE module subroutine setMC_EXP_ANI_XLD_ONO_RK4(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2871 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_ONO_RK4
2874 integer(IK) ,
intent(out) :: info
2875 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2876 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2877 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2878 type(nothing_type) ,
intent(in) :: operation
2879 type(lowDia_type) ,
intent(in) :: subset
2884 PURE module subroutine setMC_EXP_ANI_XLD_ONO_RK3(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2886 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_ONO_RK3
2889 integer(IK) ,
intent(out) :: info
2890 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2891 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2892 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2893 type(nothing_type) ,
intent(in) :: operation
2894 type(lowDia_type) ,
intent(in) :: subset
2899 PURE module subroutine setMC_EXP_ANI_XLD_ONO_RK2(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2901 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_ONO_RK2
2904 integer(IK) ,
intent(out) :: info
2905 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2906 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2907 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2908 type(nothing_type) ,
intent(in) :: operation
2909 type(lowDia_type) ,
intent(in) :: subset
2914 PURE module subroutine setMC_EXP_ANI_XLD_ONO_RK1(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2916 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_ONO_RK1
2919 integer(IK) ,
intent(out) :: info
2920 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2921 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2922 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2923 type(nothing_type) ,
intent(in) :: operation
2924 type(lowDia_type) ,
intent(in) :: subset
2947 PURE module subroutine setMC_EXP_ANI_UXD_OTH_CK5(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2949 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_OTH_CK5
2952 integer(IK) ,
intent(out) :: info
2953 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2954 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2955 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2956 type(transHerm_type),
intent(in) :: operation
2957 type(uppDia_type) ,
intent(in) :: subset
2962 PURE module subroutine setMC_EXP_ANI_UXD_OTH_CK4(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2964 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_OTH_CK4
2967 integer(IK) ,
intent(out) :: info
2968 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2969 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2970 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2971 type(transHerm_type),
intent(in) :: operation
2972 type(uppDia_type) ,
intent(in) :: subset
2977 PURE module subroutine setMC_EXP_ANI_UXD_OTH_CK3(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2979 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_OTH_CK3
2982 integer(IK) ,
intent(out) :: info
2983 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2984 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
2985 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
2986 type(transHerm_type),
intent(in) :: operation
2987 type(uppDia_type) ,
intent(in) :: subset
2992 PURE module subroutine setMC_EXP_ANI_UXD_OTH_CK2(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
2993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2994 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_OTH_CK2
2997 integer(IK) ,
intent(out) :: info
2998 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
2999 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3000 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3001 type(transHerm_type),
intent(in) :: operation
3002 type(uppDia_type) ,
intent(in) :: subset
3007 PURE module subroutine setMC_EXP_ANI_UXD_OTH_CK1(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3009 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_OTH_CK1
3012 integer(IK) ,
intent(out) :: info
3013 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3014 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3015 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3016 type(transHerm_type),
intent(in) :: operation
3017 type(uppDia_type) ,
intent(in) :: subset
3024 PURE module subroutine setMC_EXP_ANI_UXD_OTH_RK5(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3026 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_OTH_RK5
3029 integer(IK) ,
intent(out) :: info
3030 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3031 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3032 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3033 type(transHerm_type),
intent(in) :: operation
3034 type(uppDia_type) ,
intent(in) :: subset
3039 PURE module subroutine setMC_EXP_ANI_UXD_OTH_RK4(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3041 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_OTH_RK4
3044 integer(IK) ,
intent(out) :: info
3045 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3046 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3047 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3048 type(transHerm_type),
intent(in) :: operation
3049 type(uppDia_type) ,
intent(in) :: subset
3054 PURE module subroutine setMC_EXP_ANI_UXD_OTH_RK3(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3056 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_OTH_RK3
3059 integer(IK) ,
intent(out) :: info
3060 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3061 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3062 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3063 type(transHerm_type),
intent(in) :: operation
3064 type(uppDia_type) ,
intent(in) :: subset
3069 PURE module subroutine setMC_EXP_ANI_UXD_OTH_RK2(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3071 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_OTH_RK2
3074 integer(IK) ,
intent(out) :: info
3075 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3076 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3077 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3078 type(transHerm_type),
intent(in) :: operation
3079 type(uppDia_type) ,
intent(in) :: subset
3084 PURE module subroutine setMC_EXP_ANI_UXD_OTH_RK1(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3086 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_UXD_OTH_RK1
3089 integer(IK) ,
intent(out) :: info
3090 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3091 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3092 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3093 type(transHerm_type),
intent(in) :: operation
3094 type(uppDia_type) ,
intent(in) :: subset
3107 PURE module subroutine setMC_EXP_ANI_XLD_OTH_CK5(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3109 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_OTH_CK5
3112 integer(IK) ,
intent(out) :: info
3113 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3114 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3115 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3116 type(transHerm_type),
intent(in) :: operation
3117 type(lowDia_type) ,
intent(in) :: subset
3122 PURE module subroutine setMC_EXP_ANI_XLD_OTH_CK4(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3124 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_OTH_CK4
3127 integer(IK) ,
intent(out) :: info
3128 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3129 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3130 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3131 type(transHerm_type),
intent(in) :: operation
3132 type(lowDia_type) ,
intent(in) :: subset
3137 PURE module subroutine setMC_EXP_ANI_XLD_OTH_CK3(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3139 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_OTH_CK3
3142 integer(IK) ,
intent(out) :: info
3143 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3144 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3145 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3146 type(transHerm_type),
intent(in) :: operation
3147 type(lowDia_type) ,
intent(in) :: subset
3152 PURE module subroutine setMC_EXP_ANI_XLD_OTH_CK2(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3154 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_OTH_CK2
3157 integer(IK) ,
intent(out) :: info
3158 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3159 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3160 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3161 type(transHerm_type),
intent(in) :: operation
3162 type(lowDia_type) ,
intent(in) :: subset
3167 PURE module subroutine setMC_EXP_ANI_XLD_OTH_CK1(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3169 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_OTH_CK1
3172 integer(IK) ,
intent(out) :: info
3173 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3174 complex(CKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3175 complex(CKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3176 type(transHerm_type),
intent(in) :: operation
3177 type(lowDia_type) ,
intent(in) :: subset
3184 PURE module subroutine setMC_EXP_ANI_XLD_OTH_RK5(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3186 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_OTH_RK5
3189 integer(IK) ,
intent(out) :: info
3190 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3191 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3192 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3193 type(transHerm_type),
intent(in) :: operation
3194 type(lowDia_type) ,
intent(in) :: subset
3199 PURE module subroutine setMC_EXP_ANI_XLD_OTH_RK4(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3201 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_OTH_RK4
3204 integer(IK) ,
intent(out) :: info
3205 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3206 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3207 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3208 type(transHerm_type),
intent(in) :: operation
3209 type(lowDia_type) ,
intent(in) :: subset
3214 PURE module subroutine setMC_EXP_ANI_XLD_OTH_RK3(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3216 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_OTH_RK3
3219 integer(IK) ,
intent(out) :: info
3220 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3221 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3222 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3223 type(transHerm_type),
intent(in) :: operation
3224 type(lowDia_type) ,
intent(in) :: subset
3229 PURE module subroutine setMC_EXP_ANI_XLD_OTH_RK2(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3231 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_OTH_RK2
3234 integer(IK) ,
intent(out) :: info
3235 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3236 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3237 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3238 type(transHerm_type),
intent(in) :: operation
3239 type(lowDia_type) ,
intent(in) :: subset
3244 PURE module subroutine setMC_EXP_ANI_XLD_OTH_RK1(mat, subset, info, chol, operation, ndim, roff, coff, rofc, cofc)
3245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3246 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ANI_XLD_OTH_RK1
3249 integer(IK) ,
intent(out) :: info
3250 integer(IK) ,
intent(in) :: ndim, roff, coff, rofc, cofc
3251 real(RKG) ,
intent(in) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3252 real(RKG) ,
intent(inout) ,
contiguous :: chol(
1 - rofc :,
1 - cofc :)
3253 type(transHerm_type),
intent(in) :: operation
3254 type(lowDia_type) ,
intent(in) :: subset
3277 PURE recursive module subroutine setMC_EXP_ABI_UXD_ONO_CK5(mat, subset, info, control, ndim, roff, coff, bdim)
3278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3279 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_UXD_ONO_CK5
3282 integer(IK) ,
intent(out) :: info
3283 integer(IK) ,
intent(in) :: ndim, roff, coff
3284 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3285 type(uppDia_type) ,
intent(in) :: subset
3286 type(iteration_type),
intent(in) :: control
3287 integer(IK) ,
intent(in) ,
optional :: bdim
3292 PURE recursive module subroutine setMC_EXP_ABI_UXD_ONO_CK4(mat, subset, info, control, ndim, roff, coff, bdim)
3293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3294 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_UXD_ONO_CK4
3297 integer(IK) ,
intent(out) :: info
3298 integer(IK) ,
intent(in) :: ndim, roff, coff
3299 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3300 type(uppDia_type) ,
intent(in) :: subset
3301 type(iteration_type),
intent(in) :: control
3302 integer(IK) ,
intent(in) ,
optional :: bdim
3307 PURE recursive module subroutine setMC_EXP_ABI_UXD_ONO_CK3(mat, subset, info, control, ndim, roff, coff, bdim)
3308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3309 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_UXD_ONO_CK3
3312 integer(IK) ,
intent(out) :: info
3313 integer(IK) ,
intent(in) :: ndim, roff, coff
3314 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3315 type(uppDia_type) ,
intent(in) :: subset
3316 type(iteration_type),
intent(in) :: control
3317 integer(IK) ,
intent(in) ,
optional :: bdim
3322 PURE recursive module subroutine setMC_EXP_ABI_UXD_ONO_CK2(mat, subset, info, control, ndim, roff, coff, bdim)
3323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3324 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_UXD_ONO_CK2
3327 integer(IK) ,
intent(out) :: info
3328 integer(IK) ,
intent(in) :: ndim, roff, coff
3329 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3330 type(uppDia_type) ,
intent(in) :: subset
3331 type(iteration_type),
intent(in) :: control
3332 integer(IK) ,
intent(in) ,
optional :: bdim
3337 PURE recursive module subroutine setMC_EXP_ABI_UXD_ONO_CK1(mat, subset, info, control, ndim, roff, coff, bdim)
3338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3339 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_UXD_ONO_CK1
3342 integer(IK) ,
intent(out) :: info
3343 integer(IK) ,
intent(in) :: ndim, roff, coff
3344 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3345 type(uppDia_type) ,
intent(in) :: subset
3346 type(iteration_type),
intent(in) :: control
3347 integer(IK) ,
intent(in) ,
optional :: bdim
3354 PURE recursive module subroutine setMC_EXP_ABI_UXD_ONO_RK5(mat, subset, info, control, ndim, roff, coff, bdim)
3355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3356 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_UXD_ONO_RK5
3359 integer(IK) ,
intent(out) :: info
3360 integer(IK) ,
intent(in) :: ndim, roff, coff
3361 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3362 type(uppDia_type) ,
intent(in) :: subset
3363 type(iteration_type),
intent(in) :: control
3364 integer(IK) ,
intent(in) ,
optional :: bdim
3369 PURE recursive module subroutine setMC_EXP_ABI_UXD_ONO_RK4(mat, subset, info, control, ndim, roff, coff, bdim)
3370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3371 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_UXD_ONO_RK4
3374 integer(IK) ,
intent(out) :: info
3375 integer(IK) ,
intent(in) :: ndim, roff, coff
3376 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3377 type(uppDia_type) ,
intent(in) :: subset
3378 type(iteration_type),
intent(in) :: control
3379 integer(IK) ,
intent(in) ,
optional :: bdim
3384 PURE recursive module subroutine setMC_EXP_ABI_UXD_ONO_RK3(mat, subset, info, control, ndim, roff, coff, bdim)
3385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3386 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_UXD_ONO_RK3
3389 integer(IK) ,
intent(out) :: info
3390 integer(IK) ,
intent(in) :: ndim, roff, coff
3391 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3392 type(uppDia_type) ,
intent(in) :: subset
3393 type(iteration_type),
intent(in) :: control
3394 integer(IK) ,
intent(in) ,
optional :: bdim
3399 PURE recursive module subroutine setMC_EXP_ABI_UXD_ONO_RK2(mat, subset, info, control, ndim, roff, coff, bdim)
3400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3401 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_UXD_ONO_RK2
3404 integer(IK) ,
intent(out) :: info
3405 integer(IK) ,
intent(in) :: ndim, roff, coff
3406 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3407 type(uppDia_type) ,
intent(in) :: subset
3408 type(iteration_type),
intent(in) :: control
3409 integer(IK) ,
intent(in) ,
optional :: bdim
3414 PURE recursive module subroutine setMC_EXP_ABI_UXD_ONO_RK1(mat, subset, info, control, ndim, roff, coff, bdim)
3415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3416 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_UXD_ONO_RK1
3419 integer(IK) ,
intent(out) :: info
3420 integer(IK) ,
intent(in) :: ndim, roff, coff
3421 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3422 type(uppDia_type) ,
intent(in) :: subset
3423 type(iteration_type),
intent(in) :: control
3424 integer(IK) ,
intent(in) ,
optional :: bdim
3437 PURE recursive module subroutine setMC_EXP_ABI_XLD_ONO_CK5(mat, subset, info, control, ndim, roff, coff, bdim)
3438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3439 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_XLD_ONO_CK5
3442 integer(IK) ,
intent(out) :: info
3443 integer(IK) ,
intent(in) :: ndim, roff, coff
3444 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3445 type(lowDia_type) ,
intent(in) :: subset
3446 type(iteration_type),
intent(in) :: control
3447 integer(IK) ,
intent(in) ,
optional :: bdim
3452 PURE recursive module subroutine setMC_EXP_ABI_XLD_ONO_CK4(mat, subset, info, control, ndim, roff, coff, bdim)
3453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3454 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_XLD_ONO_CK4
3457 integer(IK) ,
intent(out) :: info
3458 integer(IK) ,
intent(in) :: ndim, roff, coff
3459 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3460 type(lowDia_type) ,
intent(in) :: subset
3461 type(iteration_type),
intent(in) :: control
3462 integer(IK) ,
intent(in) ,
optional :: bdim
3467 PURE recursive module subroutine setMC_EXP_ABI_XLD_ONO_CK3(mat, subset, info, control, ndim, roff, coff, bdim)
3468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3469 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_XLD_ONO_CK3
3472 integer(IK) ,
intent(out) :: info
3473 integer(IK) ,
intent(in) :: ndim, roff, coff
3474 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3475 type(lowDia_type) ,
intent(in) :: subset
3476 type(iteration_type),
intent(in) :: control
3477 integer(IK) ,
intent(in) ,
optional :: bdim
3482 PURE recursive module subroutine setMC_EXP_ABI_XLD_ONO_CK2(mat, subset, info, control, ndim, roff, coff, bdim)
3483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3484 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_XLD_ONO_CK2
3487 integer(IK) ,
intent(out) :: info
3488 integer(IK) ,
intent(in) :: ndim, roff, coff
3489 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3490 type(lowDia_type) ,
intent(in) :: subset
3491 type(iteration_type),
intent(in) :: control
3492 integer(IK) ,
intent(in) ,
optional :: bdim
3497 PURE recursive module subroutine setMC_EXP_ABI_XLD_ONO_CK1(mat, subset, info, control, ndim, roff, coff, bdim)
3498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3499 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_XLD_ONO_CK1
3502 integer(IK) ,
intent(out) :: info
3503 integer(IK) ,
intent(in) :: ndim, roff, coff
3504 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3505 type(lowDia_type) ,
intent(in) :: subset
3506 type(iteration_type),
intent(in) :: control
3507 integer(IK) ,
intent(in) ,
optional :: bdim
3514 PURE recursive module subroutine setMC_EXP_ABI_XLD_ONO_RK5(mat, subset, info, control, ndim, roff, coff, bdim)
3515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3516 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_XLD_ONO_RK5
3519 integer(IK) ,
intent(out) :: info
3520 integer(IK) ,
intent(in) :: ndim, roff, coff
3521 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3522 type(lowDia_type) ,
intent(in) :: subset
3523 type(iteration_type),
intent(in) :: control
3524 integer(IK) ,
intent(in) ,
optional :: bdim
3529 PURE recursive module subroutine setMC_EXP_ABI_XLD_ONO_RK4(mat, subset, info, control, ndim, roff, coff, bdim)
3530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3531 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_XLD_ONO_RK4
3534 integer(IK) ,
intent(out) :: info
3535 integer(IK) ,
intent(in) :: ndim, roff, coff
3536 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3537 type(lowDia_type) ,
intent(in) :: subset
3538 type(iteration_type),
intent(in) :: control
3539 integer(IK) ,
intent(in) ,
optional :: bdim
3544 PURE recursive module subroutine setMC_EXP_ABI_XLD_ONO_RK3(mat, subset, info, control, ndim, roff, coff, bdim)
3545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3546 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_XLD_ONO_RK3
3549 integer(IK) ,
intent(out) :: info
3550 integer(IK) ,
intent(in) :: ndim, roff, coff
3551 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3552 type(lowDia_type) ,
intent(in) :: subset
3553 type(iteration_type),
intent(in) :: control
3554 integer(IK) ,
intent(in) ,
optional :: bdim
3559 PURE recursive module subroutine setMC_EXP_ABI_XLD_ONO_RK2(mat, subset, info, control, ndim, roff, coff, bdim)
3560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3561 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_XLD_ONO_RK2
3564 integer(IK) ,
intent(out) :: info
3565 integer(IK) ,
intent(in) :: ndim, roff, coff
3566 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3567 type(lowDia_type) ,
intent(in) :: subset
3568 type(iteration_type),
intent(in) :: control
3569 integer(IK) ,
intent(in) ,
optional :: bdim
3574 PURE recursive module subroutine setMC_EXP_ABI_XLD_ONO_RK1(mat, subset, info, control, ndim, roff, coff, bdim)
3575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3576 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABI_XLD_ONO_RK1
3579 integer(IK) ,
intent(out) :: info
3580 integer(IK) ,
intent(in) :: ndim, roff, coff
3581 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3582 type(lowDia_type) ,
intent(in) :: subset
3583 type(iteration_type),
intent(in) :: control
3584 integer(IK) ,
intent(in) ,
optional :: bdim
3607 PURE recursive module subroutine setMC_EXP_ABR_UXD_ONO_CK5(mat, subset, info, control, ndim, roff, coff)
3608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3609 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_UXD_ONO_CK5
3612 integer(IK) ,
intent(out) :: info
3613 integer(IK) ,
intent(in) :: ndim, roff, coff
3614 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3615 type(uppDia_type) ,
intent(in) :: subset
3616 type(recursion_type),
intent(in) :: control
3621 PURE recursive module subroutine setMC_EXP_ABR_UXD_ONO_CK4(mat, subset, info, control, ndim, roff, coff)
3622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3623 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_UXD_ONO_CK4
3626 integer(IK) ,
intent(out) :: info
3627 integer(IK) ,
intent(in) :: ndim, roff, coff
3628 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3629 type(uppDia_type) ,
intent(in) :: subset
3630 type(recursion_type),
intent(in) :: control
3635 PURE recursive module subroutine setMC_EXP_ABR_UXD_ONO_CK3(mat, subset, info, control, ndim, roff, coff)
3636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3637 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_UXD_ONO_CK3
3640 integer(IK) ,
intent(out) :: info
3641 integer(IK) ,
intent(in) :: ndim, roff, coff
3642 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3643 type(uppDia_type) ,
intent(in) :: subset
3644 type(recursion_type),
intent(in) :: control
3649 PURE recursive module subroutine setMC_EXP_ABR_UXD_ONO_CK2(mat, subset, info, control, ndim, roff, coff)
3650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3651 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_UXD_ONO_CK2
3654 integer(IK) ,
intent(out) :: info
3655 integer(IK) ,
intent(in) :: ndim, roff, coff
3656 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3657 type(uppDia_type) ,
intent(in) :: subset
3658 type(recursion_type),
intent(in) :: control
3663 PURE recursive module subroutine setMC_EXP_ABR_UXD_ONO_CK1(mat, subset, info, control, ndim, roff, coff)
3664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3665 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_UXD_ONO_CK1
3668 integer(IK) ,
intent(out) :: info
3669 integer(IK) ,
intent(in) :: ndim, roff, coff
3670 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3671 type(uppDia_type) ,
intent(in) :: subset
3672 type(recursion_type),
intent(in) :: control
3679 PURE recursive module subroutine setMC_EXP_ABR_UXD_ONO_RK5(mat, subset, info, control, ndim, roff, coff)
3680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3681 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_UXD_ONO_RK5
3684 integer(IK) ,
intent(out) :: info
3685 integer(IK) ,
intent(in) :: ndim, roff, coff
3686 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3687 type(uppDia_type) ,
intent(in) :: subset
3688 type(recursion_type),
intent(in) :: control
3693 PURE recursive module subroutine setMC_EXP_ABR_UXD_ONO_RK4(mat, subset, info, control, ndim, roff, coff)
3694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3695 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_UXD_ONO_RK4
3698 integer(IK) ,
intent(out) :: info
3699 integer(IK) ,
intent(in) :: ndim, roff, coff
3700 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3701 type(uppDia_type) ,
intent(in) :: subset
3702 type(recursion_type),
intent(in) :: control
3707 PURE recursive module subroutine setMC_EXP_ABR_UXD_ONO_RK3(mat, subset, info, control, ndim, roff, coff)
3708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3709 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_UXD_ONO_RK3
3712 integer(IK) ,
intent(out) :: info
3713 integer(IK) ,
intent(in) :: ndim, roff, coff
3714 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3715 type(uppDia_type) ,
intent(in) :: subset
3716 type(recursion_type),
intent(in) :: control
3721 PURE recursive module subroutine setMC_EXP_ABR_UXD_ONO_RK2(mat, subset, info, control, ndim, roff, coff)
3722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3723 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_UXD_ONO_RK2
3726 integer(IK) ,
intent(out) :: info
3727 integer(IK) ,
intent(in) :: ndim, roff, coff
3728 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3729 type(uppDia_type) ,
intent(in) :: subset
3730 type(recursion_type),
intent(in) :: control
3735 PURE recursive module subroutine setMC_EXP_ABR_UXD_ONO_RK1(mat, subset, info, control, ndim, roff, coff)
3736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3737 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_UXD_ONO_RK1
3740 integer(IK) ,
intent(out) :: info
3741 integer(IK) ,
intent(in) :: ndim, roff, coff
3742 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3743 type(uppDia_type) ,
intent(in) :: subset
3744 type(recursion_type),
intent(in) :: control
3757 PURE recursive module subroutine setMC_EXP_ABR_XLD_ONO_CK5(mat, subset, info, control, ndim, roff, coff)
3758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3759 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_XLD_ONO_CK5
3762 integer(IK) ,
intent(out) :: info
3763 integer(IK) ,
intent(in) :: ndim, roff, coff
3764 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3765 type(lowDia_type) ,
intent(in) :: subset
3766 type(recursion_type),
intent(in) :: control
3771 PURE recursive module subroutine setMC_EXP_ABR_XLD_ONO_CK4(mat, subset, info, control, ndim, roff, coff)
3772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3773 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_XLD_ONO_CK4
3776 integer(IK) ,
intent(out) :: info
3777 integer(IK) ,
intent(in) :: ndim, roff, coff
3778 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3779 type(lowDia_type) ,
intent(in) :: subset
3780 type(recursion_type),
intent(in) :: control
3785 PURE recursive module subroutine setMC_EXP_ABR_XLD_ONO_CK3(mat, subset, info, control, ndim, roff, coff)
3786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3787 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_XLD_ONO_CK3
3790 integer(IK) ,
intent(out) :: info
3791 integer(IK) ,
intent(in) :: ndim, roff, coff
3792 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3793 type(lowDia_type) ,
intent(in) :: subset
3794 type(recursion_type),
intent(in) :: control
3799 PURE recursive module subroutine setMC_EXP_ABR_XLD_ONO_CK2(mat, subset, info, control, ndim, roff, coff)
3800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3801 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_XLD_ONO_CK2
3804 integer(IK) ,
intent(out) :: info
3805 integer(IK) ,
intent(in) :: ndim, roff, coff
3806 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3807 type(lowDia_type) ,
intent(in) :: subset
3808 type(recursion_type),
intent(in) :: control
3813 PURE recursive module subroutine setMC_EXP_ABR_XLD_ONO_CK1(mat, subset, info, control, ndim, roff, coff)
3814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3815 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_XLD_ONO_CK1
3818 integer(IK) ,
intent(out) :: info
3819 integer(IK) ,
intent(in) :: ndim, roff, coff
3820 complex(CKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3821 type(lowDia_type) ,
intent(in) :: subset
3822 type(recursion_type),
intent(in) :: control
3829 PURE recursive module subroutine setMC_EXP_ABR_XLD_ONO_RK5(mat, subset, info, control, ndim, roff, coff)
3830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3831 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_XLD_ONO_RK5
3834 integer(IK) ,
intent(out) :: info
3835 integer(IK) ,
intent(in) :: ndim, roff, coff
3836 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3837 type(lowDia_type) ,
intent(in) :: subset
3838 type(recursion_type),
intent(in) :: control
3843 PURE recursive module subroutine setMC_EXP_ABR_XLD_ONO_RK4(mat, subset, info, control, ndim, roff, coff)
3844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3845 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_XLD_ONO_RK4
3848 integer(IK) ,
intent(out) :: info
3849 integer(IK) ,
intent(in) :: ndim, roff, coff
3850 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3851 type(lowDia_type) ,
intent(in) :: subset
3852 type(recursion_type),
intent(in) :: control
3857 PURE recursive module subroutine setMC_EXP_ABR_XLD_ONO_RK3(mat, subset, info, control, ndim, roff, coff)
3858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3859 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_XLD_ONO_RK3
3862 integer(IK) ,
intent(out) :: info
3863 integer(IK) ,
intent(in) :: ndim, roff, coff
3864 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3865 type(lowDia_type) ,
intent(in) :: subset
3866 type(recursion_type),
intent(in) :: control
3871 PURE recursive module subroutine setMC_EXP_ABR_XLD_ONO_RK2(mat, subset, info, control, ndim, roff, coff)
3872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3873 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_XLD_ONO_RK2
3876 integer(IK) ,
intent(out) :: info
3877 integer(IK) ,
intent(in) :: ndim, roff, coff
3878 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3879 type(lowDia_type) ,
intent(in) :: subset
3880 type(recursion_type),
intent(in) :: control
3885 PURE recursive module subroutine setMC_EXP_ABR_XLD_ONO_RK1(mat, subset, info, control, ndim, roff, coff)
3886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3887 !DEC$ ATTRIBUTES DLLEXPORT :: setMC_EXP_ABR_XLD_ONO_RK1
3890 integer(IK) ,
intent(out) :: info
3891 integer(IK) ,
intent(in) :: ndim, roff, coff
3892 real(RKG) ,
intent(inout) ,
contiguous :: mat(
1 - roff :,
1 - coff :)
3893 type(lowDia_type) ,
intent(in) :: subset
3894 type(recursion_type),
intent(in) :: control
Generate and return the upper or the lower Cholesky factorization of the input symmetric positive-def...
[LEGACY code] Return the lower-triangle of the Cholesky factorization of the symmetric positive-def...
Compute and return the lower/upper-triangle of the Cholesky factorization of the input Symmetric/Her...
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 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 ...
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 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 computing the Cholesky factorization of po...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(rdpack_type), parameter rdpack
This is an object instance of class rdpack_type that is exclusively used to signify Rectangular Spars...
type(lfpack_type), parameter lfpack
This is an object instance of class lfpack_type that is exclusively used to signify Linear Full conti...
type(rfpack_type), parameter rfpack
This is an object instance of class rfpack_type that is exclusively used to signify Rectangular Full ...
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...
type(dia_type), parameter dia
This is a scalar parameter object of type dia_type that is exclusively used to request unit (or Ident...
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 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 signify Linear Full contiguou...
This is a concrete derived type whose instances are exclusively used to signify Rectangular Sparse (o...
This is a concrete derived type whose instances are exclusively used to signify Rectangular Full cont...
This is a concrete derived type whose instances are exclusively used to request lower-diagonal triang...
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)...
This is a derived type for constructing concrete derived types to distinguish various procedure signa...