353 PURE module function getCovCorStd_ULD_UXD_CK5(cor, subsetr, std)
result(cov)
354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
355 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_UXD_CK5
358 type(uppDia_type) ,
intent(in) :: subsetr
359 real(TKG) ,
intent(in) ,
contiguous :: std(:)
360 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
361 complex(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
366 PURE module function getCovCorStd_ULD_UXD_CK4(cor, subsetr, std)
result(cov)
367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
368 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_UXD_CK4
371 type(uppDia_type) ,
intent(in) :: subsetr
372 real(TKG) ,
intent(in) ,
contiguous :: std(:)
373 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
374 complex(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
379 PURE module function getCovCorStd_ULD_UXD_CK3(cor, subsetr, std)
result(cov)
380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
381 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_UXD_CK3
384 type(uppDia_type) ,
intent(in) :: subsetr
385 real(TKG) ,
intent(in) ,
contiguous :: std(:)
386 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
387 complex(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
392 PURE module function getCovCorStd_ULD_UXD_CK2(cor, subsetr, std)
result(cov)
393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
394 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_UXD_CK2
397 type(uppDia_type) ,
intent(in) :: subsetr
398 real(TKG) ,
intent(in) ,
contiguous :: std(:)
399 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
400 complex(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
405 PURE module function getCovCorStd_ULD_UXD_CK1(cor, subsetr, std)
result(cov)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_UXD_CK1
410 type(uppDia_type) ,
intent(in) :: subsetr
411 real(TKG) ,
intent(in) ,
contiguous :: std(:)
412 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
413 complex(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
420 PURE module function getCovCorStd_ULD_UXD_RK5(cor, subsetr, std)
result(cov)
421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
422 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_UXD_RK5
425 type(uppDia_type) ,
intent(in) :: subsetr
426 real(TKG) ,
intent(in) ,
contiguous :: std(:)
427 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
428 real(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
433 PURE module function getCovCorStd_ULD_UXD_RK4(cor, subsetr, std)
result(cov)
434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
435 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_UXD_RK4
438 type(uppDia_type) ,
intent(in) :: subsetr
439 real(TKG) ,
intent(in) ,
contiguous :: std(:)
440 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
441 real(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
446 PURE module function getCovCorStd_ULD_UXD_RK3(cor, subsetr, std)
result(cov)
447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
448 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_UXD_RK3
451 type(uppDia_type) ,
intent(in) :: subsetr
452 real(TKG) ,
intent(in) ,
contiguous :: std(:)
453 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
454 real(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
459 PURE module function getCovCorStd_ULD_UXD_RK2(cor, subsetr, std)
result(cov)
460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
461 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_UXD_RK2
464 type(uppDia_type) ,
intent(in) :: subsetr
465 real(TKG) ,
intent(in) ,
contiguous :: std(:)
466 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
467 real(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
472 PURE module function getCovCorStd_ULD_UXD_RK1(cor, subsetr, std)
result(cov)
473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
474 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_UXD_RK1
477 type(uppDia_type) ,
intent(in) :: subsetr
478 real(TKG) ,
intent(in) ,
contiguous :: std(:)
479 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
480 real(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
493 PURE module function getCovCorStd_ULD_XLD_CK5(cor, subsetr, std)
result(cov)
494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
495 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_XLD_CK5
498 type(lowDia_type) ,
intent(in) :: subsetr
499 real(TKG) ,
intent(in) ,
contiguous :: std(:)
500 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
501 complex(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
506 PURE module function getCovCorStd_ULD_XLD_CK4(cor, subsetr, std)
result(cov)
507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
508 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_XLD_CK4
511 type(lowDia_type) ,
intent(in) :: subsetr
512 real(TKG) ,
intent(in) ,
contiguous :: std(:)
513 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
514 complex(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
519 PURE module function getCovCorStd_ULD_XLD_CK3(cor, subsetr, std)
result(cov)
520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
521 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_XLD_CK3
524 type(lowDia_type) ,
intent(in) :: subsetr
525 real(TKG) ,
intent(in) ,
contiguous :: std(:)
526 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
527 complex(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
532 PURE module function getCovCorStd_ULD_XLD_CK2(cor, subsetr, std)
result(cov)
533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
534 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_XLD_CK2
537 type(lowDia_type) ,
intent(in) :: subsetr
538 real(TKG) ,
intent(in) ,
contiguous :: std(:)
539 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
540 complex(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
545 PURE module function getCovCorStd_ULD_XLD_CK1(cor, subsetr, std)
result(cov)
546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
547 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_XLD_CK1
550 type(lowDia_type) ,
intent(in) :: subsetr
551 real(TKG) ,
intent(in) ,
contiguous :: std(:)
552 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
553 complex(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
560 PURE module function getCovCorStd_ULD_XLD_RK5(cor, subsetr, std)
result(cov)
561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
562 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_XLD_RK5
565 type(lowDia_type) ,
intent(in) :: subsetr
566 real(TKG) ,
intent(in) ,
contiguous :: std(:)
567 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
568 real(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
573 PURE module function getCovCorStd_ULD_XLD_RK4(cor, subsetr, std)
result(cov)
574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
575 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_XLD_RK4
578 type(lowDia_type) ,
intent(in) :: subsetr
579 real(TKG) ,
intent(in) ,
contiguous :: std(:)
580 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
581 real(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
586 PURE module function getCovCorStd_ULD_XLD_RK3(cor, subsetr, std)
result(cov)
587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
588 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_XLD_RK3
591 type(lowDia_type) ,
intent(in) :: subsetr
592 real(TKG) ,
intent(in) ,
contiguous :: std(:)
593 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
594 real(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
599 PURE module function getCovCorStd_ULD_XLD_RK2(cor, subsetr, std)
result(cov)
600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
601 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_XLD_RK2
604 type(lowDia_type) ,
intent(in) :: subsetr
605 real(TKG) ,
intent(in) ,
contiguous :: std(:)
606 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
607 real(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
612 PURE module function getCovCorStd_ULD_XLD_RK1(cor, subsetr, std)
result(cov)
613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
614 !DEC$ ATTRIBUTES DLLEXPORT :: getCovCorStd_ULD_XLD_RK1
617 type(lowDia_type) ,
intent(in) :: subsetr
618 real(TKG) ,
intent(in) ,
contiguous :: std(:)
619 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
620 real(TKG) :: cov(
size(cor,
1, IK),
size(cor,
2))
641 PURE module function getCovWNO_XY_CK5(x, y, correction)
result(cov)
642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
643 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_XY_CK5
646 class(weight_type) ,
intent(in) ,
optional :: correction
647 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
648 complex(TKG) :: cov(
2,
2)
653 PURE module function getCovWNO_XY_CK4(x, y, correction)
result(cov)
654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
655 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_XY_CK4
658 class(weight_type) ,
intent(in) ,
optional :: correction
659 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
660 complex(TKG) :: cov(
2,
2)
665 PURE module function getCovWNO_XY_CK3(x, y, correction)
result(cov)
666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
667 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_XY_CK3
670 class(weight_type) ,
intent(in) ,
optional :: correction
671 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
672 complex(TKG) :: cov(
2,
2)
677 PURE module function getCovWNO_XY_CK2(x, y, correction)
result(cov)
678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
679 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_XY_CK2
682 class(weight_type) ,
intent(in) ,
optional :: correction
683 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
684 complex(TKG) :: cov(
2,
2)
689 PURE module function getCovWNO_XY_CK1(x, y, correction)
result(cov)
690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
691 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_XY_CK1
694 class(weight_type) ,
intent(in) ,
optional :: correction
695 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
696 complex(TKG) :: cov(
2,
2)
703 PURE module function getCovWNO_XY_RK5(x, y, correction)
result(cov)
704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
705 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_XY_RK5
708 class(weight_type) ,
intent(in) ,
optional :: correction
709 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
710 real(TKG) :: cov(
2,
2)
715 PURE module function getCovWNO_XY_RK4(x, y, correction)
result(cov)
716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
717 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_XY_RK4
720 class(weight_type) ,
intent(in) ,
optional :: correction
721 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
722 real(TKG) :: cov(
2,
2)
727 PURE module function getCovWNO_XY_RK3(x, y, correction)
result(cov)
728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
729 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_XY_RK3
732 class(weight_type) ,
intent(in) ,
optional :: correction
733 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
734 real(TKG) :: cov(
2,
2)
739 PURE module function getCovWNO_XY_RK2(x, y, correction)
result(cov)
740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
741 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_XY_RK2
744 class(weight_type) ,
intent(in) ,
optional :: correction
745 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
746 real(TKG) :: cov(
2,
2)
751 PURE module function getCovWNO_XY_RK1(x, y, correction)
result(cov)
752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
753 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_XY_RK1
756 class(weight_type) ,
intent(in) ,
optional :: correction
757 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
758 real(TKG) :: cov(
2,
2)
773 PURE module function getCovWTI_XY_CK5(x, y, weight, correction)
result(cov)
774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
775 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_XY_CK5
778 class(weight_type) ,
intent(in) ,
optional :: correction
779 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
780 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
781 complex(TKG) :: cov(
2,
2)
786 PURE module function getCovWTI_XY_CK4(x, y, weight, correction)
result(cov)
787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
788 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_XY_CK4
791 class(weight_type) ,
intent(in) ,
optional :: correction
792 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
793 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
794 complex(TKG) :: cov(
2,
2)
799 PURE module function getCovWTI_XY_CK3(x, y, weight, correction)
result(cov)
800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
801 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_XY_CK3
804 class(weight_type) ,
intent(in) ,
optional :: correction
805 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
806 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
807 complex(TKG) :: cov(
2,
2)
812 PURE module function getCovWTI_XY_CK2(x, y, weight, correction)
result(cov)
813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
814 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_XY_CK2
817 class(weight_type) ,
intent(in) ,
optional :: correction
818 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
819 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
820 complex(TKG) :: cov(
2,
2)
825 PURE module function getCovWTI_XY_CK1(x, y, weight, correction)
result(cov)
826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
827 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_XY_CK1
830 class(weight_type) ,
intent(in) ,
optional :: correction
831 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
832 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
833 complex(TKG) :: cov(
2,
2)
840 PURE module function getCovWTI_XY_RK5(x, y, weight, correction)
result(cov)
841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
842 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_XY_RK5
845 class(weight_type) ,
intent(in) ,
optional :: correction
846 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
847 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
848 real(TKG) :: cov(
2,
2)
853 PURE module function getCovWTI_XY_RK4(x, y, weight, correction)
result(cov)
854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
855 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_XY_RK4
858 class(weight_type) ,
intent(in) ,
optional :: correction
859 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
860 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
861 real(TKG) :: cov(
2,
2)
866 PURE module function getCovWTI_XY_RK3(x, y, weight, correction)
result(cov)
867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
868 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_XY_RK3
871 class(weight_type) ,
intent(in) ,
optional :: correction
872 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
873 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
874 real(TKG) :: cov(
2,
2)
879 PURE module function getCovWTI_XY_RK2(x, y, weight, correction)
result(cov)
880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
881 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_XY_RK2
884 class(weight_type) ,
intent(in) ,
optional :: correction
885 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
886 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
887 real(TKG) :: cov(
2,
2)
892 PURE module function getCovWTI_XY_RK1(x, y, weight, correction)
result(cov)
893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
894 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_XY_RK1
897 class(weight_type) ,
intent(in) ,
optional :: correction
898 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
899 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
900 real(TKG) :: cov(
2,
2)
915 PURE module function getCovWTR_XY_CK5(x, y, weight, correction)
result(cov)
916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
917 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_XY_CK5
920 class(weight_type) ,
intent(in) ,
optional :: correction
921 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
922 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
923 complex(TKG) :: cov(
2,
2)
928 PURE module function getCovWTR_XY_CK4(x, y, weight, correction)
result(cov)
929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
930 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_XY_CK4
933 class(weight_type) ,
intent(in) ,
optional :: correction
934 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
935 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
936 complex(TKG) :: cov(
2,
2)
941 PURE module function getCovWTR_XY_CK3(x, y, weight, correction)
result(cov)
942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
943 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_XY_CK3
946 class(weight_type) ,
intent(in) ,
optional :: correction
947 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
948 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
949 complex(TKG) :: cov(
2,
2)
954 PURE module function getCovWTR_XY_CK2(x, y, weight, correction)
result(cov)
955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
956 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_XY_CK2
959 class(weight_type) ,
intent(in) ,
optional :: correction
960 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
961 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
962 complex(TKG) :: cov(
2,
2)
967 PURE module function getCovWTR_XY_CK1(x, y, weight, correction)
result(cov)
968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
969 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_XY_CK1
972 class(weight_type) ,
intent(in) ,
optional :: correction
973 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
974 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
975 complex(TKG) :: cov(
2,
2)
982 PURE module function getCovWTR_XY_RK5(x, y, weight, correction)
result(cov)
983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
984 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_XY_RK5
987 class(weight_type) ,
intent(in) ,
optional :: correction
988 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
989 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
990 real(TKG) :: cov(
2,
2)
995 PURE module function getCovWTR_XY_RK4(x, y, weight, correction)
result(cov)
996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
997 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_XY_RK4
1000 class(weight_type) ,
intent(in) ,
optional :: correction
1001 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1002 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1003 real(TKG) :: cov(
2,
2)
1008 PURE module function getCovWTR_XY_RK3(x, y, weight, correction)
result(cov)
1009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1010 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_XY_RK3
1013 class(weight_type) ,
intent(in) ,
optional :: correction
1014 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1015 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1016 real(TKG) :: cov(
2,
2)
1021 PURE module function getCovWTR_XY_RK2(x, y, weight, correction)
result(cov)
1022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1023 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_XY_RK2
1026 class(weight_type) ,
intent(in) ,
optional :: correction
1027 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1028 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1029 real(TKG) :: cov(
2,
2)
1034 PURE module function getCovWTR_XY_RK1(x, y, weight, correction)
result(cov)
1035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1036 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_XY_RK1
1039 class(weight_type) ,
intent(in) ,
optional :: correction
1040 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1041 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1042 real(TKG) :: cov(
2,
2)
1059 PURE module function getCovWNO_ULD_CK5(sample, dim, correction)
result(cov)
1060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1061 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_ULD_CK5
1064 integer(IK) ,
intent(in) :: dim
1065 class(weight_type) ,
intent(in) ,
optional :: correction
1066 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1067 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1072 PURE module function getCovWNO_ULD_CK4(sample, dim, correction)
result(cov)
1073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1074 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_ULD_CK4
1077 integer(IK) ,
intent(in) :: dim
1078 class(weight_type) ,
intent(in) ,
optional :: correction
1079 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1080 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1085 PURE module function getCovWNO_ULD_CK3(sample, dim, correction)
result(cov)
1086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1087 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_ULD_CK3
1090 integer(IK) ,
intent(in) :: dim
1091 class(weight_type) ,
intent(in) ,
optional :: correction
1092 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1093 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1098 PURE module function getCovWNO_ULD_CK2(sample, dim, correction)
result(cov)
1099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1100 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_ULD_CK2
1103 integer(IK) ,
intent(in) :: dim
1104 class(weight_type) ,
intent(in) ,
optional :: correction
1105 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1106 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1111 PURE module function getCovWNO_ULD_CK1(sample, dim, correction)
result(cov)
1112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1113 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_ULD_CK1
1116 integer(IK) ,
intent(in) :: dim
1117 class(weight_type) ,
intent(in) ,
optional :: correction
1118 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1119 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1126 PURE module function getCovWNO_ULD_RK5(sample, dim, correction)
result(cov)
1127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1128 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_ULD_RK5
1131 integer(IK) ,
intent(in) :: dim
1132 class(weight_type) ,
intent(in) ,
optional :: correction
1133 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1134 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1139 PURE module function getCovWNO_ULD_RK4(sample, dim, correction)
result(cov)
1140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1141 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_ULD_RK4
1144 integer(IK) ,
intent(in) :: dim
1145 class(weight_type) ,
intent(in) ,
optional :: correction
1146 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1147 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1152 PURE module function getCovWNO_ULD_RK3(sample, dim, correction)
result(cov)
1153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1154 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_ULD_RK3
1157 integer(IK) ,
intent(in) :: dim
1158 class(weight_type) ,
intent(in) ,
optional :: correction
1159 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1160 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1165 PURE module function getCovWNO_ULD_RK2(sample, dim, correction)
result(cov)
1166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1167 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_ULD_RK2
1170 integer(IK) ,
intent(in) :: dim
1171 class(weight_type) ,
intent(in) ,
optional :: correction
1172 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1173 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1178 PURE module function getCovWNO_ULD_RK1(sample, dim, correction)
result(cov)
1179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1180 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWNO_ULD_RK1
1183 integer(IK) ,
intent(in) :: dim
1184 class(weight_type) ,
intent(in) ,
optional :: correction
1185 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1186 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1201 PURE module function getCovWTI_ULD_CK5(sample, dim, weight, correction)
result(cov)
1202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1203 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_ULD_CK5
1206 integer(IK) ,
intent(in) :: dim
1207 class(weight_type) ,
intent(in) ,
optional :: correction
1208 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1209 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1210 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1215 PURE module function getCovWTI_ULD_CK4(sample, dim, weight, correction)
result(cov)
1216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1217 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_ULD_CK4
1220 integer(IK) ,
intent(in) :: dim
1221 class(weight_type) ,
intent(in) ,
optional :: correction
1222 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1223 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1224 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1229 PURE module function getCovWTI_ULD_CK3(sample, dim, weight, correction)
result(cov)
1230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1231 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_ULD_CK3
1234 integer(IK) ,
intent(in) :: dim
1235 class(weight_type) ,
intent(in) ,
optional :: correction
1236 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1237 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1238 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1243 PURE module function getCovWTI_ULD_CK2(sample, dim, weight, correction)
result(cov)
1244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1245 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_ULD_CK2
1248 integer(IK) ,
intent(in) :: dim
1249 class(weight_type) ,
intent(in) ,
optional :: correction
1250 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1251 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1252 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1257 PURE module function getCovWTI_ULD_CK1(sample, dim, weight, correction)
result(cov)
1258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1259 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_ULD_CK1
1262 integer(IK) ,
intent(in) :: dim
1263 class(weight_type) ,
intent(in) ,
optional :: correction
1264 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1265 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1266 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1273 PURE module function getCovWTI_ULD_RK5(sample, dim, weight, correction)
result(cov)
1274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1275 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_ULD_RK5
1278 integer(IK) ,
intent(in) :: dim
1279 class(weight_type) ,
intent(in) ,
optional :: correction
1280 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1281 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1282 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1287 PURE module function getCovWTI_ULD_RK4(sample, dim, weight, correction)
result(cov)
1288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1289 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_ULD_RK4
1292 integer(IK) ,
intent(in) :: dim
1293 class(weight_type) ,
intent(in) ,
optional :: correction
1294 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1295 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1296 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1301 PURE module function getCovWTI_ULD_RK3(sample, dim, weight, correction)
result(cov)
1302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1303 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_ULD_RK3
1306 integer(IK) ,
intent(in) :: dim
1307 class(weight_type) ,
intent(in) ,
optional :: correction
1308 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1309 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1310 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1315 PURE module function getCovWTI_ULD_RK2(sample, dim, weight, correction)
result(cov)
1316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1317 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_ULD_RK2
1320 integer(IK) ,
intent(in) :: dim
1321 class(weight_type) ,
intent(in) ,
optional :: correction
1322 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1323 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1324 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1329 PURE module function getCovWTI_ULD_RK1(sample, dim, weight, correction)
result(cov)
1330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1331 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTI_ULD_RK1
1334 integer(IK) ,
intent(in) :: dim
1335 class(weight_type) ,
intent(in) ,
optional :: correction
1336 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1337 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1338 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1353 PURE module function getCovWTR_ULD_CK5(sample, dim, weight, correction)
result(cov)
1354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1355 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_ULD_CK5
1358 integer(IK) ,
intent(in) :: dim
1359 class(weight_type) ,
intent(in) ,
optional :: correction
1360 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1361 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1362 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1367 PURE module function getCovWTR_ULD_CK4(sample, dim, weight, correction)
result(cov)
1368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1369 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_ULD_CK4
1372 integer(IK) ,
intent(in) :: dim
1373 class(weight_type) ,
intent(in) ,
optional :: correction
1374 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1375 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1376 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1381 PURE module function getCovWTR_ULD_CK3(sample, dim, weight, correction)
result(cov)
1382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1383 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_ULD_CK3
1386 integer(IK) ,
intent(in) :: dim
1387 class(weight_type) ,
intent(in) ,
optional :: correction
1388 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1389 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1390 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1395 PURE module function getCovWTR_ULD_CK2(sample, dim, weight, correction)
result(cov)
1396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1397 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_ULD_CK2
1400 integer(IK) ,
intent(in) :: dim
1401 class(weight_type) ,
intent(in) ,
optional :: correction
1402 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1403 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1404 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1409 PURE module function getCovWTR_ULD_CK1(sample, dim, weight, correction)
result(cov)
1410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1411 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_ULD_CK1
1414 integer(IK) ,
intent(in) :: dim
1415 class(weight_type) ,
intent(in) ,
optional :: correction
1416 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1417 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1418 complex(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1425 PURE module function getCovWTR_ULD_RK5(sample, dim, weight, correction)
result(cov)
1426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1427 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_ULD_RK5
1430 integer(IK) ,
intent(in) :: dim
1431 class(weight_type) ,
intent(in) ,
optional :: correction
1432 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1433 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1434 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1439 PURE module function getCovWTR_ULD_RK4(sample, dim, weight, correction)
result(cov)
1440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1441 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_ULD_RK4
1444 integer(IK) ,
intent(in) :: dim
1445 class(weight_type) ,
intent(in) ,
optional :: correction
1446 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1447 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1448 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1453 PURE module function getCovWTR_ULD_RK3(sample, dim, weight, correction)
result(cov)
1454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1455 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_ULD_RK3
1458 integer(IK) ,
intent(in) :: dim
1459 class(weight_type) ,
intent(in) ,
optional :: correction
1460 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1461 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1462 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1467 PURE module function getCovWTR_ULD_RK2(sample, dim, weight, correction)
result(cov)
1468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1469 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_ULD_RK2
1472 integer(IK) ,
intent(in) :: dim
1473 class(weight_type) ,
intent(in) ,
optional :: correction
1474 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1475 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1476 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1481 PURE module function getCovWTR_ULD_RK1(sample, dim, weight, correction)
result(cov)
1482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1483 !DEC$ ATTRIBUTES DLLEXPORT :: getCovWTR_ULD_RK1
1486 integer(IK) ,
intent(in) :: dim
1487 class(weight_type) ,
intent(in) ,
optional :: correction
1488 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1489 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1490 real(TKG) :: cov(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1703 PURE module subroutine setCovCorStd_UXD_UXD_CK5(cov, subset, cor, subsetr, std)
1704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1705 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_UXD_CK5
1708 type(uppDia_type) ,
intent(in) :: subset
1709 type(uppDia_type) ,
intent(in) :: subsetr
1710 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1711 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1712 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1717 PURE module subroutine setCovCorStd_UXD_UXD_CK4(cov, subset, cor, subsetr, std)
1718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1719 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_UXD_CK4
1722 type(uppDia_type) ,
intent(in) :: subset
1723 type(uppDia_type) ,
intent(in) :: subsetr
1724 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1725 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1726 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1731 PURE module subroutine setCovCorStd_UXD_UXD_CK3(cov, subset, cor, subsetr, std)
1732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1733 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_UXD_CK3
1736 type(uppDia_type) ,
intent(in) :: subset
1737 type(uppDia_type) ,
intent(in) :: subsetr
1738 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1739 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1740 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1745 PURE module subroutine setCovCorStd_UXD_UXD_CK2(cov, subset, cor, subsetr, std)
1746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1747 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_UXD_CK2
1750 type(uppDia_type) ,
intent(in) :: subset
1751 type(uppDia_type) ,
intent(in) :: subsetr
1752 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1753 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1754 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1759 PURE module subroutine setCovCorStd_UXD_UXD_CK1(cov, subset, cor, subsetr, std)
1760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1761 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_UXD_CK1
1764 type(uppDia_type) ,
intent(in) :: subset
1765 type(uppDia_type) ,
intent(in) :: subsetr
1766 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1767 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1768 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1775 PURE module subroutine setCovCorStd_UXD_UXD_RK5(cov, subset, cor, subsetr, std)
1776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1777 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_UXD_RK5
1780 type(uppDia_type) ,
intent(in) :: subset
1781 type(uppDia_type) ,
intent(in) :: subsetr
1782 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1783 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1784 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1789 PURE module subroutine setCovCorStd_UXD_UXD_RK4(cov, subset, cor, subsetr, std)
1790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1791 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_UXD_RK4
1794 type(uppDia_type) ,
intent(in) :: subset
1795 type(uppDia_type) ,
intent(in) :: subsetr
1796 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1797 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1798 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1803 PURE module subroutine setCovCorStd_UXD_UXD_RK3(cov, subset, cor, subsetr, std)
1804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1805 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_UXD_RK3
1808 type(uppDia_type) ,
intent(in) :: subset
1809 type(uppDia_type) ,
intent(in) :: subsetr
1810 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1811 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1812 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1817 PURE module subroutine setCovCorStd_UXD_UXD_RK2(cov, subset, cor, subsetr, std)
1818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1819 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_UXD_RK2
1822 type(uppDia_type) ,
intent(in) :: subset
1823 type(uppDia_type) ,
intent(in) :: subsetr
1824 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1825 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1826 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1831 PURE module subroutine setCovCorStd_UXD_UXD_RK1(cov, subset, cor, subsetr, std)
1832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1833 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_UXD_RK1
1836 type(uppDia_type) ,
intent(in) :: subset
1837 type(uppDia_type) ,
intent(in) :: subsetr
1838 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1839 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1840 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1853 PURE module subroutine setCovCorStd_UXD_XLD_CK5(cov, subset, cor, subsetr, std)
1854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1855 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_XLD_CK5
1858 type(uppDia_type) ,
intent(in) :: subset
1859 type(lowDia_type) ,
intent(in) :: subsetr
1860 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1861 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1862 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1867 PURE module subroutine setCovCorStd_UXD_XLD_CK4(cov, subset, cor, subsetr, std)
1868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1869 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_XLD_CK4
1872 type(uppDia_type) ,
intent(in) :: subset
1873 type(lowDia_type) ,
intent(in) :: subsetr
1874 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1875 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1876 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1881 PURE module subroutine setCovCorStd_UXD_XLD_CK3(cov, subset, cor, subsetr, std)
1882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1883 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_XLD_CK3
1886 type(uppDia_type) ,
intent(in) :: subset
1887 type(lowDia_type) ,
intent(in) :: subsetr
1888 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1889 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1890 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1895 PURE module subroutine setCovCorStd_UXD_XLD_CK2(cov, subset, cor, subsetr, std)
1896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1897 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_XLD_CK2
1900 type(uppDia_type) ,
intent(in) :: subset
1901 type(lowDia_type) ,
intent(in) :: subsetr
1902 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1903 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1904 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1909 PURE module subroutine setCovCorStd_UXD_XLD_CK1(cov, subset, cor, subsetr, std)
1910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1911 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_XLD_CK1
1914 type(uppDia_type) ,
intent(in) :: subset
1915 type(lowDia_type) ,
intent(in) :: subsetr
1916 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1917 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1918 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1925 PURE module subroutine setCovCorStd_UXD_XLD_RK5(cov, subset, cor, subsetr, std)
1926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1927 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_XLD_RK5
1930 type(uppDia_type) ,
intent(in) :: subset
1931 type(lowDia_type) ,
intent(in) :: subsetr
1932 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1933 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1934 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1939 PURE module subroutine setCovCorStd_UXD_XLD_RK4(cov, subset, cor, subsetr, std)
1940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1941 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_XLD_RK4
1944 type(uppDia_type) ,
intent(in) :: subset
1945 type(lowDia_type) ,
intent(in) :: subsetr
1946 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1947 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1948 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1953 PURE module subroutine setCovCorStd_UXD_XLD_RK3(cov, subset, cor, subsetr, std)
1954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1955 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_XLD_RK3
1958 type(uppDia_type) ,
intent(in) :: subset
1959 type(lowDia_type) ,
intent(in) :: subsetr
1960 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1961 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1962 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1967 PURE module subroutine setCovCorStd_UXD_XLD_RK2(cov, subset, cor, subsetr, std)
1968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1969 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_XLD_RK2
1972 type(uppDia_type) ,
intent(in) :: subset
1973 type(lowDia_type) ,
intent(in) :: subsetr
1974 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1975 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1976 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
1981 PURE module subroutine setCovCorStd_UXD_XLD_RK1(cov, subset, cor, subsetr, std)
1982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1983 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_UXD_XLD_RK1
1986 type(uppDia_type) ,
intent(in) :: subset
1987 type(lowDia_type) ,
intent(in) :: subsetr
1988 real(TKG) ,
intent(in) ,
contiguous :: std(:)
1989 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
1990 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2003 PURE module subroutine setCovCorStd_XLD_UXD_CK5(cov, subset, cor, subsetr, std)
2004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2005 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_UXD_CK5
2008 type(lowDia_type) ,
intent(in) :: subset
2009 type(uppDia_type) ,
intent(in) :: subsetr
2010 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2011 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2012 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2017 PURE module subroutine setCovCorStd_XLD_UXD_CK4(cov, subset, cor, subsetr, std)
2018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2019 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_UXD_CK4
2022 type(lowDia_type) ,
intent(in) :: subset
2023 type(uppDia_type) ,
intent(in) :: subsetr
2024 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2025 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2026 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2031 PURE module subroutine setCovCorStd_XLD_UXD_CK3(cov, subset, cor, subsetr, std)
2032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2033 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_UXD_CK3
2036 type(lowDia_type) ,
intent(in) :: subset
2037 type(uppDia_type) ,
intent(in) :: subsetr
2038 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2039 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2040 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2045 PURE module subroutine setCovCorStd_XLD_UXD_CK2(cov, subset, cor, subsetr, std)
2046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2047 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_UXD_CK2
2050 type(lowDia_type) ,
intent(in) :: subset
2051 type(uppDia_type) ,
intent(in) :: subsetr
2052 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2053 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2054 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2059 PURE module subroutine setCovCorStd_XLD_UXD_CK1(cov, subset, cor, subsetr, std)
2060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2061 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_UXD_CK1
2064 type(lowDia_type) ,
intent(in) :: subset
2065 type(uppDia_type) ,
intent(in) :: subsetr
2066 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2067 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2068 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2075 PURE module subroutine setCovCorStd_XLD_UXD_RK5(cov, subset, cor, subsetr, std)
2076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2077 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_UXD_RK5
2080 type(lowDia_type) ,
intent(in) :: subset
2081 type(uppDia_type) ,
intent(in) :: subsetr
2082 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2083 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2084 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2089 PURE module subroutine setCovCorStd_XLD_UXD_RK4(cov, subset, cor, subsetr, std)
2090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2091 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_UXD_RK4
2094 type(lowDia_type) ,
intent(in) :: subset
2095 type(uppDia_type) ,
intent(in) :: subsetr
2096 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2097 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2098 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2103 PURE module subroutine setCovCorStd_XLD_UXD_RK3(cov, subset, cor, subsetr, std)
2104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2105 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_UXD_RK3
2108 type(lowDia_type) ,
intent(in) :: subset
2109 type(uppDia_type) ,
intent(in) :: subsetr
2110 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2111 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2112 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2117 PURE module subroutine setCovCorStd_XLD_UXD_RK2(cov, subset, cor, subsetr, std)
2118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2119 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_UXD_RK2
2122 type(lowDia_type) ,
intent(in) :: subset
2123 type(uppDia_type) ,
intent(in) :: subsetr
2124 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2125 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2126 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2131 PURE module subroutine setCovCorStd_XLD_UXD_RK1(cov, subset, cor, subsetr, std)
2132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2133 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_UXD_RK1
2136 type(lowDia_type) ,
intent(in) :: subset
2137 type(uppDia_type) ,
intent(in) :: subsetr
2138 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2139 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2140 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2153 PURE module subroutine setCovCorStd_XLD_XLD_CK5(cov, subset, cor, subsetr, std)
2154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2155 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_XLD_CK5
2158 type(lowDia_type) ,
intent(in) :: subset
2159 type(lowDia_type) ,
intent(in) :: subsetr
2160 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2161 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2162 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2167 PURE module subroutine setCovCorStd_XLD_XLD_CK4(cov, subset, cor, subsetr, std)
2168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2169 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_XLD_CK4
2172 type(lowDia_type) ,
intent(in) :: subset
2173 type(lowDia_type) ,
intent(in) :: subsetr
2174 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2175 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2176 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2181 PURE module subroutine setCovCorStd_XLD_XLD_CK3(cov, subset, cor, subsetr, std)
2182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2183 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_XLD_CK3
2186 type(lowDia_type) ,
intent(in) :: subset
2187 type(lowDia_type) ,
intent(in) :: subsetr
2188 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2189 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2190 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2195 PURE module subroutine setCovCorStd_XLD_XLD_CK2(cov, subset, cor, subsetr, std)
2196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2197 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_XLD_CK2
2200 type(lowDia_type) ,
intent(in) :: subset
2201 type(lowDia_type) ,
intent(in) :: subsetr
2202 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2203 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2204 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2209 PURE module subroutine setCovCorStd_XLD_XLD_CK1(cov, subset, cor, subsetr, std)
2210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2211 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_XLD_CK1
2214 type(lowDia_type) ,
intent(in) :: subset
2215 type(lowDia_type) ,
intent(in) :: subsetr
2216 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2217 complex(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2218 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2225 PURE module subroutine setCovCorStd_XLD_XLD_RK5(cov, subset, cor, subsetr, std)
2226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2227 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_XLD_RK5
2230 type(lowDia_type) ,
intent(in) :: subset
2231 type(lowDia_type) ,
intent(in) :: subsetr
2232 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2233 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2234 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2239 PURE module subroutine setCovCorStd_XLD_XLD_RK4(cov, subset, cor, subsetr, std)
2240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2241 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_XLD_RK4
2244 type(lowDia_type) ,
intent(in) :: subset
2245 type(lowDia_type) ,
intent(in) :: subsetr
2246 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2247 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2248 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2253 PURE module subroutine setCovCorStd_XLD_XLD_RK3(cov, subset, cor, subsetr, std)
2254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2255 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_XLD_RK3
2258 type(lowDia_type) ,
intent(in) :: subset
2259 type(lowDia_type) ,
intent(in) :: subsetr
2260 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2261 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2262 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2267 PURE module subroutine setCovCorStd_XLD_XLD_RK2(cov, subset, cor, subsetr, std)
2268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2269 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_XLD_RK2
2272 type(lowDia_type) ,
intent(in) :: subset
2273 type(lowDia_type) ,
intent(in) :: subsetr
2274 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2275 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2276 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2281 PURE module subroutine setCovCorStd_XLD_XLD_RK1(cov, subset, cor, subsetr, std)
2282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2283 !DEC$ ATTRIBUTES DLLEXPORT :: setCovCorStd_XLD_XLD_RK1
2286 type(lowDia_type) ,
intent(in) :: subset
2287 type(lowDia_type) ,
intent(in) :: subsetr
2288 real(TKG) ,
intent(in) ,
contiguous :: std(:)
2289 real(TKG) ,
intent(in) ,
contiguous :: cor(:,:)
2290 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
2315 PURE module subroutine setCovOrgWNO_XY_CK5(cov, x, y)
2316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2317 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XY_CK5
2320 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2321 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2326 PURE module subroutine setCovOrgWNO_XY_CK4(cov, x, y)
2327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2328 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XY_CK4
2331 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2332 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2337 PURE module subroutine setCovOrgWNO_XY_CK3(cov, x, y)
2338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2339 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XY_CK3
2342 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2343 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2348 PURE module subroutine setCovOrgWNO_XY_CK2(cov, x, y)
2349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2350 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XY_CK2
2353 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2354 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2359 PURE module subroutine setCovOrgWNO_XY_CK1(cov, x, y)
2360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2361 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XY_CK1
2364 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2365 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2372 PURE module subroutine setCovOrgWNO_XY_RK5(cov, x, y)
2373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2374 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XY_RK5
2377 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2378 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2383 PURE module subroutine setCovOrgWNO_XY_RK4(cov, x, y)
2384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2385 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XY_RK4
2388 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2389 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2394 PURE module subroutine setCovOrgWNO_XY_RK3(cov, x, y)
2395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2396 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XY_RK3
2399 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2400 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2405 PURE module subroutine setCovOrgWNO_XY_RK2(cov, x, y)
2406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2407 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XY_RK2
2410 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2411 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2416 PURE module subroutine setCovOrgWNO_XY_RK1(cov, x, y)
2417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2418 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XY_RK1
2421 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2422 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2435 PURE module subroutine setCovAvgWNO_XY_CK5(cov, mean, x, y)
2436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2437 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XY_CK5
2440 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2441 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
2442 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2447 PURE module subroutine setCovAvgWNO_XY_CK4(cov, mean, x, y)
2448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2449 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XY_CK4
2452 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2453 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
2454 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2459 PURE module subroutine setCovAvgWNO_XY_CK3(cov, mean, x, y)
2460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2461 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XY_CK3
2464 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2465 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
2466 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2471 PURE module subroutine setCovAvgWNO_XY_CK2(cov, mean, x, y)
2472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2473 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XY_CK2
2476 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2477 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
2478 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2483 PURE module subroutine setCovAvgWNO_XY_CK1(cov, mean, x, y)
2484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2485 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XY_CK1
2488 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2489 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
2490 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2497 PURE module subroutine setCovAvgWNO_XY_RK5(cov, mean, x, y)
2498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2499 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XY_RK5
2502 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2503 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
2504 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2509 PURE module subroutine setCovAvgWNO_XY_RK4(cov, mean, x, y)
2510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2511 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XY_RK4
2514 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2515 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
2516 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2521 PURE module subroutine setCovAvgWNO_XY_RK3(cov, mean, x, y)
2522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2523 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XY_RK3
2526 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2527 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
2528 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2533 PURE module subroutine setCovAvgWNO_XY_RK2(cov, mean, x, y)
2534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2535 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XY_RK2
2538 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2539 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
2540 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2545 PURE module subroutine setCovAvgWNO_XY_RK1(cov, mean, x, y)
2546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2547 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XY_RK1
2550 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2551 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
2552 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2575 PURE module subroutine setCovOrgWTI_XY_CK5(cov, x, y, weight, weisum)
2576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2577 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XY_CK5
2580 integer(IK) ,
intent(in) :: weisum
2581 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2582 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2583 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2588 PURE module subroutine setCovOrgWTI_XY_CK4(cov, x, y, weight, weisum)
2589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2590 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XY_CK4
2593 integer(IK) ,
intent(in) :: weisum
2594 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2595 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2596 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2601 PURE module subroutine setCovOrgWTI_XY_CK3(cov, x, y, weight, weisum)
2602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2603 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XY_CK3
2606 integer(IK) ,
intent(in) :: weisum
2607 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2608 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2609 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2614 PURE module subroutine setCovOrgWTI_XY_CK2(cov, x, y, weight, weisum)
2615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2616 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XY_CK2
2619 integer(IK) ,
intent(in) :: weisum
2620 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2621 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2622 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2627 PURE module subroutine setCovOrgWTI_XY_CK1(cov, x, y, weight, weisum)
2628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2629 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XY_CK1
2632 integer(IK) ,
intent(in) :: weisum
2633 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2634 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2635 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2642 PURE module subroutine setCovOrgWTI_XY_RK5(cov, x, y, weight, weisum)
2643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2644 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XY_RK5
2647 integer(IK) ,
intent(in) :: weisum
2648 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2649 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2650 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2655 PURE module subroutine setCovOrgWTI_XY_RK4(cov, x, y, weight, weisum)
2656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2657 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XY_RK4
2660 integer(IK) ,
intent(in) :: weisum
2661 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2662 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2663 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2668 PURE module subroutine setCovOrgWTI_XY_RK3(cov, x, y, weight, weisum)
2669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2670 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XY_RK3
2673 integer(IK) ,
intent(in) :: weisum
2674 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2675 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2676 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2681 PURE module subroutine setCovOrgWTI_XY_RK2(cov, x, y, weight, weisum)
2682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2683 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XY_RK2
2686 integer(IK) ,
intent(in) :: weisum
2687 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2688 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2689 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2694 PURE module subroutine setCovOrgWTI_XY_RK1(cov, x, y, weight, weisum)
2695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2696 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XY_RK1
2699 integer(IK) ,
intent(in) :: weisum
2700 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2701 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2702 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2715 PURE module subroutine setCovAvgWTI_XY_CK5(cov, mean, x, y, weight, weisum)
2716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2717 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XY_CK5
2720 integer(IK) ,
intent(in) :: weisum
2721 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
2722 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2723 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2724 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2729 PURE module subroutine setCovAvgWTI_XY_CK4(cov, mean, x, y, weight, weisum)
2730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2731 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XY_CK4
2734 integer(IK) ,
intent(in) :: weisum
2735 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
2736 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2737 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2738 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2743 PURE module subroutine setCovAvgWTI_XY_CK3(cov, mean, x, y, weight, weisum)
2744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2745 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XY_CK3
2748 integer(IK) ,
intent(in) :: weisum
2749 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
2750 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2751 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2752 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2757 PURE module subroutine setCovAvgWTI_XY_CK2(cov, mean, x, y, weight, weisum)
2758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2759 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XY_CK2
2762 integer(IK) ,
intent(in) :: weisum
2763 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
2764 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2765 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2766 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2771 PURE module subroutine setCovAvgWTI_XY_CK1(cov, mean, x, y, weight, weisum)
2772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2773 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XY_CK1
2776 integer(IK) ,
intent(in) :: weisum
2777 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
2778 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2779 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2780 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2787 PURE module subroutine setCovAvgWTI_XY_RK5(cov, mean, x, y, weight, weisum)
2788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2789 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XY_RK5
2792 integer(IK) ,
intent(in) :: weisum
2793 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
2794 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2795 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2796 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2801 PURE module subroutine setCovAvgWTI_XY_RK4(cov, mean, x, y, weight, weisum)
2802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2803 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XY_RK4
2806 integer(IK) ,
intent(in) :: weisum
2807 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
2808 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2809 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2810 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2815 PURE module subroutine setCovAvgWTI_XY_RK3(cov, mean, x, y, weight, weisum)
2816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2817 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XY_RK3
2820 integer(IK) ,
intent(in) :: weisum
2821 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
2822 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2823 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2824 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2829 PURE module subroutine setCovAvgWTI_XY_RK2(cov, mean, x, y, weight, weisum)
2830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2831 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XY_RK2
2834 integer(IK) ,
intent(in) :: weisum
2835 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
2836 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2837 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2838 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2843 PURE module subroutine setCovAvgWTI_XY_RK1(cov, mean, x, y, weight, weisum)
2844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2845 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XY_RK1
2848 integer(IK) ,
intent(in) :: weisum
2849 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
2850 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2851 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2852 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2875 PURE module subroutine setCovOrgWTR_XY_CK5(cov, x, y, weight, weisum)
2876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2877 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XY_CK5
2880 real(TKG) ,
intent(in) :: weisum
2881 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2882 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2883 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2888 PURE module subroutine setCovOrgWTR_XY_CK4(cov, x, y, weight, weisum)
2889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2890 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XY_CK4
2893 real(TKG) ,
intent(in) :: weisum
2894 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2895 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2896 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2901 PURE module subroutine setCovOrgWTR_XY_CK3(cov, x, y, weight, weisum)
2902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2903 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XY_CK3
2906 real(TKG) ,
intent(in) :: weisum
2907 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2908 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2909 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2914 PURE module subroutine setCovOrgWTR_XY_CK2(cov, x, y, weight, weisum)
2915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2916 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XY_CK2
2919 real(TKG) ,
intent(in) :: weisum
2920 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2921 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2922 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2927 PURE module subroutine setCovOrgWTR_XY_CK1(cov, x, y, weight, weisum)
2928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2929 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XY_CK1
2932 real(TKG) ,
intent(in) :: weisum
2933 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2934 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2935 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2942 PURE module subroutine setCovOrgWTR_XY_RK5(cov, x, y, weight, weisum)
2943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2944 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XY_RK5
2947 real(TKG) ,
intent(in) :: weisum
2948 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2949 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2950 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2955 PURE module subroutine setCovOrgWTR_XY_RK4(cov, x, y, weight, weisum)
2956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2957 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XY_RK4
2960 real(TKG) ,
intent(in) :: weisum
2961 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2962 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2963 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2968 PURE module subroutine setCovOrgWTR_XY_RK3(cov, x, y, weight, weisum)
2969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2970 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XY_RK3
2973 real(TKG) ,
intent(in) :: weisum
2974 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2975 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2976 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2981 PURE module subroutine setCovOrgWTR_XY_RK2(cov, x, y, weight, weisum)
2982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2983 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XY_RK2
2986 real(TKG) ,
intent(in) :: weisum
2987 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2988 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2989 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
2994 PURE module subroutine setCovOrgWTR_XY_RK1(cov, x, y, weight, weisum)
2995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2996 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XY_RK1
2999 real(TKG) ,
intent(in) :: weisum
3000 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3001 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3002 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
3015 PURE module subroutine setCovAvgWTR_XY_CK5(cov, mean, x, y, weight, weisum)
3016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3017 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XY_CK5
3020 real(TKG) ,
intent(in) :: weisum
3021 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3022 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3023 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3024 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
3029 PURE module subroutine setCovAvgWTR_XY_CK4(cov, mean, x, y, weight, weisum)
3030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3031 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XY_CK4
3034 real(TKG) ,
intent(in) :: weisum
3035 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3036 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3037 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3038 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
3043 PURE module subroutine setCovAvgWTR_XY_CK3(cov, mean, x, y, weight, weisum)
3044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3045 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XY_CK3
3048 real(TKG) ,
intent(in) :: weisum
3049 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3050 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3051 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3052 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
3057 PURE module subroutine setCovAvgWTR_XY_CK2(cov, mean, x, y, weight, weisum)
3058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3059 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XY_CK2
3062 real(TKG) ,
intent(in) :: weisum
3063 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3064 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3065 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3066 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
3071 PURE module subroutine setCovAvgWTR_XY_CK1(cov, mean, x, y, weight, weisum)
3072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3073 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XY_CK1
3076 real(TKG) ,
intent(in) :: weisum
3077 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3078 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3079 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3080 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
3087 PURE module subroutine setCovAvgWTR_XY_RK5(cov, mean, x, y, weight, weisum)
3088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3089 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XY_RK5
3092 real(TKG) ,
intent(in) :: weisum
3093 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3094 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3095 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3096 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
3101 PURE module subroutine setCovAvgWTR_XY_RK4(cov, mean, x, y, weight, weisum)
3102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3103 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XY_RK4
3106 real(TKG) ,
intent(in) :: weisum
3107 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3108 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3109 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3110 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
3115 PURE module subroutine setCovAvgWTR_XY_RK3(cov, mean, x, y, weight, weisum)
3116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3117 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XY_RK3
3120 real(TKG) ,
intent(in) :: weisum
3121 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3122 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3123 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3124 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
3129 PURE module subroutine setCovAvgWTR_XY_RK2(cov, mean, x, y, weight, weisum)
3130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3131 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XY_RK2
3134 real(TKG) ,
intent(in) :: weisum
3135 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3136 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3137 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3138 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
3143 PURE module subroutine setCovAvgWTR_XY_RK1(cov, mean, x, y, weight, weisum)
3144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3145 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XY_RK1
3148 real(TKG) ,
intent(in) :: weisum
3149 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3150 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3151 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3152 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
3177 PURE module subroutine setCovOrgWNO_UXD_CK5(cov, subset, sample, dim)
3178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3179 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_UXD_CK5
3182 integer(IK) ,
intent(in) :: dim
3183 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3184 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3185 type(uppDia_type) ,
intent(in) :: subset
3190 PURE module subroutine setCovOrgWNO_UXD_CK4(cov, subset, sample, dim)
3191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3192 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_UXD_CK4
3195 integer(IK) ,
intent(in) :: dim
3196 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3197 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3198 type(uppDia_type) ,
intent(in) :: subset
3203 PURE module subroutine setCovOrgWNO_UXD_CK3(cov, subset, sample, dim)
3204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3205 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_UXD_CK3
3208 integer(IK) ,
intent(in) :: dim
3209 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3210 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3211 type(uppDia_type) ,
intent(in) :: subset
3216 PURE module subroutine setCovOrgWNO_UXD_CK2(cov, subset, sample, dim)
3217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3218 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_UXD_CK2
3221 integer(IK) ,
intent(in) :: dim
3222 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3223 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3224 type(uppDia_type) ,
intent(in) :: subset
3229 PURE module subroutine setCovOrgWNO_UXD_CK1(cov, subset, sample, dim)
3230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3231 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_UXD_CK1
3234 integer(IK) ,
intent(in) :: dim
3235 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3236 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3237 type(uppDia_type) ,
intent(in) :: subset
3244 PURE module subroutine setCovOrgWNO_UXD_RK5(cov, subset, sample, dim)
3245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3246 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_UXD_RK5
3249 integer(IK) ,
intent(in) :: dim
3250 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3251 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3252 type(uppDia_type) ,
intent(in) :: subset
3257 PURE module subroutine setCovOrgWNO_UXD_RK4(cov, subset, sample, dim)
3258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3259 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_UXD_RK4
3262 integer(IK) ,
intent(in) :: dim
3263 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3264 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3265 type(uppDia_type) ,
intent(in) :: subset
3270 PURE module subroutine setCovOrgWNO_UXD_RK3(cov, subset, sample, dim)
3271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3272 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_UXD_RK3
3275 integer(IK) ,
intent(in) :: dim
3276 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3277 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3278 type(uppDia_type) ,
intent(in) :: subset
3283 PURE module subroutine setCovOrgWNO_UXD_RK2(cov, subset, sample, dim)
3284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3285 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_UXD_RK2
3288 integer(IK) ,
intent(in) :: dim
3289 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3290 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3291 type(uppDia_type) ,
intent(in) :: subset
3296 PURE module subroutine setCovOrgWNO_UXD_RK1(cov, subset, sample, dim)
3297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3298 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_UXD_RK1
3301 integer(IK) ,
intent(in) :: dim
3302 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3303 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3304 type(uppDia_type) ,
intent(in) :: subset
3317 PURE module subroutine setCovAvgWNO_UXD_CK5(cov, subset, mean, sample, dim)
3318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3319 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_UXD_CK5
3322 integer(IK) ,
intent(in) :: dim
3323 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3324 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3325 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3326 type(uppDia_type) ,
intent(in) :: subset
3331 PURE module subroutine setCovAvgWNO_UXD_CK4(cov, subset, mean, sample, dim)
3332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3333 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_UXD_CK4
3336 integer(IK) ,
intent(in) :: dim
3337 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3338 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3339 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3340 type(uppDia_type) ,
intent(in) :: subset
3345 PURE module subroutine setCovAvgWNO_UXD_CK3(cov, subset, mean, sample, dim)
3346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3347 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_UXD_CK3
3350 integer(IK) ,
intent(in) :: dim
3351 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3352 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3353 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3354 type(uppDia_type) ,
intent(in) :: subset
3359 PURE module subroutine setCovAvgWNO_UXD_CK2(cov, subset, mean, sample, dim)
3360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3361 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_UXD_CK2
3364 integer(IK) ,
intent(in) :: dim
3365 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3366 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3367 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3368 type(uppDia_type) ,
intent(in) :: subset
3373 PURE module subroutine setCovAvgWNO_UXD_CK1(cov, subset, mean, sample, dim)
3374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3375 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_UXD_CK1
3378 integer(IK) ,
intent(in) :: dim
3379 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3380 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3381 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3382 type(uppDia_type) ,
intent(in) :: subset
3389 PURE module subroutine setCovAvgWNO_UXD_RK5(cov, subset, mean, sample, dim)
3390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3391 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_UXD_RK5
3394 integer(IK) ,
intent(in) :: dim
3395 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3396 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3397 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3398 type(uppDia_type) ,
intent(in) :: subset
3403 PURE module subroutine setCovAvgWNO_UXD_RK4(cov, subset, mean, sample, dim)
3404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3405 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_UXD_RK4
3408 integer(IK) ,
intent(in) :: dim
3409 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3410 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3411 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3412 type(uppDia_type) ,
intent(in) :: subset
3417 PURE module subroutine setCovAvgWNO_UXD_RK3(cov, subset, mean, sample, dim)
3418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3419 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_UXD_RK3
3422 integer(IK) ,
intent(in) :: dim
3423 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3424 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3425 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3426 type(uppDia_type) ,
intent(in) :: subset
3431 PURE module subroutine setCovAvgWNO_UXD_RK2(cov, subset, mean, sample, dim)
3432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3433 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_UXD_RK2
3436 integer(IK) ,
intent(in) :: dim
3437 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3438 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3439 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3440 type(uppDia_type) ,
intent(in) :: subset
3445 PURE module subroutine setCovAvgWNO_UXD_RK1(cov, subset, mean, sample, dim)
3446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3447 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_UXD_RK1
3450 integer(IK) ,
intent(in) :: dim
3451 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3452 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3453 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3454 type(uppDia_type) ,
intent(in) :: subset
3477 PURE module subroutine setCovOrgWTI_UXD_CK5(cov, subset, sample, dim, weight, weisum)
3478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3479 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_UXD_CK5
3482 integer(IK) ,
intent(in) :: dim
3483 integer(IK) ,
intent(in) :: weisum
3484 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3485 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3486 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3487 type(uppDia_type) ,
intent(in) :: subset
3492 PURE module subroutine setCovOrgWTI_UXD_CK4(cov, subset, sample, dim, weight, weisum)
3493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3494 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_UXD_CK4
3497 integer(IK) ,
intent(in) :: dim
3498 integer(IK) ,
intent(in) :: weisum
3499 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3500 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3501 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3502 type(uppDia_type) ,
intent(in) :: subset
3507 PURE module subroutine setCovOrgWTI_UXD_CK3(cov, subset, sample, dim, weight, weisum)
3508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3509 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_UXD_CK3
3512 integer(IK) ,
intent(in) :: dim
3513 integer(IK) ,
intent(in) :: weisum
3514 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3515 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3516 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3517 type(uppDia_type) ,
intent(in) :: subset
3522 PURE module subroutine setCovOrgWTI_UXD_CK2(cov, subset, sample, dim, weight, weisum)
3523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3524 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_UXD_CK2
3527 integer(IK) ,
intent(in) :: dim
3528 integer(IK) ,
intent(in) :: weisum
3529 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3530 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3531 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3532 type(uppDia_type) ,
intent(in) :: subset
3537 PURE module subroutine setCovOrgWTI_UXD_CK1(cov, subset, sample, dim, weight, weisum)
3538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3539 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_UXD_CK1
3542 integer(IK) ,
intent(in) :: dim
3543 integer(IK) ,
intent(in) :: weisum
3544 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3545 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3546 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3547 type(uppDia_type) ,
intent(in) :: subset
3554 PURE module subroutine setCovOrgWTI_UXD_RK5(cov, subset, sample, dim, weight, weisum)
3555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3556 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_UXD_RK5
3559 integer(IK) ,
intent(in) :: dim
3560 integer(IK) ,
intent(in) :: weisum
3561 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3562 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3563 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3564 type(uppDia_type) ,
intent(in) :: subset
3569 PURE module subroutine setCovOrgWTI_UXD_RK4(cov, subset, sample, dim, weight, weisum)
3570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3571 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_UXD_RK4
3574 integer(IK) ,
intent(in) :: dim
3575 integer(IK) ,
intent(in) :: weisum
3576 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3577 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3578 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3579 type(uppDia_type) ,
intent(in) :: subset
3584 PURE module subroutine setCovOrgWTI_UXD_RK3(cov, subset, sample, dim, weight, weisum)
3585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3586 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_UXD_RK3
3589 integer(IK) ,
intent(in) :: dim
3590 integer(IK) ,
intent(in) :: weisum
3591 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3592 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3593 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3594 type(uppDia_type) ,
intent(in) :: subset
3599 PURE module subroutine setCovOrgWTI_UXD_RK2(cov, subset, sample, dim, weight, weisum)
3600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3601 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_UXD_RK2
3604 integer(IK) ,
intent(in) :: dim
3605 integer(IK) ,
intent(in) :: weisum
3606 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3607 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3608 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3609 type(uppDia_type) ,
intent(in) :: subset
3614 PURE module subroutine setCovOrgWTI_UXD_RK1(cov, subset, sample, dim, weight, weisum)
3615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3616 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_UXD_RK1
3619 integer(IK) ,
intent(in) :: dim
3620 integer(IK) ,
intent(in) :: weisum
3621 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3622 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3623 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3624 type(uppDia_type) ,
intent(in) :: subset
3637 PURE module subroutine setCovAvgWTI_UXD_CK5(cov, subset, mean, sample, dim, weight, weisum)
3638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3639 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_UXD_CK5
3642 integer(IK) ,
intent(in) :: dim
3643 integer(IK) ,
intent(in) :: weisum
3644 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3645 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3646 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3647 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3648 type(uppDia_type) ,
intent(in) :: subset
3653 PURE module subroutine setCovAvgWTI_UXD_CK4(cov, subset, mean, sample, dim, weight, weisum)
3654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3655 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_UXD_CK4
3658 integer(IK) ,
intent(in) :: dim
3659 integer(IK) ,
intent(in) :: weisum
3660 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3661 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3662 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3663 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3664 type(uppDia_type) ,
intent(in) :: subset
3669 PURE module subroutine setCovAvgWTI_UXD_CK3(cov, subset, mean, sample, dim, weight, weisum)
3670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3671 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_UXD_CK3
3674 integer(IK) ,
intent(in) :: dim
3675 integer(IK) ,
intent(in) :: weisum
3676 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3677 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3678 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3679 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3680 type(uppDia_type) ,
intent(in) :: subset
3685 PURE module subroutine setCovAvgWTI_UXD_CK2(cov, subset, mean, sample, dim, weight, weisum)
3686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3687 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_UXD_CK2
3690 integer(IK) ,
intent(in) :: dim
3691 integer(IK) ,
intent(in) :: weisum
3692 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3693 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3694 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3695 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3696 type(uppDia_type) ,
intent(in) :: subset
3701 PURE module subroutine setCovAvgWTI_UXD_CK1(cov, subset, mean, sample, dim, weight, weisum)
3702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3703 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_UXD_CK1
3706 integer(IK) ,
intent(in) :: dim
3707 integer(IK) ,
intent(in) :: weisum
3708 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3709 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3710 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3711 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3712 type(uppDia_type) ,
intent(in) :: subset
3719 PURE module subroutine setCovAvgWTI_UXD_RK5(cov, subset, mean, sample, dim, weight, weisum)
3720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3721 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_UXD_RK5
3724 integer(IK) ,
intent(in) :: dim
3725 integer(IK) ,
intent(in) :: weisum
3726 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3727 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3728 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3729 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3730 type(uppDia_type) ,
intent(in) :: subset
3735 PURE module subroutine setCovAvgWTI_UXD_RK4(cov, subset, mean, sample, dim, weight, weisum)
3736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3737 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_UXD_RK4
3740 integer(IK) ,
intent(in) :: dim
3741 integer(IK) ,
intent(in) :: weisum
3742 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3743 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3744 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3745 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3746 type(uppDia_type) ,
intent(in) :: subset
3751 PURE module subroutine setCovAvgWTI_UXD_RK3(cov, subset, mean, sample, dim, weight, weisum)
3752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3753 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_UXD_RK3
3756 integer(IK) ,
intent(in) :: dim
3757 integer(IK) ,
intent(in) :: weisum
3758 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3759 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3760 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3761 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3762 type(uppDia_type) ,
intent(in) :: subset
3767 PURE module subroutine setCovAvgWTI_UXD_RK2(cov, subset, mean, sample, dim, weight, weisum)
3768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3769 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_UXD_RK2
3772 integer(IK) ,
intent(in) :: dim
3773 integer(IK) ,
intent(in) :: weisum
3774 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3775 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3776 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3777 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3778 type(uppDia_type) ,
intent(in) :: subset
3783 PURE module subroutine setCovAvgWTI_UXD_RK1(cov, subset, mean, sample, dim, weight, weisum)
3784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3785 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_UXD_RK1
3788 integer(IK) ,
intent(in) :: dim
3789 integer(IK) ,
intent(in) :: weisum
3790 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3791 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3792 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3793 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3794 type(uppDia_type) ,
intent(in) :: subset
3817 PURE module subroutine setCovOrgWTR_UXD_CK5(cov, subset, sample, dim, weight, weisum)
3818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3819 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_UXD_CK5
3822 integer(IK) ,
intent(in) :: dim
3823 real(TKG) ,
intent(in) :: weisum
3824 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3825 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3826 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3827 type(uppDia_type) ,
intent(in) :: subset
3832 PURE module subroutine setCovOrgWTR_UXD_CK4(cov, subset, sample, dim, weight, weisum)
3833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3834 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_UXD_CK4
3837 integer(IK) ,
intent(in) :: dim
3838 real(TKG) ,
intent(in) :: weisum
3839 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3840 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3841 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3842 type(uppDia_type) ,
intent(in) :: subset
3847 PURE module subroutine setCovOrgWTR_UXD_CK3(cov, subset, sample, dim, weight, weisum)
3848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3849 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_UXD_CK3
3852 integer(IK) ,
intent(in) :: dim
3853 real(TKG) ,
intent(in) :: weisum
3854 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3855 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3856 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3857 type(uppDia_type) ,
intent(in) :: subset
3862 PURE module subroutine setCovOrgWTR_UXD_CK2(cov, subset, sample, dim, weight, weisum)
3863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3864 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_UXD_CK2
3867 integer(IK) ,
intent(in) :: dim
3868 real(TKG) ,
intent(in) :: weisum
3869 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3870 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3871 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3872 type(uppDia_type) ,
intent(in) :: subset
3877 PURE module subroutine setCovOrgWTR_UXD_CK1(cov, subset, sample, dim, weight, weisum)
3878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3879 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_UXD_CK1
3882 integer(IK) ,
intent(in) :: dim
3883 real(TKG) ,
intent(in) :: weisum
3884 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3885 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3886 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3887 type(uppDia_type) ,
intent(in) :: subset
3894 PURE module subroutine setCovOrgWTR_UXD_RK5(cov, subset, sample, dim, weight, weisum)
3895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3896 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_UXD_RK5
3899 integer(IK) ,
intent(in) :: dim
3900 real(TKG) ,
intent(in) :: weisum
3901 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3902 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3903 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3904 type(uppDia_type) ,
intent(in) :: subset
3909 PURE module subroutine setCovOrgWTR_UXD_RK4(cov, subset, sample, dim, weight, weisum)
3910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3911 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_UXD_RK4
3914 integer(IK) ,
intent(in) :: dim
3915 real(TKG) ,
intent(in) :: weisum
3916 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3917 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3918 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3919 type(uppDia_type) ,
intent(in) :: subset
3924 PURE module subroutine setCovOrgWTR_UXD_RK3(cov, subset, sample, dim, weight, weisum)
3925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3926 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_UXD_RK3
3929 integer(IK) ,
intent(in) :: dim
3930 real(TKG) ,
intent(in) :: weisum
3931 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3932 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3933 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3934 type(uppDia_type) ,
intent(in) :: subset
3939 PURE module subroutine setCovOrgWTR_UXD_RK2(cov, subset, sample, dim, weight, weisum)
3940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3941 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_UXD_RK2
3944 integer(IK) ,
intent(in) :: dim
3945 real(TKG) ,
intent(in) :: weisum
3946 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3947 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3948 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3949 type(uppDia_type) ,
intent(in) :: subset
3954 PURE module subroutine setCovOrgWTR_UXD_RK1(cov, subset, sample, dim, weight, weisum)
3955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3956 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_UXD_RK1
3959 integer(IK) ,
intent(in) :: dim
3960 real(TKG) ,
intent(in) :: weisum
3961 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3962 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3963 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3964 type(uppDia_type) ,
intent(in) :: subset
3977 PURE module subroutine setCovAvgWTR_UXD_CK5(cov, subset, mean, sample, dim, weight, weisum)
3978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3979 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_UXD_CK5
3982 integer(IK) ,
intent(in) :: dim
3983 real(TKG) ,
intent(in) :: weisum
3984 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
3985 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3986 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3987 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
3988 type(uppDia_type) ,
intent(in) :: subset
3993 PURE module subroutine setCovAvgWTR_UXD_CK4(cov, subset, mean, sample, dim, weight, weisum)
3994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3995 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_UXD_CK4
3998 integer(IK) ,
intent(in) :: dim
3999 real(TKG) ,
intent(in) :: weisum
4000 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4001 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4002 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4003 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4004 type(uppDia_type) ,
intent(in) :: subset
4009 PURE module subroutine setCovAvgWTR_UXD_CK3(cov, subset, mean, sample, dim, weight, weisum)
4010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4011 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_UXD_CK3
4014 integer(IK) ,
intent(in) :: dim
4015 real(TKG) ,
intent(in) :: weisum
4016 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4017 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4018 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4019 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4020 type(uppDia_type) ,
intent(in) :: subset
4025 PURE module subroutine setCovAvgWTR_UXD_CK2(cov, subset, mean, sample, dim, weight, weisum)
4026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4027 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_UXD_CK2
4030 integer(IK) ,
intent(in) :: dim
4031 real(TKG) ,
intent(in) :: weisum
4032 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4033 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4034 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4035 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4036 type(uppDia_type) ,
intent(in) :: subset
4041 PURE module subroutine setCovAvgWTR_UXD_CK1(cov, subset, mean, sample, dim, weight, weisum)
4042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4043 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_UXD_CK1
4046 integer(IK) ,
intent(in) :: dim
4047 real(TKG) ,
intent(in) :: weisum
4048 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4049 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4050 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4051 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4052 type(uppDia_type) ,
intent(in) :: subset
4059 PURE module subroutine setCovAvgWTR_UXD_RK5(cov, subset, mean, sample, dim, weight, weisum)
4060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4061 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_UXD_RK5
4064 integer(IK) ,
intent(in) :: dim
4065 real(TKG) ,
intent(in) :: weisum
4066 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4067 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4068 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4069 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4070 type(uppDia_type) ,
intent(in) :: subset
4075 PURE module subroutine setCovAvgWTR_UXD_RK4(cov, subset, mean, sample, dim, weight, weisum)
4076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4077 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_UXD_RK4
4080 integer(IK) ,
intent(in) :: dim
4081 real(TKG) ,
intent(in) :: weisum
4082 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4083 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4084 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4085 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4086 type(uppDia_type) ,
intent(in) :: subset
4091 PURE module subroutine setCovAvgWTR_UXD_RK3(cov, subset, mean, sample, dim, weight, weisum)
4092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4093 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_UXD_RK3
4096 integer(IK) ,
intent(in) :: dim
4097 real(TKG) ,
intent(in) :: weisum
4098 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4099 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4100 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4101 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4102 type(uppDia_type) ,
intent(in) :: subset
4107 PURE module subroutine setCovAvgWTR_UXD_RK2(cov, subset, mean, sample, dim, weight, weisum)
4108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4109 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_UXD_RK2
4112 integer(IK) ,
intent(in) :: dim
4113 real(TKG) ,
intent(in) :: weisum
4114 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4115 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4116 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4117 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4118 type(uppDia_type) ,
intent(in) :: subset
4123 PURE module subroutine setCovAvgWTR_UXD_RK1(cov, subset, mean, sample, dim, weight, weisum)
4124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4125 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_UXD_RK1
4128 integer(IK) ,
intent(in) :: dim
4129 real(TKG) ,
intent(in) :: weisum
4130 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4131 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4132 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4133 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4134 type(uppDia_type) ,
intent(in) :: subset
4159 PURE module subroutine setCovOrgWNO_XLD_CK5(cov, subset, sample, dim)
4160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4161 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XLD_CK5
4164 integer(IK) ,
intent(in) :: dim
4165 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4166 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4167 type(lowDia_type) ,
intent(in) :: subset
4172 PURE module subroutine setCovOrgWNO_XLD_CK4(cov, subset, sample, dim)
4173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4174 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XLD_CK4
4177 integer(IK) ,
intent(in) :: dim
4178 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4179 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4180 type(lowDia_type) ,
intent(in) :: subset
4185 PURE module subroutine setCovOrgWNO_XLD_CK3(cov, subset, sample, dim)
4186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4187 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XLD_CK3
4190 integer(IK) ,
intent(in) :: dim
4191 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4192 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4193 type(lowDia_type) ,
intent(in) :: subset
4198 PURE module subroutine setCovOrgWNO_XLD_CK2(cov, subset, sample, dim)
4199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4200 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XLD_CK2
4203 integer(IK) ,
intent(in) :: dim
4204 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4205 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4206 type(lowDia_type) ,
intent(in) :: subset
4211 PURE module subroutine setCovOrgWNO_XLD_CK1(cov, subset, sample, dim)
4212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4213 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XLD_CK1
4216 integer(IK) ,
intent(in) :: dim
4217 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4218 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4219 type(lowDia_type) ,
intent(in) :: subset
4226 PURE module subroutine setCovOrgWNO_XLD_RK5(cov, subset, sample, dim)
4227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4228 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XLD_RK5
4231 integer(IK) ,
intent(in) :: dim
4232 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4233 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4234 type(lowDia_type) ,
intent(in) :: subset
4239 PURE module subroutine setCovOrgWNO_XLD_RK4(cov, subset, sample, dim)
4240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4241 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XLD_RK4
4244 integer(IK) ,
intent(in) :: dim
4245 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4246 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4247 type(lowDia_type) ,
intent(in) :: subset
4252 PURE module subroutine setCovOrgWNO_XLD_RK3(cov, subset, sample, dim)
4253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4254 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XLD_RK3
4257 integer(IK) ,
intent(in) :: dim
4258 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4259 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4260 type(lowDia_type) ,
intent(in) :: subset
4265 PURE module subroutine setCovOrgWNO_XLD_RK2(cov, subset, sample, dim)
4266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4267 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XLD_RK2
4270 integer(IK) ,
intent(in) :: dim
4271 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4272 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4273 type(lowDia_type) ,
intent(in) :: subset
4278 PURE module subroutine setCovOrgWNO_XLD_RK1(cov, subset, sample, dim)
4279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4280 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWNO_XLD_RK1
4283 integer(IK) ,
intent(in) :: dim
4284 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4285 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4286 type(lowDia_type) ,
intent(in) :: subset
4299 PURE module subroutine setCovAvgWNO_XLD_CK5(cov, subset, mean, sample, dim)
4300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4301 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XLD_CK5
4304 integer(IK) ,
intent(in) :: dim
4305 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4306 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4307 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4308 type(lowDia_type) ,
intent(in) :: subset
4313 PURE module subroutine setCovAvgWNO_XLD_CK4(cov, subset, mean, sample, dim)
4314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4315 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XLD_CK4
4318 integer(IK) ,
intent(in) :: dim
4319 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4320 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4321 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4322 type(lowDia_type) ,
intent(in) :: subset
4327 PURE module subroutine setCovAvgWNO_XLD_CK3(cov, subset, mean, sample, dim)
4328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4329 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XLD_CK3
4332 integer(IK) ,
intent(in) :: dim
4333 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4334 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4335 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4336 type(lowDia_type) ,
intent(in) :: subset
4341 PURE module subroutine setCovAvgWNO_XLD_CK2(cov, subset, mean, sample, dim)
4342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4343 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XLD_CK2
4346 integer(IK) ,
intent(in) :: dim
4347 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4348 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4349 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4350 type(lowDia_type) ,
intent(in) :: subset
4355 PURE module subroutine setCovAvgWNO_XLD_CK1(cov, subset, mean, sample, dim)
4356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4357 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XLD_CK1
4360 integer(IK) ,
intent(in) :: dim
4361 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4362 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4363 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4364 type(lowDia_type) ,
intent(in) :: subset
4371 PURE module subroutine setCovAvgWNO_XLD_RK5(cov, subset, mean, sample, dim)
4372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4373 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XLD_RK5
4376 integer(IK) ,
intent(in) :: dim
4377 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4378 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4379 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4380 type(lowDia_type) ,
intent(in) :: subset
4385 PURE module subroutine setCovAvgWNO_XLD_RK4(cov, subset, mean, sample, dim)
4386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4387 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XLD_RK4
4390 integer(IK) ,
intent(in) :: dim
4391 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4392 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4393 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4394 type(lowDia_type) ,
intent(in) :: subset
4399 PURE module subroutine setCovAvgWNO_XLD_RK3(cov, subset, mean, sample, dim)
4400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4401 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XLD_RK3
4404 integer(IK) ,
intent(in) :: dim
4405 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4406 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4407 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4408 type(lowDia_type) ,
intent(in) :: subset
4413 PURE module subroutine setCovAvgWNO_XLD_RK2(cov, subset, mean, sample, dim)
4414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4415 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XLD_RK2
4418 integer(IK) ,
intent(in) :: dim
4419 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4420 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4421 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4422 type(lowDia_type) ,
intent(in) :: subset
4427 PURE module subroutine setCovAvgWNO_XLD_RK1(cov, subset, mean, sample, dim)
4428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4429 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWNO_XLD_RK1
4432 integer(IK) ,
intent(in) :: dim
4433 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4434 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4435 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4436 type(lowDia_type) ,
intent(in) :: subset
4459 PURE module subroutine setCovOrgWTI_XLD_CK5(cov, subset, sample, dim, weight, weisum)
4460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4461 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XLD_CK5
4464 integer(IK) ,
intent(in) :: dim
4465 integer(IK) ,
intent(in) :: weisum
4466 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4467 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4468 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4469 type(lowDia_type) ,
intent(in) :: subset
4474 PURE module subroutine setCovOrgWTI_XLD_CK4(cov, subset, sample, dim, weight, weisum)
4475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4476 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XLD_CK4
4479 integer(IK) ,
intent(in) :: dim
4480 integer(IK) ,
intent(in) :: weisum
4481 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4482 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4483 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4484 type(lowDia_type) ,
intent(in) :: subset
4489 PURE module subroutine setCovOrgWTI_XLD_CK3(cov, subset, sample, dim, weight, weisum)
4490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4491 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XLD_CK3
4494 integer(IK) ,
intent(in) :: dim
4495 integer(IK) ,
intent(in) :: weisum
4496 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4497 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4498 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4499 type(lowDia_type) ,
intent(in) :: subset
4504 PURE module subroutine setCovOrgWTI_XLD_CK2(cov, subset, sample, dim, weight, weisum)
4505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4506 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XLD_CK2
4509 integer(IK) ,
intent(in) :: dim
4510 integer(IK) ,
intent(in) :: weisum
4511 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4512 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4513 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4514 type(lowDia_type) ,
intent(in) :: subset
4519 PURE module subroutine setCovOrgWTI_XLD_CK1(cov, subset, sample, dim, weight, weisum)
4520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4521 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XLD_CK1
4524 integer(IK) ,
intent(in) :: dim
4525 integer(IK) ,
intent(in) :: weisum
4526 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4527 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4528 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4529 type(lowDia_type) ,
intent(in) :: subset
4536 PURE module subroutine setCovOrgWTI_XLD_RK5(cov, subset, sample, dim, weight, weisum)
4537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4538 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XLD_RK5
4541 integer(IK) ,
intent(in) :: dim
4542 integer(IK) ,
intent(in) :: weisum
4543 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4544 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4545 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4546 type(lowDia_type) ,
intent(in) :: subset
4551 PURE module subroutine setCovOrgWTI_XLD_RK4(cov, subset, sample, dim, weight, weisum)
4552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4553 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XLD_RK4
4556 integer(IK) ,
intent(in) :: dim
4557 integer(IK) ,
intent(in) :: weisum
4558 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4559 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4560 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4561 type(lowDia_type) ,
intent(in) :: subset
4566 PURE module subroutine setCovOrgWTI_XLD_RK3(cov, subset, sample, dim, weight, weisum)
4567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4568 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XLD_RK3
4571 integer(IK) ,
intent(in) :: dim
4572 integer(IK) ,
intent(in) :: weisum
4573 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4574 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4575 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4576 type(lowDia_type) ,
intent(in) :: subset
4581 PURE module subroutine setCovOrgWTI_XLD_RK2(cov, subset, sample, dim, weight, weisum)
4582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4583 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XLD_RK2
4586 integer(IK) ,
intent(in) :: dim
4587 integer(IK) ,
intent(in) :: weisum
4588 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4589 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4590 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4591 type(lowDia_type) ,
intent(in) :: subset
4596 PURE module subroutine setCovOrgWTI_XLD_RK1(cov, subset, sample, dim, weight, weisum)
4597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4598 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTI_XLD_RK1
4601 integer(IK) ,
intent(in) :: dim
4602 integer(IK) ,
intent(in) :: weisum
4603 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4604 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4605 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4606 type(lowDia_type) ,
intent(in) :: subset
4619 PURE module subroutine setCovAvgWTI_XLD_CK5(cov, subset, mean, sample, dim, weight, weisum)
4620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4621 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XLD_CK5
4624 integer(IK) ,
intent(in) :: dim
4625 integer(IK) ,
intent(in) :: weisum
4626 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4627 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4628 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4629 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4630 type(lowDia_type) ,
intent(in) :: subset
4635 PURE module subroutine setCovAvgWTI_XLD_CK4(cov, subset, mean, sample, dim, weight, weisum)
4636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4637 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XLD_CK4
4640 integer(IK) ,
intent(in) :: dim
4641 integer(IK) ,
intent(in) :: weisum
4642 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4643 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4644 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4645 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4646 type(lowDia_type) ,
intent(in) :: subset
4651 PURE module subroutine setCovAvgWTI_XLD_CK3(cov, subset, mean, sample, dim, weight, weisum)
4652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4653 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XLD_CK3
4656 integer(IK) ,
intent(in) :: dim
4657 integer(IK) ,
intent(in) :: weisum
4658 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4659 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4660 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4661 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4662 type(lowDia_type) ,
intent(in) :: subset
4667 PURE module subroutine setCovAvgWTI_XLD_CK2(cov, subset, mean, sample, dim, weight, weisum)
4668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4669 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XLD_CK2
4672 integer(IK) ,
intent(in) :: dim
4673 integer(IK) ,
intent(in) :: weisum
4674 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4675 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4676 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4677 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4678 type(lowDia_type) ,
intent(in) :: subset
4683 PURE module subroutine setCovAvgWTI_XLD_CK1(cov, subset, mean, sample, dim, weight, weisum)
4684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4685 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XLD_CK1
4688 integer(IK) ,
intent(in) :: dim
4689 integer(IK) ,
intent(in) :: weisum
4690 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4691 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4692 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4693 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4694 type(lowDia_type) ,
intent(in) :: subset
4701 PURE module subroutine setCovAvgWTI_XLD_RK5(cov, subset, mean, sample, dim, weight, weisum)
4702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4703 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XLD_RK5
4706 integer(IK) ,
intent(in) :: dim
4707 integer(IK) ,
intent(in) :: weisum
4708 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4709 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4710 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4711 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4712 type(lowDia_type) ,
intent(in) :: subset
4717 PURE module subroutine setCovAvgWTI_XLD_RK4(cov, subset, mean, sample, dim, weight, weisum)
4718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4719 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XLD_RK4
4722 integer(IK) ,
intent(in) :: dim
4723 integer(IK) ,
intent(in) :: weisum
4724 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4725 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4726 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4727 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4728 type(lowDia_type) ,
intent(in) :: subset
4733 PURE module subroutine setCovAvgWTI_XLD_RK3(cov, subset, mean, sample, dim, weight, weisum)
4734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4735 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XLD_RK3
4738 integer(IK) ,
intent(in) :: dim
4739 integer(IK) ,
intent(in) :: weisum
4740 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4741 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4742 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4743 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4744 type(lowDia_type) ,
intent(in) :: subset
4749 PURE module subroutine setCovAvgWTI_XLD_RK2(cov, subset, mean, sample, dim, weight, weisum)
4750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4751 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XLD_RK2
4754 integer(IK) ,
intent(in) :: dim
4755 integer(IK) ,
intent(in) :: weisum
4756 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4757 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4758 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4759 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4760 type(lowDia_type) ,
intent(in) :: subset
4765 PURE module subroutine setCovAvgWTI_XLD_RK1(cov, subset, mean, sample, dim, weight, weisum)
4766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4767 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTI_XLD_RK1
4770 integer(IK) ,
intent(in) :: dim
4771 integer(IK) ,
intent(in) :: weisum
4772 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4773 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4774 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4775 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4776 type(lowDia_type) ,
intent(in) :: subset
4799 PURE module subroutine setCovOrgWTR_XLD_CK5(cov, subset, sample, dim, weight, weisum)
4800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4801 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XLD_CK5
4804 integer(IK) ,
intent(in) :: dim
4805 real(TKG) ,
intent(in) :: weisum
4806 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4807 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4808 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4809 type(lowDia_type) ,
intent(in) :: subset
4814 PURE module subroutine setCovOrgWTR_XLD_CK4(cov, subset, sample, dim, weight, weisum)
4815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4816 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XLD_CK4
4819 integer(IK) ,
intent(in) :: dim
4820 real(TKG) ,
intent(in) :: weisum
4821 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4822 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4823 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4824 type(lowDia_type) ,
intent(in) :: subset
4829 PURE module subroutine setCovOrgWTR_XLD_CK3(cov, subset, sample, dim, weight, weisum)
4830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4831 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XLD_CK3
4834 integer(IK) ,
intent(in) :: dim
4835 real(TKG) ,
intent(in) :: weisum
4836 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4837 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4838 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4839 type(lowDia_type) ,
intent(in) :: subset
4844 PURE module subroutine setCovOrgWTR_XLD_CK2(cov, subset, sample, dim, weight, weisum)
4845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4846 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XLD_CK2
4849 integer(IK) ,
intent(in) :: dim
4850 real(TKG) ,
intent(in) :: weisum
4851 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4852 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4853 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4854 type(lowDia_type) ,
intent(in) :: subset
4859 PURE module subroutine setCovOrgWTR_XLD_CK1(cov, subset, sample, dim, weight, weisum)
4860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4861 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XLD_CK1
4864 integer(IK) ,
intent(in) :: dim
4865 real(TKG) ,
intent(in) :: weisum
4866 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4867 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4868 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4869 type(lowDia_type) ,
intent(in) :: subset
4876 PURE module subroutine setCovOrgWTR_XLD_RK5(cov, subset, sample, dim, weight, weisum)
4877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4878 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XLD_RK5
4881 integer(IK) ,
intent(in) :: dim
4882 real(TKG) ,
intent(in) :: weisum
4883 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4884 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4885 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4886 type(lowDia_type) ,
intent(in) :: subset
4891 PURE module subroutine setCovOrgWTR_XLD_RK4(cov, subset, sample, dim, weight, weisum)
4892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4893 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XLD_RK4
4896 integer(IK) ,
intent(in) :: dim
4897 real(TKG) ,
intent(in) :: weisum
4898 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4899 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4900 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4901 type(lowDia_type) ,
intent(in) :: subset
4906 PURE module subroutine setCovOrgWTR_XLD_RK3(cov, subset, sample, dim, weight, weisum)
4907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4908 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XLD_RK3
4911 integer(IK) ,
intent(in) :: dim
4912 real(TKG) ,
intent(in) :: weisum
4913 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4914 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4915 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4916 type(lowDia_type) ,
intent(in) :: subset
4921 PURE module subroutine setCovOrgWTR_XLD_RK2(cov, subset, sample, dim, weight, weisum)
4922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4923 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XLD_RK2
4926 integer(IK) ,
intent(in) :: dim
4927 real(TKG) ,
intent(in) :: weisum
4928 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4929 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4930 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4931 type(lowDia_type) ,
intent(in) :: subset
4936 PURE module subroutine setCovOrgWTR_XLD_RK1(cov, subset, sample, dim, weight, weisum)
4937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4938 !DEC$ ATTRIBUTES DLLEXPORT :: setCovOrgWTR_XLD_RK1
4941 integer(IK) ,
intent(in) :: dim
4942 real(TKG) ,
intent(in) :: weisum
4943 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4944 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4945 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4946 type(lowDia_type) ,
intent(in) :: subset
4959 PURE module subroutine setCovAvgWTR_XLD_CK5(cov, subset, mean, sample, dim, weight, weisum)
4960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4961 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XLD_CK5
4964 integer(IK) ,
intent(in) :: dim
4965 real(TKG) ,
intent(in) :: weisum
4966 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4967 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4968 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4969 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4970 type(lowDia_type) ,
intent(in) :: subset
4975 PURE module subroutine setCovAvgWTR_XLD_CK4(cov, subset, mean, sample, dim, weight, weisum)
4976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4977 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XLD_CK4
4980 integer(IK) ,
intent(in) :: dim
4981 real(TKG) ,
intent(in) :: weisum
4982 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4983 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4984 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4985 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
4986 type(lowDia_type) ,
intent(in) :: subset
4991 PURE module subroutine setCovAvgWTR_XLD_CK3(cov, subset, mean, sample, dim, weight, weisum)
4992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4993 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XLD_CK3
4996 integer(IK) ,
intent(in) :: dim
4997 real(TKG) ,
intent(in) :: weisum
4998 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
4999 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5000 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5001 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5002 type(lowDia_type) ,
intent(in) :: subset
5007 PURE module subroutine setCovAvgWTR_XLD_CK2(cov, subset, mean, sample, dim, weight, weisum)
5008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5009 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XLD_CK2
5012 integer(IK) ,
intent(in) :: dim
5013 real(TKG) ,
intent(in) :: weisum
5014 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
5015 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5016 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5017 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5018 type(lowDia_type) ,
intent(in) :: subset
5023 PURE module subroutine setCovAvgWTR_XLD_CK1(cov, subset, mean, sample, dim, weight, weisum)
5024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5025 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XLD_CK1
5028 integer(IK) ,
intent(in) :: dim
5029 real(TKG) ,
intent(in) :: weisum
5030 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
5031 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5032 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5033 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5034 type(lowDia_type) ,
intent(in) :: subset
5041 PURE module subroutine setCovAvgWTR_XLD_RK5(cov, subset, mean, sample, dim, weight, weisum)
5042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5043 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XLD_RK5
5046 integer(IK) ,
intent(in) :: dim
5047 real(TKG) ,
intent(in) :: weisum
5048 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
5049 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5050 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5051 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5052 type(lowDia_type) ,
intent(in) :: subset
5057 PURE module subroutine setCovAvgWTR_XLD_RK4(cov, subset, mean, sample, dim, weight, weisum)
5058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5059 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XLD_RK4
5062 integer(IK) ,
intent(in) :: dim
5063 real(TKG) ,
intent(in) :: weisum
5064 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
5065 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5066 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5067 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5068 type(lowDia_type) ,
intent(in) :: subset
5073 PURE module subroutine setCovAvgWTR_XLD_RK3(cov, subset, mean, sample, dim, weight, weisum)
5074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5075 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XLD_RK3
5078 integer(IK) ,
intent(in) :: dim
5079 real(TKG) ,
intent(in) :: weisum
5080 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
5081 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5082 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5083 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5084 type(lowDia_type) ,
intent(in) :: subset
5089 PURE module subroutine setCovAvgWTR_XLD_RK2(cov, subset, mean, sample, dim, weight, weisum)
5090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5091 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XLD_RK2
5094 integer(IK) ,
intent(in) :: dim
5095 real(TKG) ,
intent(in) :: weisum
5096 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
5097 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5098 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5099 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5100 type(lowDia_type) ,
intent(in) :: subset
5105 PURE module subroutine setCovAvgWTR_XLD_RK1(cov, subset, mean, sample, dim, weight, weisum)
5106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5107 !DEC$ ATTRIBUTES DLLEXPORT :: setCovAvgWTR_XLD_RK1
5110 integer(IK) ,
intent(in) :: dim
5111 real(TKG) ,
intent(in) :: weisum
5112 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
5113 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5114 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5115 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5116 type(lowDia_type) ,
intent(in) :: subset
5307 PURE module subroutine setCovMeanWNO_XY_CK5(cov, mean, x, y, meang)
5308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5309 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XY_CK5
5312 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5313 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5314 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5315 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5320 PURE module subroutine setCovMeanWNO_XY_CK4(cov, mean, x, y, meang)
5321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5322 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XY_CK4
5325 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5326 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5327 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5328 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5333 PURE module subroutine setCovMeanWNO_XY_CK3(cov, mean, x, y, meang)
5334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5335 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XY_CK3
5338 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5339 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5340 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5341 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5346 PURE module subroutine setCovMeanWNO_XY_CK2(cov, mean, x, y, meang)
5347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5348 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XY_CK2
5351 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5352 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5353 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5354 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5359 PURE module subroutine setCovMeanWNO_XY_CK1(cov, mean, x, y, meang)
5360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5361 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XY_CK1
5364 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5365 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5366 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5367 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5374 PURE module subroutine setCovMeanWNO_XY_RK5(cov, mean, x, y, meang)
5375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5376 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XY_RK5
5379 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5380 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5381 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5382 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5387 PURE module subroutine setCovMeanWNO_XY_RK4(cov, mean, x, y, meang)
5388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5389 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XY_RK4
5392 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5393 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5394 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5395 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5400 PURE module subroutine setCovMeanWNO_XY_RK3(cov, mean, x, y, meang)
5401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5402 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XY_RK3
5405 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5406 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5407 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5408 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5413 PURE module subroutine setCovMeanWNO_XY_RK2(cov, mean, x, y, meang)
5414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5415 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XY_RK2
5418 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5419 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5420 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5421 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5426 PURE module subroutine setCovMeanWNO_XY_RK1(cov, mean, x, y, meang)
5427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5428 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XY_RK1
5431 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5432 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5433 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5434 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5457 PURE module subroutine setCovMeanWTI_XY_CK5(cov, mean, x, y, weight, weisum, meang)
5458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5459 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XY_CK5
5462 integer(IK) ,
intent(out) :: weisum
5463 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5464 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
5465 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5466 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5467 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5472 PURE module subroutine setCovMeanWTI_XY_CK4(cov, mean, x, y, weight, weisum, meang)
5473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5474 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XY_CK4
5477 integer(IK) ,
intent(out) :: weisum
5478 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5479 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
5480 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5481 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5482 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5487 PURE module subroutine setCovMeanWTI_XY_CK3(cov, mean, x, y, weight, weisum, meang)
5488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5489 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XY_CK3
5492 integer(IK) ,
intent(out) :: weisum
5493 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5494 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
5495 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5496 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5497 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5502 PURE module subroutine setCovMeanWTI_XY_CK2(cov, mean, x, y, weight, weisum, meang)
5503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5504 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XY_CK2
5507 integer(IK) ,
intent(out) :: weisum
5508 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5509 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
5510 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5511 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5512 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5517 PURE module subroutine setCovMeanWTI_XY_CK1(cov, mean, x, y, weight, weisum, meang)
5518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5519 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XY_CK1
5522 integer(IK) ,
intent(out) :: weisum
5523 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5524 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
5525 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5526 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5527 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5534 PURE module subroutine setCovMeanWTI_XY_RK5(cov, mean, x, y, weight, weisum, meang)
5535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5536 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XY_RK5
5539 integer(IK) ,
intent(out) :: weisum
5540 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5541 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
5542 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5543 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5544 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5549 PURE module subroutine setCovMeanWTI_XY_RK4(cov, mean, x, y, weight, weisum, meang)
5550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5551 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XY_RK4
5554 integer(IK) ,
intent(out) :: weisum
5555 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5556 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
5557 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5558 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5559 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5564 PURE module subroutine setCovMeanWTI_XY_RK3(cov, mean, x, y, weight, weisum, meang)
5565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5566 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XY_RK3
5569 integer(IK) ,
intent(out) :: weisum
5570 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5571 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
5572 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5573 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5574 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5579 PURE module subroutine setCovMeanWTI_XY_RK2(cov, mean, x, y, weight, weisum, meang)
5580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5581 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XY_RK2
5584 integer(IK) ,
intent(out) :: weisum
5585 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5586 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
5587 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5588 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5589 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5594 PURE module subroutine setCovMeanWTI_XY_RK1(cov, mean, x, y, weight, weisum, meang)
5595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5596 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XY_RK1
5599 integer(IK) ,
intent(out) :: weisum
5600 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5601 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
5602 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5603 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5604 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5627 PURE module subroutine setCovMeanWTR_XY_CK5(cov, mean, x, y, weight, weisum, meang)
5628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5629 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XY_CK5
5632 real(TKG) ,
intent(out) :: weisum
5633 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5634 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5635 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5636 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5637 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5642 PURE module subroutine setCovMeanWTR_XY_CK4(cov, mean, x, y, weight, weisum, meang)
5643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5644 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XY_CK4
5647 real(TKG) ,
intent(out) :: weisum
5648 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5649 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5650 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5651 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5652 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5657 PURE module subroutine setCovMeanWTR_XY_CK3(cov, mean, x, y, weight, weisum, meang)
5658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5659 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XY_CK3
5662 real(TKG) ,
intent(out) :: weisum
5663 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5664 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5665 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5666 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5667 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5672 PURE module subroutine setCovMeanWTR_XY_CK2(cov, mean, x, y, weight, weisum, meang)
5673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5674 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XY_CK2
5677 real(TKG) ,
intent(out) :: weisum
5678 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5679 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5680 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5681 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5682 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5687 PURE module subroutine setCovMeanWTR_XY_CK1(cov, mean, x, y, weight, weisum, meang)
5688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5689 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XY_CK1
5692 real(TKG) ,
intent(out) :: weisum
5693 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5694 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5695 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5696 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5697 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5704 PURE module subroutine setCovMeanWTR_XY_RK5(cov, mean, x, y, weight, weisum, meang)
5705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5706 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XY_RK5
5709 real(TKG) ,
intent(out) :: weisum
5710 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5711 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5712 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5713 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5714 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5719 PURE module subroutine setCovMeanWTR_XY_RK4(cov, mean, x, y, weight, weisum, meang)
5720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5721 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XY_RK4
5724 real(TKG) ,
intent(out) :: weisum
5725 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5726 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5727 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5728 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5729 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5734 PURE module subroutine setCovMeanWTR_XY_RK3(cov, mean, x, y, weight, weisum, meang)
5735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5736 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XY_RK3
5739 real(TKG) ,
intent(out) :: weisum
5740 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5741 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5742 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5743 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5744 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5749 PURE module subroutine setCovMeanWTR_XY_RK2(cov, mean, x, y, weight, weisum, meang)
5750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5751 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XY_RK2
5754 real(TKG) ,
intent(out) :: weisum
5755 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5756 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5757 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5758 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5759 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5764 PURE module subroutine setCovMeanWTR_XY_RK1(cov, mean, x, y, weight, weisum, meang)
5765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5766 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XY_RK1
5769 real(TKG) ,
intent(out) :: weisum
5770 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5771 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
5772 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
5773 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
5774 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5799 PURE module subroutine setCovMeanWNO_UXD_CK5(cov, subset, mean, sample, dim, meang)
5800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5801 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_UXD_CK5
5804 integer(IK) ,
intent(in) :: dim
5805 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5806 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5807 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5808 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5809 type(uppDia_type) ,
intent(in) :: subset
5814 PURE module subroutine setCovMeanWNO_UXD_CK4(cov, subset, mean, sample, dim, meang)
5815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5816 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_UXD_CK4
5819 integer(IK) ,
intent(in) :: dim
5820 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5821 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5822 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5823 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5824 type(uppDia_type) ,
intent(in) :: subset
5829 PURE module subroutine setCovMeanWNO_UXD_CK3(cov, subset, mean, sample, dim, meang)
5830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5831 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_UXD_CK3
5834 integer(IK) ,
intent(in) :: dim
5835 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5836 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5837 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5838 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5839 type(uppDia_type) ,
intent(in) :: subset
5844 PURE module subroutine setCovMeanWNO_UXD_CK2(cov, subset, mean, sample, dim, meang)
5845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5846 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_UXD_CK2
5849 integer(IK) ,
intent(in) :: dim
5850 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5851 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5852 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5853 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5854 type(uppDia_type) ,
intent(in) :: subset
5859 PURE module subroutine setCovMeanWNO_UXD_CK1(cov, subset, mean, sample, dim, meang)
5860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5861 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_UXD_CK1
5864 integer(IK) ,
intent(in) :: dim
5865 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5866 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5867 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5868 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5869 type(uppDia_type) ,
intent(in) :: subset
5876 PURE module subroutine setCovMeanWNO_UXD_RK5(cov, subset, mean, sample, dim, meang)
5877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5878 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_UXD_RK5
5881 integer(IK) ,
intent(in) :: dim
5882 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5883 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5884 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5885 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5886 type(uppDia_type) ,
intent(in) :: subset
5891 PURE module subroutine setCovMeanWNO_UXD_RK4(cov, subset, mean, sample, dim, meang)
5892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5893 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_UXD_RK4
5896 integer(IK) ,
intent(in) :: dim
5897 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5898 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5899 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5900 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5901 type(uppDia_type) ,
intent(in) :: subset
5906 PURE module subroutine setCovMeanWNO_UXD_RK3(cov, subset, mean, sample, dim, meang)
5907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5908 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_UXD_RK3
5911 integer(IK) ,
intent(in) :: dim
5912 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5913 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5914 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5915 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5916 type(uppDia_type) ,
intent(in) :: subset
5921 PURE module subroutine setCovMeanWNO_UXD_RK2(cov, subset, mean, sample, dim, meang)
5922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5923 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_UXD_RK2
5926 integer(IK) ,
intent(in) :: dim
5927 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5928 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5929 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5930 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5931 type(uppDia_type) ,
intent(in) :: subset
5936 PURE module subroutine setCovMeanWNO_UXD_RK1(cov, subset, mean, sample, dim, meang)
5937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5938 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_UXD_RK1
5941 integer(IK) ,
intent(in) :: dim
5942 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5943 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
5944 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5945 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
5946 type(uppDia_type) ,
intent(in) :: subset
5969 PURE module subroutine setCovMeanWTI_UXD_CK5(cov, subset, mean, sample, dim, weight, weisum, meang)
5970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5971 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_UXD_CK5
5974 integer(IK) ,
intent(in) :: dim
5975 integer(IK) ,
intent(out) :: weisum
5976 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5977 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
5978 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5979 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5980 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5981 type(uppDia_type) ,
intent(in) :: subset
5986 PURE module subroutine setCovMeanWTI_UXD_CK4(cov, subset, mean, sample, dim, weight, weisum, meang)
5987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5988 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_UXD_CK4
5991 integer(IK) ,
intent(in) :: dim
5992 integer(IK) ,
intent(out) :: weisum
5993 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
5994 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
5995 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
5996 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
5997 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
5998 type(uppDia_type) ,
intent(in) :: subset
6003 PURE module subroutine setCovMeanWTI_UXD_CK3(cov, subset, mean, sample, dim, weight, weisum, meang)
6004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6005 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_UXD_CK3
6008 integer(IK) ,
intent(in) :: dim
6009 integer(IK) ,
intent(out) :: weisum
6010 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6011 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6012 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6013 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6014 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6015 type(uppDia_type) ,
intent(in) :: subset
6020 PURE module subroutine setCovMeanWTI_UXD_CK2(cov, subset, mean, sample, dim, weight, weisum, meang)
6021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6022 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_UXD_CK2
6025 integer(IK) ,
intent(in) :: dim
6026 integer(IK) ,
intent(out) :: weisum
6027 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6028 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6029 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6030 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6031 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6032 type(uppDia_type) ,
intent(in) :: subset
6037 PURE module subroutine setCovMeanWTI_UXD_CK1(cov, subset, mean, sample, dim, weight, weisum, meang)
6038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6039 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_UXD_CK1
6042 integer(IK) ,
intent(in) :: dim
6043 integer(IK) ,
intent(out) :: weisum
6044 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6045 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6046 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6047 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6048 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6049 type(uppDia_type) ,
intent(in) :: subset
6056 PURE module subroutine setCovMeanWTI_UXD_RK5(cov, subset, mean, sample, dim, weight, weisum, meang)
6057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6058 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_UXD_RK5
6061 integer(IK) ,
intent(in) :: dim
6062 integer(IK) ,
intent(out) :: weisum
6063 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6064 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6065 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6066 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6067 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6068 type(uppDia_type) ,
intent(in) :: subset
6073 PURE module subroutine setCovMeanWTI_UXD_RK4(cov, subset, mean, sample, dim, weight, weisum, meang)
6074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6075 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_UXD_RK4
6078 integer(IK) ,
intent(in) :: dim
6079 integer(IK) ,
intent(out) :: weisum
6080 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6081 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6082 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6083 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6084 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6085 type(uppDia_type) ,
intent(in) :: subset
6090 PURE module subroutine setCovMeanWTI_UXD_RK3(cov, subset, mean, sample, dim, weight, weisum, meang)
6091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6092 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_UXD_RK3
6095 integer(IK) ,
intent(in) :: dim
6096 integer(IK) ,
intent(out) :: weisum
6097 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6098 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6099 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6100 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6101 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6102 type(uppDia_type) ,
intent(in) :: subset
6107 PURE module subroutine setCovMeanWTI_UXD_RK2(cov, subset, mean, sample, dim, weight, weisum, meang)
6108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6109 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_UXD_RK2
6112 integer(IK) ,
intent(in) :: dim
6113 integer(IK) ,
intent(out) :: weisum
6114 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6115 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6116 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6117 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6118 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6119 type(uppDia_type) ,
intent(in) :: subset
6124 PURE module subroutine setCovMeanWTI_UXD_RK1(cov, subset, mean, sample, dim, weight, weisum, meang)
6125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6126 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_UXD_RK1
6129 integer(IK) ,
intent(in) :: dim
6130 integer(IK) ,
intent(out) :: weisum
6131 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6132 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6133 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6134 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6135 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6136 type(uppDia_type) ,
intent(in) :: subset
6159 PURE module subroutine setCovMeanWTR_UXD_CK5(cov, subset, mean, sample, dim, weight, weisum, meang)
6160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6161 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_UXD_CK5
6164 integer(IK) ,
intent(in) :: dim
6165 real(TKG) ,
intent(out) :: weisum
6166 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6167 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6168 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6169 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6170 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6171 type(uppDia_type) ,
intent(in) :: subset
6176 PURE module subroutine setCovMeanWTR_UXD_CK4(cov, subset, mean, sample, dim, weight, weisum, meang)
6177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6178 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_UXD_CK4
6181 integer(IK) ,
intent(in) :: dim
6182 real(TKG) ,
intent(out) :: weisum
6183 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6184 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6185 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6186 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6187 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6188 type(uppDia_type) ,
intent(in) :: subset
6193 PURE module subroutine setCovMeanWTR_UXD_CK3(cov, subset, mean, sample, dim, weight, weisum, meang)
6194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6195 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_UXD_CK3
6198 integer(IK) ,
intent(in) :: dim
6199 real(TKG) ,
intent(out) :: weisum
6200 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6201 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6202 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6203 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6204 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6205 type(uppDia_type) ,
intent(in) :: subset
6210 PURE module subroutine setCovMeanWTR_UXD_CK2(cov, subset, mean, sample, dim, weight, weisum, meang)
6211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6212 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_UXD_CK2
6215 integer(IK) ,
intent(in) :: dim
6216 real(TKG) ,
intent(out) :: weisum
6217 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6218 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6219 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6220 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6221 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6222 type(uppDia_type) ,
intent(in) :: subset
6227 PURE module subroutine setCovMeanWTR_UXD_CK1(cov, subset, mean, sample, dim, weight, weisum, meang)
6228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6229 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_UXD_CK1
6232 integer(IK) ,
intent(in) :: dim
6233 real(TKG) ,
intent(out) :: weisum
6234 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6235 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6236 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6237 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6238 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6239 type(uppDia_type) ,
intent(in) :: subset
6246 PURE module subroutine setCovMeanWTR_UXD_RK5(cov, subset, mean, sample, dim, weight, weisum, meang)
6247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6248 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_UXD_RK5
6251 integer(IK) ,
intent(in) :: dim
6252 real(TKG) ,
intent(out) :: weisum
6253 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6254 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6255 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6256 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6257 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6258 type(uppDia_type) ,
intent(in) :: subset
6263 PURE module subroutine setCovMeanWTR_UXD_RK4(cov, subset, mean, sample, dim, weight, weisum, meang)
6264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6265 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_UXD_RK4
6268 integer(IK) ,
intent(in) :: dim
6269 real(TKG) ,
intent(out) :: weisum
6270 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6271 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6272 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6273 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6274 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6275 type(uppDia_type) ,
intent(in) :: subset
6280 PURE module subroutine setCovMeanWTR_UXD_RK3(cov, subset, mean, sample, dim, weight, weisum, meang)
6281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6282 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_UXD_RK3
6285 integer(IK) ,
intent(in) :: dim
6286 real(TKG) ,
intent(out) :: weisum
6287 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6288 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6289 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6290 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6291 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6292 type(uppDia_type) ,
intent(in) :: subset
6297 PURE module subroutine setCovMeanWTR_UXD_RK2(cov, subset, mean, sample, dim, weight, weisum, meang)
6298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6299 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_UXD_RK2
6302 integer(IK) ,
intent(in) :: dim
6303 real(TKG) ,
intent(out) :: weisum
6304 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6305 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6306 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6307 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6308 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6309 type(uppDia_type) ,
intent(in) :: subset
6314 PURE module subroutine setCovMeanWTR_UXD_RK1(cov, subset, mean, sample, dim, weight, weisum, meang)
6315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6316 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_UXD_RK1
6319 integer(IK) ,
intent(in) :: dim
6320 real(TKG) ,
intent(out) :: weisum
6321 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6322 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6323 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6324 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6325 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6326 type(uppDia_type) ,
intent(in) :: subset
6351 PURE module subroutine setCovMeanWNO_XLD_CK5(cov, subset, mean, sample, dim, meang)
6352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6353 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XLD_CK5
6356 integer(IK) ,
intent(in) :: dim
6357 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6358 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6359 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6360 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6361 type(lowDia_type) ,
intent(in) :: subset
6366 PURE module subroutine setCovMeanWNO_XLD_CK4(cov, subset, mean, sample, dim, meang)
6367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6368 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XLD_CK4
6371 integer(IK) ,
intent(in) :: dim
6372 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6373 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6374 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6375 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6376 type(lowDia_type) ,
intent(in) :: subset
6381 PURE module subroutine setCovMeanWNO_XLD_CK3(cov, subset, mean, sample, dim, meang)
6382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6383 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XLD_CK3
6386 integer(IK) ,
intent(in) :: dim
6387 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6388 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6389 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6390 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6391 type(lowDia_type) ,
intent(in) :: subset
6396 PURE module subroutine setCovMeanWNO_XLD_CK2(cov, subset, mean, sample, dim, meang)
6397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6398 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XLD_CK2
6401 integer(IK) ,
intent(in) :: dim
6402 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6403 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6404 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6405 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6406 type(lowDia_type) ,
intent(in) :: subset
6411 PURE module subroutine setCovMeanWNO_XLD_CK1(cov, subset, mean, sample, dim, meang)
6412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6413 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XLD_CK1
6416 integer(IK) ,
intent(in) :: dim
6417 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6418 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6419 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6420 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6421 type(lowDia_type) ,
intent(in) :: subset
6428 PURE module subroutine setCovMeanWNO_XLD_RK5(cov, subset, mean, sample, dim, meang)
6429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6430 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XLD_RK5
6433 integer(IK) ,
intent(in) :: dim
6434 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6435 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6436 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6437 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6438 type(lowDia_type) ,
intent(in) :: subset
6443 PURE module subroutine setCovMeanWNO_XLD_RK4(cov, subset, mean, sample, dim, meang)
6444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6445 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XLD_RK4
6448 integer(IK) ,
intent(in) :: dim
6449 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6450 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6451 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6452 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6453 type(lowDia_type) ,
intent(in) :: subset
6458 PURE module subroutine setCovMeanWNO_XLD_RK3(cov, subset, mean, sample, dim, meang)
6459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6460 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XLD_RK3
6463 integer(IK) ,
intent(in) :: dim
6464 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6465 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6466 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6467 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6468 type(lowDia_type) ,
intent(in) :: subset
6473 PURE module subroutine setCovMeanWNO_XLD_RK2(cov, subset, mean, sample, dim, meang)
6474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6475 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XLD_RK2
6478 integer(IK) ,
intent(in) :: dim
6479 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6480 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6481 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6482 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6483 type(lowDia_type) ,
intent(in) :: subset
6488 PURE module subroutine setCovMeanWNO_XLD_RK1(cov, subset, mean, sample, dim, meang)
6489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6490 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWNO_XLD_RK1
6493 integer(IK) ,
intent(in) :: dim
6494 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6495 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6496 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6497 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6498 type(lowDia_type) ,
intent(in) :: subset
6521 PURE module subroutine setCovMeanWTI_XLD_CK5(cov, subset, mean, sample, dim, weight, weisum, meang)
6522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6523 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XLD_CK5
6526 integer(IK) ,
intent(in) :: dim
6527 integer(IK) ,
intent(out) :: weisum
6528 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6529 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6530 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6531 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6532 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6533 type(lowDia_type) ,
intent(in) :: subset
6538 PURE module subroutine setCovMeanWTI_XLD_CK4(cov, subset, mean, sample, dim, weight, weisum, meang)
6539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6540 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XLD_CK4
6543 integer(IK) ,
intent(in) :: dim
6544 integer(IK) ,
intent(out) :: weisum
6545 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6546 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6547 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6548 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6549 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6550 type(lowDia_type) ,
intent(in) :: subset
6555 PURE module subroutine setCovMeanWTI_XLD_CK3(cov, subset, mean, sample, dim, weight, weisum, meang)
6556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6557 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XLD_CK3
6560 integer(IK) ,
intent(in) :: dim
6561 integer(IK) ,
intent(out) :: weisum
6562 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6563 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6564 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6565 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6566 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6567 type(lowDia_type) ,
intent(in) :: subset
6572 PURE module subroutine setCovMeanWTI_XLD_CK2(cov, subset, mean, sample, dim, weight, weisum, meang)
6573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6574 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XLD_CK2
6577 integer(IK) ,
intent(in) :: dim
6578 integer(IK) ,
intent(out) :: weisum
6579 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6580 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6581 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6582 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6583 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6584 type(lowDia_type) ,
intent(in) :: subset
6589 PURE module subroutine setCovMeanWTI_XLD_CK1(cov, subset, mean, sample, dim, weight, weisum, meang)
6590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6591 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XLD_CK1
6594 integer(IK) ,
intent(in) :: dim
6595 integer(IK) ,
intent(out) :: weisum
6596 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6597 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6598 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6599 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6600 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6601 type(lowDia_type) ,
intent(in) :: subset
6608 PURE module subroutine setCovMeanWTI_XLD_RK5(cov, subset, mean, sample, dim, weight, weisum, meang)
6609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6610 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XLD_RK5
6613 integer(IK) ,
intent(in) :: dim
6614 integer(IK) ,
intent(out) :: weisum
6615 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6616 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6617 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6618 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6619 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6620 type(lowDia_type) ,
intent(in) :: subset
6625 PURE module subroutine setCovMeanWTI_XLD_RK4(cov, subset, mean, sample, dim, weight, weisum, meang)
6626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6627 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XLD_RK4
6630 integer(IK) ,
intent(in) :: dim
6631 integer(IK) ,
intent(out) :: weisum
6632 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6633 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6634 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6635 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6636 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6637 type(lowDia_type) ,
intent(in) :: subset
6642 PURE module subroutine setCovMeanWTI_XLD_RK3(cov, subset, mean, sample, dim, weight, weisum, meang)
6643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6644 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XLD_RK3
6647 integer(IK) ,
intent(in) :: dim
6648 integer(IK) ,
intent(out) :: weisum
6649 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6650 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6651 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6652 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6653 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6654 type(lowDia_type) ,
intent(in) :: subset
6659 PURE module subroutine setCovMeanWTI_XLD_RK2(cov, subset, mean, sample, dim, weight, weisum, meang)
6660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6661 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XLD_RK2
6664 integer(IK) ,
intent(in) :: dim
6665 integer(IK) ,
intent(out) :: weisum
6666 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6667 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6668 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6669 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6670 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6671 type(lowDia_type) ,
intent(in) :: subset
6676 PURE module subroutine setCovMeanWTI_XLD_RK1(cov, subset, mean, sample, dim, weight, weisum, meang)
6677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6678 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTI_XLD_RK1
6681 integer(IK) ,
intent(in) :: dim
6682 integer(IK) ,
intent(out) :: weisum
6683 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6684 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6685 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6686 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6687 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6688 type(lowDia_type) ,
intent(in) :: subset
6711 PURE module subroutine setCovMeanWTR_XLD_CK5(cov, subset, mean, sample, dim, weight, weisum, meang)
6712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6713 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XLD_CK5
6716 integer(IK) ,
intent(in) :: dim
6717 real(TKG) ,
intent(out) :: weisum
6718 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6719 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6720 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6721 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6722 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6723 type(lowDia_type) ,
intent(in) :: subset
6728 PURE module subroutine setCovMeanWTR_XLD_CK4(cov, subset, mean, sample, dim, weight, weisum, meang)
6729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6730 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XLD_CK4
6733 integer(IK) ,
intent(in) :: dim
6734 real(TKG) ,
intent(out) :: weisum
6735 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6736 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6737 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6738 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6739 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6740 type(lowDia_type) ,
intent(in) :: subset
6745 PURE module subroutine setCovMeanWTR_XLD_CK3(cov, subset, mean, sample, dim, weight, weisum, meang)
6746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6747 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XLD_CK3
6750 integer(IK) ,
intent(in) :: dim
6751 real(TKG) ,
intent(out) :: weisum
6752 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6753 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6754 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6755 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6756 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6757 type(lowDia_type) ,
intent(in) :: subset
6762 PURE module subroutine setCovMeanWTR_XLD_CK2(cov, subset, mean, sample, dim, weight, weisum, meang)
6763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6764 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XLD_CK2
6767 integer(IK) ,
intent(in) :: dim
6768 real(TKG) ,
intent(out) :: weisum
6769 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6770 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6771 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6772 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6773 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6774 type(lowDia_type) ,
intent(in) :: subset
6779 PURE module subroutine setCovMeanWTR_XLD_CK1(cov, subset, mean, sample, dim, weight, weisum, meang)
6780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6781 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XLD_CK1
6784 integer(IK) ,
intent(in) :: dim
6785 real(TKG) ,
intent(out) :: weisum
6786 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
6787 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6788 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6789 complex(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6790 complex(TKG) ,
intent(in) ,
contiguous :: meang(:)
6791 type(lowDia_type) ,
intent(in) :: subset
6798 PURE module subroutine setCovMeanWTR_XLD_RK5(cov, subset, mean, sample, dim, weight, weisum, meang)
6799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6800 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XLD_RK5
6803 integer(IK) ,
intent(in) :: dim
6804 real(TKG) ,
intent(out) :: weisum
6805 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6806 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6807 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6808 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6809 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6810 type(lowDia_type) ,
intent(in) :: subset
6815 PURE module subroutine setCovMeanWTR_XLD_RK4(cov, subset, mean, sample, dim, weight, weisum, meang)
6816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6817 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XLD_RK4
6820 integer(IK) ,
intent(in) :: dim
6821 real(TKG) ,
intent(out) :: weisum
6822 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6823 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6824 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6825 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6826 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6827 type(lowDia_type) ,
intent(in) :: subset
6832 PURE module subroutine setCovMeanWTR_XLD_RK3(cov, subset, mean, sample, dim, weight, weisum, meang)
6833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6834 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XLD_RK3
6837 integer(IK) ,
intent(in) :: dim
6838 real(TKG) ,
intent(out) :: weisum
6839 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6840 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6841 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6842 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6843 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6844 type(lowDia_type) ,
intent(in) :: subset
6849 PURE module subroutine setCovMeanWTR_XLD_RK2(cov, subset, mean, sample, dim, weight, weisum, meang)
6850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6851 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XLD_RK2
6854 integer(IK) ,
intent(in) :: dim
6855 real(TKG) ,
intent(out) :: weisum
6856 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6857 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6858 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6859 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6860 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6861 type(lowDia_type) ,
intent(in) :: subset
6866 PURE module subroutine setCovMeanWTR_XLD_RK1(cov, subset, mean, sample, dim, weight, weisum, meang)
6867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6868 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanWTR_XLD_RK1
6871 integer(IK) ,
intent(in) :: dim
6872 real(TKG) ,
intent(out) :: weisum
6873 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
6874 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6875 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6876 real(TKG) ,
intent(inout) ,
contiguous :: cov(:,:)
6877 real(TKG) ,
intent(in) ,
contiguous :: meang(:)
6878 type(lowDia_type) ,
intent(in) :: subset
6980 PURE module function getCovMergedNew_RDP_ULD_CK5(covB, covA, meanDiff, fracA)
result(cov)
6981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6982 !DEC$ ATTRIBUTES DLLEXPORT :: getCovMergedNew_RDP_ULD_CK5
6985 real(TKG) ,
intent(in) :: fracA
6986 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
6987 complex(TKG) :: cov(
size(covA,
1, IK),
size(covA,
2, IK))
6992 PURE module function getCovMergedNew_RDP_ULD_CK4(covB, covA, meanDiff, fracA)
result(cov)
6993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6994 !DEC$ ATTRIBUTES DLLEXPORT :: getCovMergedNew_RDP_ULD_CK4
6997 real(TKG) ,
intent(in) :: fracA
6998 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
6999 complex(TKG) :: cov(
size(covA,
1, IK),
size(covA,
2, IK))
7004 PURE module function getCovMergedNew_RDP_ULD_CK3(covB, covA, meanDiff, fracA)
result(cov)
7005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7006 !DEC$ ATTRIBUTES DLLEXPORT :: getCovMergedNew_RDP_ULD_CK3
7009 real(TKG) ,
intent(in) :: fracA
7010 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7011 complex(TKG) :: cov(
size(covA,
1, IK),
size(covA,
2, IK))
7016 PURE module function getCovMergedNew_RDP_ULD_CK2(covB, covA, meanDiff, fracA)
result(cov)
7017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7018 !DEC$ ATTRIBUTES DLLEXPORT :: getCovMergedNew_RDP_ULD_CK2
7021 real(TKG) ,
intent(in) :: fracA
7022 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7023 complex(TKG) :: cov(
size(covA,
1, IK),
size(covA,
2, IK))
7028 PURE module function getCovMergedNew_RDP_ULD_CK1(covB, covA, meanDiff, fracA)
result(cov)
7029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7030 !DEC$ ATTRIBUTES DLLEXPORT :: getCovMergedNew_RDP_ULD_CK1
7033 real(TKG) ,
intent(in) :: fracA
7034 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7035 complex(TKG) :: cov(
size(covA,
1, IK),
size(covA,
2, IK))
7042 PURE module function getCovMergedNew_RDP_ULD_RK5(covB, covA, meanDiff, fracA)
result(cov)
7043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7044 !DEC$ ATTRIBUTES DLLEXPORT :: getCovMergedNew_RDP_ULD_RK5
7047 real(TKG) ,
intent(in) :: fracA
7048 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7049 real(TKG) :: cov(
size(covA,
1, IK),
size(covA,
2, IK))
7054 PURE module function getCovMergedNew_RDP_ULD_RK4(covB, covA, meanDiff, fracA)
result(cov)
7055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7056 !DEC$ ATTRIBUTES DLLEXPORT :: getCovMergedNew_RDP_ULD_RK4
7059 real(TKG) ,
intent(in) :: fracA
7060 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7061 real(TKG) :: cov(
size(covA,
1, IK),
size(covA,
2, IK))
7066 PURE module function getCovMergedNew_RDP_ULD_RK3(covB, covA, meanDiff, fracA)
result(cov)
7067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7068 !DEC$ ATTRIBUTES DLLEXPORT :: getCovMergedNew_RDP_ULD_RK3
7071 real(TKG) ,
intent(in) :: fracA
7072 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7073 real(TKG) :: cov(
size(covA,
1, IK),
size(covA,
2, IK))
7078 PURE module function getCovMergedNew_RDP_ULD_RK2(covB, covA, meanDiff, fracA)
result(cov)
7079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7080 !DEC$ ATTRIBUTES DLLEXPORT :: getCovMergedNew_RDP_ULD_RK2
7083 real(TKG) ,
intent(in) :: fracA
7084 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7085 real(TKG) :: cov(
size(covA,
1, IK),
size(covA,
2, IK))
7090 PURE module function getCovMergedNew_RDP_ULD_RK1(covB, covA, meanDiff, fracA)
result(cov)
7091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7092 !DEC$ ATTRIBUTES DLLEXPORT :: getCovMergedNew_RDP_ULD_RK1
7095 real(TKG) ,
intent(in) :: fracA
7096 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7097 real(TKG) :: cov(
size(covA,
1, IK),
size(covA,
2, IK))
7202 PURE module subroutine setCovMergedNew_RDP_UXD_CK5(cov, covB, covA, meanDiff, fracA, subset)
7203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7204 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_UXD_CK5
7207 real(TKG) ,
intent(in) :: fracA
7208 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7209 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7210 type(uppDia_type) ,
intent(in) :: subset
7215 PURE module subroutine setCovMergedNew_RDP_UXD_CK4(cov, covB, covA, meanDiff, fracA, subset)
7216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7217 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_UXD_CK4
7220 real(TKG) ,
intent(in) :: fracA
7221 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7222 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7223 type(uppDia_type) ,
intent(in) :: subset
7228 PURE module subroutine setCovMergedNew_RDP_UXD_CK3(cov, covB, covA, meanDiff, fracA, subset)
7229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7230 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_UXD_CK3
7233 real(TKG) ,
intent(in) :: fracA
7234 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7235 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7236 type(uppDia_type) ,
intent(in) :: subset
7241 PURE module subroutine setCovMergedNew_RDP_UXD_CK2(cov, covB, covA, meanDiff, fracA, subset)
7242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7243 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_UXD_CK2
7246 real(TKG) ,
intent(in) :: fracA
7247 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7248 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7249 type(uppDia_type) ,
intent(in) :: subset
7254 PURE module subroutine setCovMergedNew_RDP_UXD_CK1(cov, covB, covA, meanDiff, fracA, subset)
7255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7256 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_UXD_CK1
7259 real(TKG) ,
intent(in) :: fracA
7260 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7261 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7262 type(uppDia_type) ,
intent(in) :: subset
7269 PURE module subroutine setCovMergedNew_RDP_UXD_RK5(cov, covB, covA, meanDiff, fracA, subset)
7270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7271 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_UXD_RK5
7274 real(TKG) ,
intent(in) :: fracA
7275 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7276 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7277 type(uppDia_type) ,
intent(in) :: subset
7282 PURE module subroutine setCovMergedNew_RDP_UXD_RK4(cov, covB, covA, meanDiff, fracA, subset)
7283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7284 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_UXD_RK4
7287 real(TKG) ,
intent(in) :: fracA
7288 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7289 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7290 type(uppDia_type) ,
intent(in) :: subset
7295 PURE module subroutine setCovMergedNew_RDP_UXD_RK3(cov, covB, covA, meanDiff, fracA, subset)
7296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7297 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_UXD_RK3
7300 real(TKG) ,
intent(in) :: fracA
7301 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7302 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7303 type(uppDia_type) ,
intent(in) :: subset
7308 PURE module subroutine setCovMergedNew_RDP_UXD_RK2(cov, covB, covA, meanDiff, fracA, subset)
7309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7310 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_UXD_RK2
7313 real(TKG) ,
intent(in) :: fracA
7314 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7315 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7316 type(uppDia_type) ,
intent(in) :: subset
7321 PURE module subroutine setCovMergedNew_RDP_UXD_RK1(cov, covB, covA, meanDiff, fracA, subset)
7322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7323 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_UXD_RK1
7326 real(TKG) ,
intent(in) :: fracA
7327 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7328 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7329 type(uppDia_type) ,
intent(in) :: subset
7344 PURE module subroutine setCovMergedNew_RDP_XLD_CK5(cov, covB, covA, meanDiff, fracA, subset)
7345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7346 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_XLD_CK5
7349 real(TKG) ,
intent(in) :: fracA
7350 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7351 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7352 type(lowDia_type) ,
intent(in) :: subset
7357 PURE module subroutine setCovMergedNew_RDP_XLD_CK4(cov, covB, covA, meanDiff, fracA, subset)
7358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7359 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_XLD_CK4
7362 real(TKG) ,
intent(in) :: fracA
7363 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7364 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7365 type(lowDia_type) ,
intent(in) :: subset
7370 PURE module subroutine setCovMergedNew_RDP_XLD_CK3(cov, covB, covA, meanDiff, fracA, subset)
7371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7372 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_XLD_CK3
7375 real(TKG) ,
intent(in) :: fracA
7376 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7377 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7378 type(lowDia_type) ,
intent(in) :: subset
7383 PURE module subroutine setCovMergedNew_RDP_XLD_CK2(cov, covB, covA, meanDiff, fracA, subset)
7384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7385 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_XLD_CK2
7388 real(TKG) ,
intent(in) :: fracA
7389 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7390 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7391 type(lowDia_type) ,
intent(in) :: subset
7396 PURE module subroutine setCovMergedNew_RDP_XLD_CK1(cov, covB, covA, meanDiff, fracA, subset)
7397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7398 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_XLD_CK1
7401 real(TKG) ,
intent(in) :: fracA
7402 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7403 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7404 type(lowDia_type) ,
intent(in) :: subset
7411 PURE module subroutine setCovMergedNew_RDP_XLD_RK5(cov, covB, covA, meanDiff, fracA, subset)
7412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7413 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_XLD_RK5
7416 real(TKG) ,
intent(in) :: fracA
7417 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7418 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7419 type(lowDia_type) ,
intent(in) :: subset
7424 PURE module subroutine setCovMergedNew_RDP_XLD_RK4(cov, covB, covA, meanDiff, fracA, subset)
7425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7426 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_XLD_RK4
7429 real(TKG) ,
intent(in) :: fracA
7430 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7431 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7432 type(lowDia_type) ,
intent(in) :: subset
7437 PURE module subroutine setCovMergedNew_RDP_XLD_RK3(cov, covB, covA, meanDiff, fracA, subset)
7438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7439 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_XLD_RK3
7442 real(TKG) ,
intent(in) :: fracA
7443 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7444 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7445 type(lowDia_type) ,
intent(in) :: subset
7450 PURE module subroutine setCovMergedNew_RDP_XLD_RK2(cov, covB, covA, meanDiff, fracA, subset)
7451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7452 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_XLD_RK2
7455 real(TKG) ,
intent(in) :: fracA
7456 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7457 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7458 type(lowDia_type) ,
intent(in) :: subset
7463 PURE module subroutine setCovMergedNew_RDP_XLD_RK1(cov, covB, covA, meanDiff, fracA, subset)
7464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7465 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedNew_RDP_XLD_RK1
7468 real(TKG) ,
intent(in) :: fracA
7469 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), covA(:,:), meanDiff(:)
7470 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:)
7471 type(lowDia_type) ,
intent(in) :: subset
7486 PURE module subroutine setCovMergedOld_RDP_UXD_CK5(covB, covA, meanDiff, fracA, subset)
7487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7488 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_UXD_CK5
7491 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7492 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7493 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7494 real(TKG) ,
intent(in) :: fracA
7495 type(uppDia_type) ,
intent(in) :: subset
7500 PURE module subroutine setCovMergedOld_RDP_UXD_CK4(covB, covA, meanDiff, fracA, subset)
7501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7502 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_UXD_CK4
7505 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7506 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7507 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7508 real(TKG) ,
intent(in) :: fracA
7509 type(uppDia_type) ,
intent(in) :: subset
7514 PURE module subroutine setCovMergedOld_RDP_UXD_CK3(covB, covA, meanDiff, fracA, subset)
7515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7516 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_UXD_CK3
7519 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7520 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7521 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7522 real(TKG) ,
intent(in) :: fracA
7523 type(uppDia_type) ,
intent(in) :: subset
7528 PURE module subroutine setCovMergedOld_RDP_UXD_CK2(covB, covA, meanDiff, fracA, subset)
7529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7530 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_UXD_CK2
7533 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7534 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7535 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7536 real(TKG) ,
intent(in) :: fracA
7537 type(uppDia_type) ,
intent(in) :: subset
7542 PURE module subroutine setCovMergedOld_RDP_UXD_CK1(covB, covA, meanDiff, fracA, subset)
7543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7544 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_UXD_CK1
7547 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7548 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7549 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7550 real(TKG) ,
intent(in) :: fracA
7551 type(uppDia_type) ,
intent(in) :: subset
7558 PURE module subroutine setCovMergedOld_RDP_UXD_RK5(covB, covA, meanDiff, fracA, subset)
7559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7560 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_UXD_RK5
7563 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7564 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7565 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7566 real(TKG) ,
intent(in) :: fracA
7567 type(uppDia_type) ,
intent(in) :: subset
7572 PURE module subroutine setCovMergedOld_RDP_UXD_RK4(covB, covA, meanDiff, fracA, subset)
7573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7574 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_UXD_RK4
7577 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7578 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7579 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7580 real(TKG) ,
intent(in) :: fracA
7581 type(uppDia_type) ,
intent(in) :: subset
7586 PURE module subroutine setCovMergedOld_RDP_UXD_RK3(covB, covA, meanDiff, fracA, subset)
7587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7588 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_UXD_RK3
7591 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7592 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7593 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7594 real(TKG) ,
intent(in) :: fracA
7595 type(uppDia_type) ,
intent(in) :: subset
7600 PURE module subroutine setCovMergedOld_RDP_UXD_RK2(covB, covA, meanDiff, fracA, subset)
7601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7602 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_UXD_RK2
7605 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7606 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7607 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7608 real(TKG) ,
intent(in) :: fracA
7609 type(uppDia_type) ,
intent(in) :: subset
7614 PURE module subroutine setCovMergedOld_RDP_UXD_RK1(covB, covA, meanDiff, fracA, subset)
7615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7616 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_UXD_RK1
7619 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7620 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7621 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7622 real(TKG) ,
intent(in) :: fracA
7623 type(uppDia_type) ,
intent(in) :: subset
7638 PURE module subroutine setCovMergedOld_RDP_XLD_CK5(covB, covA, meanDiff, fracA, subset)
7639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7640 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_XLD_CK5
7643 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7644 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7645 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7646 real(TKG) ,
intent(in) :: fracA
7647 type(lowDia_type) ,
intent(in) :: subset
7652 PURE module subroutine setCovMergedOld_RDP_XLD_CK4(covB, covA, meanDiff, fracA, subset)
7653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7654 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_XLD_CK4
7657 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7658 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7659 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7660 real(TKG) ,
intent(in) :: fracA
7661 type(lowDia_type) ,
intent(in) :: subset
7666 PURE module subroutine setCovMergedOld_RDP_XLD_CK3(covB, covA, meanDiff, fracA, subset)
7667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7668 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_XLD_CK3
7671 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7672 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7673 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7674 real(TKG) ,
intent(in) :: fracA
7675 type(lowDia_type) ,
intent(in) :: subset
7680 PURE module subroutine setCovMergedOld_RDP_XLD_CK2(covB, covA, meanDiff, fracA, subset)
7681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7682 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_XLD_CK2
7685 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7686 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7687 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7688 real(TKG) ,
intent(in) :: fracA
7689 type(lowDia_type) ,
intent(in) :: subset
7694 PURE module subroutine setCovMergedOld_RDP_XLD_CK1(covB, covA, meanDiff, fracA, subset)
7695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7696 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_XLD_CK1
7699 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7700 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7701 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7702 real(TKG) ,
intent(in) :: fracA
7703 type(lowDia_type) ,
intent(in) :: subset
7710 PURE module subroutine setCovMergedOld_RDP_XLD_RK5(covB, covA, meanDiff, fracA, subset)
7711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7712 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_XLD_RK5
7715 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7716 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7717 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7718 real(TKG) ,
intent(in) :: fracA
7719 type(lowDia_type) ,
intent(in) :: subset
7724 PURE module subroutine setCovMergedOld_RDP_XLD_RK4(covB, covA, meanDiff, fracA, subset)
7725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7726 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_XLD_RK4
7729 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7730 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7731 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7732 real(TKG) ,
intent(in) :: fracA
7733 type(lowDia_type) ,
intent(in) :: subset
7738 PURE module subroutine setCovMergedOld_RDP_XLD_RK3(covB, covA, meanDiff, fracA, subset)
7739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7740 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_XLD_RK3
7743 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7744 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7745 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7746 real(TKG) ,
intent(in) :: fracA
7747 type(lowDia_type) ,
intent(in) :: subset
7752 PURE module subroutine setCovMergedOld_RDP_XLD_RK2(covB, covA, meanDiff, fracA, subset)
7753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7754 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_XLD_RK2
7757 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7758 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7759 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7760 real(TKG) ,
intent(in) :: fracA
7761 type(lowDia_type) ,
intent(in) :: subset
7766 PURE module subroutine setCovMergedOld_RDP_XLD_RK1(covB, covA, meanDiff, fracA, subset)
7767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7768 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMergedOld_RDP_XLD_RK1
7771 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:)
7772 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
7773 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
7774 real(TKG) ,
intent(in) :: fracA
7775 type(lowDia_type) ,
intent(in) :: subset
7888 PURE module subroutine setCovMeanMergedNew_RDP_UXD_CK5(cov, mean, covB, meanB, covA, meanA, fracA, subset)
7889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7890 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_UXD_CK5
7893 real(TKG) ,
intent(in) :: fracA
7894 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
7895 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
7896 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
7897 type(uppDia_type) ,
intent(in) :: subset
7902 PURE module subroutine setCovMeanMergedNew_RDP_UXD_CK4(cov, mean, covB, meanB, covA, meanA, fracA, subset)
7903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7904 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_UXD_CK4
7907 real(TKG) ,
intent(in) :: fracA
7908 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
7909 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
7910 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
7911 type(uppDia_type) ,
intent(in) :: subset
7916 PURE module subroutine setCovMeanMergedNew_RDP_UXD_CK3(cov, mean, covB, meanB, covA, meanA, fracA, subset)
7917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7918 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_UXD_CK3
7921 real(TKG) ,
intent(in) :: fracA
7922 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
7923 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
7924 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
7925 type(uppDia_type) ,
intent(in) :: subset
7930 PURE module subroutine setCovMeanMergedNew_RDP_UXD_CK2(cov, mean, covB, meanB, covA, meanA, fracA, subset)
7931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7932 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_UXD_CK2
7935 real(TKG) ,
intent(in) :: fracA
7936 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
7937 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
7938 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
7939 type(uppDia_type) ,
intent(in) :: subset
7944 PURE module subroutine setCovMeanMergedNew_RDP_UXD_CK1(cov, mean, covB, meanB, covA, meanA, fracA, subset)
7945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7946 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_UXD_CK1
7949 real(TKG) ,
intent(in) :: fracA
7950 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
7951 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
7952 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
7953 type(uppDia_type) ,
intent(in) :: subset
7960 PURE module subroutine setCovMeanMergedNew_RDP_UXD_RK5(cov, mean, covB, meanB, covA, meanA, fracA, subset)
7961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7962 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_UXD_RK5
7965 real(TKG) ,
intent(in) :: fracA
7966 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
7967 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
7968 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
7969 type(uppDia_type) ,
intent(in) :: subset
7974 PURE module subroutine setCovMeanMergedNew_RDP_UXD_RK4(cov, mean, covB, meanB, covA, meanA, fracA, subset)
7975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7976 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_UXD_RK4
7979 real(TKG) ,
intent(in) :: fracA
7980 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
7981 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
7982 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
7983 type(uppDia_type) ,
intent(in) :: subset
7988 PURE module subroutine setCovMeanMergedNew_RDP_UXD_RK3(cov, mean, covB, meanB, covA, meanA, fracA, subset)
7989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7990 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_UXD_RK3
7993 real(TKG) ,
intent(in) :: fracA
7994 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
7995 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
7996 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
7997 type(uppDia_type) ,
intent(in) :: subset
8002 PURE module subroutine setCovMeanMergedNew_RDP_UXD_RK2(cov, mean, covB, meanB, covA, meanA, fracA, subset)
8003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8004 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_UXD_RK2
8007 real(TKG) ,
intent(in) :: fracA
8008 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8009 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
8010 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
8011 type(uppDia_type) ,
intent(in) :: subset
8016 PURE module subroutine setCovMeanMergedNew_RDP_UXD_RK1(cov, mean, covB, meanB, covA, meanA, fracA, subset)
8017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8018 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_UXD_RK1
8021 real(TKG) ,
intent(in) :: fracA
8022 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8023 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
8024 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
8025 type(uppDia_type) ,
intent(in) :: subset
8040 PURE module subroutine setCovMeanMergedNew_RDP_XLD_CK5(cov, mean, covB, meanB, covA, meanA, fracA, subset)
8041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8042 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_XLD_CK5
8045 real(TKG) ,
intent(in) :: fracA
8046 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8047 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
8048 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
8049 type(lowDia_type) ,
intent(in) :: subset
8054 PURE module subroutine setCovMeanMergedNew_RDP_XLD_CK4(cov, mean, covB, meanB, covA, meanA, fracA, subset)
8055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8056 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_XLD_CK4
8059 real(TKG) ,
intent(in) :: fracA
8060 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8061 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
8062 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
8063 type(lowDia_type) ,
intent(in) :: subset
8068 PURE module subroutine setCovMeanMergedNew_RDP_XLD_CK3(cov, mean, covB, meanB, covA, meanA, fracA, subset)
8069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8070 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_XLD_CK3
8073 real(TKG) ,
intent(in) :: fracA
8074 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8075 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
8076 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
8077 type(lowDia_type) ,
intent(in) :: subset
8082 PURE module subroutine setCovMeanMergedNew_RDP_XLD_CK2(cov, mean, covB, meanB, covA, meanA, fracA, subset)
8083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8084 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_XLD_CK2
8087 real(TKG) ,
intent(in) :: fracA
8088 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8089 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
8090 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
8091 type(lowDia_type) ,
intent(in) :: subset
8096 PURE module subroutine setCovMeanMergedNew_RDP_XLD_CK1(cov, mean, covB, meanB, covA, meanA, fracA, subset)
8097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8098 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_XLD_CK1
8101 real(TKG) ,
intent(in) :: fracA
8102 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8103 complex(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
8104 complex(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
8105 type(lowDia_type) ,
intent(in) :: subset
8112 PURE module subroutine setCovMeanMergedNew_RDP_XLD_RK5(cov, mean, covB, meanB, covA, meanA, fracA, subset)
8113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8114 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_XLD_RK5
8117 real(TKG) ,
intent(in) :: fracA
8118 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8119 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
8120 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
8121 type(lowDia_type) ,
intent(in) :: subset
8126 PURE module subroutine setCovMeanMergedNew_RDP_XLD_RK4(cov, mean, covB, meanB, covA, meanA, fracA, subset)
8127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8128 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_XLD_RK4
8131 real(TKG) ,
intent(in) :: fracA
8132 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8133 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
8134 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
8135 type(lowDia_type) ,
intent(in) :: subset
8140 PURE module subroutine setCovMeanMergedNew_RDP_XLD_RK3(cov, mean, covB, meanB, covA, meanA, fracA, subset)
8141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8142 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_XLD_RK3
8145 real(TKG) ,
intent(in) :: fracA
8146 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8147 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
8148 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
8149 type(lowDia_type) ,
intent(in) :: subset
8154 PURE module subroutine setCovMeanMergedNew_RDP_XLD_RK2(cov, mean, covB, meanB, covA, meanA, fracA, subset)
8155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8156 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_XLD_RK2
8159 real(TKG) ,
intent(in) :: fracA
8160 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8161 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
8162 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
8163 type(lowDia_type) ,
intent(in) :: subset
8168 PURE module subroutine setCovMeanMergedNew_RDP_XLD_RK1(cov, mean, covB, meanB, covA, meanA, fracA, subset)
8169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8170 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedNew_RDP_XLD_RK1
8173 real(TKG) ,
intent(in) :: fracA
8174 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8175 real(TKG) ,
intent(in) ,
contiguous :: covB(:,:), meanB(:)
8176 real(TKG) ,
intent(out) ,
contiguous :: cov(:,:), mean(:)
8177 type(lowDia_type) ,
intent(in) :: subset
8192 PURE module subroutine setCovMeanMergedOld_RDP_UXD_CK5(covB, meanB, covA, meanA, fracA, subset)
8193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8194 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_UXD_CK5
8197 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8198 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8199 real(TKG) ,
intent(in) :: fracA
8200 type(uppDia_type) ,
intent(in) :: subset
8205 PURE module subroutine setCovMeanMergedOld_RDP_UXD_CK4(covB, meanB, covA, meanA, fracA, subset)
8206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8207 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_UXD_CK4
8210 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8211 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8212 real(TKG) ,
intent(in) :: fracA
8213 type(uppDia_type) ,
intent(in) :: subset
8218 PURE module subroutine setCovMeanMergedOld_RDP_UXD_CK3(covB, meanB, covA, meanA, fracA, subset)
8219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8220 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_UXD_CK3
8223 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8224 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8225 real(TKG) ,
intent(in) :: fracA
8226 type(uppDia_type) ,
intent(in) :: subset
8231 PURE module subroutine setCovMeanMergedOld_RDP_UXD_CK2(covB, meanB, covA, meanA, fracA, subset)
8232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8233 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_UXD_CK2
8236 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8237 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8238 real(TKG) ,
intent(in) :: fracA
8239 type(uppDia_type) ,
intent(in) :: subset
8244 PURE module subroutine setCovMeanMergedOld_RDP_UXD_CK1(covB, meanB, covA, meanA, fracA, subset)
8245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8246 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_UXD_CK1
8249 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8250 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8251 real(TKG) ,
intent(in) :: fracA
8252 type(uppDia_type) ,
intent(in) :: subset
8259 PURE module subroutine setCovMeanMergedOld_RDP_UXD_RK5(covB, meanB, covA, meanA, fracA, subset)
8260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8261 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_UXD_RK5
8264 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8265 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8266 real(TKG) ,
intent(in) :: fracA
8267 type(uppDia_type) ,
intent(in) :: subset
8272 PURE module subroutine setCovMeanMergedOld_RDP_UXD_RK4(covB, meanB, covA, meanA, fracA, subset)
8273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8274 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_UXD_RK4
8277 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8278 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8279 real(TKG) ,
intent(in) :: fracA
8280 type(uppDia_type) ,
intent(in) :: subset
8285 PURE module subroutine setCovMeanMergedOld_RDP_UXD_RK3(covB, meanB, covA, meanA, fracA, subset)
8286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8287 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_UXD_RK3
8290 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8291 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8292 real(TKG) ,
intent(in) :: fracA
8293 type(uppDia_type) ,
intent(in) :: subset
8298 PURE module subroutine setCovMeanMergedOld_RDP_UXD_RK2(covB, meanB, covA, meanA, fracA, subset)
8299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8300 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_UXD_RK2
8303 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8304 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8305 real(TKG) ,
intent(in) :: fracA
8306 type(uppDia_type) ,
intent(in) :: subset
8311 PURE module subroutine setCovMeanMergedOld_RDP_UXD_RK1(covB, meanB, covA, meanA, fracA, subset)
8312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8313 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_UXD_RK1
8316 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8317 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8318 real(TKG) ,
intent(in) :: fracA
8319 type(uppDia_type) ,
intent(in) :: subset
8334 PURE module subroutine setCovMeanMergedOld_RDP_XLD_CK5(covB, meanB, covA, meanA, fracA, subset)
8335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8336 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_XLD_CK5
8339 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8340 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8341 real(TKG) ,
intent(in) :: fracA
8342 type(lowDia_type) ,
intent(in) :: subset
8347 PURE module subroutine setCovMeanMergedOld_RDP_XLD_CK4(covB, meanB, covA, meanA, fracA, subset)
8348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8349 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_XLD_CK4
8352 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8353 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8354 real(TKG) ,
intent(in) :: fracA
8355 type(lowDia_type) ,
intent(in) :: subset
8360 PURE module subroutine setCovMeanMergedOld_RDP_XLD_CK3(covB, meanB, covA, meanA, fracA, subset)
8361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8362 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_XLD_CK3
8365 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8366 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8367 real(TKG) ,
intent(in) :: fracA
8368 type(lowDia_type) ,
intent(in) :: subset
8373 PURE module subroutine setCovMeanMergedOld_RDP_XLD_CK2(covB, meanB, covA, meanA, fracA, subset)
8374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8375 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_XLD_CK2
8378 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8379 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8380 real(TKG) ,
intent(in) :: fracA
8381 type(lowDia_type) ,
intent(in) :: subset
8386 PURE module subroutine setCovMeanMergedOld_RDP_XLD_CK1(covB, meanB, covA, meanA, fracA, subset)
8387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8388 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_XLD_CK1
8391 complex(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8392 complex(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8393 real(TKG) ,
intent(in) :: fracA
8394 type(lowDia_type) ,
intent(in) :: subset
8401 PURE module subroutine setCovMeanMergedOld_RDP_XLD_RK5(covB, meanB, covA, meanA, fracA, subset)
8402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8403 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_XLD_RK5
8406 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8407 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8408 real(TKG) ,
intent(in) :: fracA
8409 type(lowDia_type) ,
intent(in) :: subset
8414 PURE module subroutine setCovMeanMergedOld_RDP_XLD_RK4(covB, meanB, covA, meanA, fracA, subset)
8415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8416 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_XLD_RK4
8419 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8420 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8421 real(TKG) ,
intent(in) :: fracA
8422 type(lowDia_type) ,
intent(in) :: subset
8427 PURE module subroutine setCovMeanMergedOld_RDP_XLD_RK3(covB, meanB, covA, meanA, fracA, subset)
8428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8429 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_XLD_RK3
8432 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8433 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8434 real(TKG) ,
intent(in) :: fracA
8435 type(lowDia_type) ,
intent(in) :: subset
8440 PURE module subroutine setCovMeanMergedOld_RDP_XLD_RK2(covB, meanB, covA, meanA, fracA, subset)
8441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8442 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_XLD_RK2
8445 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8446 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8447 real(TKG) ,
intent(in) :: fracA
8448 type(lowDia_type) ,
intent(in) :: subset
8453 PURE module subroutine setCovMeanMergedOld_RDP_XLD_RK1(covB, meanB, covA, meanA, fracA, subset)
8454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8455 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanMergedOld_RDP_XLD_RK1
8458 real(TKG) ,
intent(inout) ,
contiguous :: covB(:,:), meanB(:)
8459 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:), meanA(:)
8460 real(TKG) ,
intent(in) :: fracA
8461 type(lowDia_type) ,
intent(in) :: subset
8558 PURE module subroutine setCovUpdatedOld_RDP_UXD_CK5(covA, meanDiff, fracA, subset)
8559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8560 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_UXD_CK5
8563 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8564 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8565 real(TKG) ,
intent(in) :: fracA
8566 type(uppDia_type) ,
intent(in) :: subset
8571 PURE module subroutine setCovUpdatedOld_RDP_UXD_CK4(covA, meanDiff, fracA, subset)
8572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8573 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_UXD_CK4
8576 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8577 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8578 real(TKG) ,
intent(in) :: fracA
8579 type(uppDia_type) ,
intent(in) :: subset
8584 PURE module subroutine setCovUpdatedOld_RDP_UXD_CK3(covA, meanDiff, fracA, subset)
8585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8586 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_UXD_CK3
8589 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8590 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8591 real(TKG) ,
intent(in) :: fracA
8592 type(uppDia_type) ,
intent(in) :: subset
8597 PURE module subroutine setCovUpdatedOld_RDP_UXD_CK2(covA, meanDiff, fracA, subset)
8598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8599 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_UXD_CK2
8602 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8603 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8604 real(TKG) ,
intent(in) :: fracA
8605 type(uppDia_type) ,
intent(in) :: subset
8610 PURE module subroutine setCovUpdatedOld_RDP_UXD_CK1(covA, meanDiff, fracA, subset)
8611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8612 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_UXD_CK1
8615 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8616 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8617 real(TKG) ,
intent(in) :: fracA
8618 type(uppDia_type) ,
intent(in) :: subset
8625 PURE module subroutine setCovUpdatedOld_RDP_UXD_RK5(covA, meanDiff, fracA, subset)
8626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8627 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_UXD_RK5
8630 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8631 real(TKG) ,
intent(in) ,
contiguous :: covA(:,:)
8632 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8633 real(TKG) ,
intent(in) :: fracA
8634 type(uppDia_type) ,
intent(in) :: subset
8639 PURE module subroutine setCovUpdatedOld_RDP_UXD_RK4(covA, meanDiff, fracA, subset)
8640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8641 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_UXD_RK4
8644 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8645 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8646 real(TKG) ,
intent(in) :: fracA
8647 type(uppDia_type) ,
intent(in) :: subset
8652 PURE module subroutine setCovUpdatedOld_RDP_UXD_RK3(covA, meanDiff, fracA, subset)
8653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8654 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_UXD_RK3
8657 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8658 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8659 real(TKG) ,
intent(in) :: fracA
8660 type(uppDia_type) ,
intent(in) :: subset
8665 PURE module subroutine setCovUpdatedOld_RDP_UXD_RK2(covA, meanDiff, fracA, subset)
8666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8667 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_UXD_RK2
8670 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8671 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8672 real(TKG) ,
intent(in) :: fracA
8673 type(uppDia_type) ,
intent(in) :: subset
8678 PURE module subroutine setCovUpdatedOld_RDP_UXD_RK1(covA, meanDiff, fracA, subset)
8679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8680 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_UXD_RK1
8683 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8684 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8685 real(TKG) ,
intent(in) :: fracA
8686 type(uppDia_type) ,
intent(in) :: subset
8701 PURE module subroutine setCovUpdatedOld_RDP_XLD_CK5(covA, meanDiff, fracA, subset)
8702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8703 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_XLD_CK5
8706 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8707 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8708 real(TKG) ,
intent(in) :: fracA
8709 type(lowDia_type) ,
intent(in) :: subset
8714 PURE module subroutine setCovUpdatedOld_RDP_XLD_CK4(covA, meanDiff, fracA, subset)
8715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8716 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_XLD_CK4
8719 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8720 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8721 real(TKG) ,
intent(in) :: fracA
8722 type(lowDia_type) ,
intent(in) :: subset
8727 PURE module subroutine setCovUpdatedOld_RDP_XLD_CK3(covA, meanDiff, fracA, subset)
8728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8729 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_XLD_CK3
8732 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8733 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8734 real(TKG) ,
intent(in) :: fracA
8735 type(lowDia_type) ,
intent(in) :: subset
8740 PURE module subroutine setCovUpdatedOld_RDP_XLD_CK2(covA, meanDiff, fracA, subset)
8741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8742 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_XLD_CK2
8745 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8746 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8747 real(TKG) ,
intent(in) :: fracA
8748 type(lowDia_type) ,
intent(in) :: subset
8753 PURE module subroutine setCovUpdatedOld_RDP_XLD_CK1(covA, meanDiff, fracA, subset)
8754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8755 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_XLD_CK1
8758 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8759 complex(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8760 real(TKG) ,
intent(in) :: fracA
8761 type(lowDia_type) ,
intent(in) :: subset
8768 PURE module subroutine setCovUpdatedOld_RDP_XLD_RK5(covA, meanDiff, fracA, subset)
8769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8770 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_XLD_RK5
8773 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8774 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8775 real(TKG) ,
intent(in) :: fracA
8776 type(lowDia_type) ,
intent(in) :: subset
8781 PURE module subroutine setCovUpdatedOld_RDP_XLD_RK4(covA, meanDiff, fracA, subset)
8782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8783 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_XLD_RK4
8786 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8787 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8788 real(TKG) ,
intent(in) :: fracA
8789 type(lowDia_type) ,
intent(in) :: subset
8794 PURE module subroutine setCovUpdatedOld_RDP_XLD_RK3(covA, meanDiff, fracA, subset)
8795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8796 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_XLD_RK3
8799 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8800 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8801 real(TKG) ,
intent(in) :: fracA
8802 type(lowDia_type) ,
intent(in) :: subset
8807 PURE module subroutine setCovUpdatedOld_RDP_XLD_RK2(covA, meanDiff, fracA, subset)
8808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8809 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_XLD_RK2
8812 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8813 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8814 real(TKG) ,
intent(in) :: fracA
8815 type(lowDia_type) ,
intent(in) :: subset
8820 PURE module subroutine setCovUpdatedOld_RDP_XLD_RK1(covA, meanDiff, fracA, subset)
8821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8822 !DEC$ ATTRIBUTES DLLEXPORT :: setCovUpdatedOld_RDP_XLD_RK1
8825 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:)
8826 real(TKG) ,
intent(in) ,
contiguous :: meanDiff(:)
8827 real(TKG) ,
intent(in) :: fracA
8828 type(lowDia_type) ,
intent(in) :: subset
8927 PURE module subroutine setCovMeanUpdatedOld_RDP_UXD_CK5(covA, meanA, meanB, fracA, subset)
8928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8929 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_UXD_CK5
8932 real(TKG) ,
intent(in) :: fracA
8933 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
8934 complex(TKG) ,
intent(in) ,
contiguous :: meanB(:)
8935 type(uppDia_type) ,
intent(in) :: subset
8940 PURE module subroutine setCovMeanUpdatedOld_RDP_UXD_CK4(covA, meanA, meanB, fracA, subset)
8941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8942 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_UXD_CK4
8945 real(TKG) ,
intent(in) :: fracA
8946 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
8947 complex(TKG) ,
intent(in) ,
contiguous :: meanB(:)
8948 type(uppDia_type) ,
intent(in) :: subset
8953 PURE module subroutine setCovMeanUpdatedOld_RDP_UXD_CK3(covA, meanA, meanB, fracA, subset)
8954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8955 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_UXD_CK3
8958 real(TKG) ,
intent(in) :: fracA
8959 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
8960 complex(TKG) ,
intent(in) ,
contiguous :: meanB(:)
8961 type(uppDia_type) ,
intent(in) :: subset
8966 PURE module subroutine setCovMeanUpdatedOld_RDP_UXD_CK2(covA, meanA, meanB, fracA, subset)
8967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8968 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_UXD_CK2
8971 real(TKG) ,
intent(in) :: fracA
8972 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
8973 complex(TKG) ,
intent(in) ,
contiguous :: meanB(:)
8974 type(uppDia_type) ,
intent(in) :: subset
8979 PURE module subroutine setCovMeanUpdatedOld_RDP_UXD_CK1(covA, meanA, meanB, fracA, subset)
8980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8981 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_UXD_CK1
8984 real(TKG) ,
intent(in) :: fracA
8985 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
8986 complex(TKG) ,
intent(in) ,
contiguous :: meanB(:)
8987 type(uppDia_type) ,
intent(in) :: subset
8994 PURE module subroutine setCovMeanUpdatedOld_RDP_UXD_RK5(covA, meanA, meanB, fracA, subset)
8995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8996 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_UXD_RK5
8999 real(TKG) ,
intent(in) :: fracA
9000 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9001 real(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9002 type(uppDia_type) ,
intent(in) :: subset
9007 PURE module subroutine setCovMeanUpdatedOld_RDP_UXD_RK4(covA, meanA, meanB, fracA, subset)
9008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9009 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_UXD_RK4
9012 real(TKG) ,
intent(in) :: fracA
9013 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9014 real(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9015 type(uppDia_type) ,
intent(in) :: subset
9020 PURE module subroutine setCovMeanUpdatedOld_RDP_UXD_RK3(covA, meanA, meanB, fracA, subset)
9021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9022 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_UXD_RK3
9025 real(TKG) ,
intent(in) :: fracA
9026 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9027 real(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9028 type(uppDia_type) ,
intent(in) :: subset
9033 PURE module subroutine setCovMeanUpdatedOld_RDP_UXD_RK2(covA, meanA, meanB, fracA, subset)
9034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9035 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_UXD_RK2
9038 real(TKG) ,
intent(in) :: fracA
9039 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9040 real(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9041 type(uppDia_type) ,
intent(in) :: subset
9046 PURE module subroutine setCovMeanUpdatedOld_RDP_UXD_RK1(covA, meanA, meanB, fracA, subset)
9047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9048 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_UXD_RK1
9051 real(TKG) ,
intent(in) :: fracA
9052 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9053 real(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9054 type(uppDia_type) ,
intent(in) :: subset
9069 PURE module subroutine setCovMeanUpdatedOld_RDP_XLD_CK5(covA, meanA, meanB, fracA, subset)
9070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9071 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_XLD_CK5
9074 real(TKG) ,
intent(in) :: fracA
9075 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9076 complex(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9077 type(lowDia_type) ,
intent(in) :: subset
9082 PURE module subroutine setCovMeanUpdatedOld_RDP_XLD_CK4(covA, meanA, meanB, fracA, subset)
9083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9084 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_XLD_CK4
9087 real(TKG) ,
intent(in) :: fracA
9088 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9089 complex(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9090 type(lowDia_type) ,
intent(in) :: subset
9095 PURE module subroutine setCovMeanUpdatedOld_RDP_XLD_CK3(covA, meanA, meanB, fracA, subset)
9096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9097 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_XLD_CK3
9100 real(TKG) ,
intent(in) :: fracA
9101 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9102 complex(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9103 type(lowDia_type) ,
intent(in) :: subset
9108 PURE module subroutine setCovMeanUpdatedOld_RDP_XLD_CK2(covA, meanA, meanB, fracA, subset)
9109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9110 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_XLD_CK2
9113 real(TKG) ,
intent(in) :: fracA
9114 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9115 complex(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9116 type(lowDia_type) ,
intent(in) :: subset
9121 PURE module subroutine setCovMeanUpdatedOld_RDP_XLD_CK1(covA, meanA, meanB, fracA, subset)
9122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9123 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_XLD_CK1
9126 real(TKG) ,
intent(in) :: fracA
9127 complex(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9128 complex(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9129 type(lowDia_type) ,
intent(in) :: subset
9136 PURE module subroutine setCovMeanUpdatedOld_RDP_XLD_RK5(covA, meanA, meanB, fracA, subset)
9137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9138 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_XLD_RK5
9141 real(TKG) ,
intent(in) :: fracA
9142 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9143 real(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9144 type(lowDia_type) ,
intent(in) :: subset
9149 PURE module subroutine setCovMeanUpdatedOld_RDP_XLD_RK4(covA, meanA, meanB, fracA, subset)
9150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9151 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_XLD_RK4
9154 real(TKG) ,
intent(in) :: fracA
9155 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9156 real(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9157 type(lowDia_type) ,
intent(in) :: subset
9162 PURE module subroutine setCovMeanUpdatedOld_RDP_XLD_RK3(covA, meanA, meanB, fracA, subset)
9163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9164 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_XLD_RK3
9167 real(TKG) ,
intent(in) :: fracA
9168 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9169 real(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9170 type(lowDia_type) ,
intent(in) :: subset
9175 PURE module subroutine setCovMeanUpdatedOld_RDP_XLD_RK2(covA, meanA, meanB, fracA, subset)
9176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9177 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_XLD_RK2
9180 real(TKG) ,
intent(in) :: fracA
9181 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9182 real(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9183 type(lowDia_type) ,
intent(in) :: subset
9188 PURE module subroutine setCovMeanUpdatedOld_RDP_XLD_RK1(covA, meanA, meanB, fracA, subset)
9189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9190 !DEC$ ATTRIBUTES DLLEXPORT :: setCovMeanUpdatedOld_RDP_XLD_RK1
9193 real(TKG) ,
intent(in) :: fracA
9194 real(TKG) ,
intent(inout) ,
contiguous :: covA(:,:), meanA(:)
9195 real(TKG) ,
intent(in) ,
contiguous :: meanB(:)
9196 type(lowDia_type) ,
intent(in) :: subset
Generate and return the merged covariance of a sample resulting from the merger of two separate (pote...
Generate and return the (optionally unbiased) covariance matrix of a pair of (potentially weighted) t...
Return the merged covariance and mean of a sample resulting from the merger of two separate (potentia...
Return the covariance and mean of a sample that results from the merger of two separate (potentially ...
Return the covariance matrix and mean vector corresponding to the input (potentially weighted) input ...
Return the merged covariance of a sample resulting from the merger of two separate (potentially weigh...
Return the covAariance resulting from the merger of two separate (potentially weighted) non-singular ...
Return the covariance matrix corresponding to the input (potentially weighted) correlation matrix or ...
Generate and return the bias correction factor for the computation of the variance of a (weighted) sa...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
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...
character(*, SK), parameter MODULE_NAME
This module contains classes and procedures for computing the properties related to the covariance ma...
This module contains classes and procedures for computing the properties related to the covariance ma...
This module contains the types, classes, and procedures relevant to weights of random samples.
type(rweight_type), parameter rweight
This is a scalar parameter object of type rweight_type that is exclusively used to signify the Symmet...
type(fweight_type), parameter fweight
This is a scalar parameter object of type fweight_type that is exclusively used to signify the Symmet...
This is a concrete derived type whose instances are exclusively used to request lower-diagonal triang...
This is a concrete derived type whose instances are exclusively used to request upper-diagonal triang...
This is a concrete derived type whose instances are exclusively used to signify the fweight type of s...
This is a concrete derived type whose instances are exclusively used to signify the rweight type of s...
This is an abstract derived type for constructing concrete derived types to distinguish various proce...