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