Actual source code: ex1.c
petsc-3.14.0 2020-09-29
1: static char help[] = "Tests repeated VecSetType().\n\n";
3: #include <petscvec.h>
5: int main(int argc,char **argv)
6: {
8: PetscInt n = 5;
9: PetscScalar one = 1.0,two = 2.0;
10: Vec x,y;
12: PetscInitialize(&argc,&argv,(char*)0,help);if (ierr) return ierr;
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 ierr;
30: }
32: /*TEST
34: test:
35: suffix: 1
37: test:
38: suffix: 2
39: nsize: 2
41: TEST*/