237 PURE elemental module function getUnifSphereLogPDF_D0_RK5(logRadius, ndim)
result(logPDF)
238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
239 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifSphereLogPDF_D0_RK5
242 integer(IK) ,
intent(in) :: ndim
243 real(RKG) ,
intent(in) :: logRadius
249 PURE elemental module function getUnifSphereLogPDF_D0_RK4(logRadius, ndim)
result(logPDF)
250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
251 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifSphereLogPDF_D0_RK4
254 integer(IK) ,
intent(in) :: ndim
255 real(RKG) ,
intent(in) :: logRadius
261 PURE elemental module function getUnifSphereLogPDF_D0_RK3(logRadius, ndim)
result(logPDF)
262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
263 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifSphereLogPDF_D0_RK3
266 integer(IK) ,
intent(in) :: ndim
267 real(RKG) ,
intent(in) :: logRadius
273 PURE elemental module function getUnifSphereLogPDF_D0_RK2(logRadius, ndim)
result(logPDF)
274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
275 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifSphereLogPDF_D0_RK2
278 integer(IK) ,
intent(in) :: ndim
279 real(RKG) ,
intent(in) :: logRadius
285 PURE elemental module function getUnifSphereLogPDF_D0_RK1(logRadius, ndim)
result(logPDF)
286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
287 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifSphereLogPDF_D0_RK1
290 integer(IK) ,
intent(in) :: ndim
291 real(RKG) ,
intent(in) :: logRadius
418 impure module function getUSR_RNGD_AM_DC_XXX_D1_RK5(mean)
result(rand)
419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
420 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_DC_XXX_D1_RK5
423 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
424 real(RKG) :: rand(
size(mean,
1, IK))
429 impure module function getUSR_RNGD_AM_DC_XXX_D1_RK4(mean)
result(rand)
430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
431 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_DC_XXX_D1_RK4
434 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
435 real(RKG) :: rand(
size(mean,
1, IK))
440 impure module function getUSR_RNGD_AM_DC_XXX_D1_RK3(mean)
result(rand)
441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
442 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_DC_XXX_D1_RK3
445 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
446 real(RKG) :: rand(
size(mean,
1, IK))
451 impure module function getUSR_RNGD_AM_DC_XXX_D1_RK2(mean)
result(rand)
452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
453 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_DC_XXX_D1_RK2
456 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
457 real(RKG) :: rand(
size(mean,
1, IK))
462 impure module function getUSR_RNGD_AM_DC_XXX_D1_RK1(mean)
result(rand)
463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
464 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_DC_XXX_D1_RK1
467 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
468 real(RKG) :: rand(
size(mean,
1, IK))
475 impure module function getUSR_RNGD_DM_AC_UXD_D1_RK5(chol, subset)
result(rand)
476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
477 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_UXD_D1_RK5
480 type(uppDia_type) ,
intent(in) :: subset
481 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
482 real(RKG) :: rand(
size(chol,
1, IK))
487 impure module function getUSR_RNGD_DM_AC_UXD_D1_RK4(chol, subset)
result(rand)
488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
489 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_UXD_D1_RK4
492 type(uppDia_type) ,
intent(in) :: subset
493 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
494 real(RKG) :: rand(
size(chol,
1, IK))
499 impure module function getUSR_RNGD_DM_AC_UXD_D1_RK3(chol, subset)
result(rand)
500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
501 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_UXD_D1_RK3
504 type(uppDia_type) ,
intent(in) :: subset
505 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
506 real(RKG) :: rand(
size(chol,
1, IK))
511 impure module function getUSR_RNGD_DM_AC_UXD_D1_RK2(chol, subset)
result(rand)
512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
513 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_UXD_D1_RK2
516 type(uppDia_type) ,
intent(in) :: subset
517 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
518 real(RKG) :: rand(
size(chol,
1, IK))
523 impure module function getUSR_RNGD_DM_AC_UXD_D1_RK1(chol, subset)
result(rand)
524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
525 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_UXD_D1_RK1
528 type(uppDia_type) ,
intent(in) :: subset
529 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
530 real(RKG) :: rand(
size(chol,
1, IK))
537 impure module function getUSR_RNGD_DM_AC_XLD_D1_RK5(chol, subset)
result(rand)
538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
539 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_XLD_D1_RK5
542 type(lowDia_type) ,
intent(in) :: subset
543 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
544 real(RKG) :: rand(
size(chol,
1, IK))
549 impure module function getUSR_RNGD_DM_AC_XLD_D1_RK4(chol, subset)
result(rand)
550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
551 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_XLD_D1_RK4
554 type(lowDia_type) ,
intent(in) :: subset
555 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
556 real(RKG) :: rand(
size(chol,
1, IK))
561 impure module function getUSR_RNGD_DM_AC_XLD_D1_RK3(chol, subset)
result(rand)
562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
563 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_XLD_D1_RK3
566 type(lowDia_type) ,
intent(in) :: subset
567 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
568 real(RKG) :: rand(
size(chol,
1, IK))
573 impure module function getUSR_RNGD_DM_AC_XLD_D1_RK2(chol, subset)
result(rand)
574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
575 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_XLD_D1_RK2
578 type(lowDia_type) ,
intent(in) :: subset
579 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
580 real(RKG) :: rand(
size(chol,
1, IK))
585 impure module function getUSR_RNGD_DM_AC_XLD_D1_RK1(chol, subset)
result(rand)
586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
587 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_XLD_D1_RK1
590 type(lowDia_type) ,
intent(in) :: subset
591 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
592 real(RKG) :: rand(
size(chol,
1, IK))
599 impure module function getUSR_RNGD_AM_AC_UXD_D1_RK5(mean, chol, subset)
result(rand)
600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
601 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_UXD_D1_RK5
604 type(uppDia_type) ,
intent(in) :: subset
605 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
606 real(RKG) :: rand(
size(chol,
1, IK))
611 impure module function getUSR_RNGD_AM_AC_UXD_D1_RK4(mean, chol, subset)
result(rand)
612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
613 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_UXD_D1_RK4
616 type(uppDia_type) ,
intent(in) :: subset
617 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
618 real(RKG) :: rand(
size(chol,
1, IK))
623 impure module function getUSR_RNGD_AM_AC_UXD_D1_RK3(mean, chol, subset)
result(rand)
624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
625 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_UXD_D1_RK3
628 type(uppDia_type) ,
intent(in) :: subset
629 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
630 real(RKG) :: rand(
size(chol,
1, IK))
635 impure module function getUSR_RNGD_AM_AC_UXD_D1_RK2(mean, chol, subset)
result(rand)
636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
637 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_UXD_D1_RK2
640 type(uppDia_type) ,
intent(in) :: subset
641 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
642 real(RKG) :: rand(
size(chol,
1, IK))
647 impure module function getUSR_RNGD_AM_AC_UXD_D1_RK1(mean, chol, subset)
result(rand)
648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
649 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_UXD_D1_RK1
652 type(uppDia_type) ,
intent(in) :: subset
653 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
654 real(RKG) :: rand(
size(chol,
1, IK))
661 impure module function getUSR_RNGD_AM_AC_XLD_D1_RK5(mean, chol, subset)
result(rand)
662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
663 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_XLD_D1_RK5
666 type(lowDia_type) ,
intent(in) :: subset
667 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
668 real(RKG) :: rand(
size(chol,
1, IK))
673 impure module function getUSR_RNGD_AM_AC_XLD_D1_RK4(mean, chol, subset)
result(rand)
674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
675 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_XLD_D1_RK4
678 type(lowDia_type) ,
intent(in) :: subset
679 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
680 real(RKG) :: rand(
size(chol,
1, IK))
685 impure module function getUSR_RNGD_AM_AC_XLD_D1_RK3(mean, chol, subset)
result(rand)
686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
687 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_XLD_D1_RK3
690 type(lowDia_type) ,
intent(in) :: subset
691 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
692 real(RKG) :: rand(
size(chol,
1, IK))
697 impure module function getUSR_RNGD_AM_AC_XLD_D1_RK2(mean, chol, subset)
result(rand)
698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
699 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_XLD_D1_RK2
702 type(lowDia_type) ,
intent(in) :: subset
703 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
704 real(RKG) :: rand(
size(chol,
1, IK))
709 impure module function getUSR_RNGD_AM_AC_XLD_D1_RK1(mean, chol, subset)
result(rand)
710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
711 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_XLD_D1_RK1
714 type(lowDia_type) ,
intent(in) :: subset
715 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
716 real(RKG) :: rand(
size(chol,
1, IK))
731 impure module function getUSR_RNGF_AM_DC_XXX_D1_RK5(rng, mean)
result(rand)
732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
733 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_DC_XXX_D1_RK5
736 type(rngf_type) ,
intent(in) :: rng
737 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
738 real(RKG) :: rand(
size(mean,
1, IK))
743 impure module function getUSR_RNGF_AM_DC_XXX_D1_RK4(rng, mean)
result(rand)
744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
745 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_DC_XXX_D1_RK4
748 type(rngf_type) ,
intent(in) :: rng
749 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
750 real(RKG) :: rand(
size(mean,
1, IK))
755 impure module function getUSR_RNGF_AM_DC_XXX_D1_RK3(rng, mean)
result(rand)
756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
757 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_DC_XXX_D1_RK3
760 type(rngf_type) ,
intent(in) :: rng
761 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
762 real(RKG) :: rand(
size(mean,
1, IK))
767 impure module function getUSR_RNGF_AM_DC_XXX_D1_RK2(rng, mean)
result(rand)
768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
769 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_DC_XXX_D1_RK2
772 type(rngf_type) ,
intent(in) :: rng
773 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
774 real(RKG) :: rand(
size(mean,
1, IK))
779 impure module function getUSR_RNGF_AM_DC_XXX_D1_RK1(rng, mean)
result(rand)
780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
781 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_DC_XXX_D1_RK1
784 type(rngf_type) ,
intent(in) :: rng
785 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
786 real(RKG) :: rand(
size(mean,
1, IK))
793 impure module function getUSR_RNGF_DM_AC_UXD_D1_RK5(rng, chol, subset)
result(rand)
794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
795 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_UXD_D1_RK5
798 type(rngf_type) ,
intent(in) :: rng
799 type(uppDia_type) ,
intent(in) :: subset
800 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
801 real(RKG) :: rand(
size(chol,
1, IK))
806 impure module function getUSR_RNGF_DM_AC_UXD_D1_RK4(rng, chol, subset)
result(rand)
807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
808 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_UXD_D1_RK4
811 type(rngf_type) ,
intent(in) :: rng
812 type(uppDia_type) ,
intent(in) :: subset
813 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
814 real(RKG) :: rand(
size(chol,
1, IK))
819 impure module function getUSR_RNGF_DM_AC_UXD_D1_RK3(rng, chol, subset)
result(rand)
820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
821 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_UXD_D1_RK3
824 type(rngf_type) ,
intent(in) :: rng
825 type(uppDia_type) ,
intent(in) :: subset
826 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
827 real(RKG) :: rand(
size(chol,
1, IK))
832 impure module function getUSR_RNGF_DM_AC_UXD_D1_RK2(rng, chol, subset)
result(rand)
833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
834 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_UXD_D1_RK2
837 type(rngf_type) ,
intent(in) :: rng
838 type(uppDia_type) ,
intent(in) :: subset
839 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
840 real(RKG) :: rand(
size(chol,
1, IK))
845 impure module function getUSR_RNGF_DM_AC_UXD_D1_RK1(rng, chol, subset)
result(rand)
846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
847 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_UXD_D1_RK1
850 type(rngf_type) ,
intent(in) :: rng
851 type(uppDia_type) ,
intent(in) :: subset
852 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
853 real(RKG) :: rand(
size(chol,
1, IK))
860 impure module function getUSR_RNGF_DM_AC_XLD_D1_RK5(rng, chol, subset)
result(rand)
861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
862 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_XLD_D1_RK5
865 type(rngf_type) ,
intent(in) :: rng
866 type(lowDia_type) ,
intent(in) :: subset
867 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
868 real(RKG) :: rand(
size(chol,
1, IK))
873 impure module function getUSR_RNGF_DM_AC_XLD_D1_RK4(rng, chol, subset)
result(rand)
874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
875 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_XLD_D1_RK4
878 type(rngf_type) ,
intent(in) :: rng
879 type(lowDia_type) ,
intent(in) :: subset
880 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
881 real(RKG) :: rand(
size(chol,
1, IK))
886 impure module function getUSR_RNGF_DM_AC_XLD_D1_RK3(rng, chol, subset)
result(rand)
887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
888 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_XLD_D1_RK3
891 type(rngf_type) ,
intent(in) :: rng
892 type(lowDia_type) ,
intent(in) :: subset
893 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
894 real(RKG) :: rand(
size(chol,
1, IK))
899 impure module function getUSR_RNGF_DM_AC_XLD_D1_RK2(rng, chol, subset)
result(rand)
900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
901 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_XLD_D1_RK2
904 type(rngf_type) ,
intent(in) :: rng
905 type(lowDia_type) ,
intent(in) :: subset
906 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
907 real(RKG) :: rand(
size(chol,
1, IK))
912 impure module function getUSR_RNGF_DM_AC_XLD_D1_RK1(rng, chol, subset)
result(rand)
913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
914 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_XLD_D1_RK1
917 type(rngf_type) ,
intent(in) :: rng
918 type(lowDia_type) ,
intent(in) :: subset
919 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
920 real(RKG) :: rand(
size(chol,
1, IK))
927 impure module function getUSR_RNGF_AM_AC_UXD_D1_RK5(rng, mean, chol, subset)
result(rand)
928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
929 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_UXD_D1_RK5
932 type(rngf_type) ,
intent(in) :: rng
933 type(uppDia_type) ,
intent(in) :: subset
934 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
935 real(RKG) :: rand(
size(chol,
1, IK))
940 impure module function getUSR_RNGF_AM_AC_UXD_D1_RK4(rng, mean, chol, subset)
result(rand)
941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
942 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_UXD_D1_RK4
945 type(rngf_type) ,
intent(in) :: rng
946 type(uppDia_type) ,
intent(in) :: subset
947 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
948 real(RKG) :: rand(
size(chol,
1, IK))
953 impure module function getUSR_RNGF_AM_AC_UXD_D1_RK3(rng, mean, chol, subset)
result(rand)
954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
955 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_UXD_D1_RK3
958 type(rngf_type) ,
intent(in) :: rng
959 type(uppDia_type) ,
intent(in) :: subset
960 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
961 real(RKG) :: rand(
size(chol,
1, IK))
966 impure module function getUSR_RNGF_AM_AC_UXD_D1_RK2(rng, mean, chol, subset)
result(rand)
967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
968 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_UXD_D1_RK2
971 type(rngf_type) ,
intent(in) :: rng
972 type(uppDia_type) ,
intent(in) :: subset
973 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
974 real(RKG) :: rand(
size(chol,
1, IK))
979 impure module function getUSR_RNGF_AM_AC_UXD_D1_RK1(rng, mean, chol, subset)
result(rand)
980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
981 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_UXD_D1_RK1
984 type(rngf_type) ,
intent(in) :: rng
985 type(uppDia_type) ,
intent(in) :: subset
986 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
987 real(RKG) :: rand(
size(chol,
1, IK))
994 impure module function getUSR_RNGF_AM_AC_XLD_D1_RK5(rng, mean, chol, subset)
result(rand)
995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
996 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_XLD_D1_RK5
999 type(rngf_type) ,
intent(in) :: rng
1000 type(lowDia_type) ,
intent(in) :: subset
1001 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1002 real(RKG) :: rand(
size(chol,
1, IK))
1007 impure module function getUSR_RNGF_AM_AC_XLD_D1_RK4(rng, mean, chol, subset)
result(rand)
1008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1009 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_XLD_D1_RK4
1012 type(rngf_type) ,
intent(in) :: rng
1013 type(lowDia_type) ,
intent(in) :: subset
1014 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1015 real(RKG) :: rand(
size(chol,
1, IK))
1020 impure module function getUSR_RNGF_AM_AC_XLD_D1_RK3(rng, mean, chol, subset)
result(rand)
1021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1022 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_XLD_D1_RK3
1025 type(rngf_type) ,
intent(in) :: rng
1026 type(lowDia_type) ,
intent(in) :: subset
1027 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1028 real(RKG) :: rand(
size(chol,
1, IK))
1033 impure module function getUSR_RNGF_AM_AC_XLD_D1_RK2(rng, mean, chol, subset)
result(rand)
1034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1035 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_XLD_D1_RK2
1038 type(rngf_type) ,
intent(in) :: rng
1039 type(lowDia_type) ,
intent(in) :: subset
1040 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1041 real(RKG) :: rand(
size(chol,
1, IK))
1046 impure module function getUSR_RNGF_AM_AC_XLD_D1_RK1(rng, mean, chol, subset)
result(rand)
1047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1048 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_XLD_D1_RK1
1051 type(rngf_type) ,
intent(in) :: rng
1052 type(lowDia_type) ,
intent(in) :: subset
1053 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1054 real(RKG) :: rand(
size(chol,
1, IK))
1069 impure module function getUSR_RNGX_AM_DC_XXX_D1_RK5(rng, mean)
result(rand)
1070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1071 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_DC_XXX_D1_RK5
1074 type(xoshiro256ssw_type),
intent(inout) :: rng
1075 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1076 real(RKG) :: rand(
size(mean,
1, IK))
1081 impure module function getUSR_RNGX_AM_DC_XXX_D1_RK4(rng, mean)
result(rand)
1082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1083 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_DC_XXX_D1_RK4
1086 type(xoshiro256ssw_type),
intent(inout) :: rng
1087 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1088 real(RKG) :: rand(
size(mean,
1, IK))
1093 impure module function getUSR_RNGX_AM_DC_XXX_D1_RK3(rng, mean)
result(rand)
1094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1095 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_DC_XXX_D1_RK3
1098 type(xoshiro256ssw_type),
intent(inout) :: rng
1099 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1100 real(RKG) :: rand(
size(mean,
1, IK))
1105 impure module function getUSR_RNGX_AM_DC_XXX_D1_RK2(rng, mean)
result(rand)
1106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1107 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_DC_XXX_D1_RK2
1110 type(xoshiro256ssw_type),
intent(inout) :: rng
1111 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1112 real(RKG) :: rand(
size(mean,
1, IK))
1117 impure module function getUSR_RNGX_AM_DC_XXX_D1_RK1(rng, mean)
result(rand)
1118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1119 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_DC_XXX_D1_RK1
1122 type(xoshiro256ssw_type),
intent(inout) :: rng
1123 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1124 real(RKG) :: rand(
size(mean,
1, IK))
1131 impure module function getUSR_RNGX_DM_AC_UXD_D1_RK5(rng, chol, subset)
result(rand)
1132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1133 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_UXD_D1_RK5
1136 type(xoshiro256ssw_type),
intent(inout) :: rng
1137 type(uppDia_type) ,
intent(in) :: subset
1138 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1139 real(RKG) :: rand(
size(chol,
1, IK))
1144 impure module function getUSR_RNGX_DM_AC_UXD_D1_RK4(rng, chol, subset)
result(rand)
1145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1146 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_UXD_D1_RK4
1149 type(xoshiro256ssw_type),
intent(inout) :: rng
1150 type(uppDia_type) ,
intent(in) :: subset
1151 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1152 real(RKG) :: rand(
size(chol,
1, IK))
1157 impure module function getUSR_RNGX_DM_AC_UXD_D1_RK3(rng, chol, subset)
result(rand)
1158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1159 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_UXD_D1_RK3
1162 type(xoshiro256ssw_type),
intent(inout) :: rng
1163 type(uppDia_type) ,
intent(in) :: subset
1164 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1165 real(RKG) :: rand(
size(chol,
1, IK))
1170 impure module function getUSR_RNGX_DM_AC_UXD_D1_RK2(rng, chol, subset)
result(rand)
1171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1172 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_UXD_D1_RK2
1175 type(xoshiro256ssw_type),
intent(inout) :: rng
1176 type(uppDia_type) ,
intent(in) :: subset
1177 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1178 real(RKG) :: rand(
size(chol,
1, IK))
1183 impure module function getUSR_RNGX_DM_AC_UXD_D1_RK1(rng, chol, subset)
result(rand)
1184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1185 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_UXD_D1_RK1
1188 type(xoshiro256ssw_type),
intent(inout) :: rng
1189 type(uppDia_type) ,
intent(in) :: subset
1190 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1191 real(RKG) :: rand(
size(chol,
1, IK))
1198 impure module function getUSR_RNGX_DM_AC_XLD_D1_RK5(rng, chol, subset)
result(rand)
1199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1200 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_XLD_D1_RK5
1203 type(xoshiro256ssw_type),
intent(inout) :: rng
1204 type(lowDia_type) ,
intent(in) :: subset
1205 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1206 real(RKG) :: rand(
size(chol,
1, IK))
1211 impure module function getUSR_RNGX_DM_AC_XLD_D1_RK4(rng, chol, subset)
result(rand)
1212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1213 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_XLD_D1_RK4
1216 type(xoshiro256ssw_type),
intent(inout) :: rng
1217 type(lowDia_type) ,
intent(in) :: subset
1218 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1219 real(RKG) :: rand(
size(chol,
1, IK))
1224 impure module function getUSR_RNGX_DM_AC_XLD_D1_RK3(rng, chol, subset)
result(rand)
1225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1226 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_XLD_D1_RK3
1229 type(xoshiro256ssw_type),
intent(inout) :: rng
1230 type(lowDia_type) ,
intent(in) :: subset
1231 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1232 real(RKG) :: rand(
size(chol,
1, IK))
1237 impure module function getUSR_RNGX_DM_AC_XLD_D1_RK2(rng, chol, subset)
result(rand)
1238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1239 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_XLD_D1_RK2
1242 type(xoshiro256ssw_type),
intent(inout) :: rng
1243 type(lowDia_type) ,
intent(in) :: subset
1244 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1245 real(RKG) :: rand(
size(chol,
1, IK))
1250 impure module function getUSR_RNGX_DM_AC_XLD_D1_RK1(rng, chol, subset)
result(rand)
1251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1252 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_XLD_D1_RK1
1255 type(xoshiro256ssw_type),
intent(inout) :: rng
1256 type(lowDia_type) ,
intent(in) :: subset
1257 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1258 real(RKG) :: rand(
size(chol,
1, IK))
1265 impure module function getUSR_RNGX_AM_AC_UXD_D1_RK5(rng, mean, chol, subset)
result(rand)
1266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1267 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_UXD_D1_RK5
1270 type(xoshiro256ssw_type),
intent(inout) :: rng
1271 type(uppDia_type) ,
intent(in) :: subset
1272 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1273 real(RKG) :: rand(
size(chol,
1, IK))
1278 impure module function getUSR_RNGX_AM_AC_UXD_D1_RK4(rng, mean, chol, subset)
result(rand)
1279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1280 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_UXD_D1_RK4
1283 type(xoshiro256ssw_type),
intent(inout) :: rng
1284 type(uppDia_type) ,
intent(in) :: subset
1285 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1286 real(RKG) :: rand(
size(chol,
1, IK))
1291 impure module function getUSR_RNGX_AM_AC_UXD_D1_RK3(rng, mean, chol, subset)
result(rand)
1292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1293 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_UXD_D1_RK3
1296 type(xoshiro256ssw_type),
intent(inout) :: rng
1297 type(uppDia_type) ,
intent(in) :: subset
1298 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1299 real(RKG) :: rand(
size(chol,
1, IK))
1304 impure module function getUSR_RNGX_AM_AC_UXD_D1_RK2(rng, mean, chol, subset)
result(rand)
1305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1306 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_UXD_D1_RK2
1309 type(xoshiro256ssw_type),
intent(inout) :: rng
1310 type(uppDia_type) ,
intent(in) :: subset
1311 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1312 real(RKG) :: rand(
size(chol,
1, IK))
1317 impure module function getUSR_RNGX_AM_AC_UXD_D1_RK1(rng, mean, chol, subset)
result(rand)
1318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1319 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_UXD_D1_RK1
1322 type(xoshiro256ssw_type),
intent(inout) :: rng
1323 type(uppDia_type) ,
intent(in) :: subset
1324 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1325 real(RKG) :: rand(
size(chol,
1, IK))
1332 impure module function getUSR_RNGX_AM_AC_XLD_D1_RK5(rng, mean, chol, subset)
result(rand)
1333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1334 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_XLD_D1_RK5
1337 type(xoshiro256ssw_type),
intent(inout) :: rng
1338 type(lowDia_type) ,
intent(in) :: subset
1339 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1340 real(RKG) :: rand(
size(chol,
1, IK))
1345 impure module function getUSR_RNGX_AM_AC_XLD_D1_RK4(rng, mean, chol, subset)
result(rand)
1346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1347 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_XLD_D1_RK4
1350 type(xoshiro256ssw_type),
intent(inout) :: rng
1351 type(lowDia_type) ,
intent(in) :: subset
1352 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1353 real(RKG) :: rand(
size(chol,
1, IK))
1358 impure module function getUSR_RNGX_AM_AC_XLD_D1_RK3(rng, mean, chol, subset)
result(rand)
1359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1360 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_XLD_D1_RK3
1363 type(xoshiro256ssw_type),
intent(inout) :: rng
1364 type(lowDia_type) ,
intent(in) :: subset
1365 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1366 real(RKG) :: rand(
size(chol,
1, IK))
1371 impure module function getUSR_RNGX_AM_AC_XLD_D1_RK2(rng, mean, chol, subset)
result(rand)
1372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1373 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_XLD_D1_RK2
1376 type(xoshiro256ssw_type),
intent(inout) :: rng
1377 type(lowDia_type) ,
intent(in) :: subset
1378 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1379 real(RKG) :: rand(
size(chol,
1, IK))
1384 impure module function getUSR_RNGX_AM_AC_XLD_D1_RK1(rng, mean, chol, subset)
result(rand)
1385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1386 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_XLD_D1_RK1
1389 type(xoshiro256ssw_type),
intent(inout) :: rng
1390 type(lowDia_type) ,
intent(in) :: subset
1391 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1392 real(RKG) :: rand(
size(chol,
1, IK))
1407 impure module function getUSR_RNGD_AM_DC_XXX_D2_RK5(mean, nsam)
result(rand)
1408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1409 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_DC_XXX_D2_RK5
1412 integer(IK) ,
intent(in) :: nsam
1413 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1414 real(RKG) :: rand(
size(mean,
1, IK), nsam)
1419 impure module function getUSR_RNGD_AM_DC_XXX_D2_RK4(mean, nsam)
result(rand)
1420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1421 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_DC_XXX_D2_RK4
1424 integer(IK) ,
intent(in) :: nsam
1425 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1426 real(RKG) :: rand(
size(mean,
1, IK), nsam)
1431 impure module function getUSR_RNGD_AM_DC_XXX_D2_RK3(mean, nsam)
result(rand)
1432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1433 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_DC_XXX_D2_RK3
1436 integer(IK) ,
intent(in) :: nsam
1437 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1438 real(RKG) :: rand(
size(mean,
1, IK), nsam)
1443 impure module function getUSR_RNGD_AM_DC_XXX_D2_RK2(mean, nsam)
result(rand)
1444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1445 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_DC_XXX_D2_RK2
1448 integer(IK) ,
intent(in) :: nsam
1449 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1450 real(RKG) :: rand(
size(mean,
1, IK), nsam)
1455 impure module function getUSR_RNGD_AM_DC_XXX_D2_RK1(mean, nsam)
result(rand)
1456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1457 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_DC_XXX_D2_RK1
1460 integer(IK) ,
intent(in) :: nsam
1461 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1462 real(RKG) :: rand(
size(mean,
1, IK), nsam)
1469 impure module function getUSR_RNGD_DM_AC_UXD_D2_RK5(chol, subset, nsam)
result(rand)
1470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1471 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_UXD_D2_RK5
1474 integer(IK) ,
intent(in) :: nsam
1475 type(uppDia_type) ,
intent(in) :: subset
1476 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1477 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1482 impure module function getUSR_RNGD_DM_AC_UXD_D2_RK4(chol, subset, nsam)
result(rand)
1483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1484 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_UXD_D2_RK4
1487 integer(IK) ,
intent(in) :: nsam
1488 type(uppDia_type) ,
intent(in) :: subset
1489 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1490 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1495 impure module function getUSR_RNGD_DM_AC_UXD_D2_RK3(chol, subset, nsam)
result(rand)
1496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1497 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_UXD_D2_RK3
1500 integer(IK) ,
intent(in) :: nsam
1501 type(uppDia_type) ,
intent(in) :: subset
1502 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1503 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1508 impure module function getUSR_RNGD_DM_AC_UXD_D2_RK2(chol, subset, nsam)
result(rand)
1509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1510 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_UXD_D2_RK2
1513 integer(IK) ,
intent(in) :: nsam
1514 type(uppDia_type) ,
intent(in) :: subset
1515 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1516 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1521 impure module function getUSR_RNGD_DM_AC_UXD_D2_RK1(chol, subset, nsam)
result(rand)
1522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1523 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_UXD_D2_RK1
1526 integer(IK) ,
intent(in) :: nsam
1527 type(uppDia_type) ,
intent(in) :: subset
1528 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1529 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1536 impure module function getUSR_RNGD_DM_AC_XLD_D2_RK5(chol, subset, nsam)
result(rand)
1537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1538 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_XLD_D2_RK5
1541 integer(IK) ,
intent(in) :: nsam
1542 type(lowDia_type) ,
intent(in) :: subset
1543 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1544 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1549 impure module function getUSR_RNGD_DM_AC_XLD_D2_RK4(chol, subset, nsam)
result(rand)
1550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1551 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_XLD_D2_RK4
1554 integer(IK) ,
intent(in) :: nsam
1555 type(lowDia_type) ,
intent(in) :: subset
1556 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1557 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1562 impure module function getUSR_RNGD_DM_AC_XLD_D2_RK3(chol, subset, nsam)
result(rand)
1563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1564 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_XLD_D2_RK3
1567 integer(IK) ,
intent(in) :: nsam
1568 type(lowDia_type) ,
intent(in) :: subset
1569 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1570 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1575 impure module function getUSR_RNGD_DM_AC_XLD_D2_RK2(chol, subset, nsam)
result(rand)
1576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1577 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_XLD_D2_RK2
1580 integer(IK) ,
intent(in) :: nsam
1581 type(lowDia_type) ,
intent(in) :: subset
1582 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1583 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1588 impure module function getUSR_RNGD_DM_AC_XLD_D2_RK1(chol, subset, nsam)
result(rand)
1589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1590 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_DM_AC_XLD_D2_RK1
1593 integer(IK) ,
intent(in) :: nsam
1594 type(lowDia_type) ,
intent(in) :: subset
1595 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1596 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1603 impure module function getUSR_RNGD_AM_AC_UXD_D2_RK5(mean, chol, subset, nsam)
result(rand)
1604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1605 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_UXD_D2_RK5
1608 integer(IK) ,
intent(in) :: nsam
1609 type(uppDia_type) ,
intent(in) :: subset
1610 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1611 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1616 impure module function getUSR_RNGD_AM_AC_UXD_D2_RK4(mean, chol, subset, nsam)
result(rand)
1617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1618 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_UXD_D2_RK4
1621 integer(IK) ,
intent(in) :: nsam
1622 type(uppDia_type) ,
intent(in) :: subset
1623 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1624 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1629 impure module function getUSR_RNGD_AM_AC_UXD_D2_RK3(mean, chol, subset, nsam)
result(rand)
1630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1631 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_UXD_D2_RK3
1634 integer(IK) ,
intent(in) :: nsam
1635 type(uppDia_type) ,
intent(in) :: subset
1636 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1637 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1642 impure module function getUSR_RNGD_AM_AC_UXD_D2_RK2(mean, chol, subset, nsam)
result(rand)
1643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1644 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_UXD_D2_RK2
1647 integer(IK) ,
intent(in) :: nsam
1648 type(uppDia_type) ,
intent(in) :: subset
1649 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1650 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1655 impure module function getUSR_RNGD_AM_AC_UXD_D2_RK1(mean, chol, subset, nsam)
result(rand)
1656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1657 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_UXD_D2_RK1
1660 integer(IK) ,
intent(in) :: nsam
1661 type(uppDia_type) ,
intent(in) :: subset
1662 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1663 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1670 impure module function getUSR_RNGD_AM_AC_XLD_D2_RK5(mean, chol, subset, nsam)
result(rand)
1671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1672 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_XLD_D2_RK5
1675 integer(IK) ,
intent(in) :: nsam
1676 type(lowDia_type) ,
intent(in) :: subset
1677 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1678 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1683 impure module function getUSR_RNGD_AM_AC_XLD_D2_RK4(mean, chol, subset, nsam)
result(rand)
1684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1685 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_XLD_D2_RK4
1688 integer(IK) ,
intent(in) :: nsam
1689 type(lowDia_type) ,
intent(in) :: subset
1690 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1691 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1696 impure module function getUSR_RNGD_AM_AC_XLD_D2_RK3(mean, chol, subset, nsam)
result(rand)
1697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1698 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_XLD_D2_RK3
1701 integer(IK) ,
intent(in) :: nsam
1702 type(lowDia_type) ,
intent(in) :: subset
1703 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1704 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1709 impure module function getUSR_RNGD_AM_AC_XLD_D2_RK2(mean, chol, subset, nsam)
result(rand)
1710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1711 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_XLD_D2_RK2
1714 integer(IK) ,
intent(in) :: nsam
1715 type(lowDia_type) ,
intent(in) :: subset
1716 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1717 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1722 impure module function getUSR_RNGD_AM_AC_XLD_D2_RK1(mean, chol, subset, nsam)
result(rand)
1723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1724 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGD_AM_AC_XLD_D2_RK1
1727 integer(IK) ,
intent(in) :: nsam
1728 type(lowDia_type) ,
intent(in) :: subset
1729 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1730 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1745 impure module function getUSR_RNGF_AM_DC_XXX_D2_RK5(rng, mean, nsam)
result(rand)
1746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1747 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_DC_XXX_D2_RK5
1750 type(rngf_type) ,
intent(in) :: rng
1751 integer(IK) ,
intent(in) :: nsam
1752 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1753 real(RKG) :: rand(
size(mean,
1, IK), nsam)
1758 impure module function getUSR_RNGF_AM_DC_XXX_D2_RK4(rng, mean, nsam)
result(rand)
1759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1760 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_DC_XXX_D2_RK4
1763 type(rngf_type) ,
intent(in) :: rng
1764 integer(IK) ,
intent(in) :: nsam
1765 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1766 real(RKG) :: rand(
size(mean,
1, IK), nsam)
1771 impure module function getUSR_RNGF_AM_DC_XXX_D2_RK3(rng, mean, nsam)
result(rand)
1772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1773 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_DC_XXX_D2_RK3
1776 type(rngf_type) ,
intent(in) :: rng
1777 integer(IK) ,
intent(in) :: nsam
1778 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1779 real(RKG) :: rand(
size(mean,
1, IK), nsam)
1784 impure module function getUSR_RNGF_AM_DC_XXX_D2_RK2(rng, mean, nsam)
result(rand)
1785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1786 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_DC_XXX_D2_RK2
1789 type(rngf_type) ,
intent(in) :: rng
1790 integer(IK) ,
intent(in) :: nsam
1791 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1792 real(RKG) :: rand(
size(mean,
1, IK), nsam)
1797 impure module function getUSR_RNGF_AM_DC_XXX_D2_RK1(rng, mean, nsam)
result(rand)
1798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1799 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_DC_XXX_D2_RK1
1802 type(rngf_type) ,
intent(in) :: rng
1803 integer(IK) ,
intent(in) :: nsam
1804 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1805 real(RKG) :: rand(
size(mean,
1, IK), nsam)
1812 impure module function getUSR_RNGF_DM_AC_UXD_D2_RK5(rng, chol, subset, nsam)
result(rand)
1813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1814 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_UXD_D2_RK5
1817 type(rngf_type) ,
intent(in) :: rng
1818 integer(IK) ,
intent(in) :: nsam
1819 type(uppDia_type) ,
intent(in) :: subset
1820 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1821 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1826 impure module function getUSR_RNGF_DM_AC_UXD_D2_RK4(rng, chol, subset, nsam)
result(rand)
1827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1828 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_UXD_D2_RK4
1831 type(rngf_type) ,
intent(in) :: rng
1832 integer(IK) ,
intent(in) :: nsam
1833 type(uppDia_type) ,
intent(in) :: subset
1834 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1835 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1840 impure module function getUSR_RNGF_DM_AC_UXD_D2_RK3(rng, chol, subset, nsam)
result(rand)
1841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1842 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_UXD_D2_RK3
1845 type(rngf_type) ,
intent(in) :: rng
1846 integer(IK) ,
intent(in) :: nsam
1847 type(uppDia_type) ,
intent(in) :: subset
1848 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1849 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1854 impure module function getUSR_RNGF_DM_AC_UXD_D2_RK2(rng, chol, subset, nsam)
result(rand)
1855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1856 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_UXD_D2_RK2
1859 type(rngf_type) ,
intent(in) :: rng
1860 integer(IK) ,
intent(in) :: nsam
1861 type(uppDia_type) ,
intent(in) :: subset
1862 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1863 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1868 impure module function getUSR_RNGF_DM_AC_UXD_D2_RK1(rng, chol, subset, nsam)
result(rand)
1869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1870 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_UXD_D2_RK1
1873 type(rngf_type) ,
intent(in) :: rng
1874 integer(IK) ,
intent(in) :: nsam
1875 type(uppDia_type) ,
intent(in) :: subset
1876 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1877 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1884 impure module function getUSR_RNGF_DM_AC_XLD_D2_RK5(rng, chol, subset, nsam)
result(rand)
1885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1886 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_XLD_D2_RK5
1889 type(rngf_type) ,
intent(in) :: rng
1890 integer(IK) ,
intent(in) :: nsam
1891 type(lowDia_type) ,
intent(in) :: subset
1892 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1893 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1898 impure module function getUSR_RNGF_DM_AC_XLD_D2_RK4(rng, chol, subset, nsam)
result(rand)
1899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1900 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_XLD_D2_RK4
1903 type(rngf_type) ,
intent(in) :: rng
1904 integer(IK) ,
intent(in) :: nsam
1905 type(lowDia_type) ,
intent(in) :: subset
1906 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1907 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1912 impure module function getUSR_RNGF_DM_AC_XLD_D2_RK3(rng, chol, subset, nsam)
result(rand)
1913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1914 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_XLD_D2_RK3
1917 type(rngf_type) ,
intent(in) :: rng
1918 integer(IK) ,
intent(in) :: nsam
1919 type(lowDia_type) ,
intent(in) :: subset
1920 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1921 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1926 impure module function getUSR_RNGF_DM_AC_XLD_D2_RK2(rng, chol, subset, nsam)
result(rand)
1927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1928 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_XLD_D2_RK2
1931 type(rngf_type) ,
intent(in) :: rng
1932 integer(IK) ,
intent(in) :: nsam
1933 type(lowDia_type) ,
intent(in) :: subset
1934 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1935 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1940 impure module function getUSR_RNGF_DM_AC_XLD_D2_RK1(rng, chol, subset, nsam)
result(rand)
1941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1942 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_DM_AC_XLD_D2_RK1
1945 type(rngf_type) ,
intent(in) :: rng
1946 integer(IK) ,
intent(in) :: nsam
1947 type(lowDia_type) ,
intent(in) :: subset
1948 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1949 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1956 impure module function getUSR_RNGF_AM_AC_UXD_D2_RK5(rng, mean, chol, subset, nsam)
result(rand)
1957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1958 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_UXD_D2_RK5
1961 type(rngf_type) ,
intent(in) :: rng
1962 integer(IK) ,
intent(in) :: nsam
1963 type(uppDia_type) ,
intent(in) :: subset
1964 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1965 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1970 impure module function getUSR_RNGF_AM_AC_UXD_D2_RK4(rng, mean, chol, subset, nsam)
result(rand)
1971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1972 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_UXD_D2_RK4
1975 type(rngf_type) ,
intent(in) :: rng
1976 integer(IK) ,
intent(in) :: nsam
1977 type(uppDia_type) ,
intent(in) :: subset
1978 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1979 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1984 impure module function getUSR_RNGF_AM_AC_UXD_D2_RK3(rng, mean, chol, subset, nsam)
result(rand)
1985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1986 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_UXD_D2_RK3
1989 type(rngf_type) ,
intent(in) :: rng
1990 integer(IK) ,
intent(in) :: nsam
1991 type(uppDia_type) ,
intent(in) :: subset
1992 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1993 real(RKG) :: rand(
size(chol,
1, IK), nsam)
1998 impure module function getUSR_RNGF_AM_AC_UXD_D2_RK2(rng, mean, chol, subset, nsam)
result(rand)
1999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2000 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_UXD_D2_RK2
2003 type(rngf_type) ,
intent(in) :: rng
2004 integer(IK) ,
intent(in) :: nsam
2005 type(uppDia_type) ,
intent(in) :: subset
2006 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2007 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2012 impure module function getUSR_RNGF_AM_AC_UXD_D2_RK1(rng, mean, chol, subset, nsam)
result(rand)
2013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2014 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_UXD_D2_RK1
2017 type(rngf_type) ,
intent(in) :: rng
2018 integer(IK) ,
intent(in) :: nsam
2019 type(uppDia_type) ,
intent(in) :: subset
2020 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2021 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2028 impure module function getUSR_RNGF_AM_AC_XLD_D2_RK5(rng, mean, chol, subset, nsam)
result(rand)
2029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2030 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_XLD_D2_RK5
2033 type(rngf_type) ,
intent(in) :: rng
2034 integer(IK) ,
intent(in) :: nsam
2035 type(lowDia_type) ,
intent(in) :: subset
2036 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2037 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2042 impure module function getUSR_RNGF_AM_AC_XLD_D2_RK4(rng, mean, chol, subset, nsam)
result(rand)
2043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2044 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_XLD_D2_RK4
2047 type(rngf_type) ,
intent(in) :: rng
2048 integer(IK) ,
intent(in) :: nsam
2049 type(lowDia_type) ,
intent(in) :: subset
2050 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2051 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2056 impure module function getUSR_RNGF_AM_AC_XLD_D2_RK3(rng, mean, chol, subset, nsam)
result(rand)
2057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2058 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_XLD_D2_RK3
2061 type(rngf_type) ,
intent(in) :: rng
2062 integer(IK) ,
intent(in) :: nsam
2063 type(lowDia_type) ,
intent(in) :: subset
2064 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2065 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2070 impure module function getUSR_RNGF_AM_AC_XLD_D2_RK2(rng, mean, chol, subset, nsam)
result(rand)
2071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2072 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_XLD_D2_RK2
2075 type(rngf_type) ,
intent(in) :: rng
2076 integer(IK) ,
intent(in) :: nsam
2077 type(lowDia_type) ,
intent(in) :: subset
2078 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2079 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2084 impure module function getUSR_RNGF_AM_AC_XLD_D2_RK1(rng, mean, chol, subset, nsam)
result(rand)
2085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2086 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGF_AM_AC_XLD_D2_RK1
2089 type(rngf_type) ,
intent(in) :: rng
2090 integer(IK) ,
intent(in) :: nsam
2091 type(lowDia_type) ,
intent(in) :: subset
2092 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2093 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2108 impure module function getUSR_RNGX_AM_DC_XXX_D2_RK5(rng, mean, nsam)
result(rand)
2109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2110 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_DC_XXX_D2_RK5
2113 type(xoshiro256ssw_type),
intent(inout) :: rng
2114 integer(IK) ,
intent(in) :: nsam
2115 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2116 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2121 impure module function getUSR_RNGX_AM_DC_XXX_D2_RK4(rng, mean, nsam)
result(rand)
2122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2123 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_DC_XXX_D2_RK4
2126 type(xoshiro256ssw_type),
intent(inout) :: rng
2127 integer(IK) ,
intent(in) :: nsam
2128 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2129 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2134 impure module function getUSR_RNGX_AM_DC_XXX_D2_RK3(rng, mean, nsam)
result(rand)
2135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2136 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_DC_XXX_D2_RK3
2139 type(xoshiro256ssw_type),
intent(inout) :: rng
2140 integer(IK) ,
intent(in) :: nsam
2141 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2142 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2147 impure module function getUSR_RNGX_AM_DC_XXX_D2_RK2(rng, mean, nsam)
result(rand)
2148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2149 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_DC_XXX_D2_RK2
2152 type(xoshiro256ssw_type),
intent(inout) :: rng
2153 integer(IK) ,
intent(in) :: nsam
2154 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2155 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2160 impure module function getUSR_RNGX_AM_DC_XXX_D2_RK1(rng, mean, nsam)
result(rand)
2161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2162 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_DC_XXX_D2_RK1
2165 type(xoshiro256ssw_type),
intent(inout) :: rng
2166 integer(IK) ,
intent(in) :: nsam
2167 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2168 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2175 impure module function getUSR_RNGX_DM_AC_UXD_D2_RK5(rng, chol, subset, nsam)
result(rand)
2176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2177 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_UXD_D2_RK5
2180 type(xoshiro256ssw_type),
intent(inout) :: rng
2181 integer(IK) ,
intent(in) :: nsam
2182 type(uppDia_type) ,
intent(in) :: subset
2183 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2184 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2189 impure module function getUSR_RNGX_DM_AC_UXD_D2_RK4(rng, chol, subset, nsam)
result(rand)
2190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2191 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_UXD_D2_RK4
2194 type(xoshiro256ssw_type),
intent(inout) :: rng
2195 integer(IK) ,
intent(in) :: nsam
2196 type(uppDia_type) ,
intent(in) :: subset
2197 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2198 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2203 impure module function getUSR_RNGX_DM_AC_UXD_D2_RK3(rng, chol, subset, nsam)
result(rand)
2204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2205 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_UXD_D2_RK3
2208 type(xoshiro256ssw_type),
intent(inout) :: rng
2209 integer(IK) ,
intent(in) :: nsam
2210 type(uppDia_type) ,
intent(in) :: subset
2211 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2212 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2217 impure module function getUSR_RNGX_DM_AC_UXD_D2_RK2(rng, chol, subset, nsam)
result(rand)
2218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2219 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_UXD_D2_RK2
2222 type(xoshiro256ssw_type),
intent(inout) :: rng
2223 integer(IK) ,
intent(in) :: nsam
2224 type(uppDia_type) ,
intent(in) :: subset
2225 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2226 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2231 impure module function getUSR_RNGX_DM_AC_UXD_D2_RK1(rng, chol, subset, nsam)
result(rand)
2232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2233 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_UXD_D2_RK1
2236 type(xoshiro256ssw_type),
intent(inout) :: rng
2237 integer(IK) ,
intent(in) :: nsam
2238 type(uppDia_type) ,
intent(in) :: subset
2239 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2240 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2247 impure module function getUSR_RNGX_DM_AC_XLD_D2_RK5(rng, chol, subset, nsam)
result(rand)
2248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2249 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_XLD_D2_RK5
2252 type(xoshiro256ssw_type),
intent(inout) :: rng
2253 integer(IK) ,
intent(in) :: nsam
2254 type(lowDia_type) ,
intent(in) :: subset
2255 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2256 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2261 impure module function getUSR_RNGX_DM_AC_XLD_D2_RK4(rng, chol, subset, nsam)
result(rand)
2262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2263 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_XLD_D2_RK4
2266 type(xoshiro256ssw_type),
intent(inout) :: rng
2267 integer(IK) ,
intent(in) :: nsam
2268 type(lowDia_type) ,
intent(in) :: subset
2269 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2270 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2275 impure module function getUSR_RNGX_DM_AC_XLD_D2_RK3(rng, chol, subset, nsam)
result(rand)
2276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2277 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_XLD_D2_RK3
2280 type(xoshiro256ssw_type),
intent(inout) :: rng
2281 integer(IK) ,
intent(in) :: nsam
2282 type(lowDia_type) ,
intent(in) :: subset
2283 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2284 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2289 impure module function getUSR_RNGX_DM_AC_XLD_D2_RK2(rng, chol, subset, nsam)
result(rand)
2290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2291 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_XLD_D2_RK2
2294 type(xoshiro256ssw_type),
intent(inout) :: rng
2295 integer(IK) ,
intent(in) :: nsam
2296 type(lowDia_type) ,
intent(in) :: subset
2297 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2298 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2303 impure module function getUSR_RNGX_DM_AC_XLD_D2_RK1(rng, chol, subset, nsam)
result(rand)
2304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2305 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_DM_AC_XLD_D2_RK1
2308 type(xoshiro256ssw_type),
intent(inout) :: rng
2309 integer(IK) ,
intent(in) :: nsam
2310 type(lowDia_type) ,
intent(in) :: subset
2311 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2312 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2319 impure module function getUSR_RNGX_AM_AC_UXD_D2_RK5(rng, mean, chol, subset, nsam)
result(rand)
2320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2321 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_UXD_D2_RK5
2324 type(xoshiro256ssw_type),
intent(inout) :: rng
2325 integer(IK) ,
intent(in) :: nsam
2326 type(uppDia_type) ,
intent(in) :: subset
2327 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2328 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2333 impure module function getUSR_RNGX_AM_AC_UXD_D2_RK4(rng, mean, chol, subset, nsam)
result(rand)
2334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2335 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_UXD_D2_RK4
2338 type(xoshiro256ssw_type),
intent(inout) :: rng
2339 integer(IK) ,
intent(in) :: nsam
2340 type(uppDia_type) ,
intent(in) :: subset
2341 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2342 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2347 impure module function getUSR_RNGX_AM_AC_UXD_D2_RK3(rng, mean, chol, subset, nsam)
result(rand)
2348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2349 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_UXD_D2_RK3
2352 type(xoshiro256ssw_type),
intent(inout) :: rng
2353 integer(IK) ,
intent(in) :: nsam
2354 type(uppDia_type) ,
intent(in) :: subset
2355 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2356 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2361 impure module function getUSR_RNGX_AM_AC_UXD_D2_RK2(rng, mean, chol, subset, nsam)
result(rand)
2362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2363 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_UXD_D2_RK2
2366 type(xoshiro256ssw_type),
intent(inout) :: rng
2367 integer(IK) ,
intent(in) :: nsam
2368 type(uppDia_type) ,
intent(in) :: subset
2369 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2370 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2375 impure module function getUSR_RNGX_AM_AC_UXD_D2_RK1(rng, mean, chol, subset, nsam)
result(rand)
2376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2377 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_UXD_D2_RK1
2380 type(xoshiro256ssw_type),
intent(inout) :: rng
2381 integer(IK) ,
intent(in) :: nsam
2382 type(uppDia_type) ,
intent(in) :: subset
2383 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2384 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2391 impure module function getUSR_RNGX_AM_AC_XLD_D2_RK5(rng, mean, chol, subset, nsam)
result(rand)
2392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2393 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_XLD_D2_RK5
2396 type(xoshiro256ssw_type),
intent(inout) :: rng
2397 integer(IK) ,
intent(in) :: nsam
2398 type(lowDia_type) ,
intent(in) :: subset
2399 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2400 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2405 impure module function getUSR_RNGX_AM_AC_XLD_D2_RK4(rng, mean, chol, subset, nsam)
result(rand)
2406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2407 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_XLD_D2_RK4
2410 type(xoshiro256ssw_type),
intent(inout) :: rng
2411 integer(IK) ,
intent(in) :: nsam
2412 type(lowDia_type) ,
intent(in) :: subset
2413 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2414 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2419 impure module function getUSR_RNGX_AM_AC_XLD_D2_RK3(rng, mean, chol, subset, nsam)
result(rand)
2420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2421 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_XLD_D2_RK3
2424 type(xoshiro256ssw_type),
intent(inout) :: rng
2425 integer(IK) ,
intent(in) :: nsam
2426 type(lowDia_type) ,
intent(in) :: subset
2427 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2428 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2433 impure module function getUSR_RNGX_AM_AC_XLD_D2_RK2(rng, mean, chol, subset, nsam)
result(rand)
2434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2435 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_XLD_D2_RK2
2438 type(xoshiro256ssw_type),
intent(inout) :: rng
2439 integer(IK) ,
intent(in) :: nsam
2440 type(lowDia_type) ,
intent(in) :: subset
2441 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2442 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2447 impure module function getUSR_RNGX_AM_AC_XLD_D2_RK1(rng, mean, chol, subset, nsam)
result(rand)
2448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2449 !DEC$ ATTRIBUTES DLLEXPORT :: getUSR_RNGX_AM_AC_XLD_D2_RK1
2452 type(xoshiro256ssw_type),
intent(inout) :: rng
2453 integer(IK) ,
intent(in) :: nsam
2454 type(lowDia_type) ,
intent(in) :: subset
2455 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2456 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2581 impure module subroutine setUSR_RNGD_DM_DC_XXX_D1_RK5(rand)
2582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2583 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_DC_XXX_D1_RK5
2586 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2591 impure module subroutine setUSR_RNGD_DM_DC_XXX_D1_RK4(rand)
2592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2593 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_DC_XXX_D1_RK4
2596 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2601 impure module subroutine setUSR_RNGD_DM_DC_XXX_D1_RK3(rand)
2602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2603 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_DC_XXX_D1_RK3
2606 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2611 impure module subroutine setUSR_RNGD_DM_DC_XXX_D1_RK2(rand)
2612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2613 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_DC_XXX_D1_RK2
2616 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2621 impure module subroutine setUSR_RNGD_DM_DC_XXX_D1_RK1(rand)
2622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2623 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_DC_XXX_D1_RK1
2626 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2633 impure module subroutine setUSR_RNGD_AM_DC_XXX_D1_RK5(rand, mean)
2634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2635 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_DC_XXX_D1_RK5
2638 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2639 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2644 impure module subroutine setUSR_RNGD_AM_DC_XXX_D1_RK4(rand, mean)
2645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2646 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_DC_XXX_D1_RK4
2649 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2650 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2655 impure module subroutine setUSR_RNGD_AM_DC_XXX_D1_RK3(rand, mean)
2656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2657 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_DC_XXX_D1_RK3
2660 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2661 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2666 impure module subroutine setUSR_RNGD_AM_DC_XXX_D1_RK2(rand, mean)
2667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2668 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_DC_XXX_D1_RK2
2671 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2672 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2677 impure module subroutine setUSR_RNGD_AM_DC_XXX_D1_RK1(rand, mean)
2678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2679 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_DC_XXX_D1_RK1
2682 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2683 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2690 impure module subroutine setUSR_RNGD_DM_AC_UXD_D1_RK5(rand, chol, subset)
2691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2692 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_UXD_D1_RK5
2695 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2696 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2697 type(uppDia_type) ,
intent(in) :: subset
2702 impure module subroutine setUSR_RNGD_DM_AC_UXD_D1_RK4(rand, chol, subset)
2703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2704 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_UXD_D1_RK4
2707 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2708 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2709 type(uppDia_type) ,
intent(in) :: subset
2714 impure module subroutine setUSR_RNGD_DM_AC_UXD_D1_RK3(rand, chol, subset)
2715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2716 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_UXD_D1_RK3
2719 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2720 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2721 type(uppDia_type) ,
intent(in) :: subset
2726 impure module subroutine setUSR_RNGD_DM_AC_UXD_D1_RK2(rand, chol, subset)
2727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2728 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_UXD_D1_RK2
2731 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2732 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2733 type(uppDia_type) ,
intent(in) :: subset
2738 impure module subroutine setUSR_RNGD_DM_AC_UXD_D1_RK1(rand, chol, subset)
2739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2740 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_UXD_D1_RK1
2743 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2744 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2745 type(uppDia_type) ,
intent(in) :: subset
2752 impure module subroutine setUSR_RNGD_DM_AC_XLD_D1_RK5(rand, chol, subset)
2753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2754 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_XLD_D1_RK5
2757 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2758 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2759 type(lowDia_type) ,
intent(in) :: subset
2764 impure module subroutine setUSR_RNGD_DM_AC_XLD_D1_RK4(rand, chol, subset)
2765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2766 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_XLD_D1_RK4
2769 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2770 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2771 type(lowDia_type) ,
intent(in) :: subset
2776 impure module subroutine setUSR_RNGD_DM_AC_XLD_D1_RK3(rand, chol, subset)
2777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2778 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_XLD_D1_RK3
2781 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2782 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2783 type(lowDia_type) ,
intent(in) :: subset
2788 impure module subroutine setUSR_RNGD_DM_AC_XLD_D1_RK2(rand, chol, subset)
2789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2790 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_XLD_D1_RK2
2793 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2794 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2795 type(lowDia_type) ,
intent(in) :: subset
2800 impure module subroutine setUSR_RNGD_DM_AC_XLD_D1_RK1(rand, chol, subset)
2801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2802 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_XLD_D1_RK1
2805 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2806 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2807 type(lowDia_type) ,
intent(in) :: subset
2814 impure module subroutine setUSR_RNGD_AM_AC_UXD_D1_RK5(rand, mean, chol, subset)
2815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2816 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_UXD_D1_RK5
2819 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2820 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2821 type(uppDia_type) ,
intent(in) :: subset
2826 impure module subroutine setUSR_RNGD_AM_AC_UXD_D1_RK4(rand, mean, chol, subset)
2827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2828 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_UXD_D1_RK4
2831 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2832 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2833 type(uppDia_type) ,
intent(in) :: subset
2838 impure module subroutine setUSR_RNGD_AM_AC_UXD_D1_RK3(rand, mean, chol, subset)
2839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2840 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_UXD_D1_RK3
2843 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2844 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2845 type(uppDia_type) ,
intent(in) :: subset
2850 impure module subroutine setUSR_RNGD_AM_AC_UXD_D1_RK2(rand, mean, chol, subset)
2851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2852 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_UXD_D1_RK2
2855 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2856 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2857 type(uppDia_type) ,
intent(in) :: subset
2862 impure module subroutine setUSR_RNGD_AM_AC_UXD_D1_RK1(rand, mean, chol, subset)
2863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2864 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_UXD_D1_RK1
2867 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2868 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2869 type(uppDia_type) ,
intent(in) :: subset
2876 impure module subroutine setUSR_RNGD_AM_AC_XLD_D1_RK5(rand, mean, chol, subset)
2877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2878 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_XLD_D1_RK5
2881 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2882 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2883 type(lowDia_type) ,
intent(in) :: subset
2888 impure module subroutine setUSR_RNGD_AM_AC_XLD_D1_RK4(rand, mean, chol, subset)
2889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2890 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_XLD_D1_RK4
2893 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2894 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2895 type(lowDia_type) ,
intent(in) :: subset
2900 impure module subroutine setUSR_RNGD_AM_AC_XLD_D1_RK3(rand, mean, chol, subset)
2901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2902 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_XLD_D1_RK3
2905 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2906 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2907 type(lowDia_type) ,
intent(in) :: subset
2912 impure module subroutine setUSR_RNGD_AM_AC_XLD_D1_RK2(rand, mean, chol, subset)
2913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2914 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_XLD_D1_RK2
2917 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2918 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2919 type(lowDia_type) ,
intent(in) :: subset
2924 impure module subroutine setUSR_RNGD_AM_AC_XLD_D1_RK1(rand, mean, chol, subset)
2925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2926 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_XLD_D1_RK1
2929 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2930 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2931 type(lowDia_type) ,
intent(in) :: subset
2946 impure module subroutine setUSR_RNGF_DM_DC_XXX_D1_RK5(rng, rand)
2947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2948 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_DC_XXX_D1_RK5
2951 type(rngf_type) ,
intent(in) :: rng
2952 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2957 impure module subroutine setUSR_RNGF_DM_DC_XXX_D1_RK4(rng, rand)
2958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2959 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_DC_XXX_D1_RK4
2962 type(rngf_type) ,
intent(in) :: rng
2963 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2968 impure module subroutine setUSR_RNGF_DM_DC_XXX_D1_RK3(rng, rand)
2969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2970 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_DC_XXX_D1_RK3
2973 type(rngf_type) ,
intent(in) :: rng
2974 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2979 impure module subroutine setUSR_RNGF_DM_DC_XXX_D1_RK2(rng, rand)
2980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2981 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_DC_XXX_D1_RK2
2984 type(rngf_type) ,
intent(in) :: rng
2985 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
2990 impure module subroutine setUSR_RNGF_DM_DC_XXX_D1_RK1(rng, rand)
2991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2992 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_DC_XXX_D1_RK1
2995 type(rngf_type) ,
intent(in) :: rng
2996 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3003 impure module subroutine setUSR_RNGF_AM_DC_XXX_D1_RK5(rng, rand, mean)
3004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3005 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_DC_XXX_D1_RK5
3008 type(rngf_type) ,
intent(in) :: rng
3009 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3010 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3015 impure module subroutine setUSR_RNGF_AM_DC_XXX_D1_RK4(rng, rand, mean)
3016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3017 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_DC_XXX_D1_RK4
3020 type(rngf_type) ,
intent(in) :: rng
3021 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3022 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3027 impure module subroutine setUSR_RNGF_AM_DC_XXX_D1_RK3(rng, rand, mean)
3028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3029 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_DC_XXX_D1_RK3
3032 type(rngf_type) ,
intent(in) :: rng
3033 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3034 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3039 impure module subroutine setUSR_RNGF_AM_DC_XXX_D1_RK2(rng, rand, mean)
3040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3041 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_DC_XXX_D1_RK2
3044 type(rngf_type) ,
intent(in) :: rng
3045 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3046 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3051 impure module subroutine setUSR_RNGF_AM_DC_XXX_D1_RK1(rng, rand, mean)
3052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3053 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_DC_XXX_D1_RK1
3056 type(rngf_type) ,
intent(in) :: rng
3057 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3058 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3065 impure module subroutine setUSR_RNGF_DM_AC_UXD_D1_RK5(rng, rand, chol, subset)
3066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3067 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_UXD_D1_RK5
3070 type(rngf_type) ,
intent(in) :: rng
3071 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3072 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3073 type(uppDia_type) ,
intent(in) :: subset
3078 impure module subroutine setUSR_RNGF_DM_AC_UXD_D1_RK4(rng, rand, chol, subset)
3079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3080 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_UXD_D1_RK4
3083 type(rngf_type) ,
intent(in) :: rng
3084 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3085 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3086 type(uppDia_type) ,
intent(in) :: subset
3091 impure module subroutine setUSR_RNGF_DM_AC_UXD_D1_RK3(rng, rand, chol, subset)
3092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3093 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_UXD_D1_RK3
3096 type(rngf_type) ,
intent(in) :: rng
3097 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3098 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3099 type(uppDia_type) ,
intent(in) :: subset
3104 impure module subroutine setUSR_RNGF_DM_AC_UXD_D1_RK2(rng, rand, chol, subset)
3105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3106 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_UXD_D1_RK2
3109 type(rngf_type) ,
intent(in) :: rng
3110 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3111 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3112 type(uppDia_type) ,
intent(in) :: subset
3117 impure module subroutine setUSR_RNGF_DM_AC_UXD_D1_RK1(rng, rand, chol, subset)
3118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3119 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_UXD_D1_RK1
3122 type(rngf_type) ,
intent(in) :: rng
3123 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3124 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3125 type(uppDia_type) ,
intent(in) :: subset
3132 impure module subroutine setUSR_RNGF_DM_AC_XLD_D1_RK5(rng, rand, chol, subset)
3133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3134 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_XLD_D1_RK5
3137 type(rngf_type) ,
intent(in) :: rng
3138 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3139 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3140 type(lowDia_type) ,
intent(in) :: subset
3145 impure module subroutine setUSR_RNGF_DM_AC_XLD_D1_RK4(rng, rand, chol, subset)
3146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3147 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_XLD_D1_RK4
3150 type(rngf_type) ,
intent(in) :: rng
3151 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3152 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3153 type(lowDia_type) ,
intent(in) :: subset
3158 impure module subroutine setUSR_RNGF_DM_AC_XLD_D1_RK3(rng, rand, chol, subset)
3159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3160 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_XLD_D1_RK3
3163 type(rngf_type) ,
intent(in) :: rng
3164 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3165 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3166 type(lowDia_type) ,
intent(in) :: subset
3171 impure module subroutine setUSR_RNGF_DM_AC_XLD_D1_RK2(rng, rand, chol, subset)
3172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3173 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_XLD_D1_RK2
3176 type(rngf_type) ,
intent(in) :: rng
3177 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3178 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3179 type(lowDia_type) ,
intent(in) :: subset
3184 impure module subroutine setUSR_RNGF_DM_AC_XLD_D1_RK1(rng, rand, chol, subset)
3185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3186 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_XLD_D1_RK1
3189 type(rngf_type) ,
intent(in) :: rng
3190 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3191 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3192 type(lowDia_type) ,
intent(in) :: subset
3199 impure module subroutine setUSR_RNGF_AM_AC_UXD_D1_RK5(rng, rand, mean, chol, subset)
3200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3201 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_UXD_D1_RK5
3204 type(rngf_type) ,
intent(in) :: rng
3205 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3206 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3207 type(uppDia_type) ,
intent(in) :: subset
3212 impure module subroutine setUSR_RNGF_AM_AC_UXD_D1_RK4(rng, rand, mean, chol, subset)
3213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3214 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_UXD_D1_RK4
3217 type(rngf_type) ,
intent(in) :: rng
3218 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3219 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3220 type(uppDia_type) ,
intent(in) :: subset
3225 impure module subroutine setUSR_RNGF_AM_AC_UXD_D1_RK3(rng, rand, mean, chol, subset)
3226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3227 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_UXD_D1_RK3
3230 type(rngf_type) ,
intent(in) :: rng
3231 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3232 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3233 type(uppDia_type) ,
intent(in) :: subset
3238 impure module subroutine setUSR_RNGF_AM_AC_UXD_D1_RK2(rng, rand, mean, chol, subset)
3239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3240 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_UXD_D1_RK2
3243 type(rngf_type) ,
intent(in) :: rng
3244 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3245 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3246 type(uppDia_type) ,
intent(in) :: subset
3251 impure module subroutine setUSR_RNGF_AM_AC_UXD_D1_RK1(rng, rand, mean, chol, subset)
3252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3253 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_UXD_D1_RK1
3256 type(rngf_type) ,
intent(in) :: rng
3257 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3258 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3259 type(uppDia_type) ,
intent(in) :: subset
3266 impure module subroutine setUSR_RNGF_AM_AC_XLD_D1_RK5(rng, rand, mean, chol, subset)
3267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3268 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_XLD_D1_RK5
3271 type(rngf_type) ,
intent(in) :: rng
3272 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3273 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3274 type(lowDia_type) ,
intent(in) :: subset
3279 impure module subroutine setUSR_RNGF_AM_AC_XLD_D1_RK4(rng, rand, mean, chol, subset)
3280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3281 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_XLD_D1_RK4
3284 type(rngf_type) ,
intent(in) :: rng
3285 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3286 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3287 type(lowDia_type) ,
intent(in) :: subset
3292 impure module subroutine setUSR_RNGF_AM_AC_XLD_D1_RK3(rng, rand, mean, chol, subset)
3293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3294 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_XLD_D1_RK3
3297 type(rngf_type) ,
intent(in) :: rng
3298 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3299 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3300 type(lowDia_type) ,
intent(in) :: subset
3305 impure module subroutine setUSR_RNGF_AM_AC_XLD_D1_RK2(rng, rand, mean, chol, subset)
3306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3307 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_XLD_D1_RK2
3310 type(rngf_type) ,
intent(in) :: rng
3311 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3312 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3313 type(lowDia_type) ,
intent(in) :: subset
3318 impure module subroutine setUSR_RNGF_AM_AC_XLD_D1_RK1(rng, rand, mean, chol, subset)
3319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3320 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_XLD_D1_RK1
3323 type(rngf_type) ,
intent(in) :: rng
3324 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3325 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3326 type(lowDia_type) ,
intent(in) :: subset
3341 impure module subroutine setUSR_RNGX_DM_DC_XXX_D1_RK5(rng, rand)
3342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3343 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_DC_XXX_D1_RK5
3346 type(xoshiro256ssw_type),
intent(inout) :: rng
3347 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3352 impure module subroutine setUSR_RNGX_DM_DC_XXX_D1_RK4(rng, rand)
3353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3354 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_DC_XXX_D1_RK4
3357 type(xoshiro256ssw_type),
intent(inout) :: rng
3358 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3363 impure module subroutine setUSR_RNGX_DM_DC_XXX_D1_RK3(rng, rand)
3364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3365 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_DC_XXX_D1_RK3
3368 type(xoshiro256ssw_type),
intent(inout) :: rng
3369 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3374 impure module subroutine setUSR_RNGX_DM_DC_XXX_D1_RK2(rng, rand)
3375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3376 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_DC_XXX_D1_RK2
3379 type(xoshiro256ssw_type),
intent(inout) :: rng
3380 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3385 impure module subroutine setUSR_RNGX_DM_DC_XXX_D1_RK1(rng, rand)
3386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3387 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_DC_XXX_D1_RK1
3390 type(xoshiro256ssw_type),
intent(inout) :: rng
3391 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3398 impure module subroutine setUSR_RNGX_AM_DC_XXX_D1_RK5(rng, rand, mean)
3399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3400 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_DC_XXX_D1_RK5
3403 type(xoshiro256ssw_type),
intent(inout) :: rng
3404 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3405 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3410 impure module subroutine setUSR_RNGX_AM_DC_XXX_D1_RK4(rng, rand, mean)
3411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3412 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_DC_XXX_D1_RK4
3415 type(xoshiro256ssw_type),
intent(inout) :: rng
3416 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3417 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3422 impure module subroutine setUSR_RNGX_AM_DC_XXX_D1_RK3(rng, rand, mean)
3423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3424 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_DC_XXX_D1_RK3
3427 type(xoshiro256ssw_type),
intent(inout) :: rng
3428 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3429 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3434 impure module subroutine setUSR_RNGX_AM_DC_XXX_D1_RK2(rng, rand, mean)
3435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3436 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_DC_XXX_D1_RK2
3439 type(xoshiro256ssw_type),
intent(inout) :: rng
3440 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3441 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3446 impure module subroutine setUSR_RNGX_AM_DC_XXX_D1_RK1(rng, rand, mean)
3447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3448 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_DC_XXX_D1_RK1
3451 type(xoshiro256ssw_type),
intent(inout) :: rng
3452 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3453 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3460 impure module subroutine setUSR_RNGX_DM_AC_UXD_D1_RK5(rng, rand, chol, subset)
3461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3462 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_UXD_D1_RK5
3465 type(xoshiro256ssw_type),
intent(inout) :: rng
3466 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3467 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3468 type(uppDia_type) ,
intent(in) :: subset
3473 impure module subroutine setUSR_RNGX_DM_AC_UXD_D1_RK4(rng, rand, chol, subset)
3474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3475 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_UXD_D1_RK4
3478 type(xoshiro256ssw_type),
intent(inout) :: rng
3479 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3480 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3481 type(uppDia_type) ,
intent(in) :: subset
3486 impure module subroutine setUSR_RNGX_DM_AC_UXD_D1_RK3(rng, rand, chol, subset)
3487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3488 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_UXD_D1_RK3
3491 type(xoshiro256ssw_type),
intent(inout) :: rng
3492 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3493 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3494 type(uppDia_type) ,
intent(in) :: subset
3499 impure module subroutine setUSR_RNGX_DM_AC_UXD_D1_RK2(rng, rand, chol, subset)
3500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3501 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_UXD_D1_RK2
3504 type(xoshiro256ssw_type),
intent(inout) :: rng
3505 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3506 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3507 type(uppDia_type) ,
intent(in) :: subset
3512 impure module subroutine setUSR_RNGX_DM_AC_UXD_D1_RK1(rng, rand, chol, subset)
3513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3514 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_UXD_D1_RK1
3517 type(xoshiro256ssw_type),
intent(inout) :: rng
3518 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3519 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3520 type(uppDia_type) ,
intent(in) :: subset
3527 impure module subroutine setUSR_RNGX_DM_AC_XLD_D1_RK5(rng, rand, chol, subset)
3528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3529 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_XLD_D1_RK5
3532 type(xoshiro256ssw_type),
intent(inout) :: rng
3533 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3534 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3535 type(lowDia_type) ,
intent(in) :: subset
3540 impure module subroutine setUSR_RNGX_DM_AC_XLD_D1_RK4(rng, rand, chol, subset)
3541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3542 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_XLD_D1_RK4
3545 type(xoshiro256ssw_type),
intent(inout) :: rng
3546 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3547 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3548 type(lowDia_type) ,
intent(in) :: subset
3553 impure module subroutine setUSR_RNGX_DM_AC_XLD_D1_RK3(rng, rand, chol, subset)
3554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3555 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_XLD_D1_RK3
3558 type(xoshiro256ssw_type),
intent(inout) :: rng
3559 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3560 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3561 type(lowDia_type) ,
intent(in) :: subset
3566 impure module subroutine setUSR_RNGX_DM_AC_XLD_D1_RK2(rng, rand, chol, subset)
3567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3568 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_XLD_D1_RK2
3571 type(xoshiro256ssw_type),
intent(inout) :: rng
3572 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3573 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3574 type(lowDia_type) ,
intent(in) :: subset
3579 impure module subroutine setUSR_RNGX_DM_AC_XLD_D1_RK1(rng, rand, chol, subset)
3580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3581 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_XLD_D1_RK1
3584 type(xoshiro256ssw_type),
intent(inout) :: rng
3585 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3586 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3587 type(lowDia_type) ,
intent(in) :: subset
3594 impure module subroutine setUSR_RNGX_AM_AC_UXD_D1_RK5(rng, rand, mean, chol, subset)
3595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3596 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_UXD_D1_RK5
3599 type(xoshiro256ssw_type),
intent(inout) :: rng
3600 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3601 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3602 type(uppDia_type) ,
intent(in) :: subset
3607 impure module subroutine setUSR_RNGX_AM_AC_UXD_D1_RK4(rng, rand, mean, chol, subset)
3608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3609 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_UXD_D1_RK4
3612 type(xoshiro256ssw_type),
intent(inout) :: rng
3613 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3614 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3615 type(uppDia_type) ,
intent(in) :: subset
3620 impure module subroutine setUSR_RNGX_AM_AC_UXD_D1_RK3(rng, rand, mean, chol, subset)
3621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3622 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_UXD_D1_RK3
3625 type(xoshiro256ssw_type),
intent(inout) :: rng
3626 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3627 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3628 type(uppDia_type) ,
intent(in) :: subset
3633 impure module subroutine setUSR_RNGX_AM_AC_UXD_D1_RK2(rng, rand, mean, chol, subset)
3634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3635 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_UXD_D1_RK2
3638 type(xoshiro256ssw_type),
intent(inout) :: rng
3639 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3640 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3641 type(uppDia_type) ,
intent(in) :: subset
3646 impure module subroutine setUSR_RNGX_AM_AC_UXD_D1_RK1(rng, rand, mean, chol, subset)
3647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3648 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_UXD_D1_RK1
3651 type(xoshiro256ssw_type),
intent(inout) :: rng
3652 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3653 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3654 type(uppDia_type) ,
intent(in) :: subset
3661 impure module subroutine setUSR_RNGX_AM_AC_XLD_D1_RK5(rng, rand, mean, chol, subset)
3662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3663 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_XLD_D1_RK5
3666 type(xoshiro256ssw_type),
intent(inout) :: rng
3667 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3668 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3669 type(lowDia_type) ,
intent(in) :: subset
3674 impure module subroutine setUSR_RNGX_AM_AC_XLD_D1_RK4(rng, rand, mean, chol, subset)
3675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3676 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_XLD_D1_RK4
3679 type(xoshiro256ssw_type),
intent(inout) :: rng
3680 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3681 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3682 type(lowDia_type) ,
intent(in) :: subset
3687 impure module subroutine setUSR_RNGX_AM_AC_XLD_D1_RK3(rng, rand, mean, chol, subset)
3688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3689 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_XLD_D1_RK3
3692 type(xoshiro256ssw_type),
intent(inout) :: rng
3693 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3694 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3695 type(lowDia_type) ,
intent(in) :: subset
3700 impure module subroutine setUSR_RNGX_AM_AC_XLD_D1_RK2(rng, rand, mean, chol, subset)
3701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3702 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_XLD_D1_RK2
3705 type(xoshiro256ssw_type),
intent(inout) :: rng
3706 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3707 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3708 type(lowDia_type) ,
intent(in) :: subset
3713 impure module subroutine setUSR_RNGX_AM_AC_XLD_D1_RK1(rng, rand, mean, chol, subset)
3714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3715 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_XLD_D1_RK1
3718 type(xoshiro256ssw_type),
intent(inout) :: rng
3719 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3720 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3721 type(lowDia_type) ,
intent(in) :: subset
3736 impure module subroutine setUSR_RNGD_DM_DC_XXX_D2_RK5(rand)
3737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3738 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_DC_XXX_D2_RK5
3741 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3746 impure module subroutine setUSR_RNGD_DM_DC_XXX_D2_RK4(rand)
3747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3748 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_DC_XXX_D2_RK4
3751 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3756 impure module subroutine setUSR_RNGD_DM_DC_XXX_D2_RK3(rand)
3757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3758 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_DC_XXX_D2_RK3
3761 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3766 impure module subroutine setUSR_RNGD_DM_DC_XXX_D2_RK2(rand)
3767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3768 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_DC_XXX_D2_RK2
3771 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3776 impure module subroutine setUSR_RNGD_DM_DC_XXX_D2_RK1(rand)
3777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3778 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_DC_XXX_D2_RK1
3781 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3788 impure module subroutine setUSR_RNGD_AM_DC_XXX_D2_RK5(rand, mean)
3789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3790 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_DC_XXX_D2_RK5
3793 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3794 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3799 impure module subroutine setUSR_RNGD_AM_DC_XXX_D2_RK4(rand, mean)
3800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3801 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_DC_XXX_D2_RK4
3804 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3805 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3810 impure module subroutine setUSR_RNGD_AM_DC_XXX_D2_RK3(rand, mean)
3811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3812 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_DC_XXX_D2_RK3
3815 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3816 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3821 impure module subroutine setUSR_RNGD_AM_DC_XXX_D2_RK2(rand, mean)
3822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3823 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_DC_XXX_D2_RK2
3826 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3827 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3832 impure module subroutine setUSR_RNGD_AM_DC_XXX_D2_RK1(rand, mean)
3833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3834 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_DC_XXX_D2_RK1
3837 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3838 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3845 impure module subroutine setUSR_RNGD_DM_AC_UXD_D2_RK5(rand, chol, subset)
3846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3847 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_UXD_D2_RK5
3850 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3851 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3852 type(uppDia_type) ,
intent(in) :: subset
3857 impure module subroutine setUSR_RNGD_DM_AC_UXD_D2_RK4(rand, chol, subset)
3858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3859 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_UXD_D2_RK4
3862 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3863 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3864 type(uppDia_type) ,
intent(in) :: subset
3869 impure module subroutine setUSR_RNGD_DM_AC_UXD_D2_RK3(rand, chol, subset)
3870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3871 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_UXD_D2_RK3
3874 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3875 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3876 type(uppDia_type) ,
intent(in) :: subset
3881 impure module subroutine setUSR_RNGD_DM_AC_UXD_D2_RK2(rand, chol, subset)
3882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3883 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_UXD_D2_RK2
3886 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3887 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3888 type(uppDia_type) ,
intent(in) :: subset
3893 impure module subroutine setUSR_RNGD_DM_AC_UXD_D2_RK1(rand, chol, subset)
3894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3895 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_UXD_D2_RK1
3898 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3899 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3900 type(uppDia_type) ,
intent(in) :: subset
3907 impure module subroutine setUSR_RNGD_DM_AC_XLD_D2_RK5(rand, chol, subset)
3908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3909 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_XLD_D2_RK5
3912 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3913 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3914 type(lowDia_type) ,
intent(in) :: subset
3919 impure module subroutine setUSR_RNGD_DM_AC_XLD_D2_RK4(rand, chol, subset)
3920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3921 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_XLD_D2_RK4
3924 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3925 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3926 type(lowDia_type) ,
intent(in) :: subset
3931 impure module subroutine setUSR_RNGD_DM_AC_XLD_D2_RK3(rand, chol, subset)
3932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3933 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_XLD_D2_RK3
3936 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3937 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3938 type(lowDia_type) ,
intent(in) :: subset
3943 impure module subroutine setUSR_RNGD_DM_AC_XLD_D2_RK2(rand, chol, subset)
3944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3945 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_XLD_D2_RK2
3948 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3949 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3950 type(lowDia_type) ,
intent(in) :: subset
3955 impure module subroutine setUSR_RNGD_DM_AC_XLD_D2_RK1(rand, chol, subset)
3956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3957 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_DM_AC_XLD_D2_RK1
3960 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3961 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3962 type(lowDia_type) ,
intent(in) :: subset
3969 impure module subroutine setUSR_RNGD_AM_AC_UXD_D2_RK5(rand, mean, chol, subset)
3970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3971 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_UXD_D2_RK5
3974 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3975 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3976 type(uppDia_type) ,
intent(in) :: subset
3981 impure module subroutine setUSR_RNGD_AM_AC_UXD_D2_RK4(rand, mean, chol, subset)
3982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3983 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_UXD_D2_RK4
3986 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3987 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3988 type(uppDia_type) ,
intent(in) :: subset
3993 impure module subroutine setUSR_RNGD_AM_AC_UXD_D2_RK3(rand, mean, chol, subset)
3994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3995 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_UXD_D2_RK3
3998 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
3999 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4000 type(uppDia_type) ,
intent(in) :: subset
4005 impure module subroutine setUSR_RNGD_AM_AC_UXD_D2_RK2(rand, mean, chol, subset)
4006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4007 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_UXD_D2_RK2
4010 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4011 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4012 type(uppDia_type) ,
intent(in) :: subset
4017 impure module subroutine setUSR_RNGD_AM_AC_UXD_D2_RK1(rand, mean, chol, subset)
4018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4019 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_UXD_D2_RK1
4022 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4023 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4024 type(uppDia_type) ,
intent(in) :: subset
4031 impure module subroutine setUSR_RNGD_AM_AC_XLD_D2_RK5(rand, mean, chol, subset)
4032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4033 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_XLD_D2_RK5
4036 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4037 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4038 type(lowDia_type) ,
intent(in) :: subset
4043 impure module subroutine setUSR_RNGD_AM_AC_XLD_D2_RK4(rand, mean, chol, subset)
4044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4045 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_XLD_D2_RK4
4048 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4049 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4050 type(lowDia_type) ,
intent(in) :: subset
4055 impure module subroutine setUSR_RNGD_AM_AC_XLD_D2_RK3(rand, mean, chol, subset)
4056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4057 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_XLD_D2_RK3
4060 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4061 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4062 type(lowDia_type) ,
intent(in) :: subset
4067 impure module subroutine setUSR_RNGD_AM_AC_XLD_D2_RK2(rand, mean, chol, subset)
4068#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4069 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_XLD_D2_RK2
4072 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4073 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4074 type(lowDia_type) ,
intent(in) :: subset
4079 impure module subroutine setUSR_RNGD_AM_AC_XLD_D2_RK1(rand, mean, chol, subset)
4080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4081 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGD_AM_AC_XLD_D2_RK1
4084 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4085 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4086 type(lowDia_type) ,
intent(in) :: subset
4101 impure module subroutine setUSR_RNGF_DM_DC_XXX_D2_RK5(rng, rand)
4102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4103 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_DC_XXX_D2_RK5
4106 type(rngf_type) ,
intent(in) :: rng
4107 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4112 impure module subroutine setUSR_RNGF_DM_DC_XXX_D2_RK4(rng, rand)
4113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4114 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_DC_XXX_D2_RK4
4117 type(rngf_type) ,
intent(in) :: rng
4118 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4123 impure module subroutine setUSR_RNGF_DM_DC_XXX_D2_RK3(rng, rand)
4124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4125 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_DC_XXX_D2_RK3
4128 type(rngf_type) ,
intent(in) :: rng
4129 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4134 impure module subroutine setUSR_RNGF_DM_DC_XXX_D2_RK2(rng, rand)
4135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4136 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_DC_XXX_D2_RK2
4139 type(rngf_type) ,
intent(in) :: rng
4140 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4145 impure module subroutine setUSR_RNGF_DM_DC_XXX_D2_RK1(rng, rand)
4146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4147 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_DC_XXX_D2_RK1
4150 type(rngf_type) ,
intent(in) :: rng
4151 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4158 impure module subroutine setUSR_RNGF_AM_DC_XXX_D2_RK5(rng, rand, mean)
4159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4160 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_DC_XXX_D2_RK5
4163 type(rngf_type) ,
intent(in) :: rng
4164 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4165 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4170 impure module subroutine setUSR_RNGF_AM_DC_XXX_D2_RK4(rng, rand, mean)
4171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4172 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_DC_XXX_D2_RK4
4175 type(rngf_type) ,
intent(in) :: rng
4176 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4177 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4182 impure module subroutine setUSR_RNGF_AM_DC_XXX_D2_RK3(rng, rand, mean)
4183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4184 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_DC_XXX_D2_RK3
4187 type(rngf_type) ,
intent(in) :: rng
4188 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4189 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4194 impure module subroutine setUSR_RNGF_AM_DC_XXX_D2_RK2(rng, rand, mean)
4195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4196 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_DC_XXX_D2_RK2
4199 type(rngf_type) ,
intent(in) :: rng
4200 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4201 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4206 impure module subroutine setUSR_RNGF_AM_DC_XXX_D2_RK1(rng, rand, mean)
4207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4208 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_DC_XXX_D2_RK1
4211 type(rngf_type) ,
intent(in) :: rng
4212 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4213 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4220 impure module subroutine setUSR_RNGF_DM_AC_UXD_D2_RK5(rng, rand, chol, subset)
4221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4222 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_UXD_D2_RK5
4225 type(rngf_type) ,
intent(in) :: rng
4226 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4227 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4228 type(uppDia_type) ,
intent(in) :: subset
4233 impure module subroutine setUSR_RNGF_DM_AC_UXD_D2_RK4(rng, rand, chol, subset)
4234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4235 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_UXD_D2_RK4
4238 type(rngf_type) ,
intent(in) :: rng
4239 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4240 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4241 type(uppDia_type) ,
intent(in) :: subset
4246 impure module subroutine setUSR_RNGF_DM_AC_UXD_D2_RK3(rng, rand, chol, subset)
4247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4248 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_UXD_D2_RK3
4251 type(rngf_type) ,
intent(in) :: rng
4252 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4253 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4254 type(uppDia_type) ,
intent(in) :: subset
4259 impure module subroutine setUSR_RNGF_DM_AC_UXD_D2_RK2(rng, rand, chol, subset)
4260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4261 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_UXD_D2_RK2
4264 type(rngf_type) ,
intent(in) :: rng
4265 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4266 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4267 type(uppDia_type) ,
intent(in) :: subset
4272 impure module subroutine setUSR_RNGF_DM_AC_UXD_D2_RK1(rng, rand, chol, subset)
4273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4274 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_UXD_D2_RK1
4277 type(rngf_type) ,
intent(in) :: rng
4278 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4279 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4280 type(uppDia_type) ,
intent(in) :: subset
4287 impure module subroutine setUSR_RNGF_DM_AC_XLD_D2_RK5(rng, rand, chol, subset)
4288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4289 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_XLD_D2_RK5
4292 type(rngf_type) ,
intent(in) :: rng
4293 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4294 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4295 type(lowDia_type) ,
intent(in) :: subset
4300 impure module subroutine setUSR_RNGF_DM_AC_XLD_D2_RK4(rng, rand, chol, subset)
4301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4302 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_XLD_D2_RK4
4305 type(rngf_type) ,
intent(in) :: rng
4306 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4307 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4308 type(lowDia_type) ,
intent(in) :: subset
4313 impure module subroutine setUSR_RNGF_DM_AC_XLD_D2_RK3(rng, rand, chol, subset)
4314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4315 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_XLD_D2_RK3
4318 type(rngf_type) ,
intent(in) :: rng
4319 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4320 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4321 type(lowDia_type) ,
intent(in) :: subset
4326 impure module subroutine setUSR_RNGF_DM_AC_XLD_D2_RK2(rng, rand, chol, subset)
4327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4328 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_XLD_D2_RK2
4331 type(rngf_type) ,
intent(in) :: rng
4332 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4333 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4334 type(lowDia_type) ,
intent(in) :: subset
4339 impure module subroutine setUSR_RNGF_DM_AC_XLD_D2_RK1(rng, rand, chol, subset)
4340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4341 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_DM_AC_XLD_D2_RK1
4344 type(rngf_type) ,
intent(in) :: rng
4345 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4346 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4347 type(lowDia_type) ,
intent(in) :: subset
4354 impure module subroutine setUSR_RNGF_AM_AC_UXD_D2_RK5(rng, rand, mean, chol, subset)
4355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4356 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_UXD_D2_RK5
4359 type(rngf_type) ,
intent(in) :: rng
4360 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4361 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4362 type(uppDia_type) ,
intent(in) :: subset
4367 impure module subroutine setUSR_RNGF_AM_AC_UXD_D2_RK4(rng, rand, mean, chol, subset)
4368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4369 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_UXD_D2_RK4
4372 type(rngf_type) ,
intent(in) :: rng
4373 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4374 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4375 type(uppDia_type) ,
intent(in) :: subset
4380 impure module subroutine setUSR_RNGF_AM_AC_UXD_D2_RK3(rng, rand, mean, chol, subset)
4381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4382 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_UXD_D2_RK3
4385 type(rngf_type) ,
intent(in) :: rng
4386 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4387 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4388 type(uppDia_type) ,
intent(in) :: subset
4393 impure module subroutine setUSR_RNGF_AM_AC_UXD_D2_RK2(rng, rand, mean, chol, subset)
4394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4395 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_UXD_D2_RK2
4398 type(rngf_type) ,
intent(in) :: rng
4399 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4400 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4401 type(uppDia_type) ,
intent(in) :: subset
4406 impure module subroutine setUSR_RNGF_AM_AC_UXD_D2_RK1(rng, rand, mean, chol, subset)
4407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4408 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_UXD_D2_RK1
4411 type(rngf_type) ,
intent(in) :: rng
4412 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4413 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4414 type(uppDia_type) ,
intent(in) :: subset
4421 impure module subroutine setUSR_RNGF_AM_AC_XLD_D2_RK5(rng, rand, mean, chol, subset)
4422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4423 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_XLD_D2_RK5
4426 type(rngf_type) ,
intent(in) :: rng
4427 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4428 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4429 type(lowDia_type) ,
intent(in) :: subset
4434 impure module subroutine setUSR_RNGF_AM_AC_XLD_D2_RK4(rng, rand, mean, chol, subset)
4435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4436 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_XLD_D2_RK4
4439 type(rngf_type) ,
intent(in) :: rng
4440 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4441 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4442 type(lowDia_type) ,
intent(in) :: subset
4447 impure module subroutine setUSR_RNGF_AM_AC_XLD_D2_RK3(rng, rand, mean, chol, subset)
4448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4449 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_XLD_D2_RK3
4452 type(rngf_type) ,
intent(in) :: rng
4453 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4454 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4455 type(lowDia_type) ,
intent(in) :: subset
4460 impure module subroutine setUSR_RNGF_AM_AC_XLD_D2_RK2(rng, rand, mean, chol, subset)
4461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4462 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_XLD_D2_RK2
4465 type(rngf_type) ,
intent(in) :: rng
4466 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4467 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4468 type(lowDia_type) ,
intent(in) :: subset
4473 impure module subroutine setUSR_RNGF_AM_AC_XLD_D2_RK1(rng, rand, mean, chol, subset)
4474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4475 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGF_AM_AC_XLD_D2_RK1
4478 type(rngf_type) ,
intent(in) :: rng
4479 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4480 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4481 type(lowDia_type) ,
intent(in) :: subset
4496 impure module subroutine setUSR_RNGX_DM_DC_XXX_D2_RK5(rng, rand)
4497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4498 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_DC_XXX_D2_RK5
4501 type(xoshiro256ssw_type),
intent(inout) :: rng
4502 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4507 impure module subroutine setUSR_RNGX_DM_DC_XXX_D2_RK4(rng, rand)
4508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4509 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_DC_XXX_D2_RK4
4512 type(xoshiro256ssw_type),
intent(inout) :: rng
4513 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4518 impure module subroutine setUSR_RNGX_DM_DC_XXX_D2_RK3(rng, rand)
4519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4520 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_DC_XXX_D2_RK3
4523 type(xoshiro256ssw_type),
intent(inout) :: rng
4524 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4529 impure module subroutine setUSR_RNGX_DM_DC_XXX_D2_RK2(rng, rand)
4530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4531 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_DC_XXX_D2_RK2
4534 type(xoshiro256ssw_type),
intent(inout) :: rng
4535 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4540 impure module subroutine setUSR_RNGX_DM_DC_XXX_D2_RK1(rng, rand)
4541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4542 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_DC_XXX_D2_RK1
4545 type(xoshiro256ssw_type),
intent(inout) :: rng
4546 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4553 impure module subroutine setUSR_RNGX_AM_DC_XXX_D2_RK5(rng, rand, mean)
4554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4555 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_DC_XXX_D2_RK5
4558 type(xoshiro256ssw_type),
intent(inout) :: rng
4559 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4560 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4565 impure module subroutine setUSR_RNGX_AM_DC_XXX_D2_RK4(rng, rand, mean)
4566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4567 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_DC_XXX_D2_RK4
4570 type(xoshiro256ssw_type),
intent(inout) :: rng
4571 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4572 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4577 impure module subroutine setUSR_RNGX_AM_DC_XXX_D2_RK3(rng, rand, mean)
4578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4579 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_DC_XXX_D2_RK3
4582 type(xoshiro256ssw_type),
intent(inout) :: rng
4583 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4584 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4589 impure module subroutine setUSR_RNGX_AM_DC_XXX_D2_RK2(rng, rand, mean)
4590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4591 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_DC_XXX_D2_RK2
4594 type(xoshiro256ssw_type),
intent(inout) :: rng
4595 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4596 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4601 impure module subroutine setUSR_RNGX_AM_DC_XXX_D2_RK1(rng, rand, mean)
4602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4603 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_DC_XXX_D2_RK1
4606 type(xoshiro256ssw_type),
intent(inout) :: rng
4607 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4608 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4615 impure module subroutine setUSR_RNGX_DM_AC_UXD_D2_RK5(rng, rand, chol, subset)
4616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4617 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_UXD_D2_RK5
4620 type(xoshiro256ssw_type),
intent(inout) :: rng
4621 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4622 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4623 type(uppDia_type) ,
intent(in) :: subset
4628 impure module subroutine setUSR_RNGX_DM_AC_UXD_D2_RK4(rng, rand, chol, subset)
4629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4630 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_UXD_D2_RK4
4633 type(xoshiro256ssw_type),
intent(inout) :: rng
4634 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4635 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4636 type(uppDia_type) ,
intent(in) :: subset
4641 impure module subroutine setUSR_RNGX_DM_AC_UXD_D2_RK3(rng, rand, chol, subset)
4642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4643 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_UXD_D2_RK3
4646 type(xoshiro256ssw_type),
intent(inout) :: rng
4647 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4648 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4649 type(uppDia_type) ,
intent(in) :: subset
4654 impure module subroutine setUSR_RNGX_DM_AC_UXD_D2_RK2(rng, rand, chol, subset)
4655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4656 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_UXD_D2_RK2
4659 type(xoshiro256ssw_type),
intent(inout) :: rng
4660 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4661 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4662 type(uppDia_type) ,
intent(in) :: subset
4667 impure module subroutine setUSR_RNGX_DM_AC_UXD_D2_RK1(rng, rand, chol, subset)
4668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4669 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_UXD_D2_RK1
4672 type(xoshiro256ssw_type),
intent(inout) :: rng
4673 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4674 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4675 type(uppDia_type) ,
intent(in) :: subset
4682 impure module subroutine setUSR_RNGX_DM_AC_XLD_D2_RK5(rng, rand, chol, subset)
4683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4684 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_XLD_D2_RK5
4687 type(xoshiro256ssw_type),
intent(inout) :: rng
4688 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4689 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4690 type(lowDia_type) ,
intent(in) :: subset
4695 impure module subroutine setUSR_RNGX_DM_AC_XLD_D2_RK4(rng, rand, chol, subset)
4696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4697 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_XLD_D2_RK4
4700 type(xoshiro256ssw_type),
intent(inout) :: rng
4701 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4702 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4703 type(lowDia_type) ,
intent(in) :: subset
4708 impure module subroutine setUSR_RNGX_DM_AC_XLD_D2_RK3(rng, rand, chol, subset)
4709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4710 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_XLD_D2_RK3
4713 type(xoshiro256ssw_type),
intent(inout) :: rng
4714 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4715 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4716 type(lowDia_type) ,
intent(in) :: subset
4721 impure module subroutine setUSR_RNGX_DM_AC_XLD_D2_RK2(rng, rand, chol, subset)
4722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4723 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_XLD_D2_RK2
4726 type(xoshiro256ssw_type),
intent(inout) :: rng
4727 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4728 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4729 type(lowDia_type) ,
intent(in) :: subset
4734 impure module subroutine setUSR_RNGX_DM_AC_XLD_D2_RK1(rng, rand, chol, subset)
4735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4736 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_DM_AC_XLD_D2_RK1
4739 type(xoshiro256ssw_type),
intent(inout) :: rng
4740 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4741 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4742 type(lowDia_type) ,
intent(in) :: subset
4749 impure module subroutine setUSR_RNGX_AM_AC_UXD_D2_RK5(rng, rand, mean, chol, subset)
4750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4751 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_UXD_D2_RK5
4754 type(xoshiro256ssw_type),
intent(inout) :: rng
4755 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4756 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4757 type(uppDia_type) ,
intent(in) :: subset
4762 impure module subroutine setUSR_RNGX_AM_AC_UXD_D2_RK4(rng, rand, mean, chol, subset)
4763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4764 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_UXD_D2_RK4
4767 type(xoshiro256ssw_type),
intent(inout) :: rng
4768 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4769 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4770 type(uppDia_type) ,
intent(in) :: subset
4775 impure module subroutine setUSR_RNGX_AM_AC_UXD_D2_RK3(rng, rand, mean, chol, subset)
4776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4777 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_UXD_D2_RK3
4780 type(xoshiro256ssw_type),
intent(inout) :: rng
4781 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4782 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4783 type(uppDia_type) ,
intent(in) :: subset
4788 impure module subroutine setUSR_RNGX_AM_AC_UXD_D2_RK2(rng, rand, mean, chol, subset)
4789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4790 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_UXD_D2_RK2
4793 type(xoshiro256ssw_type),
intent(inout) :: rng
4794 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4795 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4796 type(uppDia_type) ,
intent(in) :: subset
4801 impure module subroutine setUSR_RNGX_AM_AC_UXD_D2_RK1(rng, rand, mean, chol, subset)
4802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4803 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_UXD_D2_RK1
4806 type(xoshiro256ssw_type),
intent(inout) :: rng
4807 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4808 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4809 type(uppDia_type) ,
intent(in) :: subset
4816 impure module subroutine setUSR_RNGX_AM_AC_XLD_D2_RK5(rng, rand, mean, chol, subset)
4817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4818 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_XLD_D2_RK5
4821 type(xoshiro256ssw_type),
intent(inout) :: rng
4822 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4823 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4824 type(lowDia_type) ,
intent(in) :: subset
4829 impure module subroutine setUSR_RNGX_AM_AC_XLD_D2_RK4(rng, rand, mean, chol, subset)
4830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4831 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_XLD_D2_RK4
4834 type(xoshiro256ssw_type),
intent(inout) :: rng
4835 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4836 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4837 type(lowDia_type) ,
intent(in) :: subset
4842 impure module subroutine setUSR_RNGX_AM_AC_XLD_D2_RK3(rng, rand, mean, chol, subset)
4843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4844 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_XLD_D2_RK3
4847 type(xoshiro256ssw_type),
intent(inout) :: rng
4848 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4849 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4850 type(lowDia_type) ,
intent(in) :: subset
4855 impure module subroutine setUSR_RNGX_AM_AC_XLD_D2_RK2(rng, rand, mean, chol, subset)
4856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4857 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_XLD_D2_RK2
4860 type(xoshiro256ssw_type),
intent(inout) :: rng
4861 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4862 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4863 type(lowDia_type) ,
intent(in) :: subset
4868 impure module subroutine setUSR_RNGX_AM_AC_XLD_D2_RK1(rng, rand, mean, chol, subset)
4869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4870 !DEC$ ATTRIBUTES DLLEXPORT :: setUSR_RNGX_AM_AC_XLD_D2_RK1
4873 type(xoshiro256ssw_type),
intent(inout) :: rng
4874 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4875 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4876 type(lowDia_type) ,
intent(in) :: subset
4886end module pm_distUnifSphere
Generate and return the natural logarithm of the Probability Density Function (PDF) of the uniform di...
Generate and return a (collection) of random vector(s) of size ndim uniformly distributed on the surf...
Return a (collection) of random vector(s) of size ndim uniformly distributed on the surface of an -sp...
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for computing various statistical quantities related to t...
character(*, SK), parameter MODULE_NAME
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 abstract and concrete derived types that are required for compile-time resolutio...
type(lowDia_type), parameter lowDia
This is a scalar parameter object of type lowDia_type that is exclusively used to request lower-diago...
type(uppDia_type), parameter uppDia
This is a scalar parameter object of type uppDia_type that is exclusively used to request upper-diago...
This is the derived type for signifying distributions that are of type MultiVariate Uniform Spherical...
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...
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...