optional_char Function

private pure function optional_char(input_value, default_value) result(output)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in), optional :: input_value
character(len=*), intent(in) :: default_value

Return Value character(len=:), allocatable


Called by

proc~~optional_char~~CalledByGraph proc~optional_char optional_char interface~pic_optional pic_optional interface~pic_optional->proc~optional_char proc~char_ord_sort char_ord_sort proc~char_ord_sort->interface~pic_optional proc~char_sort char_sort proc~char_sort->interface~pic_optional proc~char_sort_index_default char_sort_index_default proc~char_sort_index_default->interface~pic_optional proc~char_sort_index_low char_sort_index_low proc~char_sort_index_low->interface~pic_optional proc~dp_ord_sort dp_ord_sort proc~dp_ord_sort->interface~pic_optional proc~dp_radix_sort dp_radix_sort proc~dp_radix_sort->interface~pic_optional proc~dp_sort dp_sort proc~dp_sort->interface~pic_optional proc~dp_sort_index_default dp_sort_index_default proc~dp_sort_index_default->interface~pic_optional proc~dp_sort_index_low dp_sort_index_low proc~dp_sort_index_low->interface~pic_optional proc~int32_ord_sort int32_ord_sort proc~int32_ord_sort->interface~pic_optional proc~int32_radix_sort int32_radix_sort proc~int32_radix_sort->interface~pic_optional proc~int32_sort int32_sort proc~int32_sort->interface~pic_optional proc~int32_sort_index_default int32_sort_index_default proc~int32_sort_index_default->interface~pic_optional proc~int32_sort_index_low int32_sort_index_low proc~int32_sort_index_low->interface~pic_optional proc~int64_ord_sort int64_ord_sort proc~int64_ord_sort->interface~pic_optional proc~int64_radix_sort int64_radix_sort proc~int64_radix_sort->interface~pic_optional proc~int64_sort int64_sort proc~int64_sort->interface~pic_optional proc~int64_sort_index_default int64_sort_index_default proc~int64_sort_index_default->interface~pic_optional proc~int64_sort_index_low int64_sort_index_low proc~int64_sort_index_low->interface~pic_optional proc~sp_ord_sort sp_ord_sort proc~sp_ord_sort->interface~pic_optional proc~sp_radix_sort sp_radix_sort proc~sp_radix_sort->interface~pic_optional proc~sp_sort sp_sort proc~sp_sort->interface~pic_optional proc~sp_sort_index_default sp_sort_index_default proc~sp_sort_index_default->interface~pic_optional proc~sp_sort_index_low sp_sort_index_low proc~sp_sort_index_low->interface~pic_optional

Source Code

   pure function optional_char(input_value, default_value) result(output)
      character(len=*), intent(in), optional :: input_value
      character(len=*), intent(in) :: default_value
      character(len=:), allocatable :: output
      if (present(input_value)) then
         output = input_value
      else
         output = default_value
      end if

   end function optional_char