NAME

dsctr - Scatters elements from x into y.

SYNOPSIS

 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.