Home
last modified time | relevance | path

Searched refs:r1 (Results 1 – 4 of 4) sorted by relevance

/phasta/phSolver/incompressible/
H A Dstats.f94 real*8 res(nResDims), reg, det, r0, r1, r2, r3, r4, r5, local
122 r1 = res(2) + reg
128 det = r0 * (r1 * r2 - r4 * r4)
130 & + r5 * (r3 * r4 - r1 * r5)
133 stsMInv(i,1) = det * (r1 * r2 - r4 * r4)
135 stsMInv(i,3) = det * (r0 * r1 - r3 * r3)
138 stsMInv(i,6) = det * (r3 * r4 - r1 * r5)
148 r1 = res(2)
154 d1 = 1. / ( reg + r1 )
162 c0 = r0 + r1 - r3 * r3 * (d0 + d1) + reg
[all …]
H A Dtimeseries.f14 & r1(npro), r2(npro), r3(npro), shgradl(nshl,nsd) local
105 r1(:)=al(:,1,1)+al(:,2,1)*zi0(:,1)+al(:,3,1)*zi0(:,2)+
131 & r1(:) + (m13(:)*m32(:)-m12(:)*m33(:))*r2(:) +
134 & r1(:) + (m11(:)*m33(:)-m13(:)*m31(:))*r2(:) +
137 & r1(:) + (m12(:)*m31(:)-m11(:)*m32(:))*r2(:) +
/phasta/phSolver/common/
H A DGaussLegendreSimplex.c58 double r1,rs1; in brickToTet() local
60 r1 = 1.0e0-(*r); in brickToTet()
61 *s = 0.5e0*(1.0e0+eta)*r1; in brickToTet()
64 *J = 0.125e0*r1*rs1; in brickToTet()
68 double r1; in quadToTri() local
70 r1 = 1.0e0-(*r); in quadToTri()
71 *s = 0.5e0*(1.0e0+eta)*r1; in quadToTri()
72 *J = 0.25e0*r1; in quadToTri()
/phasta/phSolver/compressible/
H A Dtimeseries.f14 & r1(npro), r2(npro), r3(npro), shgradl(nshl,nsd) local
105 r1(:)=al(:,1,1)+al(:,2,1)*zi0(:,1)+al(:,3,1)*zi0(:,2)+
131 & r1(:) + (m13(:)*m32(:)-m12(:)*m33(:))*r2(:) +
134 & r1(:) + (m11(:)*m33(:)-m13(:)*m31(:))*r2(:) +
137 & r1(:) + (m12(:)*m31(:)-m11(:)*m32(:))*r2(:) +