H A D | jacobi.f | 77 * dy - grid spacing in y direction 87 double precision u(n,m),f(n,m),dx,dy local in subroutine:driver 91 call initialize (n,m,alpha,dx,dy,u,f) 95 call jacobi (n,m,dx,dy,alpha,relax,u,f,tol,mits) 99 call error_check (n,m,alpha,dx,dy,u,f) 104 subroutine initialize (n,m,alpha,dx,dy,u,f) 113 double precision u(n,m),f(n,m),dx,dy,alpha local in subroutine:initialize 120 dy = 2.0 / (m-1) 128 yy = -1.0 + dy * dble(j-1) ! -1 < y < 1 139 subroutine jacobi (n,m,dx,dy,alph 161 double precision dx,dy local in subroutine:jacobi 237 double precision u(n,m),f(n,m),dx,dy local in subroutine:error_check [all...] |