Burbuja

      SUBROUTINE ORDEN(nelem,arreg)
      INTEGER :: NELEM
      REAL :: arreg(nelem)
      INTEGER:: I, J, INDICE
      REAL :: AUX
      IF(NELEM.LT.2) RETURN
      DO J= NELEM,2,-1
         INDICE = 1
         DO I =2,J
            IF (ARREG(I).GT.ARREG(INDICE)) INDICE = I
         ENDDO
         IF (INDICE.NE.J) THEN
            AUX= ARREG(INDICE)
            ARREG(INDICE) = ARREG(J)
            ARREG(J)= AUX
         ENDIF
      ENDDO
      RETURN
      END SUBROUTINE


      PROGRAM ORDENAR
      INTEGER :: N
      REAL , ALLOCATABLE :: v(:)
      call abrirfiles()
      READ(6,*) N
      ALLOCATE(v(N))
      DO i=1,N
         READ(5,*) v(i)
      ENDDO
      WRITE(*,*)  " EL VECTOR ORDENADO DE MENOR A MAYOR : "
      CALL ORDEN(n,v)
!      WRITE(*,*) v
      END PROGRAM