:orphan:
# VecDuplicateVecsF90
Creates several vectors of the same type as an existing vector and makes them accessible via a Fortran pointer. 
## Synopsis
```
VecDuplicateVecsF90(Vec x,PetscInt n,{Vec, pointer :: y(:)},integer ierr)
```
Collective


## Input Parameters

- ***x -*** a vector to mimic
- ***n -*** the number of vectors to obtain



## Output Parameters

- ***y -*** Fortran pointer to the array of vectors
- ***ierr -*** error code



## Example of Usage
```none
#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)
```





## Note
Use `VecDestroyVecsF90()` to free the space.


## See Also
 [](ch_vectors), `Vec`, `VecDestroyVecsF90()`, `VecDuplicateVecs()`

## Level
beginner

## Location
<A HREF="PETSC_DOC_OUT_ROOT_PLACEHOLDER/src/vec/vec/interface/rvector.c.html#VecDuplicateVecsF90">src/vec/vec/interface/rvector.c</A>

## Examples
<A HREF="PETSC_DOC_OUT_ROOT_PLACEHOLDER/src/vec/vec/tutorials/ex1f90.F90.html">src/vec/vec/tutorials/ex1f90.F90</A><BR>
<A HREF="PETSC_DOC_OUT_ROOT_PLACEHOLDER/src/vec/vec/tutorials/ex20f90.F90.html">src/vec/vec/tutorials/ex20f90.F90</A><BR>


---
[Edit on GitLab](https://gitlab.com/petsc/petsc/-/edit/release/src/vec/vec/interface/rvector.c)


[Index of all Vec routines](index.md)  
[Table of Contents for all manual pages](/manualpages/index.md)  
[Index of all manual pages](/manualpages/singleindex.md)