H A D | jacobi.f | 20 * relax - Successice over relaxation parameter 31 double precision tol,relax,alpha variable in program:main 34 common /fdat/tol,alpha,relax local in program:main 47 write(*,*) "Input relax - Successive over-relaxation parameter" 48 relax = 0.9 49 * read(5,*) relax 50 write(*,*) relax 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, [all...] |