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

74 HP MLIB User’s Guide
SCLIPL/DCLIPL/ICLIPL Left sided vector clip
Name SCLIPL/DCLIPL/ICLIPL
Left sided vector clip
Purpose Given scalar a and a vector x of length n, these subprograms form the vector y
by the left-sided clip operation
The vectors can be stored in one-dimensional arrays or in either rows or
columns of two-dimensional arrays. Indexing through the arrays can be either
forward or backward.
Usage VECLIB:
INTEGER*4 n, incx, incy
REAL*4 a, x(lenx), y(leny)
CALL SCLIPL(n, a, x, incx, y, incy)
INTEGER*4 n, incx, incy
REAL*8 a, x(lenx), y(leny)
CALL DCLIPL(n, a, x, incx, y, incy)
INTEGER*4 n, incx, incy, a, x(lenx), y(leny)
CALL ICLIPL(n, a, x, incx, y, incy)
VECLIB8:
INTEGER*8 n, incx, incy
REAL*4 a, x(lenx), y(leny)
CALL SCLIPL(n, a, x, incx, y, incy)
INTEGER*8 n, incx, incy
REAL*8 a, x(lenx), y(leny)
CALL DCLIPL(n, a, x, incx, y, incy)
INTEGER*8 n, incx, incy, a, x(lenx), y(leny)
CALL ICLIPL(n, a, x, incx, y, incy)
Input n Number of elements of vectors x and y to be used. If
n ≤ 0, the subprograms do not reference x or y.
a The scalar a.
x Array of length lenx = (n−1)×|incx|+1 containing the
n-vector x.
incx Increment for the array x:
y
i
a if x
i
a≤
x
i
if x
i
a>
i 12… n.,, ,=



=