| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 03:06:52 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=4561a7832667e460b7e05be26f623b405dd9c53d58aeb353b8605a09e2b682d9a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22fG9Bs5Q3YO-NTZ5KghvR23YtXuKXX1sU%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d3623c9d338cf1-BLR
Data Module for Endurance&Range Calculator - Pastebin.com
SHARE
TWEET
Data Module for Endurance&Range Calculator
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐GMAIL Logs (2FA disabled)⭐⭐
Java | 4 sec ago | 0.10 KB
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ P
JavaScript | 6 sec ago | 0.25 KB
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 16 sec ago | 0.10 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ E
JavaScript | 16 sec ago | 0.25 KB
-
📌 Swapzone +37% glitch ⭐ T
JavaScript | 25 sec ago | 0.25 KB
-
⭐⭐⭐Free Giftcards Method⭐⭐
Java | 27 sec ago | 0.10 KB
-
✅⭐ Make huge profits on trading ⭐⭐ B
JavaScript | 34 sec ago | 0.25 KB
-
⭐⭐⭐ChangeNOW Exploit⭐⭐
Java | 40 sec ago | 0.10 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
