optional_dp Function

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

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in), optional :: input_value
real(kind=dp), intent(in) :: default_value

Return Value real(kind=dp)


Called by

proc~~optional_dp~~CalledByGraph proc~optional_dp optional_dp interface~pic_optional pic_optional interface~pic_optional->proc~optional_dp 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_dp(input_value, default_value) result(output)
      real(dp), intent(in), optional :: input_value
      real(dp), intent(in) :: default_value
      real(dp) :: output

      if (present(input_value)) then
         output = input_value
      else
         output = default_value
      end if
   end function optional_dp