csctr

NAME

csctr, dsctr, ssctr, zsctr - Scatters elements from x into y

SYNOPSIS

  SUBROUTINE CSCTR( NZ, X, INDX, Y)
  COMPLEX X(*), Y(*)
  INTEGER NZ
  INTEGER INDX(*)
 
  SUBROUTINE CSCTR_64( NZ, X, INDX, Y)
  COMPLEX X(*), Y(*)
  INTEGER*8 NZ
  INTEGER*8 INDX(*)

F95 INTERFACE

  SUBROUTINE SCTR( [NZ], X, INDX, Y)
  COMPLEX, DIMENSION(:) :: X, Y
  INTEGER :: NZ
  INTEGER, DIMENSION(:) :: INDX
 
  SUBROUTINE SCTR_64( [NZ], X, INDX, Y)
  COMPLEX, DIMENSION(:) :: X, Y
  INTEGER(8) :: NZ
  INTEGER(8), DIMENSION(:) :: INDX

PURPOSE

csctr xSCTR - Scatters the components of a sparse vector x stored in compressed form into specified components of a vector y in full storage form.

             do 10, i = 1, n
               y(indx(i)) = x(i)
          10 continue

ARGUMENTS

* 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.