156 pure elemental module function isBracketMax_RK5(xmax, xlow, xupp, fmax, flow, fupp)
result(bracketed)
157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
158 !DEC$ ATTRIBUTES DLLEXPORT :: isBracketMax_RK5
161 real(RKG) ,
intent(in) :: xmax, xlow, xupp, fmax, flow, fupp
162 logical(LK) :: bracketed
167 pure elemental module function isBracketMax_RK4(xmax, xlow, xupp, fmax, flow, fupp)
result(bracketed)
168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
169 !DEC$ ATTRIBUTES DLLEXPORT :: isBracketMax_RK4
172 real(RKG) ,
intent(in) :: xmax, xlow, xupp, fmax, flow, fupp
173 logical(LK) :: bracketed
178 pure elemental module function isBracketMax_RK3(xmax, xlow, xupp, fmax, flow, fupp)
result(bracketed)
179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
180 !DEC$ ATTRIBUTES DLLEXPORT :: isBracketMax_RK3
183 real(RKG) ,
intent(in) :: xmax, xlow, xupp, fmax, flow, fupp
184 logical(LK) :: bracketed
189 pure elemental module function isBracketMax_RK2(xmax, xlow, xupp, fmax, flow, fupp)
result(bracketed)
190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
191 !DEC$ ATTRIBUTES DLLEXPORT :: isBracketMax_RK2
194 real(RKG) ,
intent(in) :: xmax, xlow, xupp, fmax, flow, fupp
195 logical(LK) :: bracketed
200 pure elemental module function isBracketMax_RK1(xmax, xlow, xupp, fmax, flow, fupp)
result(bracketed)
201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
202 !DEC$ ATTRIBUTES DLLEXPORT :: isBracketMax_RK1
205 real(RKG) ,
intent(in) :: xmax, xlow, xupp, fmax, flow, fupp
206 logical(LK) :: bracketed
281 pure elemental module function isBracketMin_RK5(xmin, xlow, xupp, fmin, flow, fupp)
result(bracketed)
282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
283 !DEC$ ATTRIBUTES DLLEXPORT :: isBracketMin_RK5
286 real(RKG) ,
intent(in) :: xmin, xlow, xupp, fmin, flow, fupp
287 logical(LK) :: bracketed
292 pure elemental module function isBracketMin_RK4(xmin, xlow, xupp, fmin, flow, fupp)
result(bracketed)
293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
294 !DEC$ ATTRIBUTES DLLEXPORT :: isBracketMin_RK4
297 real(RKG) ,
intent(in) :: xmin, xlow, xupp, fmin, flow, fupp
298 logical(LK) :: bracketed
303 pure elemental module function isBracketMin_RK3(xmin, xlow, xupp, fmin, flow, fupp)
result(bracketed)
304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
305 !DEC$ ATTRIBUTES DLLEXPORT :: isBracketMin_RK3
308 real(RKG) ,
intent(in) :: xmin, xlow, xupp, fmin, flow, fupp
309 logical(LK) :: bracketed
314 pure elemental module function isBracketMin_RK2(xmin, xlow, xupp, fmin, flow, fupp)
result(bracketed)
315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
316 !DEC$ ATTRIBUTES DLLEXPORT :: isBracketMin_RK2
319 real(RKG) ,
intent(in) :: xmin, xlow, xupp, fmin, flow, fupp
320 logical(LK) :: bracketed
325 pure elemental module function isBracketMin_RK1(xmin, xlow, xupp, fmin, flow, fupp)
result(bracketed)
326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
327 !DEC$ ATTRIBUTES DLLEXPORT :: isBracketMin_RK1
330 real(RKG) ,
intent(in) :: xmin, xlow, xupp, fmin, flow, fupp
331 logical(LK) :: bracketed
438 recursive module subroutine setBracketMax_RK5(getFunc, niter, xmax, xlow, xupp, fmax, flow, fupp)
439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
440 !DEC$ ATTRIBUTES DLLEXPORT :: setBracketMax_RK5
443 procedure(
real(RKG)) :: getFunc
444 integer(IK) ,
intent(inout) :: niter
445 real(RKG) ,
intent(inout) :: xlow, xupp
446 real(RKG) ,
intent(out) :: xmax, fmax
447 real(RKG) ,
intent(out) ,
optional :: flow, fupp
452 recursive module subroutine setBracketMax_RK4(getFunc, niter, xmax, xlow, xupp, fmax, flow, fupp)
453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
454 !DEC$ ATTRIBUTES DLLEXPORT :: setBracketMax_RK4
457 procedure(
real(RKG)) :: getFunc
458 integer(IK) ,
intent(inout) :: niter
459 real(RKG) ,
intent(inout) :: xlow, xupp
460 real(RKG) ,
intent(out) :: xmax, fmax
461 real(RKG) ,
intent(out) ,
optional :: flow, fupp
466 recursive module subroutine setBracketMax_RK3(getFunc, niter, xmax, xlow, xupp, fmax, flow, fupp)
467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
468 !DEC$ ATTRIBUTES DLLEXPORT :: setBracketMax_RK3
471 procedure(
real(RKG)) :: getFunc
472 integer(IK) ,
intent(inout) :: niter
473 real(RKG) ,
intent(inout) :: xlow, xupp
474 real(RKG) ,
intent(out) :: xmax, fmax
475 real(RKG) ,
intent(out) ,
optional :: flow, fupp
480 recursive module subroutine setBracketMax_RK2(getFunc, niter, xmax, xlow, xupp, fmax, flow, fupp)
481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
482 !DEC$ ATTRIBUTES DLLEXPORT :: setBracketMax_RK2
485 procedure(
real(RKG)) :: getFunc
486 integer(IK) ,
intent(inout) :: niter
487 real(RKG) ,
intent(inout) :: xlow, xupp
488 real(RKG) ,
intent(out) :: xmax, fmax
489 real(RKG) ,
intent(out) ,
optional :: flow, fupp
494 recursive module subroutine setBracketMax_RK1(getFunc, niter, xmax, xlow, xupp, fmax, flow, fupp)
495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
496 !DEC$ ATTRIBUTES DLLEXPORT :: setBracketMax_RK1
499 procedure(
real(RKG)) :: getFunc
500 integer(IK) ,
intent(inout) :: niter
501 real(RKG) ,
intent(inout) :: xlow, xupp
502 real(RKG) ,
intent(out) :: xmax, fmax
503 real(RKG) ,
intent(out) ,
optional :: flow, fupp
610 recursive module subroutine setBracketMin_RK5(getFunc, niter, xmin, xlow, xupp, fmin, flow, fupp)
611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
612 !DEC$ ATTRIBUTES DLLEXPORT :: setBracketMin_RK5
615 procedure(
real(RKG)) :: getFunc
616 integer(IK) ,
intent(inout) :: niter
617 real(RKG) ,
intent(inout) :: xlow, xupp
618 real(RKG) ,
intent(out) :: xmin, fmin
619 real(RKG) ,
intent(out) ,
optional :: flow, fupp
624 recursive module subroutine setBracketMin_RK4(getFunc, niter, xmin, xlow, xupp, fmin, flow, fupp)
625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
626 !DEC$ ATTRIBUTES DLLEXPORT :: setBracketMin_RK4
629 procedure(
real(RKG)) :: getFunc
630 integer(IK) ,
intent(inout) :: niter
631 real(RKG) ,
intent(inout) :: xlow, xupp
632 real(RKG) ,
intent(out) :: xmin, fmin
633 real(RKG) ,
intent(out) ,
optional :: flow, fupp
638 recursive module subroutine setBracketMin_RK3(getFunc, niter, xmin, xlow, xupp, fmin, flow, fupp)
639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
640 !DEC$ ATTRIBUTES DLLEXPORT :: setBracketMin_RK3
643 procedure(
real(RKG)) :: getFunc
644 integer(IK) ,
intent(inout) :: niter
645 real(RKG) ,
intent(inout) :: xlow, xupp
646 real(RKG) ,
intent(out) :: xmin, fmin
647 real(RKG) ,
intent(out) ,
optional :: flow, fupp
652 recursive module subroutine setBracketMin_RK2(getFunc, niter, xmin, xlow, xupp, fmin, flow, fupp)
653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
654 !DEC$ ATTRIBUTES DLLEXPORT :: setBracketMin_RK2
657 procedure(
real(RKG)) :: getFunc
658 integer(IK) ,
intent(inout) :: niter
659 real(RKG) ,
intent(inout) :: xlow, xupp
660 real(RKG) ,
intent(out) :: xmin, fmin
661 real(RKG) ,
intent(out) ,
optional :: flow, fupp
666 recursive module subroutine setBracketMin_RK1(getFunc, niter, xmin, xlow, xupp, fmin, flow, fupp)
667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
668 !DEC$ ATTRIBUTES DLLEXPORT :: setBracketMin_RK1
671 procedure(
real(RKG)) :: getFunc
672 integer(IK) ,
intent(inout) :: niter
673 real(RKG) ,
intent(inout) :: xlow, xupp
674 real(RKG) ,
intent(out) :: xmin, fmin
675 real(RKG) ,
intent(out) ,
optional :: flow, fupp
773 recursive module function getMinBrent_RK5(getFunc, xlow, xupp, fmin, tol, niter)
result(xmin)
774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
775 !DEC$ ATTRIBUTES DLLEXPORT :: getMinBrent_RK5
778 procedure(
real(RKG)) :: getFunc
779 integer(IK) ,
intent(inout) ,
optional :: niter
780 real(RKG) ,
intent(in) ,
optional :: xlow, xupp, tol
781 real(RKG) ,
intent(out) ,
optional :: fmin
787 recursive module function getMinBrent_RK4(getFunc, xlow, xupp, fmin, tol, niter)
result(xmin)
788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
789 !DEC$ ATTRIBUTES DLLEXPORT :: getMinBrent_RK4
792 procedure(
real(RKG)) :: getFunc
793 integer(IK) ,
intent(inout) ,
optional :: niter
794 real(RKG) ,
intent(in) ,
optional :: xlow, xupp, tol
795 real(RKG) ,
intent(out) ,
optional :: fmin
801 recursive module function getMinBrent_RK3(getFunc, xlow, xupp, fmin, tol, niter)
result(xmin)
802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
803 !DEC$ ATTRIBUTES DLLEXPORT :: getMinBrent_RK3
806 procedure(
real(RKG)) :: getFunc
807 integer(IK) ,
intent(inout) ,
optional :: niter
808 real(RKG) ,
intent(in) ,
optional :: xlow, xupp, tol
809 real(RKG) ,
intent(out) ,
optional :: fmin
815 recursive module function getMinBrent_RK2(getFunc, xlow, xupp, fmin, tol, niter)
result(xmin)
816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
817 !DEC$ ATTRIBUTES DLLEXPORT :: getMinBrent_RK2
820 procedure(
real(RKG)) :: getFunc
821 integer(IK) ,
intent(inout) ,
optional :: niter
822 real(RKG) ,
intent(in) ,
optional :: xlow, xupp, tol
823 real(RKG) ,
intent(out) ,
optional :: fmin
829 recursive module function getMinBrent_RK1(getFunc, xlow, xupp, fmin, tol, niter)
result(xmin)
830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
831 !DEC$ ATTRIBUTES DLLEXPORT :: getMinBrent_RK1
834 procedure(
real(RKG)) :: getFunc
835 integer(IK) ,
intent(inout) ,
optional :: niter
836 real(RKG) ,
intent(in) ,
optional :: xlow, xupp, tol
837 real(RKG) ,
intent(out) ,
optional :: fmin
940 recursive module subroutine setMinBrent_RK5(getFunc, xmin, xlow, xupp, fmin, tol, niter)
941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
942 !DEC$ ATTRIBUTES DLLEXPORT :: setMinBrent_RK5
945 procedure(
real(RKG)) :: getFunc
946 real(RKG) ,
value :: xlow, xupp, tol
947 real(RKG) ,
intent(inout) :: fmin, xmin
948 integer(IK) ,
intent(inout) :: niter
953 recursive module subroutine setMinBrent_RK4(getFunc, xmin, xlow, xupp, fmin, tol, niter)
954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
955 !DEC$ ATTRIBUTES DLLEXPORT :: setMinBrent_RK4
958 procedure(
real(RKG)) :: getFunc
959 real(RKG) ,
value :: xlow, xupp, tol
960 real(RKG) ,
intent(inout) :: fmin, xmin
961 integer(IK) ,
intent(inout) :: niter
966 recursive module subroutine setMinBrent_RK3(getFunc, xmin, xlow, xupp, fmin, tol, niter)
967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
968 !DEC$ ATTRIBUTES DLLEXPORT :: setMinBrent_RK3
971 procedure(
real(RKG)) :: getFunc
972 real(RKG) ,
value :: xlow, xupp, tol
973 real(RKG) ,
intent(inout) :: fmin, xmin
974 integer(IK) ,
intent(inout) :: niter
979 recursive module subroutine setMinBrent_RK2(getFunc, xmin, xlow, xupp, fmin, tol, niter)
980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
981 !DEC$ ATTRIBUTES DLLEXPORT :: setMinBrent_RK2
984 procedure(
real(RKG)) :: getFunc
985 real(RKG) ,
value :: xlow, xupp, tol
986 real(RKG) ,
intent(inout) :: fmin, xmin
987 integer(IK) ,
intent(inout) :: niter
992 recursive module subroutine setMinBrent_RK1(getFunc, xmin, xlow, xupp, fmin, tol, niter)
993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
994 !DEC$ ATTRIBUTES DLLEXPORT :: setMinBrent_RK1
997 procedure(
real(RKG)) :: getFunc
998 real(RKG) ,
value :: xlow, xupp, tol
999 real(RKG) ,
intent(inout) :: fmin, xmin
1000 integer(IK) ,
intent(inout) :: niter
1094 recursive module function isFailedMinPowell_RK5(getFunc, xmin, fmin, tol, niter)
result(failed)
1095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1096 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedMinPowell_RK5
1099 procedure(
real(RKG)) :: getFunc
1100 real(RKG) ,
intent(inout) ,
contiguous :: xmin(:)
1101 real(RKG) ,
intent(inout) ,
optional :: fmin
1102 real(RKG) ,
intent(in) ,
optional :: tol
1103 integer(IK) ,
intent(in) ,
optional :: niter
1104 logical(LK) :: failed
1109 recursive module function isFailedMinPowell_RK4(getFunc, xmin, fmin, tol, niter)
result(failed)
1110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1111 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedMinPowell_RK4
1114 procedure(
real(RKG)) :: getFunc
1115 real(RKG) ,
intent(inout) ,
contiguous :: xmin(:)
1116 real(RKG) ,
intent(inout) ,
optional :: fmin
1117 real(RKG) ,
intent(in) ,
optional :: tol
1118 integer(IK) ,
intent(in) ,
optional :: niter
1119 logical(LK) :: failed
1124 recursive module function isFailedMinPowell_RK3(getFunc, xmin, fmin, tol, niter)
result(failed)
1125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1126 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedMinPowell_RK3
1129 procedure(
real(RKG)) :: getFunc
1130 real(RKG) ,
intent(inout) ,
contiguous :: xmin(:)
1131 real(RKG) ,
intent(inout) ,
optional :: fmin
1132 real(RKG) ,
intent(in) ,
optional :: tol
1133 integer(IK) ,
intent(in) ,
optional :: niter
1134 logical(LK) :: failed
1139 recursive module function isFailedMinPowell_RK2(getFunc, xmin, fmin, tol, niter)
result(failed)
1140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1141 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedMinPowell_RK2
1144 procedure(
real(RKG)) :: getFunc
1145 real(RKG) ,
intent(inout) ,
contiguous :: xmin(:)
1146 real(RKG) ,
intent(inout) ,
optional :: fmin
1147 real(RKG) ,
intent(in) ,
optional :: tol
1148 integer(IK) ,
intent(in) ,
optional :: niter
1149 logical(LK) :: failed
1154 recursive module function isFailedMinPowell_RK1(getFunc, xmin, fmin, tol, niter)
result(failed)
1155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1156 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedMinPowell_RK1
1159 procedure(
real(RKG)) :: getFunc
1160 real(RKG) ,
intent(inout) ,
contiguous :: xmin(:)
1161 real(RKG) ,
intent(inout) ,
optional :: fmin
1162 real(RKG) ,
intent(in) ,
optional :: tol
1163 integer(IK) ,
intent(in) ,
optional :: niter
1164 logical(LK) :: failed
1262 recursive module subroutine setMinPowell_RK5(getFunc, xmin, fmin, dirset, tol, niter)
1263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1264 !DEC$ ATTRIBUTES DLLEXPORT :: setMinPowell_RK5
1267 procedure(
real(RKG)) :: getFunc
1268 real(RKG) ,
intent(inout) ,
contiguous :: xmin(:), dirset(:,:)
1269 real(RKG) ,
intent(inout) :: fmin
1270 real(RKG) ,
intent(in) :: tol
1271 integer(IK) ,
intent(inout) :: niter
1276 recursive module subroutine setMinPowell_RK4(getFunc, xmin, fmin, dirset, tol, niter)
1277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1278 !DEC$ ATTRIBUTES DLLEXPORT :: setMinPowell_RK4
1281 procedure(
real(RKG)) :: getFunc
1282 real(RKG) ,
intent(inout) ,
contiguous :: xmin(:), dirset(:,:)
1283 real(RKG) ,
intent(inout) :: fmin
1284 real(RKG) ,
intent(in) :: tol
1285 integer(IK) ,
intent(inout) :: niter
1290 recursive module subroutine setMinPowell_RK3(getFunc, xmin, fmin, dirset, tol, niter)
1291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1292 !DEC$ ATTRIBUTES DLLEXPORT :: setMinPowell_RK3
1295 procedure(
real(RKG)) :: getFunc
1296 real(RKG) ,
intent(inout) ,
contiguous :: xmin(:), dirset(:,:)
1297 real(RKG) ,
intent(inout) :: fmin
1298 real(RKG) ,
intent(in) :: tol
1299 integer(IK) ,
intent(inout) :: niter
1304 recursive module subroutine setMinPowell_RK2(getFunc, xmin, fmin, dirset, tol, niter)
1305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1306 !DEC$ ATTRIBUTES DLLEXPORT :: setMinPowell_RK2
1309 procedure(
real(RKG)) :: getFunc
1310 real(RKG) ,
intent(inout) ,
contiguous :: xmin(:), dirset(:,:)
1311 real(RKG) ,
intent(inout) :: fmin
1312 real(RKG) ,
intent(in) :: tol
1313 integer(IK) ,
intent(inout) :: niter
1318 recursive module subroutine setMinPowell_RK1(getFunc, xmin, fmin, dirset, tol, niter)
1319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1320 !DEC$ ATTRIBUTES DLLEXPORT :: setMinPowell_RK1
1323 procedure(
real(RKG)) :: getFunc
1324 real(RKG) ,
intent(inout) ,
contiguous :: xmin(:), dirset(:,:)
1325 real(RKG) ,
intent(inout) :: fmin
1326 real(RKG) ,
intent(in) :: tol
1327 integer(IK) ,
intent(inout) :: niter
Generate and return the minimum value and the corresponding abscissa xmin of the input 1-dimensional ...
Generate and return .true. if and only if a concave quadratic curve can fit the specified input tripl...
Generate and return .true. if and only if a convex quadratic curve can fit the specified input triple...
Generate and return .true. if and only if the algorithm fails to find the minimum value and the corre...
Refine an initial input interval such that the final returned interval is guaranteed to contain the m...
Refine an initial input interval such that the final returned interval is guaranteed to contain the m...
Compute and return the minimum value and the corresponding abscissa xmin of the input 1-dimensional f...
Compute and return the minimum value and the corresponding abscissa xmin(1:ndim) of the input arbitra...
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 procedures, generic interfaces, and types for numerical optimizations of mathema...
character(*, SK), parameter MODULE_NAME