Home
last modified time | relevance | path

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

/libCEED/examples/fluids/qfunctions/
H A Dutils_eigensolver_jacobi.h71 …HELPER void CalcRot(const CeedScalar *A, CeedInt N, CeedInt i, CeedInt j, CeedScalar *rotmat_cst) { in CalcRot() argument
72 rotmat_cst[2] = 1.0; // = tan(θ) in CalcRot()
77 rotmat_cst[2] = 0.0; in CalcRot()
83 rotmat_cst[2] = 1.0 / (sqrt(1 + kappa * kappa) + fabs(kappa)); in CalcRot()
84 if (kappa < 0.0) rotmat_cst[2] = -rotmat_cst[2]; in CalcRot()
87 rotmat_cst[0] = 1.0 / sqrt(1 + rotmat_cst[2] * rotmat_cst[2]); in CalcRot()
88 rotmat_cst[1] = rotmat_cst[0] * rotmat_cst[2]; in CalcRot()
159 …Rot(CeedScalar *A, CeedInt N, CeedInt i, CeedInt j, CeedInt *max_idx_row, CeedScalar *rotmat_cst) { in ApplyRot() argument
161 A[i * N + i] -= rotmat_cst[2] * A[i * N + j]; in ApplyRot()
162 A[j * N + j] += rotmat_cst[2] * A[i * N + j]; in ApplyRot()
[all …]