!Creamos un bucle infinito que permita guardar los valores
    ! obtenidos de EMSR en un fichero de texto, o ver las carac-
    ! terísticas de cada clase

    do
        write(*,*) "----?Que desea hacer ahora?----"
        write(*,*) "0 = salir del programa"
        write(*,*) "1 = ver los 180 asientos con mayor EMSR"
        write(*,*) "2 = ver caracteristicas de cada clase"

        read(*,*) n
        select case(n)

            case (0)
                exit

            case (1)
                write(*,*) "?Desea guardarlo en el archivo EMSR.txt? // 0 no, 1= si"
                read(*,*) impresion
                call mostrarEMSR (EMSRFinal, impresion)
                exit

            case (2)
                call mostrarCaracteristicas(clases)
                exit

            case default
                write(*,*) "Pruebe de nuevo..."
                cycle

        end select

    end do