zunbdb6 - mal columns of another column vector
SUBROUTINE ZUNBDB6(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO) INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, N DOUBLE COMPLEX Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) SUBROUTINE ZUNBDB6_64(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO) INTEGER*8 INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, N DOUBLE COMPLEX Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) F95 INTERFACE SUBROUTINE UNBDB6(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO) INTEGER :: M1, M2, N, INCX1, INCX2, LDQ1, LDQ2, LWORK, INFO COMPLEX(8), DIMENSION(:) :: X1, X2, WORK REAL(8), DIMENSION(:,:) :: Q1, Q2 SUBROUTINE UNBDB6_64(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO) INTEGER(8) :: M1, M2, N, INCX1, INCX2, LDQ1, LDQ2, LWORK, INFO COMPLEX(8), DIMENSION(:) :: X1, X2, WORK REAL(8), DIMENSION(:,:) :: Q1, Q2 C INTERFACE #include <sunperf.h> void zunbdb6 (int m1, int m2, int n, doublecomplex *x1, int incx1, dou- blecomplex *x2, int incx2, double *q1, int ldq1, double *q2, int ldq2, int *info); void zunbdb6_64 (long m1, long m2, long n, doublecomplex *x1, long incx1, doublecomplex *x2, long incx2, double *q1, long ldq1, double *q2, long ldq2, long *info);
Oracle Solaris Studio Performance Library zunbdb6(3P) NAME zunbdb6 - orthogonalize one column vector with respect to the orthonor- mal columns of another column vector SYNOPSIS SUBROUTINE ZUNBDB6(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO) INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, N DOUBLE COMPLEX Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) SUBROUTINE ZUNBDB6_64(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO) INTEGER*8 INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, N DOUBLE COMPLEX Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*) F95 INTERFACE SUBROUTINE UNBDB6(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO) INTEGER :: M1, M2, N, INCX1, INCX2, LDQ1, LDQ2, LWORK, INFO COMPLEX(8), DIMENSION(:) :: X1, X2, WORK REAL(8), DIMENSION(:,:) :: Q1, Q2 SUBROUTINE UNBDB6_64(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO) INTEGER(8) :: M1, M2, N, INCX1, INCX2, LDQ1, LDQ2, LWORK, INFO COMPLEX(8), DIMENSION(:) :: X1, X2, WORK REAL(8), DIMENSION(:,:) :: Q1, Q2 C INTERFACE #include <sunperf.h> void zunbdb6 (int m1, int m2, int n, doublecomplex *x1, int incx1, dou- blecomplex *x2, int incx2, double *q1, int ldq1, double *q2, int ldq2, int *info); void zunbdb6_64 (long m1, long m2, long n, doublecomplex *x1, long incx1, doublecomplex *x2, long incx2, double *q1, long ldq1, double *q2, long ldq2, long *info); PURPOSE zunbdb6 orthogonalizes the column vector X = [ X1 ] [ X2 ] with respect to the columns of Q = [ Q1 ] . [ Q2 ] The columns of Q must be orthonormal. If the projection is zero according to Kahan's "twice is enough" crite- rion, then the zero vector is returned. ARGUMENTS M1 (input) M1 is INTEGER The dimension of X1 and the number of rows in Q1. 0 <= M1. M2 (input) M2 is INTEGER The dimension of X2 and the number of rows in Q2. 0 <= M2. N (input) N is INTEGER The number of columns in Q1 and Q2. 0 <= N. X1 (input/output) X1 is COMPLEX*16 array, dimension (M1) On entry, the top part of the vector to be orthogonalized. On exit, the top part of the projected vector. INCX1 (input) INCX1 is INTEGER Increment for entries of X1. X2 (input/output) X2 is COMPLEX*16 array, dimension (M2) On entry, the bottom part of the vector to be orthogonalized. On exit, the bottom part of the projected vector. INCX2 (input) INCX2 is INTEGER Increment for entries of X2. Q1 (input) Q1 is COMPLEX*16 array, dimension (LDQ1, N) The top part of the orthonormal basis matrix. LDQ1 (input) LDQ1 is INTEGER The leading dimension of Q1. LDQ1 >= M1. Q2 (input) Q2 is COMPLEX*16 array, dimension (LDQ2, N) The bottom part of the orthonormal basis matrix. LDQ2 (input) LDQ2 is INTEGER The leading dimension of Q2. LDQ2 >= M2. WORK (output) WORK is COMPLEX*16 array, dimension (LWORK) LWORK (input) LWORK is INTEGER The dimension of the array WORK. LWORK >= N. INFO (output) INFO is INTEGER = 0: successful exit; < 0: if INFO = -i, the i-th argument had an illegal value. 7 Nov 2015 zunbdb6(3P)