PDAF_sisort Subroutine

subroutine PDAF_sisort(n, veca)

Sorting routine

Sorts a vector veca(1:n) into ascending numerical order, by straight insertion.

For large vectors, this routine will not be efficient.

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n
real,	intent(inout)			::	veca(n)