CGET51

   Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
   November 2006

Purpose

     CGET51  generally checks a decomposition of the form

             A = U B V*

     where * means conjugate transpose and U and V are unitary.

     Specifically, if ITYPE=1

             RESULT = | A - U B V* | / ( |A| n ulp )

     If ITYPE=2, then:

             RESULT = | A - B | / ( |A| n ulp )

     If ITYPE=3, then:

             RESULT = | I - UU* | / ( n ulp )

Arguments

ITYPE
(input) INTEGER
Specifies the type of tests to be performed.
=1: RESULT = | A - U B V* | / ( |A| n ulp )
=2: RESULT = | A - B | / ( |A| n ulp )
=3: RESULT = | I - UU* | / ( n ulp )
N
(input) INTEGER
The size of the matrix.  If it is zero, CGET51 does nothing.
It must be at least zero.
A
(input) COMPLEX array, dimension (LDA, N)
The original (unfactored) matrix.
LDA
(input) INTEGER
The leading dimension of A.  It must be at least 1
and at least N.
B
(input) COMPLEX array, dimension (LDB, N)
The factored matrix.
LDB
(input) INTEGER
The leading dimension of B.  It must be at least 1
and at least N.
U
(input) COMPLEX array, dimension (LDU, N)
The unitary matrix on the left-hand side in the
decomposition.
Not referenced if ITYPE=2
LDU
(input) INTEGER
The leading dimension of U.  LDU must be at least N and
at least 1.
V
(input) COMPLEX array, dimension (LDV, N)
The unitary matrix on the left-hand side in the
decomposition.
Not referenced if ITYPE=2
LDV
(input) INTEGER
The leading dimension of V.  LDV must be at least N and
at least 1.
WORK
(workspace) COMPLEX array, dimension (2*N**2)
RWORK
(workspace) REAL array, dimension (N)
RESULT
(output) REAL
The values computed by the test specified by ITYPE.  The
value is currently limited to 1/ulp, to avoid overflow.
Errors are flagged by RESULT=10/ulp.

Call Graph

Caller Graph