Searched defs:jacobi (Results 1 – 1 of 1) sorted by relevance
| /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.fortran/ |
| H A D | jacobi.f | 139 subroutine jacobi (n,m,dx,dy,alpha,omega,u,f,tol,maxit) subroutine
160 integer n,m,maxit
161 double precision dx,dy,f(n,m),u(n,m),alpha, tol,omega
165 integer i,j,k,k_local
166 double precision error,resid,rsum,ax,ay,b
167 double precision error_local, uold(n,m)
169 real ta,tb,tc,td,te,ta1,ta2,tb1,tb2,tc1,tc2,td1,td2
170 real te1,te2
171 real second
|