functionis_windowsprivate
logical function is_windows()
True on Windows, which sets the variable OS to this value.
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| is_windows | logical |
Source
Show the code
logical function is_windows()
character(len=16) :: value
integer :: status
call get_environment_variable('OS', value, status=status)
is_windows = status == 0 .and. value == 'Windows_NT'
end function is_windows