Actual source code: ex1.c
1: static char help[] = "Tests repeated VecSetType().\n\n";
3: #include <petscvec.h>
5: int main(int argc, char **argv)
6: {
7: PetscInt n = 5;
8: PetscScalar one = 1.0, two = 2.0;
9: Vec x, y;
12: PetscInitialize(&argc, &argv, (char *)0, help);
14: /* create vector */
15: VecCreate(PETSC_COMM_SELF, &x);
16: VecSetSizes(x, n, PETSC_DECIDE);
17: VecSetType(x, "mpi");
18: VecSetType(x, "seq");
19: VecDuplicate(x, &y);
20: VecSetType(x, "mpi");
22: VecSet(x, one);
23: VecSet(y, two);
25: VecDestroy(&x);
26: VecDestroy(&y);
28: PetscFinalize();
29: return 0;
30: }
32: /*TEST
34: test:
35: suffix: 1
37: test:
38: suffix: 2
39: nsize: 2
41: TEST*/