Recent content by Nikolas_Ex_Aguirre

program r_jacobi implicit none !!!!Variables!!! real*8 V, V_1, V_2, Lx, Ly integer n ,i , j, k, nx, ny real*8, allocatable :: arrx(:), arry(:), phi(:,:,:) real*8 x, xi, xf, y, yi, yf, dx, dy real*8 d, q, bx, by V=1 V_1=V V_2=-V Lx = 2 Ly = 1 nx = 200 ny = nx/2...