Home
last modified time | relevance | path

Searched refs:a1 (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)
72 a1 = a1 - fact * Rcs(:,1,1)
75 fact = a1**2 + a2**2 + a3**2
79 Rcs(:,2,1) = a1
111 a1 = Rcs(:,1,1) * dxidx(:,1,1) + Rcs(:,1,2) * dxidx(:,1,2) +
117 dxidx(:,1,1) = a1
121 a1 = Rcs(:,1,1) * dxidx(:,2,1) + Rcs(:,1,2) * dxidx(:,2,2) +
127 dxidx(:,2,1) = a1
[all …]
H A De3tau.f286 & a1, a2, a3,
337 & a1(npro), a2(npro), a3(npro),
372 & u2, u3, a1,
381 call e3eig2 (u, c, a1,
747 & a1, a2, a3,
799 & a1(npro), a2(npro), a3(npro),
834 & u2, u3, a1,
843 call e3eig2 (u, c, a1,
/phasta/phSolver/common/
H A Dnewshape.cc326 int a1, a2; in quad_face() local
348 for(a1 = 2; a1 < ip-1; a1++){ /* a1,a2 = 2....p-2 */ in quad_face()
350 if( a1+a1 == ip ){ 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
397 for(a1=2; a1 < ip-3; a1++){ 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()
[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.f183 a1 = 329.7