Returns option
if present or default
if not.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical, | intent(in), | optional | :: | option | ||
logical, | intent(in) | :: | default |
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