Sortarea elementelor unui șir

Se consideră șirul x1, x2, x3, ..., xk, ...., xn cu n componente și se pune problema sortării descrescătoare a elementelor șirului, astfel încât la revenirea în programul principal  x1 > x2> x3> ...>xk> ...., >xn. Variabila IK0 dacă șirul era deja sortat și IK=1 dacă s-a efectuat sortarea.
Subprogramul este:

         SUBROUTINE MAXIM (X,N,IK)
         IK=0
         DO 10 I=1,N-1
         IF(X(I).LT.X(I+1)) GO TO 20
10     CONTINUE
         GO TO 40
 20    IP=0
         DO 30 I=1,N-1
         IF(X(I).GE.X(I+1)) GO TO 30
         AUX=X(I+1)
         X(I+1)=X(I)
         X(I)=AUX
         IP=IP+1
30    CONTINUE

         IF(IP.NE.0) GO TO 20

40     CONTINUE
          RETURN
         END


(25 decembrie 2017)
Acest program nu este testat că nu am un compilaor FORTRAN IV...