os_type_name Function

public function os_type_name(os_type)

Match lowercase string with name of OS to os_type enum

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: os_type

Enum representing type of OS

Return Value character(len=:), allocatable

Name of operating system


Source Code

      function os_type_name(os_type)

        !> Name of operating system
        character(len=:), allocatable :: os_type_name

        !> Enum representing type of OS
        integer, intent(in) :: os_type

        select case (os_type)
          case (OS_ALL); os_type_name = "all"
          case default; os_type_name = lower(OS_NAME(os_type))
        end select

      end function os_type_name