SNRSQ/DNRSQ/SCNRSQ/DZNRSQ

Euclidean norm squared

Name SNRSQ/DNRSQ/SCNRSQ/DZNRSQ

Euclidean norm squared

Purpose Given a real or complex vector x of length n, these subprograms compute the square of the Euclidean (that is, l2) norm of the vector

n

s = x 22 = ∑ xi i = 1

The vector can be stored in a one-dimensional array or in either a row or a column of a two-dimensional array.

Usage

VECLIB:

 

 

INTEGER*4

n, incx

 

REAL*4

s, SNRSQ, x(lenx)

 

s = SNRSQ(n, x, incx)

 

INTEGER*4

n, incx

 

REAL*8

s, DNRSQ, x(lenx)

 

s = DNRSQ(n, x, incx)

 

INTEGER*4

n, incx

 

REAL*4

s, SCNRSQ

 

COMPLEX*8

x(lenx)

 

s = SCNRSQ(n, x, incx)

 

INTEGER*4

n, incx

 

REAL*8

s, DZNRSQ

 

COMPLEX*16

x(lenx)

s = DZNRSQ(n, x, incx)

VECLIB8:

INTEGER*8

n, incx

REAL*4

s, SNRSQ, x(lenx)

s = SNRSQ(n, x, incx)

INTEGER*8

n, incx

REAL*8

s, DNRSQ, x(lenx)

s = DNRSQ(n, x, incx)

INTEGER*8

n, incx

REAL*4

s, SCNRSQ

COMPLEX*8

x(lenx)

s = SCNRSQ(n, x, incx)

110HP MLIB User’s Guide