! $Header$

!
!
SUBROUTINE sort(n, d)
  !
  ! P.Le Van
  !
  !...  cette routine met le tableau d  dans l'ordre croissant  ....
  !c   ( pour avoir l'ordre decroissant,il suffit de remplacer l'instruc
  !  tion  situee + bas  IF(d(j).LE.p)  THEN     par
  !                       IF(d(j).GE.p)  THEN
  !

  INTEGER :: n
  REAL :: d(n), p
  INTEGER :: i, j, k

  DO i = 1, n - 1
    k = i
    p = d(i)
    DO j = i + 1, n
      IF(d(j)<=p) THEN
        k = j
        p = d(j)
      ENDIF
    ENDDO

    IF(k/=i) THEN
      d(k) = d(i)
      d(i) = p
    ENDIF
  ENDDO

END SUBROUTINE sort