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*/