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;
11: PetscInitialize(&argc,&argv,(char*)0,help);
13: /* create vector */
14: VecCreate(PETSC_COMM_SELF,&x);
15: VecSetSizes(x,n,PETSC_DECIDE);
16: VecSetType(x,"mpi");
17: VecSetType(x,"seq");
18: VecDuplicate(x,&y);
19: VecSetType(x,"mpi");
21: VecSet(x,one);
22: VecSet(y,two);
24: VecDestroy(&x);
25: VecDestroy(&y);
27: PetscFinalize();
28: return 0;
29: }
31: /*TEST
33: test:
34: suffix: 1
36: test:
37: suffix: 2
38: nsize: 2
40: TEST*/