| H A D | ex75.c | 54 …cScalar *vx, PetscScalar *vz, PetscScalar *p, PetscScalar *sxx, PetscScalar *sxz, PetscScalar *szz) in SolKxSolution() argument 425 *sxz = t44 + t82; in SolKxSolution() 485 *sxz *= sin(km * z); /* tzx 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 …[j]), (double)PetscAbsScalar(sxx - sxxMaple[i][j]), (double)PetscAbsScalar(sxz - sxzMaple[i][j]), … in MapleTest()
|