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