*==============================================================
*  MAINROUTINE
*==============================================================
      PROGRAM MAIN
      INTEGER N,A(10)
      
      N=10

      A(1)=123
      A(2)=35
      A(3)=99
      A(4)=41
      A(5)=2
      A(6)=999
      A(7)=567
      A(8)=15
      A(9)=68
      A(10)=362

      CALL SORT(A,N)
      
      WRITE(6,600)(A(I),I=1,N)
  600 FORMAT(I3)

      STOP
      END

*==============================================================
*  SUBROUTINE
*==============================================================
      SUBROUTINE SORT(IA,N)
      INTEGER IA(10),N,I,J,KK
      
      DO 20 I=1,N-1,1
        DO 10 J=I+1,N,1
          IF(IA(I).GE.IA(J))THEN
C           ---  IA(I) TO IA(J) WO IREKAERU  ----------------
            KK=IA(I)
            IA(I)=IA(J)
            IA(J)=KK
          ENDIF      
   10   CONTINUE
   20 CONTINUE

      RETURN
      END