ISRestoreIndicesF90(IS x,{Scalar, pointer :: xx_v(:)},integer ierr)
Not
collective
Scalar, pointer xx_v(:)
....
call ISGetIndicesF90(x,xx_v,ierr)
a = xx_v(3)
call ISRestoreIndicesF90(x,xx_v,ierr)
Location: src/is/interface/index.c
IS and DA Index
Table of Contents