| H A D | ex75.c | 54 …etscReal B, PetscScalar *vx, PetscScalar *vz, PetscScalar *p, PetscScalar *sxx, PetscScalar *sxz, … in SolKxSolution() argument 397 …*sxx = -((t19 * t21 + t36 * t37) * _C1 + (t36 * t21 - t19 * t37) * _C2 + (t53 * t21 + t64 * t37) *… in SolKxSolution() 484 *sxx *= cos(km * z); /* sxx total stress */ in SolKxSolution() 497 PetscScalar p, sxx, sxz, szz; in SolKxWrapperV() local 500 SolKxSolution(x[0], x[1], kn, km, B, &v[0], &v[1], &p, &sxx, &sxz, &szz); in SolKxWrapperV() 509 PetscScalar vx, vz, sxx, sxz, szz; in SolKxWrapperP() local 512 SolKxSolution(x[0], x[1], kn, km, B, &vx, &vz, &v[0], &sxx, &sxz, &szz); in SolKxWrapperP() 531 PetscScalar vx, vz, p, sxx, sxz, szz; in MapleTest() local 534 PetscCall(SolKxSolution(x[i], z[j], kn, km, B, &vx, &vz, &p, &sxx, &sxz, &szz)); in MapleTest() 536 …e[i][j]), (double)PetscAbsScalar(p - pMaple[i][j]), (double)PetscAbsScalar(sxx - sxxMaple[i][j]), … in MapleTest()
|