2: static char help[] = "Reads a PETSc vector from a socket connection, then sends it back within a loop. Works with ex42.m or ex42a.c\n"; 4: #include petscvec.h 8: int main(int argc,char **args) 9: { 10: Vec b; 11: PetscViewer fd; /* viewer */ 13: PetscInt i; 15: PetscInitialize(&argc,&args,(char *)0,help); 16: fd = PETSC_VIEWER_SOCKET_WORLD; 18: for (i=0;i<1000;i++){ 19: VecLoad(fd,VECMPI,&b); 20: VecView(b,fd); 21: VecDestroy(b); 22: } 23: PetscFinalize(); 24: return 0; 25: }