155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
156 !DIR$ ATTRIBUTES DLLEXPORT ::
zscore
286 PURE module function getNormed_ACK_ONO_D1_CK5(sample, shift, scale)
result(sampleNormed)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_ONO_D1_CK5
291 complex(CKG) ,
intent(in),
contiguous :: sample(:)
292 complex(CKG) ,
intent(in) :: shift
293 complex(CKG) ,
intent(in) :: scale
294 complex(CKG) :: sampleNormed(
size(sample,
1, IK))
299 PURE module function getNormed_ACK_ONO_D1_CK4(sample, shift, scale)
result(sampleNormed)
300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
301 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_ONO_D1_CK4
304 complex(CKG) ,
intent(in),
contiguous :: sample(:)
305 complex(CKG) ,
intent(in) :: shift
306 complex(CKG) ,
intent(in) :: scale
307 complex(CKG) :: sampleNormed(
size(sample,
1, IK))
312 PURE module function getNormed_ACK_ONO_D1_CK3(sample, shift, scale)
result(sampleNormed)
313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
314 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_ONO_D1_CK3
317 complex(CKG) ,
intent(in),
contiguous :: sample(:)
318 complex(CKG) ,
intent(in) :: shift
319 complex(CKG) ,
intent(in) :: scale
320 complex(CKG) :: sampleNormed(
size(sample,
1, IK))
325 PURE module function getNormed_ACK_ONO_D1_CK2(sample, shift, scale)
result(sampleNormed)
326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
327 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_ONO_D1_CK2
330 complex(CKG) ,
intent(in),
contiguous :: sample(:)
331 complex(CKG) ,
intent(in) :: shift
332 complex(CKG) ,
intent(in) :: scale
333 complex(CKG) :: sampleNormed(
size(sample,
1, IK))
338 PURE module function getNormed_ACK_ONO_D1_CK1(sample, shift, scale)
result(sampleNormed)
339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
340 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_ONO_D1_CK1
343 complex(CKG) ,
intent(in),
contiguous :: sample(:)
344 complex(CKG) ,
intent(in) :: shift
345 complex(CKG) ,
intent(in) :: scale
346 complex(CKG) :: sampleNormed(
size(sample,
1, IK))
353 PURE module function getNormed_ACK_ONO_D2_CK5(sample, dim, shift, scale)
result(sampleNormed)
354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
355 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_ONO_D2_CK5
358 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
359 complex(CKG) ,
intent(in),
contiguous :: shift(:)
360 complex(CKG) ,
intent(in),
contiguous ::
scale(:)
361 integer(IK) ,
intent(in) :: dim
362 complex(CKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
367 PURE module function getNormed_ACK_ONO_D2_CK4(sample, dim, shift, scale)
result(sampleNormed)
368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
369 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_ONO_D2_CK4
372 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
373 complex(CKG) ,
intent(in),
contiguous :: shift(:)
374 complex(CKG) ,
intent(in),
contiguous ::
scale(:)
375 integer(IK) ,
intent(in) :: dim
376 complex(CKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
381 PURE module function getNormed_ACK_ONO_D2_CK3(sample, dim, shift, scale)
result(sampleNormed)
382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
383 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_ONO_D2_CK3
386 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
387 complex(CKG) ,
intent(in),
contiguous :: shift(:)
388 complex(CKG) ,
intent(in),
contiguous ::
scale(:)
389 integer(IK) ,
intent(in) :: dim
390 complex(CKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
395 PURE module function getNormed_ACK_ONO_D2_CK2(sample, dim, shift, scale)
result(sampleNormed)
396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
397 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_ONO_D2_CK2
400 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
401 complex(CKG) ,
intent(in),
contiguous :: shift(:)
402 complex(CKG) ,
intent(in),
contiguous ::
scale(:)
403 integer(IK) ,
intent(in) :: dim
404 complex(CKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
409 PURE module function getNormed_ACK_ONO_D2_CK1(sample, dim, shift, scale)
result(sampleNormed)
410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
411 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_ONO_D2_CK1
414 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
415 complex(CKG) ,
intent(in),
contiguous :: shift(:)
416 complex(CKG) ,
intent(in),
contiguous ::
scale(:)
417 integer(IK) ,
intent(in) :: dim
418 complex(CKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
425 PURE module function getNormed_ACK_OTH_D2_CK5(sample, dim, shift, scale, operation)
result(sampleNormed)
426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
427 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_OTH_D2_CK5
430 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
431 complex(CKG) ,
intent(in),
contiguous :: shift(:)
432 complex(CKG) ,
intent(in),
contiguous ::
scale(:)
433 integer(IK) ,
intent(in) :: dim
434 type(transHerm_type),
intent(in) :: operation
435 complex(CKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
440 PURE module function getNormed_ACK_OTH_D2_CK4(sample, dim, shift, scale, operation)
result(sampleNormed)
441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
442 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_OTH_D2_CK4
445 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
446 complex(CKG) ,
intent(in),
contiguous :: shift(:)
447 complex(CKG) ,
intent(in),
contiguous ::
scale(:)
448 integer(IK) ,
intent(in) :: dim
449 type(transHerm_type),
intent(in) :: operation
450 complex(CKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
455 PURE module function getNormed_ACK_OTH_D2_CK3(sample, dim, shift, scale, operation)
result(sampleNormed)
456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
457 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_OTH_D2_CK3
460 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
461 complex(CKG) ,
intent(in),
contiguous :: shift(:)
462 complex(CKG) ,
intent(in),
contiguous ::
scale(:)
463 integer(IK) ,
intent(in) :: dim
464 type(transHerm_type),
intent(in) :: operation
465 complex(CKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
470 PURE module function getNormed_ACK_OTH_D2_CK2(sample, dim, shift, scale, operation)
result(sampleNormed)
471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
472 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_OTH_D2_CK2
475 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
476 complex(CKG) ,
intent(in),
contiguous :: shift(:)
477 complex(CKG) ,
intent(in),
contiguous ::
scale(:)
478 integer(IK) ,
intent(in) :: dim
479 type(transHerm_type),
intent(in) :: operation
480 complex(CKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
485 PURE module function getNormed_ACK_OTH_D2_CK1(sample, dim, shift, scale, operation)
result(sampleNormed)
486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
487 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ACK_OTH_D2_CK1
490 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
491 complex(CKG) ,
intent(in),
contiguous :: shift(:)
492 complex(CKG) ,
intent(in),
contiguous ::
scale(:)
493 integer(IK) ,
intent(in) :: dim
494 type(transHerm_type),
intent(in) :: operation
495 complex(CKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
510 PURE module function getNormed_ARK_ONO_D1_CK5(sample, shift, scale)
result(sampleNormed)
511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
512 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D1_CK5
515 complex(CKG) ,
intent(in),
contiguous :: sample(:)
516 complex(CKG) ,
intent(in) :: shift
517 real(CKG) ,
intent(in) :: scale
518 complex(CKG) :: sampleNormed(
size(sample,
1, IK))
523 PURE module function getNormed_ARK_ONO_D1_CK4(sample, shift, scale)
result(sampleNormed)
524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
525 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D1_CK4
528 complex(CKG) ,
intent(in),
contiguous :: sample(:)
529 complex(CKG) ,
intent(in) :: shift
530 real(CKG) ,
intent(in) :: scale
531 complex(CKG) :: sampleNormed(
size(sample,
1, IK))
536 PURE module function getNormed_ARK_ONO_D1_CK3(sample, shift, scale)
result(sampleNormed)
537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
538 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D1_CK3
541 complex(CKG) ,
intent(in),
contiguous :: sample(:)
542 complex(CKG) ,
intent(in) :: shift
543 real(CKG) ,
intent(in) :: scale
544 complex(CKG) :: sampleNormed(
size(sample,
1, IK))
549 PURE module function getNormed_ARK_ONO_D1_CK2(sample, shift, scale)
result(sampleNormed)
550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
551 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D1_CK2
554 complex(CKG) ,
intent(in),
contiguous :: sample(:)
555 complex(CKG) ,
intent(in) :: shift
556 real(CKG) ,
intent(in) :: scale
557 complex(CKG) :: sampleNormed(
size(sample,
1, IK))
562 PURE module function getNormed_ARK_ONO_D1_CK1(sample, shift, scale)
result(sampleNormed)
563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
564 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D1_CK1
567 complex(CKG) ,
intent(in),
contiguous :: sample(:)
568 complex(CKG) ,
intent(in) :: shift
569 real(CKG) ,
intent(in) :: scale
570 complex(CKG) :: sampleNormed(
size(sample,
1, IK))
577 PURE module function getNormed_ARK_ONO_D2_CK5(sample, dim, shift, scale)
result(sampleNormed)
578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
579 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D2_CK5
582 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
583 complex(CKG) ,
intent(in),
contiguous :: shift(:)
584 real(CKG) ,
intent(in),
contiguous ::
scale(:)
585 integer(IK) ,
intent(in) :: dim
586 complex(CKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
591 PURE module function getNormed_ARK_ONO_D2_CK4(sample, dim, shift, scale)
result(sampleNormed)
592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
593 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D2_CK4
596 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
597 complex(CKG) ,
intent(in),
contiguous :: shift(:)
598 real(CKG) ,
intent(in),
contiguous ::
scale(:)
599 integer(IK) ,
intent(in) :: dim
600 complex(CKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
605 PURE module function getNormed_ARK_ONO_D2_CK3(sample, dim, shift, scale)
result(sampleNormed)
606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
607 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D2_CK3
610 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
611 complex(CKG) ,
intent(in),
contiguous :: shift(:)
612 real(CKG) ,
intent(in),
contiguous ::
scale(:)
613 integer(IK) ,
intent(in) :: dim
614 complex(CKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
619 PURE module function getNormed_ARK_ONO_D2_CK2(sample, dim, shift, scale)
result(sampleNormed)
620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
621 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D2_CK2
624 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
625 complex(CKG) ,
intent(in),
contiguous :: shift(:)
626 real(CKG) ,
intent(in),
contiguous ::
scale(:)
627 integer(IK) ,
intent(in) :: dim
628 complex(CKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
633 PURE module function getNormed_ARK_ONO_D2_CK1(sample, dim, shift, scale)
result(sampleNormed)
634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
635 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D2_CK1
638 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
639 complex(CKG) ,
intent(in),
contiguous :: shift(:)
640 real(CKG) ,
intent(in),
contiguous ::
scale(:)
641 integer(IK) ,
intent(in) :: dim
642 complex(CKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
649 PURE module function getNormed_ARK_OTH_D2_CK5(sample, dim, shift, scale, operation)
result(sampleNormed)
650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
651 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_OTH_D2_CK5
654 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
655 complex(CKG) ,
intent(in),
contiguous :: shift(:)
656 real(CKG) ,
intent(in),
contiguous ::
scale(:)
657 integer(IK) ,
intent(in) :: dim
658 type(transHerm_type),
intent(in) :: operation
659 complex(CKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
664 PURE module function getNormed_ARK_OTH_D2_CK4(sample, dim, shift, scale, operation)
result(sampleNormed)
665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
666 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_OTH_D2_CK4
669 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
670 complex(CKG) ,
intent(in),
contiguous :: shift(:)
671 real(CKG) ,
intent(in),
contiguous ::
scale(:)
672 integer(IK) ,
intent(in) :: dim
673 type(transHerm_type),
intent(in) :: operation
674 complex(CKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
679 PURE module function getNormed_ARK_OTH_D2_CK3(sample, dim, shift, scale, operation)
result(sampleNormed)
680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
681 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_OTH_D2_CK3
684 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
685 complex(CKG) ,
intent(in),
contiguous :: shift(:)
686 real(CKG) ,
intent(in),
contiguous ::
scale(:)
687 integer(IK) ,
intent(in) :: dim
688 type(transHerm_type),
intent(in) :: operation
689 complex(CKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
694 PURE module function getNormed_ARK_OTH_D2_CK2(sample, dim, shift, scale, operation)
result(sampleNormed)
695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
696 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_OTH_D2_CK2
699 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
700 complex(CKG) ,
intent(in),
contiguous :: shift(:)
701 real(CKG) ,
intent(in),
contiguous ::
scale(:)
702 integer(IK) ,
intent(in) :: dim
703 type(transHerm_type),
intent(in) :: operation
704 complex(CKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
709 PURE module function getNormed_ARK_OTH_D2_CK1(sample, dim, shift, scale, operation)
result(sampleNormed)
710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
711 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_OTH_D2_CK1
714 complex(CKG) ,
intent(in),
contiguous :: sample(:,:)
715 complex(CKG) ,
intent(in),
contiguous :: shift(:)
716 real(CKG) ,
intent(in),
contiguous ::
scale(:)
717 integer(IK) ,
intent(in) :: dim
718 type(transHerm_type),
intent(in) :: operation
719 complex(CKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
734 PURE module function getNormed_ARK_ONO_D1_RK5(sample, shift, scale)
result(sampleNormed)
735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
736 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D1_RK5
739 real(RKG) ,
intent(in),
contiguous :: sample(:)
740 real(RKG) ,
intent(in) :: shift
741 real(RKG) ,
intent(in) :: scale
742 real(RKG) :: sampleNormed(
size(sample,
1, IK))
747 PURE module function getNormed_ARK_ONO_D1_RK4(sample, shift, scale)
result(sampleNormed)
748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
749 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D1_RK4
752 real(RKG) ,
intent(in),
contiguous :: sample(:)
753 real(RKG) ,
intent(in) :: shift
754 real(RKG) ,
intent(in) :: scale
755 real(RKG) :: sampleNormed(
size(sample,
1, IK))
760 PURE module function getNormed_ARK_ONO_D1_RK3(sample, shift, scale)
result(sampleNormed)
761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
762 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D1_RK3
765 real(RKG) ,
intent(in),
contiguous :: sample(:)
766 real(RKG) ,
intent(in) :: shift
767 real(RKG) ,
intent(in) :: scale
768 real(RKG) :: sampleNormed(
size(sample,
1, IK))
773 PURE module function getNormed_ARK_ONO_D1_RK2(sample, shift, scale)
result(sampleNormed)
774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
775 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D1_RK2
778 real(RKG) ,
intent(in),
contiguous :: sample(:)
779 real(RKG) ,
intent(in) :: shift
780 real(RKG) ,
intent(in) :: scale
781 real(RKG) :: sampleNormed(
size(sample,
1, IK))
786 PURE module function getNormed_ARK_ONO_D1_RK1(sample, shift, scale)
result(sampleNormed)
787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
788 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D1_RK1
791 real(RKG) ,
intent(in),
contiguous :: sample(:)
792 real(RKG) ,
intent(in) :: shift
793 real(RKG) ,
intent(in) :: scale
794 real(RKG) :: sampleNormed(
size(sample,
1, IK))
801 PURE module function getNormed_ARK_ONO_D2_RK5(sample, dim, shift, scale)
result(sampleNormed)
802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
803 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D2_RK5
806 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
807 real(RKG) ,
intent(in),
contiguous :: shift(:)
808 real(RKG) ,
intent(in),
contiguous ::
scale(:)
809 integer(IK) ,
intent(in) :: dim
810 real(RKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
815 PURE module function getNormed_ARK_ONO_D2_RK4(sample, dim, shift, scale)
result(sampleNormed)
816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
817 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D2_RK4
820 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
821 real(RKG) ,
intent(in),
contiguous :: shift(:)
822 real(RKG) ,
intent(in),
contiguous ::
scale(:)
823 integer(IK) ,
intent(in) :: dim
824 real(RKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
829 PURE module function getNormed_ARK_ONO_D2_RK3(sample, dim, shift, scale)
result(sampleNormed)
830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
831 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D2_RK3
834 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
835 real(RKG) ,
intent(in),
contiguous :: shift(:)
836 real(RKG) ,
intent(in),
contiguous ::
scale(:)
837 integer(IK) ,
intent(in) :: dim
838 real(RKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
843 PURE module function getNormed_ARK_ONO_D2_RK2(sample, dim, shift, scale)
result(sampleNormed)
844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
845 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D2_RK2
848 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
849 real(RKG) ,
intent(in),
contiguous :: shift(:)
850 real(RKG) ,
intent(in),
contiguous ::
scale(:)
851 integer(IK) ,
intent(in) :: dim
852 real(RKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
857 PURE module function getNormed_ARK_ONO_D2_RK1(sample, dim, shift, scale)
result(sampleNormed)
858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
859 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_ONO_D2_RK1
862 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
863 real(RKG) ,
intent(in),
contiguous :: shift(:)
864 real(RKG) ,
intent(in),
contiguous ::
scale(:)
865 integer(IK) ,
intent(in) :: dim
866 real(RKG) :: sampleNormed(
size(sample,
1, IK),
size(sample,
2, IK))
873 PURE module function getNormed_ARK_OTH_D2_RK5(sample, dim, shift, scale, operation)
result(sampleNormed)
874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
875 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_OTH_D2_RK5
878 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
879 real(RKG) ,
intent(in),
contiguous :: shift(:)
880 real(RKG) ,
intent(in),
contiguous ::
scale(:)
881 integer(IK) ,
intent(in) :: dim
882 type(transHerm_type),
intent(in) :: operation
883 real(RKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
888 PURE module function getNormed_ARK_OTH_D2_RK4(sample, dim, shift, scale, operation)
result(sampleNormed)
889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
890 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_OTH_D2_RK4
893 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
894 real(RKG) ,
intent(in),
contiguous :: shift(:)
895 real(RKG) ,
intent(in),
contiguous ::
scale(:)
896 integer(IK) ,
intent(in) :: dim
897 type(transHerm_type),
intent(in) :: operation
898 real(RKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
903 PURE module function getNormed_ARK_OTH_D2_RK3(sample, dim, shift, scale, operation)
result(sampleNormed)
904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
905 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_OTH_D2_RK3
908 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
909 real(RKG) ,
intent(in),
contiguous :: shift(:)
910 real(RKG) ,
intent(in),
contiguous ::
scale(:)
911 integer(IK) ,
intent(in) :: dim
912 type(transHerm_type),
intent(in) :: operation
913 real(RKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
918 PURE module function getNormed_ARK_OTH_D2_RK2(sample, dim, shift, scale, operation)
result(sampleNormed)
919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
920 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_OTH_D2_RK2
923 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
924 real(RKG) ,
intent(in),
contiguous :: shift(:)
925 real(RKG) ,
intent(in),
contiguous ::
scale(:)
926 integer(IK) ,
intent(in) :: dim
927 type(transHerm_type),
intent(in) :: operation
928 real(RKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
933 PURE module function getNormed_ARK_OTH_D2_RK1(sample, dim, shift, scale, operation)
result(sampleNormed)
934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
935 !DEC$ ATTRIBUTES DLLEXPORT :: getNormed_ARK_OTH_D2_RK1
938 real(RKG) ,
intent(in),
contiguous :: sample(:,:)
939 real(RKG) ,
intent(in),
contiguous :: shift(:)
940 real(RKG) ,
intent(in),
contiguous ::
scale(:)
941 integer(IK) ,
intent(in) :: dim
942 type(transHerm_type),
intent(in) :: operation
943 real(RKG) :: sampleNormed(
size(sample,
2, IK),
size(sample,
1, IK))
1064 PURE module subroutine setNormed_ACK_D1_CK5(sample, shift, scale)
1065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1066 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ACK_D1_CK5
1069 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1070 complex(CKG) ,
intent(in) :: shift
1071 complex(CKG) ,
intent(in) :: scale
1076 PURE module subroutine setNormed_ACK_D1_CK4(sample, shift, scale)
1077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1078 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ACK_D1_CK4
1081 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1082 complex(CKG) ,
intent(in) :: shift
1083 complex(CKG) ,
intent(in) :: scale
1088 PURE module subroutine setNormed_ACK_D1_CK3(sample, shift, scale)
1089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1090 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ACK_D1_CK3
1093 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1094 complex(CKG) ,
intent(in) :: shift
1095 complex(CKG) ,
intent(in) :: scale
1100 PURE module subroutine setNormed_ACK_D1_CK2(sample, shift, scale)
1101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1102 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ACK_D1_CK2
1105 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1106 complex(CKG) ,
intent(in) :: shift
1107 complex(CKG) ,
intent(in) :: scale
1112 PURE module subroutine setNormed_ACK_D1_CK1(sample, shift, scale)
1113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1114 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ACK_D1_CK1
1117 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1118 complex(CKG) ,
intent(in) :: shift
1119 complex(CKG) ,
intent(in) :: scale
1126 PURE module subroutine setNormed_ACK_D2_CK5(sample, dim, shift, scale)
1127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1128 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ACK_D2_CK5
1131 integer(IK) ,
intent(in) :: dim
1132 complex(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1133 complex(CKG) ,
intent(in) ,
contiguous :: shift(:)
1134 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1139 PURE module subroutine setNormed_ACK_D2_CK4(sample, dim, shift, scale)
1140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1141 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ACK_D2_CK4
1144 integer(IK) ,
intent(in) :: dim
1145 complex(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1146 complex(CKG) ,
intent(in) ,
contiguous :: shift(:)
1147 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1152 PURE module subroutine setNormed_ACK_D2_CK3(sample, dim, shift, scale)
1153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1154 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ACK_D2_CK3
1157 integer(IK) ,
intent(in) :: dim
1158 complex(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1159 complex(CKG) ,
intent(in) ,
contiguous :: shift(:)
1160 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1165 PURE module subroutine setNormed_ACK_D2_CK2(sample, dim, shift, scale)
1166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1167 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ACK_D2_CK2
1170 integer(IK) ,
intent(in) :: dim
1171 complex(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1172 complex(CKG) ,
intent(in) ,
contiguous :: shift(:)
1173 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1178 PURE module subroutine setNormed_ACK_D2_CK1(sample, dim, shift, scale)
1179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1180 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ACK_D2_CK1
1183 integer(IK) ,
intent(in) :: dim
1184 complex(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1185 complex(CKG) ,
intent(in) ,
contiguous :: shift(:)
1186 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1201 PURE module subroutine setNormed_ARK_D1_CK5(sample, shift, scale)
1202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1203 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D1_CK5
1206 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1207 complex(CKG) ,
intent(in) :: shift
1208 real(CKG) ,
intent(in) :: scale
1213 PURE module subroutine setNormed_ARK_D1_CK4(sample, shift, scale)
1214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1215 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D1_CK4
1218 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1219 complex(CKG) ,
intent(in) :: shift
1220 real(CKG) ,
intent(in) :: scale
1225 PURE module subroutine setNormed_ARK_D1_CK3(sample, shift, scale)
1226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1227 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D1_CK3
1230 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1231 complex(CKG) ,
intent(in) :: shift
1232 real(CKG) ,
intent(in) :: scale
1237 PURE module subroutine setNormed_ARK_D1_CK2(sample, shift, scale)
1238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1239 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D1_CK2
1242 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1243 complex(CKG) ,
intent(in) :: shift
1244 real(CKG) ,
intent(in) :: scale
1249 PURE module subroutine setNormed_ARK_D1_CK1(sample, shift, scale)
1250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1251 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D1_CK1
1254 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:)
1255 complex(CKG) ,
intent(in) :: shift
1256 real(CKG) ,
intent(in) :: scale
1263 PURE module subroutine setNormed_ARK_D2_CK5(sample, dim, shift, scale)
1264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1265 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D2_CK5
1268 integer(IK) ,
intent(in) :: dim
1269 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1270 complex(CKG) ,
intent(in) ,
contiguous :: shift(:)
1271 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1276 PURE module subroutine setNormed_ARK_D2_CK4(sample, dim, shift, scale)
1277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1278 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D2_CK4
1281 integer(IK) ,
intent(in) :: dim
1282 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1283 complex(CKG) ,
intent(in) ,
contiguous :: shift(:)
1284 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1289 PURE module subroutine setNormed_ARK_D2_CK3(sample, dim, shift, scale)
1290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1291 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D2_CK3
1294 integer(IK) ,
intent(in) :: dim
1295 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1296 complex(CKG) ,
intent(in) ,
contiguous :: shift(:)
1297 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1302 PURE module subroutine setNormed_ARK_D2_CK2(sample, dim, shift, scale)
1303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1304 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D2_CK2
1307 integer(IK) ,
intent(in) :: dim
1308 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1309 complex(CKG) ,
intent(in) ,
contiguous :: shift(:)
1310 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1315 PURE module subroutine setNormed_ARK_D2_CK1(sample, dim, shift, scale)
1316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1317 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D2_CK1
1320 integer(IK) ,
intent(in) :: dim
1321 real(CKG) ,
intent(in) ,
contiguous ::
scale(:)
1322 complex(CKG) ,
intent(in) ,
contiguous :: shift(:)
1323 complex(CKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1338 PURE module subroutine setNormed_ARK_D1_RK5(sample, shift, scale)
1339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1340 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D1_RK5
1343 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1344 real(RKG) ,
intent(in) :: shift
1345 real(RKG) ,
intent(in) :: scale
1350 PURE module subroutine setNormed_ARK_D1_RK4(sample, shift, scale)
1351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1352 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D1_RK4
1355 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1356 real(RKG) ,
intent(in) :: shift
1357 real(RKG) ,
intent(in) :: scale
1362 PURE module subroutine setNormed_ARK_D1_RK3(sample, shift, scale)
1363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1364 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D1_RK3
1367 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1368 real(RKG) ,
intent(in) :: shift
1369 real(RKG) ,
intent(in) :: scale
1374 PURE module subroutine setNormed_ARK_D1_RK2(sample, shift, scale)
1375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1376 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D1_RK2
1379 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1380 real(RKG) ,
intent(in) :: shift
1381 real(RKG) ,
intent(in) :: scale
1386 PURE module subroutine setNormed_ARK_D1_RK1(sample, shift, scale)
1387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1388 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D1_RK1
1391 real(RKG) ,
intent(inout) ,
contiguous :: sample(:)
1392 real(RKG) ,
intent(in) :: shift
1393 real(RKG) ,
intent(in) :: scale
1400 PURE module subroutine setNormed_ARK_D2_RK5(sample, dim, shift, scale)
1401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1402 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D2_RK5
1405 integer(IK) ,
intent(in) :: dim
1406 real(RKG) ,
intent(in) ,
contiguous :: shift(:)
1407 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1408 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1413 PURE module subroutine setNormed_ARK_D2_RK4(sample, dim, shift, scale)
1414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1415 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D2_RK4
1418 integer(IK) ,
intent(in) :: dim
1419 real(RKG) ,
intent(in) ,
contiguous :: shift(:)
1420 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1421 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1426 PURE module subroutine setNormed_ARK_D2_RK3(sample, dim, shift, scale)
1427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1428 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D2_RK3
1431 integer(IK) ,
intent(in) :: dim
1432 real(RKG) ,
intent(in) ,
contiguous :: shift(:)
1433 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1434 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1439 PURE module subroutine setNormed_ARK_D2_RK2(sample, dim, shift, scale)
1440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1441 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D2_RK2
1444 integer(IK) ,
intent(in) :: dim
1445 real(RKG) ,
intent(in) ,
contiguous :: shift(:)
1446 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1447 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
1452 PURE module subroutine setNormed_ARK_D2_RK1(sample, dim, shift, scale)
1453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1454 !DEC$ ATTRIBUTES DLLEXPORT :: setNormed_ARK_D2_RK1
1457 integer(IK) ,
intent(in) :: dim
1458 real(RKG) ,
intent(in) ,
contiguous :: shift(:)
1459 real(RKG) ,
intent(in) ,
contiguous ::
scale(:)
1460 real(RKG) ,
intent(inout) ,
contiguous :: sample(:,:)
Generate a sample of shape (nsam), or (ndim, nsam) or (nsam, ndim) that is normalized by the specifie...
Return a sample of shape (nsam), or (ndim, nsam) or (nsam, ndim) that is normalized by the specified ...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains abstract and concrete derived types and procedures related to various common mat...
character(*, SK), parameter MODULE_NAME
type(transHerm_type), parameter transHerm
This is a scalar parameter object of type transHerm_type that is exclusively used to request Hermitia...
This module contains classes and procedures for normalizing univariate or multivariate samples by arb...
type(zscore_type), parameter zscore
This module contains classes and procedures for scaling (i.e., multiplying) univariate or multivariat...
type(stdscale_type), parameter stdscale
This module contains classes and procedures for shifting univariate or multivariate samples by arbitr...
type(meanshift_type), parameter meanshift
This is a concrete derived type whose instances are exclusively used to request Hermitian (conjugate)...
This is the derived type whose instances are meant to signify a sample shifting by an amount equal to...
This is the derived type whose instances are meant to signify a sample scaling by an amount equal to ...
This is the derived type whose instances are meant to signify a sample shifting by an amount equal to...