Searched refs:rsq (Results 1 – 1 of 1) sorted by relevance
132 PetscReal fact, u1u2, diff[3], udiff2, u12, u22, wsq, rsq, tt; in LandauTensor3DRelativistic() local150 rsq = 1. + wsq / c02; in LandauTensor3DRelativistic()151 …fact = -rsq / (g1 * g2 * PetscSqrtReal(wsq)); /* flip sign. papers use du/dt = C, PETSc uses form … in LandauTensor3DRelativistic()153 …for (j = 0; j < 3; ++j) U[i][j] = fact * (-diff[i] * diff[j] / wsq + (PetscSqrtReal(rsq) - 1.) * (… in LandauTensor3DRelativistic()