	program test2

c	real x(1:10)
	real x(1:13)

c	data x/95.0,86.0,78.0,90.0,62.0,73.0,89.0,92.0,84.0,76.0/
	data x/4.4,4.9,4.2,4.4,4.8,4.9,4.8,4.5,4.3,4.8,4.7,4.4,4.2/

	call median(13,-99.99,2,x,rMedian,iErr)

	write (*,*) 'median = ',rMedian
	write (*,*) 'Error  = ',iErr

	end
