DSORT Subroutine

subroutine DSORT(W, IND, MAX, POS)

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: W(*)
integer :: IND(*)
integer :: MAX

@# KKRtags: VORONOI

 p.zahn, april 96
 W   is the original array returned unchanged
 IND is an array that holds the new positions 
 max number of ellements to be sorted
 pos the position where the first element is found
integer :: POS

@# KKRtags: VORONOI

 p.zahn, april 96
 W   is the original array returned unchanged
 IND is an array that holds the new positions 
 max number of ellements to be sorted
 pos the position where the first element is found