Searched refs:a4 (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ ! |
| H A D | symtet.c | 26 #define a4 0.5854101966249685 macro
76 static double rstw4[][4] = {{a4,b4,b4,b4},{b4,a4,b4,b4},{b4,b4,a4,b4},
77 {b4,b4,b4,a4}};
|
| 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
|