Contents


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

PURPOSE

     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

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.