Home
last modified time | relevance | path

Searched refs:x2 (Results 1 – 8 of 8) sorted by relevance

/phasta/phSolver/Test_C/
H A Dgeom.atdb56 0.0623068+0.00053516725780903*(1.0-x2^4)
111 1.5*(1-x2^2)
168 1.5*(1.0-x2^2)
196 if(x1>0,if(x1<0.2, if(x2>0,if(x2<0.2,0,1),1),1),1)
/phasta/phSolver/common/
H A Dproces.f49 real*8 c0, c1, c2, c3, x1, x2 local
168 x2 = EVrampXmax !make the formulas cleaner
176 c2 = (EVrampMax - EVrampMin)/(x2 - x1)
178 c3 = (c3 - c2)/(x2 - x1)
179 c2 = (c2 - c1)/(x2 - x1)
180 c3 = (c3 - c2)/(x2 - x1)
193 & (c2 - (x2 - x1)*c3) + (point2x(nn,1) - x1)*c3))
H A Ddtn.f301 real*8 x1,x2,y1,y2,x2old local
334 read (linein,*) x1,x2,y1,y2
335 if(i .gt. 0 .and. x2 .ne. x2old) then
343 table(2,i,j,islot) = x2*1.d-0
348 x2old = x2
H A Dbctint.f189 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
/phasta/phSolver/Test_IC/
H A Dgeom.atdb87 1.5*(1-x2^2)
115 1.5*(1-x2^2)
209 1.49*(1-x2^2)
/phasta/phSolver/testIC-DSIM/
H A Dgeom.spj35 1.5*(1-x2^2)
151 1.5*(1-x2^2)
/phasta/phSolver/incompressible/
H A DBCprofile.f89 x2=0.025d0
93 vbc_prof(kk,2)=-1.6*1E7*(x(kk,1)-x1)*(x(kk,1)-x2)*
H A Dbflux.f488 subroutine mapArray( x, x2, map, argument
495 real*8 x(nprold,nshl), x2(nprold,nshl) local
505 x2(map(:),i) = x(:,i)