r82vec_part_quick_a Subroutine

subroutine r82vec_part_quick_a(n, a, l, r)

************80

R82VEC_PART_QUICK_A reorders an R82VEC as part of a quick sort.

Arguments

Type IntentOptional Attributes Name
integer(kind=4) :: n
real(kind=8) :: a(dim_num,n)
integer(kind=4) :: l
integer(kind=4) :: r

Variables

Type Visibility Attributes Name Initial
integer(kind=4), public, parameter :: dim_num = 2
integer(kind=4), public :: i
real(kind=8), public :: key(dim_num)
integer(kind=4), public :: m
logical, public :: r8vec_eq
logical, public :: r8vec_gt
logical, public :: r8vec_lt