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
yi | a | if | xi | ≤ a |
= | if |
| i = 1, 2, …, n. | |
| xi | xi > a |
The vectors can be stored in
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 |
|
| |
| incx | Increment for the array x: |
74HP MLIB User’s Guide