quantile - find data quantile
val=quantile(k,a)
position in array
real(:)
array
val - the a(k) value of the array if the array was sorted
a(k)
Find the a(k) value of the array if the array was sorted
geef90 #$ =cut