| H A D | ex75.c | 54 …cScalar *vx, PetscScalar *vz, PetscScalar *p, PetscScalar *sxx, PetscScalar *sxz, PetscScalar *szz) in SolKxSolution() argument 478 …*szz = -((t18 * t20 + t34 * t35) * _C1 + (t34 * t20 - t18 * t35) * _C2 + (t51 * t20 + t61 * t35) *… in SolKxSolution() 486 *szz *= cos(km * z); /* szz 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 …[j]), (double)PetscAbsScalar(sxz - sxzMaple[i][j]), (double)PetscAbsScalar(szz - szzMaple[i][j]), … in MapleTest()
|