254 PURE module subroutine setMemberEucDef_D0_D1_RK5(membership, disq, sample, center)
255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
256 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D0_D1_RK5
259 real(RKG) ,
intent(in) :: sample
260 real(RKG) ,
intent(in) ,
contiguous :: center(:)
261 real(RKG) ,
intent(out) :: disq
262 integer(IK) ,
intent(out) :: membership
267 PURE module subroutine setMemberEucDef_D0_D1_RK4(membership, disq, sample, center)
268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
269 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D0_D1_RK4
272 real(RKG) ,
intent(in) :: sample
273 real(RKG) ,
intent(in) ,
contiguous :: center(:)
274 real(RKG) ,
intent(out) :: disq
275 integer(IK) ,
intent(out) :: membership
280 PURE module subroutine setMemberEucDef_D0_D1_RK3(membership, disq, sample, center)
281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
282 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D0_D1_RK3
285 real(RKG) ,
intent(in) :: sample
286 real(RKG) ,
intent(in) ,
contiguous :: center(:)
287 real(RKG) ,
intent(out) :: disq
288 integer(IK) ,
intent(out) :: membership
293 PURE module subroutine setMemberEucDef_D0_D1_RK2(membership, disq, sample, center)
294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
295 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D0_D1_RK2
298 real(RKG) ,
intent(in) :: sample
299 real(RKG) ,
intent(in) ,
contiguous :: center(:)
300 real(RKG) ,
intent(out) :: disq
301 integer(IK) ,
intent(out) :: membership
306 PURE module subroutine setMemberEucDef_D0_D1_RK1(membership, disq, sample, center)
307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
308 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D0_D1_RK1
311 real(RKG) ,
intent(in) :: sample
312 real(RKG) ,
intent(in) ,
contiguous :: center(:)
313 real(RKG) ,
intent(out) :: disq
314 integer(IK) ,
intent(out) :: membership
321 PURE module subroutine setMemberEucDef_D1_D1_RK5(membership, disq, sample, center)
322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
323 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D1_D1_RK5
326 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
327 real(RKG) ,
intent(in) ,
contiguous :: center(:)
328 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
329 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
334 PURE module subroutine setMemberEucDef_D1_D1_RK4(membership, disq, sample, center)
335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
336 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D1_D1_RK4
339 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
340 real(RKG) ,
intent(in) ,
contiguous :: center(:)
341 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
342 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
347 PURE module subroutine setMemberEucDef_D1_D1_RK3(membership, disq, sample, center)
348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
349 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D1_D1_RK3
352 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
353 real(RKG) ,
intent(in) ,
contiguous :: center(:)
354 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
355 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
360 PURE module subroutine setMemberEucDef_D1_D1_RK2(membership, disq, sample, center)
361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
362 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D1_D1_RK2
365 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
366 real(RKG) ,
intent(in) ,
contiguous :: center(:)
367 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
368 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
373 PURE module subroutine setMemberEucDef_D1_D1_RK1(membership, disq, sample, center)
374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
375 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D1_D1_RK1
378 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
379 real(RKG) ,
intent(in) ,
contiguous :: center(:)
380 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
381 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
388 PURE module subroutine setMemberEucDef_D1_D2_RK5(membership, disq, sample, center)
389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
390 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D1_D2_RK5
393 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
394 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
395 real(RKG) ,
intent(out) :: disq
396 integer(IK) ,
intent(out) :: membership
401 PURE module subroutine setMemberEucDef_D1_D2_RK4(membership, disq, sample, center)
402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
403 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D1_D2_RK4
406 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
407 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
408 real(RKG) ,
intent(out) :: disq
409 integer(IK) ,
intent(out) :: membership
414 PURE module subroutine setMemberEucDef_D1_D2_RK3(membership, disq, sample, center)
415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
416 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D1_D2_RK3
419 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
420 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
421 real(RKG) ,
intent(out) :: disq
422 integer(IK) ,
intent(out) :: membership
427 PURE module subroutine setMemberEucDef_D1_D2_RK2(membership, disq, sample, center)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D1_D2_RK2
432 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
433 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
434 real(RKG) ,
intent(out) :: disq
435 integer(IK) ,
intent(out) :: membership
440 PURE module subroutine setMemberEucDef_D1_D2_RK1(membership, disq, sample, center)
441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
442 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D1_D2_RK1
445 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
446 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
447 real(RKG) ,
intent(out) :: disq
448 integer(IK) ,
intent(out) :: membership
455 PURE module subroutine setMemberEucDef_D2_D2_RK5(membership, disq, sample, center)
456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
457 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D2_D2_RK5
460 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
461 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
462 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
463 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
468 PURE module subroutine setMemberEucDef_D2_D2_RK4(membership, disq, sample, center)
469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
470 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D2_D2_RK4
473 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
474 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
475 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
476 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
481 PURE module subroutine setMemberEucDef_D2_D2_RK3(membership, disq, sample, center)
482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
483 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D2_D2_RK3
486 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
487 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
488 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
489 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
494 PURE module subroutine setMemberEucDef_D2_D2_RK2(membership, disq, sample, center)
495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
496 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D2_D2_RK2
499 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
500 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
501 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
502 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
507 PURE module subroutine setMemberEucDef_D2_D2_RK1(membership, disq, sample, center)
508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
509 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucDef_D2_D2_RK1
512 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
513 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
514 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
515 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
530 PURE module subroutine setMemberEucCng_D0_D1_RK5(membership, disq, sample, center, changed)
531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
532 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D0_D1_RK5
535 real(RKG) ,
intent(in) :: sample
536 real(RKG) ,
intent(in) ,
contiguous :: center(:)
537 real(RKG) ,
intent(out) :: disq
538 integer(IK) ,
intent(inout) :: membership
539 logical(LK) ,
intent(out) :: changed
544 PURE module subroutine setMemberEucCng_D0_D1_RK4(membership, disq, sample, center, changed)
545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
546 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D0_D1_RK4
549 real(RKG) ,
intent(in) :: sample
550 real(RKG) ,
intent(in) ,
contiguous :: center(:)
551 real(RKG) ,
intent(out) :: disq
552 integer(IK) ,
intent(inout) :: membership
553 logical(LK) ,
intent(out) :: changed
558 PURE module subroutine setMemberEucCng_D0_D1_RK3(membership, disq, sample, center, changed)
559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
560 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D0_D1_RK3
563 real(RKG) ,
intent(in) :: sample
564 real(RKG) ,
intent(in) ,
contiguous :: center(:)
565 real(RKG) ,
intent(out) :: disq
566 integer(IK) ,
intent(inout) :: membership
567 logical(LK) ,
intent(out) :: changed
572 PURE module subroutine setMemberEucCng_D0_D1_RK2(membership, disq, sample, center, changed)
573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
574 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D0_D1_RK2
577 real(RKG) ,
intent(in) :: sample
578 real(RKG) ,
intent(in) ,
contiguous :: center(:)
579 real(RKG) ,
intent(out) :: disq
580 integer(IK) ,
intent(inout) :: membership
581 logical(LK) ,
intent(out) :: changed
586 PURE module subroutine setMemberEucCng_D0_D1_RK1(membership, disq, sample, center, changed)
587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
588 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D0_D1_RK1
591 real(RKG) ,
intent(in) :: sample
592 real(RKG) ,
intent(in) ,
contiguous :: center(:)
593 real(RKG) ,
intent(out) :: disq
594 integer(IK) ,
intent(inout) :: membership
595 logical(LK) ,
intent(out) :: changed
602 PURE module subroutine setMemberEucCng_D1_D1_RK5(membership, disq, sample, center, changed)
603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
604 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D1_D1_RK5
607 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
608 real(RKG) ,
intent(in) ,
contiguous :: center(:)
609 real(RKG) ,
intent(inout) ,
contiguous :: disq(:)
610 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
611 logical(LK) ,
intent(out) :: changed
616 PURE module subroutine setMemberEucCng_D1_D1_RK4(membership, disq, sample, center, changed)
617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
618 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D1_D1_RK4
621 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
622 real(RKG) ,
intent(in) ,
contiguous :: center(:)
623 real(RKG) ,
intent(inout) ,
contiguous :: disq(:)
624 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
625 logical(LK) ,
intent(out) :: changed
630 PURE module subroutine setMemberEucCng_D1_D1_RK3(membership, disq, sample, center, changed)
631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
632 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D1_D1_RK3
635 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
636 real(RKG) ,
intent(in) ,
contiguous :: center(:)
637 real(RKG) ,
intent(inout) ,
contiguous :: disq(:)
638 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
639 logical(LK) ,
intent(out) :: changed
644 PURE module subroutine setMemberEucCng_D1_D1_RK2(membership, disq, sample, center, changed)
645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
646 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D1_D1_RK2
649 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
650 real(RKG) ,
intent(in) ,
contiguous :: center(:)
651 real(RKG) ,
intent(inout) ,
contiguous :: disq(:)
652 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
653 logical(LK) ,
intent(out) :: changed
658 PURE module subroutine setMemberEucCng_D1_D1_RK1(membership, disq, sample, center, changed)
659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
660 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D1_D1_RK1
663 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
664 real(RKG) ,
intent(in) ,
contiguous :: center(:)
665 real(RKG) ,
intent(inout) ,
contiguous :: disq(:)
666 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
667 logical(LK) ,
intent(out) :: changed
674 PURE module subroutine setMemberEucCng_D1_D2_RK5(membership, disq, sample, center, changed)
675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
676 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D1_D2_RK5
679 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
680 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
681 real(RKG) ,
intent(out) :: disq
682 integer(IK) ,
intent(inout) :: membership
683 logical(LK) ,
intent(out) :: changed
688 PURE module subroutine setMemberEucCng_D1_D2_RK4(membership, disq, sample, center, changed)
689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
690 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D1_D2_RK4
693 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
694 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
695 real(RKG) ,
intent(out) :: disq
696 integer(IK) ,
intent(inout) :: membership
697 logical(LK) ,
intent(out) :: changed
702 PURE module subroutine setMemberEucCng_D1_D2_RK3(membership, disq, sample, center, changed)
703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
704 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D1_D2_RK3
707 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
708 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
709 real(RKG) ,
intent(out) :: disq
710 integer(IK) ,
intent(inout) :: membership
711 logical(LK) ,
intent(out) :: changed
716 PURE module subroutine setMemberEucCng_D1_D2_RK2(membership, disq, sample, center, changed)
717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
718 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D1_D2_RK2
721 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
722 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
723 real(RKG) ,
intent(out) :: disq
724 integer(IK) ,
intent(inout) :: membership
725 logical(LK) ,
intent(out) :: changed
730 PURE module subroutine setMemberEucCng_D1_D2_RK1(membership, disq, sample, center, changed)
731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
732 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D1_D2_RK1
735 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
736 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
737 real(RKG) ,
intent(out) :: disq
738 integer(IK) ,
intent(inout) :: membership
739 logical(LK) ,
intent(out) :: changed
746 PURE module subroutine setMemberEucCng_D2_D2_RK5(membership, disq, sample, center, changed)
747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
748 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D2_D2_RK5
751 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
752 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
753 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
754 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
755 logical(LK) ,
intent(out) :: changed
760 PURE module subroutine setMemberEucCng_D2_D2_RK4(membership, disq, sample, center, changed)
761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
762 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D2_D2_RK4
765 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
766 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
767 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
768 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
769 logical(LK) ,
intent(out) :: changed
774 PURE module subroutine setMemberEucCng_D2_D2_RK3(membership, disq, sample, center, changed)
775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
776 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D2_D2_RK3
779 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
780 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
781 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
782 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
783 logical(LK) ,
intent(out) :: changed
788 PURE module subroutine setMemberEucCng_D2_D2_RK2(membership, disq, sample, center, changed)
789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
790 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D2_D2_RK2
793 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
794 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
795 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
796 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
797 logical(LK) ,
intent(out) :: changed
802 PURE module subroutine setMemberEucCng_D2_D2_RK1(membership, disq, sample, center, changed)
803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
804 !DEC$ ATTRIBUTES DLLEXPORT :: setMemberEucCng_D2_D2_RK1
807 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
808 real(RKG) ,
intent(in) ,
contiguous :: center(:,:)
809 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
810 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
811 logical(LK) ,
intent(out) :: changed
909 PURE module subroutine setCenterEuc_D1_D1_RK5(membership, disq, sample, center, size, potential)
910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
911 !DEC$ ATTRIBUTES DLLEXPORT :: setCenterEuc_D1_D1_RK5
914 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
915 real(RKG) ,
intent(in) ,
contiguous :: disq(:)
916 integer(IK) ,
intent(in) ,
contiguous :: membership(:)
917 real(RKG) ,
intent(out) ,
contiguous :: center(:)
918 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
919 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
924 PURE module subroutine setCenterEuc_D1_D1_RK4(membership, disq, sample, center, size, potential)
925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
926 !DEC$ ATTRIBUTES DLLEXPORT :: setCenterEuc_D1_D1_RK4
929 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
930 real(RKG) ,
intent(in) ,
contiguous :: disq(:)
931 integer(IK) ,
intent(in) ,
contiguous :: membership(:)
932 real(RKG) ,
intent(out) ,
contiguous :: center(:)
933 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
934 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
939 PURE module subroutine setCenterEuc_D1_D1_RK3(membership, disq, sample, center, size, potential)
940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
941 !DEC$ ATTRIBUTES DLLEXPORT :: setCenterEuc_D1_D1_RK3
944 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
945 real(RKG) ,
intent(in) ,
contiguous :: disq(:)
946 integer(IK) ,
intent(in) ,
contiguous :: membership(:)
947 real(RKG) ,
intent(out) ,
contiguous :: center(:)
948 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
949 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
954 PURE module subroutine setCenterEuc_D1_D1_RK2(membership, disq, sample, center, size, potential)
955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
956 !DEC$ ATTRIBUTES DLLEXPORT :: setCenterEuc_D1_D1_RK2
959 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
960 real(RKG) ,
intent(in) ,
contiguous :: disq(:)
961 integer(IK) ,
intent(in) ,
contiguous :: membership(:)
962 real(RKG) ,
intent(out) ,
contiguous :: center(:)
963 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
964 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
969 PURE module subroutine setCenterEuc_D1_D1_RK1(membership, disq, sample, center, size, potential)
970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
971 !DEC$ ATTRIBUTES DLLEXPORT :: setCenterEuc_D1_D1_RK1
974 real(RKG) ,
intent(in) ,
contiguous :: sample(:)
975 real(RKG) ,
intent(in) ,
contiguous :: disq(:)
976 integer(IK) ,
intent(in) ,
contiguous :: membership(:)
977 real(RKG) ,
intent(out) ,
contiguous :: center(:)
978 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
979 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
986 PURE module subroutine setCenterEuc_D2_D2_RK5(membership, disq, sample, center, size, potential)
987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
988 !DEC$ ATTRIBUTES DLLEXPORT :: setCenterEuc_D2_D2_RK5
991 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
992 real(RKG) ,
intent(in) ,
contiguous :: disq(:)
993 integer(IK) ,
intent(in) ,
contiguous :: membership(:)
994 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
995 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
996 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1001 PURE module subroutine setCenterEuc_D2_D2_RK4(membership, disq, sample, center, size, potential)
1002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1003 !DEC$ ATTRIBUTES DLLEXPORT :: setCenterEuc_D2_D2_RK4
1006 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1007 real(RKG) ,
intent(in) ,
contiguous :: disq(:)
1008 integer(IK) ,
intent(in) ,
contiguous :: membership(:)
1009 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1010 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1011 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1016 PURE module subroutine setCenterEuc_D2_D2_RK3(membership, disq, sample, center, size, potential)
1017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1018 !DEC$ ATTRIBUTES DLLEXPORT :: setCenterEuc_D2_D2_RK3
1021 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1022 real(RKG) ,
intent(in) ,
contiguous :: disq(:)
1023 integer(IK) ,
intent(in) ,
contiguous :: membership(:)
1024 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1025 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1026 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1031 PURE module subroutine setCenterEuc_D2_D2_RK2(membership, disq, sample, center, size, potential)
1032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1033 !DEC$ ATTRIBUTES DLLEXPORT :: setCenterEuc_D2_D2_RK2
1036 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1037 real(RKG) ,
intent(in) ,
contiguous :: disq(:)
1038 integer(IK) ,
intent(in) ,
contiguous :: membership(:)
1039 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1040 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1041 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1046 PURE module subroutine setCenterEuc_D2_D2_RK1(membership, disq, sample, center, size, potential)
1047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1048 !DEC$ ATTRIBUTES DLLEXPORT :: setCenterEuc_D2_D2_RK1
1051 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1052 real(RKG) ,
intent(in) ,
contiguous :: disq(:)
1053 integer(IK) ,
intent(in) ,
contiguous :: membership(:)
1054 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1055 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1056 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1190 impure module subroutine setKmeansPPDRNGF_RK5(rng, membership, disq, csdisq, sample, ncls)
1191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1192 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPDRNGF_RK5
1195 type(rngf_type) ,
intent(in) :: rng
1196 integer(IK) ,
intent(in) :: ncls
1197 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1198 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1199 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1200 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1205 impure module subroutine setKmeansPPDRNGF_RK4(rng, membership, disq, csdisq, sample, ncls)
1206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1207 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPDRNGF_RK4
1210 type(rngf_type) ,
intent(in) :: rng
1211 integer(IK) ,
intent(in) :: ncls
1212 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1213 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1214 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1215 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1220 impure module subroutine setKmeansPPDRNGF_RK3(rng, membership, disq, csdisq, sample, ncls)
1221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1222 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPDRNGF_RK3
1225 type(rngf_type) ,
intent(in) :: rng
1226 integer(IK) ,
intent(in) :: ncls
1227 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1228 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1229 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1230 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1235 impure module subroutine setKmeansPPDRNGF_RK2(rng, membership, disq, csdisq, sample, ncls)
1236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1237 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPDRNGF_RK2
1240 type(rngf_type) ,
intent(in) :: rng
1241 integer(IK) ,
intent(in) :: ncls
1242 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1243 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1244 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1245 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1250 impure module subroutine setKmeansPPDRNGF_RK1(rng, membership, disq, csdisq, sample, ncls)
1251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1252 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPDRNGF_RK1
1255 type(rngf_type) ,
intent(in) :: rng
1256 integer(IK) ,
intent(in) :: ncls
1257 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1258 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1259 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1260 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1267 PURE module subroutine setKmeansPPDRNGX_RK5(rng, membership, disq, csdisq, sample, ncls)
1268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1269 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPDRNGX_RK5
1272 type(xoshiro256ssw_type),
intent(inout) :: rng
1273 integer(IK) ,
intent(in) :: ncls
1274 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1275 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1276 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1277 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1282 PURE module subroutine setKmeansPPDRNGX_RK4(rng, membership, disq, csdisq, sample, ncls)
1283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1284 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPDRNGX_RK4
1287 type(xoshiro256ssw_type),
intent(inout) :: rng
1288 integer(IK) ,
intent(in) :: ncls
1289 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1290 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1291 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1292 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1297 PURE module subroutine setKmeansPPDRNGX_RK3(rng, membership, disq, csdisq, sample, ncls)
1298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1299 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPDRNGX_RK3
1302 type(xoshiro256ssw_type),
intent(inout) :: rng
1303 integer(IK) ,
intent(in) :: ncls
1304 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1305 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1306 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1307 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1312 PURE module subroutine setKmeansPPDRNGX_RK2(rng, membership, disq, csdisq, sample, ncls)
1313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1314 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPDRNGX_RK2
1317 type(xoshiro256ssw_type),
intent(inout) :: rng
1318 integer(IK) ,
intent(in) :: ncls
1319 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1320 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1321 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1322 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1327 PURE module subroutine setKmeansPPDRNGX_RK1(rng, membership, disq, csdisq, sample, ncls)
1328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1329 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPDRNGX_RK1
1332 type(xoshiro256ssw_type),
intent(inout) :: rng
1333 integer(IK) ,
intent(in) :: ncls
1334 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1335 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1336 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1337 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1350 impure module subroutine setKmeansPPORNGF_RK5(rng, membership, disq, csdisq, sample, center, size, potential)
1351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1352 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPORNGF_RK5
1355 type(rngf_type) ,
intent(in) :: rng
1356 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1357 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1358 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1359 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1360 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1361 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1362 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1367 impure module subroutine setKmeansPPORNGF_RK4(rng, membership, disq, csdisq, sample, center, size, potential)
1368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1369 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPORNGF_RK4
1372 type(rngf_type) ,
intent(in) :: rng
1373 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1374 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1375 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1376 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1377 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1378 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1379 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1384 impure module subroutine setKmeansPPORNGF_RK3(rng, membership, disq, csdisq, sample, center, size, potential)
1385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1386 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPORNGF_RK3
1389 type(rngf_type) ,
intent(in) :: rng
1390 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1391 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1392 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1393 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1394 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1395 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1396 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1401 impure module subroutine setKmeansPPORNGF_RK2(rng, membership, disq, csdisq, sample, center, size, potential)
1402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1403 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPORNGF_RK2
1406 type(rngf_type) ,
intent(in) :: rng
1407 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1408 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1409 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1410 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1411 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1412 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1413 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1418 impure module subroutine setKmeansPPORNGF_RK1(rng, membership, disq, csdisq, sample, center, size, potential)
1419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1420 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPORNGF_RK1
1423 type(rngf_type) ,
intent(in) :: rng
1424 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1425 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1426 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1427 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1428 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1429 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1430 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1437 PURE module subroutine setKmeansPPORNGX_RK5(rng, membership, disq, csdisq, sample, center, size, potential)
1438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1439 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPORNGX_RK5
1442 type(xoshiro256ssw_type),
intent(inout) :: rng
1443 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1444 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1445 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1446 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1447 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1448 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1449 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1454 PURE module subroutine setKmeansPPORNGX_RK4(rng, membership, disq, csdisq, sample, center, size, potential)
1455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1456 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPORNGX_RK4
1459 type(xoshiro256ssw_type),
intent(inout) :: rng
1460 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1461 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1462 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1463 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1464 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1465 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1466 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1471 PURE module subroutine setKmeansPPORNGX_RK3(rng, membership, disq, csdisq, sample, center, size, potential)
1472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1473 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPORNGX_RK3
1476 type(xoshiro256ssw_type),
intent(inout) :: rng
1477 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1478 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1479 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1480 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1481 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1482 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1483 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1488 PURE module subroutine setKmeansPPORNGX_RK2(rng, membership, disq, csdisq, sample, center, size, potential)
1489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1490 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPORNGX_RK2
1493 type(xoshiro256ssw_type),
intent(inout) :: rng
1494 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1495 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1496 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1497 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1498 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1499 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1500 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1505 PURE module subroutine setKmeansPPORNGX_RK1(rng, membership, disq, csdisq, sample, center, size, potential)
1506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1507 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansPPORNGX_RK1
1510 type(xoshiro256ssw_type),
intent(inout) :: rng
1511 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1512 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1513 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1514 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1515 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1516 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1517 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1670 PURE module subroutine setKmeansInit_RK5(membership, disq, sample, center, size, potential, failed, niter, maxniter, minsize)
1671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1672 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansInit_RK5
1675 integer(IK) ,
intent(in) ,
optional :: minsize
1676 integer(IK) ,
intent(in) ,
optional :: maxniter
1677 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1678 real(RKG) ,
intent(inout) ,
contiguous :: disq(:)
1679 real(RKG) ,
intent(inout) ,
contiguous :: center(:,:)
1680 real(RKG) ,
intent(inout) ,
contiguous :: potential(:)
1681 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
1682 integer(IK) ,
intent(inout) ,
contiguous ::
size(:)
1683 integer(IK) ,
intent(out) ,
optional :: niter
1684 logical(LK) ,
intent(out) :: failed
1689 PURE module subroutine setKmeansInit_RK4(membership, disq, sample, center, size, potential, failed, niter, maxniter, minsize)
1690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1691 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansInit_RK4
1694 integer(IK) ,
intent(in) ,
optional :: minsize
1695 integer(IK) ,
intent(in) ,
optional :: maxniter
1696 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1697 real(RKG) ,
intent(inout) ,
contiguous :: disq(:)
1698 real(RKG) ,
intent(inout) ,
contiguous :: center(:,:)
1699 real(RKG) ,
intent(inout) ,
contiguous :: potential(:)
1700 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
1701 integer(IK) ,
intent(inout) ,
contiguous ::
size(:)
1702 integer(IK) ,
intent(out) ,
optional :: niter
1703 logical(LK) ,
intent(out) :: failed
1708 PURE module subroutine setKmeansInit_RK3(membership, disq, sample, center, size, potential, failed, niter, maxniter, minsize)
1709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1710 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansInit_RK3
1713 integer(IK) ,
intent(in) ,
optional :: minsize
1714 integer(IK) ,
intent(in) ,
optional :: maxniter
1715 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1716 real(RKG) ,
intent(inout) ,
contiguous :: disq(:)
1717 real(RKG) ,
intent(inout) ,
contiguous :: center(:,:)
1718 real(RKG) ,
intent(inout) ,
contiguous :: potential(:)
1719 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
1720 integer(IK) ,
intent(inout) ,
contiguous ::
size(:)
1721 integer(IK) ,
intent(out) ,
optional :: niter
1722 logical(LK) ,
intent(out) :: failed
1727 PURE module subroutine setKmeansInit_RK2(membership, disq, sample, center, size, potential, failed, niter, maxniter, minsize)
1728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1729 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansInit_RK2
1732 integer(IK) ,
intent(in) ,
optional :: minsize
1733 integer(IK) ,
intent(in) ,
optional :: maxniter
1734 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1735 real(RKG) ,
intent(inout) ,
contiguous :: disq(:)
1736 real(RKG) ,
intent(inout) ,
contiguous :: center(:,:)
1737 real(RKG) ,
intent(inout) ,
contiguous :: potential(:)
1738 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
1739 integer(IK) ,
intent(inout) ,
contiguous ::
size(:)
1740 integer(IK) ,
intent(out) ,
optional :: niter
1741 logical(LK) ,
intent(out) :: failed
1746 PURE module subroutine setKmeansInit_RK1(membership, disq, sample, center, size, potential, failed, niter, maxniter, minsize)
1747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1748 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansInit_RK1
1751 integer(IK) ,
intent(in) ,
optional :: minsize
1752 integer(IK) ,
intent(in) ,
optional :: maxniter
1753 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1754 real(RKG) ,
intent(inout) ,
contiguous :: disq(:)
1755 real(RKG) ,
intent(inout) ,
contiguous :: center(:,:)
1756 real(RKG) ,
intent(inout) ,
contiguous :: potential(:)
1757 integer(IK) ,
intent(inout) ,
contiguous :: membership(:)
1758 integer(IK) ,
intent(inout) ,
contiguous ::
size(:)
1759 integer(IK) ,
intent(out) ,
optional :: niter
1760 logical(LK) ,
intent(out) :: failed
1767 impure module subroutine setKmeansRNGF_RK5(rng, membership, disq, csdisq, sample, center, size, potential, failed, niter, maxniter, minsize, nfail)
1768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1769 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansRNGF_RK5
1772 type(rngf_type) ,
intent(in) :: rng
1773 integer(IK) ,
intent(in) ,
optional :: minsize
1774 integer(IK) ,
intent(in) ,
optional :: maxniter
1775 integer(IK) ,
intent(in) ,
optional :: nfail
1776 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1777 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1778 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1779 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1780 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1781 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1782 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1783 integer(IK) ,
intent(out) ,
optional :: niter
1784 logical(LK) ,
intent(out) :: failed
1789 impure module subroutine setKmeansRNGF_RK4(rng, membership, disq, csdisq, sample, center, size, potential, failed, niter, maxniter, minsize, nfail)
1790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1791 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansRNGF_RK4
1794 type(rngf_type) ,
intent(in) :: rng
1795 integer(IK) ,
intent(in) ,
optional :: minsize
1796 integer(IK) ,
intent(in) ,
optional :: maxniter
1797 integer(IK) ,
intent(in) ,
optional :: nfail
1798 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1799 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1800 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1801 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1802 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1803 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1804 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1805 integer(IK) ,
intent(out) ,
optional :: niter
1806 logical(LK) ,
intent(out) :: failed
1811 impure module subroutine setKmeansRNGF_RK3(rng, membership, disq, csdisq, sample, center, size, potential, failed, niter, maxniter, minsize, nfail)
1812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1813 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansRNGF_RK3
1816 type(rngf_type) ,
intent(in) :: rng
1817 integer(IK) ,
intent(in) ,
optional :: minsize
1818 integer(IK) ,
intent(in) ,
optional :: maxniter
1819 integer(IK) ,
intent(in) ,
optional :: nfail
1820 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1821 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1822 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1823 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1824 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1825 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1826 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1827 integer(IK) ,
intent(out) ,
optional :: niter
1828 logical(LK) ,
intent(out) :: failed
1833 impure module subroutine setKmeansRNGF_RK2(rng, membership, disq, csdisq, sample, center, size, potential, failed, niter, maxniter, minsize, nfail)
1834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1835 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansRNGF_RK2
1838 type(rngf_type) ,
intent(in) :: rng
1839 integer(IK) ,
intent(in) ,
optional :: minsize
1840 integer(IK) ,
intent(in) ,
optional :: maxniter
1841 integer(IK) ,
intent(in) ,
optional :: nfail
1842 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1843 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1844 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1845 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1846 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1847 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1848 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1849 integer(IK) ,
intent(out) ,
optional :: niter
1850 logical(LK) ,
intent(out) :: failed
1855 impure module subroutine setKmeansRNGF_RK1(rng, membership, disq, csdisq, sample, center, size, potential, failed, niter, maxniter, minsize, nfail)
1856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1857 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansRNGF_RK1
1860 type(rngf_type) ,
intent(in) :: rng
1861 integer(IK) ,
intent(in) ,
optional :: minsize
1862 integer(IK) ,
intent(in) ,
optional :: maxniter
1863 integer(IK) ,
intent(in) ,
optional :: nfail
1864 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1865 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1866 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1867 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1868 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1869 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1870 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1871 integer(IK) ,
intent(out) ,
optional :: niter
1872 logical(LK) ,
intent(out) :: failed
1879 PURE module subroutine setKmeansRNGX_RK5(rng, membership, disq, csdisq, sample, center, size, potential, failed, niter, maxniter, minsize, nfail)
1880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1881 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansRNGX_RK5
1884 type(xoshiro256ssw_type),
intent(inout) :: rng
1885 integer(IK) ,
intent(in) ,
optional :: minsize
1886 integer(IK) ,
intent(in) ,
optional :: maxniter
1887 integer(IK) ,
intent(in) ,
optional :: nfail
1888 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1889 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1890 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1891 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1892 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1893 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1894 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1895 integer(IK) ,
intent(out) ,
optional :: niter
1896 logical(LK) ,
intent(out) :: failed
1901 PURE module subroutine setKmeansRNGX_RK4(rng, membership, disq, csdisq, sample, center, size, potential, failed, niter, maxniter, minsize, nfail)
1902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1903 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansRNGX_RK4
1906 type(xoshiro256ssw_type),
intent(inout) :: rng
1907 integer(IK) ,
intent(in) ,
optional :: minsize
1908 integer(IK) ,
intent(in) ,
optional :: maxniter
1909 integer(IK) ,
intent(in) ,
optional :: nfail
1910 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1911 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1912 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1913 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1914 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1915 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1916 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1917 integer(IK) ,
intent(out) ,
optional :: niter
1918 logical(LK) ,
intent(out) :: failed
1923 PURE module subroutine setKmeansRNGX_RK3(rng, membership, disq, csdisq, sample, center, size, potential, failed, niter, maxniter, minsize, nfail)
1924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1925 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansRNGX_RK3
1928 type(xoshiro256ssw_type),
intent(inout) :: rng
1929 integer(IK) ,
intent(in) ,
optional :: minsize
1930 integer(IK) ,
intent(in) ,
optional :: maxniter
1931 integer(IK) ,
intent(in) ,
optional :: nfail
1932 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1933 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1934 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1935 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1936 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1937 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1938 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1939 integer(IK) ,
intent(out) ,
optional :: niter
1940 logical(LK) ,
intent(out) :: failed
1945 PURE module subroutine setKmeansRNGX_RK2(rng, membership, disq, csdisq, sample, center, size, potential, failed, niter, maxniter, minsize, nfail)
1946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1947 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansRNGX_RK2
1950 type(xoshiro256ssw_type),
intent(inout) :: rng
1951 integer(IK) ,
intent(in) ,
optional :: minsize
1952 integer(IK) ,
intent(in) ,
optional :: maxniter
1953 integer(IK) ,
intent(in) ,
optional :: nfail
1954 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1955 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1956 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1957 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1958 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1959 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1960 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1961 integer(IK) ,
intent(out) ,
optional :: niter
1962 logical(LK) ,
intent(out) :: failed
1967 PURE module subroutine setKmeansRNGX_RK1(rng, membership, disq, csdisq, sample, center, size, potential, failed, niter, maxniter, minsize, nfail)
1968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1969 !DEC$ ATTRIBUTES DLLEXPORT :: setKmeansRNGX_RK1
1972 type(xoshiro256ssw_type),
intent(inout) :: rng
1973 integer(IK) ,
intent(in) ,
optional :: minsize
1974 integer(IK) ,
intent(in) ,
optional :: maxniter
1975 integer(IK) ,
intent(in) ,
optional :: nfail
1976 real(RKG) ,
intent(in) ,
contiguous :: sample(:,:)
1977 real(RKG) ,
intent(out) ,
contiguous :: disq(:)
1978 real(RKG) ,
intent(out) ,
contiguous :: csdisq(
0:)
1979 real(RKG) ,
intent(out) ,
contiguous :: center(:,:)
1980 real(RKG) ,
intent(out) ,
contiguous :: potential(:)
1981 integer(IK) ,
intent(out) ,
contiguous :: membership(:)
1982 integer(IK) ,
intent(out) ,
contiguous ::
size(:)
1983 integer(IK) ,
intent(out) ,
optional :: niter
1984 logical(LK) ,
intent(out) :: failed
1998end module pm_clusKmeans
Compute and return the centers of the clusters corresponding to the input sample, cluster membership ...
Compute and return an asymptotically optimal set of cluster centers for the input sample,...
Compute and return an iteratively-refined set of cluster centers given the input sample using the k-m...
Compute and return the memberships and minimum distances of a set of input points with respect to the...
This module contains procedures and routines for the computing the Kmeans clustering of a given set o...
character(*, SK), parameter MODULE_NAME
This module contains classes and procedures for computing various statistical quantities related to t...
type(rngf_type) rngf
The scalar constant object of type rngf_type whose presence signified the use of the Fortran intrinsi...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This is a concrete derived type whose instances can be used to define/request the default uniform ran...
This is the derived type for declaring and generating objects of type xoshiro256ssw_type containing a...