| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public, | parameter | :: | big | = | 2000 | |
| integer, | public, | parameter | :: | little | = | 300 | |
| real, | public | :: | valsr(big) |
subroutine test_inspar()
implicit none
integer,parameter :: big=2000, little=300
real :: valsr(big)
call unit_check_start('inspar', '-library orderpack') ! start tests
call random_seed()
call random_number(valsr)
valsr=valsr*1000000.0-500000.0
call inspar(valsr,little)
call unit_check('inspar',all(valsr(1:little-1) .le. valsr(2:little)),'real test',little,'out of',big,'values')
call unit_check_done('inspar',msg='test completed')
end subroutine test_inspar