MODULE DATA 
  USE,INTRINSIC :: iso_fortran_env,only: real64
  IMPLICIT NONE

  REAL(kind=real64),PARAMETER :: Rendimiento_Pala = 0.87_real64
  REAL(kind=real64),PARAMETER :: SFC = 0.45_real64 *  (1.658_real64*10_real64**(-6.0_real64))  ![lbf/hp/hr]
  REAL(kind=real64),PARAMETER :: Peso_Despegue = 137293.0_real64 							   ![N]
  REAL(kind=real64),PARAMETER :: Superficie = 28 											   ![m²] 
  
  
  INTEGER, PARAMETER :: Numero_de_Segmentos = 3

  REAL(kind=real64), DIMENSION(Numero_de_Segmentos) :: Altitud
  REAL(kind=real64), DIMENSION(Numero_de_Segmentos) :: Velocidad_Equivalente
  REAL(kind=real64), DIMENSION(Numero_de_Segmentos) :: Distancia
  
  INTEGER, DIMENSION(Numero_de_Segmentos) :: Divisiones 
  

CONTAINS

  SUBROUTINE Asignacion_Parametros_Intervalos()
 
!LOS VALORES DE ALTITUD SE INGRESAN EN PIES [ft]
	Altitud(1) = 10000_real64
	Altitud(2) = 10000_real64
	Altitud(3) = 10000_real64
	
!LOS VALORES DE VELOCIDAD EQUIVALENTE SE INGRESAN EN NUDOS [kts]	
	Velocidad_Equivalente(1) = 249.9786177_real64
	Velocidad_Equivalente(2) = 249.9786177_real64
	Velocidad_Equivalente(3) = 249.9786177_real64
	
!LOS VALORES DE DISTANCIA POR INTERVALO SE INGRESAN EN KILOMETROS [Km]	
	Distancia(1) = 500.0_real64
	Distancia(2) = 1500.0_real64 
	Distancia(3) = 2500.0_real64 
	
!LOS VALORES DE DIVISIONES POR INTERVALO SE INGRESAN COMO NUMEROS ENTEROS [integer] 	
	Divisiones(1) = 100
	Divisiones(2) = 1000
	Divisiones(3) = 10000 
	
	END SUBROUTINE Asignacion_Parametros_Intervalos
	
	
	SUBROUTINE Polar (Coeficiente_Sustentacion,Coeficiente_Drag) 
		
		REAL(kind=real64), INTENT(IN) :: Coeficiente_Sustentacion
 		REAL(kind=real64), INTENT(OUT) :: Coeficiente_Drag
		
		Coeficiente_Drag = 0.02_real64 + 0.05_real64*Coeficiente_Sustentacion**2.0_real64 	
		
	END SUBROUTINE Polar	
	

END MODULE DATA