clarzb - applie a complex block reflector H or its transpose H**H to a complex distributed M-by-N C from the left or the right
SUBROUTINE CLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, LDV, * T, LDT, C, LDC, WORK, LDWORK) CHARACTER * 1 SIDE, TRANS, DIRECT, STOREV COMPLEX V(LDV,*), T(LDT,*), C(LDC,*), WORK(LDWORK,*) INTEGER M, N, K, L, LDV, LDT, LDC, LDWORK
SUBROUTINE CLARZB_64( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, * LDV, T, LDT, C, LDC, WORK, LDWORK) CHARACTER * 1 SIDE, TRANS, DIRECT, STOREV COMPLEX V(LDV,*), T(LDT,*), C(LDC,*), WORK(LDWORK,*) INTEGER*8 M, N, K, L, LDV, LDT, LDC, LDWORK
SUBROUTINE LARZB( SIDE, TRANS, DIRECT, STOREV, [M], [N], K, L, V, * [LDV], T, [LDT], C, [LDC], [WORK], [LDWORK]) CHARACTER(LEN=1) :: SIDE, TRANS, DIRECT, STOREV COMPLEX, DIMENSION(:,:) :: V, T, C, WORK INTEGER :: M, N, K, L, LDV, LDT, LDC, LDWORK
SUBROUTINE LARZB_64( SIDE, TRANS, DIRECT, STOREV, [M], [N], K, L, V, * [LDV], T, [LDT], C, [LDC], [WORK], [LDWORK]) CHARACTER(LEN=1) :: SIDE, TRANS, DIRECT, STOREV COMPLEX, DIMENSION(:,:) :: V, T, C, WORK INTEGER(8) :: M, N, K, L, LDV, LDT, LDC, LDWORK
#include <sunperf.h>
void clarzb(char side, char trans, char direct, char storev, int m, int n, int k, int l, complex *v, int ldv, complex *t, int ldt, complex *c, int ldc, int ldwork);
void clarzb_64(char side, char trans, char direct, char storev, long m, long n, long k, long l, complex *v, long ldv, complex *t, long ldt, complex *c, long ldc, long ldwork);
clarzb applies a complex block reflector H or its transpose H**H to a complex distributed M-by-N C from the left or the right.
Currently, only STOREV = 'R' and DIRECT = 'B' are supported.
= 'L': apply H or H' from the Left
= 'R': apply H or H' from the Right
= 'N': apply H (No transpose)
= 'C': apply H' (Conjugate transpose)
H(1)
H(2)
. . . H(k)
(Forward, not supported yet)
= 'B': H = H(k) . . . H(2) H(1) (Backward)
= 'C': Columnwise (not supported yet)
= 'R': Rowwise
dimension(MAX(M,N),K)
Based on contributions by
A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA