HP MLIB User's Guide Vol. 1 7th Ed.

Chapter 2 Basic Vector Operations 137
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)=x
i
if indx(j)=i.