Convert V-infinity magnitude to energy.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=wp), | intent(in) | :: | vinfmag |
vector magnitude [km/s] |
two-body orbital energy [km^2/s^2]
pure function vinf_to_energy(vinfmag) result(energy) implicit none real(wp),intent(in) :: vinfmag !! \(v^{\infty} \) vector magnitude [km/s] real(wp) :: energy !! two-body orbital energy [km^2/s^2] energy = (vinfmag**2)/two end function vinf_to_energy