Searched refs:y2 (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | dtn.f | 301 real*8 x1,x2,y1,y2,x2old local
334 read (linein,*) x1,x2,y1,y2
345 table(4,i,j,islot) = y2*1.d-0
|
| 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
341 y=y1-y2
|