Lines Matching refs:km
54 PetscErrorCode SolKxSolution(PetscReal x, PetscReal z, PetscReal kn, PetscReal km, PetscReal B, Pet… in SolKxSolution() argument
85 a = B * B + km * km; in SolKxSolution()
86 b = 2.0 * km * B; in SolKxSolution()
97 t4 = km * km; in SolKxSolution()
101 t12 = 0.8e1 * t7 * kn * km; in SolKxSolution()
111 t7 = km * km; in SolKxSolution()
115 t16 = 0.8e1 * t4 * kn * km; in SolKxSolution()
360 *vx = -km * (_C1 * t2 + _C2 * t4 + _C3 * t2 + _C4 * t4 + t10 * AA * t13 + t10 * BB * t16); in SolKxSolution()
374 t8 = km * km; in SolKxSolution()
397 … AA - 0.4e1 * AA * t73 * B - 0.4e1 * t79 * BB * kn + 0.3e1 * t8 * BB * kn + BB * t74) * t106) / km; in SolKxSolution()
400 t4 = km * km; in SolKxSolution()
429 t8 = km * km; in SolKxSolution()
452 … * t82 * AA - 0.4e1 * AA * t70 * B - 0.4e1 * t76 * BB * kn + t8 * BB * kn + BB * t71) * t101) / km; in SolKxSolution()
456 t8 = km * km; in SolKxSolution()
478 … kn) * t84 + (-t8 * BB * kn - 0.4e1 * AA * t74 * B - 0.4e1 * t70 * BB * kn + BB * t75) * t96) / km; in SolKxSolution()
481 *vx *= cos(km * z); /* Vx */ in SolKxSolution()
482 *vz *= sin(km * z); /* Vz */ in SolKxSolution()
483 *p *= cos(km * z); /* p */ in SolKxSolution()
484 *sxx *= cos(km * z); /* sxx total stress */ in SolKxSolution()
485 *sxz *= sin(km * z); /* tzx stress */ in SolKxSolution()
486 *szz *= cos(km * z); /* szz total stress */ in SolKxSolution()
496 PetscReal km = 100 * M_PI; in SolKxWrapperV() local
500 SolKxSolution(x[0], x[1], kn, km, B, &v[0], &v[1], &p, &sxx, &sxz, &szz); in SolKxWrapperV()
508 PetscReal km = 100 * M_PI; in SolKxWrapperP() local
512 SolKxSolution(x[0], x[1], kn, km, B, &vx, &vz, &v[0], &sxx, &sxz, &szz); in SolKxWrapperP()
524 PetscReal kn, km, B; in MapleTest() local
528 PetscCall(SolKxData5(x, z, &kn, &km, &B, vxMaple, vzMaple, pMaple, sxxMaple, sxzMaple, szzMaple)); in MapleTest()
534 PetscCall(SolKxSolution(x[i], z[j], kn, km, B, &vx, &vz, &p, &sxx, &sxz, &szz)); in MapleTest()