Actual source code: ex1.c
1: /*$Id: ex1.c,v 1.12 2001/04/10 19:35:02 bsmith Exp $*/
3: static char help[] = "Tests repeated VecSetType().nn";
5: #include "petscvec.h"
6: #include "petscsys.h"
8: int main(int argc,char **argv)
9: {
10: int ierr,n = 5;
11: Scalar one = 1.0,two = 2.0;
12: Vec x,y;
14: PetscInitialize(&argc,&argv,(char*)0,help);
16: /* create vector */
17: VecCreate(PETSC_COMM_SELF,n,PETSC_DECIDE,&x);
18: VecSetType(x,"mpi");
19: VecSetType(x,"seq");
20: VecDuplicate(x,&y);
21: VecSetType(x,"mpi");
23: VecSet(&one,x);
24: VecSet(&two,y);
26: VecDestroy(x);
27: VecDestroy(y);
29: PetscFinalize();
30: return 0;
31: }
32: