Actual source code: ex40.c
2: static char help[] = "Tests taking part of existing array to create a new vector.\n\n";
4: #include <petscvec.h>
6: int main(int argc,char **argv)
7: {
8: PetscMPIInt size;
9: PetscInt n = 10,i;
10: PetscScalar array[10];
11: Vec x;
13: PetscInitialize(&argc,&argv,(char*)0,help);
14: MPI_Comm_size(PETSC_COMM_WORLD,&size);
17: /* create vector */
18: for (i=0; i<n; i++) array[i] = i;
19: n = n-1;
21: VecCreateSeqWithArray(PETSC_COMM_SELF,1,n,array+1,&x);
22: VecView(x,PETSC_VIEWER_STDOUT_SELF);
23: VecDestroy(&x);
24: PetscFinalize();
25: return 0;
26: }