سلام به همگی من این کد رو تو فرترن نوشتم تا یک دستگاه معادلات خطی رو با استفاده از روش تکرار ژاکوبی حل کنه، اما نمیدونم کجای کد اشکال داره!
ممنون میشم راهنمایی کنید:
PROGRAM JACOBI
IMPLICIT NONE
REAL, DIMENSION(:, :), ALLOCATABLE::A
REAL, DIMENSION(:), ALLOCATABLE::B,Xnew,Xold...