| CARVIEW |
Select Language
HTTP/2 200
date: Mon, 13 Oct 2025 04:23:24 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=b76f07bb3c4d8aa5c1ac53baf939ec37a14d758eafb77280b3113dbe75f27768a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22t31d3VAvPirCf10xARKvjmEA-ixx12rS%22%3B%7D; HttpOnly; Path=/
cf-ray: 98dc0fbacddf860e-BLR
Relaxed_Band_Gauss_Seidel - Pastebin.com
SHARE
TWEET
Relaxed_Band_Gauss_Seidel
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- SUBROUTINE Band_Relaxation_Method(Mat_Coeficientes, Mat_Independiente, Resultados, Extension)
- REAL(kind=real64),PARAMETER:: Relax_Coef=1.95_real64 !Este valor va a ser problema dependiente, por lo que hay que cambiarlo por el valor adecuado en cada caso
- INTEGER, INTENT(IN):: Extension
- REAL(kind=real64), DIMENSION(Extension,2*Banda+1), INTENT(IN)::Mat_Coeficientes
- REAL(kind=real64), DIMENSION(Extension), INTENT(IN):: Mat_Independiente
- REAL(kind=real64), DIMENSION(Extension), INTENT(INOUT):: Resultados
- REAL(kind=real64), DIMENSION(Extension):: Resultados_Old
- LOGICAL:: Error
- INTEGER:: Ini,Fin
- INTEGER:: I,J !Variables de control
- REAL(kind=real64):: Suma
- ERROR = .TRUE.
- Resultados_Old = Resultados
- DO WHILE(Error)
- DO I=1,Extension
- Suma=0.0_real64
- DO J = -Banda, -1, 1
- Ini=max(i+j,1) !Variable de control para out_of_bounds extremo superior izquierdo de la matriz
- Suma=Suma+Mat_Coeficientes(i,(Banda+1)+j)*Resultados(Ini) !Sumatoria desde el valor mas a la izquierda de la banda hasta uno antes de la diagonal principal
- END DO
- DO J = 1, Banda, 1
- Fin=min(Extension,i+j) !Variable de control para out_of_bounds extremo inferior derecho de la matriz
- Suma=Suma+Mat_Coeficientes(i,(Banda+1)+j)*Resultados(Fin) !Sumatoria desde el valor siguiente a la diagonal principal hasta el final de la banda
- END DO
- Resultados(i) =(1.0_real64-Relax_Coef)*Resultados_Old(i) + Relax_Coef*(Mat_Independiente(i)-Suma)/Mat_Coeficientes(i,Banda+1)
- END DO
- CALL Check_Error(Resultados,Resultados_Old,Error,Extension)
- Resultados_Old=Resultados
- END DO
- END SUBROUTINE Band_Relaxation_Method
Tags:
Fortran
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐Make $15OO in 2O minutesV E⭐⭐
Java | 12 sec ago | 0.15 KB
-
💵 Make 3000$ in 20 minutes 💵
JavaScript | 18 sec ago | 0.24 KB
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 22 sec ago | 0.15 KB
-
💎 ChangeNOW Exploit
JavaScript | 30 sec ago | 0.24 KB
-
⭐⭐⭐Exploit 500$ in 15 Minutes⭐⭐
Java | 33 sec ago | 0.15 KB
-
🚀 Swapzone +37% glitch
JavaScript | 40 sec ago | 0.24 KB
-
⭐⭐⭐Exploit 500$ in 15 Minutes⭐⭐
Java | 42 sec ago | 0.15 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D A⭐⭐
Java | 44 sec ago | 0.15 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
