Searched refs:inorm3 (Results 1 – 1 of 1) sorted by relevance
113 PetscReal dx[3], inorm3, inorm, inorm2, norm2, x2[] = {xp, yp, zp}; in LandauTensor3D() local121 inorm3 = inorm2 * inorm; in LandauTensor3D()122 for (d = 0; d < 3; ++d) U[d][d] = -(inorm - inorm3 * dx[d] * dx[d]); in LandauTensor3D()123 U[1][0] = U[0][1] = inorm3 * dx[0] * dx[1]; in LandauTensor3D()124 U[1][2] = U[2][1] = inorm3 * dx[2] * dx[1]; in LandauTensor3D()125 U[2][0] = U[0][2] = inorm3 * dx[0] * dx[2]; in LandauTensor3D()