test_rinpar Subroutine

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