Data Module for Endurance&Range Calculator

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