183 PURE module function getBinDefCom_D0_D0_SK5(array, value)
result(bin)
184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
185 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D0_D0_SK5
188 character(
*,SKG) ,
intent(in) :: array
189 character(
*,SKG) ,
intent(in) :: value
195 PURE module function getBinDefCom_D0_D0_SK4(array, value)
result(bin)
196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
197 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D0_D0_SK4
200 character(
*,SKG) ,
intent(in) :: array
201 character(
*,SKG) ,
intent(in) :: value
207 PURE module function getBinDefCom_D0_D0_SK3(array, value)
result(bin)
208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
209 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D0_D0_SK3
212 character(
*,SKG) ,
intent(in) :: array
213 character(
*,SKG) ,
intent(in) :: value
219 PURE module function getBinDefCom_D0_D0_SK2(array, value)
result(bin)
220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
221 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D0_D0_SK2
224 character(
*,SKG) ,
intent(in) :: array
225 character(
*,SKG) ,
intent(in) :: value
231 PURE module function getBinDefCom_D0_D0_SK1(array, value)
result(bin)
232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
233 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D0_D0_SK1
236 character(
*,SKG) ,
intent(in) :: array
237 character(
*,SKG) ,
intent(in) :: value
245 PURE module function getBinDefCom_D1_D0_SK5(array, value)
result(bin)
246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
247 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_SK5
250 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
251 character(
*,SKG) ,
intent(in) :: value
257 PURE module function getBinDefCom_D1_D0_SK4(array, value)
result(bin)
258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
259 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_SK4
262 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
263 character(
*,SKG) ,
intent(in) :: value
269 PURE module function getBinDefCom_D1_D0_SK3(array, value)
result(bin)
270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
271 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_SK3
274 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
275 character(
*,SKG) ,
intent(in) :: value
281 PURE module function getBinDefCom_D1_D0_SK2(array, value)
result(bin)
282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
283 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_SK2
286 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
287 character(
*,SKG) ,
intent(in) :: value
293 PURE module function getBinDefCom_D1_D0_SK1(array, value)
result(bin)
294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
295 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_SK1
298 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
299 character(
*,SKG) ,
intent(in) :: value
307 PURE module function getBinDefCom_D1_D0_IK5(array, value)
result(bin)
308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
309 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_IK5
312 integer(IKG) ,
intent(in),
contiguous :: array(:)
313 integer(IKG) ,
intent(in) :: value
319 PURE module function getBinDefCom_D1_D0_IK4(array, value)
result(bin)
320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
321 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_IK4
324 integer(IKG) ,
intent(in),
contiguous :: array(:)
325 integer(IKG) ,
intent(in) :: value
331 PURE module function getBinDefCom_D1_D0_IK3(array, value)
result(bin)
332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
333 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_IK3
336 integer(IKG) ,
intent(in),
contiguous :: array(:)
337 integer(IKG) ,
intent(in) :: value
343 PURE module function getBinDefCom_D1_D0_IK2(array, value)
result(bin)
344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
345 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_IK2
348 integer(IKG) ,
intent(in),
contiguous :: array(:)
349 integer(IKG) ,
intent(in) :: value
355 PURE module function getBinDefCom_D1_D0_IK1(array, value)
result(bin)
356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
357 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_IK1
360 integer(IKG) ,
intent(in),
contiguous :: array(:)
361 integer(IKG) ,
intent(in) :: value
369 PURE module function getBinDefCom_D1_D0_CK5(array, value)
result(bin)
370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
371 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_CK5
374 complex(CKG) ,
intent(in),
contiguous :: array(:)
375 complex(CKG) ,
intent(in) :: value
381 PURE module function getBinDefCom_D1_D0_CK4(array, value)
result(bin)
382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
383 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_CK4
386 complex(CKG) ,
intent(in),
contiguous :: array(:)
387 complex(CKG) ,
intent(in) :: value
393 PURE module function getBinDefCom_D1_D0_CK3(array, value)
result(bin)
394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
395 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_CK3
398 complex(CKG) ,
intent(in),
contiguous :: array(:)
399 complex(CKG) ,
intent(in) :: value
405 PURE module function getBinDefCom_D1_D0_CK2(array, value)
result(bin)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_CK2
410 complex(CKG) ,
intent(in),
contiguous :: array(:)
411 complex(CKG) ,
intent(in) :: value
417 PURE module function getBinDefCom_D1_D0_CK1(array, value)
result(bin)
418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
419 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_CK1
422 complex(CKG) ,
intent(in),
contiguous :: array(:)
423 complex(CKG) ,
intent(in) :: value
431 PURE module function getBinDefCom_D1_D0_RK5(array, value)
result(bin)
432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
433 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_RK5
436 real(RKG) ,
intent(in),
contiguous :: array(:)
437 real(RKG) ,
intent(in) :: value
443 PURE module function getBinDefCom_D1_D0_RK4(array, value)
result(bin)
444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
445 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_RK4
448 real(RKG) ,
intent(in),
contiguous :: array(:)
449 real(RKG) ,
intent(in) :: value
455 PURE module function getBinDefCom_D1_D0_RK3(array, value)
result(bin)
456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
457 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_RK3
460 real(RKG) ,
intent(in),
contiguous :: array(:)
461 real(RKG) ,
intent(in) :: value
467 PURE module function getBinDefCom_D1_D0_RK2(array, value)
result(bin)
468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
469 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_RK2
472 real(RKG) ,
intent(in),
contiguous :: array(:)
473 real(RKG) ,
intent(in) :: value
479 PURE module function getBinDefCom_D1_D0_RK1(array, value)
result(bin)
480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
481 !DEC$ ATTRIBUTES DLLEXPORT :: getBinDefCom_D1_D0_RK1
484 real(RKG) ,
intent(in),
contiguous :: array(:)
485 real(RKG) ,
intent(in) :: value
499 module function getBinCusCom_D0_D0_SK5(array, value, isLess)
result(bin)
500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
501 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D0_D0_SK5
504 character(
*,SKG) ,
intent(in) :: array
505 character(
*,SKG) ,
intent(in) :: value
506 procedure(
logical(LK)) :: isLess
512 module function getBinCusCom_D0_D0_SK4(array, value, isLess)
result(bin)
513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
514 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D0_D0_SK4
517 character(
*,SKG) ,
intent(in) :: array
518 character(
*,SKG) ,
intent(in) :: value
519 procedure(
logical(LK)) :: isLess
525 module function getBinCusCom_D0_D0_SK3(array, value, isLess)
result(bin)
526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
527 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D0_D0_SK3
530 character(
*,SKG) ,
intent(in) :: array
531 character(
*,SKG) ,
intent(in) :: value
532 procedure(
logical(LK)) :: isLess
538 module function getBinCusCom_D0_D0_SK2(array, value, isLess)
result(bin)
539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
540 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D0_D0_SK2
543 character(
*,SKG) ,
intent(in) :: array
544 character(
*,SKG) ,
intent(in) :: value
545 procedure(
logical(LK)) :: isLess
551 module function getBinCusCom_D0_D0_SK1(array, value, isLess)
result(bin)
552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
553 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D0_D0_SK1
556 character(
*,SKG) ,
intent(in) :: array
557 character(
*,SKG) ,
intent(in) :: value
558 procedure(
logical(LK)) :: isLess
566 module function getBinCusCom_D1_D0_SK5(array, value, isLess)
result(bin)
567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
568 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_SK5
571 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
572 character(
*,SKG) ,
intent(in) :: value
573 procedure(
logical(LK)) :: isLess
579 module function getBinCusCom_D1_D0_SK4(array, value, isLess)
result(bin)
580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
581 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_SK4
584 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
585 character(
*,SKG) ,
intent(in) :: value
586 procedure(
logical(LK)) :: isLess
592 module function getBinCusCom_D1_D0_SK3(array, value, isLess)
result(bin)
593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
594 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_SK3
597 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
598 character(
*,SKG) ,
intent(in) :: value
599 procedure(
logical(LK)) :: isLess
605 module function getBinCusCom_D1_D0_SK2(array, value, isLess)
result(bin)
606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
607 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_SK2
610 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
611 character(
*,SKG) ,
intent(in) :: value
612 procedure(
logical(LK)) :: isLess
618 module function getBinCusCom_D1_D0_SK1(array, value, isLess)
result(bin)
619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
620 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_SK1
623 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
624 character(
*,SKG) ,
intent(in) :: value
625 procedure(
logical(LK)) :: isLess
633 module function getBinCusCom_D1_D0_IK5(array, value, isLess)
result(bin)
634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
635 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_IK5
638 integer(IKG) ,
intent(in),
contiguous :: array(:)
639 integer(IKG) ,
intent(in) :: value
640 procedure(
logical(LK)) :: isLess
646 module function getBinCusCom_D1_D0_IK4(array, value, isLess)
result(bin)
647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
648 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_IK4
651 integer(IKG) ,
intent(in),
contiguous :: array(:)
652 integer(IKG) ,
intent(in) :: value
653 procedure(
logical(LK)) :: isLess
659 module function getBinCusCom_D1_D0_IK3(array, value, isLess)
result(bin)
660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
661 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_IK3
664 integer(IKG) ,
intent(in),
contiguous :: array(:)
665 integer(IKG) ,
intent(in) :: value
666 procedure(
logical(LK)) :: isLess
672 module function getBinCusCom_D1_D0_IK2(array, value, isLess)
result(bin)
673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
674 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_IK2
677 integer(IKG) ,
intent(in),
contiguous :: array(:)
678 integer(IKG) ,
intent(in) :: value
679 procedure(
logical(LK)) :: isLess
685 module function getBinCusCom_D1_D0_IK1(array, value, isLess)
result(bin)
686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
687 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_IK1
690 integer(IKG) ,
intent(in),
contiguous :: array(:)
691 integer(IKG) ,
intent(in) :: value
692 procedure(
logical(LK)) :: isLess
700 module function getBinCusCom_D1_D0_CK5(array, value, isLess)
result(bin)
701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
702 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_CK5
705 complex(CKG) ,
intent(in),
contiguous :: array(:)
706 complex(CKG) ,
intent(in) :: value
707 procedure(
logical(LK)) :: isLess
713 module function getBinCusCom_D1_D0_CK4(array, value, isLess)
result(bin)
714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
715 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_CK4
718 complex(CKG) ,
intent(in),
contiguous :: array(:)
719 complex(CKG) ,
intent(in) :: value
720 procedure(
logical(LK)) :: isLess
726 module function getBinCusCom_D1_D0_CK3(array, value, isLess)
result(bin)
727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
728 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_CK3
731 complex(CKG) ,
intent(in),
contiguous :: array(:)
732 complex(CKG) ,
intent(in) :: value
733 procedure(
logical(LK)) :: isLess
739 module function getBinCusCom_D1_D0_CK2(array, value, isLess)
result(bin)
740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
741 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_CK2
744 complex(CKG) ,
intent(in),
contiguous :: array(:)
745 complex(CKG) ,
intent(in) :: value
746 procedure(
logical(LK)) :: isLess
752 module function getBinCusCom_D1_D0_CK1(array, value, isLess)
result(bin)
753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
754 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_CK1
757 complex(CKG) ,
intent(in),
contiguous :: array(:)
758 complex(CKG) ,
intent(in) :: value
759 procedure(
logical(LK)) :: isLess
767 module function getBinCusCom_D1_D0_RK5(array, value, isLess)
result(bin)
768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
769 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_RK5
772 real(RKG) ,
intent(in),
contiguous :: array(:)
773 real(RKG) ,
intent(in) :: value
774 procedure(
logical(LK)) :: isLess
780 module function getBinCusCom_D1_D0_RK4(array, value, isLess)
result(bin)
781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
782 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_RK4
785 real(RKG) ,
intent(in),
contiguous :: array(:)
786 real(RKG) ,
intent(in) :: value
787 procedure(
logical(LK)) :: isLess
793 module function getBinCusCom_D1_D0_RK3(array, value, isLess)
result(bin)
794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
795 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_RK3
798 real(RKG) ,
intent(in),
contiguous :: array(:)
799 real(RKG) ,
intent(in) :: value
800 procedure(
logical(LK)) :: isLess
806 module function getBinCusCom_D1_D0_RK2(array, value, isLess)
result(bin)
807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
808 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_RK2
811 real(RKG) ,
intent(in),
contiguous :: array(:)
812 real(RKG) ,
intent(in) :: value
813 procedure(
logical(LK)) :: isLess
819 module function getBinCusCom_D1_D0_RK1(array, value, isLess)
result(bin)
820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
821 !DEC$ ATTRIBUTES DLLEXPORT :: getBinCusCom_D1_D0_RK1
824 real(RKG) ,
intent(in),
contiguous :: array(:)
825 real(RKG) ,
intent(in) :: value
826 procedure(
logical(LK)) :: isLess
Generate and return bin, the index of the element of the input ascending-ordered array,...
This module contains procedures and generic interfaces for finding the specific array index whose ele...
character(*, SK), parameter MODULE_NAME
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...