Scatter sparse vector

 

SSCTR/DSCTR/ISCTR/CSCTR/ZSCTR

 

INTEGER*8

m, indx(m)

 

COMPLEX*8

x(m), y(n)

 

CALL CSCTR(m, x, indx, y)

 

INTEGER*8

m, indx(m)

 

COMPLEX*16

x(m), y(n)

 

CALL ZSCTR(m, x, indx, y)

Input

m

Number of interesting elements, m n, where n is the

 

 

length of y. If m ≤ 0, the subprograms do not reference

 

 

x, indx, or y.

 

x

Array of length m containing the interesting elements

 

 

of x. x(j) = xi if indx(j) = i.

Chapter 2 Basic Vector Operations 137