176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
177 !DIR$ ATTRIBUTES DLLEXPORT ::
aweight
234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
235 !DIR$ ATTRIBUTES DLLEXPORT ::
fweight
291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
292 !DIR$ ATTRIBUTES DLLEXPORT ::
rweight
379 PURE module function getReweight_IK_IK5(weight, skip)
result(reweight)
380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
381 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_IK_IK5
384 integer(IKG) ,
intent(in) ,
contiguous :: weight(:)
385 integer(IKG) ,
intent(in) :: skip
386 integer(IKG) :: reweight(
size(weight,
1, IK))
391 PURE module function getReweight_IK_IK4(weight, skip)
result(reweight)
392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
393 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_IK_IK4
396 integer(IKG) ,
intent(in) ,
contiguous :: weight(:)
397 integer(IKG) ,
intent(in) :: skip
398 integer(IKG) :: reweight(
size(weight,
1, IK))
403 PURE module function getReweight_IK_IK3(weight, skip)
result(reweight)
404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
405 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_IK_IK3
408 integer(IKG) ,
intent(in) ,
contiguous :: weight(:)
409 integer(IKG) ,
intent(in) :: skip
410 integer(IKG) :: reweight(
size(weight,
1, IK))
415 PURE module function getReweight_IK_IK2(weight, skip)
result(reweight)
416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
417 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_IK_IK2
420 integer(IKG) ,
intent(in) ,
contiguous :: weight(:)
421 integer(IKG) ,
intent(in) :: skip
422 integer(IKG) :: reweight(
size(weight,
1, IK))
427 PURE module function getReweight_IK_IK1(weight, skip)
result(reweight)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_IK_IK1
432 integer(IKG) ,
intent(in) ,
contiguous :: weight(:)
433 integer(IKG) ,
intent(in) :: skip
434 integer(IKG) :: reweight(
size(weight,
1, IK))
441 PURE module function getReweight_RK_RK5(weight, skip)
result(reweight)
442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
443 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_RK_RK5
446 real(RKG) ,
intent(in) ,
contiguous :: weight(:)
447 real(RKG) ,
intent(in) :: skip
448 real(RKG) :: reweight(
size(weight,
1, IK))
453 PURE module function getReweight_RK_RK4(weight, skip)
result(reweight)
454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
455 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_RK_RK4
458 real(RKG) ,
intent(in) ,
contiguous :: weight(:)
459 real(RKG) ,
intent(in) :: skip
460 real(RKG) :: reweight(
size(weight,
1, IK))
465 PURE module function getReweight_RK_RK3(weight, skip)
result(reweight)
466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
467 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_RK_RK3
470 real(RKG) ,
intent(in) ,
contiguous :: weight(:)
471 real(RKG) ,
intent(in) :: skip
472 real(RKG) :: reweight(
size(weight,
1, IK))
477 PURE module function getReweight_RK_RK2(weight, skip)
result(reweight)
478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
479 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_RK_RK2
482 real(RKG) ,
intent(in) ,
contiguous :: weight(:)
483 real(RKG) ,
intent(in) :: skip
484 real(RKG) :: reweight(
size(weight,
1, IK))
489 PURE module function getReweight_RK_RK1(weight, skip)
result(reweight)
490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
491 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_RK_RK1
494 real(RKG) ,
intent(in) ,
contiguous :: weight(:)
495 real(RKG) ,
intent(in) :: skip
496 real(RKG) :: reweight(
size(weight,
1, IK))
503 PURE module function getReweight_IK_RK5(weight, skip)
result(reweight)
504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
505 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_IK_RK5
508 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
509 real(RKG) ,
intent(in) :: skip
510 integer(IK) :: reweight(
size(weight,
1, IK))
515 PURE module function getReweight_IK_RK4(weight, skip)
result(reweight)
516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
517 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_IK_RK4
520 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
521 real(RKG) ,
intent(in) :: skip
522 integer(IK) :: reweight(
size(weight,
1, IK))
527 PURE module function getReweight_IK_RK3(weight, skip)
result(reweight)
528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
529 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_IK_RK3
532 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
533 real(RKG) ,
intent(in) :: skip
534 integer(IK) :: reweight(
size(weight,
1, IK))
539 PURE module function getReweight_IK_RK2(weight, skip)
result(reweight)
540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
541 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_IK_RK2
544 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
545 real(RKG) ,
intent(in) :: skip
546 integer(IK) :: reweight(
size(weight,
1, IK))
551 PURE module function getReweight_IK_RK1(weight, skip)
result(reweight)
552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
553 !DEC$ ATTRIBUTES DLLEXPORT :: getReweight_IK_RK1
556 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
557 real(RKG) ,
intent(in) :: skip
558 integer(IK) :: reweight(
size(weight,
1, IK))
645 PURE module subroutine setReweight_IK_IK5(weight, skip)
646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
647 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_IK_IK5
650 integer(IKG) ,
intent(inout) ,
contiguous :: weight(:)
651 integer(IKG) ,
intent(in) :: skip
652 integer(IKG) :: reweight(
size(weight,
1, IK))
657 PURE module subroutine setReweight_IK_IK4(weight, skip)
658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
659 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_IK_IK4
662 integer(IKG) ,
intent(inout) ,
contiguous :: weight(:)
663 integer(IKG) ,
intent(in) :: skip
664 integer(IKG) :: reweight(
size(weight,
1, IK))
669 PURE module subroutine setReweight_IK_IK3(weight, skip)
670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
671 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_IK_IK3
674 integer(IKG) ,
intent(inout) ,
contiguous :: weight(:)
675 integer(IKG) ,
intent(in) :: skip
676 integer(IKG) :: reweight(
size(weight,
1, IK))
681 PURE module subroutine setReweight_IK_IK2(weight, skip)
682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
683 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_IK_IK2
686 integer(IKG) ,
intent(inout) ,
contiguous :: weight(:)
687 integer(IKG) ,
intent(in) :: skip
688 integer(IKG) :: reweight(
size(weight,
1, IK))
693 PURE module subroutine setReweight_IK_IK1(weight, skip)
694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
695 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_IK_IK1
698 integer(IKG) ,
intent(inout) ,
contiguous :: weight(:)
699 integer(IKG) ,
intent(in) :: skip
700 integer(IKG) :: reweight(
size(weight,
1, IK))
707 PURE module subroutine setReweight_RK_RK5(weight, skip)
708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
709 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_RK_RK5
712 real(RKG) ,
intent(inout) ,
contiguous :: weight(:)
713 real(RKG) ,
intent(in) :: skip
718 PURE module subroutine setReweight_RK_RK4(weight, skip)
719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
720 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_RK_RK4
723 real(RKG) ,
intent(inout) ,
contiguous :: weight(:)
724 real(RKG) ,
intent(in) :: skip
729 PURE module subroutine setReweight_RK_RK3(weight, skip)
730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
731 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_RK_RK3
734 real(RKG) ,
intent(inout) ,
contiguous :: weight(:)
735 real(RKG) ,
intent(in) :: skip
740 PURE module subroutine setReweight_RK_RK2(weight, skip)
741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
742 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_RK_RK2
745 real(RKG) ,
intent(inout) ,
contiguous :: weight(:)
746 real(RKG) ,
intent(in) :: skip
751 PURE module subroutine setReweight_RK_RK1(weight, skip)
752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
753 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_RK_RK1
756 real(RKG) ,
intent(inout) ,
contiguous :: weight(:)
757 real(RKG) ,
intent(in) :: skip
764 PURE module subroutine setReweight_IK_RK5(weight, skip)
765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
766 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_IK_RK5
769 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
770 real(RKG) ,
intent(in) :: skip
775 PURE module subroutine setReweight_IK_RK4(weight, skip)
776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
777 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_IK_RK4
780 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
781 real(RKG) ,
intent(in) :: skip
786 PURE module subroutine setReweight_IK_RK3(weight, skip)
787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
788 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_IK_RK3
791 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
792 real(RKG) ,
intent(in) :: skip
797 PURE module subroutine setReweight_IK_RK2(weight, skip)
798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
799 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_IK_RK2
802 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
803 real(RKG) ,
intent(in) :: skip
808 PURE module subroutine setReweight_IK_RK1(weight, skip)
809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
810 !DEC$ ATTRIBUTES DLLEXPORT :: setReweight_IK_RK1
813 integer(IK) ,
intent(inout) ,
contiguous :: weight(:)
814 real(RKG) ,
intent(in) :: skip
Generate and return a reweighting of the input weight vector, such that the sequence represented by o...
Generate and return a reweighting of the input weight vector, such that the sequence represented by o...
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 the types, classes, and procedures relevant to weights of random samples.
type(rweight_type), parameter rweight
This is a scalar parameter object of type rweight_type that is exclusively used to signify the Symmet...
type(fweight_type), parameter fweight
This is a scalar parameter object of type fweight_type that is exclusively used to signify the Symmet...
character(*, SK), parameter MODULE_NAME
type(aweight_type), parameter aweight
This is a scalar parameter object of type aweight_type that is exclusively used to signify the Symmet...
This is a concrete derived type whose instances are exclusively used to signify the aweight type of s...
This is a concrete derived type whose instances are exclusively used to signify the fweight type of s...
This is a concrete derived type whose instances are exclusively used to signify the rweight type of s...
This is an abstract derived type for constructing concrete derived types to distinguish various proce...