zgbbrd - reduce a complex general m-by-n band matrix A to real upper bidiagonal form B by a unitary transformation
SUBROUTINE ZGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, LDQ, * PT, LDPT, C, LDC, WORK, RWORK, INFO) CHARACTER * 1 VECT DOUBLE COMPLEX AB(LDAB,*), Q(LDQ,*), PT(LDPT,*), C(LDC,*), WORK(*) INTEGER M, N, NCC, KL, KU, LDAB, LDQ, LDPT, LDC, INFO DOUBLE PRECISION D(*), E(*), RWORK(*)
SUBROUTINE ZGBBRD_64( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, * LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO) CHARACTER * 1 VECT DOUBLE COMPLEX AB(LDAB,*), Q(LDQ,*), PT(LDPT,*), C(LDC,*), WORK(*) INTEGER*8 M, N, NCC, KL, KU, LDAB, LDQ, LDPT, LDC, INFO DOUBLE PRECISION D(*), E(*), RWORK(*)
SUBROUTINE GBBRD( VECT, [M], [N], [NCC], KL, KU, AB, [LDAB], D, E, * Q, [LDQ], PT, [LDPT], C, [LDC], [WORK], [RWORK], [INFO]) CHARACTER(LEN=1) :: VECT COMPLEX(8), DIMENSION(:) :: WORK COMPLEX(8), DIMENSION(:,:) :: AB, Q, PT, C INTEGER :: M, N, NCC, KL, KU, LDAB, LDQ, LDPT, LDC, INFO REAL(8), DIMENSION(:) :: D, E, RWORK
SUBROUTINE GBBRD_64( VECT, [M], [N], [NCC], KL, KU, AB, [LDAB], D, * E, Q, [LDQ], PT, [LDPT], C, [LDC], [WORK], [RWORK], [INFO]) CHARACTER(LEN=1) :: VECT COMPLEX(8), DIMENSION(:) :: WORK COMPLEX(8), DIMENSION(:,:) :: AB, Q, PT, C INTEGER(8) :: M, N, NCC, KL, KU, LDAB, LDQ, LDPT, LDC, INFO REAL(8), DIMENSION(:) :: D, E, RWORK
#include <sunperf.h>
void zgbbrd(char *vect, int m, int n, int ncc, int kl, int ku, doublecomplex *ab, int ldab, double *d, double *e, doublecomplex *q, int ldq, doublecomplex *pt, int ldpt, doublecomplex *c, int ldc, int *info);
void zgbbrd_64(char *vect, long m, long n, long ncc, long kl, long ku, doublecomplex *ab, long ldab, double *d, double *e, doublecomplex *q, long ldq, doublecomplex *pt, long ldpt, doublecomplex *c, long ldc, long *info);
zgbbrd reduces a complex general m-by-n band matrix A to real upper bidiagonal form B by a unitary transformation: Q' * A * P = B.
The routine computes B, and optionally forms Q or P', or computes Q'*C for a given matrix C.
= 'Q': form Q only;
= 'P': form P' only;
= 'B': form both.
AB(ku+1+i-j,j)
= A(i,j)
for max(1,j-ku)
< =i < =min(m,j+kl).
On exit, A is overwritten by values generated during the
reduction.
max(1,M)
if VECT = 'Q' or 'B'; LDQ > = 1 otherwise.
max(1,N)
if VECT = 'P' or 'B'; LDPT > = 1 otherwise.
max(1,M)
if NCC > 0; LDC > = 1 if NCC = 0.
dimension(MAX(M,N))
dimension(MAX(M,N))
= 0: successful exit.
< 0: if INFO = -i, the i-th argument had an illegal value.