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...