the_solution Function

function the_solution(a, b, c, tobs)

We solve the Quadratic equation, but physically one and only one solution can exist: we know the sound was emitted before we hear it!>

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: a
real(kind=wp), intent(in) :: b
real(kind=wp), intent(in) :: c
real(kind=wp), intent(in) :: tobs

Return Value real(kind=wp)


Called by

proc~~the_solution~~CalledByGraph proc~the_solution the_solution program~doppler_effect doppler_effect program~doppler_effect->proc~the_solution