Searched refs:x1 (Results 1 – 5 of 5) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | proces.f | 49 real*8 c0, c1, c2, c3, x1, x2 local
167 x1 = EVrampXmin !stuff in a shorter variable name to
176 c2 = (EVrampMax - EVrampMin)/(x2 - x1)
178 c3 = (c3 - c2)/(x2 - x1)
179 c2 = (c2 - c1)/(x2 - x1)
180 c3 = (c3 - c2)/(x2 - x1)
191 y(nn,6) = c0 + (point2x(nn,1) - x1)*(
192 & c1 + (point2x(nn,1) - x1)*(
193 & (c2 - (x2 - x1)*c3) + (point2x(nn,1) - x1)*c3))
|
| H A D | bctint.f | 189 read(567,*) x1,x2,x3,ntpts
196 dd= distds(x1,x2,x3,x(i,1),x(i,2),x(i,3))
337 function distds(x1,y1,z1,x2,y2,z2)
339 real*8 x1,y1,z1,x2,y2,z2,x,y,z local
340 x=x1-x2
|
| H A D | dtn.f | 301 real*8 x1,x2,y1,y2,x2old local
334 read (linein,*) x1,x2,y1,y2
342 table(1,i,j,islot) = x1*1.d-0
|
| /phasta/phSolver/Test_C/ |
| H A D | geom.atdb | 196 if(x1>0,if(x1<0.2, if(x2>0,if(x2<0.2,0,1),1),1),1)
|
| /phasta/phSolver/incompressible/ |
| H A D | BCprofile.f | 88 x1=-0.025d0
93 vbc_prof(kk,2)=-1.6*1E7*(x(kk,1)-x1)*(x(kk,1)-x2)*
|