distance_to_source_bbox Function

public function distance_to_source_bbox(p, src_center, src_half)

点と source BBox の距離を返す。

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: p(3)
real(kind=dp), intent(in) :: src_center(3)
real(kind=dp), intent(in) :: src_half(3)

Return Value real(kind=dp)


Called by

proc~~distance_to_source_bbox~~CalledByGraph proc~distance_to_source_bbox distance_to_source_bbox proc~core_build_plan_impl core_build_plan_impl proc~core_build_plan_impl->proc~distance_to_source_bbox

Source Code

  real(dp) function distance_to_source_bbox(p, src_center, src_half)
    real(dp), intent(in) :: p(3), src_center(3), src_half(3)
    real(dp) :: d(3), q(3)
    integer(i32) :: axis

    d = p - src_center
    do axis = 1_i32, 3_i32
      q(axis) = max(0.0d0, abs(d(axis)) - src_half(axis))
    end do
    distance_to_source_bbox = sqrt(sum(q*q))
  end function distance_to_source_bbox