1      REAL DAT(2,5)
2      DO I = 1, 5
3         DAT(1,I) = I*1.6356-NINT(I*1.6356)
4         DAT(2,I) = I
5      ENDDO
6      DO I = 1, 4
7         DO J = I+1, 5
8            IF (DAT(1,J) - DAT(1,I) .LT. 0.0) THEN
9               DO K = 1, 2
10                  TMP = DAT(K,I)
11                  DAT(K,I) = DAT(K,J)
12                  DAT(K,J) = TMP
13               ENDDO
14            ENDIF
15         ENDDO
16      ENDDO
17      DO I = 1, 4
18         IF (DAT(1,I) .GT. DAT(1,I+1)) CALL ABORT
19      ENDDO
20      END
21