steger_warming_split_both Subroutine

private pure subroutine steger_warming_split_both(q, fp, fm, gam)

Fused Steger-Warming flux splitting: returns F^+ and F^- in one call.

Extracts primitives and eigenvalues once; computes both positive and negative split eigenvalues λᵢ± in a single pass.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: q(:)
real(kind=wp), intent(out) :: fp(:)
real(kind=wp), intent(out) :: fm(:)
real(kind=wp), intent(in) :: gam

Ratio of specific heats.