[BACK]Return to dorhr_col.f CVS log [TXT] [DIR] Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dorhr_col.f between versions 1.1 and 1.2

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
Removed from v.1.1  
changed lines
  Added in v.1.2

CVSweb interface <joel.bertrand@systella.fr>