F_SGEN_HOUSE/F_DGEN_HOUSE/F_CGEN_HOUSE/F_ZGEN_HOUSE

Generate Householder transform

Usage

VECLIB:

 

 

 

INTEGER*4

INCX, N

 

 

REAL*4

ALPHA, TAU

 

 

REAL*4

X ( * )

 

 

SUBROUTINE F_SGEN_HOUSE ( N, ALPHA, X, INCX, TAU )

 

INTEGER*4

INCX, N

 

 

REAL*8

ALPHA, TAU

 

 

REAL*8

X ( * )

 

 

SUBROUTINE F_DGEN_HOUSE ( N, ALPHA, X, INCX, TAU )

 

INTEGER*4

INCX, N

 

 

COMPLEX*8

ALPHA, TAU

 

 

COMPLEX*8

X ( * )

 

 

SUBROUTINE F_CGEN_HOUSE ( N, ALPHA, X, INCX, TAU )

 

INTEGER*4

INCX, N

 

 

COMPLEX*16

ALPHA, TAU

 

 

COMPLEX*8

X ( * )

 

 

SUBROUTINE F_ZGEN_HOUSE ( N, ALPHA, X, INCX, TAU )

 

VECLIB8:

 

 

 

INTEGER*8

INCX, N

 

 

REAL*4

ALPHA, TAU

 

 

REAL*4

X ( * )

 

 

SUBROUTINE F_SGEN_HOUSE ( N, ALPHA, X, INCX, TAU )

 

INTEGER*8

INCX, N

 

 

REAL*8

ALPHA, TAU

 

 

REAL*8

X ( * )

 

 

SUBROUTINE F_DGEN_HOUSE ( N, ALPHA, X, INCX, TAU )

 

INTEGER*8

INCX, N

 

 

COMPLEX*8

ALPHA, TAU

 

 

COMPLEX*8

X ( * )

 

 

SUBROUTINE F_CGEN_HOUSE ( N, ALPHA, X, INCX, TAU )

 

INTEGER*8

INCX, N

 

 

COMPLEX*16

ALPHA, TAU

 

 

COMPLEX*8

X ( * )

 

 

SUBROUTINE F_ZGEN_HOUSE ( N, ALPHA, X, INCX, TAU )

Input

N

Number of elements of vector x.

 

ALPHA

REAL or COMPLEX scalar.

176HP MLIB User’s Guide