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