Lines Matching refs:z
197 real*8 x,y, z(3,2) local
267 z(1,1) = table(n,i,j,itype)
268 z(3,1) = table(n,i+1,j,itype)
269 z(1,2) = table(n,i,j+1,itype)
270 z(3,2) = table(n,i+1,j+1,itype)
272 z(2,1) = (z(3,1) - z(1,1)) / dx(1,itype)
273 & *(x-table(1,i,j,itype)) + z(1,1)
274 z(2,2) = (z(3,2) - z(1,2)) / dx(1,itype)
275 & *(x-table(1,i,j,itype)) + z(1,2)
276 tmp(n-2) = (z(2,2) - z(2,1))/dx(2,itype)
277 & *(y-table(2,i,j,itype)) + z(2,1)