Searched refs:a5 (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | bc3bdg.f | 31 real*8 a5(nshg) local
36 a5(i) = - y(i,5) * (Rgas * gamma / gamma1) !IDEAL GAS ASSUMED
43 BDiag(:,5,5) = BDiag(:,5,5) + a5 * a5 * BDiag(:,1,1) +
44 & a5 * BDiag(:,1,5) +
45 & a5 * BDiag(:,5,1)
46 BDiag(:,4,5) = BDiag(:,4,5) + a5 * BDiag(:,4,1)
47 BDiag(:,3,5) = BDiag(:,3,5) + a5 * BDiag(:,3,1)
48 BDiag(:,2,5) = BDiag(:,2,5) + a5 * BDiag(:,2,1)
49 BDiag(:,5,4) = BDiag(:,5,4) + a5 * BDiag(:,1,4)
50 BDiag(:,5,3) = BDiag(:,5,3) + a5 * BDiag(:,1,3)
[all …]
|
| /phasta/phSolver/common/ |
| H A D | symtet.c | 30 #define a5 0.5000000000000000 macro
81 {a5,b5,b5,b5},
82 {b5,a5,b5,b5},
83 {b5,b5,a5,b5},
84 {b5,b5,b5,a5}};
|
| H A D | slpwBC.f | 295 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
|