Home
last modified time | relevance | path

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

/phasta/phSolver/compressible/
H A De3eig1.f3 & a3, eb1,
45 & a3(npro),
71 fact = a1 * Rcs(:,1,1) + a2 * Rcs(:,1,2) + a3 * Rcs(:,1,3)
74 a3 = a3 - fact * Rcs(:,1,3)
75 fact = a1**2 + a2**2 + a3**2
81 Rcs(:,2,3) = a3
115 a3 = Rcs(:,3,1) * dxidx(:,1,1) + Rcs(:,3,2) * dxidx(:,1,2) +
119 dxidx(:,1,3) = a3
125 a3 = Rcs(:,3,1) * dxidx(:,2,1) + Rcs(:,3,2) * dxidx(:,2,2) +
129 dxidx(:,2,3) = a3
[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.cc379 int a1, a2, a3; in hex_regn() local
399 for(a3=2; a3 < ip-3; a3++){ 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()
405 edrv[mc][1]=phi(a1,xi1)*phiDrv(a2,xi2)*phi(a3,xi3); in hex_regn()
407 edrv[mc++][2]=phi(a1,xi1)*phi(a2,xi2)*phiDrv(a3,xi3); in hex_regn()
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.f189 a3 = -4.637