version 1.4, 2010/08/06 15:32:32
|
version 1.8, 2011/07/22 07:38:09
|
Line 1
|
Line 1
|
SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, |
SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, |
$ WORK, LWORK, INFO ) |
$ WORK, LWORK, INFO ) |
* |
* |
* -- LAPACK routine (version 3.2) -- |
* -- LAPACK routine (version 3.3.1) -- |
* -- 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..-- |
* January 2007 |
* -- April 2011 -- |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER SIDE, TRANS |
CHARACTER SIDE, TRANS |
Line 264
|
Line 264
|
* |
* |
IF( LEFT ) THEN |
IF( LEFT ) THEN |
* |
* |
* H or H' is applied to C(i:m,1:n) |
* H or H**T is applied to C(i:m,1:n) |
* |
* |
MI = M - I + 1 |
MI = M - I + 1 |
IC = I |
IC = I |
ELSE |
ELSE |
* |
* |
* H or H' is applied to C(1:m,i:n) |
* H or H**T is applied to C(1:m,i:n) |
* |
* |
NI = N - I + 1 |
NI = N - I + 1 |
JC = I |
JC = I |
END IF |
END IF |
* |
* |
* Apply H or H' |
* Apply H or H**T |
* |
* |
CALL DLARZB( SIDE, TRANST, 'Backward', 'Rowwise', MI, NI, |
CALL DLARZB( SIDE, TRANST, 'Backward', 'Rowwise', MI, NI, |
$ IB, L, A( I, JA ), LDA, T, LDT, C( IC, JC ), |
$ IB, L, A( I, JA ), LDA, T, LDT, C( IC, JC ), |