************80
R82VEC_SORT_QUICK_A ascending sorts an R82VEC using quick sort.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=4) | :: | n | ||||
| real(kind=8) | :: | a(dim_num,n) |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=4), | public | :: | base | ||||
| integer(kind=4), | public, | parameter | :: | dim_num | = | 2 | |
| integer(kind=4), | public | :: | l_segment | ||||
| integer(kind=4), | public | :: | level | ||||
| integer(kind=4), | public, | parameter | :: | level_max | = | 25 | |
| integer(kind=4), | public | :: | n_segment | ||||
| integer(kind=4), | public | :: | r_segment | ||||
| integer(kind=4), | public | :: | rsave(level_max) |