Searched refs:z1 (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | BCprofile.f | 90 z1=-0.01d0
94 & (x(kk,3)-z1)*(x(kk,3)-z2)
|
| /phasta/phSolver/common/ |
| H A D | bctint.f | 337 function distds(x1,y1,z1,x2,y2,z2)
339 real*8 x1,y1,z1,x2,y2,z2,x,y,z local
342 z=z1-z2
|