221 PURE module function getDisKolmSSD_WDD_D1_RK5(sample1, sample2)
result(disKolm)
222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
223 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WDD_D1_RK5
226 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
232 PURE module function getDisKolmSSD_WDD_D1_RK4(sample1, sample2)
result(disKolm)
233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
234 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WDD_D1_RK4
237 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
243 PURE module function getDisKolmSSD_WDD_D1_RK3(sample1, sample2)
result(disKolm)
244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
245 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WDD_D1_RK3
248 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
254 PURE module function getDisKolmSSD_WDD_D1_RK2(sample1, sample2)
result(disKolm)
255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
256 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WDD_D1_RK2
259 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
265 PURE module function getDisKolmSSD_WDD_D1_RK1(sample1, sample2)
result(disKolm)
266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
267 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WDD_D1_RK1
270 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
284 PURE module function getDisKolmSSA_WDD_D1_RK5(sample1, sample2, order)
result(disKolm)
285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
286 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WDD_D1_RK5
289 type(ascending_type),
intent(in) :: order
290 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
296 PURE module function getDisKolmSSA_WDD_D1_RK4(sample1, sample2, order)
result(disKolm)
297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
298 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WDD_D1_RK4
301 type(ascending_type),
intent(in) :: order
302 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
308 PURE module function getDisKolmSSA_WDD_D1_RK3(sample1, sample2, order)
result(disKolm)
309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
310 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WDD_D1_RK3
313 type(ascending_type),
intent(in) :: order
314 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
320 PURE module function getDisKolmSSA_WDD_D1_RK2(sample1, sample2, order)
result(disKolm)
321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
322 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WDD_D1_RK2
325 type(ascending_type),
intent(in) :: order
326 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
332 PURE module function getDisKolmSSA_WDD_D1_RK1(sample1, sample2, order)
result(disKolm)
333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
334 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WDD_D1_RK1
337 type(ascending_type),
intent(in) :: order
338 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
362 PURE module function getDisKolmSSD_WID_D1_RK5(sample1, weight1, weisum1, sample2)
result(disKolm)
363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
364 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WID_D1_RK5
367 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
368 integer(IK) ,
intent(in),
contiguous :: weight1(:)
369 integer(IK) ,
intent(in) :: weisum1
375 PURE module function getDisKolmSSD_WID_D1_RK4(sample1, weight1, weisum1, sample2)
result(disKolm)
376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
377 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WID_D1_RK4
380 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
381 integer(IK) ,
intent(in),
contiguous :: weight1(:)
382 integer(IK) ,
intent(in) :: weisum1
388 PURE module function getDisKolmSSD_WID_D1_RK3(sample1, weight1, weisum1, sample2)
result(disKolm)
389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
390 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WID_D1_RK3
393 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
394 integer(IK) ,
intent(in),
contiguous :: weight1(:)
395 integer(IK) ,
intent(in) :: weisum1
401 PURE module function getDisKolmSSD_WID_D1_RK2(sample1, weight1, weisum1, sample2)
result(disKolm)
402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
403 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WID_D1_RK2
406 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
407 integer(IK) ,
intent(in),
contiguous :: weight1(:)
408 integer(IK) ,
intent(in) :: weisum1
414 PURE module function getDisKolmSSD_WID_D1_RK1(sample1, weight1, weisum1, sample2)
result(disKolm)
415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
416 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WID_D1_RK1
419 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
420 integer(IK) ,
intent(in),
contiguous :: weight1(:)
421 integer(IK) ,
intent(in) :: weisum1
435 PURE module function getDisKolmSSA_WID_D1_RK5(sample1, weight1, weisum1, sample2, order)
result(disKolm)
436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
437 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WID_D1_RK5
440 type(ascending_type),
intent(in) :: order
441 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
442 integer(IK) ,
intent(in),
contiguous :: weight1(:)
443 integer(IK) ,
intent(in) :: weisum1
449 PURE module function getDisKolmSSA_WID_D1_RK4(sample1, weight1, weisum1, sample2, order)
result(disKolm)
450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
451 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WID_D1_RK4
454 type(ascending_type),
intent(in) :: order
455 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
456 integer(IK) ,
intent(in),
contiguous :: weight1(:)
457 integer(IK) ,
intent(in) :: weisum1
463 PURE module function getDisKolmSSA_WID_D1_RK3(sample1, weight1, weisum1, sample2, order)
result(disKolm)
464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
465 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WID_D1_RK3
468 type(ascending_type),
intent(in) :: order
469 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
470 integer(IK) ,
intent(in),
contiguous :: weight1(:)
471 integer(IK) ,
intent(in) :: weisum1
477 PURE module function getDisKolmSSA_WID_D1_RK2(sample1, weight1, weisum1, sample2, order)
result(disKolm)
478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
479 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WID_D1_RK2
482 type(ascending_type),
intent(in) :: order
483 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
484 integer(IK) ,
intent(in),
contiguous :: weight1(:)
485 integer(IK) ,
intent(in) :: weisum1
491 PURE module function getDisKolmSSA_WID_D1_RK1(sample1, weight1, weisum1, sample2, order)
result(disKolm)
492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
493 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WID_D1_RK1
496 type(ascending_type),
intent(in) :: order
497 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
498 integer(IK) ,
intent(in),
contiguous :: weight1(:)
499 integer(IK) ,
intent(in) :: weisum1
523 PURE module function getDisKolmSSD_WRD_D1_RK5(sample1, weight1, weisum1, sample2)
result(disKolm)
524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
525 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WRD_D1_RK5
528 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
529 real(RKG) ,
intent(in),
contiguous :: weight1(:)
530 real(RKG) ,
intent(in) :: weisum1
536 PURE module function getDisKolmSSD_WRD_D1_RK4(sample1, weight1, weisum1, sample2)
result(disKolm)
537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
538 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WRD_D1_RK4
541 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
542 real(RKG) ,
intent(in),
contiguous :: weight1(:)
543 real(RKG) ,
intent(in) :: weisum1
549 PURE module function getDisKolmSSD_WRD_D1_RK3(sample1, weight1, weisum1, sample2)
result(disKolm)
550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
551 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WRD_D1_RK3
554 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
555 real(RKG) ,
intent(in),
contiguous :: weight1(:)
556 real(RKG) ,
intent(in) :: weisum1
562 PURE module function getDisKolmSSD_WRD_D1_RK2(sample1, weight1, weisum1, sample2)
result(disKolm)
563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
564 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WRD_D1_RK2
567 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
568 real(RKG) ,
intent(in),
contiguous :: weight1(:)
569 real(RKG) ,
intent(in) :: weisum1
575 PURE module function getDisKolmSSD_WRD_D1_RK1(sample1, weight1, weisum1, sample2)
result(disKolm)
576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
577 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WRD_D1_RK1
580 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
581 real(RKG) ,
intent(in),
contiguous :: weight1(:)
582 real(RKG) ,
intent(in) :: weisum1
596 PURE module function getDisKolmSSA_WRD_D1_RK5(sample1, weight1, weisum1, sample2, order)
result(disKolm)
597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
598 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WRD_D1_RK5
601 type(ascending_type),
intent(in) :: order
602 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
603 real(RKG) ,
intent(in),
contiguous :: weight1(:)
604 real(RKG) ,
intent(in) :: weisum1
610 PURE module function getDisKolmSSA_WRD_D1_RK4(sample1, weight1, weisum1, sample2, order)
result(disKolm)
611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
612 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WRD_D1_RK4
615 type(ascending_type),
intent(in) :: order
616 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
617 real(RKG) ,
intent(in),
contiguous :: weight1(:)
618 real(RKG) ,
intent(in) :: weisum1
624 PURE module function getDisKolmSSA_WRD_D1_RK3(sample1, weight1, weisum1, sample2, order)
result(disKolm)
625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
626 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WRD_D1_RK3
629 type(ascending_type),
intent(in) :: order
630 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
631 real(RKG) ,
intent(in),
contiguous :: weight1(:)
632 real(RKG) ,
intent(in) :: weisum1
638 PURE module function getDisKolmSSA_WRD_D1_RK2(sample1, weight1, weisum1, sample2, order)
result(disKolm)
639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
640 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WRD_D1_RK2
643 type(ascending_type),
intent(in) :: order
644 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
645 real(RKG) ,
intent(in),
contiguous :: weight1(:)
646 real(RKG) ,
intent(in) :: weisum1
652 PURE module function getDisKolmSSA_WRD_D1_RK1(sample1, weight1, weisum1, sample2, order)
result(disKolm)
653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
654 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WRD_D1_RK1
657 type(ascending_type),
intent(in) :: order
658 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
659 real(RKG) ,
intent(in),
contiguous :: weight1(:)
660 real(RKG) ,
intent(in) :: weisum1
684 PURE module function getDisKolmSSD_WII_D1_RK5(sample1, weight1, weisum1, sample2, weight2, weisum2)
result(disKolm)
685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
686 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WII_D1_RK5
689 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
690 integer(IK) ,
intent(in),
contiguous :: weight1(:), weight2(:)
691 integer(IK) ,
intent(in) :: weisum1, weisum2
697 PURE module function getDisKolmSSD_WII_D1_RK4(sample1, weight1, weisum1, sample2, weight2, weisum2)
result(disKolm)
698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
699 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WII_D1_RK4
702 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
703 integer(IK) ,
intent(in),
contiguous :: weight1(:), weight2(:)
704 integer(IK) ,
intent(in) :: weisum1, weisum2
710 PURE module function getDisKolmSSD_WII_D1_RK3(sample1, weight1, weisum1, sample2, weight2, weisum2)
result(disKolm)
711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
712 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WII_D1_RK3
715 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
716 integer(IK) ,
intent(in),
contiguous :: weight1(:), weight2(:)
717 integer(IK) ,
intent(in) :: weisum1, weisum2
723 PURE module function getDisKolmSSD_WII_D1_RK2(sample1, weight1, weisum1, sample2, weight2, weisum2)
result(disKolm)
724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
725 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WII_D1_RK2
728 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
729 integer(IK) ,
intent(in),
contiguous :: weight1(:), weight2(:)
730 integer(IK) ,
intent(in) :: weisum1, weisum2
736 PURE module function getDisKolmSSD_WII_D1_RK1(sample1, weight1, weisum1, sample2, weight2, weisum2)
result(disKolm)
737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
738 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WII_D1_RK1
741 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
742 integer(IK) ,
intent(in),
contiguous :: weight1(:), weight2(:)
743 integer(IK) ,
intent(in) :: weisum1, weisum2
757 PURE module function getDisKolmSSA_WII_D1_RK5(sample1, weight1, weisum1, sample2, weight2, weisum2, order)
result(disKolm)
758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
759 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WII_D1_RK5
762 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
763 integer(IK) ,
intent(in),
contiguous :: weight1(:), weight2(:)
764 integer(IK) ,
intent(in) :: weisum1, weisum2
765 type(ascending_type),
intent(in) :: order
771 PURE module function getDisKolmSSA_WII_D1_RK4(sample1, weight1, weisum1, sample2, weight2, weisum2, order)
result(disKolm)
772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
773 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WII_D1_RK4
776 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
777 integer(IK) ,
intent(in),
contiguous :: weight1(:), weight2(:)
778 integer(IK) ,
intent(in) :: weisum1, weisum2
779 type(ascending_type),
intent(in) :: order
785 PURE module function getDisKolmSSA_WII_D1_RK3(sample1, weight1, weisum1, sample2, weight2, weisum2, order)
result(disKolm)
786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
787 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WII_D1_RK3
790 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
791 integer(IK) ,
intent(in),
contiguous :: weight1(:), weight2(:)
792 integer(IK) ,
intent(in) :: weisum1, weisum2
793 type(ascending_type),
intent(in) :: order
799 PURE module function getDisKolmSSA_WII_D1_RK2(sample1, weight1, weisum1, sample2, weight2, weisum2, order)
result(disKolm)
800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
801 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WII_D1_RK2
804 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
805 integer(IK) ,
intent(in),
contiguous :: weight1(:), weight2(:)
806 integer(IK) ,
intent(in) :: weisum1, weisum2
807 type(ascending_type),
intent(in) :: order
813 PURE module function getDisKolmSSA_WII_D1_RK1(sample1, weight1, weisum1, sample2, weight2, weisum2, order)
result(disKolm)
814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
815 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WII_D1_RK1
818 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
819 integer(IK) ,
intent(in),
contiguous :: weight1(:), weight2(:)
820 integer(IK) ,
intent(in) :: weisum1, weisum2
821 type(ascending_type),
intent(in) :: order
845 PURE module function getDisKolmSSD_WRR_D1_RK5(sample1, weight1, weisum1, sample2, weight2, weisum2)
result(disKolm)
846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
847 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WRR_D1_RK5
850 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
851 real(RKG) ,
intent(in),
contiguous :: weight1(:), weight2(:)
852 real(RKG) ,
intent(in) :: weisum1, weisum2
858 PURE module function getDisKolmSSD_WRR_D1_RK4(sample1, weight1, weisum1, sample2, weight2, weisum2)
result(disKolm)
859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
860 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WRR_D1_RK4
863 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
864 real(RKG) ,
intent(in),
contiguous :: weight1(:), weight2(:)
865 real(RKG) ,
intent(in) :: weisum1, weisum2
871 PURE module function getDisKolmSSD_WRR_D1_RK3(sample1, weight1, weisum1, sample2, weight2, weisum2)
result(disKolm)
872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
873 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WRR_D1_RK3
876 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
877 real(RKG) ,
intent(in),
contiguous :: weight1(:), weight2(:)
878 real(RKG) ,
intent(in) :: weisum1, weisum2
884 PURE module function getDisKolmSSD_WRR_D1_RK2(sample1, weight1, weisum1, sample2, weight2, weisum2)
result(disKolm)
885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
886 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WRR_D1_RK2
889 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
890 real(RKG) ,
intent(in),
contiguous :: weight1(:), weight2(:)
891 real(RKG) ,
intent(in) :: weisum1, weisum2
897 PURE module function getDisKolmSSD_WRR_D1_RK1(sample1, weight1, weisum1, sample2, weight2, weisum2)
result(disKolm)
898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
899 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSD_WRR_D1_RK1
902 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
903 real(RKG) ,
intent(in),
contiguous :: weight1(:), weight2(:)
904 real(RKG) ,
intent(in) :: weisum1, weisum2
918 PURE module function getDisKolmSSA_WRR_D1_RK5(sample1, weight1, weisum1, sample2, weight2, weisum2, order)
result(disKolm)
919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
920 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WRR_D1_RK5
923 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
924 real(RKG) ,
intent(in),
contiguous :: weight1(:), weight2(:)
925 real(RKG) ,
intent(in) :: weisum1, weisum2
926 type(ascending_type),
intent(in) :: order
932 PURE module function getDisKolmSSA_WRR_D1_RK4(sample1, weight1, weisum1, sample2, weight2, weisum2, order)
result(disKolm)
933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
934 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WRR_D1_RK4
937 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
938 real(RKG) ,
intent(in),
contiguous :: weight1(:), weight2(:)
939 real(RKG) ,
intent(in) :: weisum1, weisum2
940 type(ascending_type),
intent(in) :: order
946 PURE module function getDisKolmSSA_WRR_D1_RK3(sample1, weight1, weisum1, sample2, weight2, weisum2, order)
result(disKolm)
947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
948 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WRR_D1_RK3
951 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
952 real(RKG) ,
intent(in),
contiguous :: weight1(:), weight2(:)
953 real(RKG) ,
intent(in) :: weisum1, weisum2
954 type(ascending_type),
intent(in) :: order
960 PURE module function getDisKolmSSA_WRR_D1_RK2(sample1, weight1, weisum1, sample2, weight2, weisum2, order)
result(disKolm)
961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
962 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WRR_D1_RK2
965 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
966 real(RKG) ,
intent(in),
contiguous :: weight1(:), weight2(:)
967 real(RKG) ,
intent(in) :: weisum1, weisum2
968 type(ascending_type),
intent(in) :: order
974 PURE module function getDisKolmSSA_WRR_D1_RK1(sample1, weight1, weisum1, sample2, weight2, weisum2, order)
result(disKolm)
975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
976 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSSA_WRR_D1_RK1
979 real(RKG) ,
intent(in),
contiguous :: sample1(:), sample2(:)
980 real(RKG) ,
intent(in),
contiguous :: weight1(:), weight2(:)
981 real(RKG) ,
intent(in) :: weisum1, weisum2
982 type(ascending_type),
intent(in) :: order
1006 PURE module function getDisKolmSXD_WDD_D1_RK5(sample1)
result(disKolm)
1007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1008 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WDD_D1_RK5
1011 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1012 real(RKG) :: disKolm
1017 PURE module function getDisKolmSXD_WDD_D1_RK4(sample1)
result(disKolm)
1018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1019 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WDD_D1_RK4
1022 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1023 real(RKG) :: disKolm
1028 PURE module function getDisKolmSXD_WDD_D1_RK3(sample1)
result(disKolm)
1029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1030 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WDD_D1_RK3
1033 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1034 real(RKG) :: disKolm
1039 PURE module function getDisKolmSXD_WDD_D1_RK2(sample1)
result(disKolm)
1040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1041 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WDD_D1_RK2
1044 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1045 real(RKG) :: disKolm
1050 PURE module function getDisKolmSXD_WDD_D1_RK1(sample1)
result(disKolm)
1051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1052 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WDD_D1_RK1
1055 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1056 real(RKG) :: disKolm
1069 PURE module function getDisKolmSXA_WDD_D1_RK5(sample1, order)
result(disKolm)
1070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1071 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WDD_D1_RK5
1074 type(ascending_type),
intent(in) :: order
1075 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1076 real(RKG) :: disKolm
1081 PURE module function getDisKolmSXA_WDD_D1_RK4(sample1, order)
result(disKolm)
1082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1083 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WDD_D1_RK4
1086 type(ascending_type),
intent(in) :: order
1087 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1088 real(RKG) :: disKolm
1093 PURE module function getDisKolmSXA_WDD_D1_RK3(sample1, order)
result(disKolm)
1094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1095 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WDD_D1_RK3
1098 type(ascending_type),
intent(in) :: order
1099 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1100 real(RKG) :: disKolm
1105 PURE module function getDisKolmSXA_WDD_D1_RK2(sample1, order)
result(disKolm)
1106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1107 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WDD_D1_RK2
1110 type(ascending_type),
intent(in) :: order
1111 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1112 real(RKG) :: disKolm
1117 PURE module function getDisKolmSXA_WDD_D1_RK1(sample1, order)
result(disKolm)
1118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1119 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WDD_D1_RK1
1122 type(ascending_type),
intent(in) :: order
1123 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1124 real(RKG) :: disKolm
1147 PURE module function getDisKolmSXD_WID_D1_RK5(sample1, weight1, weisum1)
result(disKolm)
1148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1149 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WID_D1_RK5
1152 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1153 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1154 integer(IK) ,
intent(in) :: weisum1
1155 real(RKG) :: disKolm
1160 PURE module function getDisKolmSXD_WID_D1_RK4(sample1, weight1, weisum1)
result(disKolm)
1161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1162 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WID_D1_RK4
1165 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1166 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1167 integer(IK) ,
intent(in) :: weisum1
1168 real(RKG) :: disKolm
1173 PURE module function getDisKolmSXD_WID_D1_RK3(sample1, weight1, weisum1)
result(disKolm)
1174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1175 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WID_D1_RK3
1178 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1179 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1180 integer(IK) ,
intent(in) :: weisum1
1181 real(RKG) :: disKolm
1186 PURE module function getDisKolmSXD_WID_D1_RK2(sample1, weight1, weisum1)
result(disKolm)
1187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1188 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WID_D1_RK2
1191 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1192 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1193 integer(IK) ,
intent(in) :: weisum1
1194 real(RKG) :: disKolm
1199 PURE module function getDisKolmSXD_WID_D1_RK1(sample1, weight1, weisum1)
result(disKolm)
1200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1201 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WID_D1_RK1
1204 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1205 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1206 integer(IK) ,
intent(in) :: weisum1
1207 real(RKG) :: disKolm
1220 PURE module function getDisKolmSXA_WID_D1_RK5(sample1, weight1, weisum1, order)
result(disKolm)
1221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1222 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WID_D1_RK5
1225 type(ascending_type),
intent(in) :: order
1226 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1227 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1228 integer(IK) ,
intent(in) :: weisum1
1229 real(RKG) :: disKolm
1234 PURE module function getDisKolmSXA_WID_D1_RK4(sample1, weight1, weisum1, order)
result(disKolm)
1235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1236 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WID_D1_RK4
1239 type(ascending_type),
intent(in) :: order
1240 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1241 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1242 integer(IK) ,
intent(in) :: weisum1
1243 real(RKG) :: disKolm
1248 PURE module function getDisKolmSXA_WID_D1_RK3(sample1, weight1, weisum1, order)
result(disKolm)
1249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1250 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WID_D1_RK3
1253 type(ascending_type),
intent(in) :: order
1254 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1255 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1256 integer(IK) ,
intent(in) :: weisum1
1257 real(RKG) :: disKolm
1262 PURE module function getDisKolmSXA_WID_D1_RK2(sample1, weight1, weisum1, order)
result(disKolm)
1263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1264 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WID_D1_RK2
1267 type(ascending_type),
intent(in) :: order
1268 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1269 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1270 integer(IK) ,
intent(in) :: weisum1
1271 real(RKG) :: disKolm
1276 PURE module function getDisKolmSXA_WID_D1_RK1(sample1, weight1, weisum1, order)
result(disKolm)
1277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1278 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WID_D1_RK1
1281 type(ascending_type),
intent(in) :: order
1282 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1283 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1284 integer(IK) ,
intent(in) :: weisum1
1285 real(RKG) :: disKolm
1308 PURE module function getDisKolmSXD_WRD_D1_RK5(sample1, weight1, weisum1)
result(disKolm)
1309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1310 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WRD_D1_RK5
1313 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1314 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1315 real(RKG) ,
intent(in) :: weisum1
1316 real(RKG) :: disKolm
1321 PURE module function getDisKolmSXD_WRD_D1_RK4(sample1, weight1, weisum1)
result(disKolm)
1322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1323 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WRD_D1_RK4
1326 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1327 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1328 real(RKG) ,
intent(in) :: weisum1
1329 real(RKG) :: disKolm
1334 PURE module function getDisKolmSXD_WRD_D1_RK3(sample1, weight1, weisum1)
result(disKolm)
1335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1336 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WRD_D1_RK3
1339 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1340 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1341 real(RKG) ,
intent(in) :: weisum1
1342 real(RKG) :: disKolm
1347 PURE module function getDisKolmSXD_WRD_D1_RK2(sample1, weight1, weisum1)
result(disKolm)
1348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1349 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WRD_D1_RK2
1352 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1353 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1354 real(RKG) ,
intent(in) :: weisum1
1355 real(RKG) :: disKolm
1360 PURE module function getDisKolmSXD_WRD_D1_RK1(sample1, weight1, weisum1)
result(disKolm)
1361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1362 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXD_WRD_D1_RK1
1365 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1366 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1367 real(RKG) ,
intent(in) :: weisum1
1368 real(RKG) :: disKolm
1381 PURE module function getDisKolmSXA_WRD_D1_RK5(sample1, weight1, weisum1, order)
result(disKolm)
1382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1383 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WRD_D1_RK5
1386 type(ascending_type),
intent(in) :: order
1387 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1388 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1389 real(RKG) ,
intent(in) :: weisum1
1390 real(RKG) :: disKolm
1395 PURE module function getDisKolmSXA_WRD_D1_RK4(sample1, weight1, weisum1, order)
result(disKolm)
1396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1397 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WRD_D1_RK4
1400 type(ascending_type),
intent(in) :: order
1401 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1402 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1403 real(RKG) ,
intent(in) :: weisum1
1404 real(RKG) :: disKolm
1409 PURE module function getDisKolmSXA_WRD_D1_RK3(sample1, weight1, weisum1, order)
result(disKolm)
1410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1411 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WRD_D1_RK3
1414 type(ascending_type),
intent(in) :: order
1415 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1416 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1417 real(RKG) ,
intent(in) :: weisum1
1418 real(RKG) :: disKolm
1423 PURE module function getDisKolmSXA_WRD_D1_RK2(sample1, weight1, weisum1, order)
result(disKolm)
1424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1425 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WRD_D1_RK2
1428 type(ascending_type),
intent(in) :: order
1429 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1430 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1431 real(RKG) ,
intent(in) :: weisum1
1432 real(RKG) :: disKolm
1437 PURE module function getDisKolmSXA_WRD_D1_RK1(sample1, weight1, weisum1, order)
result(disKolm)
1438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1439 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSXA_WRD_D1_RK1
1442 type(ascending_type),
intent(in) :: order
1443 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1444 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1445 real(RKG) ,
intent(in) :: weisum1
1446 real(RKG) :: disKolm
1469 module function getDisKolmSCD_WDD_D1_RK5(sample1, getCDF)
result(disKolm)
1470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1471 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WDD_D1_RK5
1474 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1475 real(RKG) :: disKolm
1476 procedure(
real(RKG)) :: getCDF
1481 module function getDisKolmSCD_WDD_D1_RK4(sample1, getCDF)
result(disKolm)
1482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1483 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WDD_D1_RK4
1486 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1487 real(RKG) :: disKolm
1488 procedure(
real(RKG)) :: getCDF
1493 module function getDisKolmSCD_WDD_D1_RK3(sample1, getCDF)
result(disKolm)
1494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1495 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WDD_D1_RK3
1498 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1499 real(RKG) :: disKolm
1500 procedure(
real(RKG)) :: getCDF
1505 module function getDisKolmSCD_WDD_D1_RK2(sample1, getCDF)
result(disKolm)
1506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1507 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WDD_D1_RK2
1510 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1511 real(RKG) :: disKolm
1512 procedure(
real(RKG)) :: getCDF
1517 module function getDisKolmSCD_WDD_D1_RK1(sample1, getCDF)
result(disKolm)
1518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1519 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WDD_D1_RK1
1522 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1523 real(RKG) :: disKolm
1524 procedure(
real(RKG)) :: getCDF
1537 module function getDisKolmSCA_WDD_D1_RK5(sample1, getCDF, order)
result(disKolm)
1538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1539 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WDD_D1_RK5
1542 type(ascending_type),
intent(in) :: order
1543 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1544 real(RKG) :: disKolm
1545 procedure(
real(RKG)) :: getCDF
1550 module function getDisKolmSCA_WDD_D1_RK4(sample1, getCDF, order)
result(disKolm)
1551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1552 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WDD_D1_RK4
1555 type(ascending_type),
intent(in) :: order
1556 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1557 real(RKG) :: disKolm
1558 procedure(
real(RKG)) :: getCDF
1563 module function getDisKolmSCA_WDD_D1_RK3(sample1, getCDF, order)
result(disKolm)
1564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1565 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WDD_D1_RK3
1568 type(ascending_type),
intent(in) :: order
1569 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1570 real(RKG) :: disKolm
1571 procedure(
real(RKG)) :: getCDF
1576 module function getDisKolmSCA_WDD_D1_RK2(sample1, getCDF, order)
result(disKolm)
1577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1578 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WDD_D1_RK2
1581 type(ascending_type),
intent(in) :: order
1582 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1583 real(RKG) :: disKolm
1584 procedure(
real(RKG)) :: getCDF
1589 module function getDisKolmSCA_WDD_D1_RK1(sample1, getCDF, order)
result(disKolm)
1590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1591 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WDD_D1_RK1
1594 type(ascending_type),
intent(in) :: order
1595 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1596 real(RKG) :: disKolm
1597 procedure(
real(RKG)) :: getCDF
1620 module function getDisKolmSCD_WID_D1_RK5(sample1, weight1, weisum1, getCDF)
result(disKolm)
1621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1622 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WID_D1_RK5
1625 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1626 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1627 integer(IK) ,
intent(in) :: weisum1
1628 real(RKG) :: disKolm
1629 procedure(
real(RKG)) :: getCDF
1634 module function getDisKolmSCD_WID_D1_RK4(sample1, weight1, weisum1, getCDF)
result(disKolm)
1635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1636 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WID_D1_RK4
1639 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1640 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1641 integer(IK) ,
intent(in) :: weisum1
1642 real(RKG) :: disKolm
1643 procedure(
real(RKG)) :: getCDF
1648 module function getDisKolmSCD_WID_D1_RK3(sample1, weight1, weisum1, getCDF)
result(disKolm)
1649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1650 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WID_D1_RK3
1653 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1654 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1655 integer(IK) ,
intent(in) :: weisum1
1656 real(RKG) :: disKolm
1657 procedure(
real(RKG)) :: getCDF
1662 module function getDisKolmSCD_WID_D1_RK2(sample1, weight1, weisum1, getCDF)
result(disKolm)
1663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1664 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WID_D1_RK2
1667 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1668 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1669 integer(IK) ,
intent(in) :: weisum1
1670 real(RKG) :: disKolm
1671 procedure(
real(RKG)) :: getCDF
1676 module function getDisKolmSCD_WID_D1_RK1(sample1, weight1, weisum1, getCDF)
result(disKolm)
1677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1678 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WID_D1_RK1
1681 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1682 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1683 integer(IK) ,
intent(in) :: weisum1
1684 real(RKG) :: disKolm
1685 procedure(
real(RKG)) :: getCDF
1698 module function getDisKolmSCA_WID_D1_RK5(sample1, weight1, weisum1, getCDF, order)
result(disKolm)
1699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1700 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WID_D1_RK5
1703 type(ascending_type),
intent(in) :: order
1704 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1705 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1706 integer(IK) ,
intent(in) :: weisum1
1707 real(RKG) :: disKolm
1708 procedure(
real(RKG)) :: getCDF
1713 module function getDisKolmSCA_WID_D1_RK4(sample1, weight1, weisum1, getCDF, order)
result(disKolm)
1714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1715 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WID_D1_RK4
1718 type(ascending_type),
intent(in) :: order
1719 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1720 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1721 integer(IK) ,
intent(in) :: weisum1
1722 real(RKG) :: disKolm
1723 procedure(
real(RKG)) :: getCDF
1728 module function getDisKolmSCA_WID_D1_RK3(sample1, weight1, weisum1, getCDF, order)
result(disKolm)
1729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1730 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WID_D1_RK3
1733 type(ascending_type),
intent(in) :: order
1734 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1735 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1736 integer(IK) ,
intent(in) :: weisum1
1737 real(RKG) :: disKolm
1738 procedure(
real(RKG)) :: getCDF
1743 module function getDisKolmSCA_WID_D1_RK2(sample1, weight1, weisum1, getCDF, order)
result(disKolm)
1744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1745 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WID_D1_RK2
1748 type(ascending_type),
intent(in) :: order
1749 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1750 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1751 integer(IK) ,
intent(in) :: weisum1
1752 real(RKG) :: disKolm
1753 procedure(
real(RKG)) :: getCDF
1758 module function getDisKolmSCA_WID_D1_RK1(sample1, weight1, weisum1, getCDF, order)
result(disKolm)
1759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1760 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WID_D1_RK1
1763 type(ascending_type),
intent(in) :: order
1764 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1765 integer(IK) ,
intent(in),
contiguous :: weight1(:)
1766 integer(IK) ,
intent(in) :: weisum1
1767 real(RKG) :: disKolm
1768 procedure(
real(RKG)) :: getCDF
1791 module function getDisKolmSCD_WRD_D1_RK5(sample1, weight1, weisum1, getCDF)
result(disKolm)
1792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1793 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WRD_D1_RK5
1796 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1797 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1798 real(RKG) ,
intent(in) :: weisum1
1799 real(RKG) :: disKolm
1800 procedure(
real(RKG)) :: getCDF
1805 module function getDisKolmSCD_WRD_D1_RK4(sample1, weight1, weisum1, getCDF)
result(disKolm)
1806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1807 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WRD_D1_RK4
1810 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1811 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1812 real(RKG) ,
intent(in) :: weisum1
1813 real(RKG) :: disKolm
1814 procedure(
real(RKG)) :: getCDF
1819 module function getDisKolmSCD_WRD_D1_RK3(sample1, weight1, weisum1, getCDF)
result(disKolm)
1820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1821 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WRD_D1_RK3
1824 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1825 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1826 real(RKG) ,
intent(in) :: weisum1
1827 real(RKG) :: disKolm
1828 procedure(
real(RKG)) :: getCDF
1833 module function getDisKolmSCD_WRD_D1_RK2(sample1, weight1, weisum1, getCDF)
result(disKolm)
1834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1835 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WRD_D1_RK2
1838 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1839 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1840 real(RKG) ,
intent(in) :: weisum1
1841 real(RKG) :: disKolm
1842 procedure(
real(RKG)) :: getCDF
1847 module function getDisKolmSCD_WRD_D1_RK1(sample1, weight1, weisum1, getCDF)
result(disKolm)
1848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1849 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCD_WRD_D1_RK1
1852 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1853 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1854 real(RKG) ,
intent(in) :: weisum1
1855 real(RKG) :: disKolm
1856 procedure(
real(RKG)) :: getCDF
1869 module function getDisKolmSCA_WRD_D1_RK5(sample1, weight1, weisum1, getCDF, order)
result(disKolm)
1870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1871 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WRD_D1_RK5
1874 type(ascending_type),
intent(in) :: order
1875 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1876 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1877 real(RKG) ,
intent(in) :: weisum1
1878 real(RKG) :: disKolm
1879 procedure(
real(RKG)) :: getCDF
1884 module function getDisKolmSCA_WRD_D1_RK4(sample1, weight1, weisum1, getCDF, order)
result(disKolm)
1885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1886 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WRD_D1_RK4
1889 type(ascending_type),
intent(in) :: order
1890 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1891 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1892 real(RKG) ,
intent(in) :: weisum1
1893 real(RKG) :: disKolm
1894 procedure(
real(RKG)) :: getCDF
1899 module function getDisKolmSCA_WRD_D1_RK3(sample1, weight1, weisum1, getCDF, order)
result(disKolm)
1900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1901 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WRD_D1_RK3
1904 type(ascending_type),
intent(in) :: order
1905 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1906 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1907 real(RKG) ,
intent(in) :: weisum1
1908 real(RKG) :: disKolm
1909 procedure(
real(RKG)) :: getCDF
1914 module function getDisKolmSCA_WRD_D1_RK2(sample1, weight1, weisum1, getCDF, order)
result(disKolm)
1915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1916 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WRD_D1_RK2
1919 type(ascending_type),
intent(in) :: order
1920 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1921 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1922 real(RKG) ,
intent(in) :: weisum1
1923 real(RKG) :: disKolm
1924 procedure(
real(RKG)) :: getCDF
1929 module function getDisKolmSCA_WRD_D1_RK1(sample1, weight1, weisum1, getCDF, order)
result(disKolm)
1930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1931 !DEC$ ATTRIBUTES DLLEXPORT :: getDisKolmSCA_WRD_D1_RK1
1934 type(ascending_type),
intent(in) :: order
1935 real(RKG) ,
intent(in),
contiguous :: sample1(:)
1936 real(RKG) ,
intent(in),
contiguous :: weight1(:)
1937 real(RKG) ,
intent(in) :: weisum1
1938 real(RKG) :: disKolm
1939 procedure(
real(RKG)) :: getCDF
2127 PURE module subroutine setDisKolmSSD_WDD_D1_RK5(disKolm, sample1, sample2)
2128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2129 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WDD_D1_RK5
2132 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2133 real(RKG) ,
intent(out) :: disKolm
2138 PURE module subroutine setDisKolmSSD_WDD_D1_RK4(disKolm, sample1, sample2)
2139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2140 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WDD_D1_RK4
2143 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2144 real(RKG) ,
intent(out) :: disKolm
2149 PURE module subroutine setDisKolmSSD_WDD_D1_RK3(disKolm, sample1, sample2)
2150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2151 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WDD_D1_RK3
2154 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2155 real(RKG) ,
intent(out) :: disKolm
2160 PURE module subroutine setDisKolmSSD_WDD_D1_RK2(disKolm, sample1, sample2)
2161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2162 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WDD_D1_RK2
2165 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2166 real(RKG) ,
intent(out) :: disKolm
2171 PURE module subroutine setDisKolmSSD_WDD_D1_RK1(disKolm, sample1, sample2)
2172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2173 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WDD_D1_RK1
2176 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2177 real(RKG) ,
intent(out) :: disKolm
2190 PURE module subroutine setDisKolmSSA_WDD_D1_RK5(disKolm, sample1, sample2, order)
2191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2192 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WDD_D1_RK5
2195 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2196 real(RKG) ,
intent(out) :: disKolm
2197 type(ascending_type),
intent(in) :: order
2202 PURE module subroutine setDisKolmSSA_WDD_D1_RK4(disKolm, sample1, sample2, order)
2203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2204 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WDD_D1_RK4
2207 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2208 real(RKG) ,
intent(out) :: disKolm
2209 type(ascending_type),
intent(in) :: order
2214 PURE module subroutine setDisKolmSSA_WDD_D1_RK3(disKolm, sample1, sample2, order)
2215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2216 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WDD_D1_RK3
2219 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2220 real(RKG) ,
intent(out) :: disKolm
2221 type(ascending_type),
intent(in) :: order
2226 PURE module subroutine setDisKolmSSA_WDD_D1_RK2(disKolm, sample1, sample2, order)
2227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2228 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WDD_D1_RK2
2231 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2232 real(RKG) ,
intent(out) :: disKolm
2233 type(ascending_type),
intent(in) :: order
2238 PURE module subroutine setDisKolmSSA_WDD_D1_RK1(disKolm, sample1, sample2, order)
2239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2240 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WDD_D1_RK1
2243 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2244 real(RKG) ,
intent(out) :: disKolm
2245 type(ascending_type),
intent(in) :: order
2268 PURE module subroutine setDisKolmSSD_WID_D1_RK5(disKolm, sample1, weight1, weisum1, sample2)
2269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2270 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WID_D1_RK5
2273 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2274 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
2275 integer(IK) ,
intent(in) :: weisum1
2276 real(RKG) ,
intent(out) :: disKolm
2281 PURE module subroutine setDisKolmSSD_WID_D1_RK4(disKolm, sample1, weight1, weisum1, sample2)
2282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2283 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WID_D1_RK4
2286 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2287 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
2288 integer(IK) ,
intent(in) :: weisum1
2289 real(RKG) ,
intent(out) :: disKolm
2294 PURE module subroutine setDisKolmSSD_WID_D1_RK3(disKolm, sample1, weight1, weisum1, sample2)
2295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2296 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WID_D1_RK3
2299 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2300 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
2301 integer(IK) ,
intent(in) :: weisum1
2302 real(RKG) ,
intent(out) :: disKolm
2307 PURE module subroutine setDisKolmSSD_WID_D1_RK2(disKolm, sample1, weight1, weisum1, sample2)
2308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2309 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WID_D1_RK2
2312 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2313 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
2314 integer(IK) ,
intent(in) :: weisum1
2315 real(RKG) ,
intent(out) :: disKolm
2320 PURE module subroutine setDisKolmSSD_WID_D1_RK1(disKolm, sample1, weight1, weisum1, sample2)
2321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2322 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WID_D1_RK1
2325 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2326 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
2327 integer(IK) ,
intent(in) :: weisum1
2328 real(RKG) ,
intent(out) :: disKolm
2341 PURE module subroutine setDisKolmSSA_WID_D1_RK5(disKolm, sample1, weight1, weisum1, sample2, order)
2342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2343 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WID_D1_RK5
2346 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2347 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
2348 integer(IK) ,
intent(in) :: weisum1
2349 real(RKG) ,
intent(out) :: disKolm
2350 type(ascending_type),
intent(in) :: order
2355 PURE module subroutine setDisKolmSSA_WID_D1_RK4(disKolm, sample1, weight1, weisum1, sample2, order)
2356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2357 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WID_D1_RK4
2360 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2361 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
2362 integer(IK) ,
intent(in) :: weisum1
2363 real(RKG) ,
intent(out) :: disKolm
2364 type(ascending_type),
intent(in) :: order
2369 PURE module subroutine setDisKolmSSA_WID_D1_RK3(disKolm, sample1, weight1, weisum1, sample2, order)
2370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2371 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WID_D1_RK3
2374 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2375 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
2376 integer(IK) ,
intent(in) :: weisum1
2377 real(RKG) ,
intent(out) :: disKolm
2378 type(ascending_type),
intent(in) :: order
2383 PURE module subroutine setDisKolmSSA_WID_D1_RK2(disKolm, sample1, weight1, weisum1, sample2, order)
2384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2385 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WID_D1_RK2
2388 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2389 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
2390 integer(IK) ,
intent(in) :: weisum1
2391 real(RKG) ,
intent(out) :: disKolm
2392 type(ascending_type),
intent(in) :: order
2397 PURE module subroutine setDisKolmSSA_WID_D1_RK1(disKolm, sample1, weight1, weisum1, sample2, order)
2398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2399 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WID_D1_RK1
2402 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2403 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
2404 integer(IK) ,
intent(in) :: weisum1
2405 real(RKG) ,
intent(out) :: disKolm
2406 type(ascending_type),
intent(in) :: order
2429 PURE module subroutine setDisKolmSSD_WRD_D1_RK5(disKolm, sample1, weight1, weisum1, sample2)
2430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2431 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WRD_D1_RK5
2434 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2435 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
2436 real(RKG) ,
intent(in) :: weisum1
2437 real(RKG) ,
intent(out) :: disKolm
2442 PURE module subroutine setDisKolmSSD_WRD_D1_RK4(disKolm, sample1, weight1, weisum1, sample2)
2443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2444 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WRD_D1_RK4
2447 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2448 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
2449 real(RKG) ,
intent(in) :: weisum1
2450 real(RKG) ,
intent(out) :: disKolm
2455 PURE module subroutine setDisKolmSSD_WRD_D1_RK3(disKolm, sample1, weight1, weisum1, sample2)
2456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2457 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WRD_D1_RK3
2460 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2461 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
2462 real(RKG) ,
intent(in) :: weisum1
2463 real(RKG) ,
intent(out) :: disKolm
2468 PURE module subroutine setDisKolmSSD_WRD_D1_RK2(disKolm, sample1, weight1, weisum1, sample2)
2469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2470 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WRD_D1_RK2
2473 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2474 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
2475 real(RKG) ,
intent(in) :: weisum1
2476 real(RKG) ,
intent(out) :: disKolm
2481 PURE module subroutine setDisKolmSSD_WRD_D1_RK1(disKolm, sample1, weight1, weisum1, sample2)
2482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2483 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WRD_D1_RK1
2486 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2487 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
2488 real(RKG) ,
intent(in) :: weisum1
2489 real(RKG) ,
intent(out) :: disKolm
2502 PURE module subroutine setDisKolmSSA_WRD_D1_RK5(disKolm, sample1, weight1, weisum1, sample2, order)
2503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2504 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WRD_D1_RK5
2507 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2508 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
2509 real(RKG) ,
intent(in) :: weisum1
2510 real(RKG) ,
intent(out) :: disKolm
2511 type(ascending_type),
intent(in) :: order
2516 PURE module subroutine setDisKolmSSA_WRD_D1_RK4(disKolm, sample1, weight1, weisum1, sample2, order)
2517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2518 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WRD_D1_RK4
2521 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2522 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
2523 real(RKG) ,
intent(in) :: weisum1
2524 real(RKG) ,
intent(out) :: disKolm
2525 type(ascending_type),
intent(in) :: order
2530 PURE module subroutine setDisKolmSSA_WRD_D1_RK3(disKolm, sample1, weight1, weisum1, sample2, order)
2531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2532 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WRD_D1_RK3
2535 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2536 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
2537 real(RKG) ,
intent(in) :: weisum1
2538 real(RKG) ,
intent(out) :: disKolm
2539 type(ascending_type),
intent(in) :: order
2544 PURE module subroutine setDisKolmSSA_WRD_D1_RK2(disKolm, sample1, weight1, weisum1, sample2, order)
2545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2546 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WRD_D1_RK2
2549 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2550 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
2551 real(RKG) ,
intent(in) :: weisum1
2552 real(RKG) ,
intent(out) :: disKolm
2553 type(ascending_type),
intent(in) :: order
2558 PURE module subroutine setDisKolmSSA_WRD_D1_RK1(disKolm, sample1, weight1, weisum1, sample2, order)
2559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2560 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WRD_D1_RK1
2563 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2564 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
2565 real(RKG) ,
intent(in) :: weisum1
2566 real(RKG) ,
intent(out) :: disKolm
2567 type(ascending_type),
intent(in) :: order
2590 PURE module subroutine setDisKolmSSD_WII_D1_RK5(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2)
2591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2592 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WII_D1_RK5
2595 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2596 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:), weight2(:)
2597 integer(IK) ,
intent(in) :: weisum1, weisum2
2598 real(RKG) ,
intent(out) :: disKolm
2603 PURE module subroutine setDisKolmSSD_WII_D1_RK4(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2)
2604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2605 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WII_D1_RK4
2608 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2609 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:), weight2(:)
2610 integer(IK) ,
intent(in) :: weisum1, weisum2
2611 real(RKG) ,
intent(out) :: disKolm
2616 PURE module subroutine setDisKolmSSD_WII_D1_RK3(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2)
2617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2618 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WII_D1_RK3
2621 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2622 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:), weight2(:)
2623 integer(IK) ,
intent(in) :: weisum1, weisum2
2624 real(RKG) ,
intent(out) :: disKolm
2629 PURE module subroutine setDisKolmSSD_WII_D1_RK2(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2)
2630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2631 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WII_D1_RK2
2634 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2635 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:), weight2(:)
2636 integer(IK) ,
intent(in) :: weisum1, weisum2
2637 real(RKG) ,
intent(out) :: disKolm
2642 PURE module subroutine setDisKolmSSD_WII_D1_RK1(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2)
2643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2644 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WII_D1_RK1
2647 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2648 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:), weight2(:)
2649 integer(IK) ,
intent(in) :: weisum1, weisum2
2650 real(RKG) ,
intent(out) :: disKolm
2663 PURE module subroutine setDisKolmSSA_WII_D1_RK5(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2, order)
2664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2665 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WII_D1_RK5
2668 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2669 integer(IK) ,
intent(in) ,
contiguous :: weight1(:), weight2(:)
2670 integer(IK) ,
intent(in) :: weisum1, weisum2
2671 real(RKG) ,
intent(out) :: disKolm
2672 type(ascending_type),
intent(in) :: order
2677 PURE module subroutine setDisKolmSSA_WII_D1_RK4(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2, order)
2678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2679 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WII_D1_RK4
2682 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2683 integer(IK) ,
intent(in) ,
contiguous :: weight1(:), weight2(:)
2684 integer(IK) ,
intent(in) :: weisum1, weisum2
2685 real(RKG) ,
intent(out) :: disKolm
2686 type(ascending_type),
intent(in) :: order
2691 PURE module subroutine setDisKolmSSA_WII_D1_RK3(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2, order)
2692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2693 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WII_D1_RK3
2696 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2697 integer(IK) ,
intent(in) ,
contiguous :: weight1(:), weight2(:)
2698 integer(IK) ,
intent(in) :: weisum1, weisum2
2699 real(RKG) ,
intent(out) :: disKolm
2700 type(ascending_type),
intent(in) :: order
2705 PURE module subroutine setDisKolmSSA_WII_D1_RK2(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2, order)
2706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2707 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WII_D1_RK2
2710 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2711 integer(IK) ,
intent(in) ,
contiguous :: weight1(:), weight2(:)
2712 integer(IK) ,
intent(in) :: weisum1, weisum2
2713 real(RKG) ,
intent(out) :: disKolm
2714 type(ascending_type),
intent(in) :: order
2719 PURE module subroutine setDisKolmSSA_WII_D1_RK1(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2, order)
2720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2721 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WII_D1_RK1
2724 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2725 integer(IK) ,
intent(in) ,
contiguous :: weight1(:), weight2(:)
2726 integer(IK) ,
intent(in) :: weisum1, weisum2
2727 real(RKG) ,
intent(out) :: disKolm
2728 type(ascending_type),
intent(in) :: order
2751 PURE module subroutine setDisKolmSSD_WRR_D1_RK5(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2)
2752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2753 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WRR_D1_RK5
2756 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2757 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:), weight2(:)
2758 real(RKG) ,
intent(in) :: weisum1, weisum2
2759 real(RKG) ,
intent(out) :: disKolm
2764 PURE module subroutine setDisKolmSSD_WRR_D1_RK4(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2)
2765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2766 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WRR_D1_RK4
2769 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2770 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:), weight2(:)
2771 real(RKG) ,
intent(in) :: weisum1, weisum2
2772 real(RKG) ,
intent(out) :: disKolm
2777 PURE module subroutine setDisKolmSSD_WRR_D1_RK3(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2)
2778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2779 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WRR_D1_RK3
2782 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2783 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:), weight2(:)
2784 real(RKG) ,
intent(in) :: weisum1, weisum2
2785 real(RKG) ,
intent(out) :: disKolm
2790 PURE module subroutine setDisKolmSSD_WRR_D1_RK2(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2)
2791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2792 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WRR_D1_RK2
2795 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2796 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:), weight2(:)
2797 real(RKG) ,
intent(in) :: weisum1, weisum2
2798 real(RKG) ,
intent(out) :: disKolm
2803 PURE module subroutine setDisKolmSSD_WRR_D1_RK1(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2)
2804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2805 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSD_WRR_D1_RK1
2808 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:), sample2(:)
2809 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:), weight2(:)
2810 real(RKG) ,
intent(in) :: weisum1, weisum2
2811 real(RKG) ,
intent(out) :: disKolm
2824 PURE module subroutine setDisKolmSSA_WRR_D1_RK5(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2, order)
2825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2826 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WRR_D1_RK5
2829 type(ascending_type),
intent(in) :: order
2830 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2831 real(RKG) ,
intent(in) ,
contiguous :: weight1(:), weight2(:)
2832 real(RKG) ,
intent(in) :: weisum1, weisum2
2833 real(RKG) ,
intent(out) :: disKolm
2838 PURE module subroutine setDisKolmSSA_WRR_D1_RK4(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2, order)
2839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2840 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WRR_D1_RK4
2843 type(ascending_type),
intent(in) :: order
2844 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2845 real(RKG) ,
intent(in) ,
contiguous :: weight1(:), weight2(:)
2846 real(RKG) ,
intent(in) :: weisum1, weisum2
2847 real(RKG) ,
intent(out) :: disKolm
2852 PURE module subroutine setDisKolmSSA_WRR_D1_RK3(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2, order)
2853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2854 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WRR_D1_RK3
2857 type(ascending_type),
intent(in) :: order
2858 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2859 real(RKG) ,
intent(in) ,
contiguous :: weight1(:), weight2(:)
2860 real(RKG) ,
intent(in) :: weisum1, weisum2
2861 real(RKG) ,
intent(out) :: disKolm
2866 PURE module subroutine setDisKolmSSA_WRR_D1_RK2(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2, order)
2867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2868 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WRR_D1_RK2
2871 type(ascending_type),
intent(in) :: order
2872 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2873 real(RKG) ,
intent(in) ,
contiguous :: weight1(:), weight2(:)
2874 real(RKG) ,
intent(in) :: weisum1, weisum2
2875 real(RKG) ,
intent(out) :: disKolm
2880 PURE module subroutine setDisKolmSSA_WRR_D1_RK1(disKolm, sample1, weight1, weisum1, sample2, weight2, weisum2, order)
2881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2882 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSSA_WRR_D1_RK1
2885 type(ascending_type),
intent(in) :: order
2886 real(RKG) ,
intent(in) ,
contiguous :: sample1(:), sample2(:)
2887 real(RKG) ,
intent(in) ,
contiguous :: weight1(:), weight2(:)
2888 real(RKG) ,
intent(in) :: weisum1, weisum2
2889 real(RKG) ,
intent(out) :: disKolm
2912 PURE module subroutine setDisKolmSXD_WDD_D1_RK5(disKolm, sample1)
2913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2914 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WDD_D1_RK5
2917 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
2918 real(RKG) ,
intent(out) :: disKolm
2923 PURE module subroutine setDisKolmSXD_WDD_D1_RK4(disKolm, sample1)
2924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2925 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WDD_D1_RK4
2928 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
2929 real(RKG) ,
intent(out) :: disKolm
2934 PURE module subroutine setDisKolmSXD_WDD_D1_RK3(disKolm, sample1)
2935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2936 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WDD_D1_RK3
2939 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
2940 real(RKG) ,
intent(out) :: disKolm
2945 PURE module subroutine setDisKolmSXD_WDD_D1_RK2(disKolm, sample1)
2946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2947 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WDD_D1_RK2
2950 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
2951 real(RKG) ,
intent(out) :: disKolm
2956 PURE module subroutine setDisKolmSXD_WDD_D1_RK1(disKolm, sample1)
2957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2958 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WDD_D1_RK1
2961 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
2962 real(RKG) ,
intent(out) :: disKolm
2975 PURE module subroutine setDisKolmSXA_WDD_D1_RK5(disKolm, sample1, order)
2976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2977 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WDD_D1_RK5
2980 type(ascending_type),
intent(in) :: order
2981 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
2982 real(RKG) ,
intent(out) :: disKolm
2987 PURE module subroutine setDisKolmSXA_WDD_D1_RK4(disKolm, sample1, order)
2988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2989 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WDD_D1_RK4
2992 type(ascending_type),
intent(in) :: order
2993 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
2994 real(RKG) ,
intent(out) :: disKolm
2999 PURE module subroutine setDisKolmSXA_WDD_D1_RK3(disKolm, sample1, order)
3000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3001 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WDD_D1_RK3
3004 type(ascending_type),
intent(in) :: order
3005 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3006 real(RKG) ,
intent(out) :: disKolm
3011 PURE module subroutine setDisKolmSXA_WDD_D1_RK2(disKolm, sample1, order)
3012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3013 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WDD_D1_RK2
3016 type(ascending_type),
intent(in) :: order
3017 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3018 real(RKG) ,
intent(out) :: disKolm
3023 PURE module subroutine setDisKolmSXA_WDD_D1_RK1(disKolm, sample1, order)
3024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3025 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WDD_D1_RK1
3028 type(ascending_type),
intent(in) :: order
3029 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3030 real(RKG) ,
intent(out) :: disKolm
3053 PURE module subroutine setDisKolmSXD_WID_D1_RK5(disKolm, sample1, weight1, weisum1)
3054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3055 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WID_D1_RK5
3058 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3059 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
3060 integer(IK) ,
intent(in) :: weisum1
3061 real(RKG) ,
intent(out) :: disKolm
3066 PURE module subroutine setDisKolmSXD_WID_D1_RK4(disKolm, sample1, weight1, weisum1)
3067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3068 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WID_D1_RK4
3071 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3072 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
3073 integer(IK) ,
intent(in) :: weisum1
3074 real(RKG) ,
intent(out) :: disKolm
3079 PURE module subroutine setDisKolmSXD_WID_D1_RK3(disKolm, sample1, weight1, weisum1)
3080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3081 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WID_D1_RK3
3084 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3085 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
3086 integer(IK) ,
intent(in) :: weisum1
3087 real(RKG) ,
intent(out) :: disKolm
3092 PURE module subroutine setDisKolmSXD_WID_D1_RK2(disKolm, sample1, weight1, weisum1)
3093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3094 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WID_D1_RK2
3097 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3098 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
3099 integer(IK) ,
intent(in) :: weisum1
3100 real(RKG) ,
intent(out) :: disKolm
3105 PURE module subroutine setDisKolmSXD_WID_D1_RK1(disKolm, sample1, weight1, weisum1)
3106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3107 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WID_D1_RK1
3110 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3111 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
3112 integer(IK) ,
intent(in) :: weisum1
3113 real(RKG) ,
intent(out) :: disKolm
3126 PURE module subroutine setDisKolmSXA_WID_D1_RK5(disKolm, sample1, weight1, weisum1, order)
3127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3128 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WID_D1_RK5
3131 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3132 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
3133 integer(IK) ,
intent(in) :: weisum1
3134 real(RKG) ,
intent(out) :: disKolm
3135 type(ascending_type),
intent(in) :: order
3140 PURE module subroutine setDisKolmSXA_WID_D1_RK4(disKolm, sample1, weight1, weisum1, order)
3141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3142 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WID_D1_RK4
3145 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3146 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
3147 integer(IK) ,
intent(in) :: weisum1
3148 real(RKG) ,
intent(out) :: disKolm
3149 type(ascending_type),
intent(in) :: order
3154 PURE module subroutine setDisKolmSXA_WID_D1_RK3(disKolm, sample1, weight1, weisum1, order)
3155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3156 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WID_D1_RK3
3159 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3160 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
3161 integer(IK) ,
intent(in) :: weisum1
3162 real(RKG) ,
intent(out) :: disKolm
3163 type(ascending_type),
intent(in) :: order
3168 PURE module subroutine setDisKolmSXA_WID_D1_RK2(disKolm, sample1, weight1, weisum1, order)
3169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3170 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WID_D1_RK2
3173 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3174 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
3175 integer(IK) ,
intent(in) :: weisum1
3176 real(RKG) ,
intent(out) :: disKolm
3177 type(ascending_type),
intent(in) :: order
3182 PURE module subroutine setDisKolmSXA_WID_D1_RK1(disKolm, sample1, weight1, weisum1, order)
3183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3184 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WID_D1_RK1
3187 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3188 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
3189 integer(IK) ,
intent(in) :: weisum1
3190 real(RKG) ,
intent(out) :: disKolm
3191 type(ascending_type),
intent(in) :: order
3214 PURE module subroutine setDisKolmSXD_WRD_D1_RK5(disKolm, sample1, weight1, weisum1)
3215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3216 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WRD_D1_RK5
3219 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3220 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
3221 real(RKG) ,
intent(in) :: weisum1
3222 real(RKG) ,
intent(out) :: disKolm
3227 PURE module subroutine setDisKolmSXD_WRD_D1_RK4(disKolm, sample1, weight1, weisum1)
3228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3229 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WRD_D1_RK4
3232 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3233 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
3234 real(RKG) ,
intent(in) :: weisum1
3235 real(RKG) ,
intent(out) :: disKolm
3240 PURE module subroutine setDisKolmSXD_WRD_D1_RK3(disKolm, sample1, weight1, weisum1)
3241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3242 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WRD_D1_RK3
3245 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3246 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
3247 real(RKG) ,
intent(in) :: weisum1
3248 real(RKG) ,
intent(out) :: disKolm
3253 PURE module subroutine setDisKolmSXD_WRD_D1_RK2(disKolm, sample1, weight1, weisum1)
3254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3255 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WRD_D1_RK2
3258 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3259 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
3260 real(RKG) ,
intent(in) :: weisum1
3261 real(RKG) ,
intent(out) :: disKolm
3266 PURE module subroutine setDisKolmSXD_WRD_D1_RK1(disKolm, sample1, weight1, weisum1)
3267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3268 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXD_WRD_D1_RK1
3271 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3272 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
3273 real(RKG) ,
intent(in) :: weisum1
3274 real(RKG) ,
intent(out) :: disKolm
3287 PURE module subroutine setDisKolmSXA_WRD_D1_RK5(disKolm, sample1, weight1, weisum1, order)
3288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3289 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WRD_D1_RK5
3292 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3293 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
3294 real(RKG) ,
intent(in) :: weisum1
3295 real(RKG) ,
intent(out) :: disKolm
3296 type(ascending_type),
intent(in) :: order
3301 PURE module subroutine setDisKolmSXA_WRD_D1_RK4(disKolm, sample1, weight1, weisum1, order)
3302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3303 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WRD_D1_RK4
3306 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3307 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
3308 real(RKG) ,
intent(in) :: weisum1
3309 real(RKG) ,
intent(out) :: disKolm
3310 type(ascending_type),
intent(in) :: order
3315 PURE module subroutine setDisKolmSXA_WRD_D1_RK3(disKolm, sample1, weight1, weisum1, order)
3316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3317 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WRD_D1_RK3
3320 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3321 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
3322 real(RKG) ,
intent(in) :: weisum1
3323 real(RKG) ,
intent(out) :: disKolm
3324 type(ascending_type),
intent(in) :: order
3329 PURE module subroutine setDisKolmSXA_WRD_D1_RK2(disKolm, sample1, weight1, weisum1, order)
3330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3331 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WRD_D1_RK2
3334 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3335 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
3336 real(RKG) ,
intent(in) :: weisum1
3337 real(RKG) ,
intent(out) :: disKolm
3338 type(ascending_type),
intent(in) :: order
3343 PURE module subroutine setDisKolmSXA_WRD_D1_RK1(disKolm, sample1, weight1, weisum1, order)
3344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3345 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSXA_WRD_D1_RK1
3348 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3349 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
3350 real(RKG) ,
intent(in) :: weisum1
3351 real(RKG) ,
intent(out) :: disKolm
3352 type(ascending_type),
intent(in) :: order
3375 module subroutine setDisKolmSCD_WDD_D1_RK5(disKolm, sample1, getCDF)
3376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3377 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WDD_D1_RK5
3380 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3381 real(RKG) ,
intent(out) :: disKolm
3382 procedure(
real(RKG)) :: getCDF
3387 module subroutine setDisKolmSCD_WDD_D1_RK4(disKolm, sample1, getCDF)
3388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3389 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WDD_D1_RK4
3392 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3393 real(RKG) ,
intent(out) :: disKolm
3394 procedure(
real(RKG)) :: getCDF
3399 module subroutine setDisKolmSCD_WDD_D1_RK3(disKolm, sample1, getCDF)
3400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3401 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WDD_D1_RK3
3404 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3405 real(RKG) ,
intent(out) :: disKolm
3406 procedure(
real(RKG)) :: getCDF
3411 module subroutine setDisKolmSCD_WDD_D1_RK2(disKolm, sample1, getCDF)
3412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3413 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WDD_D1_RK2
3416 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3417 real(RKG) ,
intent(out) :: disKolm
3418 procedure(
real(RKG)) :: getCDF
3423 module subroutine setDisKolmSCD_WDD_D1_RK1(disKolm, sample1, getCDF)
3424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3425 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WDD_D1_RK1
3428 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3429 real(RKG) ,
intent(out) :: disKolm
3430 procedure(
real(RKG)) :: getCDF
3443 module subroutine setDisKolmSCA_WDD_D1_RK5(disKolm, sample1, getCDF, order)
3444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3445 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WDD_D1_RK5
3448 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3449 real(RKG) ,
intent(out) :: disKolm
3450 type(ascending_type),
intent(in) :: order
3451 procedure(
real(RKG)) :: getCDF
3456 module subroutine setDisKolmSCA_WDD_D1_RK4(disKolm, sample1, getCDF, order)
3457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3458 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WDD_D1_RK4
3461 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3462 real(RKG) ,
intent(out) :: disKolm
3463 type(ascending_type),
intent(in) :: order
3464 procedure(
real(RKG)) :: getCDF
3469 module subroutine setDisKolmSCA_WDD_D1_RK3(disKolm, sample1, getCDF, order)
3470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3471 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WDD_D1_RK3
3474 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3475 real(RKG) ,
intent(out) :: disKolm
3476 type(ascending_type),
intent(in) :: order
3477 procedure(
real(RKG)) :: getCDF
3482 module subroutine setDisKolmSCA_WDD_D1_RK2(disKolm, sample1, getCDF, order)
3483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3484 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WDD_D1_RK2
3487 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3488 real(RKG) ,
intent(out) :: disKolm
3489 type(ascending_type),
intent(in) :: order
3490 procedure(
real(RKG)) :: getCDF
3495 module subroutine setDisKolmSCA_WDD_D1_RK1(disKolm, sample1, getCDF, order)
3496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3497 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WDD_D1_RK1
3500 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3501 real(RKG) ,
intent(out) :: disKolm
3502 type(ascending_type),
intent(in) :: order
3503 procedure(
real(RKG)) :: getCDF
3526 module subroutine setDisKolmSCD_WID_D1_RK5(disKolm, sample1, weight1, weisum1, getCDF)
3527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3528 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WID_D1_RK5
3531 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3532 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
3533 integer(IK) ,
intent(in) :: weisum1
3534 real(RKG) ,
intent(out) :: disKolm
3535 procedure(
real(RKG)) :: getCDF
3540 module subroutine setDisKolmSCD_WID_D1_RK4(disKolm, sample1, weight1, weisum1, getCDF)
3541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3542 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WID_D1_RK4
3545 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3546 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
3547 integer(IK) ,
intent(in) :: weisum1
3548 real(RKG) ,
intent(out) :: disKolm
3549 procedure(
real(RKG)) :: getCDF
3554 module subroutine setDisKolmSCD_WID_D1_RK3(disKolm, sample1, weight1, weisum1, getCDF)
3555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3556 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WID_D1_RK3
3559 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3560 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
3561 integer(IK) ,
intent(in) :: weisum1
3562 real(RKG) ,
intent(out) :: disKolm
3563 procedure(
real(RKG)) :: getCDF
3568 module subroutine setDisKolmSCD_WID_D1_RK2(disKolm, sample1, weight1, weisum1, getCDF)
3569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3570 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WID_D1_RK2
3573 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3574 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
3575 integer(IK) ,
intent(in) :: weisum1
3576 real(RKG) ,
intent(out) :: disKolm
3577 procedure(
real(RKG)) :: getCDF
3582 module subroutine setDisKolmSCD_WID_D1_RK1(disKolm, sample1, weight1, weisum1, getCDF)
3583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3584 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WID_D1_RK1
3587 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3588 integer(IK) ,
intent(inout) ,
contiguous :: weight1(:)
3589 integer(IK) ,
intent(in) :: weisum1
3590 real(RKG) ,
intent(out) :: disKolm
3591 procedure(
real(RKG)) :: getCDF
3604 module subroutine setDisKolmSCA_WID_D1_RK5(disKolm, sample1, weight1, weisum1, getCDF, order)
3605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3606 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WID_D1_RK5
3609 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3610 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
3611 integer(IK) ,
intent(in) :: weisum1
3612 real(RKG) ,
intent(out) :: disKolm
3613 type(ascending_type),
intent(in) :: order
3614 procedure(
real(RKG)) :: getCDF
3619 module subroutine setDisKolmSCA_WID_D1_RK4(disKolm, sample1, weight1, weisum1, getCDF, order)
3620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3621 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WID_D1_RK4
3624 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3625 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
3626 integer(IK) ,
intent(in) :: weisum1
3627 real(RKG) ,
intent(out) :: disKolm
3628 type(ascending_type),
intent(in) :: order
3629 procedure(
real(RKG)) :: getCDF
3634 module subroutine setDisKolmSCA_WID_D1_RK3(disKolm, sample1, weight1, weisum1, getCDF, order)
3635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3636 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WID_D1_RK3
3639 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3640 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
3641 integer(IK) ,
intent(in) :: weisum1
3642 real(RKG) ,
intent(out) :: disKolm
3643 type(ascending_type),
intent(in) :: order
3644 procedure(
real(RKG)) :: getCDF
3649 module subroutine setDisKolmSCA_WID_D1_RK2(disKolm, sample1, weight1, weisum1, getCDF, order)
3650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3651 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WID_D1_RK2
3654 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3655 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
3656 integer(IK) ,
intent(in) :: weisum1
3657 real(RKG) ,
intent(out) :: disKolm
3658 type(ascending_type),
intent(in) :: order
3659 procedure(
real(RKG)) :: getCDF
3664 module subroutine setDisKolmSCA_WID_D1_RK1(disKolm, sample1, weight1, weisum1, getCDF, order)
3665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3666 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WID_D1_RK1
3669 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3670 integer(IK) ,
intent(in) ,
contiguous :: weight1(:)
3671 integer(IK) ,
intent(in) :: weisum1
3672 real(RKG) ,
intent(out) :: disKolm
3673 type(ascending_type),
intent(in) :: order
3674 procedure(
real(RKG)) :: getCDF
3697 module subroutine setDisKolmSCD_WRD_D1_RK5(disKolm, sample1, weight1, weisum1, getCDF)
3698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3699 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WRD_D1_RK5
3702 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3703 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
3704 real(RKG) ,
intent(in) :: weisum1
3705 real(RKG) ,
intent(out) :: disKolm
3706 procedure(
real(RKG)) :: getCDF
3711 module subroutine setDisKolmSCD_WRD_D1_RK4(disKolm, sample1, weight1, weisum1, getCDF)
3712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3713 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WRD_D1_RK4
3716 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3717 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
3718 real(RKG) ,
intent(in) :: weisum1
3719 real(RKG) ,
intent(out) :: disKolm
3720 procedure(
real(RKG)) :: getCDF
3725 module subroutine setDisKolmSCD_WRD_D1_RK3(disKolm, sample1, weight1, weisum1, getCDF)
3726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3727 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WRD_D1_RK3
3730 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3731 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
3732 real(RKG) ,
intent(in) :: weisum1
3733 real(RKG) ,
intent(out) :: disKolm
3734 procedure(
real(RKG)) :: getCDF
3739 module subroutine setDisKolmSCD_WRD_D1_RK2(disKolm, sample1, weight1, weisum1, getCDF)
3740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3741 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WRD_D1_RK2
3744 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3745 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
3746 real(RKG) ,
intent(in) :: weisum1
3747 real(RKG) ,
intent(out) :: disKolm
3748 procedure(
real(RKG)) :: getCDF
3753 module subroutine setDisKolmSCD_WRD_D1_RK1(disKolm, sample1, weight1, weisum1, getCDF)
3754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3755 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCD_WRD_D1_RK1
3758 real(RKG) ,
intent(inout) ,
contiguous :: sample1(:)
3759 real(RKG) ,
intent(inout) ,
contiguous :: weight1(:)
3760 real(RKG) ,
intent(in) :: weisum1
3761 real(RKG) ,
intent(out) :: disKolm
3762 procedure(
real(RKG)) :: getCDF
3775 module subroutine setDisKolmSCA_WRD_D1_RK5(disKolm, sample1, weight1, weisum1, getCDF, order)
3776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3777 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WRD_D1_RK5
3780 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3781 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
3782 real(RKG) ,
intent(in) :: weisum1
3783 real(RKG) ,
intent(out) :: disKolm
3784 type(ascending_type),
intent(in) :: order
3785 procedure(
real(RKG)) :: getCDF
3790 module subroutine setDisKolmSCA_WRD_D1_RK4(disKolm, sample1, weight1, weisum1, getCDF, order)
3791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3792 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WRD_D1_RK4
3795 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3796 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
3797 real(RKG) ,
intent(in) :: weisum1
3798 real(RKG) ,
intent(out) :: disKolm
3799 type(ascending_type),
intent(in) :: order
3800 procedure(
real(RKG)) :: getCDF
3805 module subroutine setDisKolmSCA_WRD_D1_RK3(disKolm, sample1, weight1, weisum1, getCDF, order)
3806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3807 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WRD_D1_RK3
3810 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3811 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
3812 real(RKG) ,
intent(in) :: weisum1
3813 real(RKG) ,
intent(out) :: disKolm
3814 type(ascending_type),
intent(in) :: order
3815 procedure(
real(RKG)) :: getCDF
3820 module subroutine setDisKolmSCA_WRD_D1_RK2(disKolm, sample1, weight1, weisum1, getCDF, order)
3821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3822 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WRD_D1_RK2
3825 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3826 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
3827 real(RKG) ,
intent(in) :: weisum1
3828 real(RKG) ,
intent(out) :: disKolm
3829 type(ascending_type),
intent(in) :: order
3830 procedure(
real(RKG)) :: getCDF
3835 module subroutine setDisKolmSCA_WRD_D1_RK1(disKolm, sample1, weight1, weisum1, getCDF, order)
3836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3837 !DEC$ ATTRIBUTES DLLEXPORT :: setDisKolmSCA_WRD_D1_RK1
3840 real(RKG) ,
intent(in) ,
contiguous :: sample1(:)
3841 real(RKG) ,
intent(in) ,
contiguous :: weight1(:)
3842 real(RKG) ,
intent(in) :: weisum1
3843 real(RKG) ,
intent(out) :: disKolm
3844 type(ascending_type),
intent(in) :: order
3845 procedure(
real(RKG)) :: getCDF
Generate and return the Kolmogorov distance of a sample1 of size nsam1 from another sample sample2 of...
Return the Kolmogorov distance of a sample1 of size nsam1 from another sample sample2 of size nsam2 o...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(ascending_type), parameter ascending
This is a scalar parameter object of type ascending_type that is exclusively used to signify the asce...
character(*, SK), parameter MODULE_NAME
This module contains classes and procedures for computing the Kolmogorov statistical distance.
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
integer, parameter 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 is a concrete derived type whose instances are exclusively used to signify the ascending sequenc...