sorbdb5 (3p)

Name

sorbdb5 - mal columns of another column vector

Synopsis

SUBROUTINE SORBDB5(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2,
WORK, LWORK, INFO)


INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, N

REAL Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*)


SUBROUTINE  SORBDB5_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

REAL Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*)


F95 INTERFACE
SUBROUTINE ORBDB5(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,  LDQ2,
WORK, LWORK, INFO)


REAL, DIMENSION(:,:) :: Q1, Q2

INTEGER :: M1, M2, N, INCX1, INCX2, LDQ1, LDQ2, LWORK, INFO

REAL, DIMENSION(:) :: X1, X2, WORK


SUBROUTINE  ORBDB5_64(M1,  M2,  N,  X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
LDQ2, WORK, LWORK, INFO)


REAL, DIMENSION(:,:) :: Q1, Q2

INTEGER(8) :: M1, M2, N, INCX1, INCX2, LDQ1, LDQ2, LWORK, INFO

REAL, DIMENSION(:) :: X1, X2, WORK


C INTERFACE
#include <sunperf.h>

void sorbdb5 (int m1, int m2, int n, float *x1, int incx1,  float  *x2,
int  incx2,  float  *q1,  int  ldq1, float *q2, int ldq2, int
*info);


void sorbdb5_64 (long m1, long m2, long n, float *x1, long incx1, float
*x2,  long incx2, float *q1, long ldq1, float *q2, long ldq2,
long *info);

Description

Oracle Solaris Studio Performance Library                          sorbdb5(3P)



NAME
       sorbdb5 - orthogonalize one column vector with respect to the orthonor-
       mal columns of another column vector


SYNOPSIS
       SUBROUTINE SORBDB5(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2,
                 WORK, LWORK, INFO)


       INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, N

       REAL Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*)


       SUBROUTINE  SORBDB5_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

       REAL Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*)


   F95 INTERFACE
       SUBROUTINE ORBDB5(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,  LDQ2,
                 WORK, LWORK, INFO)


       REAL, DIMENSION(:,:) :: Q1, Q2

       INTEGER :: M1, M2, N, INCX1, INCX2, LDQ1, LDQ2, LWORK, INFO

       REAL, DIMENSION(:) :: X1, X2, WORK


       SUBROUTINE  ORBDB5_64(M1,  M2,  N,  X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
                 LDQ2, WORK, LWORK, INFO)


       REAL, DIMENSION(:,:) :: Q1, Q2

       INTEGER(8) :: M1, M2, N, INCX1, INCX2, LDQ1, LDQ2, LWORK, INFO

       REAL, DIMENSION(:) :: X1, X2, WORK


   C INTERFACE
       #include <sunperf.h>

       void sorbdb5 (int m1, int m2, int n, float *x1, int incx1,  float  *x2,
                 int  incx2,  float  *q1,  int  ldq1, float *q2, int ldq2, int
                 *info);


       void sorbdb5_64 (long m1, long m2, long n, float *x1, long incx1, float
                 *x2,  long incx2, float *q1, long ldq1, float *q2, long ldq2,
                 long *info);


PURPOSE
       sorbdb5 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  some  other  vector  from  the  orthogonal  complement  is
       returned. This vector is chosen in an arbitrary but deterministic  way.



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 REAL 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 REAL 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 REAL 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 REAL 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 REAL 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                       sorbdb5(3P)