My Project
 All Classes Files Functions Variables Macros
sort.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4 C
5 C
6  SUBROUTINE sort(n,d)
7 c
8 c P.Le Van
9 c
10 c... cette routine met le tableau d dans l'ordre croissant ....
11 cc ( pour avoir l'ordre decroissant,il suffit de remplacer l'instruc
12 c tion situee + bas IF(d(j).LE.p) THEN par
13 c IF(d(j).GE.p) THEN
14 c
15 
16  INTEGER n
17  REAL d(n) , p
18  INTEGER i,j,k
19 
20  DO i=1,n-1
21  k=i
22  p=d(i)
23  DO j=i+1,n
24  IF(d(j).LE.p) THEN
25  k=j
26  p=d(j)
27  ENDIF
28  ENDDO
29 
30  IF(k.ne.i) THEN
31  d(k)=d(i)
32  d(i)=p
33  ENDIF
34  ENDDO
35 
36  RETURN
37  END