238 PURE module function getMeanALL_WNO_D1_CK5(sample)
result(mean)
239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
240 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D1_CK5
243 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
249 PURE module function getMeanALL_WNO_D1_CK4(sample)
result(mean)
250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
251 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D1_CK4
254 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
260 PURE module function getMeanALL_WNO_D1_CK3(sample)
result(mean)
261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
262 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D1_CK3
265 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
271 PURE module function getMeanALL_WNO_D1_CK2(sample)
result(mean)
272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
273 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D1_CK2
276 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
282 PURE module function getMeanALL_WNO_D1_CK1(sample)
result(mean)
283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
284 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D1_CK1
287 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
295 PURE module function getMeanALL_WNO_D1_RK5(sample)
result(mean)
296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
297 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D1_RK5
300 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
306 PURE module function getMeanALL_WNO_D1_RK4(sample)
result(mean)
307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
308 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D1_RK4
311 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
317 PURE module function getMeanALL_WNO_D1_RK3(sample)
result(mean)
318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
319 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D1_RK3
322 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
328 PURE module function getMeanALL_WNO_D1_RK2(sample)
result(mean)
329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
330 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D1_RK2
333 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
339 PURE module function getMeanALL_WNO_D1_RK1(sample)
result(mean)
340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
341 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D1_RK1
344 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
358 PURE module function getMeanALL_WTI_D1_CK5(sample, weight)
result(mean)
359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
360 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D1_CK5
363 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
364 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
370 PURE module function getMeanALL_WTI_D1_CK4(sample, weight)
result(mean)
371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
372 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D1_CK4
375 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
376 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
382 PURE module function getMeanALL_WTI_D1_CK3(sample, weight)
result(mean)
383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
384 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D1_CK3
387 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
388 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
394 PURE module function getMeanALL_WTI_D1_CK2(sample, weight)
result(mean)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D1_CK2
399 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
400 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
406 PURE module function getMeanALL_WTI_D1_CK1(sample, weight)
result(mean)
407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
408 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D1_CK1
411 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
412 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
420 PURE module function getMeanALL_WTI_D1_RK5(sample, weight)
result(mean)
421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
422 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D1_RK5
425 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
426 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
432 PURE module function getMeanALL_WTI_D1_RK4(sample, weight)
result(mean)
433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
434 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D1_RK4
437 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
438 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
444 PURE module function getMeanALL_WTI_D1_RK3(sample, weight)
result(mean)
445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
446 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D1_RK3
449 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
450 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
456 PURE module function getMeanALL_WTI_D1_RK2(sample, weight)
result(mean)
457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
458 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D1_RK2
461 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
462 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
468 PURE module function getMeanALL_WTI_D1_RK1(sample, weight)
result(mean)
469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
470 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D1_RK1
473 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
474 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
488 PURE module function getMeanALL_WTR_D1_CK5(sample, weight)
result(mean)
489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
490 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D1_CK5
493 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
494 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
500 PURE module function getMeanALL_WTR_D1_CK4(sample, weight)
result(mean)
501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
502 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D1_CK4
505 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
506 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
512 PURE module function getMeanALL_WTR_D1_CK3(sample, weight)
result(mean)
513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
514 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D1_CK3
517 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
518 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
524 PURE module function getMeanALL_WTR_D1_CK2(sample, weight)
result(mean)
525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
526 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D1_CK2
529 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
530 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
536 PURE module function getMeanALL_WTR_D1_CK1(sample, weight)
result(mean)
537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
538 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D1_CK1
541 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
542 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
550 PURE module function getMeanALL_WTR_D1_RK5(sample, weight)
result(mean)
551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
552 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D1_RK5
555 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
556 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
562 PURE module function getMeanALL_WTR_D1_RK4(sample, weight)
result(mean)
563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
564 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D1_RK4
567 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
568 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
574 PURE module function getMeanALL_WTR_D1_RK3(sample, weight)
result(mean)
575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
576 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D1_RK3
579 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
580 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
586 PURE module function getMeanALL_WTR_D1_RK2(sample, weight)
result(mean)
587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
588 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D1_RK2
591 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
592 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
598 PURE module function getMeanALL_WTR_D1_RK1(sample, weight)
result(mean)
599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
600 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D1_RK1
603 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
604 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
628 PURE module function getMeanALL_WNO_D2_CK5(sample)
result(mean)
629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
630 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D2_CK5
633 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
639 PURE module function getMeanALL_WNO_D2_CK4(sample)
result(mean)
640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
641 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D2_CK4
644 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
650 PURE module function getMeanALL_WNO_D2_CK3(sample)
result(mean)
651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
652 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D2_CK3
655 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
661 PURE module function getMeanALL_WNO_D2_CK2(sample)
result(mean)
662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
663 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D2_CK2
666 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
672 PURE module function getMeanALL_WNO_D2_CK1(sample)
result(mean)
673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
674 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D2_CK1
677 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
685 PURE module function getMeanALL_WNO_D2_RK5(sample)
result(mean)
686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
687 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D2_RK5
690 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
696 PURE module function getMeanALL_WNO_D2_RK4(sample)
result(mean)
697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
698 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D2_RK4
701 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
707 PURE module function getMeanALL_WNO_D2_RK3(sample)
result(mean)
708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
709 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D2_RK3
712 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
718 PURE module function getMeanALL_WNO_D2_RK2(sample)
result(mean)
719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
720 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D2_RK2
723 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
729 PURE module function getMeanALL_WNO_D2_RK1(sample)
result(mean)
730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
731 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WNO_D2_RK1
734 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
748 PURE module function getMeanALL_WTI_D2_CK5(sample, weight)
result(mean)
749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
750 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D2_CK5
753 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
754 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
760 PURE module function getMeanALL_WTI_D2_CK4(sample, weight)
result(mean)
761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
762 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D2_CK4
765 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
766 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
772 PURE module function getMeanALL_WTI_D2_CK3(sample, weight)
result(mean)
773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
774 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D2_CK3
777 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
778 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
784 PURE module function getMeanALL_WTI_D2_CK2(sample, weight)
result(mean)
785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
786 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D2_CK2
789 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
790 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
796 PURE module function getMeanALL_WTI_D2_CK1(sample, weight)
result(mean)
797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
798 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D2_CK1
801 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
802 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
810 PURE module function getMeanALL_WTI_D2_RK5(sample, weight)
result(mean)
811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
812 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D2_RK5
815 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
816 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
822 PURE module function getMeanALL_WTI_D2_RK4(sample, weight)
result(mean)
823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
824 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D2_RK4
827 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
828 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
834 PURE module function getMeanALL_WTI_D2_RK3(sample, weight)
result(mean)
835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
836 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D2_RK3
839 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
840 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
846 PURE module function getMeanALL_WTI_D2_RK2(sample, weight)
result(mean)
847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
848 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D2_RK2
851 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
852 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
858 PURE module function getMeanALL_WTI_D2_RK1(sample, weight)
result(mean)
859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
860 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTI_D2_RK1
863 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
864 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
878 PURE module function getMeanALL_WTR_D2_CK5(sample, weight)
result(mean)
879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
880 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D2_CK5
883 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
884 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
890 PURE module function getMeanALL_WTR_D2_CK4(sample, weight)
result(mean)
891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
892 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D2_CK4
895 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
896 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
902 PURE module function getMeanALL_WTR_D2_CK3(sample, weight)
result(mean)
903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
904 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D2_CK3
907 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
908 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
914 PURE module function getMeanALL_WTR_D2_CK2(sample, weight)
result(mean)
915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
916 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D2_CK2
919 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
920 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
926 PURE module function getMeanALL_WTR_D2_CK1(sample, weight)
result(mean)
927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
928 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D2_CK1
931 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
932 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
940 PURE module function getMeanALL_WTR_D2_RK5(sample, weight)
result(mean)
941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
942 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D2_RK5
945 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
946 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
952 PURE module function getMeanALL_WTR_D2_RK4(sample, weight)
result(mean)
953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
954 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D2_RK4
957 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
958 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
964 PURE module function getMeanALL_WTR_D2_RK3(sample, weight)
result(mean)
965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
966 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D2_RK3
969 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
970 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
976 PURE module function getMeanALL_WTR_D2_RK2(sample, weight)
result(mean)
977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
978 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D2_RK2
981 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
982 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
988 PURE module function getMeanALL_WTR_D2_RK1(sample, weight)
result(mean)
989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
990 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanALL_WTR_D2_RK1
993 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
994 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1018 PURE module function getMeanDIM_WNO_D1_CK5(sample, dim)
result(mean)
1019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1020 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D1_CK5
1023 integer(IK) ,
intent(in) :: dim
1024 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1025 complex(TKG) :: mean
1030 PURE module function getMeanDIM_WNO_D1_CK4(sample, dim)
result(mean)
1031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1032 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D1_CK4
1035 integer(IK) ,
intent(in) :: dim
1036 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1037 complex(TKG) :: mean
1042 PURE module function getMeanDIM_WNO_D1_CK3(sample, dim)
result(mean)
1043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1044 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D1_CK3
1047 integer(IK) ,
intent(in) :: dim
1048 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1049 complex(TKG) :: mean
1054 PURE module function getMeanDIM_WNO_D1_CK2(sample, dim)
result(mean)
1055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1056 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D1_CK2
1059 integer(IK) ,
intent(in) :: dim
1060 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1061 complex(TKG) :: mean
1066 PURE module function getMeanDIM_WNO_D1_CK1(sample, dim)
result(mean)
1067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1068 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D1_CK1
1071 integer(IK) ,
intent(in) :: dim
1072 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1073 complex(TKG) :: mean
1080 PURE module function getMeanDIM_WNO_D1_RK5(sample, dim)
result(mean)
1081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1082 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D1_RK5
1085 integer(IK) ,
intent(in) :: dim
1086 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1092 PURE module function getMeanDIM_WNO_D1_RK4(sample, dim)
result(mean)
1093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1094 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D1_RK4
1097 integer(IK) ,
intent(in) :: dim
1098 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1104 PURE module function getMeanDIM_WNO_D1_RK3(sample, dim)
result(mean)
1105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1106 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D1_RK3
1109 integer(IK) ,
intent(in) :: dim
1110 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1116 PURE module function getMeanDIM_WNO_D1_RK2(sample, dim)
result(mean)
1117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1118 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D1_RK2
1121 integer(IK) ,
intent(in) :: dim
1122 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1128 PURE module function getMeanDIM_WNO_D1_RK1(sample, dim)
result(mean)
1129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1130 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D1_RK1
1133 integer(IK) ,
intent(in) :: dim
1134 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1148 PURE module function getMeanDIM_WTI_D1_CK5(sample, dim, weight)
result(mean)
1149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1150 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D1_CK5
1153 integer(IK) ,
intent(in) :: dim
1154 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1155 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1156 complex(TKG) :: mean
1161 PURE module function getMeanDIM_WTI_D1_CK4(sample, dim, weight)
result(mean)
1162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1163 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D1_CK4
1166 integer(IK) ,
intent(in) :: dim
1167 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1168 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1169 complex(TKG) :: mean
1174 PURE module function getMeanDIM_WTI_D1_CK3(sample, dim, weight)
result(mean)
1175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1176 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D1_CK3
1179 integer(IK) ,
intent(in) :: dim
1180 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1181 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1182 complex(TKG) :: mean
1187 PURE module function getMeanDIM_WTI_D1_CK2(sample, dim, weight)
result(mean)
1188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1189 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D1_CK2
1192 integer(IK) ,
intent(in) :: dim
1193 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1194 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1195 complex(TKG) :: mean
1200 PURE module function getMeanDIM_WTI_D1_CK1(sample, dim, weight)
result(mean)
1201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1202 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D1_CK1
1205 integer(IK) ,
intent(in) :: dim
1206 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1207 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1208 complex(TKG) :: mean
1215 PURE module function getMeanDIM_WTI_D1_RK5(sample, dim, weight)
result(mean)
1216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1217 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D1_RK5
1220 integer(IK) ,
intent(in) :: dim
1221 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1222 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1228 PURE module function getMeanDIM_WTI_D1_RK4(sample, dim, weight)
result(mean)
1229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1230 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D1_RK4
1233 integer(IK) ,
intent(in) :: dim
1234 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1235 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1241 PURE module function getMeanDIM_WTI_D1_RK3(sample, dim, weight)
result(mean)
1242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1243 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D1_RK3
1246 integer(IK) ,
intent(in) :: dim
1247 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1248 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1254 PURE module function getMeanDIM_WTI_D1_RK2(sample, dim, weight)
result(mean)
1255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1256 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D1_RK2
1259 integer(IK) ,
intent(in) :: dim
1260 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1261 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1267 PURE module function getMeanDIM_WTI_D1_RK1(sample, dim, weight)
result(mean)
1268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1269 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D1_RK1
1272 integer(IK) ,
intent(in) :: dim
1273 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1274 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1288 PURE module function getMeanDIM_WTR_D1_CK5(sample, dim, weight)
result(mean)
1289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1290 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D1_CK5
1293 integer(IK) ,
intent(in) :: dim
1294 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1295 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1296 complex(TKG) :: mean
1301 PURE module function getMeanDIM_WTR_D1_CK4(sample, dim, weight)
result(mean)
1302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1303 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D1_CK4
1306 integer(IK) ,
intent(in) :: dim
1307 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1308 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1309 complex(TKG) :: mean
1314 PURE module function getMeanDIM_WTR_D1_CK3(sample, dim, weight)
result(mean)
1315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1316 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D1_CK3
1319 integer(IK) ,
intent(in) :: dim
1320 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1321 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1322 complex(TKG) :: mean
1327 PURE module function getMeanDIM_WTR_D1_CK2(sample, dim, weight)
result(mean)
1328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1329 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D1_CK2
1332 integer(IK) ,
intent(in) :: dim
1333 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1334 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1335 complex(TKG) :: mean
1340 PURE module function getMeanDIM_WTR_D1_CK1(sample, dim, weight)
result(mean)
1341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1342 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D1_CK1
1345 integer(IK) ,
intent(in) :: dim
1346 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
1347 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1348 complex(TKG) :: mean
1355 PURE module function getMeanDIM_WTR_D1_RK5(sample, dim, weight)
result(mean)
1356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1357 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D1_RK5
1360 integer(IK) ,
intent(in) :: dim
1361 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1362 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1368 PURE module function getMeanDIM_WTR_D1_RK4(sample, dim, weight)
result(mean)
1369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1370 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D1_RK4
1373 integer(IK) ,
intent(in) :: dim
1374 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1375 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1381 PURE module function getMeanDIM_WTR_D1_RK3(sample, dim, weight)
result(mean)
1382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1383 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D1_RK3
1386 integer(IK) ,
intent(in) :: dim
1387 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1388 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1394 PURE module function getMeanDIM_WTR_D1_RK2(sample, dim, weight)
result(mean)
1395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1396 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D1_RK2
1399 integer(IK) ,
intent(in) :: dim
1400 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1401 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1407 PURE module function getMeanDIM_WTR_D1_RK1(sample, dim, weight)
result(mean)
1408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1409 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D1_RK1
1412 integer(IK) ,
intent(in) :: dim
1413 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
1414 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1438 PURE module function getMeanDIM_WNO_D2_CK5(sample, dim)
result(mean)
1439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1440 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D2_CK5
1443 integer(IK) ,
intent(in) :: dim
1444 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1445 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1450 PURE module function getMeanDIM_WNO_D2_CK4(sample, dim)
result(mean)
1451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1452 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D2_CK4
1455 integer(IK) ,
intent(in) :: dim
1456 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1457 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1462 PURE module function getMeanDIM_WNO_D2_CK3(sample, dim)
result(mean)
1463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1464 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D2_CK3
1467 integer(IK) ,
intent(in) :: dim
1468 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1469 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1474 PURE module function getMeanDIM_WNO_D2_CK2(sample, dim)
result(mean)
1475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1476 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D2_CK2
1479 integer(IK) ,
intent(in) :: dim
1480 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1481 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1486 PURE module function getMeanDIM_WNO_D2_CK1(sample, dim)
result(mean)
1487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1488 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D2_CK1
1491 integer(IK) ,
intent(in) :: dim
1492 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1493 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1500 PURE module function getMeanDIM_WNO_D2_RK5(sample, dim)
result(mean)
1501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1502 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D2_RK5
1505 integer(IK) ,
intent(in) :: dim
1506 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1507 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1512 PURE module function getMeanDIM_WNO_D2_RK4(sample, dim)
result(mean)
1513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1514 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D2_RK4
1517 integer(IK) ,
intent(in) :: dim
1518 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1519 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1524 PURE module function getMeanDIM_WNO_D2_RK3(sample, dim)
result(mean)
1525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1526 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D2_RK3
1529 integer(IK) ,
intent(in) :: dim
1530 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1531 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1536 PURE module function getMeanDIM_WNO_D2_RK2(sample, dim)
result(mean)
1537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1538 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D2_RK2
1541 integer(IK) ,
intent(in) :: dim
1542 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1543 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1548 PURE module function getMeanDIM_WNO_D2_RK1(sample, dim)
result(mean)
1549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1550 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WNO_D2_RK1
1553 integer(IK) ,
intent(in) :: dim
1554 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1555 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1568 PURE module function getMeanDIM_WTI_D2_CK5(sample, dim, weight)
result(mean)
1569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1570 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D2_CK5
1573 integer(IK) ,
intent(in) :: dim
1574 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1575 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1576 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1581 PURE module function getMeanDIM_WTI_D2_CK4(sample, dim, weight)
result(mean)
1582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1583 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D2_CK4
1586 integer(IK) ,
intent(in) :: dim
1587 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1588 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1589 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1594 PURE module function getMeanDIM_WTI_D2_CK3(sample, dim, weight)
result(mean)
1595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1596 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D2_CK3
1599 integer(IK) ,
intent(in) :: dim
1600 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1601 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1602 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1607 PURE module function getMeanDIM_WTI_D2_CK2(sample, dim, weight)
result(mean)
1608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1609 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D2_CK2
1612 integer(IK) ,
intent(in) :: dim
1613 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1614 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1615 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1620 PURE module function getMeanDIM_WTI_D2_CK1(sample, dim, weight)
result(mean)
1621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1622 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D2_CK1
1625 integer(IK) ,
intent(in) :: dim
1626 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1627 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1628 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1635 PURE module function getMeanDIM_WTI_D2_RK5(sample, dim, weight)
result(mean)
1636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1637 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D2_RK5
1640 integer(IK) ,
intent(in) :: dim
1641 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1642 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1643 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1648 PURE module function getMeanDIM_WTI_D2_RK4(sample, dim, weight)
result(mean)
1649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1650 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D2_RK4
1653 integer(IK) ,
intent(in) :: dim
1654 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1655 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1656 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1661 PURE module function getMeanDIM_WTI_D2_RK3(sample, dim, weight)
result(mean)
1662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1663 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D2_RK3
1666 integer(IK) ,
intent(in) :: dim
1667 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1668 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1669 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1674 PURE module function getMeanDIM_WTI_D2_RK2(sample, dim, weight)
result(mean)
1675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1676 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D2_RK2
1679 integer(IK) ,
intent(in) :: dim
1680 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1681 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1682 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1687 PURE module function getMeanDIM_WTI_D2_RK1(sample, dim, weight)
result(mean)
1688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1689 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTI_D2_RK1
1692 integer(IK) ,
intent(in) :: dim
1693 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1694 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1695 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1708 PURE module function getMeanDIM_WTR_D2_CK5(sample, dim, weight)
result(mean)
1709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1710 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D2_CK5
1713 integer(IK) ,
intent(in) :: dim
1714 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1715 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1716 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1721 PURE module function getMeanDIM_WTR_D2_CK4(sample, dim, weight)
result(mean)
1722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1723 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D2_CK4
1726 integer(IK) ,
intent(in) :: dim
1727 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1728 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1729 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1734 PURE module function getMeanDIM_WTR_D2_CK3(sample, dim, weight)
result(mean)
1735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1736 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D2_CK3
1739 integer(IK) ,
intent(in) :: dim
1740 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1741 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1742 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1747 PURE module function getMeanDIM_WTR_D2_CK2(sample, dim, weight)
result(mean)
1748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1749 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D2_CK2
1752 integer(IK) ,
intent(in) :: dim
1753 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1754 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1755 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1760 PURE module function getMeanDIM_WTR_D2_CK1(sample, dim, weight)
result(mean)
1761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1762 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D2_CK1
1765 integer(IK) ,
intent(in) :: dim
1766 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1767 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1768 complex(TKG) :: mean(
size(sample,
3 - dim, IK))
1775 PURE module function getMeanDIM_WTR_D2_RK5(sample, dim, weight)
result(mean)
1776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1777 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D2_RK5
1780 integer(IK) ,
intent(in) :: dim
1781 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1782 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1783 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1788 PURE module function getMeanDIM_WTR_D2_RK4(sample, dim, weight)
result(mean)
1789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1790 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D2_RK4
1793 integer(IK) ,
intent(in) :: dim
1794 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1795 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1796 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1801 PURE module function getMeanDIM_WTR_D2_RK3(sample, dim, weight)
result(mean)
1802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1803 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D2_RK3
1806 integer(IK) ,
intent(in) :: dim
1807 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1808 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1809 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1814 PURE module function getMeanDIM_WTR_D2_RK2(sample, dim, weight)
result(mean)
1815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1816 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D2_RK2
1819 integer(IK) ,
intent(in) :: dim
1820 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1821 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1822 real(TKG) :: mean(
size(sample,
3 - dim, IK))
1827 PURE module function getMeanDIM_WTR_D2_RK1(sample, dim, weight)
result(mean)
1828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1829 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanDIM_WTR_D2_RK1
1832 integer(IK) ,
intent(in) :: dim
1833 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1834 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1835 real(TKG) :: mean(
size(sample,
3 - dim, IK))
2017 PURE module subroutine setMeanALL_WNO_XY_CK5(mean, x, y)
2018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2019 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_XY_CK5
2022 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2023 complex(TKG) ,
intent(out) :: mean(
2)
2028 PURE module subroutine setMeanALL_WNO_XY_CK4(mean, x, y)
2029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2030 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_XY_CK4
2033 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2034 complex(TKG) ,
intent(out) :: mean(
2)
2039 PURE module subroutine setMeanALL_WNO_XY_CK3(mean, x, y)
2040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2041 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_XY_CK3
2044 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2045 complex(TKG) ,
intent(out) :: mean(
2)
2050 PURE module subroutine setMeanALL_WNO_XY_CK2(mean, x, y)
2051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2052 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_XY_CK2
2055 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2056 complex(TKG) ,
intent(out) :: mean(
2)
2061 PURE module subroutine setMeanALL_WNO_XY_CK1(mean, x, y)
2062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2063 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_XY_CK1
2066 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2067 complex(TKG) ,
intent(out) :: mean(
2)
2074 PURE module subroutine setMeanALL_WNO_XY_RK5(mean, x, y)
2075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2076 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_XY_RK5
2079 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2080 real(TKG) ,
intent(out) :: mean(
2)
2085 PURE module subroutine setMeanALL_WNO_XY_RK4(mean, x, y)
2086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2087 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_XY_RK4
2090 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2091 real(TKG) ,
intent(out) :: mean(
2)
2096 PURE module subroutine setMeanALL_WNO_XY_RK3(mean, x, y)
2097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2098 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_XY_RK3
2101 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2102 real(TKG) ,
intent(out) :: mean(
2)
2107 PURE module subroutine setMeanALL_WNO_XY_RK2(mean, x, y)
2108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2109 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_XY_RK2
2112 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2113 real(TKG) ,
intent(out) :: mean(
2)
2118 PURE module subroutine setMeanALL_WNO_XY_RK1(mean, x, y)
2119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2120 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_XY_RK1
2123 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2124 real(TKG) ,
intent(out) :: mean(
2)
2137 PURE module subroutine setMeanALL_WTI_XY_CK5(mean, x, y, weight, weisum)
2138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2139 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_XY_CK5
2142 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2143 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2144 complex(TKG) ,
intent(out) :: mean(
2)
2145 integer(IK) ,
intent(out) :: weisum
2150 PURE module subroutine setMeanALL_WTI_XY_CK4(mean, x, y, weight, weisum)
2151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2152 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_XY_CK4
2155 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2156 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2157 complex(TKG) ,
intent(out) :: mean(
2)
2158 integer(IK) ,
intent(out) :: weisum
2163 PURE module subroutine setMeanALL_WTI_XY_CK3(mean, x, y, weight, weisum)
2164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2165 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_XY_CK3
2168 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2169 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2170 complex(TKG) ,
intent(out) :: mean(
2)
2171 integer(IK) ,
intent(out) :: weisum
2176 PURE module subroutine setMeanALL_WTI_XY_CK2(mean, x, y, weight, weisum)
2177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2178 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_XY_CK2
2181 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2182 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2183 complex(TKG) ,
intent(out) :: mean(
2)
2184 integer(IK) ,
intent(out) :: weisum
2189 PURE module subroutine setMeanALL_WTI_XY_CK1(mean, x, y, weight, weisum)
2190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2191 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_XY_CK1
2194 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2195 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2196 complex(TKG) ,
intent(out) :: mean(
2)
2197 integer(IK) ,
intent(out) :: weisum
2204 PURE module subroutine setMeanALL_WTI_XY_RK5(mean, x, y, weight, weisum)
2205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2206 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_XY_RK5
2209 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2210 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2211 real(TKG) ,
intent(out) :: mean(
2)
2212 integer(IK) ,
intent(out) :: weisum
2217 PURE module subroutine setMeanALL_WTI_XY_RK4(mean, x, y, weight, weisum)
2218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2219 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_XY_RK4
2222 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2223 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2224 real(TKG) ,
intent(out) :: mean(
2)
2225 integer(IK) ,
intent(out) :: weisum
2230 PURE module subroutine setMeanALL_WTI_XY_RK3(mean, x, y, weight, weisum)
2231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2232 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_XY_RK3
2235 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2236 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2237 real(TKG) ,
intent(out) :: mean(
2)
2238 integer(IK) ,
intent(out) :: weisum
2243 PURE module subroutine setMeanALL_WTI_XY_RK2(mean, x, y, weight, weisum)
2244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2245 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_XY_RK2
2248 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2249 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2250 real(TKG) ,
intent(out) :: mean(
2)
2251 integer(IK) ,
intent(out) :: weisum
2256 PURE module subroutine setMeanALL_WTI_XY_RK1(mean, x, y, weight, weisum)
2257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2258 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_XY_RK1
2261 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2262 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2263 real(TKG) ,
intent(out) :: mean(
2)
2264 integer(IK) ,
intent(out) :: weisum
2277 PURE module subroutine setMeanALL_WTR_XY_CK5(mean, x, y, weight, weisum)
2278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2279 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_XY_CK5
2282 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2283 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2284 complex(TKG) ,
intent(out) :: mean(
2)
2285 real(TKG) ,
intent(out) :: weisum
2290 PURE module subroutine setMeanALL_WTR_XY_CK4(mean, x, y, weight, weisum)
2291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2292 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_XY_CK4
2295 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2296 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2297 complex(TKG) ,
intent(out) :: mean(
2)
2298 real(TKG) ,
intent(out) :: weisum
2303 PURE module subroutine setMeanALL_WTR_XY_CK3(mean, x, y, weight, weisum)
2304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2305 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_XY_CK3
2308 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2309 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2310 complex(TKG) ,
intent(out) :: mean(
2)
2311 real(TKG) ,
intent(out) :: weisum
2316 PURE module subroutine setMeanALL_WTR_XY_CK2(mean, x, y, weight, weisum)
2317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2318 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_XY_CK2
2321 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2322 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2323 complex(TKG) ,
intent(out) :: mean(
2)
2324 real(TKG) ,
intent(out) :: weisum
2329 PURE module subroutine setMeanALL_WTR_XY_CK1(mean, x, y, weight, weisum)
2330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2331 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_XY_CK1
2334 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2335 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2336 complex(TKG) ,
intent(out) :: mean(
2)
2337 real(TKG) ,
intent(out) :: weisum
2344 PURE module subroutine setMeanALL_WTR_XY_RK5(mean, x, y, weight, weisum)
2345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2346 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_XY_RK5
2349 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2350 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2351 real(TKG) ,
intent(out) :: mean(
2)
2352 real(TKG) ,
intent(out) :: weisum
2357 PURE module subroutine setMeanALL_WTR_XY_RK4(mean, x, y, weight, weisum)
2358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2359 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_XY_RK4
2362 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2363 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2364 real(TKG) ,
intent(out) :: mean(
2)
2365 real(TKG) ,
intent(out) :: weisum
2370 PURE module subroutine setMeanALL_WTR_XY_RK3(mean, x, y, weight, weisum)
2371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2372 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_XY_RK3
2375 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2376 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2377 real(TKG) ,
intent(out) :: mean(
2)
2378 real(TKG) ,
intent(out) :: weisum
2383 PURE module subroutine setMeanALL_WTR_XY_RK2(mean, x, y, weight, weisum)
2384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2385 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_XY_RK2
2388 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2389 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2390 real(TKG) ,
intent(out) :: mean(
2)
2391 real(TKG) ,
intent(out) :: weisum
2396 PURE module subroutine setMeanALL_WTR_XY_RK1(mean, x, y, weight, weisum)
2397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2398 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_XY_RK1
2401 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
2402 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2403 real(TKG) ,
intent(out) :: mean(
2)
2404 real(TKG) ,
intent(out) :: weisum
2427 PURE module subroutine setMeanALL_WNO_D1_CK5(mean, sample)
2428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2429 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D1_CK5
2432 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2433 complex(TKG) ,
intent(out) :: mean
2438 PURE module subroutine setMeanALL_WNO_D1_CK4(mean, sample)
2439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2440 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D1_CK4
2443 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2444 complex(TKG) ,
intent(out) :: mean
2449 PURE module subroutine setMeanALL_WNO_D1_CK3(mean, sample)
2450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2451 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D1_CK3
2454 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2455 complex(TKG) ,
intent(out) :: mean
2460 PURE module subroutine setMeanALL_WNO_D1_CK2(mean, sample)
2461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2462 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D1_CK2
2465 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2466 complex(TKG) ,
intent(out) :: mean
2471 PURE module subroutine setMeanALL_WNO_D1_CK1(mean, sample)
2472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2473 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D1_CK1
2476 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2477 complex(TKG) ,
intent(out) :: mean
2484 PURE module subroutine setMeanALL_WNO_D1_RK5(mean, sample)
2485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2486 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D1_RK5
2489 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2490 real(TKG) ,
intent(out) :: mean
2495 PURE module subroutine setMeanALL_WNO_D1_RK4(mean, sample)
2496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2497 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D1_RK4
2500 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2501 real(TKG) ,
intent(out) :: mean
2506 PURE module subroutine setMeanALL_WNO_D1_RK3(mean, sample)
2507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2508 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D1_RK3
2511 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2512 real(TKG) ,
intent(out) :: mean
2517 PURE module subroutine setMeanALL_WNO_D1_RK2(mean, sample)
2518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2519 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D1_RK2
2522 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2523 real(TKG) ,
intent(out) :: mean
2528 PURE module subroutine setMeanALL_WNO_D1_RK1(mean, sample)
2529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2530 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D1_RK1
2533 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2534 real(TKG) ,
intent(out) :: mean
2547 PURE module subroutine setMeanALL_WTI_D1_CK5(mean, sample, weight, weisum)
2548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2549 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D1_CK5
2552 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2553 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2554 complex(TKG) ,
intent(out) :: mean
2555 integer(IK) ,
intent(out) :: weisum
2560 PURE module subroutine setMeanALL_WTI_D1_CK4(mean, sample, weight, weisum)
2561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2562 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D1_CK4
2565 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2566 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2567 complex(TKG) ,
intent(out) :: mean
2568 integer(IK) ,
intent(out) :: weisum
2573 PURE module subroutine setMeanALL_WTI_D1_CK3(mean, sample, weight, weisum)
2574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2575 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D1_CK3
2578 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2579 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2580 complex(TKG) ,
intent(out) :: mean
2581 integer(IK) ,
intent(out) :: weisum
2586 PURE module subroutine setMeanALL_WTI_D1_CK2(mean, sample, weight, weisum)
2587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2588 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D1_CK2
2591 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2592 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2593 complex(TKG) ,
intent(out) :: mean
2594 integer(IK) ,
intent(out) :: weisum
2599 PURE module subroutine setMeanALL_WTI_D1_CK1(mean, sample, weight, weisum)
2600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2601 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D1_CK1
2604 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2605 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2606 complex(TKG) ,
intent(out) :: mean
2607 integer(IK) ,
intent(out) :: weisum
2614 PURE module subroutine setMeanALL_WTI_D1_RK5(mean, sample, weight, weisum)
2615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2616 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D1_RK5
2619 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2620 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2621 real(TKG) ,
intent(out) :: mean
2622 integer(IK) ,
intent(out) :: weisum
2627 PURE module subroutine setMeanALL_WTI_D1_RK4(mean, sample, weight, weisum)
2628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2629 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D1_RK4
2632 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2633 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2634 real(TKG) ,
intent(out) :: mean
2635 integer(IK) ,
intent(out) :: weisum
2640 PURE module subroutine setMeanALL_WTI_D1_RK3(mean, sample, weight, weisum)
2641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2642 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D1_RK3
2645 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2646 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2647 real(TKG) ,
intent(out) :: mean
2648 integer(IK) ,
intent(out) :: weisum
2653 PURE module subroutine setMeanALL_WTI_D1_RK2(mean, sample, weight, weisum)
2654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2655 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D1_RK2
2658 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2659 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2660 real(TKG) ,
intent(out) :: mean
2661 integer(IK) ,
intent(out) :: weisum
2666 PURE module subroutine setMeanALL_WTI_D1_RK1(mean, sample, weight, weisum)
2667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2668 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D1_RK1
2671 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2672 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2673 real(TKG) ,
intent(out) :: mean
2674 integer(IK) ,
intent(out) :: weisum
2687 PURE module subroutine setMeanALL_WTR_D1_CK5(mean, sample, weight, weisum)
2688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2689 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D1_CK5
2692 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2693 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2694 complex(TKG) ,
intent(out) :: mean
2695 real(TKG) ,
intent(out) :: weisum
2700 PURE module subroutine setMeanALL_WTR_D1_CK4(mean, sample, weight, weisum)
2701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2702 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D1_CK4
2705 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2706 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2707 complex(TKG) ,
intent(out) :: mean
2708 real(TKG) ,
intent(out) :: weisum
2713 PURE module subroutine setMeanALL_WTR_D1_CK3(mean, sample, weight, weisum)
2714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2715 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D1_CK3
2718 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2719 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2720 complex(TKG) ,
intent(out) :: mean
2721 real(TKG) ,
intent(out) :: weisum
2726 PURE module subroutine setMeanALL_WTR_D1_CK2(mean, sample, weight, weisum)
2727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2728 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D1_CK2
2731 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2732 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2733 complex(TKG) ,
intent(out) :: mean
2734 real(TKG) ,
intent(out) :: weisum
2739 PURE module subroutine setMeanALL_WTR_D1_CK1(mean, sample, weight, weisum)
2740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2741 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D1_CK1
2744 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
2745 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2746 complex(TKG) ,
intent(out) :: mean
2747 real(TKG) ,
intent(out) :: weisum
2754 PURE module subroutine setMeanALL_WTR_D1_RK5(mean, sample, weight, weisum)
2755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2756 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D1_RK5
2759 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2760 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2761 real(TKG) ,
intent(out) :: mean
2762 real(TKG) ,
intent(out) :: weisum
2767 PURE module subroutine setMeanALL_WTR_D1_RK4(mean, sample, weight, weisum)
2768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2769 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D1_RK4
2772 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2773 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2774 real(TKG) ,
intent(out) :: mean
2775 real(TKG) ,
intent(out) :: weisum
2780 PURE module subroutine setMeanALL_WTR_D1_RK3(mean, sample, weight, weisum)
2781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2782 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D1_RK3
2785 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2786 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2787 real(TKG) ,
intent(out) :: mean
2788 real(TKG) ,
intent(out) :: weisum
2793 PURE module subroutine setMeanALL_WTR_D1_RK2(mean, sample, weight, weisum)
2794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2795 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D1_RK2
2798 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2799 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2800 real(TKG) ,
intent(out) :: mean
2801 real(TKG) ,
intent(out) :: weisum
2806 PURE module subroutine setMeanALL_WTR_D1_RK1(mean, sample, weight, weisum)
2807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2808 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D1_RK1
2811 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
2812 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2813 real(TKG) ,
intent(out) :: mean
2814 real(TKG) ,
intent(out) :: weisum
2837 PURE module subroutine setMeanALL_WNO_D2_CK5(mean, sample)
2838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2839 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D2_CK5
2842 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2843 complex(TKG) ,
intent(out) :: mean
2848 PURE module subroutine setMeanALL_WNO_D2_CK4(mean, sample)
2849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2850 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D2_CK4
2853 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2854 complex(TKG) ,
intent(out) :: mean
2859 PURE module subroutine setMeanALL_WNO_D2_CK3(mean, sample)
2860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2861 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D2_CK3
2864 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2865 complex(TKG) ,
intent(out) :: mean
2870 PURE module subroutine setMeanALL_WNO_D2_CK2(mean, sample)
2871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2872 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D2_CK2
2875 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2876 complex(TKG) ,
intent(out) :: mean
2881 PURE module subroutine setMeanALL_WNO_D2_CK1(mean, sample)
2882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2883 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D2_CK1
2886 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2887 complex(TKG) ,
intent(out) :: mean
2894 PURE module subroutine setMeanALL_WNO_D2_RK5(mean, sample)
2895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2896 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D2_RK5
2899 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2900 real(TKG) ,
intent(out) :: mean
2905 PURE module subroutine setMeanALL_WNO_D2_RK4(mean, sample)
2906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2907 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D2_RK4
2910 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2911 real(TKG) ,
intent(out) :: mean
2916 PURE module subroutine setMeanALL_WNO_D2_RK3(mean, sample)
2917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2918 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D2_RK3
2921 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2922 real(TKG) ,
intent(out) :: mean
2927 PURE module subroutine setMeanALL_WNO_D2_RK2(mean, sample)
2928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2929 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D2_RK2
2932 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2933 real(TKG) ,
intent(out) :: mean
2938 PURE module subroutine setMeanALL_WNO_D2_RK1(mean, sample)
2939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2940 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WNO_D2_RK1
2943 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2944 real(TKG) ,
intent(out) :: mean
2957 PURE module subroutine setMeanALL_WTI_D2_CK5(mean, sample, weight, weisum)
2958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2959 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D2_CK5
2962 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2963 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2964 complex(TKG) ,
intent(out) :: mean
2965 integer(IK) ,
intent(out) :: weisum
2970 PURE module subroutine setMeanALL_WTI_D2_CK4(mean, sample, weight, weisum)
2971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2972 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D2_CK4
2975 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2976 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2977 complex(TKG) ,
intent(out) :: mean
2978 integer(IK) ,
intent(out) :: weisum
2983 PURE module subroutine setMeanALL_WTI_D2_CK3(mean, sample, weight, weisum)
2984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2985 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D2_CK3
2988 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2989 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
2990 complex(TKG) ,
intent(out) :: mean
2991 integer(IK) ,
intent(out) :: weisum
2996 PURE module subroutine setMeanALL_WTI_D2_CK2(mean, sample, weight, weisum)
2997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2998 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D2_CK2
3001 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3002 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3003 complex(TKG) ,
intent(out) :: mean
3004 integer(IK) ,
intent(out) :: weisum
3009 PURE module subroutine setMeanALL_WTI_D2_CK1(mean, sample, weight, weisum)
3010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3011 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D2_CK1
3014 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3015 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3016 complex(TKG) ,
intent(out) :: mean
3017 integer(IK) ,
intent(out) :: weisum
3024 PURE module subroutine setMeanALL_WTI_D2_RK5(mean, sample, weight, weisum)
3025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3026 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D2_RK5
3029 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3030 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3031 real(TKG) ,
intent(out) :: mean
3032 integer(IK) ,
intent(out) :: weisum
3037 PURE module subroutine setMeanALL_WTI_D2_RK4(mean, sample, weight, weisum)
3038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3039 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D2_RK4
3042 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3043 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3044 real(TKG) ,
intent(out) :: mean
3045 integer(IK) ,
intent(out) :: weisum
3050 PURE module subroutine setMeanALL_WTI_D2_RK3(mean, sample, weight, weisum)
3051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3052 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D2_RK3
3055 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3056 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3057 real(TKG) ,
intent(out) :: mean
3058 integer(IK) ,
intent(out) :: weisum
3063 PURE module subroutine setMeanALL_WTI_D2_RK2(mean, sample, weight, weisum)
3064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3065 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D2_RK2
3068 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3069 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3070 real(TKG) ,
intent(out) :: mean
3071 integer(IK) ,
intent(out) :: weisum
3076 PURE module subroutine setMeanALL_WTI_D2_RK1(mean, sample, weight, weisum)
3077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3078 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTI_D2_RK1
3081 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3082 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3083 real(TKG) ,
intent(out) :: mean
3084 integer(IK) ,
intent(out) :: weisum
3097 PURE module subroutine setMeanALL_WTR_D2_CK5(mean, sample, weight, weisum)
3098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3099 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D2_CK5
3102 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3103 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3104 complex(TKG) ,
intent(out) :: mean
3105 real(TKG) ,
intent(out) :: weisum
3110 PURE module subroutine setMeanALL_WTR_D2_CK4(mean, sample, weight, weisum)
3111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3112 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D2_CK4
3115 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3116 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3117 complex(TKG) ,
intent(out) :: mean
3118 real(TKG) ,
intent(out) :: weisum
3123 PURE module subroutine setMeanALL_WTR_D2_CK3(mean, sample, weight, weisum)
3124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3125 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D2_CK3
3128 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3129 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3130 complex(TKG) ,
intent(out) :: mean
3131 real(TKG) ,
intent(out) :: weisum
3136 PURE module subroutine setMeanALL_WTR_D2_CK2(mean, sample, weight, weisum)
3137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3138 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D2_CK2
3141 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3142 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3143 complex(TKG) ,
intent(out) :: mean
3144 real(TKG) ,
intent(out) :: weisum
3149 PURE module subroutine setMeanALL_WTR_D2_CK1(mean, sample, weight, weisum)
3150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3151 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D2_CK1
3154 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3155 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3156 complex(TKG) ,
intent(out) :: mean
3157 real(TKG) ,
intent(out) :: weisum
3164 PURE module subroutine setMeanALL_WTR_D2_RK5(mean, sample, weight, weisum)
3165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3166 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D2_RK5
3169 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3170 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3171 real(TKG) ,
intent(out) :: mean
3172 real(TKG) ,
intent(out) :: weisum
3177 PURE module subroutine setMeanALL_WTR_D2_RK4(mean, sample, weight, weisum)
3178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3179 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D2_RK4
3182 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3183 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3184 real(TKG) ,
intent(out) :: mean
3185 real(TKG) ,
intent(out) :: weisum
3190 PURE module subroutine setMeanALL_WTR_D2_RK3(mean, sample, weight, weisum)
3191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3192 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D2_RK3
3195 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3196 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3197 real(TKG) ,
intent(out) :: mean
3198 real(TKG) ,
intent(out) :: weisum
3203 PURE module subroutine setMeanALL_WTR_D2_RK2(mean, sample, weight, weisum)
3204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3205 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D2_RK2
3208 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3209 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3210 real(TKG) ,
intent(out) :: mean
3211 real(TKG) ,
intent(out) :: weisum
3216 PURE module subroutine setMeanALL_WTR_D2_RK1(mean, sample, weight, weisum)
3217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3218 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanALL_WTR_D2_RK1
3221 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3222 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3223 real(TKG) ,
intent(out) :: mean
3224 real(TKG) ,
intent(out) :: weisum
3247 PURE module subroutine setMeanDIM_WNO_D1_CK5(mean, sample, dim)
3248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3249 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D1_CK5
3252 integer(IK) ,
intent(in) :: dim
3253 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3254 complex(TKG) ,
intent(out) :: mean
3259 PURE module subroutine setMeanDIM_WNO_D1_CK4(mean, sample, dim)
3260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3261 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D1_CK4
3264 integer(IK) ,
intent(in) :: dim
3265 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3266 complex(TKG) ,
intent(out) :: mean
3271 PURE module subroutine setMeanDIM_WNO_D1_CK3(mean, sample, dim)
3272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3273 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D1_CK3
3276 integer(IK) ,
intent(in) :: dim
3277 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3278 complex(TKG) ,
intent(out) :: mean
3283 PURE module subroutine setMeanDIM_WNO_D1_CK2(mean, sample, dim)
3284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3285 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D1_CK2
3288 integer(IK) ,
intent(in) :: dim
3289 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3290 complex(TKG) ,
intent(out) :: mean
3295 PURE module subroutine setMeanDIM_WNO_D1_CK1(mean, sample, dim)
3296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3297 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D1_CK1
3300 integer(IK) ,
intent(in) :: dim
3301 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3302 complex(TKG) ,
intent(out) :: mean
3309 PURE module subroutine setMeanDIM_WNO_D1_RK5(mean, sample, dim)
3310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3311 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D1_RK5
3314 integer(IK) ,
intent(in) :: dim
3315 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3316 real(TKG) ,
intent(out) :: mean
3321 PURE module subroutine setMeanDIM_WNO_D1_RK4(mean, sample, dim)
3322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3323 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D1_RK4
3326 integer(IK) ,
intent(in) :: dim
3327 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3328 real(TKG) ,
intent(out) :: mean
3333 PURE module subroutine setMeanDIM_WNO_D1_RK3(mean, sample, dim)
3334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3335 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D1_RK3
3338 integer(IK) ,
intent(in) :: dim
3339 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3340 real(TKG) ,
intent(out) :: mean
3345 PURE module subroutine setMeanDIM_WNO_D1_RK2(mean, sample, dim)
3346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3347 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D1_RK2
3350 integer(IK) ,
intent(in) :: dim
3351 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3352 real(TKG) ,
intent(out) :: mean
3357 PURE module subroutine setMeanDIM_WNO_D1_RK1(mean, sample, dim)
3358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3359 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D1_RK1
3362 integer(IK) ,
intent(in) :: dim
3363 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3364 real(TKG) ,
intent(out) :: mean
3377 PURE module subroutine setMeanDIM_WTI_D1_CK5(mean, sample, dim, weight, weisum)
3378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3379 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D1_CK5
3382 integer(IK) ,
intent(in) :: dim
3383 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3384 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3385 complex(TKG) ,
intent(out) :: mean
3386 integer(IK) ,
intent(out) :: weisum
3391 PURE module subroutine setMeanDIM_WTI_D1_CK4(mean, sample, dim, weight, weisum)
3392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3393 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D1_CK4
3396 integer(IK) ,
intent(in) :: dim
3397 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3398 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3399 complex(TKG) ,
intent(out) :: mean
3400 integer(IK) ,
intent(out) :: weisum
3405 PURE module subroutine setMeanDIM_WTI_D1_CK3(mean, sample, dim, weight, weisum)
3406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3407 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D1_CK3
3410 integer(IK) ,
intent(in) :: dim
3411 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3412 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3413 complex(TKG) ,
intent(out) :: mean
3414 integer(IK) ,
intent(out) :: weisum
3419 PURE module subroutine setMeanDIM_WTI_D1_CK2(mean, sample, dim, weight, weisum)
3420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3421 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D1_CK2
3424 integer(IK) ,
intent(in) :: dim
3425 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3426 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3427 complex(TKG) ,
intent(out) :: mean
3428 integer(IK) ,
intent(out) :: weisum
3433 PURE module subroutine setMeanDIM_WTI_D1_CK1(mean, sample, dim, weight, weisum)
3434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3435 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D1_CK1
3438 integer(IK) ,
intent(in) :: dim
3439 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3440 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3441 complex(TKG) ,
intent(out) :: mean
3442 integer(IK) ,
intent(out) :: weisum
3449 PURE module subroutine setMeanDIM_WTI_D1_RK5(mean, sample, dim, weight, weisum)
3450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3451 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D1_RK5
3454 integer(IK) ,
intent(in) :: dim
3455 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3456 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3457 real(TKG) ,
intent(out) :: mean
3458 integer(IK) ,
intent(out) :: weisum
3463 PURE module subroutine setMeanDIM_WTI_D1_RK4(mean, sample, dim, weight, weisum)
3464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3465 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D1_RK4
3468 integer(IK) ,
intent(in) :: dim
3469 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3470 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3471 real(TKG) ,
intent(out) :: mean
3472 integer(IK) ,
intent(out) :: weisum
3477 PURE module subroutine setMeanDIM_WTI_D1_RK3(mean, sample, dim, weight, weisum)
3478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3479 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D1_RK3
3482 integer(IK) ,
intent(in) :: dim
3483 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3484 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3485 real(TKG) ,
intent(out) :: mean
3486 integer(IK) ,
intent(out) :: weisum
3491 PURE module subroutine setMeanDIM_WTI_D1_RK2(mean, sample, dim, weight, weisum)
3492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3493 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D1_RK2
3496 integer(IK) ,
intent(in) :: dim
3497 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3498 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3499 real(TKG) ,
intent(out) :: mean
3500 integer(IK) ,
intent(out) :: weisum
3505 PURE module subroutine setMeanDIM_WTI_D1_RK1(mean, sample, dim, weight, weisum)
3506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3507 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D1_RK1
3510 integer(IK) ,
intent(in) :: dim
3511 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3512 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3513 real(TKG) ,
intent(out) :: mean
3514 integer(IK) ,
intent(out) :: weisum
3527 PURE module subroutine setMeanDIM_WTR_D1_CK5(mean, sample, dim, weight, weisum)
3528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3529 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D1_CK5
3532 integer(IK) ,
intent(in) :: dim
3533 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3534 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3535 complex(TKG) ,
intent(out) :: mean
3536 real(TKG) ,
intent(out) :: weisum
3541 PURE module subroutine setMeanDIM_WTR_D1_CK4(mean, sample, dim, weight, weisum)
3542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3543 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D1_CK4
3546 integer(IK) ,
intent(in) :: dim
3547 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3548 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3549 complex(TKG) ,
intent(out) :: mean
3550 real(TKG) ,
intent(out) :: weisum
3555 PURE module subroutine setMeanDIM_WTR_D1_CK3(mean, sample, dim, weight, weisum)
3556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3557 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D1_CK3
3560 integer(IK) ,
intent(in) :: dim
3561 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3562 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3563 complex(TKG) ,
intent(out) :: mean
3564 real(TKG) ,
intent(out) :: weisum
3569 PURE module subroutine setMeanDIM_WTR_D1_CK2(mean, sample, dim, weight, weisum)
3570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3571 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D1_CK2
3574 integer(IK) ,
intent(in) :: dim
3575 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3576 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3577 complex(TKG) ,
intent(out) :: mean
3578 real(TKG) ,
intent(out) :: weisum
3583 PURE module subroutine setMeanDIM_WTR_D1_CK1(mean, sample, dim, weight, weisum)
3584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3585 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D1_CK1
3588 integer(IK) ,
intent(in) :: dim
3589 complex(TKG) ,
intent(in) ,
contiguous :: sample(:)
3590 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3591 complex(TKG) ,
intent(out) :: mean
3592 real(TKG) ,
intent(out) :: weisum
3599 PURE module subroutine setMeanDIM_WTR_D1_RK5(mean, sample, dim, weight, weisum)
3600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3601 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D1_RK5
3604 integer(IK) ,
intent(in) :: dim
3605 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3606 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3607 real(TKG) ,
intent(out) :: mean
3608 real(TKG) ,
intent(out) :: weisum
3613 PURE module subroutine setMeanDIM_WTR_D1_RK4(mean, sample, dim, weight, weisum)
3614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3615 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D1_RK4
3618 integer(IK) ,
intent(in) :: dim
3619 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3620 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3621 real(TKG) ,
intent(out) :: mean
3622 real(TKG) ,
intent(out) :: weisum
3627 PURE module subroutine setMeanDIM_WTR_D1_RK3(mean, sample, dim, weight, weisum)
3628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3629 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D1_RK3
3632 integer(IK) ,
intent(in) :: dim
3633 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3634 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3635 real(TKG) ,
intent(out) :: mean
3636 real(TKG) ,
intent(out) :: weisum
3641 PURE module subroutine setMeanDIM_WTR_D1_RK2(mean, sample, dim, weight, weisum)
3642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3643 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D1_RK2
3646 integer(IK) ,
intent(in) :: dim
3647 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3648 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3649 real(TKG) ,
intent(out) :: mean
3650 real(TKG) ,
intent(out) :: weisum
3655 PURE module subroutine setMeanDIM_WTR_D1_RK1(mean, sample, dim, weight, weisum)
3656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3657 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D1_RK1
3660 integer(IK) ,
intent(in) :: dim
3661 real(TKG) ,
intent(in) ,
contiguous :: sample(:)
3662 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3663 real(TKG) ,
intent(out) :: mean
3664 real(TKG) ,
intent(out) :: weisum
3687 PURE module subroutine setMeanDIM_WNO_D2_CK5(mean, sample, dim)
3688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3689 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D2_CK5
3692 integer(IK) ,
intent(in) :: dim
3693 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3694 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
3699 PURE module subroutine setMeanDIM_WNO_D2_CK4(mean, sample, dim)
3700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3701 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D2_CK4
3704 integer(IK) ,
intent(in) :: dim
3705 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3706 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
3711 PURE module subroutine setMeanDIM_WNO_D2_CK3(mean, sample, dim)
3712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3713 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D2_CK3
3716 integer(IK) ,
intent(in) :: dim
3717 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3718 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
3723 PURE module subroutine setMeanDIM_WNO_D2_CK2(mean, sample, dim)
3724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3725 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D2_CK2
3728 integer(IK) ,
intent(in) :: dim
3729 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3730 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
3735 PURE module subroutine setMeanDIM_WNO_D2_CK1(mean, sample, dim)
3736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3737 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D2_CK1
3740 integer(IK) ,
intent(in) :: dim
3741 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3742 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
3749 PURE module subroutine setMeanDIM_WNO_D2_RK5(mean, sample, dim)
3750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3751 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D2_RK5
3754 integer(IK) ,
intent(in) :: dim
3755 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3756 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
3761 PURE module subroutine setMeanDIM_WNO_D2_RK4(mean, sample, dim)
3762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3763 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D2_RK4
3766 integer(IK) ,
intent(in) :: dim
3767 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3768 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
3773 PURE module subroutine setMeanDIM_WNO_D2_RK3(mean, sample, dim)
3774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3775 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D2_RK3
3778 integer(IK) ,
intent(in) :: dim
3779 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3780 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
3785 PURE module subroutine setMeanDIM_WNO_D2_RK2(mean, sample, dim)
3786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3787 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D2_RK2
3790 integer(IK) ,
intent(in) :: dim
3791 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3792 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
3797 PURE module subroutine setMeanDIM_WNO_D2_RK1(mean, sample, dim)
3798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3799 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WNO_D2_RK1
3802 integer(IK) ,
intent(in) :: dim
3803 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3804 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
3817 PURE module subroutine setMeanDIM_WTI_D2_CK5(mean, sample, dim, weight, weisum)
3818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3819 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D2_CK5
3822 integer(IK) ,
intent(in) :: dim
3823 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3824 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3825 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
3826 integer(IK) ,
intent(out) :: weisum
3831 PURE module subroutine setMeanDIM_WTI_D2_CK4(mean, sample, dim, weight, weisum)
3832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3833 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D2_CK4
3836 integer(IK) ,
intent(in) :: dim
3837 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3838 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3839 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
3840 integer(IK) ,
intent(out) :: weisum
3845 PURE module subroutine setMeanDIM_WTI_D2_CK3(mean, sample, dim, weight, weisum)
3846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3847 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D2_CK3
3850 integer(IK) ,
intent(in) :: dim
3851 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3852 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3853 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
3854 integer(IK) ,
intent(out) :: weisum
3859 PURE module subroutine setMeanDIM_WTI_D2_CK2(mean, sample, dim, weight, weisum)
3860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3861 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D2_CK2
3864 integer(IK) ,
intent(in) :: dim
3865 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3866 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3867 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
3868 integer(IK) ,
intent(out) :: weisum
3873 PURE module subroutine setMeanDIM_WTI_D2_CK1(mean, sample, dim, weight, weisum)
3874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3875 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D2_CK1
3878 integer(IK) ,
intent(in) :: dim
3879 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3880 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3881 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
3882 integer(IK) ,
intent(out) :: weisum
3889 PURE module subroutine setMeanDIM_WTI_D2_RK5(mean, sample, dim, weight, weisum)
3890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3891 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D2_RK5
3894 integer(IK) ,
intent(in) :: dim
3895 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3896 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3897 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
3898 integer(IK) ,
intent(out) :: weisum
3903 PURE module subroutine setMeanDIM_WTI_D2_RK4(mean, sample, dim, weight, weisum)
3904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3905 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D2_RK4
3908 integer(IK) ,
intent(in) :: dim
3909 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3910 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3911 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
3912 integer(IK) ,
intent(out) :: weisum
3917 PURE module subroutine setMeanDIM_WTI_D2_RK3(mean, sample, dim, weight, weisum)
3918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3919 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D2_RK3
3922 integer(IK) ,
intent(in) :: dim
3923 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3924 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3925 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
3926 integer(IK) ,
intent(out) :: weisum
3931 PURE module subroutine setMeanDIM_WTI_D2_RK2(mean, sample, dim, weight, weisum)
3932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3933 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D2_RK2
3936 integer(IK) ,
intent(in) :: dim
3937 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3938 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3939 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
3940 integer(IK) ,
intent(out) :: weisum
3945 PURE module subroutine setMeanDIM_WTI_D2_RK1(mean, sample, dim, weight, weisum)
3946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3947 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTI_D2_RK1
3950 integer(IK) ,
intent(in) :: dim
3951 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3952 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3953 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
3954 integer(IK) ,
intent(out) :: weisum
3967 PURE module subroutine setMeanDIM_WTR_D2_CK5(mean, sample, dim, weight, weisum)
3968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3969 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D2_CK5
3972 integer(IK) ,
intent(in) :: dim
3973 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3974 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3975 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
3976 real(TKG) ,
intent(out) :: weisum
3981 PURE module subroutine setMeanDIM_WTR_D2_CK4(mean, sample, dim, weight, weisum)
3982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3983 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D2_CK4
3986 integer(IK) ,
intent(in) :: dim
3987 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3988 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3989 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
3990 real(TKG) ,
intent(out) :: weisum
3995 PURE module subroutine setMeanDIM_WTR_D2_CK3(mean, sample, dim, weight, weisum)
3996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3997 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D2_CK3
4000 integer(IK) ,
intent(in) :: dim
4001 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4002 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4003 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
4004 real(TKG) ,
intent(out) :: weisum
4009 PURE module subroutine setMeanDIM_WTR_D2_CK2(mean, sample, dim, weight, weisum)
4010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4011 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D2_CK2
4014 integer(IK) ,
intent(in) :: dim
4015 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4016 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4017 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
4018 real(TKG) ,
intent(out) :: weisum
4023 PURE module subroutine setMeanDIM_WTR_D2_CK1(mean, sample, dim, weight, weisum)
4024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4025 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D2_CK1
4028 integer(IK) ,
intent(in) :: dim
4029 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4030 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4031 complex(TKG) ,
intent(out) ,
contiguous :: mean(:)
4032 real(TKG) ,
intent(out) :: weisum
4039 PURE module subroutine setMeanDIM_WTR_D2_RK5(mean, sample, dim, weight, weisum)
4040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4041 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D2_RK5
4044 integer(IK) ,
intent(in) :: dim
4045 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4046 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4047 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
4048 real(TKG) ,
intent(out) :: weisum
4053 PURE module subroutine setMeanDIM_WTR_D2_RK4(mean, sample, dim, weight, weisum)
4054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4055 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D2_RK4
4058 integer(IK) ,
intent(in) :: dim
4059 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4060 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4061 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
4062 real(TKG) ,
intent(out) :: weisum
4067 PURE module subroutine setMeanDIM_WTR_D2_RK3(mean, sample, dim, weight, weisum)
4068#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4069 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D2_RK3
4072 integer(IK) ,
intent(in) :: dim
4073 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4074 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4075 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
4076 real(TKG) ,
intent(out) :: weisum
4081 PURE module subroutine setMeanDIM_WTR_D2_RK2(mean, sample, dim, weight, weisum)
4082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4083 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D2_RK2
4086 integer(IK) ,
intent(in) :: dim
4087 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4088 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4089 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
4090 real(TKG) ,
intent(out) :: weisum
4095 PURE module subroutine setMeanDIM_WTR_D2_RK1(mean, sample, dim, weight, weisum)
4096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4097 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanDIM_WTR_D2_RK1
4100 integer(IK) ,
intent(in) :: dim
4101 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4102 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4103 real(TKG) ,
intent(out) ,
contiguous :: mean(:)
4104 real(TKG) ,
intent(out) :: weisum
4199 PURE module function getMeanMergedNew_D0_CK5(meanB, meanA, fracA)
result(meanMerged)
4200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4201 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D0_CK5
4204 real(TKG) ,
intent(in) :: fracA
4205 complex(TKG) ,
intent(in) :: meanA
4206 complex(TKG) ,
intent(in) :: meanB
4207 complex(TKG) :: meanMerged
4212 PURE module function getMeanMergedNew_D0_CK4(meanB, meanA, fracA)
result(meanMerged)
4213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4214 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D0_CK4
4217 real(TKG) ,
intent(in) :: fracA
4218 complex(TKG) ,
intent(in) :: meanA
4219 complex(TKG) ,
intent(in) :: meanB
4220 complex(TKG) :: meanMerged
4225 PURE module function getMeanMergedNew_D0_CK3(meanB, meanA, fracA)
result(meanMerged)
4226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4227 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D0_CK3
4230 real(TKG) ,
intent(in) :: fracA
4231 complex(TKG) ,
intent(in) :: meanA
4232 complex(TKG) ,
intent(in) :: meanB
4233 complex(TKG) :: meanMerged
4238 PURE module function getMeanMergedNew_D0_CK2(meanB, meanA, fracA)
result(meanMerged)
4239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4240 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D0_CK2
4243 real(TKG) ,
intent(in) :: fracA
4244 complex(TKG) ,
intent(in) :: meanA
4245 complex(TKG) ,
intent(in) :: meanB
4246 complex(TKG) :: meanMerged
4251 PURE module function getMeanMergedNew_D0_CK1(meanB, meanA, fracA)
result(meanMerged)
4252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4253 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D0_CK1
4256 real(TKG) ,
intent(in) :: fracA
4257 complex(TKG) ,
intent(in) :: meanA
4258 complex(TKG) ,
intent(in) :: meanB
4259 complex(TKG) :: meanMerged
4266 PURE module function getMeanMergedNew_D0_RK5(meanB, meanA, fracA)
result(meanMerged)
4267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4268 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D0_RK5
4271 real(TKG) ,
intent(in) :: fracA
4272 real(TKG) ,
intent(in) :: meanA
4273 real(TKG) ,
intent(in) :: meanB
4274 real(TKG) :: meanMerged
4279 PURE module function getMeanMergedNew_D0_RK4(meanB, meanA, fracA)
result(meanMerged)
4280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4281 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D0_RK4
4284 real(TKG) ,
intent(in) :: fracA
4285 real(TKG) ,
intent(in) :: meanA
4286 real(TKG) ,
intent(in) :: meanB
4287 real(TKG) :: meanMerged
4292 PURE module function getMeanMergedNew_D0_RK3(meanB, meanA, fracA)
result(meanMerged)
4293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4294 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D0_RK3
4297 real(TKG) ,
intent(in) :: fracA
4298 real(TKG) ,
intent(in) :: meanA
4299 real(TKG) ,
intent(in) :: meanB
4300 real(TKG) :: meanMerged
4305 PURE module function getMeanMergedNew_D0_RK2(meanB, meanA, fracA)
result(meanMerged)
4306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4307 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D0_RK2
4310 real(TKG) ,
intent(in) :: fracA
4311 real(TKG) ,
intent(in) :: meanA
4312 real(TKG) ,
intent(in) :: meanB
4313 real(TKG) :: meanMerged
4318 PURE module function getMeanMergedNew_D0_RK1(meanB, meanA, fracA)
result(meanMerged)
4319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4320 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D0_RK1
4323 real(TKG) ,
intent(in) :: fracA
4324 real(TKG) ,
intent(in) :: meanA
4325 real(TKG) ,
intent(in) :: meanB
4326 real(TKG) :: meanMerged
4341 PURE module function getMeanMergedNew_D1_RK5(meanB, meanA, fracA)
result(meanMerged)
4342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4343 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D1_RK5
4346 real(TKG) ,
intent(in) :: fracA
4347 real(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4348 real(TKG) :: meanMerged(
size(meanA,
1, IK))
4353 PURE module function getMeanMergedNew_D1_RK4(meanB, meanA, fracA)
result(meanMerged)
4354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4355 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D1_RK4
4358 real(TKG) ,
intent(in) :: fracA
4359 real(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4360 real(TKG) :: meanMerged(
size(meanA,
1, IK))
4365 PURE module function getMeanMergedNew_D1_RK3(meanB, meanA, fracA)
result(meanMerged)
4366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4367 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D1_RK3
4370 real(TKG) ,
intent(in) :: fracA
4371 real(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4372 real(TKG) :: meanMerged(
size(meanA,
1, IK))
4377 PURE module function getMeanMergedNew_D1_RK2(meanB, meanA, fracA)
result(meanMerged)
4378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4379 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D1_RK2
4382 real(TKG) ,
intent(in) :: fracA
4383 real(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4384 real(TKG) :: meanMerged(
size(meanA,
1, IK))
4389 PURE module function getMeanMergedNew_D1_RK1(meanB, meanA, fracA)
result(meanMerged)
4390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4391 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D1_RK1
4394 real(TKG) ,
intent(in) :: fracA
4395 real(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4396 real(TKG) :: meanMerged(
size(meanA,
1, IK))
4403 PURE module function getMeanMergedNew_D1_CK5(meanB, meanA, fracA)
result(meanMerged)
4404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4405 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D1_CK5
4408 real(TKG) ,
intent(in) :: fracA
4409 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4410 complex(TKG) :: meanMerged(
size(meanA,
1, IK))
4415 PURE module function getMeanMergedNew_D1_CK4(meanB, meanA, fracA)
result(meanMerged)
4416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4417 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D1_CK4
4420 real(TKG) ,
intent(in) :: fracA
4421 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4422 complex(TKG) :: meanMerged(
size(meanA,
1, IK))
4427 PURE module function getMeanMergedNew_D1_CK3(meanB, meanA, fracA)
result(meanMerged)
4428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4429 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D1_CK3
4432 real(TKG) ,
intent(in) :: fracA
4433 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4434 complex(TKG) :: meanMerged(
size(meanA,
1, IK))
4439 PURE module function getMeanMergedNew_D1_CK2(meanB, meanA, fracA)
result(meanMerged)
4440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4441 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D1_CK2
4444 real(TKG) ,
intent(in) :: fracA
4445 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4446 complex(TKG) :: meanMerged(
size(meanA,
1, IK))
4451 PURE module function getMeanMergedNew_D1_CK1(meanB, meanA, fracA)
result(meanMerged)
4452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4453 !DEC$ ATTRIBUTES DLLEXPORT :: getMeanMergedNew_D1_CK1
4456 real(TKG) ,
intent(in) :: fracA
4457 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4458 complex(TKG) :: meanMerged(
size(meanA,
1, IK))
4553 PURE module subroutine setMeanMergedNew_D0_CK5(meanMerged, meanB, meanA, fracA)
4554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4555 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D0_CK5
4558 real(TKG) ,
intent(in) :: fracA
4559 complex(TKG) ,
intent(in) :: meanA
4560 complex(TKG) ,
intent(in) :: meanB
4561 complex(TKG) ,
intent(out) :: meanMerged
4566 PURE module subroutine setMeanMergedNew_D0_CK4(meanMerged, meanB, meanA, fracA)
4567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4568 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D0_CK4
4571 real(TKG) ,
intent(in) :: fracA
4572 complex(TKG) ,
intent(in) :: meanA
4573 complex(TKG) ,
intent(in) :: meanB
4574 complex(TKG) ,
intent(out) :: meanMerged
4579 PURE module subroutine setMeanMergedNew_D0_CK3(meanMerged, meanB, meanA, fracA)
4580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4581 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D0_CK3
4584 real(TKG) ,
intent(in) :: fracA
4585 complex(TKG) ,
intent(in) :: meanA
4586 complex(TKG) ,
intent(in) :: meanB
4587 complex(TKG) ,
intent(out) :: meanMerged
4592 PURE module subroutine setMeanMergedNew_D0_CK2(meanMerged, meanB, meanA, fracA)
4593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4594 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D0_CK2
4597 real(TKG) ,
intent(in) :: fracA
4598 complex(TKG) ,
intent(in) :: meanA
4599 complex(TKG) ,
intent(in) :: meanB
4600 complex(TKG) ,
intent(out) :: meanMerged
4605 PURE module subroutine setMeanMergedNew_D0_CK1(meanMerged, meanB, meanA, fracA)
4606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4607 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D0_CK1
4610 real(TKG) ,
intent(in) :: fracA
4611 complex(TKG) ,
intent(in) :: meanA
4612 complex(TKG) ,
intent(in) :: meanB
4613 complex(TKG) ,
intent(out) :: meanMerged
4620 PURE module subroutine setMeanMergedNew_D0_RK5(meanMerged, meanB, meanA, fracA)
4621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4622 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D0_RK5
4625 real(TKG) ,
intent(in) :: fracA
4626 real(TKG) ,
intent(in) :: meanA
4627 real(TKG) ,
intent(in) :: meanB
4628 real(TKG) ,
intent(out) :: meanMerged
4633 PURE module subroutine setMeanMergedNew_D0_RK4(meanMerged, meanB, meanA, fracA)
4634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4635 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D0_RK4
4638 real(TKG) ,
intent(in) :: fracA
4639 real(TKG) ,
intent(in) :: meanA
4640 real(TKG) ,
intent(in) :: meanB
4641 real(TKG) ,
intent(out) :: meanMerged
4646 PURE module subroutine setMeanMergedNew_D0_RK3(meanMerged, meanB, meanA, fracA)
4647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4648 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D0_RK3
4651 real(TKG) ,
intent(in) :: fracA
4652 real(TKG) ,
intent(in) :: meanA
4653 real(TKG) ,
intent(in) :: meanB
4654 real(TKG) ,
intent(out) :: meanMerged
4659 PURE module subroutine setMeanMergedNew_D0_RK2(meanMerged, meanB, meanA, fracA)
4660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4661 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D0_RK2
4664 real(TKG) ,
intent(in) :: fracA
4665 real(TKG) ,
intent(in) :: meanA
4666 real(TKG) ,
intent(in) :: meanB
4667 real(TKG) ,
intent(out) :: meanMerged
4672 PURE module subroutine setMeanMergedNew_D0_RK1(meanMerged, meanB, meanA, fracA)
4673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4674 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D0_RK1
4677 real(TKG) ,
intent(in) :: fracA
4678 real(TKG) ,
intent(in) :: meanA
4679 real(TKG) ,
intent(in) :: meanB
4680 real(TKG) ,
intent(out) :: meanMerged
4695 PURE module subroutine setMeanMergedNew_D1_CK5(meanMerged, meanB, meanA, fracA)
4696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4697 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D1_CK5
4700 real(TKG) ,
intent(in) :: fracA
4701 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4702 complex(TKG) ,
intent(out) ,
contiguous :: meanMerged(:)
4707 PURE module subroutine setMeanMergedNew_D1_CK4(meanMerged, meanB, meanA, fracA)
4708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4709 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D1_CK4
4712 real(TKG) ,
intent(in) :: fracA
4713 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4714 complex(TKG) ,
intent(out) ,
contiguous :: meanMerged(:)
4719 PURE module subroutine setMeanMergedNew_D1_CK3(meanMerged, meanB, meanA, fracA)
4720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4721 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D1_CK3
4724 real(TKG) ,
intent(in) :: fracA
4725 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4726 complex(TKG) ,
intent(out) ,
contiguous :: meanMerged(:)
4731 PURE module subroutine setMeanMergedNew_D1_CK2(meanMerged, meanB, meanA, fracA)
4732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4733 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D1_CK2
4736 real(TKG) ,
intent(in) :: fracA
4737 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4738 complex(TKG) ,
intent(out) ,
contiguous :: meanMerged(:)
4743 PURE module subroutine setMeanMergedNew_D1_CK1(meanMerged, meanB, meanA, fracA)
4744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4745 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D1_CK1
4748 real(TKG) ,
intent(in) :: fracA
4749 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4750 complex(TKG) ,
intent(out) ,
contiguous :: meanMerged(:)
4757 PURE module subroutine setMeanMergedNew_D1_RK5(meanMerged, meanB, meanA, fracA)
4758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4759 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D1_RK5
4762 real(TKG) ,
intent(in) :: fracA
4763 real(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4764 real(TKG) ,
intent(out) ,
contiguous :: meanMerged(:)
4769 PURE module subroutine setMeanMergedNew_D1_RK4(meanMerged, meanB, meanA, fracA)
4770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4771 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D1_RK4
4774 real(TKG) ,
intent(in) :: fracA
4775 real(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4776 real(TKG) ,
intent(out) ,
contiguous :: meanMerged(:)
4781 PURE module subroutine setMeanMergedNew_D1_RK3(meanMerged, meanB, meanA, fracA)
4782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4783 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D1_RK3
4786 real(TKG) ,
intent(in) :: fracA
4787 real(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4788 real(TKG) ,
intent(out) ,
contiguous :: meanMerged(:)
4793 PURE module subroutine setMeanMergedNew_D1_RK2(meanMerged, meanB, meanA, fracA)
4794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4795 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D1_RK2
4798 real(TKG) ,
intent(in) :: fracA
4799 real(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4800 real(TKG) ,
intent(out) ,
contiguous :: meanMerged(:)
4805 PURE module subroutine setMeanMergedNew_D1_RK1(meanMerged, meanB, meanA, fracA)
4806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4807 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedNew_D1_RK1
4810 real(TKG) ,
intent(in) :: fracA
4811 real(TKG) ,
intent(in) ,
contiguous :: meanA(:), meanB(:)
4812 real(TKG) ,
intent(out) ,
contiguous :: meanMerged(:)
4827 PURE module subroutine setMeanMergedOld_D0_CK5(meanB, meanA, fracA)
4828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4829 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D0_CK5
4832 real(TKG) ,
intent(in) :: fracA
4833 complex(TKG) ,
intent(in) :: meanA
4834 complex(TKG) ,
intent(inout) :: meanB
4839 PURE module subroutine setMeanMergedOld_D0_CK4(meanB, meanA, fracA)
4840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4841 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D0_CK4
4844 real(TKG) ,
intent(in) :: fracA
4845 complex(TKG) ,
intent(in) :: meanA
4846 complex(TKG) ,
intent(inout) :: meanB
4851 PURE module subroutine setMeanMergedOld_D0_CK3(meanB, meanA, fracA)
4852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4853 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D0_CK3
4856 real(TKG) ,
intent(in) :: fracA
4857 complex(TKG) ,
intent(in) :: meanA
4858 complex(TKG) ,
intent(inout) :: meanB
4863 PURE module subroutine setMeanMergedOld_D0_CK2(meanB, meanA, fracA)
4864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4865 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D0_CK2
4868 real(TKG) ,
intent(in) :: fracA
4869 complex(TKG) ,
intent(in) :: meanA
4870 complex(TKG) ,
intent(inout) :: meanB
4875 PURE module subroutine setMeanMergedOld_D0_CK1(meanB, meanA, fracA)
4876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4877 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D0_CK1
4880 real(TKG) ,
intent(in) :: fracA
4881 complex(TKG) ,
intent(in) :: meanA
4882 complex(TKG) ,
intent(inout) :: meanB
4889 PURE module subroutine setMeanMergedOld_D0_RK5(meanB, meanA, fracA)
4890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4891 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D0_RK5
4894 real(TKG) ,
intent(in) :: fracA
4895 real(TKG) ,
intent(in) :: meanA
4896 real(TKG) ,
intent(inout) :: meanB
4901 PURE module subroutine setMeanMergedOld_D0_RK4(meanB, meanA, fracA)
4902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4903 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D0_RK4
4906 real(TKG) ,
intent(in) :: fracA
4907 real(TKG) ,
intent(in) :: meanA
4908 real(TKG) ,
intent(inout) :: meanB
4913 PURE module subroutine setMeanMergedOld_D0_RK3(meanB, meanA, fracA)
4914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4915 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D0_RK3
4918 real(TKG) ,
intent(in) :: fracA
4919 real(TKG) ,
intent(in) :: meanA
4920 real(TKG) ,
intent(inout) :: meanB
4925 PURE module subroutine setMeanMergedOld_D0_RK2(meanB, meanA, fracA)
4926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4927 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D0_RK2
4930 real(TKG) ,
intent(in) :: fracA
4931 real(TKG) ,
intent(in) :: meanA
4932 real(TKG) ,
intent(inout) :: meanB
4937 PURE module subroutine setMeanMergedOld_D0_RK1(meanB, meanA, fracA)
4938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4939 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D0_RK1
4942 real(TKG) ,
intent(in) :: fracA
4943 real(TKG) ,
intent(in) :: meanA
4944 real(TKG) ,
intent(inout) :: meanB
4959 PURE module subroutine setMeanMergedOld_D1_CK5(meanB, meanA, fracA)
4960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4961 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D1_CK5
4964 real(TKG) ,
intent(in) :: fracA
4965 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:)
4966 complex(TKG) ,
intent(inout) ,
contiguous :: meanB(:)
4971 PURE module subroutine setMeanMergedOld_D1_CK4(meanB, meanA, fracA)
4972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4973 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D1_CK4
4976 real(TKG) ,
intent(in) :: fracA
4977 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:)
4978 complex(TKG) ,
intent(inout) ,
contiguous :: meanB(:)
4983 PURE module subroutine setMeanMergedOld_D1_CK3(meanB, meanA, fracA)
4984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4985 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D1_CK3
4988 real(TKG) ,
intent(in) :: fracA
4989 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:)
4990 complex(TKG) ,
intent(inout) ,
contiguous :: meanB(:)
4995 PURE module subroutine setMeanMergedOld_D1_CK2(meanB, meanA, fracA)
4996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4997 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D1_CK2
5000 real(TKG) ,
intent(in) :: fracA
5001 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:)
5002 complex(TKG) ,
intent(inout) ,
contiguous :: meanB(:)
5007 PURE module subroutine setMeanMergedOld_D1_CK1(meanB, meanA, fracA)
5008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5009 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D1_CK1
5012 real(TKG) ,
intent(in) :: fracA
5013 complex(TKG) ,
intent(in) ,
contiguous :: meanA(:)
5014 complex(TKG) ,
intent(inout) ,
contiguous :: meanB(:)
5021 PURE module subroutine setMeanMergedOld_D1_RK5(meanB, meanA, fracA)
5022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5023 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D1_RK5
5026 real(TKG) ,
intent(in) :: fracA
5027 real(TKG) ,
intent(in) ,
contiguous :: meanA(:)
5028 real(TKG) ,
intent(inout) ,
contiguous :: meanB(:)
5033 PURE module subroutine setMeanMergedOld_D1_RK4(meanB, meanA, fracA)
5034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5035 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D1_RK4
5038 real(TKG) ,
intent(in) :: fracA
5039 real(TKG) ,
intent(in) ,
contiguous :: meanA(:)
5040 real(TKG) ,
intent(inout) ,
contiguous :: meanB(:)
5045 PURE module subroutine setMeanMergedOld_D1_RK3(meanB, meanA, fracA)
5046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5047 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D1_RK3
5050 real(TKG) ,
intent(in) :: fracA
5051 real(TKG) ,
intent(in) ,
contiguous :: meanA(:)
5052 real(TKG) ,
intent(inout) ,
contiguous :: meanB(:)
5057 PURE module subroutine setMeanMergedOld_D1_RK2(meanB, meanA, fracA)
5058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5059 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D1_RK2
5062 real(TKG) ,
intent(in) :: fracA
5063 real(TKG) ,
intent(in) ,
contiguous :: meanA(:)
5064 real(TKG) ,
intent(inout) ,
contiguous :: meanB(:)
5069 PURE module subroutine setMeanMergedOld_D1_RK1(meanB, meanA, fracA)
5070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5071 !DEC$ ATTRIBUTES DLLEXPORT :: setMeanMergedOld_D1_RK1
5074 real(TKG) ,
intent(in) :: fracA
5075 real(TKG) ,
intent(in) ,
contiguous :: meanA(:)
5076 real(TKG) ,
intent(inout) ,
contiguous :: meanB(:)
Generate and return the (weighted) merged mean of a sample resulting from the merger of two separate ...
Generate and return the (weighted) mean of an input sample of nsam observations with ndim = 1 or 2 at...
Return the (weighted) merged mean of a sample resulting from the merger of two separate (weighted) sa...
Return the (weighted) mean of a pair of time series or of an input sample of nsam observations with n...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
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 classes and procedures for computing the first moment (i.e., the statistical mea...
character(*, SK), parameter MODULE_NAME