158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
159 !DIR$ ATTRIBUTES DLLEXPORT ::
gram
239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
240 !DIR$ ATTRIBUTES DLLEXPORT ::
dvine
284 integer(IK) :: info
= 0_IK
332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
333 !DIR$ ATTRIBUTES DLLEXPORT ::
onion
403 impure module function getCovRandGRNGDS0_CK5(mold, ndim, scale)
result(rand)
404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
405 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS0_CK5
408 integer(IK) ,
intent(in) :: ndim
409 complex(CKG) ,
intent(in) :: mold
410 real(CKG) ,
intent(in) ,
optional :: scale
411 complex(CKG) :: rand(ndim, ndim)
416 impure module function getCovRandGRNGDS0_CK4(mold, ndim, scale)
result(rand)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS0_CK4
421 integer(IK) ,
intent(in) :: ndim
422 complex(CKG) ,
intent(in) :: mold
423 real(CKG) ,
intent(in) ,
optional :: scale
424 complex(CKG) :: rand(ndim, ndim)
429 impure module function getCovRandGRNGDS0_CK3(mold, ndim, scale)
result(rand)
430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
431 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS0_CK3
434 integer(IK) ,
intent(in) :: ndim
435 complex(CKG) ,
intent(in) :: mold
436 real(CKG) ,
intent(in) ,
optional :: scale
437 complex(CKG) :: rand(ndim, ndim)
442 impure module function getCovRandGRNGDS0_CK2(mold, ndim, scale)
result(rand)
443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
444 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS0_CK2
447 integer(IK) ,
intent(in) :: ndim
448 complex(CKG) ,
intent(in) :: mold
449 real(CKG) ,
intent(in) ,
optional :: scale
450 complex(CKG) :: rand(ndim, ndim)
455 impure module function getCovRandGRNGDS0_CK1(mold, ndim, scale)
result(rand)
456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
457 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS0_CK1
460 integer(IK) ,
intent(in) :: ndim
461 complex(CKG) ,
intent(in) :: mold
462 real(CKG) ,
intent(in) ,
optional :: scale
463 complex(CKG) :: rand(ndim, ndim)
470 impure module function getCovRandGRNGDS0_RK5(mold, ndim, scale)
result(rand)
471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
472 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS0_RK5
475 integer(IK) ,
intent(in) :: ndim
476 real(RKG) ,
intent(in) :: mold
477 real(RKG) ,
intent(in) ,
optional :: scale
478 real(RKG) :: rand(ndim, ndim)
483 impure module function getCovRandGRNGDS0_RK4(mold, ndim, scale)
result(rand)
484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
485 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS0_RK4
488 integer(IK) ,
intent(in) :: ndim
489 real(RKG) ,
intent(in) :: mold
490 real(RKG) ,
intent(in) ,
optional :: scale
491 real(RKG) :: rand(ndim, ndim)
496 impure module function getCovRandGRNGDS0_RK3(mold, ndim, scale)
result(rand)
497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
498 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS0_RK3
501 integer(IK) ,
intent(in) :: ndim
502 real(RKG) ,
intent(in) :: mold
503 real(RKG) ,
intent(in) ,
optional :: scale
504 real(RKG) :: rand(ndim, ndim)
509 impure module function getCovRandGRNGDS0_RK2(mold, ndim, scale)
result(rand)
510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
511 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS0_RK2
514 integer(IK) ,
intent(in) :: ndim
515 real(RKG) ,
intent(in) :: mold
516 real(RKG) ,
intent(in) ,
optional :: scale
517 real(RKG) :: rand(ndim, ndim)
522 impure module function getCovRandGRNGDS0_RK1(mold, ndim, scale)
result(rand)
523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
524 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS0_RK1
527 integer(IK) ,
intent(in) :: ndim
528 real(RKG) ,
intent(in) :: mold
529 real(RKG) ,
intent(in) ,
optional :: scale
530 real(RKG) :: rand(ndim, ndim)
543 impure module function getCovRandGRNGDS1_CK5(mold, scale)
result(rand)
544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
545 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS1_CK5
548 complex(CKG) ,
intent(in) :: mold
549 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
550 complex(CKG) :: rand(
size(scale,
1, IK),
size(scale,
1, IK))
555 impure module function getCovRandGRNGDS1_CK4(mold, scale)
result(rand)
556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
557 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS1_CK4
560 complex(CKG) ,
intent(in) :: mold
561 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
562 complex(CKG) :: rand(
size(scale,
1, IK),
size(scale,
1, IK))
567 impure module function getCovRandGRNGDS1_CK3(mold, scale)
result(rand)
568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
569 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS1_CK3
572 complex(CKG) ,
intent(in) :: mold
573 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
574 complex(CKG) :: rand(
size(scale,
1, IK),
size(scale,
1, IK))
579 impure module function getCovRandGRNGDS1_CK2(mold, scale)
result(rand)
580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
581 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS1_CK2
584 complex(CKG) ,
intent(in) :: mold
585 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
586 complex(CKG) :: rand(
size(scale,
1, IK),
size(scale,
1, IK))
591 impure module function getCovRandGRNGDS1_CK1(mold, scale)
result(rand)
592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
593 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS1_CK1
596 complex(CKG) ,
intent(in) :: mold
597 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
598 complex(CKG) :: rand(
size(scale,
1, IK),
size(scale,
1, IK))
605 impure module function getCovRandGRNGDS1_RK5(mold, scale)
result(rand)
606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
607 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS1_RK5
610 real(RKG) ,
intent(in) :: mold
611 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
612 real(RKG) :: rand(
size(scale,
1, IK),
size(scale,
1, IK))
617 impure module function getCovRandGRNGDS1_RK4(mold, scale)
result(rand)
618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
619 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS1_RK4
622 real(RKG) ,
intent(in) :: mold
623 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
624 real(RKG) :: rand(
size(scale,
1, IK),
size(scale,
1, IK))
629 impure module function getCovRandGRNGDS1_RK3(mold, scale)
result(rand)
630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
631 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS1_RK3
634 real(RKG) ,
intent(in) :: mold
635 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
636 real(RKG) :: rand(
size(scale,
1, IK),
size(scale,
1, IK))
641 impure module function getCovRandGRNGDS1_RK2(mold, scale)
result(rand)
642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
643 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS1_RK2
646 real(RKG) ,
intent(in) :: mold
647 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
648 real(RKG) :: rand(
size(scale,
1, IK),
size(scale,
1, IK))
653 impure module function getCovRandGRNGDS1_RK1(mold, scale)
result(rand)
654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
655 !DEC$ ATTRIBUTES DLLEXPORT :: getCovRandGRNGDS1_RK1
658 real(RKG) ,
intent(in) :: mold
659 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
660 real(RKG) :: rand(
size(scale,
1, IK),
size(scale,
1, IK))
796 module subroutine setCovRandGRNGFSD_RK5(rng, rand)
797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
798 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFSD_RK5
801 type(rngf_type) ,
intent(in) :: rng
802 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
807 module subroutine setCovRandGRNGFSD_RK4(rng, rand)
808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
809 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFSD_RK4
812 type(rngf_type) ,
intent(in) :: rng
813 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
818 module subroutine setCovRandGRNGFSD_RK3(rng, rand)
819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
820 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFSD_RK3
823 type(rngf_type) ,
intent(in) :: rng
824 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
829 module subroutine setCovRandGRNGFSD_RK2(rng, rand)
830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
831 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFSD_RK2
834 type(rngf_type) ,
intent(in) :: rng
835 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
840 module subroutine setCovRandGRNGFSD_RK1(rng, rand)
841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
842 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFSD_RK1
845 type(rngf_type) ,
intent(in) :: rng
846 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
853 module subroutine setCovRandGRNGFS0_RK5(rng, rand, scale)
854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
855 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS0_RK5
858 type(rngf_type) ,
intent(in) :: rng
859 real(RKG) ,
intent(in) :: scale
860 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
865 module subroutine setCovRandGRNGFS0_RK4(rng, rand, scale)
866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
867 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS0_RK4
870 type(rngf_type) ,
intent(in) :: rng
871 real(RKG) ,
intent(in) :: scale
872 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
877 module subroutine setCovRandGRNGFS0_RK3(rng, rand, scale)
878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
879 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS0_RK3
882 type(rngf_type) ,
intent(in) :: rng
883 real(RKG) ,
intent(in) :: scale
884 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
889 module subroutine setCovRandGRNGFS0_RK2(rng, rand, scale)
890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
891 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS0_RK2
894 type(rngf_type) ,
intent(in) :: rng
895 real(RKG) ,
intent(in) :: scale
896 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
901 module subroutine setCovRandGRNGFS0_RK1(rng, rand, scale)
902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
903 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS0_RK1
906 type(rngf_type) ,
intent(in) :: rng
907 real(RKG) ,
intent(in) :: scale
908 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
915 module subroutine setCovRandGRNGFS1_RK5(rng, rand, scale)
916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
917 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS1_RK5
920 type(rngf_type) ,
intent(in) :: rng
921 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
922 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
927 module subroutine setCovRandGRNGFS1_RK4(rng, rand, scale)
928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
929 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS1_RK4
932 type(rngf_type) ,
intent(in) :: rng
933 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
934 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
939 module subroutine setCovRandGRNGFS1_RK3(rng, rand, scale)
940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
941 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS1_RK3
944 type(rngf_type) ,
intent(in) :: rng
945 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
946 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
951 module subroutine setCovRandGRNGFS1_RK2(rng, rand, scale)
952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
953 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS1_RK2
956 type(rngf_type) ,
intent(in) :: rng
957 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
958 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
963 module subroutine setCovRandGRNGFS1_RK1(rng, rand, scale)
964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
965 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS1_RK1
968 type(rngf_type) ,
intent(in) :: rng
969 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
970 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
983 PURE module subroutine setCovRandGRNGXSD_RK5(rng, rand)
984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
985 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXSD_RK5
988 type(xoshiro256ssw_type),
intent(inout) :: rng
989 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
994 PURE module subroutine setCovRandGRNGXSD_RK4(rng, rand)
995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
996 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXSD_RK4
999 type(xoshiro256ssw_type),
intent(inout) :: rng
1000 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1005 PURE module subroutine setCovRandGRNGXSD_RK3(rng, rand)
1006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1007 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXSD_RK3
1010 type(xoshiro256ssw_type),
intent(inout) :: rng
1011 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1016 PURE module subroutine setCovRandGRNGXSD_RK2(rng, rand)
1017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1018 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXSD_RK2
1021 type(xoshiro256ssw_type),
intent(inout) :: rng
1022 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1027 PURE module subroutine setCovRandGRNGXSD_RK1(rng, rand)
1028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1029 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXSD_RK1
1032 type(xoshiro256ssw_type),
intent(inout) :: rng
1033 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1040 PURE module subroutine setCovRandGRNGXS0_RK5(rng, rand, scale)
1041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1042 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS0_RK5
1045 type(xoshiro256ssw_type),
intent(inout) :: rng
1046 real(RKG) ,
intent(in) :: scale
1047 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1052 PURE module subroutine setCovRandGRNGXS0_RK4(rng, rand, scale)
1053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1054 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS0_RK4
1057 type(xoshiro256ssw_type),
intent(inout) :: rng
1058 real(RKG) ,
intent(in) :: scale
1059 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1064 PURE module subroutine setCovRandGRNGXS0_RK3(rng, rand, scale)
1065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1066 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS0_RK3
1069 type(xoshiro256ssw_type),
intent(inout) :: rng
1070 real(RKG) ,
intent(in) :: scale
1071 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1076 PURE module subroutine setCovRandGRNGXS0_RK2(rng, rand, scale)
1077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1078 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS0_RK2
1081 type(xoshiro256ssw_type),
intent(inout) :: rng
1082 real(RKG) ,
intent(in) :: scale
1083 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1088 PURE module subroutine setCovRandGRNGXS0_RK1(rng, rand, scale)
1089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1090 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS0_RK1
1093 type(xoshiro256ssw_type),
intent(inout) :: rng
1094 real(RKG) ,
intent(in) :: scale
1095 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1102 PURE module subroutine setCovRandGRNGXS1_RK5(rng, rand, scale)
1103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1104 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS1_RK5
1107 type(xoshiro256ssw_type),
intent(inout) :: rng
1108 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1109 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1114 PURE module subroutine setCovRandGRNGXS1_RK4(rng, rand, scale)
1115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1116 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS1_RK4
1119 type(xoshiro256ssw_type),
intent(inout) :: rng
1120 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1121 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1126 PURE module subroutine setCovRandGRNGXS1_RK3(rng, rand, scale)
1127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1128 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS1_RK3
1131 type(xoshiro256ssw_type),
intent(inout) :: rng
1132 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1133 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1138 PURE module subroutine setCovRandGRNGXS1_RK2(rng, rand, scale)
1139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1140 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS1_RK2
1143 type(xoshiro256ssw_type),
intent(inout) :: rng
1144 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1145 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1150 PURE module subroutine setCovRandGRNGXS1_RK1(rng, rand, scale)
1151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1152 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS1_RK1
1155 type(xoshiro256ssw_type),
intent(inout) :: rng
1156 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1157 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1180 module subroutine setCovRandGRNGFSD_CK5(rng, rand)
1181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1182 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFSD_CK5
1185 type(rngf_type) ,
intent(in) :: rng
1186 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1191 module subroutine setCovRandGRNGFSD_CK4(rng, rand)
1192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1193 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFSD_CK4
1196 type(rngf_type) ,
intent(in) :: rng
1197 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1202 module subroutine setCovRandGRNGFSD_CK3(rng, rand)
1203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1204 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFSD_CK3
1207 type(rngf_type) ,
intent(in) :: rng
1208 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1213 module subroutine setCovRandGRNGFSD_CK2(rng, rand)
1214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1215 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFSD_CK2
1218 type(rngf_type) ,
intent(in) :: rng
1219 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1224 module subroutine setCovRandGRNGFSD_CK1(rng, rand)
1225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1226 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFSD_CK1
1229 type(rngf_type) ,
intent(in) :: rng
1230 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1237 module subroutine setCovRandGRNGFS0_CK5(rng, rand, scale)
1238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1239 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS0_CK5
1242 type(rngf_type) ,
intent(in) :: rng
1243 real(CKG) ,
intent(in) :: scale
1244 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1249 module subroutine setCovRandGRNGFS0_CK4(rng, rand, scale)
1250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1251 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS0_CK4
1254 type(rngf_type) ,
intent(in) :: rng
1255 real(CKG) ,
intent(in) :: scale
1256 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1261 module subroutine setCovRandGRNGFS0_CK3(rng, rand, scale)
1262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1263 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS0_CK3
1266 type(rngf_type) ,
intent(in) :: rng
1267 real(CKG) ,
intent(in) :: scale
1268 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1273 module subroutine setCovRandGRNGFS0_CK2(rng, rand, scale)
1274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1275 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS0_CK2
1278 type(rngf_type) ,
intent(in) :: rng
1279 real(CKG) ,
intent(in) :: scale
1280 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1285 module subroutine setCovRandGRNGFS0_CK1(rng, rand, scale)
1286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1287 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS0_CK1
1290 type(rngf_type) ,
intent(in) :: rng
1291 real(CKG) ,
intent(in) :: scale
1292 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1299 module subroutine setCovRandGRNGFS1_CK5(rng, rand, scale)
1300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1301 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS1_CK5
1304 type(rngf_type) ,
intent(in) :: rng
1305 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1306 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1311 module subroutine setCovRandGRNGFS1_CK4(rng, rand, scale)
1312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1313 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS1_CK4
1316 type(rngf_type) ,
intent(in) :: rng
1317 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1318 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1323 module subroutine setCovRandGRNGFS1_CK3(rng, rand, scale)
1324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1325 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS1_CK3
1328 type(rngf_type) ,
intent(in) :: rng
1329 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1330 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1335 module subroutine setCovRandGRNGFS1_CK2(rng, rand, scale)
1336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1337 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS1_CK2
1340 type(rngf_type) ,
intent(in) :: rng
1341 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1342 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1347 module subroutine setCovRandGRNGFS1_CK1(rng, rand, scale)
1348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1349 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGFS1_CK1
1352 type(rngf_type) ,
intent(in) :: rng
1353 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1354 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1367 PURE module subroutine setCovRandGRNGXSD_CK5(rng, rand)
1368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1369 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXSD_CK5
1372 type(xoshiro256ssw_type),
intent(inout) :: rng
1373 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1378 PURE module subroutine setCovRandGRNGXSD_CK4(rng, rand)
1379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1380 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXSD_CK4
1383 type(xoshiro256ssw_type),
intent(inout) :: rng
1384 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1389 PURE module subroutine setCovRandGRNGXSD_CK3(rng, rand)
1390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1391 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXSD_CK3
1394 type(xoshiro256ssw_type),
intent(inout) :: rng
1395 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1400 PURE module subroutine setCovRandGRNGXSD_CK2(rng, rand)
1401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1402 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXSD_CK2
1405 type(xoshiro256ssw_type),
intent(inout) :: rng
1406 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1411 PURE module subroutine setCovRandGRNGXSD_CK1(rng, rand)
1412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1413 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXSD_CK1
1416 type(xoshiro256ssw_type),
intent(inout) :: rng
1417 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1424 PURE module subroutine setCovRandGRNGXS0_CK5(rng, rand, scale)
1425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1426 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS0_CK5
1429 type(xoshiro256ssw_type),
intent(inout) :: rng
1430 real(CKG) ,
intent(in) :: scale
1431 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1436 PURE module subroutine setCovRandGRNGXS0_CK4(rng, rand, scale)
1437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1438 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS0_CK4
1441 type(xoshiro256ssw_type),
intent(inout) :: rng
1442 real(CKG) ,
intent(in) :: scale
1443 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1448 PURE module subroutine setCovRandGRNGXS0_CK3(rng, rand, scale)
1449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1450 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS0_CK3
1453 type(xoshiro256ssw_type),
intent(inout) :: rng
1454 real(CKG) ,
intent(in) :: scale
1455 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1460 PURE module subroutine setCovRandGRNGXS0_CK2(rng, rand, scale)
1461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1462 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS0_CK2
1465 type(xoshiro256ssw_type),
intent(inout) :: rng
1466 real(CKG) ,
intent(in) :: scale
1467 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1472 PURE module subroutine setCovRandGRNGXS0_CK1(rng, rand, scale)
1473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1474 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS0_CK1
1477 type(xoshiro256ssw_type),
intent(inout) :: rng
1478 real(CKG) ,
intent(in) :: scale
1479 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1486 PURE module subroutine setCovRandGRNGXS1_CK5(rng, rand, scale)
1487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1488 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS1_CK5
1491 type(xoshiro256ssw_type),
intent(inout) :: rng
1492 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1493 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1498 PURE module subroutine setCovRandGRNGXS1_CK4(rng, rand, scale)
1499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1500 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS1_CK4
1503 type(xoshiro256ssw_type),
intent(inout) :: rng
1504 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1505 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1510 PURE module subroutine setCovRandGRNGXS1_CK3(rng, rand, scale)
1511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1512 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS1_CK3
1515 type(xoshiro256ssw_type),
intent(inout) :: rng
1516 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1517 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1522 PURE module subroutine setCovRandGRNGXS1_CK2(rng, rand, scale)
1523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1524 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS1_CK2
1527 type(xoshiro256ssw_type),
intent(inout) :: rng
1528 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1529 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1534 PURE module subroutine setCovRandGRNGXS1_CK1(rng, rand, scale)
1535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1536 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandGRNGXS1_CK1
1539 type(xoshiro256ssw_type),
intent(inout) :: rng
1540 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1541 complex(CKG) ,
intent(out) ,
contiguous :: rand(:,:)
1564 module subroutine setCovRandDRNGFSD_RK5(rng, rand, method, eta)
1565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1566 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFSD_RK5
1569 type(dvine_type) ,
intent(in) :: method
1570 type(rngf_type) ,
intent(in) :: rng
1571 real(RKG) ,
intent(in) :: eta
1572 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1577 module subroutine setCovRandDRNGFSD_RK4(rng, rand, method, eta)
1578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1579 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFSD_RK4
1582 type(dvine_type) ,
intent(in) :: method
1583 type(rngf_type) ,
intent(in) :: rng
1584 real(RKG) ,
intent(in) :: eta
1585 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1590 module subroutine setCovRandDRNGFSD_RK3(rng, rand, method, eta)
1591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1592 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFSD_RK3
1595 type(dvine_type) ,
intent(in) :: method
1596 type(rngf_type) ,
intent(in) :: rng
1597 real(RKG) ,
intent(in) :: eta
1598 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1603 module subroutine setCovRandDRNGFSD_RK2(rng, rand, method, eta)
1604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1605 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFSD_RK2
1608 type(dvine_type) ,
intent(in) :: method
1609 type(rngf_type) ,
intent(in) :: rng
1610 real(RKG) ,
intent(in) :: eta
1611 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1616 module subroutine setCovRandDRNGFSD_RK1(rng, rand, method, eta)
1617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1618 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFSD_RK1
1621 type(dvine_type) ,
intent(in) :: method
1622 type(rngf_type) ,
intent(in) :: rng
1623 real(RKG) ,
intent(in) :: eta
1624 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1631 module subroutine setCovRandDRNGFS0_RK5(rng, rand, method, eta, scale)
1632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1633 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFS0_RK5
1636 type(dvine_type) ,
intent(in) :: method
1637 type(rngf_type) ,
intent(in) :: rng
1638 real(RKG) ,
intent(in) :: eta
1639 real(RKG) ,
intent(in) :: scale
1640 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1645 module subroutine setCovRandDRNGFS0_RK4(rng, rand, method, eta, scale)
1646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1647 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFS0_RK4
1650 type(dvine_type) ,
intent(in) :: method
1651 type(rngf_type) ,
intent(in) :: rng
1652 real(RKG) ,
intent(in) :: eta
1653 real(RKG) ,
intent(in) :: scale
1654 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1659 module subroutine setCovRandDRNGFS0_RK3(rng, rand, method, eta, scale)
1660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1661 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFS0_RK3
1664 type(dvine_type) ,
intent(in) :: method
1665 type(rngf_type) ,
intent(in) :: rng
1666 real(RKG) ,
intent(in) :: eta
1667 real(RKG) ,
intent(in) :: scale
1668 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1673 module subroutine setCovRandDRNGFS0_RK2(rng, rand, method, eta, scale)
1674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1675 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFS0_RK2
1678 type(dvine_type) ,
intent(in) :: method
1679 type(rngf_type) ,
intent(in) :: rng
1680 real(RKG) ,
intent(in) :: eta
1681 real(RKG) ,
intent(in) :: scale
1682 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1687 module subroutine setCovRandDRNGFS0_RK1(rng, rand, method, eta, scale)
1688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1689 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFS0_RK1
1692 type(dvine_type) ,
intent(in) :: method
1693 type(rngf_type) ,
intent(in) :: rng
1694 real(RKG) ,
intent(in) :: eta
1695 real(RKG) ,
intent(in) :: scale
1696 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1703 module subroutine setCovRandDRNGFS1_RK5(rng, rand, method, eta, scale)
1704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1705 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFS1_RK5
1708 type(dvine_type) ,
intent(in) :: method
1709 type(rngf_type) ,
intent(in) :: rng
1710 real(RKG) ,
intent(in) :: eta
1711 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1712 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1717 module subroutine setCovRandDRNGFS1_RK4(rng, rand, method, eta, scale)
1718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1719 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFS1_RK4
1722 type(dvine_type) ,
intent(in) :: method
1723 type(rngf_type) ,
intent(in) :: rng
1724 real(RKG) ,
intent(in) :: eta
1725 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1726 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1731 module subroutine setCovRandDRNGFS1_RK3(rng, rand, method, eta, scale)
1732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1733 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFS1_RK3
1736 type(dvine_type) ,
intent(in) :: method
1737 type(rngf_type) ,
intent(in) :: rng
1738 real(RKG) ,
intent(in) :: eta
1739 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1740 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1745 module subroutine setCovRandDRNGFS1_RK2(rng, rand, method, eta, scale)
1746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1747 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFS1_RK2
1750 type(dvine_type) ,
intent(in) :: method
1751 type(rngf_type) ,
intent(in) :: rng
1752 real(RKG) ,
intent(in) :: eta
1753 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1754 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1759 module subroutine setCovRandDRNGFS1_RK1(rng, rand, method, eta, scale)
1760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1761 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGFS1_RK1
1764 type(dvine_type) ,
intent(in) :: method
1765 type(rngf_type) ,
intent(in) :: rng
1766 real(RKG) ,
intent(in) :: eta
1767 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1768 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1781 PURE module subroutine setCovRandDRNGXSD_RK5(rng, rand, method, eta)
1782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1783 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXSD_RK5
1786 type(dvine_type) ,
intent(in) :: method
1787 type(xoshiro256ssw_type),
intent(inout) :: rng
1788 real(RKG) ,
intent(in) :: eta
1789 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1794 PURE module subroutine setCovRandDRNGXSD_RK4(rng, rand, method, eta)
1795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1796 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXSD_RK4
1799 type(dvine_type) ,
intent(in) :: method
1800 type(xoshiro256ssw_type),
intent(inout) :: rng
1801 real(RKG) ,
intent(in) :: eta
1802 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1807 PURE module subroutine setCovRandDRNGXSD_RK3(rng, rand, method, eta)
1808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1809 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXSD_RK3
1812 type(dvine_type) ,
intent(in) :: method
1813 type(xoshiro256ssw_type),
intent(inout) :: rng
1814 real(RKG) ,
intent(in) :: eta
1815 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1820 PURE module subroutine setCovRandDRNGXSD_RK2(rng, rand, method, eta)
1821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1822 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXSD_RK2
1825 type(dvine_type) ,
intent(in) :: method
1826 type(xoshiro256ssw_type),
intent(inout) :: rng
1827 real(RKG) ,
intent(in) :: eta
1828 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1833 PURE module subroutine setCovRandDRNGXSD_RK1(rng, rand, method, eta)
1834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1835 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXSD_RK1
1838 type(dvine_type) ,
intent(in) :: method
1839 type(xoshiro256ssw_type),
intent(inout) :: rng
1840 real(RKG) ,
intent(in) :: eta
1841 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1848 PURE module subroutine setCovRandDRNGXS0_RK5(rng, rand, method, eta, scale)
1849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1850 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXS0_RK5
1853 type(dvine_type) ,
intent(in) :: method
1854 type(xoshiro256ssw_type),
intent(inout) :: rng
1855 real(RKG) ,
intent(in) :: eta
1856 real(RKG) ,
intent(in) :: scale
1857 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1862 PURE module subroutine setCovRandDRNGXS0_RK4(rng, rand, method, eta, scale)
1863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1864 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXS0_RK4
1867 type(dvine_type) ,
intent(in) :: method
1868 type(xoshiro256ssw_type),
intent(inout) :: rng
1869 real(RKG) ,
intent(in) :: eta
1870 real(RKG) ,
intent(in) :: scale
1871 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1876 PURE module subroutine setCovRandDRNGXS0_RK3(rng, rand, method, eta, scale)
1877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1878 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXS0_RK3
1881 type(dvine_type) ,
intent(in) :: method
1882 type(xoshiro256ssw_type),
intent(inout) :: rng
1883 real(RKG) ,
intent(in) :: eta
1884 real(RKG) ,
intent(in) :: scale
1885 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1890 PURE module subroutine setCovRandDRNGXS0_RK2(rng, rand, method, eta, scale)
1891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1892 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXS0_RK2
1895 type(dvine_type) ,
intent(in) :: method
1896 type(xoshiro256ssw_type),
intent(inout) :: rng
1897 real(RKG) ,
intent(in) :: eta
1898 real(RKG) ,
intent(in) :: scale
1899 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1904 PURE module subroutine setCovRandDRNGXS0_RK1(rng, rand, method, eta, scale)
1905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1906 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXS0_RK1
1909 type(dvine_type) ,
intent(in) :: method
1910 type(xoshiro256ssw_type),
intent(inout) :: rng
1911 real(RKG) ,
intent(in) :: eta
1912 real(RKG) ,
intent(in) :: scale
1913 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1920 PURE module subroutine setCovRandDRNGXS1_RK5(rng, rand, method, eta, scale)
1921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1922 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXS1_RK5
1925 type(dvine_type) ,
intent(in) :: method
1926 type(xoshiro256ssw_type),
intent(inout) :: rng
1927 real(RKG) ,
intent(in) :: eta
1928 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1929 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1934 PURE module subroutine setCovRandDRNGXS1_RK4(rng, rand, method, eta, scale)
1935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1936 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXS1_RK4
1939 type(dvine_type) ,
intent(in) :: method
1940 type(xoshiro256ssw_type),
intent(inout) :: rng
1941 real(RKG) ,
intent(in) :: eta
1942 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1943 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1948 PURE module subroutine setCovRandDRNGXS1_RK3(rng, rand, method, eta, scale)
1949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1950 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXS1_RK3
1953 type(dvine_type) ,
intent(in) :: method
1954 type(xoshiro256ssw_type),
intent(inout) :: rng
1955 real(RKG) ,
intent(in) :: eta
1956 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1957 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1962 PURE module subroutine setCovRandDRNGXS1_RK2(rng, rand, method, eta, scale)
1963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1964 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXS1_RK2
1967 type(dvine_type) ,
intent(in) :: method
1968 type(xoshiro256ssw_type),
intent(inout) :: rng
1969 real(RKG) ,
intent(in) :: eta
1970 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1971 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
1976 PURE module subroutine setCovRandDRNGXS1_RK1(rng, rand, method, eta, scale)
1977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1978 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandDRNGXS1_RK1
1981 type(dvine_type) ,
intent(in) :: method
1982 type(xoshiro256ssw_type),
intent(inout) :: rng
1983 real(RKG) ,
intent(in) :: eta
1984 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1985 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2008 module subroutine setCovRandORNGFSD_RK5(rng, rand, method, eta)
2009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2010 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFSD_RK5
2013 type(onion_type) ,
intent(out) :: method
2014 type(rngf_type) ,
intent(in) :: rng
2015 real(RKG) ,
intent(in) :: eta
2016 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2021 module subroutine setCovRandORNGFSD_RK4(rng, rand, method, eta)
2022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2023 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFSD_RK4
2026 type(onion_type) ,
intent(out) :: method
2027 type(rngf_type) ,
intent(in) :: rng
2028 real(RKG) ,
intent(in) :: eta
2029 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2034 module subroutine setCovRandORNGFSD_RK3(rng, rand, method, eta)
2035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2036 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFSD_RK3
2039 type(onion_type) ,
intent(out) :: method
2040 type(rngf_type) ,
intent(in) :: rng
2041 real(RKG) ,
intent(in) :: eta
2042 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2047 module subroutine setCovRandORNGFSD_RK2(rng, rand, method, eta)
2048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2049 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFSD_RK2
2052 type(onion_type) ,
intent(out) :: method
2053 type(rngf_type) ,
intent(in) :: rng
2054 real(RKG) ,
intent(in) :: eta
2055 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2060 module subroutine setCovRandORNGFSD_RK1(rng, rand, method, eta)
2061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2062 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFSD_RK1
2065 type(onion_type) ,
intent(out) :: method
2066 type(rngf_type) ,
intent(in) :: rng
2067 real(RKG) ,
intent(in) :: eta
2068 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2075 module subroutine setCovRandORNGFS0_RK5(rng, rand, method, eta, scale)
2076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2077 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFS0_RK5
2080 type(onion_type) ,
intent(out) :: method
2081 type(rngf_type) ,
intent(in) :: rng
2082 real(RKG) ,
intent(in) :: eta
2083 real(RKG) ,
intent(in) :: scale
2084 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2089 module subroutine setCovRandORNGFS0_RK4(rng, rand, method, eta, scale)
2090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2091 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFS0_RK4
2094 type(onion_type) ,
intent(out) :: method
2095 type(rngf_type) ,
intent(in) :: rng
2096 real(RKG) ,
intent(in) :: eta
2097 real(RKG) ,
intent(in) :: scale
2098 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2103 module subroutine setCovRandORNGFS0_RK3(rng, rand, method, eta, scale)
2104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2105 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFS0_RK3
2108 type(onion_type) ,
intent(out) :: method
2109 type(rngf_type) ,
intent(in) :: rng
2110 real(RKG) ,
intent(in) :: eta
2111 real(RKG) ,
intent(in) :: scale
2112 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2117 module subroutine setCovRandORNGFS0_RK2(rng, rand, method, eta, scale)
2118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2119 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFS0_RK2
2122 type(onion_type) ,
intent(out) :: method
2123 type(rngf_type) ,
intent(in) :: rng
2124 real(RKG) ,
intent(in) :: eta
2125 real(RKG) ,
intent(in) :: scale
2126 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2131 module subroutine setCovRandORNGFS0_RK1(rng, rand, method, eta, scale)
2132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2133 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFS0_RK1
2136 type(onion_type) ,
intent(out) :: method
2137 type(rngf_type) ,
intent(in) :: rng
2138 real(RKG) ,
intent(in) :: eta
2139 real(RKG) ,
intent(in) :: scale
2140 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2147 module subroutine setCovRandORNGFS1_RK5(rng, rand, method, eta, scale)
2148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2149 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFS1_RK5
2152 type(onion_type) ,
intent(out) :: method
2153 type(rngf_type) ,
intent(in) :: rng
2154 real(RKG) ,
intent(in) :: eta
2155 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
2156 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2161 module subroutine setCovRandORNGFS1_RK4(rng, rand, method, eta, scale)
2162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2163 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFS1_RK4
2166 type(onion_type) ,
intent(out) :: method
2167 type(rngf_type) ,
intent(in) :: rng
2168 real(RKG) ,
intent(in) :: eta
2169 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
2170 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2175 module subroutine setCovRandORNGFS1_RK3(rng, rand, method, eta, scale)
2176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2177 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFS1_RK3
2180 type(onion_type) ,
intent(out) :: method
2181 type(rngf_type) ,
intent(in) :: rng
2182 real(RKG) ,
intent(in) :: eta
2183 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
2184 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2189 module subroutine setCovRandORNGFS1_RK2(rng, rand, method, eta, scale)
2190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2191 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFS1_RK2
2194 type(onion_type) ,
intent(out) :: method
2195 type(rngf_type) ,
intent(in) :: rng
2196 real(RKG) ,
intent(in) :: eta
2197 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
2198 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2203 module subroutine setCovRandORNGFS1_RK1(rng, rand, method, eta, scale)
2204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2205 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGFS1_RK1
2208 type(onion_type) ,
intent(out) :: method
2209 type(rngf_type) ,
intent(in) :: rng
2210 real(RKG) ,
intent(in) :: eta
2211 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
2212 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2225 PURE module subroutine setCovRandORNGXSD_RK5(rng, rand, method, eta)
2226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2227 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXSD_RK5
2230 type(onion_type) ,
intent(out) :: method
2231 type(xoshiro256ssw_type),
intent(inout) :: rng
2232 real(RKG) ,
intent(in) :: eta
2233 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2238 PURE module subroutine setCovRandORNGXSD_RK4(rng, rand, method, eta)
2239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2240 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXSD_RK4
2243 type(onion_type) ,
intent(out) :: method
2244 type(xoshiro256ssw_type),
intent(inout) :: rng
2245 real(RKG) ,
intent(in) :: eta
2246 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2251 PURE module subroutine setCovRandORNGXSD_RK3(rng, rand, method, eta)
2252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2253 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXSD_RK3
2256 type(onion_type) ,
intent(out) :: method
2257 type(xoshiro256ssw_type),
intent(inout) :: rng
2258 real(RKG) ,
intent(in) :: eta
2259 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2264 PURE module subroutine setCovRandORNGXSD_RK2(rng, rand, method, eta)
2265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2266 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXSD_RK2
2269 type(onion_type) ,
intent(out) :: method
2270 type(xoshiro256ssw_type),
intent(inout) :: rng
2271 real(RKG) ,
intent(in) :: eta
2272 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2277 PURE module subroutine setCovRandORNGXSD_RK1(rng, rand, method, eta)
2278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2279 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXSD_RK1
2282 type(onion_type) ,
intent(out) :: method
2283 type(xoshiro256ssw_type),
intent(inout) :: rng
2284 real(RKG) ,
intent(in) :: eta
2285 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2292 PURE module subroutine setCovRandORNGXS0_RK5(rng, rand, method, eta, scale)
2293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2294 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXS0_RK5
2297 type(onion_type) ,
intent(out) :: method
2298 type(xoshiro256ssw_type),
intent(inout) :: rng
2299 real(RKG) ,
intent(in) :: eta
2300 real(RKG) ,
intent(in) :: scale
2301 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2306 PURE module subroutine setCovRandORNGXS0_RK4(rng, rand, method, eta, scale)
2307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2308 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXS0_RK4
2311 type(onion_type) ,
intent(out) :: method
2312 type(xoshiro256ssw_type),
intent(inout) :: rng
2313 real(RKG) ,
intent(in) :: eta
2314 real(RKG) ,
intent(in) :: scale
2315 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2320 PURE module subroutine setCovRandORNGXS0_RK3(rng, rand, method, eta, scale)
2321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2322 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXS0_RK3
2325 type(onion_type) ,
intent(out) :: method
2326 type(xoshiro256ssw_type),
intent(inout) :: rng
2327 real(RKG) ,
intent(in) :: eta
2328 real(RKG) ,
intent(in) :: scale
2329 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2334 PURE module subroutine setCovRandORNGXS0_RK2(rng, rand, method, eta, scale)
2335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2336 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXS0_RK2
2339 type(onion_type) ,
intent(out) :: method
2340 type(xoshiro256ssw_type),
intent(inout) :: rng
2341 real(RKG) ,
intent(in) :: eta
2342 real(RKG) ,
intent(in) :: scale
2343 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2348 PURE module subroutine setCovRandORNGXS0_RK1(rng, rand, method, eta, scale)
2349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2350 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXS0_RK1
2353 type(onion_type) ,
intent(out) :: method
2354 type(xoshiro256ssw_type),
intent(inout) :: rng
2355 real(RKG) ,
intent(in) :: eta
2356 real(RKG) ,
intent(in) :: scale
2357 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2364 PURE module subroutine setCovRandORNGXS1_RK5(rng, rand, method, eta, scale)
2365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2366 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXS1_RK5
2369 type(onion_type) ,
intent(out) :: method
2370 type(xoshiro256ssw_type),
intent(inout) :: rng
2371 real(RKG) ,
intent(in) :: eta
2372 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
2373 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2378 PURE module subroutine setCovRandORNGXS1_RK4(rng, rand, method, eta, scale)
2379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2380 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXS1_RK4
2383 type(onion_type) ,
intent(out) :: method
2384 type(xoshiro256ssw_type),
intent(inout) :: rng
2385 real(RKG) ,
intent(in) :: eta
2386 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
2387 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2392 PURE module subroutine setCovRandORNGXS1_RK3(rng, rand, method, eta, scale)
2393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2394 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXS1_RK3
2397 type(onion_type) ,
intent(out) :: method
2398 type(xoshiro256ssw_type),
intent(inout) :: rng
2399 real(RKG) ,
intent(in) :: eta
2400 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
2401 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2406 PURE module subroutine setCovRandORNGXS1_RK2(rng, rand, method, eta, scale)
2407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2408 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXS1_RK2
2411 type(onion_type) ,
intent(out) :: method
2412 type(xoshiro256ssw_type),
intent(inout) :: rng
2413 real(RKG) ,
intent(in) :: eta
2414 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
2415 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2420 PURE module subroutine setCovRandORNGXS1_RK1(rng, rand, method, eta, scale)
2421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2422 !DEC$ ATTRIBUTES DLLEXPORT :: setCovRandORNGXS1_RK1
2425 type(onion_type) ,
intent(out) :: method
2426 type(xoshiro256ssw_type),
intent(inout) :: rng
2427 real(RKG) ,
intent(in) :: eta
2428 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
2429 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
2443end module pm_distCov
Generate and return a random positive-definite (correlation or covariance) matrix using the Gram meth...
Return a random positive-definite power-law-distributed (correlation) matrix.
This module contains classes and procedures for generating random matrices distributed on the space o...
type(gram_type), parameter gram
The scalar constant of type gram_type implying the use of the Gram algorithm for generating random co...
type(onion_type) onion
The scalar module variable object of type onion_type implying the use of the Onion algorithm for gene...
type(dvine_type), parameter dvine
The scalar constant of type dvine_type implying the use of the Dvine algorithm for generating random ...
character(*, SK), parameter MODULE_NAME
This module contains classes and procedures for computing various statistical quantities related to t...
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 the derived type whose instances imply the use of the Dvine algorithm for generating random cova...
This the derived type whose instances imply the use of the Gram algorithm for generating random covar...
This the derived type whose instances imply the use of the Onion algorithm for generating random cova...
This is a concrete derived type whose instances can be used to define/request the default uniform ran...
This is the derived type for declaring and generating objects of type xoshiro256ssw_type containing a...