>>691
アルゴリズムとしては一般的に >>689 の方が速い。
だがデータ数が5つやそこらじゃ、なにでやっても有意義な差は出ないだろ。

というわけで、ソートの練習問題の定番も

Program awa
Implicit None
Integer, Parameter :: NMAX = 5
Integer :: n(1:NMAX), i, j
Read *, n
Do i = 1, NMAX - 1
Do j = 1, NMAX - i
If (n(j) < n(j + 1)) Call nswap(n(j), n(j + 1))
End Do
End Do
Print *, n
Contains
Subroutine nswap(na, nb)
Integer, Intent(InOut) :: na, nb
Integer :: nt
nt = na
na = nb
nb = nt
End Subroutine nswap
End Program awa