Contents
dsctr - Scatters elements from x into y.
SUBROUTINE DSCTR(NZ, X, INDX, Y)
DOUBLE PRECISION X(*), Y(*)
INTEGER NZ
INTEGER INDX(*)
SUBROUTINE DSCTR_64(NZ, X, INDX, Y)
DOUBLE PRECISION X(*), Y(*)
INTEGER*8 NZ
INTEGER*8 INDX(*)
F95 INTERFACE
SUBROUTINE SCTR([NZ], X, INDX, Y)
REAL(8), DIMENSION(:) :: X, Y
INTEGER :: NZ
INTEGER, DIMENSION(:) :: INDX
SUBROUTINE SCTR_64([NZ], X, INDX, Y)
REAL(8), DIMENSION(:) :: X, Y
INTEGER(8) :: NZ
INTEGER(8), DIMENSION(:) :: INDX
DSCTR - 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
NZ (input) - INTEGER
Number of elements in the compressed form.
Unchanged on exit.
X (input)
Vector containing the values to be scattered from
compressed form into full storage form. Unchanged
on exit.
INDX (input) - INTEGER
Vector containing the indices of the compressed
form. It is assumed that the elements in INDX are
distinct and greater than zero. Unchanged on exit.
Y (output)
Vector whose elements specified by indx have been
set to the corresponding entries of x. Only the
elements corresponding to the indices in indx have
been modified.