ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_err.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
49
50!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51
52module pm_err
53
54 use pm_kind, only: SK, IK, LK
55
56 implicit none
57
58 character(*, SK), parameter :: MODULE_NAME = "@pm_err"
59
60!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61
62!#if CODECOV_ENABLED || BASIC_TEST_ENABLED || SAMPLER_TEST_ENABLED || ((MATLAB_ENABLED || PYTHON_ENABLED || R_ENABLED) && !CAF_ENABLED && !MPI_ENABLED)
63#if (MATLAB_ENABLED || PYTHON_ENABLED || R_ENABLED) && !(CAF_ENABLED || MPI_ENABLED)
64
65 logical(LK) , parameter :: SOFT_EXIT_ENABLED = .true._LK
67#else
68
79 logical(LK) , parameter :: SOFT_EXIT_ENABLED = .false._LK
80#endif
81
82 ! \brief
83 ! The scalar `public` module variable of type `logical` of default kind \LK.<br>
84 ! If `.true.`, the [setAborted](@ref pm_err::setAborted) subroutines avoid calling the Fortran `error stop` statement upon
85 ! detecting the occurrence of an error. Instead they return the program control to the caller procedure for further actions.<br>
86 ! This flag is important for testing the parallel implementations of the routines of the ParaMonte library.<br>
87 !logical(LK) :: mv_isTestingMode = .false._LK
88
98 integer(IK) :: STATNULL = -huge(0_IK)
99
100 !logical(LK) , parameter :: ERR_HANDLING_REQUESTED = .false._LK
101
102!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103
157 type :: err_type
158 logical(LK) :: iswarned = .false._LK
159 logical(LK) :: occurred = .false._LK
160 integer(IK) :: stat = -huge(0_IK)
162 character(:, SK), allocatable :: msg
163 end type
164
165!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166
167 interface err_type
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
171#endif
172 use pm_kind, only: SK, IK
173 logical(LK) , intent(in) , optional :: occurred
174 integer(IK) , intent(in) , optional :: stat
175 character(*, SK) , intent(in) , optional :: msg
176 type(err_type) :: err
177 end function
178 end interface
179
180!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
181
182! !> \brief
183! !> This is the derived type for generating objects to gracefully and
184! !> verbosely handle runtime unexpected behavior in the ParaMonte library.<br>
185! !>
186! !> \see
187! !> [setNoted](@ref pm_err::setNoted)<br>
188! !> [setWarned](@ref pm_err::setWarned)<br>
189! !> [setAborted](@ref pm_err::setAborted)<br>
190! !> [setAsserted](@ref pm_err::setAsserted)<br>
191! !>
192! !> \example{message_type}
193! !> \include{lineno} example/pm_err/err_type/main.F90
194! !> \compilef{message_type}
195! !> \output{message_type}
196! !> \include{lineno} example/pm_err/err_type/main.out.F90
197! !>
198! !> \final{message_type}
199! !>
200! !> \author
201! !> \AmirShahmoradi, 3:43 AM Friday, March 1, 2013, Institute for Fusion Studies, The University of Texas at Austin
202! type :: message_type
203! logical(LK) :: occurred = .false._LK !< The scalar `logical` of default kind \LK that is `.true.` if a runtime error occurs.<br>
204! integer(IK) :: stat = -huge(0_IK) !< The scalar `integer` of default kind \IK to contain the error flag or status
205! !< code returned by the compiler or program upon encountering an error.<br>
206! character(:, SK), allocatable :: msg !< The scalar `character` of default kind \SK containing the error message.<br>
207! !logical(LK) , private :: opened = .false._LK !< \private The scalar `logical` of default kind \LK that is internally set to `.false.` once the object is constructed.<br>
208! ! !! It is later set to `.true.` by all other methods of the class to allow closing of the file in the `final` subroutine.<br>
209! ! !! This flag is needed to avoid unintentional closing of the opened file by the finalizer routine of the derived type.<br>
210! integer(IK) , private :: tmsize = 0_IK !< \private The scalar `integer` of default kind \IK representing the number of records to skip on top of the current record.<br>
211! integer(IK) , private :: count = 1_IK !< \private The scalar `integer` of default kind \IK representing the number of times to repeat the current record.<br>
212! integer(IK) , private :: bmsize = 0_IK !< \private The scalar `integer` of default kind \IK representing the number of records to skip on the bottom of the current record.<br>
213! integer(IK) :: unit = output_unit !< \public The scalar `integer` of default kind \IK representing the unit number of the file to which the record must be written.<br>
214! logical(LK) , private :: sticky = .false._LK !< \public The scalar `logical` of default kind \LK. If `.true.` the relevant properties of the current object can be later changed by its methods.<br>
215! logical(LK) , private :: generic = .true._LK !< \public The scalar `logical` of default kind \LK that is `.true.` only if the generic formatting of routine is used for display (unspecified by the user).<br>
216! character(3, SK) , private :: advance = SK_"YES" !< \private The scalar `character` of default kind \SK representing the default IO `advance` mode for reading/writing actions.<br>
217! character(:, SK), allocatable , private :: format !< \private The scalar `character` of default kind \SK representing the default IO format with which the records should be displayed.<br>
218! character(:, SK), allocatable , private :: delim !< \private The scalar `character` of default kind \SK representing the default delimiter to be used for wrapping strings before displaying them.<br>
219! character(:, SK), allocatable , private :: file !< \private The scalar `character` of default kind \SK representing the file path to which the record must be written.<br>
220! !> \cond excluded
221! contains
222! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
223! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
224! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
225!
226! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
227!
228!#if SK5_ENABLED
229! procedure, nopass :: setNoted_D0_SK5
230! generic :: note => setNoted_D0_SK5
231!#endif
232!#if SK4_ENABLED
233! procedure, nopass :: setNoted_D0_SK4
234! generic :: note => setNoted_D0_SK4
235!#endif
236!#if SK3_ENABLED
237! procedure, nopass :: setNoted_D0_SK3
238! generic :: note => setNoted_D0_SK3
239!#endif
240!#if SK2_ENABLED
241! procedure, nopass :: setNoted_D0_SK2
242! generic :: note => setNoted_D0_SK2
243!#endif
244!#if SK1_ENABLED
245! procedure, nopass :: setNoted_D0_SK1
246! generic :: note => setNoted_D0_SK1
247!#endif
248!
249! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250!
251! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
252! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254!
255! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
256!
257!#if SK5_ENABLED
258! procedure, nopass :: setWarned_D0_SK5
259! generic :: warn => setWarned_D0_SK5
260!#endif
261!#if SK4_ENABLED
262! procedure, nopass :: setWarned_D0_SK4
263! generic :: warn => setWarned_D0_SK4
264!#endif
265!#if SK3_ENABLED
266! procedure, nopass :: setWarned_D0_SK3
267! generic :: warn => setWarned_D0_SK3
268!#endif
269!#if SK2_ENABLED
270! procedure, nopass :: setWarned_D0_SK2
271! generic :: warn => setWarned_D0_SK2
272!#endif
273!#if SK1_ENABLED
274! procedure, nopass :: setWarned_D0_SK1
275! generic :: warn => setWarned_D0_SK1
276!#endif
277!
278! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
279!
280! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
281!
282! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
283! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
285!
286! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
287!
288!#if SK5_ENABLED
289! procedure, nopass :: stop_D0_SK5
290! generic :: stop => stop_D0_SK5
291!#endif
292!#if SK4_ENABLED
293! procedure, nopass :: stop_D0_SK4
294! generic :: stop => stop_D0_SK4
295!#endif
296!#if SK3_ENABLED
297! procedure, nopass :: stop_D0_SK3
298! generic :: stop => stop_D0_SK3
299!#endif
300!#if SK2_ENABLED
301! procedure, nopass :: stop_D0_SK2
302! generic :: stop => stop_D0_SK2
303!#endif
304!#if SK1_ENABLED
305! procedure, nopass :: stop_D0_SK1
306! generic :: stop => stop_D0_SK1
307!#endif
308!
309! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310!
311! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314!
315! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
316! end type
317
318!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319
382 interface getFine
383
384 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
385
386#if SK5_ENABLED
387 pure module function getFine_SK5(file, line) result(str)
388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
389 !DEC$ ATTRIBUTES DLLEXPORT :: getFine_SK5
390#endif
391 use pm_kind, only: SK
392 character(*) , intent(in) :: file
393 integer , intent(in) :: line
394 character(:, SK), allocatable :: str
395 end function
396#endif
397
398#if SK4_ENABLED
399 pure module function getFine_SK4(file, line) result(str)
400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
401 !DEC$ ATTRIBUTES DLLEXPORT :: getFine_SK4
402#endif
403 use pm_kind, only: SK
404 character(*) , intent(in) :: file
405 integer , intent(in) :: line
406 character(:, SK), allocatable :: str
407 end function
408#endif
409
410#if SK3_ENABLED
411 pure module function getFine_SK3(file, line) result(str)
412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
413 !DEC$ ATTRIBUTES DLLEXPORT :: getFine_SK3
414#endif
415 use pm_kind, only: SK
416 character(*) , intent(in) :: file
417 integer , intent(in) :: line
418 character(:, SK), allocatable :: str
419 end function
420#endif
421
422#if SK2_ENABLED
423 pure module function getFine_SK2(file, line) result(str)
424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
425 !DEC$ ATTRIBUTES DLLEXPORT :: getFine_SK2
426#endif
427 use pm_kind, only: SK
428 character(*) , intent(in) :: file
429 integer , intent(in) :: line
430 character(:, SK), allocatable :: str
431 end function
432#endif
433
434#if SK1_ENABLED
435 pure module function getFine_SK1(file, line) result(str)
436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
437 !DEC$ ATTRIBUTES DLLEXPORT :: getFine_SK1
438#endif
439 use pm_kind, only: SK
440 character(*) , intent(in) :: file
441 integer , intent(in) :: line
442 character(:, SK), allocatable :: str
443 end function
444#endif
445
446 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447
448 end interface
449
450!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
451
504 interface getFile
505
506 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
507
508#if SK5_ENABLED
509 pure module function getFile_SK5(file) result(str)
510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
511 !DEC$ ATTRIBUTES DLLEXPORT :: getFile_SK5
512#endif
513 use pm_kind, only: SKG => SK5
514 character(*,SKG), intent(in) :: file
515 character(len(file) + 7, SK) :: str
516 end function
517#endif
518
519#if SK4_ENABLED
520 pure module function getFile_SK4(file) result(str)
521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
522 !DEC$ ATTRIBUTES DLLEXPORT :: getFile_SK4
523#endif
524 use pm_kind, only: SKG => SK4
525 character(*,SKG), intent(in) :: file
526 character(len(file) + 7, SK) :: str
527 end function
528#endif
529
530#if SK3_ENABLED
531 pure module function getFile_SK3(file) result(str)
532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
533 !DEC$ ATTRIBUTES DLLEXPORT :: getFile_SK3
534#endif
535 use pm_kind, only: SKG => SK3
536 character(*,SKG), intent(in) :: file
537 character(len(file) + 7, SK) :: str
538 end function
539#endif
540
541#if SK2_ENABLED
542 pure module function getFile_SK2(file) result(str)
543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
544 !DEC$ ATTRIBUTES DLLEXPORT :: getFile_SK2
545#endif
546 use pm_kind, only: SKG => SK2
547 character(*,SKG), intent(in) :: file
548 character(len(file) + 7, SK) :: str
549 end function
550#endif
551
552#if SK1_ENABLED
553 pure module function getFile_SK1(file) result(str)
554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
555 !DEC$ ATTRIBUTES DLLEXPORT :: getFile_SK1
556#endif
557 use pm_kind, only: SKG => SK1
558 character(*,SKG), intent(in) :: file
559 character(len(file) + 7, SK) :: str
560 end function
561#endif
562
563 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
564
565 end interface
566
567!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
568
621 interface getLine
622
623 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
624
625#if IK5_ENABLED
626 pure module function getLine_IK5(line) result(str)
627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
628 !DEC$ ATTRIBUTES DLLEXPORT :: getLine_IK5
629#endif
630 use pm_kind, only: IKG => IK5
631 integer(IKG) , intent(in) :: line
632 character(:, SK), allocatable :: str
633 end function
634#endif
635
636#if IK4_ENABLED
637 pure module function getLine_IK4(line) result(str)
638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
639 !DEC$ ATTRIBUTES DLLEXPORT :: getLine_IK4
640#endif
641 use pm_kind, only: IKG => IK4
642 integer(IKG) , intent(in) :: line
643 character(:, SK), allocatable :: str
644 end function
645#endif
646
647#if IK3_ENABLED
648 pure module function getLine_IK3(line) result(str)
649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
650 !DEC$ ATTRIBUTES DLLEXPORT :: getLine_IK3
651#endif
652 use pm_kind, only: IKG => IK3
653 integer(IKG) , intent(in) :: line
654 character(:, SK), allocatable :: str
655 end function
656#endif
657
658#if IK2_ENABLED
659 pure module function getLine_IK2(line) result(str)
660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
661 !DEC$ ATTRIBUTES DLLEXPORT :: getLine_IK2
662#endif
663 use pm_kind, only: IKG => IK2
664 integer(IKG) , intent(in) :: line
665 character(:, SK), allocatable :: str
666 end function
667#endif
668
669#if IK1_ENABLED
670 pure module function getLine_IK1(line) result(str)
671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
672 !DEC$ ATTRIBUTES DLLEXPORT :: getLine_IK1
673#endif
674 use pm_kind, only: IKG => IK1
675 integer(IKG) , intent(in) :: line
676 character(:, SK), allocatable :: str
677 end function
678#endif
679
680 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
681
682 end interface
683
684!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
685
735 interface setAsserted
736
737 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
738
739#if LK5_ENABLED
740 module subroutine setAsserted_LK5(assertion, msg, renabled)
741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
742 !DEC$ ATTRIBUTES DLLEXPORT :: setAsserted_LK5
743#endif
744 use pm_kind, only: LKG => LK5
745 logical(LKG) , intent(in) :: assertion
746 character(*, SK), intent(in), optional :: msg
747 logical(LK) , intent(in), optional :: renabled
748 end subroutine
749#endif
750
751#if LK4_ENABLED
752 module subroutine setAsserted_LK4(assertion, msg, renabled)
753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
754 !DEC$ ATTRIBUTES DLLEXPORT :: setAsserted_LK4
755#endif
756 use pm_kind, only: LKG => LK4
757 logical(LKG) , intent(in) :: assertion
758 character(*, SK), intent(in), optional :: msg
759 logical(LK) , intent(in), optional :: renabled
760 end subroutine
761#endif
762
763#if LK3_ENABLED
764 module subroutine setAsserted_LK3(assertion, msg, renabled)
765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
766 !DEC$ ATTRIBUTES DLLEXPORT :: setAsserted_LK3
767#endif
768 use pm_kind, only: LKG => LK3
769 logical(LKG) , intent(in) :: assertion
770 character(*, SK), intent(in), optional :: msg
771 logical(LK) , intent(in), optional :: renabled
772 end subroutine
773#endif
774
775#if LK2_ENABLED
776 module subroutine setAsserted_LK2(assertion, msg, renabled)
777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
778 !DEC$ ATTRIBUTES DLLEXPORT :: setAsserted_LK2
779#endif
780 use pm_kind, only: LKG => LK2
781 logical(LKG) , intent(in) :: assertion
782 character(*, SK), intent(in), optional :: msg
783 logical(LK) , intent(in), optional :: renabled
784 end subroutine
785#endif
786
787#if LK1_ENABLED
788 module subroutine setAsserted_LK1(assertion, msg, renabled)
789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
790 !DEC$ ATTRIBUTES DLLEXPORT :: setAsserted_LK1
791#endif
792 use pm_kind, only: LKG => LK1
793 logical(LKG) , intent(in) :: assertion
794 character(*, SK), intent(in), optional :: msg
795 logical(LK) , intent(in), optional :: renabled
796 end subroutine
797#endif
798
799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
800
801 end interface
802
803!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
804
889 type, abstract :: message_type
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
900 !logical(LK) , private :: uninit = .true._LK !< \private The scalar logical that is `.true.` if and only if the type instance has not been initialized with the constructor.<br>
901 end type
902
903!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
904
973 type, extends(message_type) :: mark_type
974 contains
976#if SK5_ENABLED
977 procedure, pass :: setMarkedMethod_D0_SK5
978 generic :: show => setMarkedMethod_D0_SK5
979#endif
980#if SK4_ENABLED
981 procedure, pass :: setMarkedMethod_D0_SK4
982 generic :: show => setMarkedMethod_D0_SK4
983#endif
984#if SK3_ENABLED
985 procedure, pass :: setMarkedMethod_D0_SK3
986 generic :: show => setMarkedMethod_D0_SK3
987#endif
988#if SK2_ENABLED
989 procedure, pass :: setMarkedMethod_D0_SK2
990 generic :: show => setMarkedMethod_D0_SK2
991#endif
992#if SK1_ENABLED
993 procedure, pass :: setMarkedMethod_D0_SK1
994 generic :: show => setMarkedMethod_D0_SK1
995#endif
996
997 end type
998
1000 interface mark_type
1001 module procedure :: mark_typer
1002 end interface
1004
1005 interface
1006
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
1042#endif
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
1053 type(mark_type) :: self
1054 end function
1055 end interface
1056
1057!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1058
1127 type, extends(message_type) :: note_type
1128 contains
1130#if SK5_ENABLED
1131 procedure, pass :: setNotedMethod_D0_SK5
1132 generic :: show => setNotedMethod_D0_SK5
1133#endif
1134#if SK4_ENABLED
1135 procedure, pass :: setNotedMethod_D0_SK4
1136 generic :: show => setNotedMethod_D0_SK4
1137#endif
1138#if SK3_ENABLED
1139 procedure, pass :: setNotedMethod_D0_SK3
1140 generic :: show => setNotedMethod_D0_SK3
1141#endif
1142#if SK2_ENABLED
1143 procedure, pass :: setNotedMethod_D0_SK2
1144 generic :: show => setNotedMethod_D0_SK2
1145#endif
1146#if SK1_ENABLED
1147 procedure, pass :: setNotedMethod_D0_SK1
1148 generic :: show => setNotedMethod_D0_SK1
1149#endif
1150
1151 end type
1152
1154 interface note_type
1155 module procedure :: note_typer
1156 end interface
1158
1159 interface
1160
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
1196#endif
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
1207 type(note_type) :: self
1208 end function
1209 end interface
1210
1211!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1212
1278 type, extends(message_type) :: warn_type
1279 contains
1281#if SK5_ENABLED
1282 procedure, pass :: setWarnedMethod_D0_SK5
1283 generic :: show => setWarnedMethod_D0_SK5
1284#endif
1285#if SK4_ENABLED
1286 procedure, pass :: setWarnedMethod_D0_SK4
1287 generic :: show => setWarnedMethod_D0_SK4
1288#endif
1289#if SK3_ENABLED
1290 procedure, pass :: setWarnedMethod_D0_SK3
1291 generic :: show => setWarnedMethod_D0_SK3
1292#endif
1293#if SK2_ENABLED
1294 procedure, pass :: setWarnedMethod_D0_SK2
1295 generic :: show => setWarnedMethod_D0_SK2
1296#endif
1297#if SK1_ENABLED
1298 procedure, pass :: setWarnedMethod_D0_SK1
1299 generic :: show => setWarnedMethod_D0_SK1
1300#endif
1301
1302 end type
1303
1305 interface warn_type
1306 module procedure :: warn_typer
1307 end interface
1309
1310 interface
1311
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
1347#endif
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
1358 type(warn_type) :: self
1359 end function
1360 end interface
1361
1362!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1363
1442 type, extends(message_type) :: stop_type
1443 character(:, SK) , allocatable, public :: help
1444 integer(IK) , allocatable, public :: stat
1445 logical(LK) , allocatable, public :: renabled
1446 contains
1448#if SK5_ENABLED
1449 procedure, pass :: setAbortedMethod_D0_SK5
1450 generic :: show => setAbortedMethod_D0_SK5
1451#endif
1452#if SK4_ENABLED
1453 procedure, pass :: setAbortedMethod_D0_SK4
1454 generic :: show => setAbortedMethod_D0_SK4
1455#endif
1456#if SK3_ENABLED
1457 procedure, pass :: setAbortedMethod_D0_SK3
1458 generic :: show => setAbortedMethod_D0_SK3
1459#endif
1460#if SK2_ENABLED
1461 procedure, pass :: setAbortedMethod_D0_SK2
1462 generic :: show => setAbortedMethod_D0_SK2
1463#endif
1464#if SK1_ENABLED
1465 procedure, pass :: setAbortedMethod_D0_SK1
1466 generic :: show => setAbortedMethod_D0_SK1
1467#endif
1468
1469 end type
1470
1472 interface stop_type
1473 module procedure :: stop_typer
1474 end interface
1476
1477 interface
1478
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
1514#endif
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
1528 type(stop_type) :: self
1529 end function
1530 end interface
1531
1532!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1533
1618 interface show
1619
1620 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1621
1622#if SK5_ENABLED
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
1626#endif
1627 use pm_kind, only: SKG => 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
1634 end subroutine
1635#endif
1636
1637#if SK4_ENABLED
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
1641#endif
1642 use pm_kind, only: SKG => 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
1649 end subroutine
1650#endif
1651
1652#if SK3_ENABLED
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
1656#endif
1657 use pm_kind, only: SKG => 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
1664 end subroutine
1665#endif
1666
1667#if SK2_ENABLED
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
1671#endif
1672 use pm_kind, only: SKG => 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
1679 end subroutine
1680#endif
1681
1682#if SK1_ENABLED
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
1686#endif
1687 use pm_kind, only: SKG => 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
1694 end subroutine
1695#endif
1696
1697 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1698
1699#if SK5_ENABLED
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
1703#endif
1704 use pm_kind, only: SKG => 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
1711 end subroutine
1712#endif
1713
1714#if SK4_ENABLED
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
1718#endif
1719 use pm_kind, only: SKG => 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
1726 end subroutine
1727#endif
1728
1729#if SK3_ENABLED
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
1733#endif
1734 use pm_kind, only: SKG => 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
1741 end subroutine
1742#endif
1743
1744#if SK2_ENABLED
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
1748#endif
1749 use pm_kind, only: SKG => 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
1756 end subroutine
1757#endif
1758
1759#if SK1_ENABLED
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
1763#endif
1764 use pm_kind, only: SKG => 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
1771 end subroutine
1772#endif
1773
1774 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1775
1776#if SK5_ENABLED
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
1780#endif
1781 use pm_kind, only: SKG => 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
1788 end subroutine
1789#endif
1790
1791#if SK4_ENABLED
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
1795#endif
1796 use pm_kind, only: SKG => 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
1803 end subroutine
1804#endif
1805
1806#if SK3_ENABLED
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
1810#endif
1811 use pm_kind, only: SKG => 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
1818 end subroutine
1819#endif
1820
1821#if SK2_ENABLED
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
1825#endif
1826 use pm_kind, only: SKG => 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
1833 end subroutine
1834#endif
1835
1836#if SK1_ENABLED
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
1840#endif
1841 use pm_kind, only: SKG => 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
1848 end subroutine
1849#endif
1850
1851 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1852
1853#if SK5_ENABLED
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
1857#endif
1858 use pm_kind, only: SKG => 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
1866 end subroutine
1867#endif
1868
1869#if SK4_ENABLED
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
1873#endif
1874 use pm_kind, only: SKG => 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
1882 end subroutine
1883#endif
1884
1885#if SK3_ENABLED
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
1889#endif
1890 use pm_kind, only: SKG => 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
1898 end subroutine
1899#endif
1900
1901#if SK2_ENABLED
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
1905#endif
1906 use pm_kind, only: SKG => 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
1914 end subroutine
1915#endif
1916
1917#if SK1_ENABLED
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
1921#endif
1922 use pm_kind, only: SKG => 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
1930 end subroutine
1931#endif
1932
1933 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1934
1935 end interface
1936
1937!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1938
1999 interface setMarked
2000
2001 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2002 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2003 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2004
2005 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2006
2007#if SK5_ENABLED
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
2011#endif
2012 use pm_kind, only: SKG => 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
2017 end subroutine
2018#endif
2019
2020#if SK4_ENABLED
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
2024#endif
2025 use pm_kind, only: SKG => 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
2030 end subroutine
2031#endif
2032
2033#if SK3_ENABLED
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
2037#endif
2038 use pm_kind, only: SKG => 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
2043 end subroutine
2044#endif
2045
2046#if SK2_ENABLED
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
2050#endif
2051 use pm_kind, only: SKG => 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
2056 end subroutine
2057#endif
2058
2059#if SK1_ENABLED
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
2063#endif
2064 use pm_kind, only: SKG => 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
2069 end subroutine
2070#endif
2071
2072 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2073
2074 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2075 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2076 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2077
2078 end interface
2079
2080!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2081
2141 interface setNoted
2142
2143 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2144 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2145 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2146
2147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2148
2149#if SK5_ENABLED
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
2153#endif
2154 use pm_kind, only: SKG => 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
2159 end subroutine
2160#endif
2161
2162#if SK4_ENABLED
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
2166#endif
2167 use pm_kind, only: SKG => 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
2172 end subroutine
2173#endif
2174
2175#if SK3_ENABLED
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
2179#endif
2180 use pm_kind, only: SKG => 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
2185 end subroutine
2186#endif
2187
2188#if SK2_ENABLED
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
2192#endif
2193 use pm_kind, only: SKG => 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
2198 end subroutine
2199#endif
2200
2201#if SK1_ENABLED
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
2205#endif
2206 use pm_kind, only: SKG => 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
2211 end subroutine
2212#endif
2213
2214 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2215
2216 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2217 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2218 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2219
2220 end interface
2221
2222!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2223
2283 interface setWarned
2284
2285 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2286 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2287 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2288
2289 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2290
2291#if SK5_ENABLED
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
2295#endif
2296 use pm_kind, only: SKG => 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
2301 end subroutine
2302#endif
2303
2304#if SK4_ENABLED
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
2308#endif
2309 use pm_kind, only: SKG => 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
2314 end subroutine
2315#endif
2316
2317#if SK3_ENABLED
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
2321#endif
2322 use pm_kind, only: SKG => 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
2327 end subroutine
2328#endif
2329
2330#if SK2_ENABLED
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
2334#endif
2335 use pm_kind, only: SKG => 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
2340 end subroutine
2341#endif
2342
2343#if SK1_ENABLED
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
2347#endif
2348 use pm_kind, only: SKG => 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
2353 end subroutine
2354#endif
2355
2356 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2357
2358 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2359 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2360 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2361
2362 end interface
2363
2364!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2365
2436 interface setAborted
2437
2438 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2439 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2440 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2441
2442 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2443
2444#if SK5_ENABLED
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
2448#endif
2449 use pm_kind, only: SKG => 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
2455 end subroutine
2456#endif
2457
2458#if SK4_ENABLED
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
2462#endif
2463 use pm_kind, only: SKG => 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
2469 end subroutine
2470#endif
2471
2472#if SK3_ENABLED
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
2476#endif
2477 use pm_kind, only: SKG => 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
2483 end subroutine
2484#endif
2485
2486#if SK2_ENABLED
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
2490#endif
2491 use pm_kind, only: SKG => 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
2497 end subroutine
2498#endif
2499
2500#if SK1_ENABLED
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
2504#endif
2505 use pm_kind, only: SKG => 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
2511 end subroutine
2512#endif
2513
2514 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2515
2516 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2517 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2518 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2519
2520 end interface
2521
2522!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2523
2524end module pm_err ! LCOV_EXCL_LINE
pm_err::getFile
Generate and return a decorated string as "@file(FILE)" where FILE is replaced by the input source fi...
Definition: pm_err.F90:504
pm_err::getFine
Generate and return a decorated string resulting from the concatenation of getFile(FILE) and getLine(...
Definition: pm_err.F90:382
pm_err::getLine
Generate and return a decorated string as "@line(LINE)" where LINE is replaced by the input source li...
Definition: pm_err.F90:621
pm_err::setAborted
Write the input string in the format of a fatal error to the output, then call error stop or return t...
Definition: pm_err.F90:2436
pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735
pm_err::setMarked
Write the input string in the format of a custom notification, warning, or other types of messages to...
Definition: pm_err.F90:1999
pm_err::setNoted
Write the input string in the format of a notification to the output.
Definition: pm_err.F90:2141
pm_err::setWarned
Write the input string in the format of a warning to the output.
Definition: pm_err.F90:2283
pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_err::SOFT_EXIT_ENABLED
logical(LK), parameter SOFT_EXIT_ENABLED
The scalar logical of default kind LK. If .true., the setAborted generic interface avoid calling the...
Definition: pm_err.F90:79
pm_err::STATNULL
integer(IK) STATNULL
The scalar integer of default kind IK containing the null value initially assigned to the stat compon...
Definition: pm_err.F90:98
pm_err::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_err.F90:58
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::SK5
integer, parameter SK5
Definition: pm_kind.F90:326
pm_kind::LK1
integer, parameter LK1
Definition: pm_kind.F90:412
pm_kind::IK3
integer, parameter IK3
Definition: pm_kind.F90:368
pm_kind::SK1
integer, parameter SK1
Definition: pm_kind.F90:346
pm_kind::IK1
integer, parameter IK1
Definition: pm_kind.F90:382
pm_kind::LK5
integer, parameter LK5
Definition: pm_kind.F90:392
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::LK2
integer, parameter LK2
Definition: pm_kind.F90:407
pm_kind::LK4
integer, parameter LK4
Definition: pm_kind.F90:397
pm_kind::SK4
integer, parameter SK4
Definition: pm_kind.F90:331
pm_kind::LK3
integer, parameter LK3
Definition: pm_kind.F90:402
pm_kind::IK2
integer, parameter IK2
Definition: pm_kind.F90:375
pm_kind::SK2
integer, parameter SK2
Definition: pm_kind.F90:341
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::IK4
integer, parameter IK4
Definition: pm_kind.F90:361
pm_kind::IK5
integer, parameter IK5
Definition: pm_kind.F90:354
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::SK3
integer, parameter SK3
Definition: pm_kind.F90:336
pm_err::err_type
This is the derived type for generating objects to gracefully and verbosely handle runtime unexpected...
Definition: pm_err.F90:157
pm_err::mark_type
This is the derived type for constructing objects that contain the specifications of the generic inte...
Definition: pm_err.F90:973
pm_err::message_type
This is the base derived type for constructing subclasses that contain the specifications of the gene...
Definition: pm_err.F90:889
pm_err::note_type
Generate and return an object of type mark_type with the user-specified input attributes.
Definition: pm_err.F90:1127
pm_err::stop_type
Generate and return an object of type warn_type with the user-specified input attributes.
Definition: pm_err.F90:1442
pm_err::warn_type
Generate and return an object of type note_type with the user-specified input attributes.
Definition: pm_err.F90:1278