petsc-3.7.1 2016-05-15

VecRestoreArrayF90

Restores a vector to a usable state after a call to VecGetArrayF90().

VecRestoreArrayF90(Vec x,{Scalar, pointer :: xx_v(:)},integer ierr)

Logically Collective on Vec Many br

	x	- vector Many br
	xx_v	- the Fortran90 pointer to the array Many br

ierr -error code Many br

    PetscScalar, pointer :: xx_v(:)
    ....
    call VecGetArrayF90(x,xx_v,ierr)
    xx_v(3) = a
    call VecRestoreArrayF90(x,xx_v,ierr)

Many br