qsplit Subroutine

subroutine qsplit(a, ind, n, ncut)

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: a(n)
integer :: ind(n)
integer :: n
integer :: ncut

Variables

Type Visibility Attributes Name Initial
real(kind=8), public :: tmp
real(kind=8), public :: abskey
integer, public :: itmp
integer, public :: first
integer, public :: last