Home
last modified time | relevance | path

Searched refs:a2 (Results 1 – 5 of 5) sorted by relevance

/phasta/phSolver/compressible/
H A De3eig1.f2 & u1, u2, u3, a1, a2,
44 & a1(npro), a2(npro),
71 fact = a1 * Rcs(:,1,1) + a2 * Rcs(:,1,2) + a3 * Rcs(:,1,3)
73 a2 = a2 - fact * Rcs(:,1,2)
75 fact = a1**2 + a2**2 + a3**2
80 Rcs(:,2,2) = a2
113 a2 = Rcs(:,2,1) * dxidx(:,1,1) + Rcs(:,2,2) * dxidx(:,1,2) +
118 dxidx(:,1,2) = a2
123 a2 = Rcs(:,2,1) * dxidx(:,2,1) + Rcs(:,2,2) * dxidx(:,2,2) +
128 dxidx(:,2,2) = a2
[all …]
H A De3tau.f286 & a1, a2, a3,
337 & a1(npro), a2(npro), a3(npro),
373 & a2, a3, eb1,
382 & a2, a3, rlam,
747 & a1, a2, a3,
799 & a1(npro), a2(npro), a3(npro),
835 & a2, a3, eb1,
844 & a2, a3, rlam,
/phasta/phSolver/common/
H A Dnewshape.cc326 int a1, a2; in quad_face() local
349 for(a2 = 2; a2 < ip-1; a2++){ /* a1+a2 = p */ in quad_face()
364 entfn[mc] = phi(a1,xi1)*phi(a2,xi2); in quad_face()
365 edrv[mc][gOrd[0]] = phiDrv(a1, xi1)*phi(a2, xi2); in quad_face()
366 edrv[mc][gOrd[1]] = phi(a1, xi1)*phiDrv(a2, xi2); in quad_face()
379 int a1, a2, a3; in hex_regn() local
398 for(a2=2; a2 < ip-3; a2++){ in hex_regn()
400 if(a1+a2+a3 == ip){ in hex_regn()
401 entfn[mc]=phi(a1,xi1)*phi(a2,xi2)*phi(a3,xi3); in hex_regn()
403 edrv[mc][0]=phiDrv(a1,xi1)*phi(a2,xi2)*phi(a3,xi3); in hex_regn()
[all …]
H A DslpwBC.f295 real*8 function det3x3(a1,a2,a3,a4,a5,a6,a7,a8,a9)
296 real*8 a1,a2,a3,a4,a5,a6,a7,a8,a9 local
297 det3x3=a1*a5*a9+a4*a8*a3+a7*a6*a2-a7*a5*a3-a8*a6*a1-a9*a4*a2
H A DINIprofile.f186 a2 = 6.431