zsctr - Scatters elements from x into y.
SUBROUTINE ZSCTR(NZ, X, INDX, Y)
DOUBLE COMPLEX X(*), Y(*) INTEGER NZ INTEGER INDX(*)
SUBROUTINE ZSCTR_64(NZ, X, INDX, Y)
DOUBLE COMPLEX X(*), Y(*) INTEGER*8 NZ INTEGER*8 INDX(*)
F95 INTERFACE SUBROUTINE SCTR([NZ], X, INDX, Y)
COMPLEX(8), DIMENSION(:) :: X, Y INTEGER :: NZ INTEGER, DIMENSION(:) :: INDX
SUBROUTINE SCTR_64([NZ], X, INDX, Y)
COMPLEX(8), DIMENSION(:) :: X, Y INTEGER(8) :: NZ INTEGER(8), DIMENSION(:) :: INDX
ZSCTR - Scatters the components of a sparse vector x stored in compressed form into specified components of a vector y in full storage form.
do i = 1, n y(indx(i)) = x(i) enddo