Right sided vector clip

SCLIPR/DCLIPR/ICLIPR

Name SCLIPR/DCLIPR/ICLIPR

Right sided vector clip

Purpose Given scalar b and a vector x of length n, these subprograms form the vector y by the right-sided clip operation

yi

xi

if

xi

< b

=

if

 

i = 1, 2, …, n.

 

b

xi ≥ b

The vectors can be stored in one-dimensional arrays or in either rows or columns of two-dimensional arrays, and the indexing through the arrays can be either forward or backward.

Usage

VECLIB:

 

 

INTEGER*4

n, incx, incy

 

REAL*4

b, x(lenx), y(leny)

 

CALL SCLIPR(n, b, x, incx, y, incy)

 

INTEGER*4

n, incx, incy

 

REAL*8

b, x(lenx), y(leny)

 

CALL DCLIPR(n, b, x, incx, y, incy)

 

INTEGER*4

n, incx, incy, b, x(lenx), y(leny)

 

CALL ICLIPR(n, b, x, incx, y, incy)

 

VECLIB8:

 

 

INTEGER*8

n, incx, incy

 

REAL*4

b, x(lenx), y(leny)

 

CALL SCLIPR(n, b, x, incx, y, incy)

 

INTEGER*8

n, incx, incy

 

REAL*8

b, x(lenx), y(leny)

 

CALL DCLIPR(n, b, x, incx, y, incy)

 

INTEGER*8

n, incx, incy, b, x(lenx), y(leny)

 

CALL ICLIPR(n, b, 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.

 

b

The scalar b.

 

x

Array of length lenx = (n−1)⋅incx+1 containing the

 

 

n-vector x.

 

incx

Increment for the array x:

Chapter 2 Basic Vector Operations 77