VecDuplicateVecsF90(Vec x,PetscInt n,{Vec, pointer :: y(:)},integer ierr)
Collective on Vec
| x | - a vector to mimic | |
| n | - the number of vectors to obtain | 
| y | - Fortran90 pointer to the array of vectors | |
| ierr | - error code | 
#include <petsc/finclude/petscvec.h>
    use petscvec
    Vec x
    Vec, pointer :: y(:)
    ....
    call VecDuplicateVecsF90(x,2,y,ierr)
    call VecSet(y(2),alpha,ierr)
    call VecSet(y(2),alpha,ierr)
    ....
    call VecDestroyVecsF90(2,y,ierr)
Use VecDestroyVecsF90() to free the space.