	program test
	
	parameter ( n = 30 )

	real rArray(1:n)

	data rArray /12.3,14.4,8.7,2.3,5.5,
     +               18.9,22.3,11.8,17.2,1.2,
     +               32.3,44.5,30.4,26.5,27.5,
     +               19.9,18.8,28.4,23.2,37.8,
     +               23.4,39.5,42.3,21.2,38.8,
     +               44.5,45.5,23.2,18.7,29.2/

	rPtileVal = quickpile(rArray,n,90.0,-99.9)

	write (*,*) 'n = ',n
	write (*,10) '90th Ptile = ',rPtileVal
10	format(a13,f12.4)
	write (*,*) ' '

	end
