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

yi

a

if

xi

a

=

if

 

i = 1, 2, …, n.

 

xi

xi > a

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:

74HP MLIB User’s Guide