257 real :: exponent
= 0.5
301 real :: exponent
= 0.5
405 recursive impure module function getQR_Clos_EM_NM_RK5(getFunc, lb, ub, tol, nref)
result(quadRomb)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EM_NM_RK5
410 procedure(
real(RKG)) :: getFunc
411 real(RKG) ,
intent(in) :: lb, ub, tol
412 integer(IK) ,
intent(in) :: nref
413 real(RKG) :: quadRomb
418 recursive impure module function getQR_Clos_EM_NM_RK4(getFunc, lb, ub, tol, nref)
result(quadRomb)
419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
420 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EM_NM_RK4
423 procedure(
real(RKG)) :: getFunc
424 real(RKG) ,
intent(in) :: lb, ub, tol
425 integer(IK) ,
intent(in) :: nref
426 real(RKG) :: quadRomb
431 recursive impure module function getQR_Clos_EM_NM_RK3(getFunc, lb, ub, tol, nref)
result(quadRomb)
432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
433 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EM_NM_RK3
436 procedure(
real(RKG)) :: getFunc
437 real(RKG) ,
intent(in) :: lb, ub, tol
438 integer(IK) ,
intent(in) :: nref
439 real(RKG) :: quadRomb
444 recursive impure module function getQR_Clos_EM_NM_RK2(getFunc, lb, ub, tol, nref)
result(quadRomb)
445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
446 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EM_NM_RK2
449 procedure(
real(RKG)) :: getFunc
450 real(RKG) ,
intent(in) :: lb, ub, tol
451 integer(IK) ,
intent(in) :: nref
452 real(RKG) :: quadRomb
457 recursive impure module function getQR_Clos_EM_NM_RK1(getFunc, lb, ub, tol, nref)
result(quadRomb)
458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
459 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EM_NM_RK1
462 procedure(
real(RKG)) :: getFunc
463 real(RKG) ,
intent(in) :: lb, ub, tol
464 integer(IK) ,
intent(in) :: nref
465 real(RKG) :: quadRomb
472 recursive impure module function getQR_Clos_EP_NM_RK5(getFunc, lb, ub, tol, nref, relerr)
result(quadRomb)
473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
474 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EP_NM_RK5
477 procedure(
real(RKG)) :: getFunc
478 real(RKG) ,
intent(in) :: lb, ub, tol
479 integer(IK) ,
intent(in) :: nref
480 real(RKG) ,
intent(out) :: relerr
481 real(RKG) :: quadRomb
486 recursive impure module function getQR_Clos_EP_NM_RK4(getFunc, lb, ub, tol, nref, relerr)
result(quadRomb)
487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
488 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EP_NM_RK4
491 procedure(
real(RKG)) :: getFunc
492 real(RKG) ,
intent(in) :: lb, ub, tol
493 integer(IK) ,
intent(in) :: nref
494 real(RKG) ,
intent(out) :: relerr
495 real(RKG) :: quadRomb
500 recursive impure module function getQR_Clos_EP_NM_RK3(getFunc, lb, ub, tol, nref, relerr)
result(quadRomb)
501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
502 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EP_NM_RK3
505 procedure(
real(RKG)) :: getFunc
506 real(RKG) ,
intent(in) :: lb, ub, tol
507 integer(IK) ,
intent(in) :: nref
508 real(RKG) ,
intent(out) :: relerr
509 real(RKG) :: quadRomb
514 recursive impure module function getQR_Clos_EP_NM_RK2(getFunc, lb, ub, tol, nref, relerr)
result(quadRomb)
515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
516 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EP_NM_RK2
519 procedure(
real(RKG)) :: getFunc
520 real(RKG) ,
intent(in) :: lb, ub, tol
521 integer(IK) ,
intent(in) :: nref
522 real(RKG) ,
intent(out) :: relerr
523 real(RKG) :: quadRomb
528 recursive impure module function getQR_Clos_EP_NM_RK1(getFunc, lb, ub, tol, nref, relerr)
result(quadRomb)
529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
530 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EP_NM_RK1
533 procedure(
real(RKG)) :: getFunc
534 real(RKG) ,
intent(in) :: lb, ub, tol
535 integer(IK) ,
intent(in) :: nref
536 real(RKG) ,
intent(out) :: relerr
537 real(RKG) :: quadRomb
544 recursive impure module function getQR_Clos_EP_NP_RK5(getFunc, lb, ub, tol, nref, relerr, neval)
result(quadRomb)
545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
546 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EP_NP_RK5
549 procedure(
real(RKG)) :: getFunc
550 real(RKG) ,
intent(in) :: lb, ub, tol
551 integer(IK) ,
intent(in) :: nref
552 integer(IK) ,
intent(out) :: neval
553 real(RKG) ,
intent(out) :: relerr
554 real(RKG) :: quadRomb
559 recursive impure module function getQR_Clos_EP_NP_RK4(getFunc, lb, ub, tol, nref, relerr, neval)
result(quadRomb)
560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
561 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EP_NP_RK4
564 procedure(
real(RKG)) :: getFunc
565 real(RKG) ,
intent(in) :: lb, ub, tol
566 integer(IK) ,
intent(in) :: nref
567 integer(IK) ,
intent(out) :: neval
568 real(RKG) ,
intent(out) :: relerr
569 real(RKG) :: quadRomb
574 recursive impure module function getQR_Clos_EP_NP_RK3(getFunc, lb, ub, tol, nref, relerr, neval)
result(quadRomb)
575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
576 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EP_NP_RK3
579 procedure(
real(RKG)) :: getFunc
580 real(RKG) ,
intent(in) :: lb, ub, tol
581 integer(IK) ,
intent(in) :: nref
582 integer(IK) ,
intent(out) :: neval
583 real(RKG) ,
intent(out) :: relerr
584 real(RKG) :: quadRomb
589 recursive impure module function getQR_Clos_EP_NP_RK2(getFunc, lb, ub, tol, nref, relerr, neval)
result(quadRomb)
590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
591 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EP_NP_RK2
594 procedure(
real(RKG)) :: getFunc
595 real(RKG) ,
intent(in) :: lb, ub, tol
596 integer(IK) ,
intent(in) :: nref
597 integer(IK) ,
intent(out) :: neval
598 real(RKG) ,
intent(out) :: relerr
599 real(RKG) :: quadRomb
604 recursive impure module function getQR_Clos_EP_NP_RK1(getFunc, lb, ub, tol, nref, relerr, neval)
result(quadRomb)
605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
606 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Clos_EP_NP_RK1
609 procedure(
real(RKG)) :: getFunc
610 real(RKG) ,
intent(in) :: lb, ub, tol
611 integer(IK) ,
intent(in) :: nref
612 integer(IK) ,
intent(out) :: neval
613 real(RKG) ,
intent(out) :: relerr
614 real(RKG) :: quadRomb
627 recursive impure module function getQR_Open_EM_NM_RK5(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
629 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EM_NM_RK5
632 procedure(
real(RKG)) :: getFunc
633 real(RKG) ,
intent(in) :: lb, ub, tol
634 integer(IK) ,
intent(in) :: nref
635 type(open_type) :: interval
636 real(RKG) :: quadRomb
641 recursive impure module function getQR_Open_EM_NM_RK4(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
643 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EM_NM_RK4
646 procedure(
real(RKG)) :: getFunc
647 real(RKG) ,
intent(in) :: lb, ub, tol
648 integer(IK) ,
intent(in) :: nref
649 type(open_type) :: interval
650 real(RKG) :: quadRomb
655 recursive impure module function getQR_Open_EM_NM_RK3(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
657 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EM_NM_RK3
660 procedure(
real(RKG)) :: getFunc
661 real(RKG) ,
intent(in) :: lb, ub, tol
662 integer(IK) ,
intent(in) :: nref
663 type(open_type) :: interval
664 real(RKG) :: quadRomb
669 recursive impure module function getQR_Open_EM_NM_RK2(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
671 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EM_NM_RK2
674 procedure(
real(RKG)) :: getFunc
675 real(RKG) ,
intent(in) :: lb, ub, tol
676 integer(IK) ,
intent(in) :: nref
677 type(open_type) :: interval
678 real(RKG) :: quadRomb
683 recursive impure module function getQR_Open_EM_NM_RK1(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
685 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EM_NM_RK1
688 procedure(
real(RKG)) :: getFunc
689 real(RKG) ,
intent(in) :: lb, ub, tol
690 integer(IK) ,
intent(in) :: nref
691 type(open_type) :: interval
692 real(RKG) :: quadRomb
699 recursive impure module function getQR_Open_EP_NM_RK5(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
701 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EP_NM_RK5
704 procedure(
real(RKG)) :: getFunc
705 real(RKG) ,
intent(in) :: lb, ub, tol
706 integer(IK) ,
intent(in) :: nref
707 type(open_type) :: interval
708 real(RKG) ,
intent(out) :: relerr
709 real(RKG) :: quadRomb
714 recursive impure module function getQR_Open_EP_NM_RK4(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
716 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EP_NM_RK4
719 procedure(
real(RKG)) :: getFunc
720 real(RKG) ,
intent(in) :: lb, ub, tol
721 integer(IK) ,
intent(in) :: nref
722 type(open_type) :: interval
723 real(RKG) ,
intent(out) :: relerr
724 real(RKG) :: quadRomb
729 recursive impure module function getQR_Open_EP_NM_RK3(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
731 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EP_NM_RK3
734 procedure(
real(RKG)) :: getFunc
735 real(RKG) ,
intent(in) :: lb, ub, tol
736 integer(IK) ,
intent(in) :: nref
737 type(open_type) :: interval
738 real(RKG) ,
intent(out) :: relerr
739 real(RKG) :: quadRomb
744 recursive impure module function getQR_Open_EP_NM_RK2(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
746 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EP_NM_RK2
749 procedure(
real(RKG)) :: getFunc
750 real(RKG) ,
intent(in) :: lb, ub, tol
751 integer(IK) ,
intent(in) :: nref
752 type(open_type) :: interval
753 real(RKG) ,
intent(out) :: relerr
754 real(RKG) :: quadRomb
759 recursive impure module function getQR_Open_EP_NM_RK1(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
761 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EP_NM_RK1
764 procedure(
real(RKG)) :: getFunc
765 real(RKG) ,
intent(in) :: lb, ub, tol
766 integer(IK) ,
intent(in) :: nref
767 type(open_type) :: interval
768 real(RKG) ,
intent(out) :: relerr
769 real(RKG) :: quadRomb
776 recursive impure module function getQR_Open_EP_NP_RK5(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
778 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EP_NP_RK5
781 procedure(
real(RKG)) :: getFunc
782 real(RKG) ,
intent(in) :: lb, ub, tol
783 integer(IK) ,
intent(in) :: nref
784 type(open_type) :: interval
785 integer(IK) ,
intent(out) :: neval
786 real(RKG) ,
intent(out) :: relerr
787 real(RKG) :: quadRomb
792 recursive impure module function getQR_Open_EP_NP_RK4(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
794 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EP_NP_RK4
797 procedure(
real(RKG)) :: getFunc
798 real(RKG) ,
intent(in) :: lb, ub, tol
799 integer(IK) ,
intent(in) :: nref
800 type(open_type) :: interval
801 integer(IK) ,
intent(out) :: neval
802 real(RKG) ,
intent(out) :: relerr
803 real(RKG) :: quadRomb
808 recursive impure module function getQR_Open_EP_NP_RK3(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
810 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EP_NP_RK3
813 procedure(
real(RKG)) :: getFunc
814 real(RKG) ,
intent(in) :: lb, ub, tol
815 integer(IK) ,
intent(in) :: nref
816 type(open_type) :: interval
817 integer(IK) ,
intent(out) :: neval
818 real(RKG) ,
intent(out) :: relerr
819 real(RKG) :: quadRomb
824 recursive impure module function getQR_Open_EP_NP_RK2(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
826 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EP_NP_RK2
829 procedure(
real(RKG)) :: getFunc
830 real(RKG) ,
intent(in) :: lb, ub, tol
831 integer(IK) ,
intent(in) :: nref
832 type(open_type) :: interval
833 integer(IK) ,
intent(out) :: neval
834 real(RKG) ,
intent(out) :: relerr
835 real(RKG) :: quadRomb
840 recursive impure module function getQR_Open_EP_NP_RK1(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
842 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_Open_EP_NP_RK1
845 procedure(
real(RKG)) :: getFunc
846 real(RKG) ,
intent(in) :: lb, ub, tol
847 integer(IK) ,
intent(in) :: nref
848 type(open_type) :: interval
849 integer(IK) ,
intent(out) :: neval
850 real(RKG) ,
intent(out) :: relerr
851 real(RKG) :: quadRomb
864 recursive impure module function getQR_PWRL_EM_NM_RK5(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
866 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EM_NM_RK5
869 procedure(
real(RKG)) :: getFunc
870 real(RKG) ,
intent(in) :: lb, ub, tol
871 integer(IK) ,
intent(in) :: nref
872 type(pwrl_type) :: interval
873 real(RKG) :: quadRomb
878 recursive impure module function getQR_PWRL_EM_NM_RK4(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
880 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EM_NM_RK4
883 procedure(
real(RKG)) :: getFunc
884 real(RKG) ,
intent(in) :: lb, ub, tol
885 integer(IK) ,
intent(in) :: nref
886 type(pwrl_type) :: interval
887 real(RKG) :: quadRomb
892 recursive impure module function getQR_PWRL_EM_NM_RK3(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
894 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EM_NM_RK3
897 procedure(
real(RKG)) :: getFunc
898 real(RKG) ,
intent(in) :: lb, ub, tol
899 integer(IK) ,
intent(in) :: nref
900 type(pwrl_type) :: interval
901 real(RKG) :: quadRomb
906 recursive impure module function getQR_PWRL_EM_NM_RK2(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
908 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EM_NM_RK2
911 procedure(
real(RKG)) :: getFunc
912 real(RKG) ,
intent(in) :: lb, ub, tol
913 integer(IK) ,
intent(in) :: nref
914 type(pwrl_type) :: interval
915 real(RKG) :: quadRomb
920 recursive impure module function getQR_PWRL_EM_NM_RK1(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
922 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EM_NM_RK1
925 procedure(
real(RKG)) :: getFunc
926 real(RKG) ,
intent(in) :: lb, ub, tol
927 integer(IK) ,
intent(in) :: nref
928 type(pwrl_type) :: interval
929 real(RKG) :: quadRomb
936 recursive impure module function getQR_PWRL_EP_NM_RK5(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
938 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EP_NM_RK5
941 procedure(
real(RKG)) :: getFunc
942 real(RKG) ,
intent(in) :: lb, ub, tol
943 integer(IK) ,
intent(in) :: nref
944 type(pwrl_type) :: interval
945 real(RKG) ,
intent(out) :: relerr
946 real(RKG) :: quadRomb
951 recursive impure module function getQR_PWRL_EP_NM_RK4(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
953 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EP_NM_RK4
956 procedure(
real(RKG)) :: getFunc
957 real(RKG) ,
intent(in) :: lb, ub, tol
958 integer(IK) ,
intent(in) :: nref
959 type(pwrl_type) :: interval
960 real(RKG) ,
intent(out) :: relerr
961 real(RKG) :: quadRomb
966 recursive impure module function getQR_PWRL_EP_NM_RK3(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
968 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EP_NM_RK3
971 procedure(
real(RKG)) :: getFunc
972 real(RKG) ,
intent(in) :: lb, ub, tol
973 integer(IK) ,
intent(in) :: nref
974 type(pwrl_type) :: interval
975 real(RKG) ,
intent(out) :: relerr
976 real(RKG) :: quadRomb
981 recursive impure module function getQR_PWRL_EP_NM_RK2(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
983 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EP_NM_RK2
986 procedure(
real(RKG)) :: getFunc
987 real(RKG) ,
intent(in) :: lb, ub, tol
988 integer(IK) ,
intent(in) :: nref
989 type(pwrl_type) :: interval
990 real(RKG) ,
intent(out) :: relerr
991 real(RKG) :: quadRomb
996 recursive impure module function getQR_PWRL_EP_NM_RK1(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
998 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EP_NM_RK1
1001 procedure(
real(RKG)) :: getFunc
1002 real(RKG) ,
intent(in) :: lb, ub, tol
1003 integer(IK) ,
intent(in) :: nref
1004 type(pwrl_type) :: interval
1005 real(RKG) ,
intent(out) :: relerr
1006 real(RKG) :: quadRomb
1013 recursive impure module function getQR_PWRL_EP_NP_RK5(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1015 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EP_NP_RK5
1018 procedure(
real(RKG)) :: getFunc
1019 real(RKG) ,
intent(in) :: lb, ub, tol
1020 integer(IK) ,
intent(in) :: nref
1021 type(pwrl_type) :: interval
1022 integer(IK) ,
intent(out) :: neval
1023 real(RKG) ,
intent(out) :: relerr
1024 real(RKG) :: quadRomb
1029 recursive impure module function getQR_PWRL_EP_NP_RK4(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1031 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EP_NP_RK4
1034 procedure(
real(RKG)) :: getFunc
1035 real(RKG) ,
intent(in) :: lb, ub, tol
1036 integer(IK) ,
intent(in) :: nref
1037 type(pwrl_type) :: interval
1038 integer(IK) ,
intent(out) :: neval
1039 real(RKG) ,
intent(out) :: relerr
1040 real(RKG) :: quadRomb
1045 recursive impure module function getQR_PWRL_EP_NP_RK3(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1047 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EP_NP_RK3
1050 procedure(
real(RKG)) :: getFunc
1051 real(RKG) ,
intent(in) :: lb, ub, tol
1052 integer(IK) ,
intent(in) :: nref
1053 type(pwrl_type) :: interval
1054 integer(IK) ,
intent(out) :: neval
1055 real(RKG) ,
intent(out) :: relerr
1056 real(RKG) :: quadRomb
1061 recursive impure module function getQR_PWRL_EP_NP_RK2(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1063 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EP_NP_RK2
1066 procedure(
real(RKG)) :: getFunc
1067 real(RKG) ,
intent(in) :: lb, ub, tol
1068 integer(IK) ,
intent(in) :: nref
1069 type(pwrl_type) :: interval
1070 integer(IK) ,
intent(out) :: neval
1071 real(RKG) ,
intent(out) :: relerr
1072 real(RKG) :: quadRomb
1077 recursive impure module function getQR_PWRL_EP_NP_RK1(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1079 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PWRL_EP_NP_RK1
1082 procedure(
real(RKG)) :: getFunc
1083 real(RKG) ,
intent(in) :: lb, ub, tol
1084 integer(IK) ,
intent(in) :: nref
1085 type(pwrl_type) :: interval
1086 integer(IK) ,
intent(out) :: neval
1087 real(RKG) ,
intent(out) :: relerr
1088 real(RKG) :: quadRomb
1101 recursive impure module function getQR_NEXP_EM_NM_RK5(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1103 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EM_NM_RK5
1106 procedure(
real(RKG)) :: getFunc
1107 real(RKG) ,
intent(in) :: lb, ub, tol
1108 integer(IK) ,
intent(in) :: nref
1109 type(nexp_type) :: interval
1110 real(RKG) :: quadRomb
1115 recursive impure module function getQR_NEXP_EM_NM_RK4(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1117 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EM_NM_RK4
1120 procedure(
real(RKG)) :: getFunc
1121 real(RKG) ,
intent(in) :: lb, ub, tol
1122 integer(IK) ,
intent(in) :: nref
1123 type(nexp_type) :: interval
1124 real(RKG) :: quadRomb
1129 recursive impure module function getQR_NEXP_EM_NM_RK3(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1131 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EM_NM_RK3
1134 procedure(
real(RKG)) :: getFunc
1135 real(RKG) ,
intent(in) :: lb, ub, tol
1136 integer(IK) ,
intent(in) :: nref
1137 type(nexp_type) :: interval
1138 real(RKG) :: quadRomb
1143 recursive impure module function getQR_NEXP_EM_NM_RK2(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1145 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EM_NM_RK2
1148 procedure(
real(RKG)) :: getFunc
1149 real(RKG) ,
intent(in) :: lb, ub, tol
1150 integer(IK) ,
intent(in) :: nref
1151 type(nexp_type) :: interval
1152 real(RKG) :: quadRomb
1157 recursive impure module function getQR_NEXP_EM_NM_RK1(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1159 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EM_NM_RK1
1162 procedure(
real(RKG)) :: getFunc
1163 real(RKG) ,
intent(in) :: lb, ub, tol
1164 integer(IK) ,
intent(in) :: nref
1165 type(nexp_type) :: interval
1166 real(RKG) :: quadRomb
1173 recursive impure module function getQR_NEXP_EP_NM_RK5(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1175 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EP_NM_RK5
1178 procedure(
real(RKG)) :: getFunc
1179 real(RKG) ,
intent(in) :: lb, ub, tol
1180 integer(IK) ,
intent(in) :: nref
1181 type(nexp_type) :: interval
1182 real(RKG) ,
intent(out) :: relerr
1183 real(RKG) :: quadRomb
1188 recursive impure module function getQR_NEXP_EP_NM_RK4(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1190 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EP_NM_RK4
1193 procedure(
real(RKG)) :: getFunc
1194 real(RKG) ,
intent(in) :: lb, ub, tol
1195 integer(IK) ,
intent(in) :: nref
1196 type(nexp_type) :: interval
1197 real(RKG) ,
intent(out) :: relerr
1198 real(RKG) :: quadRomb
1203 recursive impure module function getQR_NEXP_EP_NM_RK3(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1205 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EP_NM_RK3
1208 procedure(
real(RKG)) :: getFunc
1209 real(RKG) ,
intent(in) :: lb, ub, tol
1210 integer(IK) ,
intent(in) :: nref
1211 type(nexp_type) :: interval
1212 real(RKG) ,
intent(out) :: relerr
1213 real(RKG) :: quadRomb
1218 recursive impure module function getQR_NEXP_EP_NM_RK2(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1220 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EP_NM_RK2
1223 procedure(
real(RKG)) :: getFunc
1224 real(RKG) ,
intent(in) :: lb, ub, tol
1225 integer(IK) ,
intent(in) :: nref
1226 type(nexp_type) :: interval
1227 real(RKG) ,
intent(out) :: relerr
1228 real(RKG) :: quadRomb
1233 recursive impure module function getQR_NEXP_EP_NM_RK1(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1235 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EP_NM_RK1
1238 procedure(
real(RKG)) :: getFunc
1239 real(RKG) ,
intent(in) :: lb, ub, tol
1240 integer(IK) ,
intent(in) :: nref
1241 type(nexp_type) :: interval
1242 real(RKG) ,
intent(out) :: relerr
1243 real(RKG) :: quadRomb
1250 recursive impure module function getQR_NEXP_EP_NP_RK5(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1252 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EP_NP_RK5
1255 procedure(
real(RKG)) :: getFunc
1256 real(RKG) ,
intent(in) :: lb, ub, tol
1257 integer(IK) ,
intent(in) :: nref
1258 type(nexp_type) :: interval
1259 integer(IK) ,
intent(out) :: neval
1260 real(RKG) ,
intent(out) :: relerr
1261 real(RKG) :: quadRomb
1266 recursive impure module function getQR_NEXP_EP_NP_RK4(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1268 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EP_NP_RK4
1271 procedure(
real(RKG)) :: getFunc
1272 real(RKG) ,
intent(in) :: lb, ub, tol
1273 integer(IK) ,
intent(in) :: nref
1274 type(nexp_type) :: interval
1275 integer(IK) ,
intent(out) :: neval
1276 real(RKG) ,
intent(out) :: relerr
1277 real(RKG) :: quadRomb
1282 recursive impure module function getQR_NEXP_EP_NP_RK3(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1284 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EP_NP_RK3
1287 procedure(
real(RKG)) :: getFunc
1288 real(RKG) ,
intent(in) :: lb, ub, tol
1289 integer(IK) ,
intent(in) :: nref
1290 type(nexp_type) :: interval
1291 integer(IK) ,
intent(out) :: neval
1292 real(RKG) ,
intent(out) :: relerr
1293 real(RKG) :: quadRomb
1298 recursive impure module function getQR_NEXP_EP_NP_RK2(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1300 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EP_NP_RK2
1303 procedure(
real(RKG)) :: getFunc
1304 real(RKG) ,
intent(in) :: lb, ub, tol
1305 integer(IK) ,
intent(in) :: nref
1306 type(nexp_type) :: interval
1307 integer(IK) ,
intent(out) :: neval
1308 real(RKG) ,
intent(out) :: relerr
1309 real(RKG) :: quadRomb
1314 recursive impure module function getQR_NEXP_EP_NP_RK1(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1316 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_NEXP_EP_NP_RK1
1319 procedure(
real(RKG)) :: getFunc
1320 real(RKG) ,
intent(in) :: lb, ub, tol
1321 integer(IK) ,
intent(in) :: nref
1322 type(nexp_type) :: interval
1323 integer(IK) ,
intent(out) :: neval
1324 real(RKG) ,
intent(out) :: relerr
1325 real(RKG) :: quadRomb
1338 recursive impure module function getQR_PEXP_EM_NM_RK5(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1340 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EM_NM_RK5
1343 procedure(
real(RKG)) :: getFunc
1344 real(RKG) ,
intent(in) :: lb, ub, tol
1345 integer(IK) ,
intent(in) :: nref
1346 type(pexp_type) :: interval
1347 real(RKG) :: quadRomb
1352 recursive impure module function getQR_PEXP_EM_NM_RK4(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1354 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EM_NM_RK4
1357 procedure(
real(RKG)) :: getFunc
1358 real(RKG) ,
intent(in) :: lb, ub, tol
1359 integer(IK) ,
intent(in) :: nref
1360 type(pexp_type) :: interval
1361 real(RKG) :: quadRomb
1366 recursive impure module function getQR_PEXP_EM_NM_RK3(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1368 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EM_NM_RK3
1371 procedure(
real(RKG)) :: getFunc
1372 real(RKG) ,
intent(in) :: lb, ub, tol
1373 integer(IK) ,
intent(in) :: nref
1374 type(pexp_type) :: interval
1375 real(RKG) :: quadRomb
1380 recursive impure module function getQR_PEXP_EM_NM_RK2(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1382 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EM_NM_RK2
1385 procedure(
real(RKG)) :: getFunc
1386 real(RKG) ,
intent(in) :: lb, ub, tol
1387 integer(IK) ,
intent(in) :: nref
1388 type(pexp_type) :: interval
1389 real(RKG) :: quadRomb
1394 recursive impure module function getQR_PEXP_EM_NM_RK1(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1396 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EM_NM_RK1
1399 procedure(
real(RKG)) :: getFunc
1400 real(RKG) ,
intent(in) :: lb, ub, tol
1401 integer(IK) ,
intent(in) :: nref
1402 type(pexp_type) :: interval
1403 real(RKG) :: quadRomb
1410 recursive impure module function getQR_PEXP_EP_NM_RK5(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1412 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EP_NM_RK5
1415 procedure(
real(RKG)) :: getFunc
1416 real(RKG) ,
intent(in) :: lb, ub, tol
1417 integer(IK) ,
intent(in) :: nref
1418 type(pexp_type) :: interval
1419 real(RKG) ,
intent(out) :: relerr
1420 real(RKG) :: quadRomb
1425 recursive impure module function getQR_PEXP_EP_NM_RK4(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1427 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EP_NM_RK4
1430 procedure(
real(RKG)) :: getFunc
1431 real(RKG) ,
intent(in) :: lb, ub, tol
1432 integer(IK) ,
intent(in) :: nref
1433 type(pexp_type) :: interval
1434 real(RKG) ,
intent(out) :: relerr
1435 real(RKG) :: quadRomb
1440 recursive impure module function getQR_PEXP_EP_NM_RK3(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1442 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EP_NM_RK3
1445 procedure(
real(RKG)) :: getFunc
1446 real(RKG) ,
intent(in) :: lb, ub, tol
1447 integer(IK) ,
intent(in) :: nref
1448 type(pexp_type) :: interval
1449 real(RKG) ,
intent(out) :: relerr
1450 real(RKG) :: quadRomb
1455 recursive impure module function getQR_PEXP_EP_NM_RK2(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1457 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EP_NM_RK2
1460 procedure(
real(RKG)) :: getFunc
1461 real(RKG) ,
intent(in) :: lb, ub, tol
1462 integer(IK) ,
intent(in) :: nref
1463 type(pexp_type) :: interval
1464 real(RKG) ,
intent(out) :: relerr
1465 real(RKG) :: quadRomb
1470 recursive impure module function getQR_PEXP_EP_NM_RK1(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1472 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EP_NM_RK1
1475 procedure(
real(RKG)) :: getFunc
1476 real(RKG) ,
intent(in) :: lb, ub, tol
1477 integer(IK) ,
intent(in) :: nref
1478 type(pexp_type) :: interval
1479 real(RKG) ,
intent(out) :: relerr
1480 real(RKG) :: quadRomb
1487 recursive impure module function getQR_PEXP_EP_NP_RK5(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1489 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EP_NP_RK5
1492 procedure(
real(RKG)) :: getFunc
1493 real(RKG) ,
intent(in) :: lb, ub, tol
1494 integer(IK) ,
intent(in) :: nref
1495 type(pexp_type) :: interval
1496 integer(IK) ,
intent(out) :: neval
1497 real(RKG) ,
intent(out) :: relerr
1498 real(RKG) :: quadRomb
1503 recursive impure module function getQR_PEXP_EP_NP_RK4(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1505 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EP_NP_RK4
1508 procedure(
real(RKG)) :: getFunc
1509 real(RKG) ,
intent(in) :: lb, ub, tol
1510 integer(IK) ,
intent(in) :: nref
1511 type(pexp_type) :: interval
1512 integer(IK) ,
intent(out) :: neval
1513 real(RKG) ,
intent(out) :: relerr
1514 real(RKG) :: quadRomb
1519 recursive impure module function getQR_PEXP_EP_NP_RK3(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1521 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EP_NP_RK3
1524 procedure(
real(RKG)) :: getFunc
1525 real(RKG) ,
intent(in) :: lb, ub, tol
1526 integer(IK) ,
intent(in) :: nref
1527 type(pexp_type) :: interval
1528 integer(IK) ,
intent(out) :: neval
1529 real(RKG) ,
intent(out) :: relerr
1530 real(RKG) :: quadRomb
1535 recursive impure module function getQR_PEXP_EP_NP_RK2(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1537 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EP_NP_RK2
1540 procedure(
real(RKG)) :: getFunc
1541 real(RKG) ,
intent(in) :: lb, ub, tol
1542 integer(IK) ,
intent(in) :: nref
1543 type(pexp_type) :: interval
1544 integer(IK) ,
intent(out) :: neval
1545 real(RKG) ,
intent(out) :: relerr
1546 real(RKG) :: quadRomb
1551 recursive impure module function getQR_PEXP_EP_NP_RK1(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1553 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_PEXP_EP_NP_RK1
1556 procedure(
real(RKG)) :: getFunc
1557 real(RKG) ,
intent(in) :: lb, ub, tol
1558 integer(IK) ,
intent(in) :: nref
1559 type(pexp_type) :: interval
1560 integer(IK) ,
intent(out) :: neval
1561 real(RKG) ,
intent(out) :: relerr
1562 real(RKG) :: quadRomb
1575 recursive impure module function getQR_LBIS_EM_NM_RK5(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1577 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EM_NM_RK5
1580 procedure(
real(RKG)) :: getFunc
1581 real(RKG) ,
intent(in) :: lb, ub, tol
1582 integer(IK) ,
intent(in) :: nref
1583 type(lbis_type) :: interval
1584 real(RKG) :: quadRomb
1589 recursive impure module function getQR_LBIS_EM_NM_RK4(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1591 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EM_NM_RK4
1594 procedure(
real(RKG)) :: getFunc
1595 real(RKG) ,
intent(in) :: lb, ub, tol
1596 integer(IK) ,
intent(in) :: nref
1597 type(lbis_type) :: interval
1598 real(RKG) :: quadRomb
1603 recursive impure module function getQR_LBIS_EM_NM_RK3(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1605 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EM_NM_RK3
1608 procedure(
real(RKG)) :: getFunc
1609 real(RKG) ,
intent(in) :: lb, ub, tol
1610 integer(IK) ,
intent(in) :: nref
1611 type(lbis_type) :: interval
1612 real(RKG) :: quadRomb
1617 recursive impure module function getQR_LBIS_EM_NM_RK2(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1619 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EM_NM_RK2
1622 procedure(
real(RKG)) :: getFunc
1623 real(RKG) ,
intent(in) :: lb, ub, tol
1624 integer(IK) ,
intent(in) :: nref
1625 type(lbis_type) :: interval
1626 real(RKG) :: quadRomb
1631 recursive impure module function getQR_LBIS_EM_NM_RK1(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1633 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EM_NM_RK1
1636 procedure(
real(RKG)) :: getFunc
1637 real(RKG) ,
intent(in) :: lb, ub, tol
1638 integer(IK) ,
intent(in) :: nref
1639 type(lbis_type) :: interval
1640 real(RKG) :: quadRomb
1647 recursive impure module function getQR_LBIS_EP_NM_RK5(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1649 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EP_NM_RK5
1652 procedure(
real(RKG)) :: getFunc
1653 real(RKG) ,
intent(in) :: lb, ub, tol
1654 integer(IK) ,
intent(in) :: nref
1655 type(lbis_type) :: interval
1656 real(RKG) ,
intent(out) :: relerr
1657 real(RKG) :: quadRomb
1662 recursive impure module function getQR_LBIS_EP_NM_RK4(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1664 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EP_NM_RK4
1667 procedure(
real(RKG)) :: getFunc
1668 real(RKG) ,
intent(in) :: lb, ub, tol
1669 integer(IK) ,
intent(in) :: nref
1670 type(lbis_type) :: interval
1671 real(RKG) ,
intent(out) :: relerr
1672 real(RKG) :: quadRomb
1677 recursive impure module function getQR_LBIS_EP_NM_RK3(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1679 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EP_NM_RK3
1682 procedure(
real(RKG)) :: getFunc
1683 real(RKG) ,
intent(in) :: lb, ub, tol
1684 integer(IK) ,
intent(in) :: nref
1685 type(lbis_type) :: interval
1686 real(RKG) ,
intent(out) :: relerr
1687 real(RKG) :: quadRomb
1692 recursive impure module function getQR_LBIS_EP_NM_RK2(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1694 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EP_NM_RK2
1697 procedure(
real(RKG)) :: getFunc
1698 real(RKG) ,
intent(in) :: lb, ub, tol
1699 integer(IK) ,
intent(in) :: nref
1700 type(lbis_type) :: interval
1701 real(RKG) ,
intent(out) :: relerr
1702 real(RKG) :: quadRomb
1707 recursive impure module function getQR_LBIS_EP_NM_RK1(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1709 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EP_NM_RK1
1712 procedure(
real(RKG)) :: getFunc
1713 real(RKG) ,
intent(in) :: lb, ub, tol
1714 integer(IK) ,
intent(in) :: nref
1715 type(lbis_type) :: interval
1716 real(RKG) ,
intent(out) :: relerr
1717 real(RKG) :: quadRomb
1724 recursive impure module function getQR_LBIS_EP_NP_RK5(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1726 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EP_NP_RK5
1729 procedure(
real(RKG)) :: getFunc
1730 real(RKG) ,
intent(in) :: lb, ub, tol
1731 integer(IK) ,
intent(in) :: nref
1732 type(lbis_type) :: interval
1733 integer(IK) ,
intent(out) :: neval
1734 real(RKG) ,
intent(out) :: relerr
1735 real(RKG) :: quadRomb
1740 recursive impure module function getQR_LBIS_EP_NP_RK4(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1742 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EP_NP_RK4
1745 procedure(
real(RKG)) :: getFunc
1746 real(RKG) ,
intent(in) :: lb, ub, tol
1747 integer(IK) ,
intent(in) :: nref
1748 type(lbis_type) :: interval
1749 integer(IK) ,
intent(out) :: neval
1750 real(RKG) ,
intent(out) :: relerr
1751 real(RKG) :: quadRomb
1756 recursive impure module function getQR_LBIS_EP_NP_RK3(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1758 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EP_NP_RK3
1761 procedure(
real(RKG)) :: getFunc
1762 real(RKG) ,
intent(in) :: lb, ub, tol
1763 integer(IK) ,
intent(in) :: nref
1764 type(lbis_type) :: interval
1765 integer(IK) ,
intent(out) :: neval
1766 real(RKG) ,
intent(out) :: relerr
1767 real(RKG) :: quadRomb
1772 recursive impure module function getQR_LBIS_EP_NP_RK2(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1774 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EP_NP_RK2
1777 procedure(
real(RKG)) :: getFunc
1778 real(RKG) ,
intent(in) :: lb, ub, tol
1779 integer(IK) ,
intent(in) :: nref
1780 type(lbis_type) :: interval
1781 integer(IK) ,
intent(out) :: neval
1782 real(RKG) ,
intent(out) :: relerr
1783 real(RKG) :: quadRomb
1788 recursive impure module function getQR_LBIS_EP_NP_RK1(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1790 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_LBIS_EP_NP_RK1
1793 procedure(
real(RKG)) :: getFunc
1794 real(RKG) ,
intent(in) :: lb, ub, tol
1795 integer(IK) ,
intent(in) :: nref
1796 type(lbis_type) :: interval
1797 integer(IK) ,
intent(out) :: neval
1798 real(RKG) ,
intent(out) :: relerr
1799 real(RKG) :: quadRomb
1812 recursive impure module function getQR_UBIS_EM_NM_RK5(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1814 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EM_NM_RK5
1817 procedure(
real(RKG)) :: getFunc
1818 real(RKG) ,
intent(in) :: lb, ub, tol
1819 integer(IK) ,
intent(in) :: nref
1820 type(ubis_type) :: interval
1821 real(RKG) :: quadRomb
1826 recursive impure module function getQR_UBIS_EM_NM_RK4(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1828 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EM_NM_RK4
1831 procedure(
real(RKG)) :: getFunc
1832 real(RKG) ,
intent(in) :: lb, ub, tol
1833 integer(IK) ,
intent(in) :: nref
1834 type(ubis_type) :: interval
1835 real(RKG) :: quadRomb
1840 recursive impure module function getQR_UBIS_EM_NM_RK3(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1842 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EM_NM_RK3
1845 procedure(
real(RKG)) :: getFunc
1846 real(RKG) ,
intent(in) :: lb, ub, tol
1847 integer(IK) ,
intent(in) :: nref
1848 type(ubis_type) :: interval
1849 real(RKG) :: quadRomb
1854 recursive impure module function getQR_UBIS_EM_NM_RK2(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1856 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EM_NM_RK2
1859 procedure(
real(RKG)) :: getFunc
1860 real(RKG) ,
intent(in) :: lb, ub, tol
1861 integer(IK) ,
intent(in) :: nref
1862 type(ubis_type) :: interval
1863 real(RKG) :: quadRomb
1868 recursive impure module function getQR_UBIS_EM_NM_RK1(getFunc, lb, ub, tol, nref, interval)
result(quadRomb)
1869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1870 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EM_NM_RK1
1873 procedure(
real(RKG)) :: getFunc
1874 real(RKG) ,
intent(in) :: lb, ub, tol
1875 integer(IK) ,
intent(in) :: nref
1876 type(ubis_type) :: interval
1877 real(RKG) :: quadRomb
1884 recursive impure module function getQR_UBIS_EP_NM_RK5(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1886 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EP_NM_RK5
1889 procedure(
real(RKG)) :: getFunc
1890 real(RKG) ,
intent(in) :: lb, ub, tol
1891 integer(IK) ,
intent(in) :: nref
1892 type(ubis_type) :: interval
1893 real(RKG) ,
intent(out) :: relerr
1894 real(RKG) :: quadRomb
1899 recursive impure module function getQR_UBIS_EP_NM_RK4(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1901 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EP_NM_RK4
1904 procedure(
real(RKG)) :: getFunc
1905 real(RKG) ,
intent(in) :: lb, ub, tol
1906 integer(IK) ,
intent(in) :: nref
1907 type(ubis_type) :: interval
1908 real(RKG) ,
intent(out) :: relerr
1909 real(RKG) :: quadRomb
1914 recursive impure module function getQR_UBIS_EP_NM_RK3(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1916 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EP_NM_RK3
1919 procedure(
real(RKG)) :: getFunc
1920 real(RKG) ,
intent(in) :: lb, ub, tol
1921 integer(IK) ,
intent(in) :: nref
1922 type(ubis_type) :: interval
1923 real(RKG) ,
intent(out) :: relerr
1924 real(RKG) :: quadRomb
1929 recursive impure module function getQR_UBIS_EP_NM_RK2(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1931 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EP_NM_RK2
1934 procedure(
real(RKG)) :: getFunc
1935 real(RKG) ,
intent(in) :: lb, ub, tol
1936 integer(IK) ,
intent(in) :: nref
1937 type(ubis_type) :: interval
1938 real(RKG) ,
intent(out) :: relerr
1939 real(RKG) :: quadRomb
1944 recursive impure module function getQR_UBIS_EP_NM_RK1(getFunc, lb, ub, tol, nref, interval, relerr)
result(quadRomb)
1945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1946 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EP_NM_RK1
1949 procedure(
real(RKG)) :: getFunc
1950 real(RKG) ,
intent(in) :: lb, ub, tol
1951 integer(IK) ,
intent(in) :: nref
1952 type(ubis_type) :: interval
1953 real(RKG) ,
intent(out) :: relerr
1954 real(RKG) :: quadRomb
1961 recursive impure module function getQR_UBIS_EP_NP_RK5(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1963 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EP_NP_RK5
1966 procedure(
real(RKG)) :: getFunc
1967 real(RKG) ,
intent(in) :: lb, ub, tol
1968 integer(IK) ,
intent(in) :: nref
1969 type(ubis_type) :: interval
1970 integer(IK) ,
intent(out) :: neval
1971 real(RKG) ,
intent(out) :: relerr
1972 real(RKG) :: quadRomb
1977 recursive impure module function getQR_UBIS_EP_NP_RK4(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1979 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EP_NP_RK4
1982 procedure(
real(RKG)) :: getFunc
1983 real(RKG) ,
intent(in) :: lb, ub, tol
1984 integer(IK) ,
intent(in) :: nref
1985 type(ubis_type) :: interval
1986 integer(IK) ,
intent(out) :: neval
1987 real(RKG) ,
intent(out) :: relerr
1988 real(RKG) :: quadRomb
1993 recursive impure module function getQR_UBIS_EP_NP_RK3(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
1994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1995 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EP_NP_RK3
1998 procedure(
real(RKG)) :: getFunc
1999 real(RKG) ,
intent(in) :: lb, ub, tol
2000 integer(IK) ,
intent(in) :: nref
2001 type(ubis_type) :: interval
2002 integer(IK) ,
intent(out) :: neval
2003 real(RKG) ,
intent(out) :: relerr
2004 real(RKG) :: quadRomb
2009 recursive impure module function getQR_UBIS_EP_NP_RK2(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
2010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2011 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EP_NP_RK2
2014 procedure(
real(RKG)) :: getFunc
2015 real(RKG) ,
intent(in) :: lb, ub, tol
2016 integer(IK) ,
intent(in) :: nref
2017 type(ubis_type) :: interval
2018 integer(IK) ,
intent(out) :: neval
2019 real(RKG) ,
intent(out) :: relerr
2020 real(RKG) :: quadRomb
2025 recursive impure module function getQR_UBIS_EP_NP_RK1(getFunc, lb, ub, tol, nref, interval, relerr, neval)
result(quadRomb)
2026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2027 !DEC$ ATTRIBUTES DLLEXPORT :: getQR_UBIS_EP_NP_RK1
2030 procedure(
real(RKG)) :: getFunc
2031 real(RKG) ,
intent(in) :: lb, ub, tol
2032 integer(IK) ,
intent(in) :: nref
2033 type(ubis_type) :: interval
2034 integer(IK) ,
intent(out) :: neval
2035 real(RKG) ,
intent(out) :: relerr
2036 real(RKG) :: quadRomb
2315 recursive subroutine midexp(getFunc, lb, ub, integral, refinementStage, neval)
2316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2317 !DEC$ ATTRIBUTES DLLEXPORT :: midexp
2321 integer(IK) ,
intent(in) :: refinementStage
2322 real(RK) ,
intent(in) :: lb,ub
2323 integer(IK) ,
intent(out) :: neval
2324 real(RK) ,
intent(inout) :: integral
2325 procedure(integrand_proc) :: getFunc
2326 real(RK) :: ddel,del,summ,x,lbTrans,ubTrans
2327 real(RK) :: inverseThreeNumFuncEval
2328 integer(IK) :: iFuncEval
2330 lbTrans
= 0._RK;
if (ub
<LOGHUGE_RK) lbTrans
= exp(
-ub)
2331 if (refinementStage
==1_IK)
then
2333 integral
= (ubTrans
-lbTrans)
*getTransFunc(
0.5_RK*(lbTrans
+ubTrans))
2335 neval
= 3**(refinementStage
-2)
2336 inverseThreeNumFuncEval
= ONE_THIRD
/ neval
2337 del
= (ubTrans
-lbTrans)
* inverseThreeNumFuncEval
2339 x
= lbTrans
+ 0.5_RK*del
2341 do iFuncEval
= 1,neval
2342 summ
= summ
+ getTransFunc(x)
2344 summ
= summ
+ getTransFunc(x)
2347 integral
= ONE_THIRD
* integral
+ (ubTrans
-lbTrans)
* summ
* inverseThreeNumFuncEval
2348 neval
= 2_IK * neval
2352 function getTransFunc(x)
2353 real(RK),
intent(in) :: x
2354 real(RK) :: getTransFunc
2355 getTransFunc
= getFunc(
-log(x))
/ x
2356 end function getTransFunc
2358 end subroutine midexp
2381 subroutine midinf(getFunc,lb,ub,integral,refinementStage,neval)
2382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2383 !DEC$ ATTRIBUTES DLLEXPORT :: midinf
2386 real(RK) ,
intent(in) :: lb,ub
2387 integer(IK) ,
intent(in) :: refinementStage
2388 integer(IK) ,
intent(out) :: neval
2389 real(RK) ,
intent(inout) :: integral
2390 procedure(integrand_proc) :: getFunc
2391 real(RK) :: lbTrans, ubTrans, del, ddel, summ, x
2392 real(RK) :: inverseThreeNumFuncEval
2393 integer(IK) :: iFuncEval
2394 ubTrans
= 1.0_RK / lb
2395 lbTrans
= 1.0_RK / ub
2396 if (refinementStage
== 1_IK)
then
2398 integral
= (ubTrans
-lbTrans)
* getTransFunc(
0.5_RK * (lbTrans
+ubTrans))
2400 neval
= 3**(refinementStage
-2)
2401 inverseThreeNumFuncEval
= ONE_THIRD
/ neval
2402 del
= (ubTrans
-lbTrans)
* inverseThreeNumFuncEval
2404 x
= lbTrans
+ 0.5_RK * del
2406 do iFuncEval
= 1, neval
2407 summ
= summ
+ getTransFunc(x)
2409 summ
= summ
+ getTransFunc(x)
2412 integral
= ONE_THIRD
* integral
+ (ubTrans
-lbTrans)
* summ
* inverseThreeNumFuncEval
2413 neval
= 2_IK * neval
2417 function getTransFunc(x)
result(transFunc)
2419 real(RK),
intent(in) :: x
2420 real(RK) :: transFunc
2421 transFunc
= getFunc(
1._RK/x)
/ x
**2
2422 end function getTransFunc
2424 end subroutine midinf
2447 subroutine midpnt(getFunc,lb,ub,integral,refinementStage,neval)
2448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2449 !DEC$ ATTRIBUTES DLLEXPORT :: midpnt
2452 integer(IK) ,
intent(in) :: refinementStage
2453 real(RK) ,
intent(in) :: lb, ub
2454 real(RK) ,
intent(inout) :: integral
2455 integer(IK) ,
intent(out) :: neval
2456 procedure(integrand_proc) :: getFunc
2457 integer(IK) :: iFuncEval
2458 real(RK) :: ddel,del,summ,x
2459 real(RK) :: inverseThreeNumFuncEval
2460 if (refinementStage
==1)
then
2462 integral
= (ub
-lb)
* getFunc(
0.5_RK * (lb
+ub) )
2464 neval
= 3_IK**(refinementStage
-2)
2465 inverseThreeNumFuncEval
= ONE_THIRD
/ neval
2466 del
= (ub
-lb)
* inverseThreeNumFuncEval
2468 x
= lb
+ 0.5_RK * del
2470 do iFuncEval
= 1, neval
2471 summ
= summ
+ getFunc(x)
2473 summ
= summ
+ getFunc(x)
2476 integral
= ONE_THIRD
* integral
+ (ub
-lb)
* summ
* inverseThreeNumFuncEval
2477 neval
= 2_IK * neval
2479 end subroutine midpnt
2485end module pm_quadRomb
Generate and return the integral of the input function getFunc() in the closed range [lb,...
This module contains procedures and generic interfaces for testing for exceptional cases at runtime.
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains classes and procedures to perform numerical integrations.
character(*, SK), parameter MODULE_NAME
This is the indicator type for generating instances of objects that indicate the integration interval...
This is the indicator type for generating instances of objects that indicate the integration interval...
This is the indicator type for generating instances of objects that indicate the integration interval...
This is the indicator type for generating instances of objects that indicate the integration interval...
This is the indicator type for generating instances of objects that indicate the integration interval...
This is the indicator type for generating instances of objects that indicate the integration interval...