get_option_with_default_logical Function

  1. optionals.fpp
  2. optionals
  3. get_option_with_default_logical

private elemental function get_option_with_default_logical(option, default) result(option_out)

Returns option if present or default if not.

Arguments

Type IntentOptional Attributes Name
logical, intent(in), optional :: option
logical, intent(in) :: default

Return Value logical


Contents

Source Code

get_option_with_default_logical

Source Code

  elemental function get_option_with_default_logical(option, default) result(option_out)
    implicit none
    logical, intent(in), optional :: option
    logical, intent(in) :: default
    logical :: option_out

    if( present(option) ) then
       option_out = option
    else
       option_out = default
    end if
  end function get_option_with_default_logical