DSORT Subroutine

public subroutine DSORT(W, IND, IMAX, POS)

Sort double precision array returning sorted index array

Arguments

Type IntentOptional Attributes Name
double precision :: W(:)

Original array returned unchanged

integer :: IND(:)

Array that holds the new positions

integer :: IMAX

Number of elements to be sorted

integer :: POS

Position where the first element is found