petsc-3.13.6 2020-09-29

ISRestoreIndicesF90

Restores an index set to a usable state after a call to ISGetIndicesF90().

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

Not collective

	x	- index set
	xx_v	- the Fortran90 pointer to the array

ierr -error code

    PetscInt, pointer xx_v(:)
    ....
    call ISGetIndicesF90(x,xx_v,ierr)
    a = xx_v(3)
    call ISRestoreIndicesF90(x,xx_v,ierr)

intermediate