! A fortran95 program for G95.
! By José Felipe Serna, David Torres Rodríguez, Ana Fernández Peregrín,
! Daniel Pérez Martínez, Javier Angosto Sbert, Juan Bartolomé Méndez Moll.
! Este programa tiene como objetivo la optimización de un vuelo a bordo de un Airbus !A350
! Contando para ello con las desviaciones de la demanda y su error esperado.
! Los resultados se encuentran en los archivos "Probabilidad_Sin_Procesar.txt"(Los 900 sin ordenar)
! y "180_Asientos.txt"(Los 180 más altos, ya ordenados).
program Optimizar_Airbus_A350
use modulo_probabilidad !En este módulo se resuelven las integrales de probabilidad.
use modulo_SistemaEcuaciones !En este módulo están todas las subrutinas que calculan el sistema de ecuaciones del asiento A.
use modulo_organizacion ! En este módulo se ordenan los precios y se encuentran los 180 más altos.
use modulo_Escritura ! En este módulo se escriben los datos en un archivo.
implicit none
integer, parameter :: d1=900, d2=180, d3=2 !dimensiones que van a tener los vectores
!estos son los vectores que almacenarán los valores del sistema, de mu y de theta.
real*8 :: c(5), d(5), S_A(2)
! Estas dos matrices contienen respectivamente los 900 valores y los 180 más altos ya ordenados.
real*8 ::comparador(d1,d3), soluciones(d2,d3)
! En este archivo se introducirán los 900 valores, todavía sin ordenar.
open(unit=10, file="Probabilidad_Sin_Procesar.txt", status='unknown', action= 'write')
! En este archivo, se escribirán los 180 valores más altos, ya ordenados.
open(unit=20, file="180_Asientos.txt", status='unknown', action= 'write')
call Sistema_A(S_A) ! modulo_SistemaEcuaciones
c(:) = (/S_A(1),12d0,22d0,45d0,67d0/)
d(:) = (/S_A(2),6d0,7d0,9d0,10d0/)
call integral_probabilidad(c,d,comparador,d2) ! modulo_probabilidad
call ordenacion_por_capas(comparador,d1) ! modulo_organizacion
call Los_180Asientos(comparador, soluciones,d1,d2) ! modulo_organizacion
call contar_asientos(soluciones,d2) ! modulo_organizacion
close(10); close(20)
end program Optimizar_Airbus_A350