118 logical(
LK) :: windows
= .false._LK
119 logical(
LK) :: cygwin
= .false._LK
120 logical(
LK) :: mingw
= .false._LK
121 logical(
LK) :: msys
= .false._LK
122 logical(
LK) :: linux
= .false._LK
123 logical(
LK) :: darwin
= .false._LK
124 logical(
LK) :: freebsd
= .false._LK
132 impure module function kernelis_typer()
result(kernelis)
133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
134 !DEC$ ATTRIBUTES DLLEXPORT :: kernelis_typer
139 impure module function kernelis_typerFailed(failed)
result(kernelis)
140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
141 !DEC$ ATTRIBUTES DLLEXPORT :: kernelis_typerFailed
144 logical(
LK) ,
intent(out) :: failed
148 impure module function kernelis_typerFailedMsg(failed, errmsg)
result(kernelis)
149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
150 !DEC$ ATTRIBUTES DLLEXPORT :: kernelis_typerFailedMsg
153 logical(
LK) ,
intent(out) :: failed
154 character(
*,SKG),
intent(inout) :: errmsg
245 character(:, SK),
allocatable :: name
254 impure module function kernel_typer()
result(kernel)
255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
256 !DEC$ ATTRIBUTES DLLEXPORT :: kernel_typer
261 impure module function kernel_typerFailed(failed)
result(kernel)
262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
263 !DEC$ ATTRIBUTES DLLEXPORT :: kernel_typerFailed
266 logical(
LK) ,
intent(out) :: failed
270 impure module function kernel_typerFailedMsg(failed, errmsg)
result(kernel)
271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
272 !DEC$ ATTRIBUTES DLLEXPORT :: kernel_typerFailedMsg
275 logical(
LK) ,
intent(out) :: failed
276 character(
*,SKG),
intent(inout) :: errmsg
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
432 character(:,SKG) ,
allocatable :: sysInfo
435 module function getSysInfoFailed(failed)
result(sysInfo)
436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
437 !DEC$ ATTRIBUTES DLLEXPORT :: getSysInfoFailed
440 logical(LK) ,
intent(out) :: failed
441 character(:,SKG) ,
allocatable :: sysInfo
444 module function getSysInfoFailedMsg(failed, errmsg)
result(sysInfo)
445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
446 !DEC$ ATTRIBUTES DLLEXPORT :: getSysInfoFailedMsg
449 logical(LK) ,
intent(out) :: failed
450 character(
*,SKG),
intent(inout) :: errmsg
451 character(:,SKG) ,
allocatable :: sysInfo
518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
524 module function isKernelWindowsFailed(failed)
result(itis)
525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
526 !DEC$ ATTRIBUTES DLLEXPORT :: isKernelWindowsFailed
529 logical(LK) ,
intent(out) :: failed
533 module function isKernelWindowsFailedMsg(failed, errmsg)
result(itis)
534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
535 !DEC$ ATTRIBUTES DLLEXPORT :: isKernelWindowsFailedMsg
537 logical(LK) ,
intent(out) :: failed
538 character(
*, SK),
intent(inout) :: errmsg
606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
612 module function isKernelDarwinFailed(failed)
result(itis)
613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
614 !DEC$ ATTRIBUTES DLLEXPORT :: isKernelDarwinFailed
617 logical(LK) ,
intent(out) :: failed
621 module function isKernelDarwinFailedMsg(failed, errmsg)
result(itis)
622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
623 !DEC$ ATTRIBUTES DLLEXPORT :: isKernelDarwinFailedMsg
625 logical(LK) ,
intent(out) :: failed
626 character(
*, SK),
intent(inout) :: errmsg
694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
700 module function isKernelLinuxFailed(failed)
result(itis)
701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
702 !DEC$ ATTRIBUTES DLLEXPORT :: isKernelLinuxFailed
705 logical(LK) ,
intent(out) :: failed
709 module function isKernelLinuxFailedMsg(failed, errmsg)
result(itis)
710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
711 !DEC$ ATTRIBUTES DLLEXPORT :: isKernelLinuxFailedMsg
713 logical(LK) ,
intent(out) :: failed
714 character(
*, SK),
intent(inout) :: errmsg
Generate and return a string containing a comprehensive report of the operating system and platform s...
Generate and return .true. if the Operating System kernel is the macOS Darwin.
Generate and return .true. if the Operating System kernel is Linux.
Generate and return .true. if the Operating System kernel is the Windows.
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter CK
The default complex kind in the ParaMonte library: real64 in Fortran, c_double_complex in C-Fortran I...
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains procedures and generic interfaces for inferring the operating system kernel type...
character(*, SK), parameter MODULE_NAME
This is the kernel_type class for generating objects with logical components to determine the operati...
This is the kernelis_type class for generating objects with logical components to determine the opera...