| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 17:40:44 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=121f5c83cc1777caf3d2e330c0bef158a763a91d07477a6d12d1f090d0b5e451a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%228CDBTMVoADZ04kpZxTZ1yeEMEGjILTKY%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d024f18b72860e-BLR
control_y_checkeo_distinto_orden - Pastebin.com
SHARE
TWEET
control_y_checkeo_distinto_orden
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- MODULE control_y_checkeo_distinto_orden
- USE, intrinsic :: iso_fortran_env, only: real64
- use data, only: Inc_minimo, Inc_maximo, Error_maximo, numero_de_ecuaciones, t_minimo
- IMPLICIT NONE
- PRIVATE
- PUBLIC :: control_y_checkeo_del_error_do
- CONTAINS
- SUBROUTINE control_y_checkeo_del_error_do(aproximacion_1, aproximacion_2, aproximacion_1_old, aproximacion_2_old, t, inc_check)
- REAL(kind=real64),DIMENSION(numero_de_ecuaciones),INTENT(INOUT) :: aproximacion_1
- REAL(kind=real64),DIMENSION(numero_de_ecuaciones),INTENT(INOUT) :: aproximacion_2
- REAL(kind=real64),DIMENSION(numero_de_ecuaciones),INTENT(INOUT) :: aproximacion_1_old
- REAL(kind=real64),DIMENSION(numero_de_ecuaciones),INTENT(INOUT) :: aproximacion_2_old
- REAL(kind=real64),INTENT(INOUT) :: t
- REAL(kind=real64),INTENT(INOUT) :: Inc_check
- REAL(kind=real64) kn
- REAL(kind=real64),DIMENSION(numero_de_ecuaciones) :: error_check
- REAL(kind=real64) :: s
- REAL(kind=real64) :: p=4.0_real64
- REAL(kind=real64) :: Beta
- CHARACTER(len=8) :: est_check
- OPEN(unit=10, file="write_outs.dat")
- Beta = 0.38**(1.0_real64/p)
- Error_check = abs((aproximacion_1-aproximacion_2)/((aproximacion_1+aproximacion_2)/2.0_real64))
- s = Beta * (Error_maximo / maxval(Error_check))**(1.0_real64/p) !Factor de Correccion
- kn = Inc_check * s
- PRINT*, "El error:",maxval(Error_check), "s:",s
- IF (s .ge. 1.0_real64) then !SE ACEPTA LA APROX
- est_check="aumentar"
- ELSEIF (s .lt. 1.0_real64 .and. kn .le. inc_minimo) THEN
- est_check="acepto_2"
- ELSE
- est_check="reducir"
- END IF
- SELECT CASE(est_check)
- CASE("aumentar")
- WRITE(10,*) t,aproximacion_1
- aproximacion_1_old = aproximacion_1 !Los nuevos valores de la iteracion son guardados para un futuro uso en caso que sea necesario
- aproximacion_2_old = aproximacion_2 !Los nuevos valores de la iteracion son guardados para un futuro uso en caso que sea necesario
- IF ( kn .gt. inc_maximo) THEN
- kn = Inc_maximo
- END IF
- t = t + kn
- !aproximacion_1 y aproximacion_2 salen de la subrutina con los valores nuevos para calcular la nueva aprox con el nuevo incremento
- CASE("acepto_2")
- WRITE(10,*) t,aproximacion_1
- aproximacion_1_old = aproximacion_1 !Los nuevos valores de la iteracion son guardados para un futuro uso en caso que sea necesario
- aproximacion_2_old = aproximacion_2 !Los nuevos valores de la iteracion son guardados para un futuro uso en caso que sea necesario
- kn = Inc_minimo
- t = t + kn
- !aproximacion_1 y aproximacion_2 salen de la subrutina con los valores nuevos para calcular la nueva aproximacion con incremento minimo
- CASE("reducir") !No se acepta la aprox
- aproximacion_1 = aproximacion_1_old !Las aproximaciones nuevas se reestablecen por las anteriores a la iteracion
- aproximacion_2 = aproximacion_2_old !Las aproximaciones nuevas se reestablecen por las anteriores a la iteracion
- !aproximacion_1 y aproximacion_2 salen de la subrutina con los valores anteriores para volver a ser calculados con el nuevo incremento
- !Para este caso no avanzo en el tiempo
- END SELECT
- Inc_check = kn !Correccion del incremento para todos los casos
- END SUBROUTINE control_y_checkeo_del_error_do
- END MODULE control_y_checkeo_distinto_orden
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 7 sec ago | 0.10 KB
-
⭐ Instant BTC Profit Method ✅ NEVER SEEN BEFO...
JavaScript | 9 sec ago | 0.24 KB
-
⭐✅ MAKE $2000 INSTANTLY ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 18 sec ago | 0.24 KB
-
⭐ Free Crypto Method ✅ NEVER SEEN BEFORE ⭐⭐⭐
JavaScript | 28 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ✅ NEVER SEEN...
JavaScript | 37 sec ago | 0.24 KB
-
⭐⭐⭐Profit Method⭐⭐
Java | 38 sec ago | 0.10 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 46 sec ago | 0.24 KB
-
⭐⭐⭐Crypto Accounts⭐⭐
Java | 51 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
