2: #include <petscvec.h> 4: PETSC_INTERN void fillupvector(Vec *v,PetscErrorCode *ierr) 5: { 6: *VecSet(*v,1.0); 7: return; 8: }