sort.f90 Source File

!
! $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).LE.p) THEN
       k=j
       p=d(j)
     ENDIF
    ENDDO

   IF(k.ne.i) THEN
     d(k)=d(i)
     d(i)=p
   ENDIF
  ENDDO

   RETURN
END SUBROUTINE sort