H A D | jacobi.f | 19 * tol - error tolerance for iterative solver 31 double precision tol,relax,alpha variable in program:main 34 common /fdat/tol,alpha,relax local in program:main 51 write(*,*) "Input tol - error tolerance for iterative solver" 52 tol = 1.0E-12 53 * read(5,*) tol 54 write(*,*) tol 82 double precision tol,relax,alpha local in subroutine:driver 85 common /fdat/tol,alpha,relax local in subroutine:driver 95 call jacobi (n,m,dx,dy,alpha,relax,u,f,tol,mit 161 double precision dx,dy,f(n,m),u(n,m),alpha, tol local in subroutine:jacobi [all...] |