subroutine mostrarEMSR(EMSRFinal, impresion)
        real(8), dimension(2,180), intent(in) :: EMSRFinal
        integer, intent(in) :: impresion
        character(len=255) :: cwd

        write(*,*) "EMSR de cada asiento..."
        write(*,*) "Clases... (1,2,3,4,5) = (A,B,C,D,E)"
        write(*,*) "-------------"

        !Imprimos por pantalla los 180 mayores EMSR.
        do i = 1, 180
            write(*,"(A9, 2x, I3, 2x, A7, 2x, I1, 2x, A6, 2x, F10.6)") &
            "Asiento: ", i, "Clase: ", int(EMSRFinal(1, i)), "EMSR: ", EMSRFinal(2, i)
        end do

        !Si impresion == 1, decimos dónde está el archivo y guardamos los datos en el mismo
        if(impresion == 1) then
            open(10, file="EMSR.txt")
            do i = 1, 180
                write(10,"(A9, 2x, I3, 2x, A7, 2x, I1, 2x, A6, 2x, F10.6)") &
                "Asiento: ", i, "Clase: ", int(EMSRFinal(1, i)), "EMSR: ", EMSRFinal(2, i)
            end do
            close(10)

            call GETCWD(cwd)
            write(*,*) "Localizacion del archivo: ", cwd
        end if

    end subroutine


    subroutine mostrarCaracteristicas(clases)
        real(8), dimension(5,10), intent(in) :: clases
        integer :: equipajeMano

        equipajeMano = 2

        do i = 1, 5
            write(*,*) "--------------------------------------"
            write(*,"(A16, 2x, I10)") "Clase: ", i
            write(*,"(A16, 2x, F10.4)") "Precio: ", clases(i,2)
            write(*,"(A16, 2x, F10.4)") "Sigma: ", clases(i,3)
            write(*,"(A16, 2x, F10.4)") "Mu: ", clases(i,4)
            write(*,"(A16, 2x, F10.4)") "Cambios: ", clases(i,5)

            if(clases(i,5) == 1) then
                write(*,"(A16, 2x, F10.4)") "Precio cambio: ", clases(i,6)
            end if

            write(*,"(A16, 2x, F10.4)") "Sala VIP: ", clases(i,7)
            write(*,"(A16, 2x, F10.4)") "FastTrack: ", clases(i,8)
            write(*,"(A16, 2x, F10.4)") "Selec. asiento: ", clases(i,9)
            write(*,"(A16, 2x, F10.4)") "Maletas: ", clases(i,10)
            write(*,"(A16, 2x, I10)") "Equip. mano: ", equipajeMano
        end do

    end subroutine