112 real(
RKH) ,
allocatable :: break(:)
114 character(:,
SK) ,
allocatable :: desc
146 real(RKG) ,
intent(in) :: x
212 module subroutine test_isFailedQuad_RKH(disp, integrand, abstol, reltol)
213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
214 !DEC$ ATTRIBUTES DLLEXPORT :: test_isFailedQuad_RKH
218 type(display_type) ,
intent(inout) :: disp
219 class(integrand_type) ,
intent(in) :: integrand
220 real(RKG) ,
intent(in),
optional :: abstol, reltol
268 module subroutine test_getQuadErr_RKH(disp, integrand, atol, rtol, nintmax)
269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
270 !DEC$ ATTRIBUTES DLLEXPORT :: test_getQuadErr_RKH
274 type(display_type) ,
intent(inout) :: disp
275 class(integrand_type) ,
intent(in) :: integrand
276 real(RKG) ,
intent(in),
optional :: atol, rtol
277 integer(IK) ,
intent(in),
optional :: nintmax
333 procedure :: get => getInt1
338 module function int1_typer(lb, ub)
result(self)
339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
340 !DEC$ ATTRIBUTES DLLEXPORT :: int1_typer
343 real(RKG),
intent(in),
optional :: lb, ub
352 module function getInt1(self, x)
result(func)
353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
354 !DEC$ ATTRIBUTES DLLEXPORT :: getInt1
358 real(RKG) ,
intent(in) :: x
415 procedure :: get => getInt2
420 module function int2_typer(a, b)
result(self)
421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
422 !DEC$ ATTRIBUTES DLLEXPORT :: int2_typer
425 real(RKG),
intent(in),
optional :: a, b
432 module function getInt2(self, x)
result(func)
433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
434 !DEC$ ATTRIBUTES DLLEXPORT :: getInt2
438 real(RKG) ,
intent(in) :: x
491 procedure :: get => getInt3
496 module function int3_typer(ub)
result(self)
497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
498 !DEC$ ATTRIBUTES DLLEXPORT :: int3_typer
501 real(RKG),
intent(in),
optional :: ub
508 module function getInt3(self, x)
result(func)
509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
510 !DEC$ ATTRIBUTES DLLEXPORT :: getInt3
514 real(RKG) ,
intent(in) :: x
560 procedure :: get => getInt4
565 module function int4_typer()
result(self)
566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
567 !DEC$ ATTRIBUTES DLLEXPORT :: int4_typer
576 module function getInt4(self, x)
result(func)
577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
578 !DEC$ ATTRIBUTES DLLEXPORT :: getInt4
582 real(RKG) ,
intent(in) :: x
639 procedure :: get => getInt5
644 module function int5_typer(lb, ub)
result(self)
645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
646 !DEC$ ATTRIBUTES DLLEXPORT :: int5_typer
649 real(RKG),
intent(in) :: lb, ub
656 module function getInt5(self, x)
result(func)
657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
658 !DEC$ ATTRIBUTES DLLEXPORT :: getInt5
662 real(RKG) ,
intent(in) :: x
708 procedure :: get => getInt6
713 module function int6_typer()
result(self)
714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
715 !DEC$ ATTRIBUTES DLLEXPORT :: int6_typer
724 module function getInt6(self, x)
result(func)
725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
726 !DEC$ ATTRIBUTES DLLEXPORT :: getInt6
730 real(RKG) ,
intent(in) :: x
781 procedure :: get => getInt7
786 module function int7_typer()
result(self)
787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
788 !DEC$ ATTRIBUTES DLLEXPORT :: int7_typer
797 module function getInt7(self, x)
result(func)
798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
799 !DEC$ ATTRIBUTES DLLEXPORT :: getInt7
803 real(RKG) ,
intent(in) :: x
854 procedure :: get => getInt8
859 module function int8_typer()
result(self)
860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
861 !DEC$ ATTRIBUTES DLLEXPORT ::
int8_typer
870 module function getInt8(self, x)
result(func)
871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
872 !DEC$ ATTRIBUTES DLLEXPORT :: getInt8
876 real(RKG) ,
intent(in) :: x
931 procedure :: get => getInt9
936 module function int9_typer()
result(self)
937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
938 !DEC$ ATTRIBUTES DLLEXPORT :: int9_typer
947 module function getInt9(self, x)
result(func)
948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
949 !DEC$ ATTRIBUTES DLLEXPORT :: getInt9
953 real(RKG) ,
intent(in) :: x
1026 real(RKH) :: alpha, beta
1027 real(RKH) :: normfac
1029 procedure :: get => getIntGamUpp
1034 module function intGamUpp_typer(lb, ub, alpha, beta)
result(self)
1035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1036 !DEC$ ATTRIBUTES DLLEXPORT :: intGamUpp_typer
1039 real(RKG),
intent(in),
optional :: lb, ub, alpha, beta
1046 module function getIntGamUpp(self, x)
result(func)
1047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1048 !DEC$ ATTRIBUTES DLLEXPORT :: getIntGamUpp
1052 real(RKG),
intent(in) :: x
1112 integer(IK) :: lf, uf
1115 procedure :: get => getIntSinCos
1120 module function intSinCos_typer(lf, uf, a, b)
result(self)
1121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1122 !DEC$ ATTRIBUTES DLLEXPORT :: intSinCos_typer
1125 integer(
IK) ,
intent(in),
optional :: lf, uf
1126 real(RKG) ,
intent(in),
optional :: a, b
1133 module function getIntSinCos(self, x)
result(func)
1134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1135 !DEC$ ATTRIBUTES DLLEXPORT :: getIntSinCos
1139 real(RKG) ,
intent(in) :: x
1193 real(RKH) :: invSigma
1194 real(RKH) :: logInvSigma
1196 procedure :: get => getIntNormPDF
1201 module function intNormPDF_typer(lb, ub, mu, sigma)
result(self)
1202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1203 !DEC$ ATTRIBUTES DLLEXPORT :: intNormPDF_typer
1206 real(RKG),
intent(in),
optional :: lb, ub, mu, sigma
1213 module function getIntNormPDF(self, x)
result(func)
1214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1215 !DEC$ ATTRIBUTES DLLEXPORT :: getIntNormPDF
1219 real(RKG) ,
intent(in) :: x
1274 real(RKH) :: invSigma
1275 real(RKH) :: logInvSigma
1277 procedure :: get => getIntLogNormPDF
1282 module function intLogNormPDF_typer(lb, ub, mu, sigma)
result(self)
1283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1284 !DEC$ ATTRIBUTES DLLEXPORT :: intLogNormPDF_typer
1287 real(RKG),
intent(in),
optional :: lb, ub, mu, sigma
1294 module function getIntLogNormPDF(self, x)
result(func)
1295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1296 !DEC$ ATTRIBUTES DLLEXPORT :: getIntLogNormPDF
1300 real(RKG) ,
intent(in) :: x
1351 real(RKH) :: invOmega
1352 real(RKH) :: logSigma
1353 real(RKH) :: logPDFNF
1355 procedure :: get => getIntGenExpGammaPDF
1360 module function intGenExpGammaPDF_typer(lb, ub, kappa, invOmega, logSigma)
result(self)
1361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1362 !DEC$ ATTRIBUTES DLLEXPORT :: intGenExpGammaPDF_typer
1365 real(RKG) ,
intent(in),
optional :: lb, ub, kappa, invOmega, logSigma
1372 module function getIntGenExpGammaPDF(self, x)
result(func)
1373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1374 !DEC$ ATTRIBUTES DLLEXPORT :: getIntGenExpGammaPDF
1378 real(RKG) ,
intent(in) :: x
1430 procedure :: get => getIntPentaGammaInf
1435 module function intPentaGammaInf_typer()
result(self)
1436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1437 !DEC$ ATTRIBUTES DLLEXPORT :: intPentaGammaInf_typer
1446 module function getIntPentaGammaInf(self, x)
result(func)
1447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1448 !DEC$ ATTRIBUTES DLLEXPORT :: getIntPentaGammaInf
1452 real(RKG) ,
intent(in) :: x
1508 procedure :: get => getIntDoncker1
1513 module function intDoncker1_typer(lb, ub)
result(self)
1514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1515 !DEC$ ATTRIBUTES DLLEXPORT :: intDoncker1_typer
1518 real(RKG),
intent(in),
optional :: lb, ub
1525 module function getIntDoncker1(self, x)
result(func)
1526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1527 !DEC$ ATTRIBUTES DLLEXPORT :: getIntDoncker1
1531 real(RKG) ,
intent(in) :: x
1591 procedure :: get => getIntDoncker2
1596 module function intDoncker2_typer(lb, ub)
result(self)
1597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1598 !DEC$ ATTRIBUTES DLLEXPORT :: intDoncker2_typer
1601 real(RKG),
intent(in),
optional :: lb, ub
1608 module function getIntDoncker2(self, x)
result(func)
1609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1610 !DEC$ ATTRIBUTES DLLEXPORT :: getIntDoncker2
1614 real(RKG) ,
intent(in) :: x
1667 procedure :: get => getIntCauchy1
1672 module function intCauchy1_typer(lb, ub, cs)
result(self)
1673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1674 !DEC$ ATTRIBUTES DLLEXPORT :: intCauchy1_typer
1677 real(RKG) ,
intent(in),
optional :: lb, ub, cs
1684 module function getIntCauchy1(self, x)
result(func)
1685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1686 !DEC$ ATTRIBUTES DLLEXPORT :: getIntCauchy1
1690 real(RKG) ,
intent(in) :: x
1761 real(RKH) ,
private :: csnot, Pole(
2)
1763 procedure :: get => getIntCauchy2
1768 module function intCauchy2_typer(lb, ub, cs1, cs2)
result(self)
1769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1770 !DEC$ ATTRIBUTES DLLEXPORT :: intCauchy2_typer
1773 real(RKG) ,
intent(in),
optional :: lb, ub, cs1, cs2
1780 module function getIntCauchy2(self, x)
result(func)
1781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1782 !DEC$ ATTRIBUTES DLLEXPORT :: getIntCauchy2
1786 real(RKG) ,
intent(in) :: x
1793end module pm_quadTest
Generate and return the value of the optional input argument if it is present, otherwise,...
This is the abstract interface of the get() type-bound procedure of integrand_type class whose argume...
Run the adaptive global quadrature methods for the specified input integrand object.
Run the adaptive global quadrature methods for the specified input integrand object.
Generate and return a vector of single-characters each element of which corresponds to one character ...
Generate and return the conversion of the input value to an output Fortran string,...
This module contains classes and procedures for input/output (IO) or generic display operations on st...
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...
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
This module contains procedures, generic interfaces, and types for generating default values for opti...
character(*, SK), parameter MODULE_NAME
This module contains classes and procedures for non-adaptive and adaptive global numerical quadrature...
This module contains a collection of interesting or challenging integrands for testing or examining t...
This module contains classes and procedures for various string manipulations and inquiries.
This module contains the generic procedures for converting values of different types and kinds to For...
Generate and return an object of type display_type.
This is the derived type for constructing objects that signify the computation of the Cauchy Principa...
This is the derived type for generating test integrand objects of the algebraic form as described bel...
This is the derived type for generating test integrand objects of algebraic form as described below.
This is the derived type for generating test integrand objects of algebraic form as described below.
This is the derived type for generating test integrand objects of the following algebraic form.
This is the derived type for generating test integrand objects of the following algebraic form.
This is the derived type for generating test integrand objects of the following algebraic form.
This is the derived type for generating test integrand objects of the following algebraic form.
This is the derived type for generating test integrand objects of the following algebraic form.
This is the derived type for generating test integrand objects of the following algebraic form.
This is the derived type for generating test integrand objects of the algebraic form as described bel...
This is the derived type for generating test integrand objects of the algebraic form as described bel...
This is the derived type for generating test integrand objects of algebraic form as described below.
This is the derived type for generating test integrand objects of algebraic form as described below.
This is the derived type for generating test integrand objects of the following algebraic form.
This is the derived type for generating test integrand objects of the Probability Density Function of...
This is the derived type for generating test integrand objects of the Probability Density Function of...
This is the derived type for generating test integrand objects of the Probability Density Function of...
This is the derived type for generating test integrand objects of the sum of five Probability Density...
This is the derived type for generating test integrand objects of the trigonometric form as described...
This is the base type integrand_type standing abstract integrand type to generate a variety of integr...