petsc-3.7.5 2017-01-01

ISBlockGetIndicesF90

Accesses the elements of an index set from Fortran90. The users should call ISBlockRestoreIndicesF90() after having looked at the indices. The user should NOT change the indices.

Synopsis

ISBlockGetIndicesF90(IS x,{integer, pointer :: xx_v(:)},integer ierr)

Not collective

Input Parameter

x -index set

Output Parameters

	xx_v	- the Fortran90 pointer to the array
	ierr	- error code Example of Usage:

    PetscScalar, pointer xx_v(:)
    ....
    call ISBlockGetIndicesF90(x,xx_v,ierr)
    a = xx_v(3)
    call ISBlockRestoreIndicesF90(x,xx_v,ierr)

Notes

Not yet supported for all F90 compilers

Examples