| /petsc/src/mat/tests/ |
| H A D | ex97.c | 51 static PetscErrorCode CheckMatrices(Mat A, Mat B, Vec left, Vec right, Vec X, Vec Y, Vec X1, Vec Y1) in CheckMatrices() argument
71 PetscCall(VecCopy(Y1, ltmp[0])); in CheckMatrices()
72 PetscCall(VecCopy(Y1, ltmp[1])); in CheckMatrices()
77 PetscCall(MatMultAdd(A, X, Y1, ltmp[0])); in CheckMatrices()
78 PetscCall(MatMultAdd(B, X, Y1, ltmp[1])); in CheckMatrices()
100 Vec left, right, X, Y, X1, Y1; in main() local
130 PetscCall(VecDuplicate(left, &Y1)); in main()
139 PetscCall(VecSetRandom(Y1, NULL)); in main()
146 PetscCall(VecSet(Y1, 4.0)); in main()
148 PetscCall(CheckMatrices(Asub, Bsub, left, right, X, Y, X1, Y1)); in main()
[all …]
|
| H A D | ex99.c | 51 static PetscErrorCode CheckMatrices(Mat A, Mat B, Vec left, Vec right, Vec X, Vec Y, Vec X1, Vec Y1) in CheckMatrices() argument
73 PetscCall(VecCopy(Y1, ltmp[0])); in CheckMatrices()
74 PetscCall(VecCopy(Y1, ltmp[1])); in CheckMatrices()
79 PetscCall(MatMultAdd(A, X, Y1, ltmp[0])); in CheckMatrices()
80 PetscCall(MatMultAdd(B, X, Y1, ltmp[1])); in CheckMatrices()
102 Vec left, right, X, Y, X1, Y1; in main() local
131 PetscCall(VecDuplicate(left, &Y1)); in main()
140 PetscCall(VecSetRandom(Y1, NULL)); in main()
147 PetscCall(VecSet(Y1, 4.0)); in main()
149 PetscCall(CheckMatrices(Asub, Bsub, left, right, X, Y, X1, Y1)); in main()
[all …]
|
| /petsc/src/vec/vec/tests/ |
| H A D | ex39.c | 16 Vec X, Y, F, X1, Y1, X2, Y2, F1, F2; in main() local
44 PetscCall(VecDuplicate(X1, &Y1)); in main()
56 PetscCall(VecPlaceArray(Y1, y)); in main()
62 PetscCall(VecWAXPY(F1, 1.0, X1, Y1)); in main()
68 PetscCall(VecResetArray(Y1)); in main()
85 PetscCall(VecDestroy(&Y1)); in main()
|
| /petsc/src/ts/impls/eimex/ |
| H A D | eimex.c | 153 Vec Y0 = ext->VecSolPrev, Y1 = ext->Y, Ydot = ext->Ydot, YdotI = ext->YdotI; in TSInterpolate_EIMEX() local
167 PetscCall(TSComputeIFunction(ts, ts->ptime, Y1, Ydot, YdotI, PETSC_FALSE)); in TSInterpolate_EIMEX()
170 PetscCall(VecAXPBYPCZ(X, a, b, 1.0, Y1, YdotI)); in TSInterpolate_EIMEX()
|
| /petsc/src/ts/impls/arkimex/ |
| H A D | arkimex.c | 1302 Vec Udot, Y1, Y2; in TSARKIMEXTestMassIdentity() local
1308 PetscCall(VecDuplicate(ts->vec_sol, &Y1)); in TSARKIMEXTestMassIdentity()
1310 PetscCall(TSComputeIFunction(ts, ts->ptime, ts->vec_sol, Udot, Y1, ark->imex)); in TSARKIMEXTestMassIdentity()
1313 PetscCall(VecAXPY(Y2, -1.0, Y1)); in TSARKIMEXTestMassIdentity()
1323 PetscCall(VecDestroy(&Y1)); in TSARKIMEXTestMassIdentity()
|