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.