Searched refs:i2func (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/utils/dmplexlandau/ |
| H A D | land_tensors.h | 73 …PetscReal l, s, r = x[0], z = x[1], i1func, i2func, i3func, ks, es, pi4pow, sqrt_1s, r2, rp2, r2pr… in LandauTensor2D() local
95 i2func = 2. / ((1 - s) * sqrt_1s) * es; in LandauTensor2D()
98 Ud[0][0] = -pi4pow * (rp2 * i1func + PetscSqr(zmzp) * i2func); in LandauTensor2D()
99 Ud[0][1] = Ud[1][0] = Uk[0][1] = pi4pow * (zmzp) * (r * i2func - rp * i3func); in LandauTensor2D()
100 Uk[1][1] = Ud[1][1] = -pi4pow * ((r2prp2)*i2func - 2 * r * rp * i3func) * mask; in LandauTensor2D()
102 …Uk[1][0] = pi4pow * (zmzp) * (r * i3func - rp * i2func); /* 48 mults + 21 + 21 = 90 mul… in LandauTensor2D()
|