subroutine test_refpar()
implicit none
integer,parameter :: big=2000, little=300
real :: valsr(big)
integer :: indx(little)
call unit_check_start('refpar', '-library orderpack') ! start tests
call random_seed()
call random_number(valsr)
valsr=valsr*1000000.0-500000.0
call refpar(valsr,indx,little)
valsr(:300)=valsr(indx(:little))
call unit_check('refpar',all(valsr(1:little-1) .le. valsr(2:little)),'real test',little,'out of',big,'values')
call unit_check_done('refpar',msg='test completed')
end subroutine test_refpar