version 1.1, 2020/05/21 21:46:01
|
version 1.2, 2023/08/07 08:39:02
|
Line 13
|
Line 13
|
*> [ZIP]</a> |
*> [ZIP]</a> |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dorhr_col.f"> |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dorhr_col.f"> |
*> [TXT]</a> |
*> [TXT]</a> |
*> |
*> \endhtmlonly |
|
* |
* Definition: |
* Definition: |
* =========== |
* =========== |
* |
* |
Line 112
|
Line 113
|
*> blocks (same format as the output T in DGEQRT). |
*> blocks (same format as the output T in DGEQRT). |
*> The matrix T and the matrix V stored on output in A |
*> The matrix T and the matrix V stored on output in A |
*> implicitly define Q_out. NOTE: The lower triangles |
*> implicitly define Q_out. NOTE: The lower triangles |
*> below the upper-triangular blcoks will be filled with |
*> below the upper-triangular blocks will be filled with |
*> zeros. See Further Details. |
*> zeros. See Further Details. |
*> \endverbatim |
*> \endverbatim |
*> |
*> |
Line 217
|
Line 218
|
*> If Q_in is the result of doing a QR factorization |
*> If Q_in is the result of doing a QR factorization |
*> B = Q_in * R_in, then: |
*> B = Q_in * R_in, then: |
*> |
*> |
*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = O_out * R_out. |
*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = Q_out * R_out. |
*> |
*> |
*> So if one wants to interpret Q_out as the result |
*> So if one wants to interpret Q_out as the result |
*> of the QR factorization of B, then corresponding R_out |
*> of the QR factorization of B, then the corresponding R_out |
*> should be obtained by R_out = S * R_in, i.e. some rows of R_in |
*> should be equal to R_out = S * R_in, i.e. some rows of R_in |
*> should be multiplied by -1. |
*> should be multiplied by -1. |
*> |
*> |
*> For the details of the algorithm, see [1]. |
*> For the details of the algorithm, see [1]. |
Line 240
|
Line 241
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date November 2019 |
|
* |
|
*> \ingroup doubleOTHERcomputational |
*> \ingroup doubleOTHERcomputational |
* |
* |
*> \par Contributors: |
*> \par Contributors: |
Line 259
|
Line 258
|
SUBROUTINE DORHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO ) |
SUBROUTINE DORHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO ) |
IMPLICIT NONE |
IMPLICIT NONE |
* |
* |
* -- LAPACK computational routine (version 3.9.0) -- |
* -- LAPACK computational routine -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* November 2019 |
|
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER INFO, LDA, LDT, M, N, NB |
INTEGER INFO, LDA, LDT, M, N, NB |
Line 437
|
Line 435
|
* |
* |
* End of DORHR_COL |
* End of DORHR_COL |
* |
* |
END |
|
|
|
|
END |