187 PURE module function getMultiNormLogPDFNFI_RK5(invCov)
result(logPDFNF)
188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
189 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFI_RK5
192 real(RKG) ,
intent(in),
contiguous :: invCov(:,:)
193 real(RKG) :: logPDFNF
198 PURE module function getMultiNormLogPDFNFI_RK4(invCov)
result(logPDFNF)
199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
200 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFI_RK4
203 real(RKG) ,
intent(in),
contiguous :: invCov(:,:)
204 real(RKG) :: logPDFNF
209 PURE module function getMultiNormLogPDFNFI_RK3(invCov)
result(logPDFNF)
210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
211 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFI_RK3
214 real(RKG) ,
intent(in),
contiguous :: invCov(:,:)
215 real(RKG) :: logPDFNF
220 PURE module function getMultiNormLogPDFNFI_RK2(invCov)
result(logPDFNF)
221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
222 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFI_RK2
225 real(RKG) ,
intent(in),
contiguous :: invCov(:,:)
226 real(RKG) :: logPDFNF
231 PURE module function getMultiNormLogPDFNFI_RK1(invCov)
result(logPDFNF)
232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
233 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFI_RK1
236 real(RKG) ,
intent(in),
contiguous :: invCov(:,:)
237 real(RKG) :: logPDFNF
244 impure module function getMultiNormLogPDFNFIF_RK5(invCov, info)
result(logPDFNF)
245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
246 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFIF_RK5
249 real(RKG) ,
intent(in),
contiguous :: invCov(:,:)
250 integer(IK) ,
intent(out) :: info
251 real(RKG) :: logPDFNF
256 impure module function getMultiNormLogPDFNFIF_RK4(invCov, info)
result(logPDFNF)
257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
258 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFIF_RK4
261 real(RKG) ,
intent(in),
contiguous :: invCov(:,:)
262 integer(IK) ,
intent(out) :: info
263 real(RKG) :: logPDFNF
268 impure module function getMultiNormLogPDFNFIF_RK3(invCov, info)
result(logPDFNF)
269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
270 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFIF_RK3
273 real(RKG) ,
intent(in),
contiguous :: invCov(:,:)
274 integer(IK) ,
intent(out) :: info
275 real(RKG) :: logPDFNF
280 impure module function getMultiNormLogPDFNFIF_RK2(invCov, info)
result(logPDFNF)
281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
282 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFIF_RK2
285 real(RKG) ,
intent(in),
contiguous :: invCov(:,:)
286 integer(IK) ,
intent(out) :: info
287 real(RKG) :: logPDFNF
292 impure module function getMultiNormLogPDFNFIF_RK1(invCov, info)
result(logPDFNF)
293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
294 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFIF_RK1
297 real(RKG) ,
intent(in),
contiguous :: invCov(:,:)
298 integer(IK) ,
intent(out) :: info
299 real(RKG) :: logPDFNF
306 PURE elemental module function getMultiNormLogPDFNFND_RK5(ndim, logSqrtDetInvCov)
result(logPDFNF)
307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
308 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFND_RK5
311 integer(IK) ,
intent(in) :: ndim
312 real(RKG) ,
intent(in) :: logSqrtDetInvCov
313 real(RKG) :: logPDFNF
318 PURE elemental module function getMultiNormLogPDFNFND_RK4(ndim, logSqrtDetInvCov)
result(logPDFNF)
319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
320 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFND_RK4
323 integer(IK) ,
intent(in) :: ndim
324 real(RKG) ,
intent(in) :: logSqrtDetInvCov
325 real(RKG) :: logPDFNF
330 PURE elemental module function getMultiNormLogPDFNFND_RK3(ndim, logSqrtDetInvCov)
result(logPDFNF)
331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
332 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFND_RK3
335 integer(IK) ,
intent(in) :: ndim
336 real(RKG) ,
intent(in) :: logSqrtDetInvCov
337 real(RKG) :: logPDFNF
342 PURE elemental module function getMultiNormLogPDFNFND_RK2(ndim, logSqrtDetInvCov)
result(logPDFNF)
343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
344 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFND_RK2
347 integer(IK) ,
intent(in) :: ndim
348 real(RKG) ,
intent(in) :: logSqrtDetInvCov
349 real(RKG) :: logPDFNF
354 PURE elemental module function getMultiNormLogPDFNFND_RK1(ndim, logSqrtDetInvCov)
result(logPDFNF)
355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
356 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFNFND_RK1
359 integer(IK) ,
intent(in) :: ndim
360 real(RKG) ,
intent(in) :: logSqrtDetInvCov
361 real(RKG) :: logPDFNF
454 PURE module function getMultiNormLogPDFDDD_D1_RK5(X)
result(logPDF)
455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
456 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDDD_D1_RK5
459 real(RKG) ,
intent(in) ,
contiguous :: X(:)
465 PURE module function getMultiNormLogPDFDDD_D1_RK4(X)
result(logPDF)
466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
467 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDDD_D1_RK4
470 real(RKG) ,
intent(in) ,
contiguous :: X(:)
476 PURE module function getMultiNormLogPDFDDD_D1_RK3(X)
result(logPDF)
477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
478 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDDD_D1_RK3
481 real(RKG) ,
intent(in) ,
contiguous :: X(:)
487 PURE module function getMultiNormLogPDFDDD_D1_RK2(X)
result(logPDF)
488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
489 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDDD_D1_RK2
492 real(RKG) ,
intent(in) ,
contiguous :: X(:)
498 PURE module function getMultiNormLogPDFDDD_D1_RK1(X)
result(logPDF)
499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
500 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDDD_D1_RK1
503 real(RKG) ,
intent(in) ,
contiguous :: X(:)
511 PURE module function getMultiNormLogPDFDDN_D1_RK5(X, logPDFNF)
result(logPDF)
512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
513 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDDN_D1_RK5
516 real(RKG) ,
intent(in) ,
contiguous :: X(:)
517 real(RKG) ,
intent(in) :: logPDFNF
523 PURE module function getMultiNormLogPDFDDN_D1_RK4(X, logPDFNF)
result(logPDF)
524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
525 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDDN_D1_RK4
528 real(RKG) ,
intent(in) ,
contiguous :: X(:)
529 real(RKG) ,
intent(in) :: logPDFNF
535 PURE module function getMultiNormLogPDFDDN_D1_RK3(X, logPDFNF)
result(logPDF)
536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
537 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDDN_D1_RK3
540 real(RKG) ,
intent(in) ,
contiguous :: X(:)
541 real(RKG) ,
intent(in) :: logPDFNF
547 PURE module function getMultiNormLogPDFDDN_D1_RK2(X, logPDFNF)
result(logPDF)
548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
549 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDDN_D1_RK2
552 real(RKG) ,
intent(in) ,
contiguous :: X(:)
553 real(RKG) ,
intent(in) :: logPDFNF
559 PURE module function getMultiNormLogPDFDDN_D1_RK1(X, logPDFNF)
result(logPDF)
560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
561 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDDN_D1_RK1
564 real(RKG) ,
intent(in) ,
contiguous :: X(:)
565 real(RKG) ,
intent(in) :: logPDFNF
573 PURE module function getMultiNormLogPDFMDD_D1_RK5(X, mean)
result(logPDF)
574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
575 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMDD_D1_RK5
578 real(RKG) ,
intent(in) ,
contiguous :: X(:)
579 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
585 PURE module function getMultiNormLogPDFMDD_D1_RK4(X, mean)
result(logPDF)
586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
587 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMDD_D1_RK4
590 real(RKG) ,
intent(in) ,
contiguous :: X(:)
591 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
597 PURE module function getMultiNormLogPDFMDD_D1_RK3(X, mean)
result(logPDF)
598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
599 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMDD_D1_RK3
602 real(RKG) ,
intent(in) ,
contiguous :: X(:)
603 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
609 PURE module function getMultiNormLogPDFMDD_D1_RK2(X, mean)
result(logPDF)
610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
611 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMDD_D1_RK2
614 real(RKG) ,
intent(in) ,
contiguous :: X(:)
615 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
621 PURE module function getMultiNormLogPDFMDD_D1_RK1(X, mean)
result(logPDF)
622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
623 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMDD_D1_RK1
626 real(RKG) ,
intent(in) ,
contiguous :: X(:)
627 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
635 PURE module function getMultiNormLogPDFMDN_D1_RK5(X, mean, logPDFNF)
result(logPDF)
636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
637 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMDN_D1_RK5
640 real(RKG) ,
intent(in) ,
contiguous :: X(:)
641 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
642 real(RKG) ,
intent(in) :: logPDFNF
648 PURE module function getMultiNormLogPDFMDN_D1_RK4(X, mean, logPDFNF)
result(logPDF)
649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
650 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMDN_D1_RK4
653 real(RKG) ,
intent(in) ,
contiguous :: X(:)
654 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
655 real(RKG) ,
intent(in) :: logPDFNF
661 PURE module function getMultiNormLogPDFMDN_D1_RK3(X, mean, logPDFNF)
result(logPDF)
662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
663 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMDN_D1_RK3
666 real(RKG) ,
intent(in) ,
contiguous :: X(:)
667 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
668 real(RKG) ,
intent(in) :: logPDFNF
674 PURE module function getMultiNormLogPDFMDN_D1_RK2(X, mean, logPDFNF)
result(logPDF)
675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
676 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMDN_D1_RK2
679 real(RKG) ,
intent(in) ,
contiguous :: X(:)
680 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
681 real(RKG) ,
intent(in) :: logPDFNF
687 PURE module function getMultiNormLogPDFMDN_D1_RK1(X, mean, logPDFNF)
result(logPDF)
688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
689 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMDN_D1_RK1
692 real(RKG) ,
intent(in) ,
contiguous :: X(:)
693 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
694 real(RKG) ,
intent(in) :: logPDFNF
702 PURE module function getMultiNormLogPDFDID_D1_RK5(X, invCov)
result(logPDF)
703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
704 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDID_D1_RK5
707 real(RKG) ,
intent(in) ,
contiguous :: X(:)
708 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
714 PURE module function getMultiNormLogPDFDID_D1_RK4(X, invCov)
result(logPDF)
715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
716 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDID_D1_RK4
719 real(RKG) ,
intent(in) ,
contiguous :: X(:)
720 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
726 PURE module function getMultiNormLogPDFDID_D1_RK3(X, invCov)
result(logPDF)
727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
728 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDID_D1_RK3
731 real(RKG) ,
intent(in) ,
contiguous :: X(:)
732 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
738 PURE module function getMultiNormLogPDFDID_D1_RK2(X, invCov)
result(logPDF)
739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
740 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDID_D1_RK2
743 real(RKG) ,
intent(in) ,
contiguous :: X(:)
744 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
750 PURE module function getMultiNormLogPDFDID_D1_RK1(X, invCov)
result(logPDF)
751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
752 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDID_D1_RK1
755 real(RKG) ,
intent(in) ,
contiguous :: X(:)
756 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
764 PURE module function getMultiNormLogPDFDIN_D1_RK5(X, invCov, logPDFNF)
result(logPDF)
765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
766 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDIN_D1_RK5
769 real(RKG) ,
intent(in) ,
contiguous :: X(:)
770 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
771 real(RKG) ,
intent(in) :: logPDFNF
777 PURE module function getMultiNormLogPDFDIN_D1_RK4(X, invCov, logPDFNF)
result(logPDF)
778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
779 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDIN_D1_RK4
782 real(RKG) ,
intent(in) ,
contiguous :: X(:)
783 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
784 real(RKG) ,
intent(in) :: logPDFNF
790 PURE module function getMultiNormLogPDFDIN_D1_RK3(X, invCov, logPDFNF)
result(logPDF)
791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
792 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDIN_D1_RK3
795 real(RKG) ,
intent(in) ,
contiguous :: X(:)
796 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
797 real(RKG) ,
intent(in) :: logPDFNF
803 PURE module function getMultiNormLogPDFDIN_D1_RK2(X, invCov, logPDFNF)
result(logPDF)
804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
805 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDIN_D1_RK2
808 real(RKG) ,
intent(in) ,
contiguous :: X(:)
809 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
810 real(RKG) ,
intent(in) :: logPDFNF
816 PURE module function getMultiNormLogPDFDIN_D1_RK1(X, invCov, logPDFNF)
result(logPDF)
817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
818 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFDIN_D1_RK1
821 real(RKG) ,
intent(in) ,
contiguous :: X(:)
822 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
823 real(RKG) ,
intent(in) :: logPDFNF
831 PURE module function getMultiNormLogPDFMID_D1_RK5(X, mean, invCov)
result(logPDF)
832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
833 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMID_D1_RK5
836 real(RKG) ,
intent(in) ,
contiguous :: X(:)
837 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
838 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
844 PURE module function getMultiNormLogPDFMID_D1_RK4(X, mean, invCov)
result(logPDF)
845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
846 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMID_D1_RK4
849 real(RKG) ,
intent(in) ,
contiguous :: X(:)
850 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
851 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
857 PURE module function getMultiNormLogPDFMID_D1_RK3(X, mean, invCov)
result(logPDF)
858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
859 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMID_D1_RK3
862 real(RKG) ,
intent(in) ,
contiguous :: X(:)
863 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
864 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
870 PURE module function getMultiNormLogPDFMID_D1_RK2(X, mean, invCov)
result(logPDF)
871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
872 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMID_D1_RK2
875 real(RKG) ,
intent(in) ,
contiguous :: X(:)
876 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
877 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
883 PURE module function getMultiNormLogPDFMID_D1_RK1(X, mean, invCov)
result(logPDF)
884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
885 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMID_D1_RK1
888 real(RKG) ,
intent(in) ,
contiguous :: X(:)
889 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
890 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
898 PURE module function getMultiNormLogPDFMIN_D1_RK5(X, mean, invCov, logPDFNF)
result(logPDF)
899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
900 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMIN_D1_RK5
903 real(RKG) ,
intent(in) ,
contiguous :: X(:)
904 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
905 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
906 real(RKG) ,
intent(in) :: logPDFNF
912 PURE module function getMultiNormLogPDFMIN_D1_RK4(X, mean, invCov, logPDFNF)
result(logPDF)
913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
914 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMIN_D1_RK4
917 real(RKG) ,
intent(in) ,
contiguous :: X(:)
918 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
919 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
920 real(RKG) ,
intent(in) :: logPDFNF
926 PURE module function getMultiNormLogPDFMIN_D1_RK3(X, mean, invCov, logPDFNF)
result(logPDF)
927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
928 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMIN_D1_RK3
931 real(RKG) ,
intent(in) ,
contiguous :: X(:)
932 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
933 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
934 real(RKG) ,
intent(in) :: logPDFNF
940 PURE module function getMultiNormLogPDFMIN_D1_RK2(X, mean, invCov, logPDFNF)
result(logPDF)
941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
942 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMIN_D1_RK2
945 real(RKG) ,
intent(in) ,
contiguous :: X(:)
946 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
947 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
948 real(RKG) ,
intent(in) :: logPDFNF
954 PURE module function getMultiNormLogPDFMIN_D1_RK1(X, mean, invCov, logPDFNF)
result(logPDF)
955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
956 !DEC$ ATTRIBUTES DLLEXPORT :: getMultiNormLogPDFMIN_D1_RK1
959 real(RKG) ,
intent(in) ,
contiguous :: X(:)
960 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
961 real(RKG) ,
intent(in) ,
contiguous :: invCov(:,:)
962 real(RKG) ,
intent(in) :: logPDFNF
1097 impure module function getMNR_RNGD_AM_DC_XXX_D1_RK5(mean)
result(rand)
1098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1099 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_DC_XXX_D1_RK5
1102 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1103 real(RKG) :: rand(
size(mean,
1, IK))
1108 impure module function getMNR_RNGD_AM_DC_XXX_D1_RK4(mean)
result(rand)
1109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1110 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_DC_XXX_D1_RK4
1113 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1114 real(RKG) :: rand(
size(mean,
1, IK))
1119 impure module function getMNR_RNGD_AM_DC_XXX_D1_RK3(mean)
result(rand)
1120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1121 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_DC_XXX_D1_RK3
1124 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1125 real(RKG) :: rand(
size(mean,
1, IK))
1130 impure module function getMNR_RNGD_AM_DC_XXX_D1_RK2(mean)
result(rand)
1131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1132 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_DC_XXX_D1_RK2
1135 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1136 real(RKG) :: rand(
size(mean,
1, IK))
1141 impure module function getMNR_RNGD_AM_DC_XXX_D1_RK1(mean)
result(rand)
1142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1143 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_DC_XXX_D1_RK1
1146 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1147 real(RKG) :: rand(
size(mean,
1, IK))
1154 impure module function getMNR_RNGD_DM_AC_UXD_D1_RK5(chol, subset)
result(rand)
1155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1156 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_UXD_D1_RK5
1159 type(uppDia_type) ,
intent(in) :: subset
1160 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1161 real(RKG) :: rand(
size(chol,
1, IK))
1166 impure module function getMNR_RNGD_DM_AC_UXD_D1_RK4(chol, subset)
result(rand)
1167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1168 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_UXD_D1_RK4
1171 type(uppDia_type) ,
intent(in) :: subset
1172 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1173 real(RKG) :: rand(
size(chol,
1, IK))
1178 impure module function getMNR_RNGD_DM_AC_UXD_D1_RK3(chol, subset)
result(rand)
1179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1180 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_UXD_D1_RK3
1183 type(uppDia_type) ,
intent(in) :: subset
1184 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1185 real(RKG) :: rand(
size(chol,
1, IK))
1190 impure module function getMNR_RNGD_DM_AC_UXD_D1_RK2(chol, subset)
result(rand)
1191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1192 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_UXD_D1_RK2
1195 type(uppDia_type) ,
intent(in) :: subset
1196 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1197 real(RKG) :: rand(
size(chol,
1, IK))
1202 impure module function getMNR_RNGD_DM_AC_UXD_D1_RK1(chol, subset)
result(rand)
1203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1204 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_UXD_D1_RK1
1207 type(uppDia_type) ,
intent(in) :: subset
1208 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1209 real(RKG) :: rand(
size(chol,
1, IK))
1216 impure module function getMNR_RNGD_DM_AC_XLD_D1_RK5(chol, subset)
result(rand)
1217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1218 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_XLD_D1_RK5
1221 type(lowDia_type) ,
intent(in) :: subset
1222 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1223 real(RKG) :: rand(
size(chol,
1, IK))
1228 impure module function getMNR_RNGD_DM_AC_XLD_D1_RK4(chol, subset)
result(rand)
1229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1230 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_XLD_D1_RK4
1233 type(lowDia_type) ,
intent(in) :: subset
1234 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1235 real(RKG) :: rand(
size(chol,
1, IK))
1240 impure module function getMNR_RNGD_DM_AC_XLD_D1_RK3(chol, subset)
result(rand)
1241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1242 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_XLD_D1_RK3
1245 type(lowDia_type) ,
intent(in) :: subset
1246 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1247 real(RKG) :: rand(
size(chol,
1, IK))
1252 impure module function getMNR_RNGD_DM_AC_XLD_D1_RK2(chol, subset)
result(rand)
1253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1254 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_XLD_D1_RK2
1257 type(lowDia_type) ,
intent(in) :: subset
1258 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1259 real(RKG) :: rand(
size(chol,
1, IK))
1264 impure module function getMNR_RNGD_DM_AC_XLD_D1_RK1(chol, subset)
result(rand)
1265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1266 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_XLD_D1_RK1
1269 type(lowDia_type) ,
intent(in) :: subset
1270 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1271 real(RKG) :: rand(
size(chol,
1, IK))
1278 impure module function getMNR_RNGD_AM_AC_UXD_D1_RK5(mean, chol, subset)
result(rand)
1279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1280 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_UXD_D1_RK5
1283 type(uppDia_type) ,
intent(in) :: subset
1284 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1285 real(RKG) :: rand(
size(chol,
1, IK))
1290 impure module function getMNR_RNGD_AM_AC_UXD_D1_RK4(mean, chol, subset)
result(rand)
1291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1292 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_UXD_D1_RK4
1295 type(uppDia_type) ,
intent(in) :: subset
1296 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1297 real(RKG) :: rand(
size(chol,
1, IK))
1302 impure module function getMNR_RNGD_AM_AC_UXD_D1_RK3(mean, chol, subset)
result(rand)
1303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1304 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_UXD_D1_RK3
1307 type(uppDia_type) ,
intent(in) :: subset
1308 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1309 real(RKG) :: rand(
size(chol,
1, IK))
1314 impure module function getMNR_RNGD_AM_AC_UXD_D1_RK2(mean, chol, subset)
result(rand)
1315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1316 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_UXD_D1_RK2
1319 type(uppDia_type) ,
intent(in) :: subset
1320 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1321 real(RKG) :: rand(
size(chol,
1, IK))
1326 impure module function getMNR_RNGD_AM_AC_UXD_D1_RK1(mean, chol, subset)
result(rand)
1327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1328 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_UXD_D1_RK1
1331 type(uppDia_type) ,
intent(in) :: subset
1332 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1333 real(RKG) :: rand(
size(chol,
1, IK))
1340 impure module function getMNR_RNGD_AM_AC_XLD_D1_RK5(mean, chol, subset)
result(rand)
1341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1342 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_XLD_D1_RK5
1345 type(lowDia_type) ,
intent(in) :: subset
1346 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1347 real(RKG) :: rand(
size(chol,
1, IK))
1352 impure module function getMNR_RNGD_AM_AC_XLD_D1_RK4(mean, chol, subset)
result(rand)
1353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1354 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_XLD_D1_RK4
1357 type(lowDia_type) ,
intent(in) :: subset
1358 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1359 real(RKG) :: rand(
size(chol,
1, IK))
1364 impure module function getMNR_RNGD_AM_AC_XLD_D1_RK3(mean, chol, subset)
result(rand)
1365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1366 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_XLD_D1_RK3
1369 type(lowDia_type) ,
intent(in) :: subset
1370 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1371 real(RKG) :: rand(
size(chol,
1, IK))
1376 impure module function getMNR_RNGD_AM_AC_XLD_D1_RK2(mean, chol, subset)
result(rand)
1377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1378 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_XLD_D1_RK2
1381 type(lowDia_type) ,
intent(in) :: subset
1382 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1383 real(RKG) :: rand(
size(chol,
1, IK))
1388 impure module function getMNR_RNGD_AM_AC_XLD_D1_RK1(mean, chol, subset)
result(rand)
1389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1390 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_XLD_D1_RK1
1393 type(lowDia_type) ,
intent(in) :: subset
1394 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1395 real(RKG) :: rand(
size(chol,
1, IK))
1410 impure module function getMNR_RNGF_AM_DC_XXX_D1_RK5(rng, mean)
result(rand)
1411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1412 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_DC_XXX_D1_RK5
1415 type(rngf_type) ,
intent(in) :: rng
1416 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1417 real(RKG) :: rand(
size(mean,
1, IK))
1422 impure module function getMNR_RNGF_AM_DC_XXX_D1_RK4(rng, mean)
result(rand)
1423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1424 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_DC_XXX_D1_RK4
1427 type(rngf_type) ,
intent(in) :: rng
1428 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1429 real(RKG) :: rand(
size(mean,
1, IK))
1434 impure module function getMNR_RNGF_AM_DC_XXX_D1_RK3(rng, mean)
result(rand)
1435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1436 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_DC_XXX_D1_RK3
1439 type(rngf_type) ,
intent(in) :: rng
1440 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1441 real(RKG) :: rand(
size(mean,
1, IK))
1446 impure module function getMNR_RNGF_AM_DC_XXX_D1_RK2(rng, mean)
result(rand)
1447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1448 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_DC_XXX_D1_RK2
1451 type(rngf_type) ,
intent(in) :: rng
1452 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1453 real(RKG) :: rand(
size(mean,
1, IK))
1458 impure module function getMNR_RNGF_AM_DC_XXX_D1_RK1(rng, mean)
result(rand)
1459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1460 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_DC_XXX_D1_RK1
1463 type(rngf_type) ,
intent(in) :: rng
1464 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1465 real(RKG) :: rand(
size(mean,
1, IK))
1472 impure module function getMNR_RNGF_DM_AC_UXD_D1_RK5(rng, chol, subset)
result(rand)
1473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1474 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_UXD_D1_RK5
1477 type(rngf_type) ,
intent(in) :: rng
1478 type(uppDia_type) ,
intent(in) :: subset
1479 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1480 real(RKG) :: rand(
size(chol,
1, IK))
1485 impure module function getMNR_RNGF_DM_AC_UXD_D1_RK4(rng, chol, subset)
result(rand)
1486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1487 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_UXD_D1_RK4
1490 type(rngf_type) ,
intent(in) :: rng
1491 type(uppDia_type) ,
intent(in) :: subset
1492 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1493 real(RKG) :: rand(
size(chol,
1, IK))
1498 impure module function getMNR_RNGF_DM_AC_UXD_D1_RK3(rng, chol, subset)
result(rand)
1499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1500 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_UXD_D1_RK3
1503 type(rngf_type) ,
intent(in) :: rng
1504 type(uppDia_type) ,
intent(in) :: subset
1505 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1506 real(RKG) :: rand(
size(chol,
1, IK))
1511 impure module function getMNR_RNGF_DM_AC_UXD_D1_RK2(rng, chol, subset)
result(rand)
1512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1513 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_UXD_D1_RK2
1516 type(rngf_type) ,
intent(in) :: rng
1517 type(uppDia_type) ,
intent(in) :: subset
1518 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1519 real(RKG) :: rand(
size(chol,
1, IK))
1524 impure module function getMNR_RNGF_DM_AC_UXD_D1_RK1(rng, chol, subset)
result(rand)
1525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1526 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_UXD_D1_RK1
1529 type(rngf_type) ,
intent(in) :: rng
1530 type(uppDia_type) ,
intent(in) :: subset
1531 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1532 real(RKG) :: rand(
size(chol,
1, IK))
1539 impure module function getMNR_RNGF_DM_AC_XLD_D1_RK5(rng, chol, subset)
result(rand)
1540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1541 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_XLD_D1_RK5
1544 type(rngf_type) ,
intent(in) :: rng
1545 type(lowDia_type) ,
intent(in) :: subset
1546 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1547 real(RKG) :: rand(
size(chol,
1, IK))
1552 impure module function getMNR_RNGF_DM_AC_XLD_D1_RK4(rng, chol, subset)
result(rand)
1553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1554 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_XLD_D1_RK4
1557 type(rngf_type) ,
intent(in) :: rng
1558 type(lowDia_type) ,
intent(in) :: subset
1559 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1560 real(RKG) :: rand(
size(chol,
1, IK))
1565 impure module function getMNR_RNGF_DM_AC_XLD_D1_RK3(rng, chol, subset)
result(rand)
1566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1567 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_XLD_D1_RK3
1570 type(rngf_type) ,
intent(in) :: rng
1571 type(lowDia_type) ,
intent(in) :: subset
1572 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1573 real(RKG) :: rand(
size(chol,
1, IK))
1578 impure module function getMNR_RNGF_DM_AC_XLD_D1_RK2(rng, chol, subset)
result(rand)
1579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1580 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_XLD_D1_RK2
1583 type(rngf_type) ,
intent(in) :: rng
1584 type(lowDia_type) ,
intent(in) :: subset
1585 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1586 real(RKG) :: rand(
size(chol,
1, IK))
1591 impure module function getMNR_RNGF_DM_AC_XLD_D1_RK1(rng, chol, subset)
result(rand)
1592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1593 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_XLD_D1_RK1
1596 type(rngf_type) ,
intent(in) :: rng
1597 type(lowDia_type) ,
intent(in) :: subset
1598 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1599 real(RKG) :: rand(
size(chol,
1, IK))
1606 impure module function getMNR_RNGF_AM_AC_UXD_D1_RK5(rng, mean, chol, subset)
result(rand)
1607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1608 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_UXD_D1_RK5
1611 type(rngf_type) ,
intent(in) :: rng
1612 type(uppDia_type) ,
intent(in) :: subset
1613 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1614 real(RKG) :: rand(
size(chol,
1, IK))
1619 impure module function getMNR_RNGF_AM_AC_UXD_D1_RK4(rng, mean, chol, subset)
result(rand)
1620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1621 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_UXD_D1_RK4
1624 type(rngf_type) ,
intent(in) :: rng
1625 type(uppDia_type) ,
intent(in) :: subset
1626 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1627 real(RKG) :: rand(
size(chol,
1, IK))
1632 impure module function getMNR_RNGF_AM_AC_UXD_D1_RK3(rng, mean, chol, subset)
result(rand)
1633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1634 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_UXD_D1_RK3
1637 type(rngf_type) ,
intent(in) :: rng
1638 type(uppDia_type) ,
intent(in) :: subset
1639 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1640 real(RKG) :: rand(
size(chol,
1, IK))
1645 impure module function getMNR_RNGF_AM_AC_UXD_D1_RK2(rng, mean, chol, subset)
result(rand)
1646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1647 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_UXD_D1_RK2
1650 type(rngf_type) ,
intent(in) :: rng
1651 type(uppDia_type) ,
intent(in) :: subset
1652 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1653 real(RKG) :: rand(
size(chol,
1, IK))
1658 impure module function getMNR_RNGF_AM_AC_UXD_D1_RK1(rng, mean, chol, subset)
result(rand)
1659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1660 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_UXD_D1_RK1
1663 type(rngf_type) ,
intent(in) :: rng
1664 type(uppDia_type) ,
intent(in) :: subset
1665 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1666 real(RKG) :: rand(
size(chol,
1, IK))
1673 impure module function getMNR_RNGF_AM_AC_XLD_D1_RK5(rng, mean, chol, subset)
result(rand)
1674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1675 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_XLD_D1_RK5
1678 type(rngf_type) ,
intent(in) :: rng
1679 type(lowDia_type) ,
intent(in) :: subset
1680 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1681 real(RKG) :: rand(
size(chol,
1, IK))
1686 impure module function getMNR_RNGF_AM_AC_XLD_D1_RK4(rng, mean, chol, subset)
result(rand)
1687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1688 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_XLD_D1_RK4
1691 type(rngf_type) ,
intent(in) :: rng
1692 type(lowDia_type) ,
intent(in) :: subset
1693 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1694 real(RKG) :: rand(
size(chol,
1, IK))
1699 impure module function getMNR_RNGF_AM_AC_XLD_D1_RK3(rng, mean, chol, subset)
result(rand)
1700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1701 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_XLD_D1_RK3
1704 type(rngf_type) ,
intent(in) :: rng
1705 type(lowDia_type) ,
intent(in) :: subset
1706 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1707 real(RKG) :: rand(
size(chol,
1, IK))
1712 impure module function getMNR_RNGF_AM_AC_XLD_D1_RK2(rng, mean, chol, subset)
result(rand)
1713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1714 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_XLD_D1_RK2
1717 type(rngf_type) ,
intent(in) :: rng
1718 type(lowDia_type) ,
intent(in) :: subset
1719 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1720 real(RKG) :: rand(
size(chol,
1, IK))
1725 impure module function getMNR_RNGF_AM_AC_XLD_D1_RK1(rng, mean, chol, subset)
result(rand)
1726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1727 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_XLD_D1_RK1
1730 type(rngf_type) ,
intent(in) :: rng
1731 type(lowDia_type) ,
intent(in) :: subset
1732 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1733 real(RKG) :: rand(
size(chol,
1, IK))
1748 impure module function getMNR_RNGX_AM_DC_XXX_D1_RK5(rng, mean)
result(rand)
1749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1750 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_DC_XXX_D1_RK5
1753 type(xoshiro256ssw_type),
intent(inout) :: rng
1754 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1755 real(RKG) :: rand(
size(mean,
1, IK))
1760 impure module function getMNR_RNGX_AM_DC_XXX_D1_RK4(rng, mean)
result(rand)
1761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1762 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_DC_XXX_D1_RK4
1765 type(xoshiro256ssw_type),
intent(inout) :: rng
1766 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1767 real(RKG) :: rand(
size(mean,
1, IK))
1772 impure module function getMNR_RNGX_AM_DC_XXX_D1_RK3(rng, mean)
result(rand)
1773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1774 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_DC_XXX_D1_RK3
1777 type(xoshiro256ssw_type),
intent(inout) :: rng
1778 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1779 real(RKG) :: rand(
size(mean,
1, IK))
1784 impure module function getMNR_RNGX_AM_DC_XXX_D1_RK2(rng, mean)
result(rand)
1785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1786 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_DC_XXX_D1_RK2
1789 type(xoshiro256ssw_type),
intent(inout) :: rng
1790 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1791 real(RKG) :: rand(
size(mean,
1, IK))
1796 impure module function getMNR_RNGX_AM_DC_XXX_D1_RK1(rng, mean)
result(rand)
1797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1798 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_DC_XXX_D1_RK1
1801 type(xoshiro256ssw_type),
intent(inout) :: rng
1802 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
1803 real(RKG) :: rand(
size(mean,
1, IK))
1810 impure module function getMNR_RNGX_DM_AC_UXD_D1_RK5(rng, chol, subset)
result(rand)
1811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1812 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_UXD_D1_RK5
1815 type(xoshiro256ssw_type),
intent(inout) :: rng
1816 type(uppDia_type) ,
intent(in) :: subset
1817 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1818 real(RKG) :: rand(
size(chol,
1, IK))
1823 impure module function getMNR_RNGX_DM_AC_UXD_D1_RK4(rng, chol, subset)
result(rand)
1824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1825 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_UXD_D1_RK4
1828 type(xoshiro256ssw_type),
intent(inout) :: rng
1829 type(uppDia_type) ,
intent(in) :: subset
1830 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1831 real(RKG) :: rand(
size(chol,
1, IK))
1836 impure module function getMNR_RNGX_DM_AC_UXD_D1_RK3(rng, chol, subset)
result(rand)
1837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1838 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_UXD_D1_RK3
1841 type(xoshiro256ssw_type),
intent(inout) :: rng
1842 type(uppDia_type) ,
intent(in) :: subset
1843 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1844 real(RKG) :: rand(
size(chol,
1, IK))
1849 impure module function getMNR_RNGX_DM_AC_UXD_D1_RK2(rng, chol, subset)
result(rand)
1850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1851 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_UXD_D1_RK2
1854 type(xoshiro256ssw_type),
intent(inout) :: rng
1855 type(uppDia_type) ,
intent(in) :: subset
1856 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1857 real(RKG) :: rand(
size(chol,
1, IK))
1862 impure module function getMNR_RNGX_DM_AC_UXD_D1_RK1(rng, chol, subset)
result(rand)
1863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1864 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_UXD_D1_RK1
1867 type(xoshiro256ssw_type),
intent(inout) :: rng
1868 type(uppDia_type) ,
intent(in) :: subset
1869 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1870 real(RKG) :: rand(
size(chol,
1, IK))
1877 impure module function getMNR_RNGX_DM_AC_XLD_D1_RK5(rng, chol, subset)
result(rand)
1878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1879 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_XLD_D1_RK5
1882 type(xoshiro256ssw_type),
intent(inout) :: rng
1883 type(lowDia_type) ,
intent(in) :: subset
1884 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1885 real(RKG) :: rand(
size(chol,
1, IK))
1890 impure module function getMNR_RNGX_DM_AC_XLD_D1_RK4(rng, chol, subset)
result(rand)
1891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1892 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_XLD_D1_RK4
1895 type(xoshiro256ssw_type),
intent(inout) :: rng
1896 type(lowDia_type) ,
intent(in) :: subset
1897 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1898 real(RKG) :: rand(
size(chol,
1, IK))
1903 impure module function getMNR_RNGX_DM_AC_XLD_D1_RK3(rng, chol, subset)
result(rand)
1904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1905 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_XLD_D1_RK3
1908 type(xoshiro256ssw_type),
intent(inout) :: rng
1909 type(lowDia_type) ,
intent(in) :: subset
1910 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1911 real(RKG) :: rand(
size(chol,
1, IK))
1916 impure module function getMNR_RNGX_DM_AC_XLD_D1_RK2(rng, chol, subset)
result(rand)
1917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1918 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_XLD_D1_RK2
1921 type(xoshiro256ssw_type),
intent(inout) :: rng
1922 type(lowDia_type) ,
intent(in) :: subset
1923 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1924 real(RKG) :: rand(
size(chol,
1, IK))
1929 impure module function getMNR_RNGX_DM_AC_XLD_D1_RK1(rng, chol, subset)
result(rand)
1930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1931 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_XLD_D1_RK1
1934 type(xoshiro256ssw_type),
intent(inout) :: rng
1935 type(lowDia_type) ,
intent(in) :: subset
1936 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
1937 real(RKG) :: rand(
size(chol,
1, IK))
1944 impure module function getMNR_RNGX_AM_AC_UXD_D1_RK5(rng, mean, chol, subset)
result(rand)
1945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1946 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_UXD_D1_RK5
1949 type(xoshiro256ssw_type),
intent(inout) :: rng
1950 type(uppDia_type) ,
intent(in) :: subset
1951 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1952 real(RKG) :: rand(
size(chol,
1, IK))
1957 impure module function getMNR_RNGX_AM_AC_UXD_D1_RK4(rng, mean, chol, subset)
result(rand)
1958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1959 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_UXD_D1_RK4
1962 type(xoshiro256ssw_type),
intent(inout) :: rng
1963 type(uppDia_type) ,
intent(in) :: subset
1964 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1965 real(RKG) :: rand(
size(chol,
1, IK))
1970 impure module function getMNR_RNGX_AM_AC_UXD_D1_RK3(rng, mean, chol, subset)
result(rand)
1971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1972 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_UXD_D1_RK3
1975 type(xoshiro256ssw_type),
intent(inout) :: rng
1976 type(uppDia_type) ,
intent(in) :: subset
1977 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1978 real(RKG) :: rand(
size(chol,
1, IK))
1983 impure module function getMNR_RNGX_AM_AC_UXD_D1_RK2(rng, mean, chol, subset)
result(rand)
1984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1985 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_UXD_D1_RK2
1988 type(xoshiro256ssw_type),
intent(inout) :: rng
1989 type(uppDia_type) ,
intent(in) :: subset
1990 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
1991 real(RKG) :: rand(
size(chol,
1, IK))
1996 impure module function getMNR_RNGX_AM_AC_UXD_D1_RK1(rng, mean, chol, subset)
result(rand)
1997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1998 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_UXD_D1_RK1
2001 type(xoshiro256ssw_type),
intent(inout) :: rng
2002 type(uppDia_type) ,
intent(in) :: subset
2003 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2004 real(RKG) :: rand(
size(chol,
1, IK))
2011 impure module function getMNR_RNGX_AM_AC_XLD_D1_RK5(rng, mean, chol, subset)
result(rand)
2012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2013 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_XLD_D1_RK5
2016 type(xoshiro256ssw_type),
intent(inout) :: rng
2017 type(lowDia_type) ,
intent(in) :: subset
2018 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2019 real(RKG) :: rand(
size(chol,
1, IK))
2024 impure module function getMNR_RNGX_AM_AC_XLD_D1_RK4(rng, mean, chol, subset)
result(rand)
2025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2026 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_XLD_D1_RK4
2029 type(xoshiro256ssw_type),
intent(inout) :: rng
2030 type(lowDia_type) ,
intent(in) :: subset
2031 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2032 real(RKG) :: rand(
size(chol,
1, IK))
2037 impure module function getMNR_RNGX_AM_AC_XLD_D1_RK3(rng, mean, chol, subset)
result(rand)
2038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2039 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_XLD_D1_RK3
2042 type(xoshiro256ssw_type),
intent(inout) :: rng
2043 type(lowDia_type) ,
intent(in) :: subset
2044 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2045 real(RKG) :: rand(
size(chol,
1, IK))
2050 impure module function getMNR_RNGX_AM_AC_XLD_D1_RK2(rng, mean, chol, subset)
result(rand)
2051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2052 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_XLD_D1_RK2
2055 type(xoshiro256ssw_type),
intent(inout) :: rng
2056 type(lowDia_type) ,
intent(in) :: subset
2057 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2058 real(RKG) :: rand(
size(chol,
1, IK))
2063 impure module function getMNR_RNGX_AM_AC_XLD_D1_RK1(rng, mean, chol, subset)
result(rand)
2064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2065 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_XLD_D1_RK1
2068 type(xoshiro256ssw_type),
intent(inout) :: rng
2069 type(lowDia_type) ,
intent(in) :: subset
2070 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2071 real(RKG) :: rand(
size(chol,
1, IK))
2086 impure module function getMNR_RNGD_AM_DC_XXX_D2_RK5(mean, nsam)
result(rand)
2087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2088 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_DC_XXX_D2_RK5
2091 integer(IK) ,
intent(in) :: nsam
2092 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2093 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2098 impure module function getMNR_RNGD_AM_DC_XXX_D2_RK4(mean, nsam)
result(rand)
2099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2100 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_DC_XXX_D2_RK4
2103 integer(IK) ,
intent(in) :: nsam
2104 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2105 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2110 impure module function getMNR_RNGD_AM_DC_XXX_D2_RK3(mean, nsam)
result(rand)
2111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2112 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_DC_XXX_D2_RK3
2115 integer(IK) ,
intent(in) :: nsam
2116 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2117 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2122 impure module function getMNR_RNGD_AM_DC_XXX_D2_RK2(mean, nsam)
result(rand)
2123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2124 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_DC_XXX_D2_RK2
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 getMNR_RNGD_AM_DC_XXX_D2_RK1(mean, nsam)
result(rand)
2135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2136 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_DC_XXX_D2_RK1
2139 integer(IK) ,
intent(in) :: nsam
2140 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2141 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2148 impure module function getMNR_RNGD_DM_AC_UXD_D2_RK5(chol, subset, nsam)
result(rand)
2149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2150 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_UXD_D2_RK5
2153 integer(IK) ,
intent(in) :: nsam
2154 type(uppDia_type) ,
intent(in) :: subset
2155 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2156 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2161 impure module function getMNR_RNGD_DM_AC_UXD_D2_RK4(chol, subset, nsam)
result(rand)
2162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2163 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_UXD_D2_RK4
2166 integer(IK) ,
intent(in) :: nsam
2167 type(uppDia_type) ,
intent(in) :: subset
2168 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2169 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2174 impure module function getMNR_RNGD_DM_AC_UXD_D2_RK3(chol, subset, nsam)
result(rand)
2175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2176 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_UXD_D2_RK3
2179 integer(IK) ,
intent(in) :: nsam
2180 type(uppDia_type) ,
intent(in) :: subset
2181 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2182 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2187 impure module function getMNR_RNGD_DM_AC_UXD_D2_RK2(chol, subset, nsam)
result(rand)
2188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2189 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_UXD_D2_RK2
2192 integer(IK) ,
intent(in) :: nsam
2193 type(uppDia_type) ,
intent(in) :: subset
2194 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2195 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2200 impure module function getMNR_RNGD_DM_AC_UXD_D2_RK1(chol, subset, nsam)
result(rand)
2201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2202 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_UXD_D2_RK1
2205 integer(IK) ,
intent(in) :: nsam
2206 type(uppDia_type) ,
intent(in) :: subset
2207 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2208 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2215 impure module function getMNR_RNGD_DM_AC_XLD_D2_RK5(chol, subset, nsam)
result(rand)
2216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2217 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_XLD_D2_RK5
2220 integer(IK) ,
intent(in) :: nsam
2221 type(lowDia_type) ,
intent(in) :: subset
2222 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2223 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2228 impure module function getMNR_RNGD_DM_AC_XLD_D2_RK4(chol, subset, nsam)
result(rand)
2229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2230 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_XLD_D2_RK4
2233 integer(IK) ,
intent(in) :: nsam
2234 type(lowDia_type) ,
intent(in) :: subset
2235 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2236 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2241 impure module function getMNR_RNGD_DM_AC_XLD_D2_RK3(chol, subset, nsam)
result(rand)
2242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2243 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_XLD_D2_RK3
2246 integer(IK) ,
intent(in) :: nsam
2247 type(lowDia_type) ,
intent(in) :: subset
2248 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2249 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2254 impure module function getMNR_RNGD_DM_AC_XLD_D2_RK2(chol, subset, nsam)
result(rand)
2255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2256 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_XLD_D2_RK2
2259 integer(IK) ,
intent(in) :: nsam
2260 type(lowDia_type) ,
intent(in) :: subset
2261 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2262 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2267 impure module function getMNR_RNGD_DM_AC_XLD_D2_RK1(chol, subset, nsam)
result(rand)
2268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2269 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_DM_AC_XLD_D2_RK1
2272 integer(IK) ,
intent(in) :: nsam
2273 type(lowDia_type) ,
intent(in) :: subset
2274 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2275 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2282 impure module function getMNR_RNGD_AM_AC_UXD_D2_RK5(mean, chol, subset, nsam)
result(rand)
2283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2284 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_UXD_D2_RK5
2287 integer(IK) ,
intent(in) :: nsam
2288 type(uppDia_type) ,
intent(in) :: subset
2289 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2290 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2295 impure module function getMNR_RNGD_AM_AC_UXD_D2_RK4(mean, chol, subset, nsam)
result(rand)
2296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2297 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_UXD_D2_RK4
2300 integer(IK) ,
intent(in) :: nsam
2301 type(uppDia_type) ,
intent(in) :: subset
2302 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2303 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2308 impure module function getMNR_RNGD_AM_AC_UXD_D2_RK3(mean, chol, subset, nsam)
result(rand)
2309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2310 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_UXD_D2_RK3
2313 integer(IK) ,
intent(in) :: nsam
2314 type(uppDia_type) ,
intent(in) :: subset
2315 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2316 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2321 impure module function getMNR_RNGD_AM_AC_UXD_D2_RK2(mean, chol, subset, nsam)
result(rand)
2322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2323 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_UXD_D2_RK2
2326 integer(IK) ,
intent(in) :: nsam
2327 type(uppDia_type) ,
intent(in) :: subset
2328 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2329 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2334 impure module function getMNR_RNGD_AM_AC_UXD_D2_RK1(mean, chol, subset, nsam)
result(rand)
2335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2336 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_UXD_D2_RK1
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)
2349 impure module function getMNR_RNGD_AM_AC_XLD_D2_RK5(mean, chol, subset, nsam)
result(rand)
2350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2351 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_XLD_D2_RK5
2354 integer(IK) ,
intent(in) :: nsam
2355 type(lowDia_type) ,
intent(in) :: subset
2356 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2357 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2362 impure module function getMNR_RNGD_AM_AC_XLD_D2_RK4(mean, chol, subset, nsam)
result(rand)
2363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2364 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_XLD_D2_RK4
2367 integer(IK) ,
intent(in) :: nsam
2368 type(lowDia_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 getMNR_RNGD_AM_AC_XLD_D2_RK3(mean, chol, subset, nsam)
result(rand)
2376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2377 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_XLD_D2_RK3
2380 integer(IK) ,
intent(in) :: nsam
2381 type(lowDia_type) ,
intent(in) :: subset
2382 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2383 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2388 impure module function getMNR_RNGD_AM_AC_XLD_D2_RK2(mean, chol, subset, nsam)
result(rand)
2389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2390 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_XLD_D2_RK2
2393 integer(IK) ,
intent(in) :: nsam
2394 type(lowDia_type) ,
intent(in) :: subset
2395 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2396 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2401 impure module function getMNR_RNGD_AM_AC_XLD_D2_RK1(mean, chol, subset, nsam)
result(rand)
2402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2403 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGD_AM_AC_XLD_D2_RK1
2406 integer(IK) ,
intent(in) :: nsam
2407 type(lowDia_type) ,
intent(in) :: subset
2408 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2409 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2424 impure module function getMNR_RNGF_AM_DC_XXX_D2_RK5(rng, mean, nsam)
result(rand)
2425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2426 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_DC_XXX_D2_RK5
2429 type(rngf_type) ,
intent(in) :: rng
2430 integer(IK) ,
intent(in) :: nsam
2431 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2432 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2437 impure module function getMNR_RNGF_AM_DC_XXX_D2_RK4(rng, mean, nsam)
result(rand)
2438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2439 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_DC_XXX_D2_RK4
2442 type(rngf_type) ,
intent(in) :: rng
2443 integer(IK) ,
intent(in) :: nsam
2444 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2445 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2450 impure module function getMNR_RNGF_AM_DC_XXX_D2_RK3(rng, mean, nsam)
result(rand)
2451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2452 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_DC_XXX_D2_RK3
2455 type(rngf_type) ,
intent(in) :: rng
2456 integer(IK) ,
intent(in) :: nsam
2457 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2458 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2463 impure module function getMNR_RNGF_AM_DC_XXX_D2_RK2(rng, mean, nsam)
result(rand)
2464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2465 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_DC_XXX_D2_RK2
2468 type(rngf_type) ,
intent(in) :: rng
2469 integer(IK) ,
intent(in) :: nsam
2470 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2471 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2476 impure module function getMNR_RNGF_AM_DC_XXX_D2_RK1(rng, mean, nsam)
result(rand)
2477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2478 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_DC_XXX_D2_RK1
2481 type(rngf_type) ,
intent(in) :: rng
2482 integer(IK) ,
intent(in) :: nsam
2483 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2484 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2491 impure module function getMNR_RNGF_DM_AC_UXD_D2_RK5(rng, chol, subset, nsam)
result(rand)
2492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2493 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_UXD_D2_RK5
2496 type(rngf_type) ,
intent(in) :: rng
2497 integer(IK) ,
intent(in) :: nsam
2498 type(uppDia_type) ,
intent(in) :: subset
2499 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2500 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2505 impure module function getMNR_RNGF_DM_AC_UXD_D2_RK4(rng, chol, subset, nsam)
result(rand)
2506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2507 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_UXD_D2_RK4
2510 type(rngf_type) ,
intent(in) :: rng
2511 integer(IK) ,
intent(in) :: nsam
2512 type(uppDia_type) ,
intent(in) :: subset
2513 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2514 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2519 impure module function getMNR_RNGF_DM_AC_UXD_D2_RK3(rng, chol, subset, nsam)
result(rand)
2520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2521 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_UXD_D2_RK3
2524 type(rngf_type) ,
intent(in) :: rng
2525 integer(IK) ,
intent(in) :: nsam
2526 type(uppDia_type) ,
intent(in) :: subset
2527 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2528 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2533 impure module function getMNR_RNGF_DM_AC_UXD_D2_RK2(rng, chol, subset, nsam)
result(rand)
2534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2535 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_UXD_D2_RK2
2538 type(rngf_type) ,
intent(in) :: rng
2539 integer(IK) ,
intent(in) :: nsam
2540 type(uppDia_type) ,
intent(in) :: subset
2541 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2542 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2547 impure module function getMNR_RNGF_DM_AC_UXD_D2_RK1(rng, chol, subset, nsam)
result(rand)
2548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2549 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_UXD_D2_RK1
2552 type(rngf_type) ,
intent(in) :: rng
2553 integer(IK) ,
intent(in) :: nsam
2554 type(uppDia_type) ,
intent(in) :: subset
2555 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2556 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2563 impure module function getMNR_RNGF_DM_AC_XLD_D2_RK5(rng, chol, subset, nsam)
result(rand)
2564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2565 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_XLD_D2_RK5
2568 type(rngf_type) ,
intent(in) :: rng
2569 integer(IK) ,
intent(in) :: nsam
2570 type(lowDia_type) ,
intent(in) :: subset
2571 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2572 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2577 impure module function getMNR_RNGF_DM_AC_XLD_D2_RK4(rng, chol, subset, nsam)
result(rand)
2578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2579 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_XLD_D2_RK4
2582 type(rngf_type) ,
intent(in) :: rng
2583 integer(IK) ,
intent(in) :: nsam
2584 type(lowDia_type) ,
intent(in) :: subset
2585 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2586 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2591 impure module function getMNR_RNGF_DM_AC_XLD_D2_RK3(rng, chol, subset, nsam)
result(rand)
2592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2593 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_XLD_D2_RK3
2596 type(rngf_type) ,
intent(in) :: rng
2597 integer(IK) ,
intent(in) :: nsam
2598 type(lowDia_type) ,
intent(in) :: subset
2599 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2600 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2605 impure module function getMNR_RNGF_DM_AC_XLD_D2_RK2(rng, chol, subset, nsam)
result(rand)
2606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2607 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_XLD_D2_RK2
2610 type(rngf_type) ,
intent(in) :: rng
2611 integer(IK) ,
intent(in) :: nsam
2612 type(lowDia_type) ,
intent(in) :: subset
2613 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2614 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2619 impure module function getMNR_RNGF_DM_AC_XLD_D2_RK1(rng, chol, subset, nsam)
result(rand)
2620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2621 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_DM_AC_XLD_D2_RK1
2624 type(rngf_type) ,
intent(in) :: rng
2625 integer(IK) ,
intent(in) :: nsam
2626 type(lowDia_type) ,
intent(in) :: subset
2627 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2628 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2635 impure module function getMNR_RNGF_AM_AC_UXD_D2_RK5(rng, mean, chol, subset, nsam)
result(rand)
2636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2637 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_UXD_D2_RK5
2640 type(rngf_type) ,
intent(in) :: rng
2641 integer(IK) ,
intent(in) :: nsam
2642 type(uppDia_type) ,
intent(in) :: subset
2643 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2644 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2649 impure module function getMNR_RNGF_AM_AC_UXD_D2_RK4(rng, mean, chol, subset, nsam)
result(rand)
2650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2651 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_UXD_D2_RK4
2654 type(rngf_type) ,
intent(in) :: rng
2655 integer(IK) ,
intent(in) :: nsam
2656 type(uppDia_type) ,
intent(in) :: subset
2657 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2658 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2663 impure module function getMNR_RNGF_AM_AC_UXD_D2_RK3(rng, mean, chol, subset, nsam)
result(rand)
2664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2665 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_UXD_D2_RK3
2668 type(rngf_type) ,
intent(in) :: rng
2669 integer(IK) ,
intent(in) :: nsam
2670 type(uppDia_type) ,
intent(in) :: subset
2671 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2672 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2677 impure module function getMNR_RNGF_AM_AC_UXD_D2_RK2(rng, mean, chol, subset, nsam)
result(rand)
2678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2679 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_UXD_D2_RK2
2682 type(rngf_type) ,
intent(in) :: rng
2683 integer(IK) ,
intent(in) :: nsam
2684 type(uppDia_type) ,
intent(in) :: subset
2685 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2686 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2691 impure module function getMNR_RNGF_AM_AC_UXD_D2_RK1(rng, mean, chol, subset, nsam)
result(rand)
2692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2693 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_UXD_D2_RK1
2696 type(rngf_type) ,
intent(in) :: rng
2697 integer(IK) ,
intent(in) :: nsam
2698 type(uppDia_type) ,
intent(in) :: subset
2699 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2700 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2707 impure module function getMNR_RNGF_AM_AC_XLD_D2_RK5(rng, mean, chol, subset, nsam)
result(rand)
2708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2709 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_XLD_D2_RK5
2712 type(rngf_type) ,
intent(in) :: rng
2713 integer(IK) ,
intent(in) :: nsam
2714 type(lowDia_type) ,
intent(in) :: subset
2715 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2716 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2721 impure module function getMNR_RNGF_AM_AC_XLD_D2_RK4(rng, mean, chol, subset, nsam)
result(rand)
2722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2723 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_XLD_D2_RK4
2726 type(rngf_type) ,
intent(in) :: rng
2727 integer(IK) ,
intent(in) :: nsam
2728 type(lowDia_type) ,
intent(in) :: subset
2729 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2730 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2735 impure module function getMNR_RNGF_AM_AC_XLD_D2_RK3(rng, mean, chol, subset, nsam)
result(rand)
2736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2737 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_XLD_D2_RK3
2740 type(rngf_type) ,
intent(in) :: rng
2741 integer(IK) ,
intent(in) :: nsam
2742 type(lowDia_type) ,
intent(in) :: subset
2743 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2744 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2749 impure module function getMNR_RNGF_AM_AC_XLD_D2_RK2(rng, mean, chol, subset, nsam)
result(rand)
2750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2751 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_XLD_D2_RK2
2754 type(rngf_type) ,
intent(in) :: rng
2755 integer(IK) ,
intent(in) :: nsam
2756 type(lowDia_type) ,
intent(in) :: subset
2757 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2758 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2763 impure module function getMNR_RNGF_AM_AC_XLD_D2_RK1(rng, mean, chol, subset, nsam)
result(rand)
2764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2765 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGF_AM_AC_XLD_D2_RK1
2768 type(rngf_type) ,
intent(in) :: rng
2769 integer(IK) ,
intent(in) :: nsam
2770 type(lowDia_type) ,
intent(in) :: subset
2771 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
2772 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2787 impure module function getMNR_RNGX_AM_DC_XXX_D2_RK5(rng, mean, nsam)
result(rand)
2788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2789 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_DC_XXX_D2_RK5
2792 type(xoshiro256ssw_type),
intent(inout) :: rng
2793 integer(IK) ,
intent(in) :: nsam
2794 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2795 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2800 impure module function getMNR_RNGX_AM_DC_XXX_D2_RK4(rng, mean, nsam)
result(rand)
2801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2802 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_DC_XXX_D2_RK4
2805 type(xoshiro256ssw_type),
intent(inout) :: rng
2806 integer(IK) ,
intent(in) :: nsam
2807 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2808 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2813 impure module function getMNR_RNGX_AM_DC_XXX_D2_RK3(rng, mean, nsam)
result(rand)
2814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2815 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_DC_XXX_D2_RK3
2818 type(xoshiro256ssw_type),
intent(inout) :: rng
2819 integer(IK) ,
intent(in) :: nsam
2820 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2821 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2826 impure module function getMNR_RNGX_AM_DC_XXX_D2_RK2(rng, mean, nsam)
result(rand)
2827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2828 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_DC_XXX_D2_RK2
2831 type(xoshiro256ssw_type),
intent(inout) :: rng
2832 integer(IK) ,
intent(in) :: nsam
2833 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2834 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2839 impure module function getMNR_RNGX_AM_DC_XXX_D2_RK1(rng, mean, nsam)
result(rand)
2840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2841 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_DC_XXX_D2_RK1
2844 type(xoshiro256ssw_type),
intent(inout) :: rng
2845 integer(IK) ,
intent(in) :: nsam
2846 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
2847 real(RKG) :: rand(
size(mean,
1, IK), nsam)
2854 impure module function getMNR_RNGX_DM_AC_UXD_D2_RK5(rng, chol, subset, nsam)
result(rand)
2855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2856 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_UXD_D2_RK5
2859 type(xoshiro256ssw_type),
intent(inout) :: rng
2860 integer(IK) ,
intent(in) :: nsam
2861 type(uppDia_type) ,
intent(in) :: subset
2862 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2863 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2868 impure module function getMNR_RNGX_DM_AC_UXD_D2_RK4(rng, chol, subset, nsam)
result(rand)
2869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2870 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_UXD_D2_RK4
2873 type(xoshiro256ssw_type),
intent(inout) :: rng
2874 integer(IK) ,
intent(in) :: nsam
2875 type(uppDia_type) ,
intent(in) :: subset
2876 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2877 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2882 impure module function getMNR_RNGX_DM_AC_UXD_D2_RK3(rng, chol, subset, nsam)
result(rand)
2883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2884 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_UXD_D2_RK3
2887 type(xoshiro256ssw_type),
intent(inout) :: rng
2888 integer(IK) ,
intent(in) :: nsam
2889 type(uppDia_type) ,
intent(in) :: subset
2890 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2891 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2896 impure module function getMNR_RNGX_DM_AC_UXD_D2_RK2(rng, chol, subset, nsam)
result(rand)
2897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2898 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_UXD_D2_RK2
2901 type(xoshiro256ssw_type),
intent(inout) :: rng
2902 integer(IK) ,
intent(in) :: nsam
2903 type(uppDia_type) ,
intent(in) :: subset
2904 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2905 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2910 impure module function getMNR_RNGX_DM_AC_UXD_D2_RK1(rng, chol, subset, nsam)
result(rand)
2911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2912 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_UXD_D2_RK1
2915 type(xoshiro256ssw_type),
intent(inout) :: rng
2916 integer(IK) ,
intent(in) :: nsam
2917 type(uppDia_type) ,
intent(in) :: subset
2918 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2919 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2926 impure module function getMNR_RNGX_DM_AC_XLD_D2_RK5(rng, chol, subset, nsam)
result(rand)
2927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2928 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_XLD_D2_RK5
2931 type(xoshiro256ssw_type),
intent(inout) :: rng
2932 integer(IK) ,
intent(in) :: nsam
2933 type(lowDia_type) ,
intent(in) :: subset
2934 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2935 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2940 impure module function getMNR_RNGX_DM_AC_XLD_D2_RK4(rng, chol, subset, nsam)
result(rand)
2941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2942 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_XLD_D2_RK4
2945 type(xoshiro256ssw_type),
intent(inout) :: rng
2946 integer(IK) ,
intent(in) :: nsam
2947 type(lowDia_type) ,
intent(in) :: subset
2948 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2949 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2954 impure module function getMNR_RNGX_DM_AC_XLD_D2_RK3(rng, chol, subset, nsam)
result(rand)
2955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2956 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_XLD_D2_RK3
2959 type(xoshiro256ssw_type),
intent(inout) :: rng
2960 integer(IK) ,
intent(in) :: nsam
2961 type(lowDia_type) ,
intent(in) :: subset
2962 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2963 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2968 impure module function getMNR_RNGX_DM_AC_XLD_D2_RK2(rng, chol, subset, nsam)
result(rand)
2969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2970 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_XLD_D2_RK2
2973 type(xoshiro256ssw_type),
intent(inout) :: rng
2974 integer(IK) ,
intent(in) :: nsam
2975 type(lowDia_type) ,
intent(in) :: subset
2976 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2977 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2982 impure module function getMNR_RNGX_DM_AC_XLD_D2_RK1(rng, chol, subset, nsam)
result(rand)
2983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2984 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_DM_AC_XLD_D2_RK1
2987 type(xoshiro256ssw_type),
intent(inout) :: rng
2988 integer(IK) ,
intent(in) :: nsam
2989 type(lowDia_type) ,
intent(in) :: subset
2990 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
2991 real(RKG) :: rand(
size(chol,
1, IK), nsam)
2998 impure module function getMNR_RNGX_AM_AC_UXD_D2_RK5(rng, mean, chol, subset, nsam)
result(rand)
2999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3000 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_UXD_D2_RK5
3003 type(xoshiro256ssw_type),
intent(inout) :: rng
3004 integer(IK) ,
intent(in) :: nsam
3005 type(uppDia_type) ,
intent(in) :: subset
3006 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3007 real(RKG) :: rand(
size(chol,
1, IK), nsam)
3012 impure module function getMNR_RNGX_AM_AC_UXD_D2_RK4(rng, mean, chol, subset, nsam)
result(rand)
3013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3014 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_UXD_D2_RK4
3017 type(xoshiro256ssw_type),
intent(inout) :: rng
3018 integer(IK) ,
intent(in) :: nsam
3019 type(uppDia_type) ,
intent(in) :: subset
3020 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3021 real(RKG) :: rand(
size(chol,
1, IK), nsam)
3026 impure module function getMNR_RNGX_AM_AC_UXD_D2_RK3(rng, mean, chol, subset, nsam)
result(rand)
3027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3028 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_UXD_D2_RK3
3031 type(xoshiro256ssw_type),
intent(inout) :: rng
3032 integer(IK) ,
intent(in) :: nsam
3033 type(uppDia_type) ,
intent(in) :: subset
3034 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3035 real(RKG) :: rand(
size(chol,
1, IK), nsam)
3040 impure module function getMNR_RNGX_AM_AC_UXD_D2_RK2(rng, mean, chol, subset, nsam)
result(rand)
3041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3042 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_UXD_D2_RK2
3045 type(xoshiro256ssw_type),
intent(inout) :: rng
3046 integer(IK) ,
intent(in) :: nsam
3047 type(uppDia_type) ,
intent(in) :: subset
3048 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3049 real(RKG) :: rand(
size(chol,
1, IK), nsam)
3054 impure module function getMNR_RNGX_AM_AC_UXD_D2_RK1(rng, mean, chol, subset, nsam)
result(rand)
3055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3056 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_UXD_D2_RK1
3059 type(xoshiro256ssw_type),
intent(inout) :: rng
3060 integer(IK) ,
intent(in) :: nsam
3061 type(uppDia_type) ,
intent(in) :: subset
3062 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3063 real(RKG) :: rand(
size(chol,
1, IK), nsam)
3070 impure module function getMNR_RNGX_AM_AC_XLD_D2_RK5(rng, mean, chol, subset, nsam)
result(rand)
3071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3072 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_XLD_D2_RK5
3075 type(xoshiro256ssw_type),
intent(inout) :: rng
3076 integer(IK) ,
intent(in) :: nsam
3077 type(lowDia_type) ,
intent(in) :: subset
3078 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3079 real(RKG) :: rand(
size(chol,
1, IK), nsam)
3084 impure module function getMNR_RNGX_AM_AC_XLD_D2_RK4(rng, mean, chol, subset, nsam)
result(rand)
3085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3086 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_XLD_D2_RK4
3089 type(xoshiro256ssw_type),
intent(inout) :: rng
3090 integer(IK) ,
intent(in) :: nsam
3091 type(lowDia_type) ,
intent(in) :: subset
3092 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3093 real(RKG) :: rand(
size(chol,
1, IK), nsam)
3098 impure module function getMNR_RNGX_AM_AC_XLD_D2_RK3(rng, mean, chol, subset, nsam)
result(rand)
3099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3100 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_XLD_D2_RK3
3103 type(xoshiro256ssw_type),
intent(inout) :: rng
3104 integer(IK) ,
intent(in) :: nsam
3105 type(lowDia_type) ,
intent(in) :: subset
3106 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3107 real(RKG) :: rand(
size(chol,
1, IK), nsam)
3112 impure module function getMNR_RNGX_AM_AC_XLD_D2_RK2(rng, mean, chol, subset, nsam)
result(rand)
3113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3114 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_XLD_D2_RK2
3117 type(xoshiro256ssw_type),
intent(inout) :: rng
3118 integer(IK) ,
intent(in) :: nsam
3119 type(lowDia_type) ,
intent(in) :: subset
3120 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3121 real(RKG) :: rand(
size(chol,
1, IK), nsam)
3126 impure module function getMNR_RNGX_AM_AC_XLD_D2_RK1(rng, mean, chol, subset, nsam)
result(rand)
3127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3128 !DEC$ ATTRIBUTES DLLEXPORT :: getMNR_RNGX_AM_AC_XLD_D2_RK1
3131 type(xoshiro256ssw_type),
intent(inout) :: rng
3132 integer(IK) ,
intent(in) :: nsam
3133 type(lowDia_type) ,
intent(in) :: subset
3134 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3135 real(RKG) :: rand(
size(chol,
1, IK), nsam)
3269 impure module subroutine setMNR_RNGD_DM_DC_XXX_D1_RK5(rand)
3270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3271 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_DC_XXX_D1_RK5
3274 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3279 impure module subroutine setMNR_RNGD_DM_DC_XXX_D1_RK4(rand)
3280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3281 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_DC_XXX_D1_RK4
3284 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3289 impure module subroutine setMNR_RNGD_DM_DC_XXX_D1_RK3(rand)
3290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3291 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_DC_XXX_D1_RK3
3294 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3299 impure module subroutine setMNR_RNGD_DM_DC_XXX_D1_RK2(rand)
3300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3301 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_DC_XXX_D1_RK2
3304 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3309 impure module subroutine setMNR_RNGD_DM_DC_XXX_D1_RK1(rand)
3310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3311 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_DC_XXX_D1_RK1
3314 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3321 impure module subroutine setMNR_RNGD_AM_DC_XXX_D1_RK5(rand, mean)
3322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3323 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_DC_XXX_D1_RK5
3326 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3327 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3332 impure module subroutine setMNR_RNGD_AM_DC_XXX_D1_RK4(rand, mean)
3333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3334 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_DC_XXX_D1_RK4
3337 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3338 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3343 impure module subroutine setMNR_RNGD_AM_DC_XXX_D1_RK3(rand, mean)
3344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3345 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_DC_XXX_D1_RK3
3348 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3349 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3354 impure module subroutine setMNR_RNGD_AM_DC_XXX_D1_RK2(rand, mean)
3355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3356 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_DC_XXX_D1_RK2
3359 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3360 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3365 impure module subroutine setMNR_RNGD_AM_DC_XXX_D1_RK1(rand, mean)
3366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3367 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_DC_XXX_D1_RK1
3370 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3371 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3378 impure module subroutine setMNR_RNGD_DM_AC_UXD_D1_RK5(rand, chol, subset)
3379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3380 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_UXD_D1_RK5
3383 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3384 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3385 type(uppDia_type) ,
intent(in) :: subset
3390 impure module subroutine setMNR_RNGD_DM_AC_UXD_D1_RK4(rand, chol, subset)
3391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3392 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_UXD_D1_RK4
3395 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3396 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3397 type(uppDia_type) ,
intent(in) :: subset
3402 impure module subroutine setMNR_RNGD_DM_AC_UXD_D1_RK3(rand, chol, subset)
3403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3404 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_UXD_D1_RK3
3407 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3408 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3409 type(uppDia_type) ,
intent(in) :: subset
3414 impure module subroutine setMNR_RNGD_DM_AC_UXD_D1_RK2(rand, chol, subset)
3415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3416 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_UXD_D1_RK2
3419 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3420 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3421 type(uppDia_type) ,
intent(in) :: subset
3426 impure module subroutine setMNR_RNGD_DM_AC_UXD_D1_RK1(rand, chol, subset)
3427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3428 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_UXD_D1_RK1
3431 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3432 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3433 type(uppDia_type) ,
intent(in) :: subset
3440 impure module subroutine setMNR_RNGD_DM_AC_XLD_D1_RK5(rand, chol, subset)
3441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3442 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_XLD_D1_RK5
3445 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3446 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3447 type(lowDia_type) ,
intent(in) :: subset
3452 impure module subroutine setMNR_RNGD_DM_AC_XLD_D1_RK4(rand, chol, subset)
3453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3454 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_XLD_D1_RK4
3457 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3458 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3459 type(lowDia_type) ,
intent(in) :: subset
3464 impure module subroutine setMNR_RNGD_DM_AC_XLD_D1_RK3(rand, chol, subset)
3465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3466 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_XLD_D1_RK3
3469 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3470 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3471 type(lowDia_type) ,
intent(in) :: subset
3476 impure module subroutine setMNR_RNGD_DM_AC_XLD_D1_RK2(rand, chol, subset)
3477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3478 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_XLD_D1_RK2
3481 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3482 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3483 type(lowDia_type) ,
intent(in) :: subset
3488 impure module subroutine setMNR_RNGD_DM_AC_XLD_D1_RK1(rand, chol, subset)
3489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3490 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_XLD_D1_RK1
3493 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3494 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3495 type(lowDia_type) ,
intent(in) :: subset
3502 impure module subroutine setMNR_RNGD_AM_AC_UXD_D1_RK5(rand, mean, chol, subset)
3503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3504 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_UXD_D1_RK5
3507 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3508 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3509 type(uppDia_type) ,
intent(in) :: subset
3514 impure module subroutine setMNR_RNGD_AM_AC_UXD_D1_RK4(rand, mean, chol, subset)
3515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3516 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_UXD_D1_RK4
3519 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3520 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3521 type(uppDia_type) ,
intent(in) :: subset
3526 impure module subroutine setMNR_RNGD_AM_AC_UXD_D1_RK3(rand, mean, chol, subset)
3527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3528 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_UXD_D1_RK3
3531 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3532 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3533 type(uppDia_type) ,
intent(in) :: subset
3538 impure module subroutine setMNR_RNGD_AM_AC_UXD_D1_RK2(rand, mean, chol, subset)
3539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3540 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_UXD_D1_RK2
3543 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3544 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3545 type(uppDia_type) ,
intent(in) :: subset
3550 impure module subroutine setMNR_RNGD_AM_AC_UXD_D1_RK1(rand, mean, chol, subset)
3551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3552 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_UXD_D1_RK1
3555 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3556 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3557 type(uppDia_type) ,
intent(in) :: subset
3564 impure module subroutine setMNR_RNGD_AM_AC_XLD_D1_RK5(rand, mean, chol, subset)
3565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3566 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_XLD_D1_RK5
3569 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3570 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3571 type(lowDia_type) ,
intent(in) :: subset
3576 impure module subroutine setMNR_RNGD_AM_AC_XLD_D1_RK4(rand, mean, chol, subset)
3577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3578 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_XLD_D1_RK4
3581 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3582 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3583 type(lowDia_type) ,
intent(in) :: subset
3588 impure module subroutine setMNR_RNGD_AM_AC_XLD_D1_RK3(rand, mean, chol, subset)
3589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3590 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_XLD_D1_RK3
3593 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3594 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3595 type(lowDia_type) ,
intent(in) :: subset
3600 impure module subroutine setMNR_RNGD_AM_AC_XLD_D1_RK2(rand, mean, chol, subset)
3601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3602 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_XLD_D1_RK2
3605 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3606 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3607 type(lowDia_type) ,
intent(in) :: subset
3612 impure module subroutine setMNR_RNGD_AM_AC_XLD_D1_RK1(rand, mean, chol, subset)
3613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3614 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_XLD_D1_RK1
3617 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3618 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3619 type(lowDia_type) ,
intent(in) :: subset
3634 impure module subroutine setMNR_RNGF_DM_DC_XXX_D1_RK5(rng, rand)
3635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3636 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_DC_XXX_D1_RK5
3639 type(rngf_type) ,
intent(in) :: rng
3640 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3645 impure module subroutine setMNR_RNGF_DM_DC_XXX_D1_RK4(rng, rand)
3646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3647 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_DC_XXX_D1_RK4
3650 type(rngf_type) ,
intent(in) :: rng
3651 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3656 impure module subroutine setMNR_RNGF_DM_DC_XXX_D1_RK3(rng, rand)
3657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3658 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_DC_XXX_D1_RK3
3661 type(rngf_type) ,
intent(in) :: rng
3662 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3667 impure module subroutine setMNR_RNGF_DM_DC_XXX_D1_RK2(rng, rand)
3668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3669 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_DC_XXX_D1_RK2
3672 type(rngf_type) ,
intent(in) :: rng
3673 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3678 impure module subroutine setMNR_RNGF_DM_DC_XXX_D1_RK1(rng, rand)
3679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3680 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_DC_XXX_D1_RK1
3683 type(rngf_type) ,
intent(in) :: rng
3684 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3691 impure module subroutine setMNR_RNGF_AM_DC_XXX_D1_RK5(rng, rand, mean)
3692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3693 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_DC_XXX_D1_RK5
3696 type(rngf_type) ,
intent(in) :: rng
3697 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3698 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3703 impure module subroutine setMNR_RNGF_AM_DC_XXX_D1_RK4(rng, rand, mean)
3704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3705 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_DC_XXX_D1_RK4
3708 type(rngf_type) ,
intent(in) :: rng
3709 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3710 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3715 impure module subroutine setMNR_RNGF_AM_DC_XXX_D1_RK3(rng, rand, mean)
3716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3717 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_DC_XXX_D1_RK3
3720 type(rngf_type) ,
intent(in) :: rng
3721 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3722 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3727 impure module subroutine setMNR_RNGF_AM_DC_XXX_D1_RK2(rng, rand, mean)
3728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3729 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_DC_XXX_D1_RK2
3732 type(rngf_type) ,
intent(in) :: rng
3733 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3734 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3739 impure module subroutine setMNR_RNGF_AM_DC_XXX_D1_RK1(rng, rand, mean)
3740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3741 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_DC_XXX_D1_RK1
3744 type(rngf_type) ,
intent(in) :: rng
3745 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3746 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
3753 impure module subroutine setMNR_RNGF_DM_AC_UXD_D1_RK5(rng, rand, chol, subset)
3754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3755 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_UXD_D1_RK5
3758 type(rngf_type) ,
intent(in) :: rng
3759 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3760 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3761 type(uppDia_type) ,
intent(in) :: subset
3766 impure module subroutine setMNR_RNGF_DM_AC_UXD_D1_RK4(rng, rand, chol, subset)
3767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3768 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_UXD_D1_RK4
3771 type(rngf_type) ,
intent(in) :: rng
3772 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3773 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3774 type(uppDia_type) ,
intent(in) :: subset
3779 impure module subroutine setMNR_RNGF_DM_AC_UXD_D1_RK3(rng, rand, chol, subset)
3780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3781 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_UXD_D1_RK3
3784 type(rngf_type) ,
intent(in) :: rng
3785 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3786 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3787 type(uppDia_type) ,
intent(in) :: subset
3792 impure module subroutine setMNR_RNGF_DM_AC_UXD_D1_RK2(rng, rand, chol, subset)
3793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3794 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_UXD_D1_RK2
3797 type(rngf_type) ,
intent(in) :: rng
3798 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3799 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3800 type(uppDia_type) ,
intent(in) :: subset
3805 impure module subroutine setMNR_RNGF_DM_AC_UXD_D1_RK1(rng, rand, chol, subset)
3806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3807 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_UXD_D1_RK1
3810 type(rngf_type) ,
intent(in) :: rng
3811 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3812 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3813 type(uppDia_type) ,
intent(in) :: subset
3820 impure module subroutine setMNR_RNGF_DM_AC_XLD_D1_RK5(rng, rand, chol, subset)
3821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3822 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_XLD_D1_RK5
3825 type(rngf_type) ,
intent(in) :: rng
3826 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3827 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3828 type(lowDia_type) ,
intent(in) :: subset
3833 impure module subroutine setMNR_RNGF_DM_AC_XLD_D1_RK4(rng, rand, chol, subset)
3834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3835 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_XLD_D1_RK4
3838 type(rngf_type) ,
intent(in) :: rng
3839 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3840 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3841 type(lowDia_type) ,
intent(in) :: subset
3846 impure module subroutine setMNR_RNGF_DM_AC_XLD_D1_RK3(rng, rand, chol, subset)
3847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3848 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_XLD_D1_RK3
3851 type(rngf_type) ,
intent(in) :: rng
3852 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3853 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3854 type(lowDia_type) ,
intent(in) :: subset
3859 impure module subroutine setMNR_RNGF_DM_AC_XLD_D1_RK2(rng, rand, chol, subset)
3860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3861 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_XLD_D1_RK2
3864 type(rngf_type) ,
intent(in) :: rng
3865 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3866 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3867 type(lowDia_type) ,
intent(in) :: subset
3872 impure module subroutine setMNR_RNGF_DM_AC_XLD_D1_RK1(rng, rand, chol, subset)
3873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3874 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_XLD_D1_RK1
3877 type(rngf_type) ,
intent(in) :: rng
3878 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3879 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
3880 type(lowDia_type) ,
intent(in) :: subset
3887 impure module subroutine setMNR_RNGF_AM_AC_UXD_D1_RK5(rng, rand, mean, chol, subset)
3888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3889 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_UXD_D1_RK5
3892 type(rngf_type) ,
intent(in) :: rng
3893 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3894 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3895 type(uppDia_type) ,
intent(in) :: subset
3900 impure module subroutine setMNR_RNGF_AM_AC_UXD_D1_RK4(rng, rand, mean, chol, subset)
3901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3902 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_UXD_D1_RK4
3905 type(rngf_type) ,
intent(in) :: rng
3906 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3907 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3908 type(uppDia_type) ,
intent(in) :: subset
3913 impure module subroutine setMNR_RNGF_AM_AC_UXD_D1_RK3(rng, rand, mean, chol, subset)
3914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3915 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_UXD_D1_RK3
3918 type(rngf_type) ,
intent(in) :: rng
3919 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3920 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3921 type(uppDia_type) ,
intent(in) :: subset
3926 impure module subroutine setMNR_RNGF_AM_AC_UXD_D1_RK2(rng, rand, mean, chol, subset)
3927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3928 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_UXD_D1_RK2
3931 type(rngf_type) ,
intent(in) :: rng
3932 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3933 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3934 type(uppDia_type) ,
intent(in) :: subset
3939 impure module subroutine setMNR_RNGF_AM_AC_UXD_D1_RK1(rng, rand, mean, chol, subset)
3940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3941 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_UXD_D1_RK1
3944 type(rngf_type) ,
intent(in) :: rng
3945 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3946 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3947 type(uppDia_type) ,
intent(in) :: subset
3954 impure module subroutine setMNR_RNGF_AM_AC_XLD_D1_RK5(rng, rand, mean, chol, subset)
3955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3956 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_XLD_D1_RK5
3959 type(rngf_type) ,
intent(in) :: rng
3960 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3961 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3962 type(lowDia_type) ,
intent(in) :: subset
3967 impure module subroutine setMNR_RNGF_AM_AC_XLD_D1_RK4(rng, rand, mean, chol, subset)
3968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3969 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_XLD_D1_RK4
3972 type(rngf_type) ,
intent(in) :: rng
3973 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3974 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3975 type(lowDia_type) ,
intent(in) :: subset
3980 impure module subroutine setMNR_RNGF_AM_AC_XLD_D1_RK3(rng, rand, mean, chol, subset)
3981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3982 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_XLD_D1_RK3
3985 type(rngf_type) ,
intent(in) :: rng
3986 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
3987 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
3988 type(lowDia_type) ,
intent(in) :: subset
3993 impure module subroutine setMNR_RNGF_AM_AC_XLD_D1_RK2(rng, rand, mean, chol, subset)
3994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3995 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_XLD_D1_RK2
3998 type(rngf_type) ,
intent(in) :: rng
3999 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4000 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4001 type(lowDia_type) ,
intent(in) :: subset
4006 impure module subroutine setMNR_RNGF_AM_AC_XLD_D1_RK1(rng, rand, mean, chol, subset)
4007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4008 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_XLD_D1_RK1
4011 type(rngf_type) ,
intent(in) :: rng
4012 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4013 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4014 type(lowDia_type) ,
intent(in) :: subset
4029 PURE module subroutine setMNR_RNGX_DM_DC_XXX_D1_RK5(rng, rand)
4030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4031 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_DC_XXX_D1_RK5
4034 type(xoshiro256ssw_type),
intent(inout) :: rng
4035 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4040 PURE module subroutine setMNR_RNGX_DM_DC_XXX_D1_RK4(rng, rand)
4041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4042 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_DC_XXX_D1_RK4
4045 type(xoshiro256ssw_type),
intent(inout) :: rng
4046 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4051 PURE module subroutine setMNR_RNGX_DM_DC_XXX_D1_RK3(rng, rand)
4052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4053 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_DC_XXX_D1_RK3
4056 type(xoshiro256ssw_type),
intent(inout) :: rng
4057 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4062 PURE module subroutine setMNR_RNGX_DM_DC_XXX_D1_RK2(rng, rand)
4063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4064 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_DC_XXX_D1_RK2
4067 type(xoshiro256ssw_type),
intent(inout) :: rng
4068 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4073 PURE module subroutine setMNR_RNGX_DM_DC_XXX_D1_RK1(rng, rand)
4074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4075 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_DC_XXX_D1_RK1
4078 type(xoshiro256ssw_type),
intent(inout) :: rng
4079 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4086 PURE module subroutine setMNR_RNGX_AM_DC_XXX_D1_RK5(rng, rand, mean)
4087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4088 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_DC_XXX_D1_RK5
4091 type(xoshiro256ssw_type),
intent(inout) :: rng
4092 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4093 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4098 PURE module subroutine setMNR_RNGX_AM_DC_XXX_D1_RK4(rng, rand, mean)
4099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4100 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_DC_XXX_D1_RK4
4103 type(xoshiro256ssw_type),
intent(inout) :: rng
4104 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4105 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4110 PURE module subroutine setMNR_RNGX_AM_DC_XXX_D1_RK3(rng, rand, mean)
4111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4112 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_DC_XXX_D1_RK3
4115 type(xoshiro256ssw_type),
intent(inout) :: rng
4116 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4117 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4122 PURE module subroutine setMNR_RNGX_AM_DC_XXX_D1_RK2(rng, rand, mean)
4123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4124 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_DC_XXX_D1_RK2
4127 type(xoshiro256ssw_type),
intent(inout) :: rng
4128 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4129 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4134 PURE module subroutine setMNR_RNGX_AM_DC_XXX_D1_RK1(rng, rand, mean)
4135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4136 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_DC_XXX_D1_RK1
4139 type(xoshiro256ssw_type),
intent(inout) :: rng
4140 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4141 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4148 PURE module subroutine setMNR_RNGX_DM_AC_UXD_D1_RK5(rng, rand, chol, subset)
4149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4150 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_UXD_D1_RK5
4153 type(xoshiro256ssw_type),
intent(inout) :: rng
4154 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4155 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4156 type(uppDia_type) ,
intent(in) :: subset
4161 PURE module subroutine setMNR_RNGX_DM_AC_UXD_D1_RK4(rng, rand, chol, subset)
4162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4163 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_UXD_D1_RK4
4166 type(xoshiro256ssw_type),
intent(inout) :: rng
4167 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4168 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4169 type(uppDia_type) ,
intent(in) :: subset
4174 PURE module subroutine setMNR_RNGX_DM_AC_UXD_D1_RK3(rng, rand, chol, subset)
4175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4176 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_UXD_D1_RK3
4179 type(xoshiro256ssw_type),
intent(inout) :: rng
4180 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4181 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4182 type(uppDia_type) ,
intent(in) :: subset
4187 PURE module subroutine setMNR_RNGX_DM_AC_UXD_D1_RK2(rng, rand, chol, subset)
4188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4189 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_UXD_D1_RK2
4192 type(xoshiro256ssw_type),
intent(inout) :: rng
4193 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4194 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4195 type(uppDia_type) ,
intent(in) :: subset
4200 PURE module subroutine setMNR_RNGX_DM_AC_UXD_D1_RK1(rng, rand, chol, subset)
4201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4202 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_UXD_D1_RK1
4205 type(xoshiro256ssw_type),
intent(inout) :: rng
4206 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4207 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4208 type(uppDia_type) ,
intent(in) :: subset
4215 PURE module subroutine setMNR_RNGX_DM_AC_XLD_D1_RK5(rng, rand, chol, subset)
4216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4217 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_XLD_D1_RK5
4220 type(xoshiro256ssw_type),
intent(inout) :: rng
4221 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4222 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4223 type(lowDia_type) ,
intent(in) :: subset
4228 PURE module subroutine setMNR_RNGX_DM_AC_XLD_D1_RK4(rng, rand, chol, subset)
4229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4230 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_XLD_D1_RK4
4233 type(xoshiro256ssw_type),
intent(inout) :: rng
4234 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4235 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4236 type(lowDia_type) ,
intent(in) :: subset
4241 PURE module subroutine setMNR_RNGX_DM_AC_XLD_D1_RK3(rng, rand, chol, subset)
4242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4243 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_XLD_D1_RK3
4246 type(xoshiro256ssw_type),
intent(inout) :: rng
4247 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4248 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4249 type(lowDia_type) ,
intent(in) :: subset
4254 PURE module subroutine setMNR_RNGX_DM_AC_XLD_D1_RK2(rng, rand, chol, subset)
4255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4256 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_XLD_D1_RK2
4259 type(xoshiro256ssw_type),
intent(inout) :: rng
4260 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4261 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4262 type(lowDia_type) ,
intent(in) :: subset
4267 PURE module subroutine setMNR_RNGX_DM_AC_XLD_D1_RK1(rng, rand, chol, subset)
4268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4269 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_XLD_D1_RK1
4272 type(xoshiro256ssw_type),
intent(inout) :: rng
4273 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4274 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4275 type(lowDia_type) ,
intent(in) :: subset
4282 PURE module subroutine setMNR_RNGX_AM_AC_UXD_D1_RK5(rng, rand, mean, chol, subset)
4283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4284 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_UXD_D1_RK5
4287 type(xoshiro256ssw_type),
intent(inout) :: rng
4288 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4289 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4290 type(uppDia_type) ,
intent(in) :: subset
4295 PURE module subroutine setMNR_RNGX_AM_AC_UXD_D1_RK4(rng, rand, mean, chol, subset)
4296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4297 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_UXD_D1_RK4
4300 type(xoshiro256ssw_type),
intent(inout) :: rng
4301 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4302 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4303 type(uppDia_type) ,
intent(in) :: subset
4308 PURE module subroutine setMNR_RNGX_AM_AC_UXD_D1_RK3(rng, rand, mean, chol, subset)
4309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4310 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_UXD_D1_RK3
4313 type(xoshiro256ssw_type),
intent(inout) :: rng
4314 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4315 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4316 type(uppDia_type) ,
intent(in) :: subset
4321 PURE module subroutine setMNR_RNGX_AM_AC_UXD_D1_RK2(rng, rand, mean, chol, subset)
4322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4323 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_UXD_D1_RK2
4326 type(xoshiro256ssw_type),
intent(inout) :: rng
4327 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4328 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4329 type(uppDia_type) ,
intent(in) :: subset
4334 PURE module subroutine setMNR_RNGX_AM_AC_UXD_D1_RK1(rng, rand, mean, chol, subset)
4335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4336 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_UXD_D1_RK1
4339 type(xoshiro256ssw_type),
intent(inout) :: rng
4340 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4341 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4342 type(uppDia_type) ,
intent(in) :: subset
4349 PURE module subroutine setMNR_RNGX_AM_AC_XLD_D1_RK5(rng, rand, mean, chol, subset)
4350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4351 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_XLD_D1_RK5
4354 type(xoshiro256ssw_type),
intent(inout) :: rng
4355 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4356 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4357 type(lowDia_type) ,
intent(in) :: subset
4362 PURE module subroutine setMNR_RNGX_AM_AC_XLD_D1_RK4(rng, rand, mean, chol, subset)
4363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4364 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_XLD_D1_RK4
4367 type(xoshiro256ssw_type),
intent(inout) :: rng
4368 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4369 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4370 type(lowDia_type) ,
intent(in) :: subset
4375 PURE module subroutine setMNR_RNGX_AM_AC_XLD_D1_RK3(rng, rand, mean, chol, subset)
4376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4377 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_XLD_D1_RK3
4380 type(xoshiro256ssw_type),
intent(inout) :: rng
4381 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4382 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4383 type(lowDia_type) ,
intent(in) :: subset
4388 PURE module subroutine setMNR_RNGX_AM_AC_XLD_D1_RK2(rng, rand, mean, chol, subset)
4389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4390 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_XLD_D1_RK2
4393 type(xoshiro256ssw_type),
intent(inout) :: rng
4394 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4395 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4396 type(lowDia_type) ,
intent(in) :: subset
4401 PURE module subroutine setMNR_RNGX_AM_AC_XLD_D1_RK1(rng, rand, mean, chol, subset)
4402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4403 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_XLD_D1_RK1
4406 type(xoshiro256ssw_type),
intent(inout) :: rng
4407 real(RKG) ,
intent(out) ,
contiguous :: rand(:)
4408 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4409 type(lowDia_type) ,
intent(in) :: subset
4424 module subroutine setMNR_RNGD_DM_DC_XXX_D2_RK5(rand)
4425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4426 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_DC_XXX_D2_RK5
4429 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4434 module subroutine setMNR_RNGD_DM_DC_XXX_D2_RK4(rand)
4435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4436 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_DC_XXX_D2_RK4
4439 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4444 module subroutine setMNR_RNGD_DM_DC_XXX_D2_RK3(rand)
4445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4446 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_DC_XXX_D2_RK3
4449 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4454 module subroutine setMNR_RNGD_DM_DC_XXX_D2_RK2(rand)
4455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4456 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_DC_XXX_D2_RK2
4459 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4464 module subroutine setMNR_RNGD_DM_DC_XXX_D2_RK1(rand)
4465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4466 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_DC_XXX_D2_RK1
4469 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4476 module subroutine setMNR_RNGD_AM_DC_XXX_D2_RK5(rand, mean)
4477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4478 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_DC_XXX_D2_RK5
4481 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4482 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4487 module subroutine setMNR_RNGD_AM_DC_XXX_D2_RK4(rand, mean)
4488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4489 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_DC_XXX_D2_RK4
4492 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4493 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4498 module subroutine setMNR_RNGD_AM_DC_XXX_D2_RK3(rand, mean)
4499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4500 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_DC_XXX_D2_RK3
4503 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4504 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4509 module subroutine setMNR_RNGD_AM_DC_XXX_D2_RK2(rand, mean)
4510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4511 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_DC_XXX_D2_RK2
4514 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4515 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4520 module subroutine setMNR_RNGD_AM_DC_XXX_D2_RK1(rand, mean)
4521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4522 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_DC_XXX_D2_RK1
4525 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4526 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4533 module subroutine setMNR_RNGD_DM_AC_UXD_D2_RK5(rand, chol, subset)
4534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4535 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_UXD_D2_RK5
4538 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4539 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4540 type(uppDia_type) ,
intent(in) :: subset
4545 module subroutine setMNR_RNGD_DM_AC_UXD_D2_RK4(rand, chol, subset)
4546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4547 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_UXD_D2_RK4
4550 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4551 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4552 type(uppDia_type) ,
intent(in) :: subset
4557 module subroutine setMNR_RNGD_DM_AC_UXD_D2_RK3(rand, chol, subset)
4558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4559 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_UXD_D2_RK3
4562 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4563 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4564 type(uppDia_type) ,
intent(in) :: subset
4569 module subroutine setMNR_RNGD_DM_AC_UXD_D2_RK2(rand, chol, subset)
4570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4571 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_UXD_D2_RK2
4574 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4575 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4576 type(uppDia_type) ,
intent(in) :: subset
4581 module subroutine setMNR_RNGD_DM_AC_UXD_D2_RK1(rand, chol, subset)
4582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4583 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_UXD_D2_RK1
4586 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4587 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4588 type(uppDia_type) ,
intent(in) :: subset
4595 module subroutine setMNR_RNGD_DM_AC_XLD_D2_RK5(rand, chol, subset)
4596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4597 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_XLD_D2_RK5
4600 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4601 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4602 type(lowDia_type) ,
intent(in) :: subset
4607 module subroutine setMNR_RNGD_DM_AC_XLD_D2_RK4(rand, chol, subset)
4608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4609 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_XLD_D2_RK4
4612 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4613 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4614 type(lowDia_type) ,
intent(in) :: subset
4619 module subroutine setMNR_RNGD_DM_AC_XLD_D2_RK3(rand, chol, subset)
4620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4621 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_XLD_D2_RK3
4624 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4625 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4626 type(lowDia_type) ,
intent(in) :: subset
4631 module subroutine setMNR_RNGD_DM_AC_XLD_D2_RK2(rand, chol, subset)
4632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4633 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_XLD_D2_RK2
4636 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4637 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4638 type(lowDia_type) ,
intent(in) :: subset
4643 module subroutine setMNR_RNGD_DM_AC_XLD_D2_RK1(rand, chol, subset)
4644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4645 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_DM_AC_XLD_D2_RK1
4648 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4649 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4650 type(lowDia_type) ,
intent(in) :: subset
4657 module subroutine setMNR_RNGD_AM_AC_UXD_D2_RK5(rand, mean, chol, subset)
4658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4659 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_UXD_D2_RK5
4662 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4663 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4664 type(uppDia_type) ,
intent(in) :: subset
4669 module subroutine setMNR_RNGD_AM_AC_UXD_D2_RK4(rand, mean, chol, subset)
4670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4671 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_UXD_D2_RK4
4674 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4675 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4676 type(uppDia_type) ,
intent(in) :: subset
4681 module subroutine setMNR_RNGD_AM_AC_UXD_D2_RK3(rand, mean, chol, subset)
4682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4683 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_UXD_D2_RK3
4686 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4687 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4688 type(uppDia_type) ,
intent(in) :: subset
4693 module subroutine setMNR_RNGD_AM_AC_UXD_D2_RK2(rand, mean, chol, subset)
4694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4695 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_UXD_D2_RK2
4698 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4699 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4700 type(uppDia_type) ,
intent(in) :: subset
4705 module subroutine setMNR_RNGD_AM_AC_UXD_D2_RK1(rand, mean, chol, subset)
4706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4707 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_UXD_D2_RK1
4710 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4711 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4712 type(uppDia_type) ,
intent(in) :: subset
4719 module subroutine setMNR_RNGD_AM_AC_XLD_D2_RK5(rand, mean, chol, subset)
4720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4721 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_XLD_D2_RK5
4724 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4725 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4726 type(lowDia_type) ,
intent(in) :: subset
4731 module subroutine setMNR_RNGD_AM_AC_XLD_D2_RK4(rand, mean, chol, subset)
4732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4733 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_XLD_D2_RK4
4736 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4737 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4738 type(lowDia_type) ,
intent(in) :: subset
4743 module subroutine setMNR_RNGD_AM_AC_XLD_D2_RK3(rand, mean, chol, subset)
4744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4745 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_XLD_D2_RK3
4748 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4749 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4750 type(lowDia_type) ,
intent(in) :: subset
4755 module subroutine setMNR_RNGD_AM_AC_XLD_D2_RK2(rand, mean, chol, subset)
4756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4757 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_XLD_D2_RK2
4760 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4761 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4762 type(lowDia_type) ,
intent(in) :: subset
4767 module subroutine setMNR_RNGD_AM_AC_XLD_D2_RK1(rand, mean, chol, subset)
4768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4769 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGD_AM_AC_XLD_D2_RK1
4772 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4773 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
4774 type(lowDia_type) ,
intent(in) :: subset
4789 module subroutine setMNR_RNGF_DM_DC_XXX_D2_RK5(rng, rand)
4790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4791 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_DC_XXX_D2_RK5
4794 type(rngf_type) ,
intent(in) :: rng
4795 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4800 module subroutine setMNR_RNGF_DM_DC_XXX_D2_RK4(rng, rand)
4801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4802 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_DC_XXX_D2_RK4
4805 type(rngf_type) ,
intent(in) :: rng
4806 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4811 module subroutine setMNR_RNGF_DM_DC_XXX_D2_RK3(rng, rand)
4812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4813 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_DC_XXX_D2_RK3
4816 type(rngf_type) ,
intent(in) :: rng
4817 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4822 module subroutine setMNR_RNGF_DM_DC_XXX_D2_RK2(rng, rand)
4823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4824 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_DC_XXX_D2_RK2
4827 type(rngf_type) ,
intent(in) :: rng
4828 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4833 module subroutine setMNR_RNGF_DM_DC_XXX_D2_RK1(rng, rand)
4834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4835 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_DC_XXX_D2_RK1
4838 type(rngf_type) ,
intent(in) :: rng
4839 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4846 module subroutine setMNR_RNGF_AM_DC_XXX_D2_RK5(rng, rand, mean)
4847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4848 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_DC_XXX_D2_RK5
4851 type(rngf_type) ,
intent(in) :: rng
4852 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4853 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4858 module subroutine setMNR_RNGF_AM_DC_XXX_D2_RK4(rng, rand, mean)
4859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4860 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_DC_XXX_D2_RK4
4863 type(rngf_type) ,
intent(in) :: rng
4864 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4865 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4870 module subroutine setMNR_RNGF_AM_DC_XXX_D2_RK3(rng, rand, mean)
4871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4872 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_DC_XXX_D2_RK3
4875 type(rngf_type) ,
intent(in) :: rng
4876 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4877 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4882 module subroutine setMNR_RNGF_AM_DC_XXX_D2_RK2(rng, rand, mean)
4883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4884 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_DC_XXX_D2_RK2
4887 type(rngf_type) ,
intent(in) :: rng
4888 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4889 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4894 module subroutine setMNR_RNGF_AM_DC_XXX_D2_RK1(rng, rand, mean)
4895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4896 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_DC_XXX_D2_RK1
4899 type(rngf_type) ,
intent(in) :: rng
4900 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4901 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
4908 module subroutine setMNR_RNGF_DM_AC_UXD_D2_RK5(rng, rand, chol, subset)
4909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4910 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_UXD_D2_RK5
4913 type(rngf_type) ,
intent(in) :: rng
4914 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4915 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4916 type(uppDia_type) ,
intent(in) :: subset
4921 module subroutine setMNR_RNGF_DM_AC_UXD_D2_RK4(rng, rand, chol, subset)
4922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4923 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_UXD_D2_RK4
4926 type(rngf_type) ,
intent(in) :: rng
4927 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4928 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4929 type(uppDia_type) ,
intent(in) :: subset
4934 module subroutine setMNR_RNGF_DM_AC_UXD_D2_RK3(rng, rand, chol, subset)
4935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4936 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_UXD_D2_RK3
4939 type(rngf_type) ,
intent(in) :: rng
4940 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4941 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4942 type(uppDia_type) ,
intent(in) :: subset
4947 module subroutine setMNR_RNGF_DM_AC_UXD_D2_RK2(rng, rand, chol, subset)
4948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4949 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_UXD_D2_RK2
4952 type(rngf_type) ,
intent(in) :: rng
4953 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4954 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4955 type(uppDia_type) ,
intent(in) :: subset
4960 module subroutine setMNR_RNGF_DM_AC_UXD_D2_RK1(rng, rand, chol, subset)
4961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4962 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_UXD_D2_RK1
4965 type(rngf_type) ,
intent(in) :: rng
4966 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4967 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4968 type(uppDia_type) ,
intent(in) :: subset
4975 module subroutine setMNR_RNGF_DM_AC_XLD_D2_RK5(rng, rand, chol, subset)
4976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4977 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_XLD_D2_RK5
4980 type(rngf_type) ,
intent(in) :: rng
4981 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4982 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4983 type(lowDia_type) ,
intent(in) :: subset
4988 module subroutine setMNR_RNGF_DM_AC_XLD_D2_RK4(rng, rand, chol, subset)
4989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4990 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_XLD_D2_RK4
4993 type(rngf_type) ,
intent(in) :: rng
4994 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
4995 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
4996 type(lowDia_type) ,
intent(in) :: subset
5001 module subroutine setMNR_RNGF_DM_AC_XLD_D2_RK3(rng, rand, chol, subset)
5002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5003 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_XLD_D2_RK3
5006 type(rngf_type) ,
intent(in) :: rng
5007 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5008 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
5009 type(lowDia_type) ,
intent(in) :: subset
5014 module subroutine setMNR_RNGF_DM_AC_XLD_D2_RK2(rng, rand, chol, subset)
5015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5016 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_XLD_D2_RK2
5019 type(rngf_type) ,
intent(in) :: rng
5020 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5021 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
5022 type(lowDia_type) ,
intent(in) :: subset
5027 module subroutine setMNR_RNGF_DM_AC_XLD_D2_RK1(rng, rand, chol, subset)
5028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5029 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_DM_AC_XLD_D2_RK1
5032 type(rngf_type) ,
intent(in) :: rng
5033 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5034 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
5035 type(lowDia_type) ,
intent(in) :: subset
5042 module subroutine setMNR_RNGF_AM_AC_UXD_D2_RK5(rng, rand, mean, chol, subset)
5043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5044 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_UXD_D2_RK5
5047 type(rngf_type) ,
intent(in) :: rng
5048 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5049 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5050 type(uppDia_type) ,
intent(in) :: subset
5055 module subroutine setMNR_RNGF_AM_AC_UXD_D2_RK4(rng, rand, mean, chol, subset)
5056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5057 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_UXD_D2_RK4
5060 type(rngf_type) ,
intent(in) :: rng
5061 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5062 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5063 type(uppDia_type) ,
intent(in) :: subset
5068 module subroutine setMNR_RNGF_AM_AC_UXD_D2_RK3(rng, rand, mean, chol, subset)
5069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5070 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_UXD_D2_RK3
5073 type(rngf_type) ,
intent(in) :: rng
5074 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5075 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5076 type(uppDia_type) ,
intent(in) :: subset
5081 module subroutine setMNR_RNGF_AM_AC_UXD_D2_RK2(rng, rand, mean, chol, subset)
5082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5083 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_UXD_D2_RK2
5086 type(rngf_type) ,
intent(in) :: rng
5087 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5088 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5089 type(uppDia_type) ,
intent(in) :: subset
5094 module subroutine setMNR_RNGF_AM_AC_UXD_D2_RK1(rng, rand, mean, chol, subset)
5095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5096 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_UXD_D2_RK1
5099 type(rngf_type) ,
intent(in) :: rng
5100 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5101 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5102 type(uppDia_type) ,
intent(in) :: subset
5109 module subroutine setMNR_RNGF_AM_AC_XLD_D2_RK5(rng, rand, mean, chol, subset)
5110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5111 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_XLD_D2_RK5
5114 type(rngf_type) ,
intent(in) :: rng
5115 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5116 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5117 type(lowDia_type) ,
intent(in) :: subset
5122 module subroutine setMNR_RNGF_AM_AC_XLD_D2_RK4(rng, rand, mean, chol, subset)
5123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5124 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_XLD_D2_RK4
5127 type(rngf_type) ,
intent(in) :: rng
5128 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5129 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5130 type(lowDia_type) ,
intent(in) :: subset
5135 module subroutine setMNR_RNGF_AM_AC_XLD_D2_RK3(rng, rand, mean, chol, subset)
5136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5137 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_XLD_D2_RK3
5140 type(rngf_type) ,
intent(in) :: rng
5141 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5142 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5143 type(lowDia_type) ,
intent(in) :: subset
5148 module subroutine setMNR_RNGF_AM_AC_XLD_D2_RK2(rng, rand, mean, chol, subset)
5149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5150 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_XLD_D2_RK2
5153 type(rngf_type) ,
intent(in) :: rng
5154 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5155 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5156 type(lowDia_type) ,
intent(in) :: subset
5161 module subroutine setMNR_RNGF_AM_AC_XLD_D2_RK1(rng, rand, mean, chol, subset)
5162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5163 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGF_AM_AC_XLD_D2_RK1
5166 type(rngf_type) ,
intent(in) :: rng
5167 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5168 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5169 type(lowDia_type) ,
intent(in) :: subset
5184 PURE module subroutine setMNR_RNGX_DM_DC_XXX_D2_RK5(rng, rand)
5185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5186 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_DC_XXX_D2_RK5
5189 type(xoshiro256ssw_type),
intent(inout) :: rng
5190 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5195 PURE module subroutine setMNR_RNGX_DM_DC_XXX_D2_RK4(rng, rand)
5196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5197 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_DC_XXX_D2_RK4
5200 type(xoshiro256ssw_type),
intent(inout) :: rng
5201 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5206 PURE module subroutine setMNR_RNGX_DM_DC_XXX_D2_RK3(rng, rand)
5207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5208 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_DC_XXX_D2_RK3
5211 type(xoshiro256ssw_type),
intent(inout) :: rng
5212 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5217 PURE module subroutine setMNR_RNGX_DM_DC_XXX_D2_RK2(rng, rand)
5218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5219 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_DC_XXX_D2_RK2
5222 type(xoshiro256ssw_type),
intent(inout) :: rng
5223 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5228 PURE module subroutine setMNR_RNGX_DM_DC_XXX_D2_RK1(rng, rand)
5229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5230 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_DC_XXX_D2_RK1
5233 type(xoshiro256ssw_type),
intent(inout) :: rng
5234 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5241 PURE module subroutine setMNR_RNGX_AM_DC_XXX_D2_RK5(rng, rand, mean)
5242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5243 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_DC_XXX_D2_RK5
5246 type(xoshiro256ssw_type),
intent(inout) :: rng
5247 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5248 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
5253 PURE module subroutine setMNR_RNGX_AM_DC_XXX_D2_RK4(rng, rand, mean)
5254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5255 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_DC_XXX_D2_RK4
5258 type(xoshiro256ssw_type),
intent(inout) :: rng
5259 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5260 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
5265 PURE module subroutine setMNR_RNGX_AM_DC_XXX_D2_RK3(rng, rand, mean)
5266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5267 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_DC_XXX_D2_RK3
5270 type(xoshiro256ssw_type),
intent(inout) :: rng
5271 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5272 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
5277 PURE module subroutine setMNR_RNGX_AM_DC_XXX_D2_RK2(rng, rand, mean)
5278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5279 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_DC_XXX_D2_RK2
5282 type(xoshiro256ssw_type),
intent(inout) :: rng
5283 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5284 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
5289 PURE module subroutine setMNR_RNGX_AM_DC_XXX_D2_RK1(rng, rand, mean)
5290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5291 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_DC_XXX_D2_RK1
5294 type(xoshiro256ssw_type),
intent(inout) :: rng
5295 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5296 real(RKG) ,
intent(in) ,
contiguous :: mean(:)
5303 PURE module subroutine setMNR_RNGX_DM_AC_UXD_D2_RK5(rng, rand, chol, subset)
5304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5305 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_UXD_D2_RK5
5308 type(xoshiro256ssw_type),
intent(inout) :: rng
5309 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5310 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
5311 type(uppDia_type) ,
intent(in) :: subset
5316 PURE module subroutine setMNR_RNGX_DM_AC_UXD_D2_RK4(rng, rand, chol, subset)
5317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5318 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_UXD_D2_RK4
5321 type(xoshiro256ssw_type),
intent(inout) :: rng
5322 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5323 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
5324 type(uppDia_type) ,
intent(in) :: subset
5329 PURE module subroutine setMNR_RNGX_DM_AC_UXD_D2_RK3(rng, rand, chol, subset)
5330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5331 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_UXD_D2_RK3
5334 type(xoshiro256ssw_type),
intent(inout) :: rng
5335 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5336 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
5337 type(uppDia_type) ,
intent(in) :: subset
5342 PURE module subroutine setMNR_RNGX_DM_AC_UXD_D2_RK2(rng, rand, chol, subset)
5343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5344 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_UXD_D2_RK2
5347 type(xoshiro256ssw_type),
intent(inout) :: rng
5348 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5349 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
5350 type(uppDia_type) ,
intent(in) :: subset
5355 PURE module subroutine setMNR_RNGX_DM_AC_UXD_D2_RK1(rng, rand, chol, subset)
5356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5357 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_UXD_D2_RK1
5360 type(xoshiro256ssw_type),
intent(inout) :: rng
5361 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5362 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
5363 type(uppDia_type) ,
intent(in) :: subset
5370 PURE module subroutine setMNR_RNGX_DM_AC_XLD_D2_RK5(rng, rand, chol, subset)
5371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5372 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_XLD_D2_RK5
5375 type(xoshiro256ssw_type),
intent(inout) :: rng
5376 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5377 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
5378 type(lowDia_type) ,
intent(in) :: subset
5383 PURE module subroutine setMNR_RNGX_DM_AC_XLD_D2_RK4(rng, rand, chol, subset)
5384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5385 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_XLD_D2_RK4
5388 type(xoshiro256ssw_type),
intent(inout) :: rng
5389 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5390 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
5391 type(lowDia_type) ,
intent(in) :: subset
5396 PURE module subroutine setMNR_RNGX_DM_AC_XLD_D2_RK3(rng, rand, chol, subset)
5397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5398 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_XLD_D2_RK3
5401 type(xoshiro256ssw_type),
intent(inout) :: rng
5402 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5403 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
5404 type(lowDia_type) ,
intent(in) :: subset
5409 PURE module subroutine setMNR_RNGX_DM_AC_XLD_D2_RK2(rng, rand, chol, subset)
5410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5411 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_XLD_D2_RK2
5414 type(xoshiro256ssw_type),
intent(inout) :: rng
5415 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5416 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
5417 type(lowDia_type) ,
intent(in) :: subset
5422 PURE module subroutine setMNR_RNGX_DM_AC_XLD_D2_RK1(rng, rand, chol, subset)
5423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5424 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_DM_AC_XLD_D2_RK1
5427 type(xoshiro256ssw_type),
intent(inout) :: rng
5428 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5429 real(RKG) ,
intent(in) ,
contiguous :: chol(:,:)
5430 type(lowDia_type) ,
intent(in) :: subset
5437 PURE module subroutine setMNR_RNGX_AM_AC_UXD_D2_RK5(rng, rand, mean, chol, subset)
5438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5439 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_UXD_D2_RK5
5442 type(xoshiro256ssw_type),
intent(inout) :: rng
5443 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5444 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5445 type(uppDia_type) ,
intent(in) :: subset
5450 PURE module subroutine setMNR_RNGX_AM_AC_UXD_D2_RK4(rng, rand, mean, chol, subset)
5451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5452 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_UXD_D2_RK4
5455 type(xoshiro256ssw_type),
intent(inout) :: rng
5456 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5457 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5458 type(uppDia_type) ,
intent(in) :: subset
5463 PURE module subroutine setMNR_RNGX_AM_AC_UXD_D2_RK3(rng, rand, mean, chol, subset)
5464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5465 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_UXD_D2_RK3
5468 type(xoshiro256ssw_type),
intent(inout) :: rng
5469 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5470 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5471 type(uppDia_type) ,
intent(in) :: subset
5476 PURE module subroutine setMNR_RNGX_AM_AC_UXD_D2_RK2(rng, rand, mean, chol, subset)
5477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5478 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_UXD_D2_RK2
5481 type(xoshiro256ssw_type),
intent(inout) :: rng
5482 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5483 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5484 type(uppDia_type) ,
intent(in) :: subset
5489 PURE module subroutine setMNR_RNGX_AM_AC_UXD_D2_RK1(rng, rand, mean, chol, subset)
5490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5491 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_UXD_D2_RK1
5494 type(xoshiro256ssw_type),
intent(inout) :: rng
5495 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5496 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5497 type(uppDia_type) ,
intent(in) :: subset
5504 PURE module subroutine setMNR_RNGX_AM_AC_XLD_D2_RK5(rng, rand, mean, chol, subset)
5505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5506 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_XLD_D2_RK5
5509 type(xoshiro256ssw_type),
intent(inout) :: rng
5510 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5511 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5512 type(lowDia_type) ,
intent(in) :: subset
5517 PURE module subroutine setMNR_RNGX_AM_AC_XLD_D2_RK4(rng, rand, mean, chol, subset)
5518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5519 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_XLD_D2_RK4
5522 type(xoshiro256ssw_type),
intent(inout) :: rng
5523 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5524 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5525 type(lowDia_type) ,
intent(in) :: subset
5530 PURE module subroutine setMNR_RNGX_AM_AC_XLD_D2_RK3(rng, rand, mean, chol, subset)
5531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5532 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_XLD_D2_RK3
5535 type(xoshiro256ssw_type),
intent(inout) :: rng
5536 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5537 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5538 type(lowDia_type) ,
intent(in) :: subset
5543 PURE module subroutine setMNR_RNGX_AM_AC_XLD_D2_RK2(rng, rand, mean, chol, subset)
5544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5545 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_XLD_D2_RK2
5548 type(xoshiro256ssw_type),
intent(inout) :: rng
5549 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5550 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5551 type(lowDia_type) ,
intent(in) :: subset
5556 PURE module subroutine setMNR_RNGX_AM_AC_XLD_D2_RK1(rng, rand, mean, chol, subset)
5557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5558 !DEC$ ATTRIBUTES DLLEXPORT :: setMNR_RNGX_AM_AC_XLD_D2_RK1
5561 type(xoshiro256ssw_type),
intent(inout) :: rng
5562 real(RKG) ,
intent(out) ,
contiguous :: rand(:,:)
5563 real(RKG) ,
intent(in) ,
contiguous :: mean(:), chol(:,:)
5564 type(lowDia_type) ,
intent(in) :: subset
5574end module pm_distMultiNorm
Generate and return the natural logarithm of the normalization coefficient of the Probability Density...
Generate and return the natural logarithm of the Probability Density Function (PDF) of the MultiVaria...
Generate and return a (collection) of random vector(s) of size ndim from the ndim-dimensional MultiVa...
Return a (collection) of random vector(s) of size ndim from the ndim-dimensional MultiVariate Normal ...
This module contains classes and procedures for computing various statistical quantities related to t...
character(*, SK), parameter MODULE_NAME
This module contains classes and procedures for computing various statistical quantities related to t...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This 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 Normal (MVN) as d...
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...