63#if (MATLAB_ENABLED || PYTHON_ENABLED || R_ENABLED) && !(CAF_ENABLED || MPI_ENABLED)
158 logical(
LK) :: iswarned
= .false._LK
159 logical(
LK) :: occurred
= .false._LK
160 integer(
IK) ::
stat = -huge(
0_IK)
162 character(:,
SK),
allocatable :: msg
168 pure module function err_typer(occurred, stat, msg)
result(err)
169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
170 !DEC$ ATTRIBUTES DLLEXPORT :: err_typer
173 logical(
LK) ,
intent(in) ,
optional :: occurred
174 integer(
IK) ,
intent(in) ,
optional :: stat
175 character(
*,
SK) ,
intent(in) ,
optional :: msg
387 pure module function getFine_SK5(file, line)
result(str)
388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
389 !DEC$ ATTRIBUTES DLLEXPORT :: getFine_SK5
392 character(
*) ,
intent(in) :: file
393 integer ,
intent(in) :: line
394 character(:, SK),
allocatable :: str
399 pure module function getFine_SK4(file, line)
result(str)
400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
401 !DEC$ ATTRIBUTES DLLEXPORT :: getFine_SK4
404 character(
*) ,
intent(in) :: file
405 integer ,
intent(in) :: line
406 character(:, SK),
allocatable :: str
411 pure module function getFine_SK3(file, line)
result(str)
412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
413 !DEC$ ATTRIBUTES DLLEXPORT :: getFine_SK3
416 character(
*) ,
intent(in) :: file
417 integer ,
intent(in) :: line
418 character(:, SK),
allocatable :: str
423 pure module function getFine_SK2(file, line)
result(str)
424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
425 !DEC$ ATTRIBUTES DLLEXPORT :: getFine_SK2
428 character(
*) ,
intent(in) :: file
429 integer ,
intent(in) :: line
430 character(:, SK),
allocatable :: str
435 pure module function getFine_SK1(file, line)
result(str)
436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
437 !DEC$ ATTRIBUTES DLLEXPORT :: getFine_SK1
440 character(
*) ,
intent(in) :: file
441 integer ,
intent(in) :: line
442 character(:, SK),
allocatable :: str
509 pure module function getFile_SK5(file)
result(str)
510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
511 !DEC$ ATTRIBUTES DLLEXPORT :: getFile_SK5
514 character(
*,SKG),
intent(in) :: file
515 character(
len(file)
+ 7, SK) :: str
520 pure module function getFile_SK4(file)
result(str)
521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
522 !DEC$ ATTRIBUTES DLLEXPORT :: getFile_SK4
525 character(
*,SKG),
intent(in) :: file
526 character(
len(file)
+ 7, SK) :: str
531 pure module function getFile_SK3(file)
result(str)
532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
533 !DEC$ ATTRIBUTES DLLEXPORT :: getFile_SK3
536 character(
*,SKG),
intent(in) :: file
537 character(
len(file)
+ 7, SK) :: str
542 pure module function getFile_SK2(file)
result(str)
543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
544 !DEC$ ATTRIBUTES DLLEXPORT :: getFile_SK2
547 character(
*,SKG),
intent(in) :: file
548 character(
len(file)
+ 7, SK) :: str
553 pure module function getFile_SK1(file)
result(str)
554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
555 !DEC$ ATTRIBUTES DLLEXPORT :: getFile_SK1
558 character(
*,SKG),
intent(in) :: file
559 character(
len(file)
+ 7, SK) :: str
626 pure module function getLine_IK5(line)
result(str)
627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
628 !DEC$ ATTRIBUTES DLLEXPORT :: getLine_IK5
631 integer(IKG) ,
intent(in) :: line
632 character(:, SK),
allocatable :: str
637 pure module function getLine_IK4(line)
result(str)
638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
639 !DEC$ ATTRIBUTES DLLEXPORT :: getLine_IK4
642 integer(IKG) ,
intent(in) :: line
643 character(:, SK),
allocatable :: str
648 pure module function getLine_IK3(line)
result(str)
649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
650 !DEC$ ATTRIBUTES DLLEXPORT :: getLine_IK3
653 integer(IKG) ,
intent(in) :: line
654 character(:, SK),
allocatable :: str
659 pure module function getLine_IK2(line)
result(str)
660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
661 !DEC$ ATTRIBUTES DLLEXPORT :: getLine_IK2
664 integer(IKG) ,
intent(in) :: line
665 character(:, SK),
allocatable :: str
670 pure module function getLine_IK1(line)
result(str)
671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
672 !DEC$ ATTRIBUTES DLLEXPORT :: getLine_IK1
675 integer(IKG) ,
intent(in) :: line
676 character(:, SK),
allocatable :: str
740 module subroutine setAsserted_LK5(assertion, msg, renabled)
741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
742 !DEC$ ATTRIBUTES DLLEXPORT :: setAsserted_LK5
745 logical(LKG) ,
intent(in) :: assertion
746 character(
*, SK),
intent(in),
optional :: msg
747 logical(LK) ,
intent(in),
optional :: renabled
752 module subroutine setAsserted_LK4(assertion, msg, renabled)
753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
754 !DEC$ ATTRIBUTES DLLEXPORT :: setAsserted_LK4
757 logical(LKG) ,
intent(in) :: assertion
758 character(
*, SK),
intent(in),
optional :: msg
759 logical(LK) ,
intent(in),
optional :: renabled
764 module subroutine setAsserted_LK3(assertion, msg, renabled)
765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
766 !DEC$ ATTRIBUTES DLLEXPORT :: setAsserted_LK3
769 logical(LKG) ,
intent(in) :: assertion
770 character(
*, SK),
intent(in),
optional :: msg
771 logical(LK) ,
intent(in),
optional :: renabled
776 module subroutine setAsserted_LK2(assertion, msg, renabled)
777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
778 !DEC$ ATTRIBUTES DLLEXPORT :: setAsserted_LK2
781 logical(LKG) ,
intent(in) :: assertion
782 character(
*, SK),
intent(in),
optional :: msg
783 logical(LK) ,
intent(in),
optional :: renabled
788 module subroutine setAsserted_LK1(assertion, msg, renabled)
789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
790 !DEC$ ATTRIBUTES DLLEXPORT :: setAsserted_LK1
793 logical(LKG) ,
intent(in) :: assertion
794 character(
*, SK),
intent(in),
optional :: msg
795 logical(LK) ,
intent(in),
optional :: renabled
890 character(:, SK),
allocatable ,
public :: prefix
891 character(:, SK),
allocatable ,
public :: indent
892 character(:, SK),
allocatable ,
public :: break
893 character(:, SK),
allocatable ,
public :: newline
894 integer(IK) ,
allocatable ,
public :: width
895 integer(IK) ,
allocatable ,
public :: maxwidth
896 integer(IK) ,
allocatable ,
public :: tmsize
897 integer(IK) ,
allocatable ,
public :: bmsize
898 integer(IK) ,
allocatable ,
public :: unit
899 logical(LK) ,
public :: sticky
= .false._LK
977 procedure,
pass :: setMarkedMethod_D0_SK5
978 generic ::
show => setMarkedMethod_D0_SK5
981 procedure,
pass :: setMarkedMethod_D0_SK4
982 generic ::
show => setMarkedMethod_D0_SK4
985 procedure,
pass :: setMarkedMethod_D0_SK3
986 generic ::
show => setMarkedMethod_D0_SK3
989 procedure,
pass :: setMarkedMethod_D0_SK2
990 generic ::
show => setMarkedMethod_D0_SK2
993 procedure,
pass :: setMarkedMethod_D0_SK1
994 generic ::
show => setMarkedMethod_D0_SK1
1001 module procedure :: mark_typer
1039 pure module function mark_typer(prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
result(self)
1040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1041 !DEC$ ATTRIBUTES DLLEXPORT :: mark_typer
1043 character(
*, SK),
intent(in),
optional :: prefix
1044 character(
*, SK),
intent(in),
optional :: indent
1045 character(
*, SK),
intent(in),
optional :: break
1046 character(
*, SK),
intent(in),
optional :: newline
1047 integer(IK) ,
intent(in),
optional :: width
1048 integer(IK) ,
intent(in),
optional :: maxwidth
1049 integer(IK) ,
intent(in),
optional :: tmsize
1050 integer(IK) ,
intent(in),
optional :: bmsize
1051 integer(IK) ,
intent(in),
optional :: unit
1052 logical(LK) ,
intent(in),
optional :: sticky
1131 procedure,
pass :: setNotedMethod_D0_SK5
1132 generic ::
show => setNotedMethod_D0_SK5
1135 procedure,
pass :: setNotedMethod_D0_SK4
1136 generic ::
show => setNotedMethod_D0_SK4
1139 procedure,
pass :: setNotedMethod_D0_SK3
1140 generic ::
show => setNotedMethod_D0_SK3
1143 procedure,
pass :: setNotedMethod_D0_SK2
1144 generic ::
show => setNotedMethod_D0_SK2
1147 procedure,
pass :: setNotedMethod_D0_SK1
1148 generic ::
show => setNotedMethod_D0_SK1
1155 module procedure :: note_typer
1193 pure module function note_typer(prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
result(self)
1194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1195 !DEC$ ATTRIBUTES DLLEXPORT :: note_typer
1197 character(
*, SK),
intent(in),
optional :: prefix
1198 character(
*, SK),
intent(in),
optional :: indent
1199 character(
*, SK),
intent(in),
optional :: break
1200 character(
*, SK),
intent(in),
optional :: newline
1201 integer(IK) ,
intent(in),
optional :: width
1202 integer(IK) ,
intent(in),
optional :: maxwidth
1203 integer(IK) ,
intent(in),
optional :: tmsize
1204 integer(IK) ,
intent(in),
optional :: bmsize
1205 integer(IK) ,
intent(in),
optional :: unit
1206 logical(LK) ,
intent(in),
optional :: sticky
1282 procedure,
pass :: setWarnedMethod_D0_SK5
1283 generic ::
show => setWarnedMethod_D0_SK5
1286 procedure,
pass :: setWarnedMethod_D0_SK4
1287 generic ::
show => setWarnedMethod_D0_SK4
1290 procedure,
pass :: setWarnedMethod_D0_SK3
1291 generic ::
show => setWarnedMethod_D0_SK3
1294 procedure,
pass :: setWarnedMethod_D0_SK2
1295 generic ::
show => setWarnedMethod_D0_SK2
1298 procedure,
pass :: setWarnedMethod_D0_SK1
1299 generic ::
show => setWarnedMethod_D0_SK1
1306 module procedure :: warn_typer
1344 pure module function warn_typer(prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
result(self)
1345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1346 !DEC$ ATTRIBUTES DLLEXPORT :: warn_typer
1348 character(
*, SK),
intent(in),
optional :: prefix
1349 character(
*, SK),
intent(in),
optional :: indent
1350 character(
*, SK),
intent(in),
optional :: break
1351 character(
*, SK),
intent(in),
optional :: newline
1352 integer(IK) ,
intent(in),
optional :: width
1353 integer(IK) ,
intent(in),
optional :: maxwidth
1354 integer(IK) ,
intent(in),
optional :: tmsize
1355 integer(IK) ,
intent(in),
optional :: bmsize
1356 integer(IK) ,
intent(in),
optional :: unit
1357 logical(LK) ,
intent(in),
optional :: sticky
1443 character(:, SK) ,
allocatable,
public :: help
1444 integer(IK) ,
allocatable,
public :: stat
1445 logical(LK) ,
allocatable,
public :: renabled
1449 procedure,
pass :: setAbortedMethod_D0_SK5
1450 generic ::
show => setAbortedMethod_D0_SK5
1453 procedure,
pass :: setAbortedMethod_D0_SK4
1454 generic ::
show => setAbortedMethod_D0_SK4
1457 procedure,
pass :: setAbortedMethod_D0_SK3
1458 generic ::
show => setAbortedMethod_D0_SK3
1461 procedure,
pass :: setAbortedMethod_D0_SK2
1462 generic ::
show => setAbortedMethod_D0_SK2
1465 procedure,
pass :: setAbortedMethod_D0_SK1
1466 generic ::
show => setAbortedMethod_D0_SK1
1473 module procedure :: stop_typer
1511 pure module function stop_typer(prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky, help, stat, renabled)
result(self)
1512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1513 !DEC$ ATTRIBUTES DLLEXPORT :: stop_typer
1515 character(
*, SK),
intent(in),
optional :: prefix
1516 character(
*, SK),
intent(in),
optional :: indent
1517 character(
*, SK),
intent(in),
optional :: break
1518 character(
*, SK),
intent(in),
optional :: newline
1519 integer(IK) ,
intent(in),
optional :: width
1520 integer(IK) ,
intent(in),
optional :: maxwidth
1521 integer(IK) ,
intent(in),
optional :: tmsize
1522 integer(IK) ,
intent(in),
optional :: bmsize
1523 integer(IK) ,
intent(in),
optional :: unit
1524 logical(LK) ,
intent(in),
optional :: sticky
1525 character(
*, SK),
intent(in),
optional :: help
1526 integer(IK) ,
intent(in),
optional :: stat
1527 logical(LK) ,
intent(in),
optional :: renabled
1623 module subroutine setMarkedMethod_D0_SK5(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1625 !DEC$ ATTRIBUTES DLLEXPORT :: setMarkedMethod_D0_SK5
1628 class(mark_type) ,
intent(inout) :: self
1629 character(
*,SKG) ,
intent(in) :: msg
1630 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1631 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1632 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1633 logical(LK) ,
intent(in) ,
optional :: sticky
1638 module subroutine setMarkedMethod_D0_SK4(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1640 !DEC$ ATTRIBUTES DLLEXPORT :: setMarkedMethod_D0_SK4
1643 class(mark_type) ,
intent(inout) :: self
1644 character(
*,SKG) ,
intent(in) :: msg
1645 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1646 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1647 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1648 logical(LK) ,
intent(in) ,
optional :: sticky
1653 module subroutine setMarkedMethod_D0_SK3(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1655 !DEC$ ATTRIBUTES DLLEXPORT :: setMarkedMethod_D0_SK3
1658 class(mark_type) ,
intent(inout) :: self
1659 character(
*,SKG) ,
intent(in) :: msg
1660 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1661 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1662 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1663 logical(LK) ,
intent(in) ,
optional :: sticky
1668 module subroutine setMarkedMethod_D0_SK2(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1670 !DEC$ ATTRIBUTES DLLEXPORT :: setMarkedMethod_D0_SK2
1673 class(mark_type) ,
intent(inout) :: self
1674 character(
*,SKG) ,
intent(in) :: msg
1675 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1676 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1677 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1678 logical(LK) ,
intent(in) ,
optional :: sticky
1683 module subroutine setMarkedMethod_D0_SK1(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1685 !DEC$ ATTRIBUTES DLLEXPORT :: setMarkedMethod_D0_SK1
1688 class(mark_type) ,
intent(inout) :: self
1689 character(
*,SKG) ,
intent(in) :: msg
1690 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1691 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1692 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1693 logical(LK) ,
intent(in) ,
optional :: sticky
1700 module subroutine setNotedMethod_D0_SK5(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1702 !DEC$ ATTRIBUTES DLLEXPORT :: setNotedMethod_D0_SK5
1705 class(note_type) ,
intent(inout) :: self
1706 character(
*,SKG) ,
intent(in) :: msg
1707 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1708 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1709 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1710 logical(LK) ,
intent(in) ,
optional :: sticky
1715 module subroutine setNotedMethod_D0_SK4(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1717 !DEC$ ATTRIBUTES DLLEXPORT :: setNotedMethod_D0_SK4
1720 class(note_type) ,
intent(inout) :: self
1721 character(
*,SKG) ,
intent(in) :: msg
1722 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1723 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1724 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1725 logical(LK) ,
intent(in) ,
optional :: sticky
1730 module subroutine setNotedMethod_D0_SK3(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1732 !DEC$ ATTRIBUTES DLLEXPORT :: setNotedMethod_D0_SK3
1735 class(note_type) ,
intent(inout) :: self
1736 character(
*,SKG) ,
intent(in) :: msg
1737 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1738 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1739 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1740 logical(LK) ,
intent(in) ,
optional :: sticky
1745 module subroutine setNotedMethod_D0_SK2(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1747 !DEC$ ATTRIBUTES DLLEXPORT :: setNotedMethod_D0_SK2
1750 class(note_type) ,
intent(inout) :: self
1751 character(
*,SKG) ,
intent(in) :: msg
1752 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1753 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1754 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1755 logical(LK) ,
intent(in) ,
optional :: sticky
1760 module subroutine setNotedMethod_D0_SK1(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1762 !DEC$ ATTRIBUTES DLLEXPORT :: setNotedMethod_D0_SK1
1765 class(note_type) ,
intent(inout) :: self
1766 character(
*,SKG) ,
intent(in) :: msg
1767 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1768 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1769 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1770 logical(LK) ,
intent(in) ,
optional :: sticky
1777 module subroutine setWarnedMethod_D0_SK5(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1779 !DEC$ ATTRIBUTES DLLEXPORT :: setWarnedMethod_D0_SK5
1782 class(warn_type) ,
intent(inout) :: self
1783 character(
*,SKG) ,
intent(in) :: msg
1784 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1785 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1786 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1787 logical(LK) ,
intent(in) ,
optional :: sticky
1792 module subroutine setWarnedMethod_D0_SK4(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1794 !DEC$ ATTRIBUTES DLLEXPORT :: setWarnedMethod_D0_SK4
1797 class(warn_type) ,
intent(inout) :: self
1798 character(
*,SKG) ,
intent(in) :: msg
1799 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1800 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1801 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1802 logical(LK) ,
intent(in) ,
optional :: sticky
1807 module subroutine setWarnedMethod_D0_SK3(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1809 !DEC$ ATTRIBUTES DLLEXPORT :: setWarnedMethod_D0_SK3
1812 class(warn_type) ,
intent(inout) :: self
1813 character(
*,SKG) ,
intent(in) :: msg
1814 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1815 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1816 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1817 logical(LK) ,
intent(in) ,
optional :: sticky
1822 module subroutine setWarnedMethod_D0_SK2(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1824 !DEC$ ATTRIBUTES DLLEXPORT :: setWarnedMethod_D0_SK2
1827 class(warn_type) ,
intent(inout) :: self
1828 character(
*,SKG) ,
intent(in) :: msg
1829 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1830 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1831 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1832 logical(LK) ,
intent(in) ,
optional :: sticky
1837 module subroutine setWarnedMethod_D0_SK1(self, msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky)
1838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1839 !DEC$ ATTRIBUTES DLLEXPORT :: setWarnedMethod_D0_SK1
1842 class(warn_type) ,
intent(inout) :: self
1843 character(
*,SKG) ,
intent(in) :: msg
1844 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
1845 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1846 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
1847 logical(LK) ,
intent(in) ,
optional :: sticky
1854 module subroutine setAbortedMethod_D0_SK5(self, msg, help, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky, stat, renabled)
1855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1856 !DEC$ ATTRIBUTES DLLEXPORT :: setAbortedMethod_D0_SK5
1859 class(stop_type) ,
intent(inout) :: self
1860 character(
*,SKG) ,
intent(in) :: msg
1861 character(
*,SKG) ,
intent(in) ,
optional :: help, prefix, indent, break, newline
1862 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1863 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit, stat
1864 logical(LK) ,
intent(in) ,
optional :: renabled
1865 logical(LK) ,
intent(in) ,
optional :: sticky
1870 module subroutine setAbortedMethod_D0_SK4(self, msg, help, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky, stat, renabled)
1871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1872 !DEC$ ATTRIBUTES DLLEXPORT :: setAbortedMethod_D0_SK4
1875 class(stop_type) ,
intent(inout) :: self
1876 character(
*,SKG) ,
intent(in) :: msg
1877 character(
*,SKG) ,
intent(in) ,
optional :: help, prefix, indent, break, newline
1878 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1879 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit, stat
1880 logical(LK) ,
intent(in) ,
optional :: renabled
1881 logical(LK) ,
intent(in) ,
optional :: sticky
1886 module subroutine setAbortedMethod_D0_SK3(self, msg, help, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky, stat, renabled)
1887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1888 !DEC$ ATTRIBUTES DLLEXPORT :: setAbortedMethod_D0_SK3
1891 class(stop_type) ,
intent(inout) :: self
1892 character(
*,SKG) ,
intent(in) :: msg
1893 character(
*,SKG) ,
intent(in) ,
optional :: help, prefix, indent, break, newline
1894 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1895 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit, stat
1896 logical(LK) ,
intent(in) ,
optional :: renabled
1897 logical(LK) ,
intent(in) ,
optional :: sticky
1902 module subroutine setAbortedMethod_D0_SK2(self, msg, help, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky, stat, renabled)
1903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1904 !DEC$ ATTRIBUTES DLLEXPORT :: setAbortedMethod_D0_SK2
1907 class(stop_type) ,
intent(inout) :: self
1908 character(
*,SKG) ,
intent(in) :: msg
1909 character(
*,SKG) ,
intent(in) ,
optional :: help, prefix, indent, break, newline
1910 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1911 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit, stat
1912 logical(LK) ,
intent(in) ,
optional :: renabled
1913 logical(LK) ,
intent(in) ,
optional :: sticky
1918 module subroutine setAbortedMethod_D0_SK1(self, msg, help, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, sticky, stat, renabled)
1919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1920 !DEC$ ATTRIBUTES DLLEXPORT :: setAbortedMethod_D0_SK1
1923 class(stop_type) ,
intent(inout) :: self
1924 character(
*,SKG) ,
intent(in) :: msg
1925 character(
*,SKG) ,
intent(in) ,
optional :: help, prefix, indent, break, newline
1926 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
1927 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit, stat
1928 logical(LK) ,
intent(in) ,
optional :: renabled
1929 logical(LK) ,
intent(in) ,
optional :: sticky
2008 module subroutine setMarkedStatic_D0_SK5(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2010 !DEC$ ATTRIBUTES DLLEXPORT :: setMarkedStatic_D0_SK5
2013 character(
*,SKG) ,
intent(in) :: msg
2014 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2015 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2016 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2021 module subroutine setMarkedStatic_D0_SK4(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2023 !DEC$ ATTRIBUTES DLLEXPORT :: setMarkedStatic_D0_SK4
2026 character(
*,SKG) ,
intent(in) :: msg
2027 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2028 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2029 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2034 module subroutine setMarkedStatic_D0_SK3(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2036 !DEC$ ATTRIBUTES DLLEXPORT :: setMarkedStatic_D0_SK3
2039 character(
*,SKG) ,
intent(in) :: msg
2040 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2041 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2042 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2047 module subroutine setMarkedStatic_D0_SK2(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2049 !DEC$ ATTRIBUTES DLLEXPORT :: setMarkedStatic_D0_SK2
2052 character(
*,SKG) ,
intent(in) :: msg
2053 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2054 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2055 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2060 module subroutine setMarkedStatic_D0_SK1(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2062 !DEC$ ATTRIBUTES DLLEXPORT :: setMarkedStatic_D0_SK1
2065 character(
*,SKG) ,
intent(in) :: msg
2066 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2067 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2068 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2150 module subroutine setNotedStatic_D0_SK5(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2152 !DEC$ ATTRIBUTES DLLEXPORT :: setNotedStatic_D0_SK5
2155 character(
*,SKG) ,
intent(in) :: msg
2156 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2157 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2158 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2163 module subroutine setNotedStatic_D0_SK4(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2165 !DEC$ ATTRIBUTES DLLEXPORT :: setNotedStatic_D0_SK4
2168 character(
*,SKG) ,
intent(in) :: msg
2169 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2170 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2171 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2176 module subroutine setNotedStatic_D0_SK3(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2178 !DEC$ ATTRIBUTES DLLEXPORT :: setNotedStatic_D0_SK3
2181 character(
*,SKG) ,
intent(in) :: msg
2182 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2183 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2184 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2189 module subroutine setNotedStatic_D0_SK2(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2191 !DEC$ ATTRIBUTES DLLEXPORT :: setNotedStatic_D0_SK2
2194 character(
*,SKG) ,
intent(in) :: msg
2195 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2196 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2197 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2202 module subroutine setNotedStatic_D0_SK1(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2204 !DEC$ ATTRIBUTES DLLEXPORT :: setNotedStatic_D0_SK1
2207 character(
*,SKG) ,
intent(in) :: msg
2208 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2209 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2210 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2292 module subroutine setWarnedStatic_D0_SK5(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2294 !DEC$ ATTRIBUTES DLLEXPORT :: setWarnedStatic_D0_SK5
2297 character(
*,SKG) ,
intent(in) :: msg
2298 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2299 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2300 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2305 module subroutine setWarnedStatic_D0_SK4(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2307 !DEC$ ATTRIBUTES DLLEXPORT :: setWarnedStatic_D0_SK4
2310 character(
*,SKG) ,
intent(in) :: msg
2311 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2312 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2313 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2318 module subroutine setWarnedStatic_D0_SK3(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2320 !DEC$ ATTRIBUTES DLLEXPORT :: setWarnedStatic_D0_SK3
2323 character(
*,SKG) ,
intent(in) :: msg
2324 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2325 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2326 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2331 module subroutine setWarnedStatic_D0_SK2(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2333 !DEC$ ATTRIBUTES DLLEXPORT :: setWarnedStatic_D0_SK2
2336 character(
*,SKG) ,
intent(in) :: msg
2337 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2338 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2339 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2344 module subroutine setWarnedStatic_D0_SK1(msg, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit)
2345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2346 !DEC$ ATTRIBUTES DLLEXPORT :: setWarnedStatic_D0_SK1
2349 character(
*,SKG) ,
intent(in) :: msg
2350 character(
*,SKG) ,
intent(in) ,
optional :: prefix, indent, break, newline
2351 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2352 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit
2445 module subroutine setAbortedStatic_D0_SK5(msg, help, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, stat, renabled)
2446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2447 !DEC$ ATTRIBUTES DLLEXPORT :: setAbortedStatic_D0_SK5
2450 character(
*,SKG) ,
intent(in) :: msg
2451 character(
*,SKG) ,
intent(in) ,
optional :: help, prefix, indent, break, newline
2452 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2453 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit, stat
2454 logical(LK) ,
intent(in) ,
optional :: renabled
2459 module subroutine setAbortedStatic_D0_SK4(msg, help, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, stat, renabled)
2460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2461 !DEC$ ATTRIBUTES DLLEXPORT :: setAbortedStatic_D0_SK4
2464 character(
*,SKG) ,
intent(in) :: msg
2465 character(
*,SKG) ,
intent(in) ,
optional :: help, prefix, indent, break, newline
2466 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2467 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit, stat
2468 logical(LK) ,
intent(in) ,
optional :: renabled
2473 module subroutine setAbortedStatic_D0_SK3(msg, help, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, stat, renabled)
2474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2475 !DEC$ ATTRIBUTES DLLEXPORT :: setAbortedStatic_D0_SK3
2478 character(
*,SKG) ,
intent(in) :: msg
2479 character(
*,SKG) ,
intent(in) ,
optional :: help, prefix, indent, break, newline
2480 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2481 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit, stat
2482 logical(LK) ,
intent(in) ,
optional :: renabled
2487 module subroutine setAbortedStatic_D0_SK2(msg, help, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, stat, renabled)
2488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2489 !DEC$ ATTRIBUTES DLLEXPORT :: setAbortedStatic_D0_SK2
2492 character(
*,SKG) ,
intent(in) :: msg
2493 character(
*,SKG) ,
intent(in) ,
optional :: help, prefix, indent, break, newline
2494 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2495 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit, stat
2496 logical(LK) ,
intent(in) ,
optional :: renabled
2501 module subroutine setAbortedStatic_D0_SK1(msg, help, prefix, indent, break, newline, width, maxwidth, tmsize, bmsize, unit, stat, renabled)
2502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2503 !DEC$ ATTRIBUTES DLLEXPORT :: setAbortedStatic_D0_SK1
2506 character(
*,SKG) ,
intent(in) :: msg
2507 character(
*,SKG) ,
intent(in) ,
optional :: help, prefix, indent, break, newline
2508 integer(IK) ,
intent(in) ,
optional :: width, maxwidth
2509 integer(IK) ,
intent(in) ,
optional :: tmsize, bmsize, unit, stat
2510 logical(LK) ,
intent(in) ,
optional :: renabled
2524end module pm_err ! LCOV_EXCL_LINE
Generate and return a decorated string as "@file(FILE)" where FILE is replaced by the input source fi...
Generate and return a decorated string resulting from the concatenation of getFile(FILE) and getLine(...
Generate and return a decorated string as "@line(LINE)" where LINE is replaced by the input source li...
Write the input string in the format of a fatal error to the output, then call error stop or return t...
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Write the input string in the format of a custom notification, warning, or other types of messages to...
Write the input string in the format of a notification to the output.
Write the input string in the format of a warning to the output.
Generate and return an object of type stop_type with the user-specified input attributes.
This module contains classes and procedures for reporting and handling errors.
logical(LK), parameter SOFT_EXIT_ENABLED
The scalar logical of default kind LK. If .true., the setAborted generic interface avoid calling the...
integer(IK) STATNULL
The scalar integer of default kind IK containing the null value initially assigned to the stat compon...
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...
This is the derived type for generating objects to gracefully and verbosely handle runtime unexpected...
This is the derived type for constructing objects that contain the specifications of the generic inte...
This is the base derived type for constructing subclasses that contain the specifications of the gene...
Generate and return an object of type mark_type with the user-specified input attributes.
Generate and return an object of type warn_type with the user-specified input attributes.
Generate and return an object of type note_type with the user-specified input attributes.