optional_dp Function

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

Handle optional real(dp) value

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~copy_3d_tensor_dp copy_3d_tensor_dp proc~copy_3d_tensor_dp->interface~pic_optional proc~copy_3d_tensor_int32 copy_3d_tensor_int32 proc~copy_3d_tensor_int32->interface~pic_optional proc~copy_3d_tensor_int64 copy_3d_tensor_int64 proc~copy_3d_tensor_int64->interface~pic_optional proc~copy_3d_tensor_sp copy_3d_tensor_sp proc~copy_3d_tensor_sp->interface~pic_optional proc~copy_matrix_dp copy_matrix_dp proc~copy_matrix_dp->interface~pic_optional proc~copy_matrix_int32 copy_matrix_int32 proc~copy_matrix_int32->interface~pic_optional proc~copy_matrix_int64 copy_matrix_int64 proc~copy_matrix_int64->interface~pic_optional proc~copy_matrix_sp copy_matrix_sp proc~copy_matrix_sp->interface~pic_optional proc~copy_vector_dp copy_vector_dp proc~copy_vector_dp->interface~pic_optional proc~copy_vector_int32 copy_vector_int32 proc~copy_vector_int32->interface~pic_optional proc~copy_vector_int64 copy_vector_int64 proc~copy_vector_int64->interface~pic_optional proc~copy_vector_sp copy_vector_sp proc~copy_vector_sp->interface~pic_optional proc~count_char_char count_char_char proc~count_char_char->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~fill_3d_tensor_dp fill_3d_tensor_dp proc~fill_3d_tensor_dp->interface~pic_optional proc~fill_3d_tensor_int32 fill_3d_tensor_int32 proc~fill_3d_tensor_int32->interface~pic_optional proc~fill_3d_tensor_int64 fill_3d_tensor_int64 proc~fill_3d_tensor_int64->interface~pic_optional proc~fill_3d_tensor_sp fill_3d_tensor_sp proc~fill_3d_tensor_sp->interface~pic_optional proc~fill_matrix_dp fill_matrix_dp proc~fill_matrix_dp->interface~pic_optional proc~fill_matrix_int32 fill_matrix_int32 proc~fill_matrix_int32->interface~pic_optional proc~fill_matrix_int64 fill_matrix_int64 proc~fill_matrix_int64->interface~pic_optional proc~fill_matrix_sp fill_matrix_sp proc~fill_matrix_sp->interface~pic_optional proc~fill_vector_dp fill_vector_dp proc~fill_vector_dp->interface~pic_optional proc~fill_vector_int32 fill_vector_int32 proc~fill_vector_int32->interface~pic_optional proc~fill_vector_int64 fill_vector_int64 proc~fill_vector_int64->interface~pic_optional proc~fill_vector_sp fill_vector_sp proc~fill_vector_sp->interface~pic_optional proc~find_char_char find_char_char proc~find_char_char->interface~pic_optional proc~index_char_string index_char_string proc~index_char_string->interface~pic_optional proc~index_string_char index_string_char proc~index_string_char->interface~pic_optional proc~index_string_string index_string_string proc~index_string_string->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~is_sorted_char is_sorted_char proc~is_sorted_char->interface~pic_optional proc~is_sorted_dp is_sorted_dp proc~is_sorted_dp->interface~pic_optional proc~is_sorted_int32 is_sorted_int32 proc~is_sorted_int32->interface~pic_optional proc~is_sorted_int64 is_sorted_int64 proc~is_sorted_int64->interface~pic_optional proc~is_sorted_sp is_sorted_sp proc~is_sorted_sp->interface~pic_optional proc~print_3d_tensor_dp print_3d_tensor_dp proc~print_3d_tensor_dp->interface~pic_optional interface~pic_print_array pic_print_array proc~print_3d_tensor_dp->interface~pic_print_array proc~print_3d_tensor_int32 print_3d_tensor_int32 proc~print_3d_tensor_int32->interface~pic_optional proc~print_3d_tensor_int32->interface~pic_print_array proc~print_3d_tensor_int64 print_3d_tensor_int64 proc~print_3d_tensor_int64->interface~pic_optional proc~print_3d_tensor_int64->interface~pic_print_array proc~print_3d_tensor_sp print_3d_tensor_sp proc~print_3d_tensor_sp->interface~pic_optional proc~print_3d_tensor_sp->interface~pic_print_array proc~print_matrix_dp print_matrix_dp proc~print_matrix_dp->interface~pic_optional proc~print_matrix_int32 print_matrix_int32 proc~print_matrix_int32->interface~pic_optional proc~print_matrix_int64 print_matrix_int64 proc~print_matrix_int64->interface~pic_optional proc~print_matrix_sp print_matrix_sp proc~print_matrix_sp->interface~pic_optional proc~print_packed_matrix_dp print_packed_matrix_dp proc~print_packed_matrix_dp->interface~pic_optional proc~print_packed_matrix_int32 print_packed_matrix_int32 proc~print_packed_matrix_int32->interface~pic_optional proc~print_packed_matrix_int64 print_packed_matrix_int64 proc~print_packed_matrix_int64->interface~pic_optional proc~print_packed_matrix_sp print_packed_matrix_sp proc~print_packed_matrix_sp->interface~pic_optional proc~print_vector_dp print_vector_dp proc~print_vector_dp->interface~pic_optional proc~print_vector_int32 print_vector_int32 proc~print_vector_int32->interface~pic_optional proc~print_vector_int64 print_vector_int64 proc~print_vector_int64->interface~pic_optional proc~print_vector_sp print_vector_sp proc~print_vector_sp->interface~pic_optional proc~scan_char_string scan_char_string proc~scan_char_string->interface~pic_optional proc~scan_string_char scan_string_char proc~scan_string_char->interface~pic_optional proc~scan_string_string scan_string_string proc~scan_string_string->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 proc~sum_3d_tensor_dp sum_3d_tensor_dp proc~sum_3d_tensor_dp->interface~pic_optional proc~sum_3d_tensor_int32 sum_3d_tensor_int32 proc~sum_3d_tensor_int32->interface~pic_optional proc~sum_3d_tensor_int64 sum_3d_tensor_int64 proc~sum_3d_tensor_int64->interface~pic_optional proc~sum_3d_tensor_sp sum_3d_tensor_sp proc~sum_3d_tensor_sp->interface~pic_optional proc~sum_matrix_dp sum_matrix_dp proc~sum_matrix_dp->interface~pic_optional proc~sum_matrix_int32 sum_matrix_int32 proc~sum_matrix_int32->interface~pic_optional proc~sum_matrix_int64 sum_matrix_int64 proc~sum_matrix_int64->interface~pic_optional proc~sum_matrix_sp sum_matrix_sp proc~sum_matrix_sp->interface~pic_optional proc~sum_vector_dp sum_vector_dp proc~sum_vector_dp->interface~pic_optional proc~sum_vector_int32 sum_vector_int32 proc~sum_vector_int32->interface~pic_optional proc~sum_vector_int64 sum_vector_int64 proc~sum_vector_int64->interface~pic_optional proc~sum_vector_sp sum_vector_sp proc~sum_vector_sp->interface~pic_optional proc~to_string_r_dp to_string_r_dp proc~to_string_r_dp->interface~pic_optional proc~to_string_r_sp to_string_r_sp proc~to_string_r_sp->interface~pic_optional proc~transpose_matrix_dp transpose_matrix_dp proc~transpose_matrix_dp->interface~pic_optional proc~transpose_matrix_int32 transpose_matrix_int32 proc~transpose_matrix_int32->interface~pic_optional proc~transpose_matrix_int64 transpose_matrix_int64 proc~transpose_matrix_int64->interface~pic_optional proc~transpose_matrix_sp transpose_matrix_sp proc~transpose_matrix_sp->interface~pic_optional proc~verify_char_string verify_char_string proc~verify_char_string->interface~pic_optional proc~verify_string_char verify_string_char proc~verify_string_char->interface~pic_optional proc~verify_string_string verify_string_string proc~verify_string_string->interface~pic_optional interface~count count interface~count->proc~count_char_char interface~find find interface~find->proc~find_char_char proc~find_char_string find_char_string interface~find->proc~find_char_string proc~find_string_char find_string_char interface~find->proc~find_string_char proc~find_string_string find_string_string interface~find->proc~find_string_string interface~index index interface~index->proc~index_char_string interface~index->proc~index_string_char interface~index->proc~index_string_string interface~is_sorted is_sorted interface~is_sorted->proc~is_sorted_char interface~is_sorted->proc~is_sorted_dp interface~is_sorted->proc~is_sorted_int32 interface~is_sorted->proc~is_sorted_int64 interface~is_sorted->proc~is_sorted_sp interface~pic_copy pic_copy interface~pic_copy->proc~copy_3d_tensor_dp interface~pic_copy->proc~copy_3d_tensor_int32 interface~pic_copy->proc~copy_3d_tensor_int64 interface~pic_copy->proc~copy_3d_tensor_sp interface~pic_copy->proc~copy_matrix_dp interface~pic_copy->proc~copy_matrix_int32 interface~pic_copy->proc~copy_matrix_int64 interface~pic_copy->proc~copy_matrix_sp interface~pic_copy->proc~copy_vector_dp interface~pic_copy->proc~copy_vector_int32 interface~pic_copy->proc~copy_vector_int64 interface~pic_copy->proc~copy_vector_sp interface~pic_fill pic_fill interface~pic_fill->proc~fill_3d_tensor_dp interface~pic_fill->proc~fill_3d_tensor_int32 interface~pic_fill->proc~fill_3d_tensor_int64 interface~pic_fill->proc~fill_3d_tensor_sp interface~pic_fill->proc~fill_matrix_dp interface~pic_fill->proc~fill_matrix_int32 interface~pic_fill->proc~fill_matrix_int64 interface~pic_fill->proc~fill_matrix_sp interface~pic_fill->proc~fill_vector_dp interface~pic_fill->proc~fill_vector_int32 interface~pic_fill->proc~fill_vector_int64 interface~pic_fill->proc~fill_vector_sp interface~pic_print_array->proc~print_3d_tensor_dp interface~pic_print_array->proc~print_3d_tensor_int32 interface~pic_print_array->proc~print_3d_tensor_int64 interface~pic_print_array->proc~print_3d_tensor_sp interface~pic_print_array->proc~print_matrix_dp interface~pic_print_array->proc~print_matrix_int32 interface~pic_print_array->proc~print_matrix_int64 interface~pic_print_array->proc~print_matrix_sp interface~pic_print_array->proc~print_packed_matrix_dp interface~pic_print_array->proc~print_packed_matrix_int32 interface~pic_print_array->proc~print_packed_matrix_int64 interface~pic_print_array->proc~print_packed_matrix_sp interface~pic_print_array->proc~print_vector_dp interface~pic_print_array->proc~print_vector_int32 interface~pic_print_array->proc~print_vector_int64 interface~pic_print_array->proc~print_vector_sp interface~pic_sum pic_sum interface~pic_sum->proc~sum_3d_tensor_dp interface~pic_sum->proc~sum_3d_tensor_int32 interface~pic_sum->proc~sum_3d_tensor_int64 interface~pic_sum->proc~sum_3d_tensor_sp interface~pic_sum->proc~sum_matrix_dp interface~pic_sum->proc~sum_matrix_int32 interface~pic_sum->proc~sum_matrix_int64 interface~pic_sum->proc~sum_matrix_sp interface~pic_sum->proc~sum_vector_dp interface~pic_sum->proc~sum_vector_int32 interface~pic_sum->proc~sum_vector_int64 interface~pic_sum->proc~sum_vector_sp interface~pic_transpose pic_transpose interface~pic_transpose->proc~transpose_matrix_dp interface~pic_transpose->proc~transpose_matrix_int32 interface~pic_transpose->proc~transpose_matrix_int64 interface~pic_transpose->proc~transpose_matrix_sp interface~scan scan interface~scan->proc~scan_char_string interface~scan->proc~scan_string_char interface~scan->proc~scan_string_string interface~verify verify interface~verify->proc~verify_char_string interface~verify->proc~verify_string_char interface~verify->proc~verify_string_string proc~find_char_string->interface~find proc~find_string_char->interface~find proc~find_string_string->interface~find

Source Code

   pure function optional_dp(input_value, default_value) result(output)
      !! Handle optional real(dp) value
      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