Go to the source code of this file.
|
subroutine | get_near_meshes_ign (KGRID_PAR, KL, PGRID_PAR, KNEAR_NBR, KNEAR) |
|
recursive subroutine | quick_sort (PLIST, KORDER) |
|
recursive subroutine | quick_sort_1 (KLEFT_END, KRIGHT_END, PLIST1, KORDER1) |
|
subroutine | interchange_sort (KLEFT_END, KRIGHT_END, PLIST2, KORDER2) |
|
subroutine get_near_meshes_ign |
( |
integer, intent(in) |
KGRID_PAR, |
|
|
integer, intent(in) |
KL, |
|
|
real, dimension(kgrid_par), intent(in) |
PGRID_PAR, |
|
|
integer, intent(in) |
KNEAR_NBR, |
|
|
integer, dimension(:,:), pointer |
KNEAR |
|
) |
| |
subroutine get_near_meshes_ign::interchange_sort |
( |
integer, intent(in) |
KLEFT_END, |
|
|
integer, intent(in) |
KRIGHT_END, |
|
|
real, dimension (:), intent(inout) |
PLIST2, |
|
|
integer, dimension (:), intent(inout) |
KORDER2 |
|
) |
| |
recursive subroutine get_near_meshes_ign::quick_sort |
( |
real, dimension (:), intent(inout) |
PLIST, |
|
|
integer, dimension (:), intent(out) |
KORDER |
|
) |
| |
recursive subroutine get_near_meshes_ign::quick_sort_1 |
( |
integer, intent(in) |
KLEFT_END, |
|
|
integer, intent(in) |
KRIGHT_END, |
|
|
real, dimension (:), intent(inout) |
PLIST1, |
|
|
integer, dimension (:), intent(inout) |
KORDER1 |
|
) |
| |