Laplace Equation Solver - Streamed
18 1 -------- do it=1,itmax
20 S--1v ------- do j=2,jm1
21 S 12v ------ do i=2,im1
22 S 12v du(i,j)=0.25*(u(i-1,j)+u(i+1,j)
+u(i,j-1)+u(i,j+1))-u(i,j)
27 12v dumax=max(dumax,abs(du(i,j)))
30 S--12 ------- do j=2,jm1
31 S 12v ------ do i=2,im1
32 S 12v u(i,j)=u(i,j)+du(i,j)
35 1 write (1,*) it,dumax